Patch level : 12.0 298
Files correlati : Commento : Riaggiunto il modulo GV Gestione Versamenti F24 git-svn-id: svn://10.65.10.50/branches/R_10_00@23393 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
bonazzi
parent
8805cfe805
commit
8a53ed4136
BIN
src/gv/CBI-F24-001_6_15.pdf
Normal file
BIN
src/gv/CBI-F24-001_6_15.pdf
Normal file
Binary file not shown.
BIN
src/gv/Confronto CBI-F24-001_6_15.pdf
Normal file
BIN
src/gv/Confronto CBI-F24-001_6_15.pdf
Normal file
Binary file not shown.
BIN
src/gv/F24.png
BIN
src/gv/F24.png
Binary file not shown.
|
Before Width: | Height: | Size: 49 KiB After Width: | Height: | Size: 124 KiB |
BIN
src/gv/Tabella_codici_identificativi_29_03_2016.pdf
Normal file
BIN
src/gv/Tabella_codici_identificativi_29_03_2016.pdf
Normal file
Binary file not shown.
@ -1,3 +1,3 @@
|
||||
158
|
||||
0
|
||||
$righef24|0|0|250|0|Righe di delega F24|||
|
||||
$righef24|1|1|259|0|Righe di delega F24|||
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
158
|
||||
36
|
||||
39
|
||||
PROGR|3|6|0|Progressivo riga
|
||||
F24|3|6|0|Numero F24 a cui la riga e' associata
|
||||
SEZIONE|1|1|0|Sezione (Erario, INPS etc)
|
||||
@ -7,6 +7,9 @@ INDICE|1|1|0|indice della sezione
|
||||
TRIBUTO|1|4|0|Codice tributo
|
||||
TIPOINTEST|1|1|0|Tipo intestatario (D, G, F, C)
|
||||
INTEST|3|6|0|Codice intestatario
|
||||
TIPOCOOBB|1|1|0|Tipo Coobligato (G, F)
|
||||
COOBB|1|6|0|Codice coobbligato
|
||||
CODID|1|2|0|Codice identificativo coobbligato
|
||||
TIPO|1|1|0|Tipo persona (G, F, C)
|
||||
CODICE|3|6|0|Codice persona
|
||||
DESCR|1|50|0|Descrizione riga F24
|
||||
|
||||
@ -2,7 +2,7 @@
|
||||
<report name="gv0500" lpi="6">
|
||||
<description>Stampa F24</description>
|
||||
<font face="Courier New" size="12" />
|
||||
<section type="Head" height="18">
|
||||
<section type="Head" height="16" pattern="1">
|
||||
<field x="4" type="Numero" hidden="1" align="right" width="5" pattern="1">
|
||||
<source>RIGHEF24.ABI</source>
|
||||
<postscript description="H0.0 POSTSCRIPT">MESSAGE COPY,F1.101</postscript>
|
||||
@ -11,7 +11,7 @@
|
||||
<source>RIGHEF24.CAB</source>
|
||||
<postscript description="H0.0 POSTSCRIPT">MESSAGE COPY,F1.102</postscript>
|
||||
</field>
|
||||
<field x="47.5" y="3" type="Stringa" valign="bottom" width="35" height="2" pattern="1">
|
||||
<field x="47.5" y="1" type="Stringa" valign="bottom" width="35" height="2" pattern="1">
|
||||
<prescript description="H0.0 PRESCRIPT">"S0"
|
||||
"'"
|
||||
"ABI" @ +
|
||||
@ -19,7 +19,7 @@
|
||||
"%BAN"
|
||||
TABLE_READ</prescript>
|
||||
</field>
|
||||
<field x="47.5" y="5" type="Stringa" valign="bottom" width="24" height="2" pattern="1">
|
||||
<field x="47.5" y="3" type="Stringa" valign="bottom" width="24" height="2" pattern="1">
|
||||
<prescript description="H0.0 PRESCRIPT">"S0"
|
||||
"'"
|
||||
"ABI" @ +
|
||||
@ -28,14 +28,30 @@ TABLE_READ</prescript>
|
||||
"%BAN"
|
||||
TABLE_READ</prescript>
|
||||
</field>
|
||||
<field x="75" y="6" type="Stringa" width="5" pattern="1">
|
||||
<field x="75" y="4" type="Stringa" width="5" pattern="1">
|
||||
<prescript description="H0.0 PRESCRIPT">"DENCOM!#103=PROVCOM"
|
||||
"COM="
|
||||
"S5" @ +
|
||||
13
|
||||
ISAM_READ</prescript>
|
||||
</field>
|
||||
<field x="16" y="9" type="Stringa" valign="bottom" hidden="1" bg_color="#FFFF80" width="32" pattern="1" text="# # # # # # # # # # # # # # # #">
|
||||
<field x="16" y="7" type="Stringa" valign="bottom" width="32" pattern="1" text="# # # # # # # # # # # # # # # #">
|
||||
<source>ANAGR.COFI</source>
|
||||
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = NEGATE IF
|
||||
SHOW
|
||||
#THIS @
|
||||
STRLEN
|
||||
11 = IF
|
||||
#THIS @
|
||||
" " +
|
||||
#THIS !
|
||||
THEN
|
||||
ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="16" y="7" type="Stringa" valign="bottom" hidden="1" bg_color="#FFFF80" width="32" pattern="1" text="# # # # # # # # # # # # # # # #">
|
||||
<source>CLIFO.COFI</source>
|
||||
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = IF
|
||||
@ -52,23 +68,7 @@ ELSE
|
||||
THEN
|
||||
</prescript>
|
||||
</field>
|
||||
<field x="16" y="9" type="Stringa" valign="bottom" width="32" pattern="1" text="# # # # # # # # # # # # # # # #">
|
||||
<source>ANAGR.COFI</source>
|
||||
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = NEGATE IF
|
||||
SHOW
|
||||
#THIS @
|
||||
STRLEN
|
||||
11 = IF
|
||||
#THIS @
|
||||
" " +
|
||||
#THIS !
|
||||
THEN
|
||||
ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="16" y="11" type="Stringa" hidden="1" width="30" pattern="1">
|
||||
<field x="16" y="9" type="Stringa" hidden="1" width="30" pattern="1">
|
||||
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = IF
|
||||
SHOW
|
||||
@ -81,7 +81,7 @@ ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="16" y="11" type="Stringa" width="30" pattern="1">
|
||||
<field x="16" y="9" type="Stringa" width="30" pattern="1">
|
||||
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = NEGATE IF
|
||||
SHOW
|
||||
@ -94,20 +94,7 @@ ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="58.5" y="11" type="Stringa" hidden="1" width="20" pattern="1">
|
||||
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = IF
|
||||
SHOW
|
||||
"CLIFO.RAGSOC" @
|
||||
30
|
||||
20
|
||||
STRMID
|
||||
#THIS !
|
||||
ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="58.5" y="11" type="Stringa" width="20" pattern="1">
|
||||
<field x="58.5" y="9" type="Stringa" width="20" pattern="1">
|
||||
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = NEGATE IF
|
||||
SHOW
|
||||
@ -120,7 +107,20 @@ ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="15.5" y="13" type="Numero" align="right" width="4" pattern="1" hide_zero="1" text="# #">
|
||||
<field x="58.5" y="9" type="Stringa" hidden="1" width="20" pattern="1">
|
||||
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = IF
|
||||
SHOW
|
||||
"CLIFO.RAGSOC" @
|
||||
30
|
||||
20
|
||||
STRMID
|
||||
#THIS !
|
||||
ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="15.5" y="11" type="Numero" align="right" width="4" pattern="1" hide_zero="1" text="# #">
|
||||
<prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
|
||||
DUP
|
||||
"" = IF
|
||||
@ -143,7 +143,7 @@ STRLEN
|
||||
#THIS !
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="20" y="13" type="Array" width="4" pattern="1">
|
||||
<field x="20" y="11" type="Array" width="4" pattern="1">
|
||||
<prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
|
||||
DUP
|
||||
"" = IF
|
||||
@ -174,7 +174,7 @@ THEN</prescript>
|
||||
<li Value="1 2" Code="T" />
|
||||
</list>
|
||||
</field>
|
||||
<field x="23.5" y="13" type="Numero" align="right" width="8" pattern="1" hide_zero="1" text="# # # #">
|
||||
<field x="23.5" y="11" type="Numero" align="right" width="8" pattern="1" hide_zero="1" text="# # # #">
|
||||
<prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
|
||||
DUP
|
||||
"" = IF
|
||||
@ -197,7 +197,16 @@ STRLEN
|
||||
#THIS !
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="52" y="15" type="Stringa" hidden="1" width="30" height="2" pattern="1">
|
||||
<field x="52" y="13" type="Stringa" width="30" height="2" pattern="1">
|
||||
<source>ANAGR.INDRES+", "+ANAGR.CIVRES</source>
|
||||
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = NEGATE IF
|
||||
SHOW
|
||||
ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="52" y="13" type="Stringa" hidden="1" width="30" height="2" pattern="1">
|
||||
<source>CLIFO.INDCF+", "+CLIFO.CIVCF</source>
|
||||
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = IF
|
||||
@ -206,14 +215,11 @@ ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="52" y="15" type="Stringa" width="30" height="2" pattern="1">
|
||||
<source>ANAGR.INDRES+", "+ANAGR.CIVRES</source>
|
||||
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = NEGATE IF
|
||||
SHOW
|
||||
ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
<field x="26" y="15" type="Stringa" valign="bottom" width="32" pattern="1" text="# # # # # # # # # # # # # # # #">
|
||||
<source>201@.COFI</source>
|
||||
</field>
|
||||
<field x="76" y="15" type="Stringa" width="4" pattern="1" text="# #">
|
||||
<source>CODID</source>
|
||||
</field>
|
||||
<field y="19" type="Array" hidden="1" width="1" pattern="1">
|
||||
<source>RIGHEF24.TIPO</source>
|
||||
@ -223,7 +229,7 @@ THEN</prescript>
|
||||
<li Value="G" Code="G">MESSAGE SHOW,1@ MESSAGE HIDE,2@</li>
|
||||
</list>
|
||||
</field>
|
||||
<field x="16" y="15" type="Stringa" hidden="1" width="30" height="2" id="101" pattern="1">
|
||||
<field x="16" y="13" type="Stringa" hidden="1" width="30" height="2" id="101" pattern="1">
|
||||
<prescript description="H0.101 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = IF
|
||||
SHOW
|
||||
@ -243,7 +249,7 @@ ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="16" y="15" type="Stringa" width="30" height="2" id="102" pattern="1">
|
||||
<field x="16" y="13" type="Stringa" width="30" height="2" id="102" pattern="1">
|
||||
<prescript description="H0.102 PRESCRIPT">#THIS "TIPO" @
|
||||
"C" = NEGATE IF
|
||||
SHOW
|
||||
@ -256,9 +262,9 @@ ELSE
|
||||
HIDE
|
||||
THEN</prescript>
|
||||
</field>
|
||||
<field x="47" y="15" type="Stringa" width="4" id="103" pattern="1" text="# #" />
|
||||
<field x="34.5" y="13" type="Stringa" width="1" id="104" pattern="1" />
|
||||
<field x="38.5" y="13" type="Stringa" width="39" id="105" pattern="1">
|
||||
<field x="47" y="13" type="Stringa" width="4" id="103" pattern="1" text="# #" />
|
||||
<field x="34.5" y="11" type="Stringa" width="1" id="104" pattern="1" />
|
||||
<field x="38.5" y="11" type="Stringa" width="39" id="105" pattern="1">
|
||||
<prescript description="H0.105 PRESCRIPT">"DENCOM!#106=PROVCOM"
|
||||
"COM="
|
||||
"ANAGR.COFI" @
|
||||
@ -279,9 +285,9 @@ THEN
|
||||
ISAM_READ
|
||||
</prescript>
|
||||
</field>
|
||||
<field x="76.5" y="13" type="Stringa" width="4" id="106" pattern="1" text="# #" />
|
||||
<field x="76.5" y="11" type="Stringa" width="4" id="106" pattern="1" text="# #" />
|
||||
</section>
|
||||
<section type="Head" level="1">
|
||||
<section type="Head" level="1" height="2" pattern="1">
|
||||
<prescript description="H1 PRESCRIPT">VARIABLE HB0
|
||||
VARIABLE HB1
|
||||
VARIABLE HB2
|
||||
@ -301,7 +307,7 @@ VARIABLE HS
|
||||
TOT_SEC_HEIGHT
|
||||
HS !</prescript>
|
||||
</section>
|
||||
<section type="Head" level="2" height="2">
|
||||
<section type="Head" level="2" height="2" pattern="1">
|
||||
<groupby>SEZIONE</groupby>
|
||||
<prescript description="H2 PRESCRIPT">"F2"
|
||||
"HB"
|
||||
@ -328,12 +334,15 @@ SET_SEC_HEIGHT
|
||||
LS !
|
||||
</prescript>
|
||||
</section>
|
||||
<section type="Body">
|
||||
<section type="Body" pattern="1">
|
||||
<field type="Immagine" width="83.7" height="70" pattern="1">
|
||||
<source>"f24.png"</source>
|
||||
</field>
|
||||
<field x="44" y="41" type="Stringa" width="36" pattern="1" text="# # # # # # # # # # # # # # # # # #">
|
||||
<source>IDENTOP</source>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Body" level="1">
|
||||
<section type="Body" level="1" pattern="1">
|
||||
<condition>SEZIONE='E'</condition>
|
||||
<postscript description="B1 POSTSCRIPT">"F2"
|
||||
DECR_SEC_HEIGHT</postscript>
|
||||
@ -359,7 +368,7 @@ DECR_SEC_HEIGHT</postscript>
|
||||
</prescript>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Body" level="2" bg_color="#FFFF80">
|
||||
<section type="Body" level="2" bg_color="#FFFF80" pattern="1">
|
||||
<condition>SEZIONE='I'</condition>
|
||||
<postscript description="B2 POSTSCRIPT">"F2"
|
||||
DECR_SEC_HEIGHT</postscript>
|
||||
@ -391,7 +400,7 @@ DECR_SEC_HEIGHT</postscript>
|
||||
</prescript>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Body" level="3">
|
||||
<section type="Body" level="3" pattern="1">
|
||||
<condition>SEZIONE=='R'</condition>
|
||||
<postscript description="B3 POSTSCRIPT">"F2"
|
||||
DECR_SEC_HEIGHT</postscript>
|
||||
@ -420,7 +429,7 @@ DECR_SEC_HEIGHT</postscript>
|
||||
</prescript>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Body" level="4">
|
||||
<section type="Body" level="4" pattern="1">
|
||||
<condition>SEZIONE=='L'</condition>
|
||||
<postscript description="B4 POSTSCRIPT">"F2"
|
||||
DECR_SEC_HEIGHT</postscript>
|
||||
@ -474,7 +483,7 @@ LOOP
|
||||
</prescript>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Body" level="5">
|
||||
<section type="Body" level="5" pattern="1">
|
||||
<condition>SEZIONE=='N'</condition>
|
||||
<postscript description="B5 POSTSCRIPT">"F2"
|
||||
DECR_SEC_HEIGHT</postscript>
|
||||
@ -506,15 +515,15 @@ DECR_SEC_HEIGHT</postscript>
|
||||
</prescript>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Foot" />
|
||||
<section y="58" type="Foot" level="1" bg_color="#80FF80">
|
||||
<section type="Foot" pattern="1" />
|
||||
<section y="58" type="Foot" level="1" bg_color="#80FF80" pattern="1">
|
||||
<field x="23.5" y="6.75" type="Numero" align="right" width="5" id="101" pattern="1" text="@@@@@" />
|
||||
<field x="36" y="6.75" type="Numero" align="right" width="5" id="102" pattern="1" text="@@@@@" />
|
||||
<field x="69.5" y="0.87" type="Valuta" align="right" bg_color="#FF8080" width="11" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
|
||||
<postscript description="F1.103 POSTSCRIPT">0 #THIS !</postscript>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Foot" level="2" bg_color="#80FF80" height="5">
|
||||
<section type="Foot" level="2" bg_color="#80FF80" height="5" pattern="1">
|
||||
<postscript description="F2 POSTSCRIPT">\ Ripristina l'altezza del footer
|
||||
"F2"
|
||||
"HB2" @
|
||||
@ -547,6 +556,7 @@ REP_MESSAGE_ALIGN_BOTTOM</prescript>
|
||||
<sql>USE RIGHEF24 KEY 5
|
||||
JOIN ANAGR INTO TIPOA==TIPO CODANAGR==CODICE
|
||||
JOIN CLIFO INTO TIPOCF==TIPO CODCF==CODICE
|
||||
JOIN ANAGR INTO TIPOA==TIPOCOOBB CODANAGR==COOBB ALIAS 201
|
||||
FROM F24=#DISTINTA
|
||||
TO F24=#DISTINTA</sql>
|
||||
<prescript description="PRESCRIPT">: SET_SEC_HEIGHT ( s h -- )
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
#define F_ABI 202
|
||||
#define F_CAB 203
|
||||
#define F_DESABI 204
|
||||
#define F_DESCAB 205
|
||||
#define F_ABI 202
|
||||
#define F_CAB 203
|
||||
#define F_DESABI 204
|
||||
#define F_DESCAB 205
|
||||
|
||||
#define F_TIPOINTEST 211
|
||||
#define F_CLIFO 212
|
||||
#define F_PERSON 213
|
||||
#define F_DISTINTA 214
|
||||
#define F_PROGR 215
|
||||
#define F_TIPO 216
|
||||
#define F_TIPOINTEST 211
|
||||
#define F_CLIFO 212
|
||||
#define F_PERSON 213
|
||||
#define F_DISTINTA 214
|
||||
#define F_PROGR 215
|
||||
#define F_TIPO 216
|
||||
#define F_RAGSOCA 219
|
||||
|
||||
@ -6,7 +6,7 @@ ENDPAGE
|
||||
|
||||
PAGE "F24" 0 0 0 -3
|
||||
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
GROUPBOX DLG_NULL 79 6
|
||||
BEGIN
|
||||
PROMPT 1 0 "@bSelezione"
|
||||
END
|
||||
@ -37,15 +37,15 @@ BEGIN
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
STRING F_DESABI 70 50
|
||||
STRING F_DESABI 70 60
|
||||
BEGIN
|
||||
PROMPT 26 1 ""
|
||||
PROMPT 17 1 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_DESCAB 70 50
|
||||
STRING F_DESCAB 70 60
|
||||
BEGIN
|
||||
PROMPT 26 2 ""
|
||||
PROMPT 17 2 ""
|
||||
USE BNP KEY 2
|
||||
JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB[1,5]
|
||||
JOIN %BAN ALIAS 884 INTO CODTAB==CODTAB
|
||||
@ -59,9 +59,9 @@ END
|
||||
|
||||
LIST F_TIPOINTEST 1 10
|
||||
BEGIN
|
||||
PROMPT 2 3 "Intestatario "
|
||||
ITEM " |Tutti" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON
|
||||
ITEM "D|Ditta" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON
|
||||
PROMPT 2 3 "Intestatario "
|
||||
ITEM " |Tutti" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON|CLEAR,F_RAGSOCA
|
||||
ITEM "D|Ditta" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON|CLEAR,F_RAGSOCA
|
||||
ITEM "C|Cliente" MESSAGE SHOW,F_CLIFO|HIDE,F_PERSON
|
||||
ITEM "F|Fisico" MESSAGE HIDE,F_CLIFO|SHOW,F_PERSON
|
||||
ITEM "G|Giuridico" MESSAGE HIDE,F_CLIFO|SHOW,F_PERSON
|
||||
@ -69,13 +69,14 @@ END
|
||||
|
||||
NUMBER F_CLIFO 6
|
||||
BEGIN
|
||||
PROMPT 36 3 ""
|
||||
PROMPT 38 3 ""
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CLIFO
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CLIFO CODCF
|
||||
OUTPUT F_RAGSOCA RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -1 C
|
||||
MESSAGE COPY,F_PERSON
|
||||
@ -83,20 +84,27 @@ END
|
||||
|
||||
NUMBER F_PERSON 6
|
||||
BEGIN
|
||||
PROMPT 36 3 ""
|
||||
PROMPT 38 3 ""
|
||||
USE LF_ANAG
|
||||
INPUT TIPOA F_TIPOINTEST
|
||||
INPUT CODANAGR F_PERSON
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_PERSON CODANAGR
|
||||
OUTPUT F_RAGSOCA RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN ba4 -1 #F_TIPOINTEST
|
||||
END
|
||||
|
||||
STRING F_RAGSOCA 50 58
|
||||
BEGIN
|
||||
PROMPT 2 4 "Ragione sociale"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST F_TIPO 1 10
|
||||
BEGIN
|
||||
PROMPT 2 4 "Tipo distinta "
|
||||
PROMPT 2 6 "Tipo distinta "
|
||||
ITEM "3|Tutte"
|
||||
ITEM "1|Da inviare"
|
||||
ITEM "2|Inviata"
|
||||
@ -104,7 +112,7 @@ END
|
||||
|
||||
NUMBER F_DISTINTA 6
|
||||
BEGIN
|
||||
PROMPT 2 6 "Distinta "
|
||||
PROMPT 2 9 "Distinta "
|
||||
FIELD F24
|
||||
KEY 2
|
||||
FLAGS "B"
|
||||
@ -113,7 +121,7 @@ END
|
||||
|
||||
NUMBER F_PROGR 6
|
||||
BEGIN
|
||||
PROMPT 22 6 "Progressivo "
|
||||
PROMPT 28 9 "Progressivo"
|
||||
FIELD PROGR
|
||||
FLAGS "B"
|
||||
KEY 2
|
||||
|
||||
115
src/gv/gv0500b.h
115
src/gv/gv0500b.h
@ -1,55 +1,60 @@
|
||||
#define F_FILTER 201
|
||||
#define F_ABI 202
|
||||
#define F_CAB 203
|
||||
#define F_DESABI 204
|
||||
#define F_DESCAB 205
|
||||
#define F_FILTER 201
|
||||
#define F_ABI 202
|
||||
#define F_CAB 203
|
||||
#define F_DESABI 204
|
||||
#define F_DESCAB 205
|
||||
|
||||
#define F_TIPOINTEST 211
|
||||
#define F_CLIFO 212
|
||||
#define F_PERSON 213
|
||||
#define F_DISTINTA 214
|
||||
#define F_PROGR 215
|
||||
#define F_TIPO 216
|
||||
#define F_DATAVERS 217
|
||||
#define F_TIPOINTEST 211
|
||||
#define F_CLIFO 212
|
||||
#define F_PERSON 213
|
||||
#define F_DISTINTA 214
|
||||
#define F_PROGR 215
|
||||
#define F_TIPO 216
|
||||
#define F_DATAVERS 217
|
||||
#define F_TIPOINTEST2 218
|
||||
#define F_PERSON2 219
|
||||
#define F_CODID 220
|
||||
#define F_RAGSOC2 221
|
||||
#define F_IDOP 222
|
||||
|
||||
#define F_COFI 301
|
||||
#define F_RAGSOC 302
|
||||
#define F_CONT 303
|
||||
#define F_STAMPA 304
|
||||
#define F_COFI 301
|
||||
#define F_RAGSOC 302
|
||||
#define F_CONT 303
|
||||
#define F_STAMPA 304
|
||||
|
||||
#define F_ERARIO 401
|
||||
#define F_ERARIO_A 402
|
||||
#define F_ERARIO_B 403
|
||||
#define F_ERARIO_AB 404
|
||||
#define F_ERARIO 401
|
||||
#define F_ERARIO_A 402
|
||||
#define F_ERARIO_B 403
|
||||
#define F_ERARIO_AB 404
|
||||
|
||||
#define F_INPS 501
|
||||
#define F_INPS_C 502
|
||||
#define F_INPS_D 503
|
||||
#define F_INPS_CD 504
|
||||
#define F_INPS 501
|
||||
#define F_INPS_C 502
|
||||
#define F_INPS_D 503
|
||||
#define F_INPS_CD 504
|
||||
|
||||
#define F_REGIONI 601
|
||||
#define F_REGIONI_E 602
|
||||
#define F_REGIONI_F 603
|
||||
#define F_REGIONI_EF 604
|
||||
#define F_REGIONI 601
|
||||
#define F_REGIONI_E 602
|
||||
#define F_REGIONI_F 603
|
||||
#define F_REGIONI_EF 604
|
||||
|
||||
#define F_ICI 701
|
||||
#define F_ICI_G 702
|
||||
#define F_ICI_H 703
|
||||
#define F_ICI_GH 704
|
||||
#define F_ICI 701
|
||||
#define F_ICI_G 702
|
||||
#define F_ICI_H 703
|
||||
#define F_ICI_GH 704
|
||||
|
||||
#define F_INAIL 801
|
||||
#define F_INAIL_I 802
|
||||
#define F_INAIL_L 803
|
||||
#define F_INAIL_IL 804
|
||||
#define F_INAIL 801
|
||||
#define F_INAIL_I 802
|
||||
#define F_INAIL_L 803
|
||||
#define F_INAIL_IL 804
|
||||
|
||||
#define F_SALDO 999
|
||||
#define F_SALDO 999
|
||||
|
||||
// ERARIO
|
||||
|
||||
#define S_CODTRIB 101
|
||||
#define S_RATEAZ 102
|
||||
#define S_ANNO 103
|
||||
#define S_IMPDEB 104
|
||||
#define S_CODTRIB 101
|
||||
#define S_RATEAZ 102
|
||||
#define S_ANNO 103
|
||||
#define S_IMPDEB 104
|
||||
#define S_IMPCRED 105
|
||||
#define S_INTERESSI 106
|
||||
#define S_RIGA 107
|
||||
@ -81,20 +86,20 @@
|
||||
#define S_DATASCAD_R 109
|
||||
|
||||
// ICI
|
||||
#define S_CODCOM 101
|
||||
#define S_RAVVED 102
|
||||
#define S_IMMVAR 103
|
||||
#define S_ACC 104
|
||||
#define S_SALDO 105
|
||||
#define S_NUMIMM 106
|
||||
#define S_CODTRIB_C 107
|
||||
#define S_RATEAZ_C 108
|
||||
#define S_ANNO_C 109
|
||||
#define S_IMPDEB_C 110
|
||||
#define S_IMPCRED_C 111
|
||||
#define S_RIGA_C 112
|
||||
#define S_DESCR_C 113
|
||||
#define S_DATASCAD_C 114
|
||||
#define S_CODCOM 101
|
||||
#define S_RAVVED 102
|
||||
#define S_IMMVAR 103
|
||||
#define S_ACC 104
|
||||
#define S_SALDO 105
|
||||
#define S_NUMIMM 106
|
||||
#define S_CODTRIB_C 107
|
||||
#define S_RATEAZ_C 108
|
||||
#define S_ANNO_C 109
|
||||
#define S_IMPDEB_C 110
|
||||
#define S_IMPCRED_C 111
|
||||
#define S_RIGA_C 112
|
||||
#define S_DESCR_C 113
|
||||
#define S_DATASCAD_C 114
|
||||
|
||||
// INAIL
|
||||
#define S_CODTRIB_N 101
|
||||
|
||||
@ -14,7 +14,7 @@ END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Erario" 0 0 0 -3
|
||||
PAGE "Intestazione" 0 0 0 -3
|
||||
|
||||
GROUPBOX -1 78 5
|
||||
BEGIN
|
||||
@ -73,7 +73,7 @@ BEGIN
|
||||
FIELD CAB
|
||||
END
|
||||
|
||||
STRING F_DESCAB 50 44
|
||||
STRING F_DESCAB 50
|
||||
BEGIN
|
||||
PROMPT 32 2 ""
|
||||
USE BNP KEY 2
|
||||
@ -101,7 +101,7 @@ END
|
||||
|
||||
LIST F_TIPOINTEST 1 10
|
||||
BEGIN
|
||||
PROMPT 2 6 "Intestatario "
|
||||
PROMPT 2 6 "Intestatario "
|
||||
ITEM "D|Ditta"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fisico"
|
||||
@ -112,44 +112,108 @@ END
|
||||
|
||||
NUMBER F_PERSON 6
|
||||
BEGIN
|
||||
PROMPT 32 6 ""
|
||||
PROMPT 34 6 ""
|
||||
FIELD INTEST
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_COFI 16
|
||||
BEGIN
|
||||
PROMPT 45 6 "Codice fiscale "
|
||||
PROMPT 46 6 "Codice fiscale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50 58
|
||||
BEGIN
|
||||
PROMPT 2 7 "Ragione sociale "
|
||||
PROMPT 2 7 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST F_TIPOINTEST2 1 10
|
||||
BEGIN
|
||||
PROMPT 2 8 "Cobbligato "
|
||||
ITEM " |Tutti"
|
||||
ITEM "F|Fisico"
|
||||
ITEM "G|Giuridico"
|
||||
FIELD TIPOCOOBB
|
||||
END
|
||||
|
||||
NUMBER F_PERSON2 6
|
||||
BEGIN
|
||||
PROMPT 34 8 ""
|
||||
USE LF_ANAG
|
||||
INPUT TIPOA F_TIPOINTEST2
|
||||
INPUT CODANAGR F_PERSON2
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_PERSON2 CODANAGR
|
||||
OUTPUT F_RAGSOC2 RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
FIELD COOBB
|
||||
ADD RUN ba4 -1 #F_TIPOINTEST2
|
||||
END
|
||||
|
||||
STRING F_CODID 2
|
||||
BEGIN
|
||||
PROMPT 43 8 "Codice identificativo"
|
||||
SHEET "Codice|Descrizione@60"
|
||||
INPUT F_CODID
|
||||
OUTPUT F_CODID
|
||||
ITEM " | "
|
||||
ITEM "02|Genitore/Tutore/Ammin.di sostegno"
|
||||
ITEM "03|Curatore fallimentare"
|
||||
ITEM "07|Erede"
|
||||
ITEM "08|Defunto"
|
||||
ITEM "50|Obbligato solidale"
|
||||
ITEM "51|Intervento sostitutivo"
|
||||
ITEM "60|Garante/Terzo datore"
|
||||
ITEM "61|Soggetto aderente al consolidato"
|
||||
ITEM "62|Soggetto diverso dal fruitore del credito"
|
||||
ITEM "63|Controparte"
|
||||
ITEM "70|Impresa assicur.estera fisc.rappresentata"
|
||||
ITEM "71|Soggetto che ha proposto l'atto intrduttivo del giudizio"
|
||||
ITEM "72|Rapresentante fiscale"
|
||||
ITEM "73|Contribuente"
|
||||
FIELD CODID
|
||||
END
|
||||
|
||||
STRING F_RAGSOC2 50 58
|
||||
BEGIN
|
||||
PROMPT 2 9 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_IDOP 16
|
||||
BEGIN
|
||||
PROMPT 2 12 "Ident.operazione"
|
||||
FIELD IDENTOP
|
||||
END
|
||||
|
||||
BUTTON F_STAMPA 10 2
|
||||
BEGIN
|
||||
PROMPT -12 8 "~Stampa"
|
||||
PROMPT -12 14 "~Stampa"
|
||||
PICTURE BMP_PRINT
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON F_CONT 10 2
|
||||
BUTTON F_CONT 11 2
|
||||
BEGIN
|
||||
PROMPT -22 8 "~Contabilizza"
|
||||
PROMPT -22 14 "~Contabilizza"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Erario" -1 -1 80 7
|
||||
|
||||
TEXT -1
|
||||
BEGIN
|
||||
PROMPT 1 11 "@bSEZIONE ERARIO"
|
||||
PROMPT 1 4 "@bSEZIONE ERARIO"
|
||||
END
|
||||
|
||||
SPREADSHEET F_ERARIO 0 8
|
||||
BEGIN
|
||||
PROMPT 2 12 "Erario"
|
||||
PROMPT 2 7 "Erario"
|
||||
ITEM "cod.\ntrib.@4"
|
||||
ITEM "rateazione\nreg./prov.@10"
|
||||
ITEM "anno\nrif."
|
||||
@ -164,19 +228,19 @@ END
|
||||
|
||||
CURRENCY F_ERARIO_A 15
|
||||
BEGIN
|
||||
PROMPT 2 22 "@b(A) "
|
||||
PROMPT 2 16 "@b(A) "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
CURRENCY F_ERARIO_B 15
|
||||
BEGIN
|
||||
PROMPT 26 22 "@b(B) "
|
||||
PROMPT 26 16 "@b(B) "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
CURRENCY F_ERARIO_AB 15
|
||||
BEGIN
|
||||
PROMPT 50 22 "@bSaldo (A-B) "
|
||||
PROMPT 50 16 "@bSaldo (A-B) "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
@ -358,7 +422,7 @@ ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Erario" -1 -1 80 7
|
||||
PAGE "Intestazione" -1 -1 80 7
|
||||
|
||||
TEXT -1
|
||||
BEGIN
|
||||
@ -807,15 +871,15 @@ END
|
||||
STRING S_CODCOM 4
|
||||
BEGIN
|
||||
PROMPT 1 2 ""
|
||||
USE LF_COMUNI
|
||||
INPUT STATO ""
|
||||
INPUT COM S_CODCOM
|
||||
DISPLAY "Codice" COM
|
||||
DISPLAY "Denominazione@50" DENCOM
|
||||
DISPLAY "Provincia" PROVCOM
|
||||
DISPLAY "CAP " CAPCOM
|
||||
OUTPUT S_CODCOM COM
|
||||
FLAGS "U"
|
||||
USE LF_COMUNI
|
||||
INPUT STATO ""
|
||||
INPUT COM S_CODCOM
|
||||
DISPLAY "Codice" COM
|
||||
DISPLAY "Denominazione@50" DENCOM
|
||||
DISPLAY "Provincia" PROVCOM
|
||||
DISPLAY "CAP " CAPCOM
|
||||
OUTPUT S_CODCOM COM
|
||||
FLAGS "U"
|
||||
FIELD ENTECOM
|
||||
END
|
||||
|
||||
|
||||
@ -254,7 +254,7 @@ TF24_textset::TF24_textset(const char* query)
|
||||
add_field("F4", 4, 8, o, an, "Mittente");
|
||||
add_field("F4", 9, 13, o, n, "Ricevente");
|
||||
add_field("F4", 14, 19, o, n, "DataCreazione");
|
||||
add_field("F4", 20, 39, o, an, "NomeSupporto");
|
||||
add_field("F4", 20, 39, o, an, "NomeSupporto", "F24-001");
|
||||
add_field("F4", 40, 45, f, an, "Riferimenti");
|
||||
add_field("F4", 46,104);
|
||||
add_field("F4",105,105, o, an, "TipoFlusso", "2");
|
||||
@ -281,8 +281,8 @@ TF24_textset::TF24_textset(const char* query)
|
||||
|
||||
add_field("10", 1, 1);
|
||||
add_field("10", 2, 3, o, an, "TipoRecord", "10");
|
||||
add_field("10", 4, 10, o, n, "ProgressivoDelega");
|
||||
add_field("10", 11, 26, o, an, "CodiceFiscale");
|
||||
|
||||
|
||||
add_field("10", 27, 50, o, an, "Cognome");
|
||||
add_field("10", 51, 70, f, an, "Nome");
|
||||
add_field("10", 71, 71, f, an, "Sesso");
|
||||
@ -300,7 +300,9 @@ TF24_textset::TF24_textset(const char* query)
|
||||
add_field("20", 38, 72, o, an, "Indirizzo");
|
||||
add_field("20", 73, 80, o, n, "DataPagamento");
|
||||
add_field("20", 81, 81, f, n, "FlagAnnoImposta"); // non sarebbe f, ma 0 e' valido
|
||||
add_field("20", 82,120);
|
||||
add_field("20", 82, 97, f, an, "SecondoCodiceIdentificativo");
|
||||
add_field("20", 98, 99, f, an, "CodiceIdentificativo");
|
||||
add_field("20", 100,120);
|
||||
|
||||
add_field("40-01", 1, 1);
|
||||
add_field("40-01", 2, 3, o, an, "TipoRecord", "40");
|
||||
@ -365,6 +367,8 @@ TF24_textset::TF24_textset(const char* query)
|
||||
add_field("40-06", 2, 3, o, an, "TipoRecord", "40");
|
||||
add_field("40-06", 4, 10, o, n, "ProgressivoDelega");
|
||||
add_field("40-06", 11, 12, o, an, "SubtipoRecord", "06");
|
||||
|
||||
|
||||
add_field("40-05", 13, 14);
|
||||
add_field("40-06", 15, 29, f, n, "TotaleDebito"); // non sarebbe f, ma 0 e' valido
|
||||
add_field("40-06", 30, 44, f, n, "TotaleCredito"); // non sarebbe f, ma 0 e' valido
|
||||
@ -388,7 +392,8 @@ TF24_textset::TF24_textset(const char* query)
|
||||
add_field("40-07", 64, 64, f, n, "Saldo");
|
||||
add_field("40-07", 65, 66, f, n, "NumeroFabbricati");
|
||||
add_field("40-07", 67, 82, f, n, "DetrazioneICI"); // non sarebbe f, ma 0 e' valido
|
||||
add_field("40-07", 83,120);
|
||||
add_field("40-07", 83, 100, f, an, "IdentificativoOperazione"); // TD
|
||||
add_field("40-07", 101,120);
|
||||
|
||||
add_field("40-08", 1, 1);
|
||||
add_field("40-08", 2, 3, o, an, "TipoRecord", "40");
|
||||
@ -426,6 +431,8 @@ TF24_textset::TF24_textset(const char* query)
|
||||
add_field("40-10", 44, 58, f, n, "SaldoSezione");
|
||||
add_field("40-10", 59,120);
|
||||
|
||||
// TD 40-11 40-18
|
||||
|
||||
add_field("50-01", 1, 1);
|
||||
add_field("50-01", 2, 3, o, an, "TipoRecord", "50");
|
||||
add_field("50-01", 4, 10, o, n, "ProgressivoDelega");
|
||||
@ -443,6 +450,8 @@ TF24_textset::TF24_textset(const char* query)
|
||||
add_field("50-01", 79, 93, f, n, "TotaleImportiCredito");
|
||||
add_field("50-01", 94, 95);
|
||||
add_field("50-01", 96, 96, o, n, "CodiceIndividuale", "3");
|
||||
|
||||
// TD
|
||||
add_field("50-01", 97,120);
|
||||
|
||||
add_field("50-02", 1, 1);
|
||||
@ -457,6 +466,8 @@ TF24_textset::TF24_textset(const char* query)
|
||||
add_field("50-02", 63, 63, o, an, "DestinatarioStampa", "1");
|
||||
add_field("50-02", 64,108, o, an, "Denominazione");
|
||||
add_field("50-02",109,120);
|
||||
|
||||
// TD 50-03
|
||||
|
||||
}
|
||||
|
||||
@ -818,6 +829,20 @@ void TF4_sender::add_10_20(const TRecordset& riga, const TMask& m)
|
||||
|
||||
TParagraph_string ind(indirizzo, 35);
|
||||
set("Indirizzo", ind.get()); // Salva i primi 35 caratteri dell'indirizzo
|
||||
|
||||
const char tipo_coobb = riga.get("TIPOCOOBB").as_string()[0];
|
||||
const long coobb = riga.get("COOBB").as_int();
|
||||
|
||||
TString80 codfis_coobb;
|
||||
|
||||
TString16 key; key << tipo_coobb << '|' << coobb;
|
||||
|
||||
const TRectype& anag = cache().get(LF_ANAG, key);
|
||||
codfis_coobb = anag.get(ANA_COFI);
|
||||
if (codfis_coobb.blank())
|
||||
codfis_coobb = anag.get(ANA_PAIV);
|
||||
set("SecondoCodiceIdentificativo", codfis_coobb);
|
||||
set("CodiceIdentificativo", riga.get("CODID").as_string());
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user