campo-sirio/vd/vd1100.uml
alex 046e2c06cb Patch level : 4.0 649
Ricompilazione Demo : [ ]
Commento            :

Riportata la versione 3.1 patch 848


git-svn-id: svn://10.65.10.50/trunk@14993 c028cbd2-c16b-5b4b-a496-9718f37d4682
2007-03-06 16:37:44 +00:00

55 lines
673 B
Plaintext
Executable File

#include "vd1100.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "Parametri stampa" 1 1 60 14
STRING F_CODCASSA 3
BEGIN
PROMPT 2 2 "Cassa "
USE CAS
INPUT CODTAB F_CODCASSA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CODCASSA CODTAB
OUTPUT F_CASSA_DESCR S0
FIELD CODCASSA
CHECKTYPE REQUIRED
FLAGS "UZDG"
END
STRING F_CASSA_DESCR 50
BEGIN
PROMPT 15 2 ""
FLAGS "D"
END
DATE F_DATA
BEGIN
PROMPT 2 3 "Data "
FLAGS "A"
FIELD DATA
END
STRING F_REPORT 256 56
BEGIN
PROMPT 2 5 "Report "
FLAGS "B"
END
ENDPAGE
ENDMASK