Valid en ComboBox, no funciona!!!

Post Reply
User avatar
noe aburto
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Valid en ComboBox, no funciona!!!

Post by noe aburto »

Despues de tiempo, saludos foro:

Abajo, expongo una funcion donde el valid del segundo combobox no me funciona con el valid que le pongo:

VALID {||eval(oCbx2:bSetGet)>=eval(oCbx1:bSetGet)} PIXEL of bPant
o
VALID {||cPer2>=cPer1} PIXEL of bPant

esto para indicarle el oCbx2 que el valor de este sea mayor o igual al valor del oCbx1

pero, no respeta el valid, alguna sugerencia?

//
function PidePer(oCbx1,oCbx2,cPer1,cPer2,r,c,bPant)
local aPer1,aPer2

aPer1:={'01','02','03','04','05','06','07','08','09','10','11','12'}
aPer2:=aPer1
if cPer1==NIL
cPer1:=MES_POL
endif
if cPer2==NIL
cPer2:=MES_POL
endif
@ r,c say 'Del periodo' of bPant
@ r,c+12 COMBOBOX oCbx1 VAR cPer1 PICTURE '99' STYLE CBS_DROPDOWN ITEMS aPer1 ON CHANGE oCbx1:SetText(cPer1)
@ r,c+26 say 'Al periodo' of bPant
@ r,c+36 COMBOBOX oCbx2 VAR cPer2 PICTURE '99' STYLE CBS_DROPDOWN ITEMS aPer2 ON CHANGE oCbx2:SetText(cPer2);
VALID {||eval(oCbx2:bSetGet)>=eval(oCbx1:bSetGet)} PIXEL of bPant
oCbx1:oGet:bKeyChar:={|nKey|oCbx1:GetKeyChar(nKey)}
oCbx2:oGet:bKeyChar:={|nKey|oCbx2:GetKeyChar(nKey)}
return NIL
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
carlos vargas
Posts: 1723
Joined: Tue Oct 11, 2005 5:01 pm
Location: Nicaragua

Re: Valid en ComboBox, no funciona!!!

Post by carlos vargas »

Noe, déjame revisarlo, ya que anoche tuve problemas relacionados con esto.
te comento en el trascurso del día.

salu2
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
User avatar
karinha
Posts: 7963
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 5 times
Contact:

Re: Valid en ComboBox, no funciona!!!

Post by karinha »

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Post Reply