campo-sirio/vd/vd1600.uml
alex 0f8a6909f1 Patch level : 10.0 62
Files correlati     :
Ricompilazione Demo : [ ]
Commento           :

Revisione Maschere modulo vd


git-svn-id: svn://10.65.10.50/trunk@16685 c028cbd2-c16b-5b4b-a496-9718f37d4682
2008-06-01 14:41:06 +00:00

99 lines
1.2 KiB
Plaintext
Executable File

#include "vd1600.h"
TOOLBAR "" 0 0 0 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -14 -11 ""
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_INFO 10 2
BEGIN
PROMPT -24 -11 ""
END
BUTTON DLG_HELP 10 2
BEGIN
PROMPT -34 -11 ""
END
BUTTON DLG_QUIT 11 2
BEGIN
PROMPT -44 -11 ""
END
ENDPAGE
PAGE "Parametri stampa" 0 0 0 0
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 "UZ"
END
STRING F_CASSA_DESCR 50
BEGIN
PROMPT 15 2 ""
FLAGS "D"
END
DATE F_DADATA
BEGIN
PROMPT 2 3 "Dalla data "
FLAGS "A"
FIELD DADATA
CHECKTYPE REQUIRED
END
DATE F_ADATA
BEGIN
PROMPT 30 3 "Alla data "
FLAGS "A"
FIELD ADATA
CHECKTYPE REQUIRED
END
STRING F_CODNUM 4
BEGIN
PROMPT 2 4 "Numerazione scontrini "
FLAGS "DG"
USE %NUM
INPUT CODTAB F_CODNUM
OUTPUT F_DESNUM S0
FIELD CODNUM
CHECKTYPE NORMAL
END
STRING F_DESNUM 50 35
BEGIN
PROMPT 30 4 ""
FLAGS "D"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 6 ""
FLAGD "HDGA"
FIELD ANNO
END
STRING F_REPORT 256 56
BEGIN
PROMPT 2 8 "Report "
FLAGS "B"
END
ENDPAGE
ENDMASK