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

35
ve/ve6200a.h
View File

@ -1,17 +1,18 @@
// Include file per ve6200a.uml
#define F_DATA_ELAB 101
#define F_CODICE_CLIFO_DA 102
#define F_CODICE_CLIFO_A 103
#define F_DATA_DOCUMENTO_DA 104
#define F_DATA_DOCUMENTO_A 105
#define F_CODICE_AGENTE_DA 106
#define F_CODICE_AGENTE_A 107
#define F_CODICE_ZONA_DA 108
#define F_CODICE_ZONA_A 109
#define F_NUMERO_DOCUMENTO_DA 110
#define F_NUMERO_DOCUMENTO_A 111
#define F_ORDINAMENTO 112
#define F_CODICE_ELAB 113
#define F_ANNO_ELAB 114
#define F_CODICE_NUMERAZIONE 115
// Include file per ve6000.uml
#define F_DATA_ELAB 101
#define F_CODICE_CLIFO_DA 102
#define F_CODICE_CLIFO_A 103
#define F_DATA_DOCUMENTO_DA 104
#define F_DATA_DOCUMENTO_A 105
#define F_CODICE_AGENTE_DA 106
#define F_CODICE_AGENTE_A 107
#define F_CODICE_ZONA_DA 108
#define F_CODICE_ZONA_A 109
#define F_NUMERO_DOCUMENTO_DA 110
#define F_NUMERO_DOCUMENTO_A 111
#define F_ORDINAMENTO 112
#define F_CODICE_ELAB 113
#define F_ANNO_ELAB 114
#define F_CODICE_NUMERAZIONE 115
#define F_DESCR_ELAB 116

410
ve/ve6200a.uml
View File

@ -1,195 +1,215 @@
#include "ve6200a.h"
PAGE "Fatturazione" -1 -1 70 15
STRING F_CODICE_ELAB 8
BEGIN
PROMPT 1 1 "Codice elaborazione differita "
FLAG "U"
USE %ELD
INPUT CODTAB F_CODICE_ELAB
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE_ELAB CODTAB
CHECKTYPE REQUIRED
END
DATE F_DATA_ELAB
BEGIN
PROMPT 13 2 "Data elaborazione "
FLAG "A"
VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_A
WARNING "Specificare una data maggiore o uguale a 'a data documento'"
CHECKTYPE REQUIRED
MESSAGE COPY,F_ANNO_ELAB,7,10
END
NUMBER F_ANNO_ELAB 4
BEGIN
PROMPT 43 2 "Anno "
FLAG "D"
END
GROUPBOX DLG_NULL 68 10
BEGIN
PROMPT 1 4 "Estremi dei documenti da elaborare:"
END
RADIOBUTTON F_ORDINAMENTO 16
BEGIN
PROMPT 3 5 "Ordinamento per"
ITEM "C|Clienti"
MESSAGE ENABLE,1@|CLEAR,2@|CLEAR,3@
ITEM "A|Agenti"
MESSAGE CLEAR,1@|ENABLE,2@|CLEAR,3@
ITEM "Z|Zone"
MESSAGE CLEAR,1@|CLEAR,2@|ENABLE,3@
END
NUMBER F_CODICE_CLIFO_DA 6
BEGIN
PROMPT 20 6 "da codice cliente "
FLAG "UR"
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODICE_CLIFO_DA
DISPLAY "Codice cliente," CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICE_CLIFO_DA CODCF
GROUP 1
END
NUMBER F_CODICE_CLIFO_A 6
BEGIN
PROMPT 55 6 "a "
FLAG "UR"
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODICE_CLIFO_A
COPY DISPLAY F_CODICE_CLIFO_DA
OUTPUT F_CODICE_CLIFO_A CODCF
NUM_EXPR #F_CODICE_CLIFO_A>=#F_CODICE_CLIFO_DA
WARNING "Digitare un codice maggiore o uguale al campo 'da codice cliente'"
GROUP 1
END
STRING F_CODICE_AGENTE_DA 5
BEGIN
PROMPT 20 7 "da codice agente "
FLAG "UR"
USE AGE
INPUT CODTAB F_CODICE_AGENTE_DA
DISPLAY "Codice agente" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE_AGENTE_DA CODTAB
GROUP 2
END
STRING F_CODICE_AGENTE_A 5
BEGIN
PROMPT 55 7 "a "
FLAG "UR"
USE AGE
INPUT CODTAB F_CODICE_AGENTE_A
COPY DISPLAY F_CODICE_AGENTE_DA
OUTPUT F_CODICE_AGENTE_A CODTAB
NUM_EXPR #F_CODICE_AGENTE_A>=#F_CODICE_AGENTE_DA
WARNING "Digitare un codice maggiore o uguale al campo 'da codice agente'"
GROUP 2
END
STRING F_CODICE_ZONA_DA 2
BEGIN
PROMPT 20 8 "da codice zona "
FLAG "UR"
USE ZON
INPUT CODTAB F_CODICE_ZONA_DA
DISPLAY "Codice Zona" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE_ZONA_DA CODTAB
GROUP 3
END
STRING F_CODICE_ZONA_A 2
BEGIN
PROMPT 55 8 "a "
FLAG "UR"
USE ZON
INPUT CODTAB F_CODICE_ZONA_A
COPY DISPLAY F_CODICE_ZONA_DA
OUTPUT F_CODICE_ZONA_A CODTAB
STR_EXPR #F_CODICE_ZONA_A>=#F_CODICE_ZONA_DA
WARNING "Digitare un codice maggiore o uguale al campo 'da codice zona'"
GROUP 3
END
DATE F_DATA_DOCUMENTO_DA
BEGIN
PROMPT 20 10 "da data documento "
WARNING "E' necessario specificare una data"
END
DATE F_DATA_DOCUMENTO_A
BEGIN
PROMPT 55 10 "a "
VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_DA
WARNING "Specificare una data maggiore o uguale a 'da data documento'"
END
STRING F_CODICE_NUMERAZIONE 4
BEGIN
PROMPT 20 11 "Codice numerazione "
FLAG "UZ"
USE %NUM
INPUT CODTAB F_CODICE_NUMERAZIONE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE_NUMERAZIONE CODTAB
CHECKTYPE NORMAL
MESSAGE EMPTY CLEAR,F_NUMERO_DOCUMENTO_DA|CLEAR,F_NUMERO_DOCUMENTO_A
MESSAGE ENABLE,F_NUMERO_DOCUMENTO_DA|ENABLE,F_NUMERO_DOCUMENTO_A
END
NUMBER F_NUMERO_DOCUMENTO_DA 7
BEGIN
PROMPT 20 12 "da numero documento "
USE LF_DOC
JOIN %TIP ALIAS 104 INTO CODTAB=TIPODOC
JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF=CODCF
INPUT PROVV "D"
INPUT ANNO F_ANNO_ELAB SELECT
INPUT CODNUM F_CODICE_NUMERAZIONE SELECT
INPUT NDOC F_NUMERO_DOCUMENTO_DA
DISPLAY "Numero" NDOC
DISPLAY "Tipo@50" 104@->S0
DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
OUTPUT F_NUMERO_DOCUMENTO_DA NDOC
END
NUMBER F_NUMERO_DOCUMENTO_A 7
BEGIN
PROMPT 55 12 "a "
COPY USE F_NUMERO_DOCUMENTO_DA
INPUT PROVV "D"
INPUT ANNO F_ANNO_ELAB SELECT
INPUT CODNUM F_CODICE_NUMERAZIONE SELECT
INPUT NDOC F_NUMERO_DOCUMENTO_A
COPY DISPLAY F_NUMERO_DOCUMENTO_DA
OUTPUT F_NUMERO_DOCUMENTO_A NDOC
NUM_EXPR (#THIS_FIELD==0)||(#THIS_FIELD>=#F_NUMERO_DOCUMENTO_DA)
WARNING "Specificare un numero documento superiore a quello di partenza"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
#include "ve6200a.h"
PAGE "Fatturazione" -1 -1 70 15
GROUPBOX DLG_NULL 68 4
BEGIN
PROMPT 1 0 "Elaborazione differita"
END
STRING F_CODICE_ELAB 8
BEGIN
PROMPT 2 1 "Codice "
FLAG "U"
USE %ELD
INPUT CODTAB F_CODICE_ELAB
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Numerazione" S5
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
END
DATE F_DATA_ELAB
BEGIN
PROMPT 32 1 "Data "
FLAG "A"
VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_A
WARNING "Specificare una data maggiore o uguale a 'a data documento'"
CHECKTYPE REQUIRED
MESSAGE COPY,F_ANNO_ELAB,7,10
END
NUMBER F_ANNO_ELAB 4
BEGIN
PROMPT 55 1 "Anno "
FLAG "D"
END
GROUPBOX DLG_NULL 68 10
BEGIN
PROMPT 1 4 "Estremi dei documenti da elaborare:"
END
RADIOBUTTON F_ORDINAMENTO 16
BEGIN
PROMPT 3 5 "Ordinamento per"
ITEM "C|Clienti"
MESSAGE ENABLE,1@|CLEAR,2@|CLEAR,3@
ITEM "A|Agenti"
MESSAGE CLEAR,1@|ENABLE,2@|CLEAR,3@
ITEM "Z|Zone"
MESSAGE CLEAR,1@|CLEAR,2@|ENABLE,3@
END
NUMBER F_CODICE_CLIFO_DA 6
BEGIN
PROMPT 20 6 "da codice cliente "
FLAG "UR"
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODICE_CLIFO_DA
DISPLAY "Codice cliente," CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICE_CLIFO_DA CODCF
GROUP 1
END
NUMBER F_CODICE_CLIFO_A 6
BEGIN
PROMPT 55 6 "a "
FLAG "UR"
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODICE_CLIFO_A
COPY DISPLAY F_CODICE_CLIFO_DA
OUTPUT F_CODICE_CLIFO_A CODCF
NUM_EXPR #F_CODICE_CLIFO_A>=#F_CODICE_CLIFO_DA
WARNING "Digitare un codice maggiore o uguale al campo 'da codice cliente'"
GROUP 1
END
STRING F_CODICE_AGENTE_DA 5
BEGIN
PROMPT 20 7 "da codice agente "
FLAG "UR"
USE AGE
INPUT CODTAB F_CODICE_AGENTE_DA
DISPLAY "Codice agente" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE_AGENTE_DA CODTAB
GROUP 2
END
STRING F_CODICE_AGENTE_A 5
BEGIN
PROMPT 55 7 "a "
FLAG "UR"
USE AGE
INPUT CODTAB F_CODICE_AGENTE_A
COPY DISPLAY F_CODICE_AGENTE_DA
OUTPUT F_CODICE_AGENTE_A CODTAB
NUM_EXPR #F_CODICE_AGENTE_A>=#F_CODICE_AGENTE_DA
WARNING "Digitare un codice maggiore o uguale al campo 'da codice agente'"
GROUP 2
END
STRING F_CODICE_ZONA_DA 2
BEGIN
PROMPT 20 8 "da codice zona "
FLAG "UR"
USE ZON
INPUT CODTAB F_CODICE_ZONA_DA
DISPLAY "Codice Zona" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE_ZONA_DA CODTAB
GROUP 3
END
STRING F_CODICE_ZONA_A 2
BEGIN
PROMPT 55 8 "a "
FLAG "UR"
USE ZON
INPUT CODTAB F_CODICE_ZONA_A
COPY DISPLAY F_CODICE_ZONA_DA
OUTPUT F_CODICE_ZONA_A CODTAB
STR_EXPR #F_CODICE_ZONA_A>=#F_CODICE_ZONA_DA
WARNING "Digitare un codice maggiore o uguale al campo 'da codice zona'"
GROUP 3
END
DATE F_DATA_DOCUMENTO_DA
BEGIN
PROMPT 20 10 "da data documento "
WARNING "E' necessario specificare una data"
END
DATE F_DATA_DOCUMENTO_A
BEGIN
PROMPT 55 10 "a "
VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_DA
WARNING "Specificare una data maggiore o uguale a 'da data documento'"
END
STRING F_CODICE_NUMERAZIONE 4
BEGIN
PROMPT 20 11 "Codice numerazione "
FLAG "UZ"
USE %NUM
INPUT CODTAB F_CODICE_NUMERAZIONE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE_NUMERAZIONE CODTAB
CHECKTYPE NORMAL
MESSAGE EMPTY CLEAR,F_NUMERO_DOCUMENTO_DA|CLEAR,F_NUMERO_DOCUMENTO_A
MESSAGE ENABLE,F_NUMERO_DOCUMENTO_DA|ENABLE,F_NUMERO_DOCUMENTO_A
END
NUMBER F_NUMERO_DOCUMENTO_DA 7
BEGIN
PROMPT 20 12 "da numero documento "
USE LF_DOC
JOIN %TIP ALIAS 104 INTO CODTAB=TIPODOC
JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF=CODCF
INPUT PROVV "D"
INPUT ANNO F_ANNO_ELAB SELECT
INPUT CODNUM F_CODICE_NUMERAZIONE SELECT
INPUT NDOC F_NUMERO_DOCUMENTO_DA
DISPLAY "Numero" NDOC
DISPLAY "Tipo@50" 104@->S0
DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
OUTPUT F_NUMERO_DOCUMENTO_DA NDOC
END
NUMBER F_NUMERO_DOCUMENTO_A 7
BEGIN
PROMPT 55 12 "a "
COPY USE F_NUMERO_DOCUMENTO_DA
INPUT PROVV "D"
INPUT ANNO F_ANNO_ELAB SELECT
INPUT CODNUM F_CODICE_NUMERAZIONE SELECT
INPUT NDOC F_NUMERO_DOCUMENTO_A
COPY DISPLAY F_NUMERO_DOCUMENTO_DA
OUTPUT F_NUMERO_DOCUMENTO_A NDOC
NUM_EXPR (#THIS_FIELD==0)||(#THIS_FIELD>=#F_NUMERO_DOCUMENTO_DA)
WARNING "Specificare un numero documento superiore a quello di partenza"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK