Patch level : 12.0 no-patch

Files correlati     : cg
Commento            : 
- Aggiornata maschera clienti/fornitori: Rinominato "Stato" con "Codice ISO" e aggiunto un campo con la descrizione dello stato così facendo è stato aggiunto anche la ricerca per nome stato
- Aggiornata maschera clienti/fornitori occasionali: Tolti tutti i controlli a db e reso zerofilled il CAP

git-svn-id: svn://10.65.10.50/branches/R_10_00@24141 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-10-11 08:26:43 +00:00
parent dcf68b94ec
commit 9635ef7268
3 changed files with 28 additions and 9 deletions

View File

@ -14,6 +14,7 @@
#define F_CAPCF 108 #define F_CAPCF 108
#define F_COFI 109 #define F_COFI 109
#define F_STATOPAIV 110 #define F_STATOPAIV 110
#define F_STATOPAIVSTR 128
#define F_PAIV 111 #define F_PAIV 111
#define F_TIPOPERS 112 #define F_TIPOPERS 112
#define F_ALLEG 113 #define F_ALLEG 113

View File

@ -126,7 +126,7 @@ END
STRING F_STATOPAIV 2 STRING F_STATOPAIV 2
BEGIN BEGIN
PROMPT 42 4 "Stato " PROMPT 42 4 "Codice ISO "
FIELD STATOPAIV FIELD STATOPAIV
HELP "Codice ISO dello stato" HELP "Codice ISO dello stato"
FLAGS "U" FLAGS "U"
@ -135,18 +135,35 @@ BEGIN
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_STATOPAIV CODTAB OUTPUT F_STATOPAIV CODTAB
OUTPUT F_STATOPAIVSTR S0
CHECKTYPE NORMAL
END
STRING F_STATOPAIVSTR 25 15
BEGIN
PROMPT 60 4 ""
HELP "Codice ISO dello stato"
FLAGS "U"
USE %SCE
KEY 2
INPUT S0 F_STATOPAIVSTR
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_STATOPAIV CODTAB
OUTPUT F_STATOPAIVSTR S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_PAIV 12 STRING F_PAIV 12
BEGIN BEGIN
PROMPT 42 5 "Codice " PROMPT 42 5 "P.IVA "
FIELD PAIV FIELD PAIV
KEY 5 KEY 5
USE LF_CLIFO KEY 5 USE LF_CLIFO KEY 5
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT STATOPAIV F_STATOPAIV INPUT STATOPAIV F_STATOPAIV
INPUT PAIV F_PAIV INPUT PAIV F_PAIV
DISPLAY "ISO@3" STATOPAIV
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA@11" PAIV
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Codice@R" CODCF DISPLAY "Codice@R" CODCF

View File

@ -62,7 +62,7 @@ BEGIN
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT O_STATOPAIV CODTAB OUTPUT O_STATOPAIV CODTAB
CHECKTYPE NORMAL //CHECKTYPE NORMAL
END END
STRING O_PAIV 12 STRING O_PAIV 12
@ -100,7 +100,7 @@ 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
@ -118,7 +118,7 @@ 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
@ -127,6 +127,7 @@ BEGIN
PROMPT 56 7 "C.A.P. " PROMPT 56 7 "C.A.P. "
HELP "CAP della residenza della persona" HELP "CAP della residenza della persona"
FIELD CAP FIELD CAP
FLAGS "ZF"
END END
STRING O_DENCOM 50 STRING O_DENCOM 50
@ -140,7 +141,7 @@ BEGIN
DISPLAY "Stato" STATO DISPLAY "Stato" STATO
DISPLAY "Codice@10" COM DISPLAY "Codice@10" COM
COPY OUTPUT O_COMUNE COPY OUTPUT O_COMUNE
CHECKTYPE NORMAL //CHECKTYPE NORMAL
ADD RUN ba4 -0 ADD RUN ba4 -0
END END
@ -172,7 +173,7 @@ BEGIN
INPUT CODTAB O_STATONAS INPUT CODTAB O_STATONAS
COPY DISPLAY O_STATO COPY DISPLAY O_STATO
OUTPUT O_STATONAS CODTAB OUTPUT O_STATONAS CODTAB
CHECKTYPE NORMAL //CHECKTYPE NORMAL
END END
STRING O_COMUNENAS 4 STRING O_COMUNENAS 4
@ -186,7 +187,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
@ -196,7 +197,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
ENDPAGE ENDPAGE