Corretto errore 004033

git-svn-id: svn://10.65.10.50/trunk@1962 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-10-16 14:48:23 +00:00
parent d42e610d21
commit 58045a3d3d
2 changed files with 46 additions and 45 deletions

View File

@ -796,7 +796,7 @@ DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODABI CODTAB[1,5]
OUTPUT F_CODCAB CODTAB[6,10]
CHECKTYPE NORMAL
// CHECKTYPE NORMAL
END
NUMBER F_CODCAB 5
@ -808,6 +808,7 @@ FLAGS "Z"
COPY ALL F_CODABI
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_CODABI
WARNING "Codice CAB assente"
END
NUMBER F_UFFCONC 3

View File

@ -22,15 +22,15 @@ PAGE "Persone Giuridiche" -1 -1 77 20
LIST DLG_NULL 1
BEGIN
FIELD LF_ANAG->TIPOA
ITEM "G|Giuridica"
FLAGS "D"
KEY 1 2 3
ITEM "G|Giuridica"
FLAGS "D"
KEY 1 2 3
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 "Persone giuridiche"
FLAGS "R"
FLAGS "R"
END
NUMBER FLD_CODANAGR 5
@ -189,7 +189,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 "Persone giuridiche"
FLAGS "R"
FLAGS "R"
END
NUMBER DLG_NULL 5
@ -356,30 +356,30 @@ END
STRING FLD_AG1_COMRF_COMUNI_PROVCOM 5
BEGIN
PROMPT 38 13 "Provincia "
FLAGS "D"
PROMPT 38 13 "Provincia "
FLAGS "D"
END
STRING FLD_AG1_CAPRF 5
BEGIN
PROMPT 56 13 "CAP "
FIELD LF_ANAG->CAPRF
HELP "CAP del comune domicilio fiscale della ditta"
PROMPT 56 13 "CAP "
FIELD LF_ANAG->CAPRF
HELP "CAP del comune domicilio fiscale della ditta"
END
STRING FLD_AG1_COMRF_COMUNI_DENCOM 50
BEGIN
PROMPT 9 14 ": Denom. "
HELP "Nome del comune residenza fiscale"
USE LF_COMUNI KEY 2 SELECT STATO==""
COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
INPUT DENCOM FLD_AG1_COMRF_COMUNI_DENCOM
COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
OUTPUT FLD_AG1_COMRF COM
OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AG1_CAPRF CAPCOM
ADD RUN ba4 -0
PROMPT 9 14 ": Denom. "
HELP "Nome del comune residenza fiscale"
USE LF_COMUNI KEY 2 SELECT STATO==""
COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
INPUT DENCOM FLD_AG1_COMRF_COMUNI_DENCOM
COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
OUTPUT FLD_AG1_COMRF COM
OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AG1_CAPRF CAPCOM
ADD RUN ba4 -0
END
BOOLEAN F_VARDF
@ -406,7 +406,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 "Persone giuridiche"
FLAGS "R"
FLAGS "R"
END
NUMBER DLG_NULL 5
@ -434,8 +434,8 @@ BEGIN
PROMPT 2 5 "Indirizzo "
FIELD LF_ANAG->INDCORR
HELP "Indirizzo a cui mandare la corrispondenza"
WARNING "Completare l'indirizzo di corrispondenza"
VALIDATE EMPTYCOPY_FUNC FLD_AG2_INDRES
WARNING "Completare l'indirizzo di corrispondenza"
VALIDATE EMPTYCOPY_FUNC FLD_AG2_INDRES
END
STRING FLD_AG2_CIVCORR 10
@ -443,7 +443,7 @@ BEGIN
PROMPT 56 5 "N."
FIELD LF_ANAG->CIVCORR
HELP "Numero civico a cui mandare la corrispondenza"
VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
END
STRING F_LOCCORR 35
@ -455,7 +455,7 @@ END
NUMBER FLD_AG2_STATOCORR 3
BEGIN
PROMPT 2 7 "Comune : Stato "
PROMPT 2 7 "Comune : Stato "
FIELD LF_ANAG->STATOCORR
FLAGS "Z"
USE %STA
@ -503,23 +503,23 @@ END
STRING FLD_AG2_COMCORR_COMUNI_DENCOM 50
BEGIN
PROMPT 9 9 ": Denom. "
HELP "Nome del comune a cui mandare la corrispondenza"
COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
INPUT DENCOM FLD_AG2_COMCORR_COMUNI_DENCOM
COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
OUTPUT FLD_AG2_STATOCORR STATO
OUTPUT FLD_AG2_COMCORR COM
OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM
OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AG2_CAPCORR CAPCOM
ADD RUN ba4 -0
PROMPT 9 9 ": Denom. "
HELP "Nome del comune a cui mandare la corrispondenza"
COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
INPUT DENCOM FLD_AG2_COMCORR_COMUNI_DENCOM
COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
OUTPUT FLD_AG2_STATOCORR STATO
OUTPUT FLD_AG2_COMCORR COM
OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM
OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AG2_CAPCORR CAPCOM
ADD RUN ba4 -0
VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES_COMUNI_DENCOM
END
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 0 11 "Telefoni"
PROMPT 0 11 "Telefoni"
END
STRING FLD_AG2_PTELRF 10
@ -571,7 +571,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 "Persone giuridiche"
FLAGS "R"
FLAGS "R"
END
NUMBER DLG_NULL 5
@ -681,7 +681,7 @@ DATE FLD_AG3_DATATAPPBI
BEGIN
PROMPT 2 10 "Data termine "
FIELD LF_ANAGGIU->DATATAPPBI
HELP "Data termine dell'anno che compare sul bilancio"
HELP "Data termine dell'anno che compare sul bilancio"
END
BOOLEAN CHK_AGIU2_VARDEN
@ -799,7 +799,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 "Persone giuridiche"
FLAGS "R"
FLAGS "R"
END
NUMBER DLG_NULL 5
@ -914,7 +914,7 @@ BEGIN
DISPLAY "Descrizione@50" S0
OUTPUT F_CODABI CODTAB[1,5]
OUTPUT F_CODCAB CODTAB[6,10]
CHECKTYPE NORMAL
// CHECKTYPE NORMAL
END
NUMBER F_CODCAB 5
@ -948,7 +948,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 "Persone giuridiche"
FLAGS "R"
FLAGS "R"
END
NUMBER DLG_NULL 5
@ -1107,7 +1107,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 "Persone giuridiche"
FLAGS "R"
FLAGS "R"
END
NUMBER DLG_NULL 5