cRecl := ocorren[ 1 ]
cProd := aprod[ 1 ]
DEFINE DIALOG oDlG RESOURCE "RECLAMA" OF oWndC TITLE allTrim( oQuer:NOME )
REDEFINE DTPICKER oGet1 VAR dDatp ID 102 OF oDlg VALID ChkJaTemOco( right( oQuer:CHAV, 6 ), dDatp, aComb, @cProd, @cRecl, oGet2, @cGet2, oDlg, @lNovo, @nId )
REDEFINE COMBOBOX aComb[ 1 ] VAR cProd PICTURE "@!" ID 103 ITEMS aProd OF oDlg valid( ChkVaz( cProd ) ) UPDATE
REDEFINE COMBOBOX aComb[ 2 ] VAR cRecl PICTURE "@!" ID 104 ITEMS aRecl OF oDlg valid( ChkVaz( cRecl ) ) UPDATE
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 62 guests