root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ex maschere ve6000

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3523 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-09-05 13:29:55 +00:00
parent 9fd2d09c0b
commit 991a43df48
2 changed files with 233 additions and 212 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ve/ve6200a.h
View File

@ -1,4 +1,4 @@
// Include file per ve6200a.uml // Include file per ve6000.uml
#define F_DATA_ELAB 101 #define F_DATA_ELAB 101
#define F_CODICE_CLIFO_DA 102 #define F_CODICE_CLIFO_DA 102
@ -15,3 +15,4 @@
#define F_CODICE_ELAB 113 #define F_CODICE_ELAB 113
#define F_ANNO_ELAB 114 #define F_ANNO_ELAB 114
#define F_CODICE_NUMERAZIONE 115 #define F_CODICE_NUMERAZIONE 115
#define F_DESCR_ELAB 116

26
ve/ve6200a.uml
View File

@ -2,21 +2,41 @@
PAGE "Fatturazione" -1 -1 70 15 PAGE "Fatturazione" -1 -1 70 15
GROUPBOX DLG_NULL 68 4
BEGIN
PROMPT 1 0 "Elaborazione differita"
END
STRING F_CODICE_ELAB 8 STRING F_CODICE_ELAB 8
BEGIN BEGIN
PROMPT 1 1 "Codice elaborazione differita " PROMPT 2 1 "Codice "
FLAG "U" FLAG "U"
USE %ELD USE %ELD
INPUT CODTAB F_CODICE_ELAB INPUT CODTAB F_CODICE_ELAB
DISPLAY "Codice@8" CODTAB DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Numerazione" S5
OUTPUT F_CODICE_ELAB CODTAB OUTPUT F_CODICE_ELAB CODTAB
OUTPUT F_DESCR_ELAB S0
OUTPUT F_CODICE_NUMERAZIONE S5
CHECKTYPE REQUIRED
END
STRING F_DESCR_ELAB 50
BEGIN
PROMPT 2 2 "Descrizione "
USE %ELD KEY 2
INPUT S0 F_DESCR_ELAB
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@8" CODTAB
DISPLAY "Numerazione" S5
COPY OUTPUT F_CODICE_ELAB
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
DATE F_DATA_ELAB DATE F_DATA_ELAB
BEGIN BEGIN
PROMPT 13 2 "Data elaborazione " PROMPT 32 1 "Data "
FLAG "A" FLAG "A"
VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_A VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_A
WARNING "Specificare una data maggiore o uguale a 'a data documento'" WARNING "Specificare una data maggiore o uguale a 'a data documento'"
@ -26,7 +46,7 @@ END
NUMBER F_ANNO_ELAB 4 NUMBER F_ANNO_ELAB 4
BEGIN BEGIN
PROMPT 43 2 "Anno " PROMPT 55 1 "Anno "
FLAG "D" FLAG "D"
END END