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

Patch level : 12.00 1330

Browse Source 
Files correlati     : cg0700a.msk ve0100o.msk f18.dir f18.trr

Commento:

Sistemati clienti occasionali
This commit is contained in:
Alessandro Bonazzi 2024-08-28 22:38:59 +02:00
parent 5b5612fde1
commit ae9859ed5c
2 changed files with 37 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/cg/cg0700a.h
View File

@ -15,15 +15,16 @@
#define O_STATONAS 112 #define O_STATONAS 112
#define O_COMUNENAS 113 #define O_COMUNENAS 113
#define O_DENCOMNAS 114 #define O_DENCOMNAS 114
#define O_STATOPAIV 115 #define O_LOCALITA 115
#define O_REFERENTE 116 #define O_STATOPAIV 116
#define O_BYMAIL 117 #define O_REFERENTE 117
#define O_MAIL 118 #define O_BYMAIL 118
#define O_DOCMAIL 119 #define O_MAIL 119
#define O_PEC 120 #define O_DOCMAIL 120
#define O_PTEL 121 #define O_PEC 121
#define O_TEL 122 #define O_PTEL 122
#define O_PTEL2 123 #define O_TEL 123
#define O_TEL2 124 #define O_PTEL2 124
#define O_PTEL3 125 #define O_TEL2 125
#define O_TEL3 126 #define O_PTEL3 126
#define O_TEL3 127

41
src/cg/cg0700a.uml
View File

@ -72,7 +72,7 @@ BEGIN
VALIDATE PI_FUNC O_STATOPAIV VALIDATE PI_FUNC O_STATOPAIV
END END
GROUPBOX DLG_NULL 71 5 GROUPBOX DLG_NULL 80 5
BEGIN BEGIN
PROMPT 1 5 "@bDati residenza" PROMPT 1 5 "@bDati residenza"
END END
@ -100,12 +100,12 @@ BEGIN
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT O_STATO CODTAB OUTPUT O_STATO CODTAB
//CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING O_COMUNE 4 STRING O_COMUNE 4
BEGIN BEGIN
PROMPT 27 7 "Comune " PROMPT 15 7 "Comune "
FIELD COM FIELD COM
FLAGS "U" FLAGS "U"
USE LF_COMUNI USE LF_COMUNI
@ -118,21 +118,13 @@ BEGIN
OUTPUT O_COMUNE COM OUTPUT O_COMUNE COM
OUTPUT O_DENCOM DENCOM OUTPUT O_DENCOM DENCOM
OUTPUT O_CAP CAPCOM OUTPUT O_CAP CAPCOM
//CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN ba4 -0 ADD RUN ba4 -0
END END
NUMBER O_CAP 5 STRING O_DENCOM 50 45
BEGIN BEGIN
PROMPT 56 7 "C.A.P. " PROMPT 30 7 ""
HELP "CAP della residenza della persona"
FIELD CAP
FLAGS "ZF"
END
STRING O_DENCOM 50
BEGIN
PROMPT 2 8 "Denominazione "
HELP "Nome del comune di residenza della persona" HELP "Nome del comune di residenza della persona"
USE LF_COMUNI KEY 2 USE LF_COMUNI KEY 2
INPUT STATO O_STATO INPUT STATO O_STATO
@ -145,7 +137,22 @@ BEGIN
ADD RUN ba4 -0 ADD RUN ba4 -0
END END
GROUPBOX DLG_NULL 71 4 STRING O_LOCALITA 35
BEGIN
PROMPT 2 8 "Localita' "
FIELD LOCALITA
HELP "Localita' del recapito"
END
NUMBER O_CAP 5
BEGIN
PROMPT 56 8 "C.A.P. "
HELP "CAP della residenza della persona"
FIELD CAP
FLAGS "ZF"
END
GROUPBOX DLG_NULL 80 4
BEGIN BEGIN
PROMPT 1 10 "@bDati nascita" PROMPT 1 10 "@bDati nascita"
END END
@ -187,7 +194,7 @@ BEGIN
COPY DISPLAY O_COMUNE COPY DISPLAY O_COMUNE
OUTPUT O_COMUNENAS COM OUTPUT O_COMUNENAS COM
OUTPUT O_DENCOMNAS DENCOM OUTPUT O_DENCOMNAS DENCOM
//CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING O_DENCOMNAS 50 STRING O_DENCOMNAS 50
@ -197,7 +204,7 @@ BEGIN
INPUT DENCOM O_DENCOMNAS INPUT DENCOM O_DENCOMNAS
COPY DISPLAY O_DENCOM COPY DISPLAY O_DENCOM
COPY OUTPUT O_COMUNENAS COPY OUTPUT O_COMUNENAS
//CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING O_REFERENTE 50 STRING O_REFERENTE 50