14 Jul 2015 12:00
::cCCDATA := ctod("")
REDEFINE GET ::dCCDATA VAR ::cCCDATA ID 4010 PICTURE "99/99/9999" OF ::oDlg
REDEFINE GET ::dCCLIVR VAR ::cCCLIVR ID 4014 PICTURE "99999" OF ::oDlg when ( IF( ::cCCDATA > CTOD("01/01/2010"),.F.,.T.) )
14 Jul 2015 14:48
::cCCDATA := ctod("")
REDEFINE GET ::dCCDATA VAR ::cCCDATA ID 4010 PICTURE "99/99/9999" OF ::oDlg
REDEFINE GET ::dCCLIVR VAR ::cCCLIVR ID 4014 PICTURE "99999" OF ::oDlg when ( If( Empty(::cCCDATA), .F., If(::cCCDATA > CTOD("01/01/2010"), .F. , .T. ) ) )