campo-sirio/vd/vd1300.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

111 lines
1.5 KiB
Plaintext
Executable File

#include "vd1300.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_CODNUM 4
BEGIN
PROMPT 2 2 "Numerazione scontrini "
FLAGS "UZ"
USE %NUM
INPUT CODTAB F_CODNUM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM CODTAB
OUTPUT F_DESNUM S0
FIELD CODNUM
CHECKTYPE REQUIRED
END
STRING F_DESNUM 50 35
BEGIN
PROMPT 32 2 ""
USE %NUM KEY 2
INPUT S0 F_DESNUM
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM
CHECKTYPE NORMAL
END
STRING F_OPERATORE 8
BEGIN
PROMPT 2 4 "Operatore "
USE OPD
INPUT CODTAB F_OPERATORE
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_OPERATORE CODTAB
OUTPUT F_OPERATORE_DESCR S0
FIELD USERNAME
CHECKTYPE REQUIRED
FLAGS "UZ"
END
STRING F_OPERATORE_DESCR 50
BEGIN
PROMPT 27 4 ""
USE OPD KEY 2
INPUT S0 F_OPERATORE_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@8" CODTAB
COPY INPUT F_OPERATORE
CHECKTYPE NORMAL
END
DATE F_DADATA
BEGIN
PROMPT 2 7 "Dalla data "
FLAGS "A"
FIELD DADATA
CHECKTYPE REQUIRED
END
DATE F_ADATA
BEGIN
PROMPT 2 8 "Alla data "
FLAGS "A"
FIELD ADATA
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 10 ""
FLAGD "HDGA"
FIELD ANNO
END
STRING F_REPORT 256 56
BEGIN
PROMPT 2 18 "Report "
FLAGS "B"
END
ENDPAGE
ENDMASK