FiveTech Software tech support forums

Antonio:

Me podria ayudar me esta presentando este error en la classe de Dtpicker.

REDEFINE GET oCCot1 VAR vCot1 ID 100 OF oRenCot PICTURE "@K!" WHEN lValida = .t.
REDEFINE DTPICKER oCCot2 VAR vCot2 ID 101 UPDATE OF oRenCot WHEN lValida = .t.
REDEFINE TMPicker oCCot3 VAR vCot3 ID 102 UPDATE OF oRenCot WHEN lValida = .t.
REDEFINE GET oCCot4 VAR vCot4 ID 103 OF oRenCot PICTURE "99,999,999.99" WHEN lValida = .t.
REDEFINE CHECKBOX oCCot5 VAR vCot5 ID 104 OF oRenCot WHEN lValida = .t. ON CHANGE MsgBeep()

Called from: => YEAR(0)
Called from: TDTPICKE.PRG => (b)TDATEPICK:TDATEPICK(0)
Called from: TDTPICKE.PRG => TDATEPICK:SETDATE(0)
Called from: TDTPICKE.PRG => TDATEPICK:_CTEXT(0)
Called from: TDTPICKE.PRG => TDATEPICK:INITIATE(0)
Called from: => __OBJSENDMSG(0)
Called from: HARBOUR.PRG => OSEND(0)
Called from: HARBOUR.PRG => ASEND(0)
Called from: DIALOG.PRG => TDIALOG:INITIATE(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: => CONTROL_LLAMADA(1535)
Called from: sdsren.prg => (b)MENU_RENOV(129)
Called from: MENU.PRG => TMENU:ACTIVATE(0)
Called from: => MENU_RENOV(136)

Muchas Gracias
Mario

Mario,

Que valor inicial tiene la variable vCot2 ?

Antonio Linares wrote:Mario,

Que valor inicial tiene la variable vCot2 ?

IF lNew
vCot1:=Space(2)
vCot2:=Date()
vCot3:=Time()
vCot4:=0
vCot5:=0
vCot6:=.F.
ELSE
vCot1:=oDDetCot:C_CIA
vCot2:=oDDetCot:D_COTIZA
vCot3:=oDDetCot:C_FORPAG
vCot4:=oDDetCot:N_COTIZA
vCot5:=oDDetCot:N_RECIBO
vCot6:=oDDetCot:D_ANEXO
ENDIF

Haz un MsgInfo( oDDetCot:D_COTIZA ) despues de ese IF ... ENDIF y comprueba el valor que tiene oDDetCot:D_COTIZA