say and get
Posted: Sat Nov 24, 2007 3:05 pm
while say and get weren't the same rows
my sample
DEFINE DIALOG oDlg FROM 1, 1 TO 35, 75 ;
TITLE If( lAppend, "Nowy", "Modyfikacja" )
@ 1, 1 SAY "Paczka:" OF oDlg
@ 1, 6 GET cPaczka OF oDlg
@ 2, 1 SAY "Typ:" OF oDlg
@ 2, 6 GET cTYP_DOK OF oDlg
@ 3, 1 SAY "Nr dok:" OF oDlg
@ 3, 6 GET cNR_DOK OF oDlg
@ 4, 1 SAY "Data:" OF oDlg
@ 4, 6 GET cDATA_OPER OF oDlg
@ 5, 1 SAY "Nr id:" OF oDlg
@ 5, 6 GET cNR_ID OF oDlg
@ 6, 1 SAY "Treść:" OF oDlg
@ 6, 6 GET cOPIS OF oDlg
@ 7, 1 SAY "Syn:" OF oDlg
@ 7, 6 GET cSYN OF oDlg
@ 8, 1 SAY "Sub:" OF oDlg
@ 8, 6 GET cSUB OF oDlg
@ 9, 1 SAY "Nr:" OF oDlg
@ 9, 6 GET cNR OF oDlg
@10, 1 SAY "Nazwa:" OF oDlg
@10, 6 GET cNazwa OF oDlg
@11, 1 SAY "Przychód:" OF oDlg
@11, 6 GET cPrzychod OF oDlg
@12, 1 SAY "Rozchód:" OF oDlg
@12, 6 GET cRozchod OF oDlg
@13, 9 BUTTON "&Acept" OF oDlg SIZE 50, 12 ACTION ( lSave := .t. , oDlg:End() )
@13, 19 BUTTON "&Cancel" OF oDlg SIZE 50, 12 ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
my sample
DEFINE DIALOG oDlg FROM 1, 1 TO 35, 75 ;
TITLE If( lAppend, "Nowy", "Modyfikacja" )
@ 1, 1 SAY "Paczka:" OF oDlg
@ 1, 6 GET cPaczka OF oDlg
@ 2, 1 SAY "Typ:" OF oDlg
@ 2, 6 GET cTYP_DOK OF oDlg
@ 3, 1 SAY "Nr dok:" OF oDlg
@ 3, 6 GET cNR_DOK OF oDlg
@ 4, 1 SAY "Data:" OF oDlg
@ 4, 6 GET cDATA_OPER OF oDlg
@ 5, 1 SAY "Nr id:" OF oDlg
@ 5, 6 GET cNR_ID OF oDlg
@ 6, 1 SAY "Treść:" OF oDlg
@ 6, 6 GET cOPIS OF oDlg
@ 7, 1 SAY "Syn:" OF oDlg
@ 7, 6 GET cSYN OF oDlg
@ 8, 1 SAY "Sub:" OF oDlg
@ 8, 6 GET cSUB OF oDlg
@ 9, 1 SAY "Nr:" OF oDlg
@ 9, 6 GET cNR OF oDlg
@10, 1 SAY "Nazwa:" OF oDlg
@10, 6 GET cNazwa OF oDlg
@11, 1 SAY "Przychód:" OF oDlg
@11, 6 GET cPrzychod OF oDlg
@12, 1 SAY "Rozchód:" OF oDlg
@12, 6 GET cRozchod OF oDlg
@13, 9 BUTTON "&Acept" OF oDlg SIZE 50, 12 ACTION ( lSave := .t. , oDlg:End() )
@13, 19 BUTTON "&Cancel" OF oDlg SIZE 50, 12 ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED