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 2016-11-02 08:21:08 +00:00
parent 8805cfe805
commit 8a53ed4136
12 changed files with 291 additions and 175 deletions

BIN
src/gv/CBI-F24-001_6_15.pdf Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Before

Width:  |  Height:  |  Size: 49 KiB

After

Width:  |  Height:  |  Size: 124 KiB

Binary file not shown.

View File

@ -1,3 +1,3 @@
158 158
0 0
$righef24|0|0|250|0|Righe di delega F24||| $righef24|1|1|259|0|Righe di delega F24|||

View File

@ -1,5 +1,5 @@
158 158
36 39
PROGR|3|6|0|Progressivo riga PROGR|3|6|0|Progressivo riga
F24|3|6|0|Numero F24 a cui la riga e' associata F24|3|6|0|Numero F24 a cui la riga e' associata
SEZIONE|1|1|0|Sezione (Erario, INPS etc) 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 TRIBUTO|1|4|0|Codice tributo
TIPOINTEST|1|1|0|Tipo intestatario (D, G, F, C) TIPOINTEST|1|1|0|Tipo intestatario (D, G, F, C)
INTEST|3|6|0|Codice intestatario 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) TIPO|1|1|0|Tipo persona (G, F, C)
CODICE|3|6|0|Codice persona CODICE|3|6|0|Codice persona
DESCR|1|50|0|Descrizione riga F24 DESCR|1|50|0|Descrizione riga F24

View File

@ -2,7 +2,7 @@
<report name="gv0500" lpi="6"> <report name="gv0500" lpi="6">
<description>Stampa F24</description> <description>Stampa F24</description>
<font face="Courier New" size="12" /> <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"> <field x="4" type="Numero" hidden="1" align="right" width="5" pattern="1">
<source>RIGHEF24.ABI</source> <source>RIGHEF24.ABI</source>
<postscript description="H0.0 POSTSCRIPT">MESSAGE COPY,F1.101</postscript> <postscript description="H0.0 POSTSCRIPT">MESSAGE COPY,F1.101</postscript>
@ -11,7 +11,7 @@
<source>RIGHEF24.CAB</source> <source>RIGHEF24.CAB</source>
<postscript description="H0.0 POSTSCRIPT">MESSAGE COPY,F1.102</postscript> <postscript description="H0.0 POSTSCRIPT">MESSAGE COPY,F1.102</postscript>
</field> </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" <prescript description="H0.0 PRESCRIPT">"S0"
"'" "'"
"ABI" @ + "ABI" @ +
@ -19,7 +19,7 @@
"%BAN" "%BAN"
TABLE_READ</prescript> TABLE_READ</prescript>
</field> </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" <prescript description="H0.0 PRESCRIPT">"S0"
"'" "'"
"ABI" @ + "ABI" @ +
@ -28,14 +28,30 @@ TABLE_READ</prescript>
"%BAN" "%BAN"
TABLE_READ</prescript> TABLE_READ</prescript>
</field> </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" <prescript description="H0.0 PRESCRIPT">"DENCOM!#103=PROVCOM"
"COM=" "COM="
"S5" @ + "S5" @ +
13 13
ISAM_READ</prescript> ISAM_READ</prescript>
</field> </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> <source>CLIFO.COFI</source>
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @ <prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = IF "C" = IF
@ -52,23 +68,7 @@ ELSE
THEN THEN
</prescript> </prescript>
</field> </field>
<field x="16" y="9" type="Stringa" valign="bottom" width="32" pattern="1" text="# # # # # # # # # # # # # # # #"> <field x="16" y="9" type="Stringa" hidden="1" width="30" pattern="1">
<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">
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @ <prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = IF "C" = IF
SHOW SHOW
@ -81,7 +81,7 @@ ELSE
HIDE HIDE
THEN</prescript> THEN</prescript>
</field> </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" @ <prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = NEGATE IF "C" = NEGATE IF
SHOW SHOW
@ -94,20 +94,7 @@ ELSE
HIDE HIDE
THEN</prescript> THEN</prescript>
</field> </field>
<field x="58.5" y="11" type="Stringa" hidden="1" width="20" pattern="1"> <field x="58.5" y="9" type="Stringa" 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">
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @ <prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = NEGATE IF "C" = NEGATE IF
SHOW SHOW
@ -120,7 +107,20 @@ ELSE
HIDE HIDE
THEN</prescript> THEN</prescript>
</field> </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" @ <prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
DUP DUP
"" = IF "" = IF
@ -143,7 +143,7 @@ STRLEN
#THIS ! #THIS !
THEN</prescript> THEN</prescript>
</field> </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" @ <prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
DUP DUP
"" = IF "" = IF
@ -174,7 +174,7 @@ THEN</prescript>
<li Value="1 2" Code="T" /> <li Value="1 2" Code="T" />
</list> </list>
</field> </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" @ <prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
DUP DUP
"" = IF "" = IF
@ -197,7 +197,16 @@ STRLEN
#THIS ! #THIS !
THEN</prescript> THEN</prescript>
</field> </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> <source>CLIFO.INDCF+", "+CLIFO.CIVCF</source>
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @ <prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = IF "C" = IF
@ -206,14 +215,11 @@ ELSE
HIDE HIDE
THEN</prescript> THEN</prescript>
</field> </field>
<field x="52" y="15" type="Stringa" width="30" height="2" pattern="1"> <field x="26" y="15" type="Stringa" valign="bottom" width="32" pattern="1" text="# # # # # # # # # # # # # # # #">
<source>ANAGR.INDRES+", "+ANAGR.CIVRES</source> <source>201@.COFI</source>
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @ </field>
"C" = NEGATE IF <field x="76" y="15" type="Stringa" width="4" pattern="1" text="# #">
SHOW <source>CODID</source>
ELSE
HIDE
THEN</prescript>
</field> </field>
<field y="19" type="Array" hidden="1" width="1" pattern="1"> <field y="19" type="Array" hidden="1" width="1" pattern="1">
<source>RIGHEF24.TIPO</source> <source>RIGHEF24.TIPO</source>
@ -223,7 +229,7 @@ THEN</prescript>
<li Value="G" Code="G">MESSAGE SHOW,1@ MESSAGE HIDE,2@</li> <li Value="G" Code="G">MESSAGE SHOW,1@ MESSAGE HIDE,2@</li>
</list> </list>
</field> </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" @ <prescript description="H0.101 PRESCRIPT">#THIS "TIPO" @
"C" = IF "C" = IF
SHOW SHOW
@ -243,7 +249,7 @@ ELSE
HIDE HIDE
THEN</prescript> THEN</prescript>
</field> </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" @ <prescript description="H0.102 PRESCRIPT">#THIS "TIPO" @
"C" = NEGATE IF "C" = NEGATE IF
SHOW SHOW
@ -256,9 +262,9 @@ ELSE
HIDE HIDE
THEN</prescript> THEN</prescript>
</field> </field>
<field x="47" y="15" type="Stringa" width="4" id="103" pattern="1" text="# #" /> <field x="47" y="13" 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="34.5" y="11" type="Stringa" width="1" id="104" pattern="1" />
<field x="38.5" y="13" type="Stringa" width="39" id="105" pattern="1"> <field x="38.5" y="11" type="Stringa" width="39" id="105" pattern="1">
<prescript description="H0.105 PRESCRIPT">"DENCOM!#106=PROVCOM" <prescript description="H0.105 PRESCRIPT">"DENCOM!#106=PROVCOM"
"COM=" "COM="
"ANAGR.COFI" @ "ANAGR.COFI" @
@ -279,9 +285,9 @@ THEN
ISAM_READ ISAM_READ
</prescript> </prescript>
</field> </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>
<section type="Head" level="1"> <section type="Head" level="1" height="2" pattern="1">
<prescript description="H1 PRESCRIPT">VARIABLE HB0 <prescript description="H1 PRESCRIPT">VARIABLE HB0
VARIABLE HB1 VARIABLE HB1
VARIABLE HB2 VARIABLE HB2
@ -301,7 +307,7 @@ VARIABLE HS
TOT_SEC_HEIGHT TOT_SEC_HEIGHT
HS !</prescript> HS !</prescript>
</section> </section>
<section type="Head" level="2" height="2"> <section type="Head" level="2" height="2" pattern="1">
<groupby>SEZIONE</groupby> <groupby>SEZIONE</groupby>
<prescript description="H2 PRESCRIPT">"F2" <prescript description="H2 PRESCRIPT">"F2"
"HB" "HB"
@ -328,12 +334,15 @@ SET_SEC_HEIGHT
LS ! LS !
</prescript> </prescript>
</section> </section>
<section type="Body"> <section type="Body" pattern="1">
<field type="Immagine" width="83.7" height="70" pattern="1"> <field type="Immagine" width="83.7" height="70" pattern="1">
<source>"f24.png"</source> <source>"f24.png"</source>
</field> </field>
<field x="44" y="41" type="Stringa" width="36" pattern="1" text="# # # # # # # # # # # # # # # # # #">
<source>IDENTOP</source>
</field>
</section> </section>
<section type="Body" level="1"> <section type="Body" level="1" pattern="1">
<condition>SEZIONE='E'</condition> <condition>SEZIONE='E'</condition>
<postscript description="B1 POSTSCRIPT">"F2" <postscript description="B1 POSTSCRIPT">"F2"
DECR_SEC_HEIGHT</postscript> DECR_SEC_HEIGHT</postscript>
@ -359,7 +368,7 @@ DECR_SEC_HEIGHT</postscript>
</prescript> </prescript>
</field> </field>
</section> </section>
<section type="Body" level="2" bg_color="#FFFF80"> <section type="Body" level="2" bg_color="#FFFF80" pattern="1">
<condition>SEZIONE='I'</condition> <condition>SEZIONE='I'</condition>
<postscript description="B2 POSTSCRIPT">"F2" <postscript description="B2 POSTSCRIPT">"F2"
DECR_SEC_HEIGHT</postscript> DECR_SEC_HEIGHT</postscript>
@ -391,7 +400,7 @@ DECR_SEC_HEIGHT</postscript>
</prescript> </prescript>
</field> </field>
</section> </section>
<section type="Body" level="3"> <section type="Body" level="3" pattern="1">
<condition>SEZIONE=='R'</condition> <condition>SEZIONE=='R'</condition>
<postscript description="B3 POSTSCRIPT">"F2" <postscript description="B3 POSTSCRIPT">"F2"
DECR_SEC_HEIGHT</postscript> DECR_SEC_HEIGHT</postscript>
@ -420,7 +429,7 @@ DECR_SEC_HEIGHT</postscript>
</prescript> </prescript>
</field> </field>
</section> </section>
<section type="Body" level="4"> <section type="Body" level="4" pattern="1">
<condition>SEZIONE=='L'</condition> <condition>SEZIONE=='L'</condition>
<postscript description="B4 POSTSCRIPT">"F2" <postscript description="B4 POSTSCRIPT">"F2"
DECR_SEC_HEIGHT</postscript> DECR_SEC_HEIGHT</postscript>
@ -474,7 +483,7 @@ LOOP
</prescript> </prescript>
</field> </field>
</section> </section>
<section type="Body" level="5"> <section type="Body" level="5" pattern="1">
<condition>SEZIONE=='N'</condition> <condition>SEZIONE=='N'</condition>
<postscript description="B5 POSTSCRIPT">"F2" <postscript description="B5 POSTSCRIPT">"F2"
DECR_SEC_HEIGHT</postscript> DECR_SEC_HEIGHT</postscript>
@ -506,15 +515,15 @@ DECR_SEC_HEIGHT</postscript>
</prescript> </prescript>
</field> </field>
</section> </section>
<section type="Foot" /> <section type="Foot" pattern="1" />
<section y="58" type="Foot" level="1" bg_color="#80FF80"> <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="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="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="###.###.###,@@"> <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> <postscript description="F1.103 POSTSCRIPT">0 #THIS !</postscript>
</field> </field>
</section> </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 <postscript description="F2 POSTSCRIPT">\ Ripristina l'altezza del footer
"F2" "F2"
"HB2" @ "HB2" @
@ -547,6 +556,7 @@ REP_MESSAGE_ALIGN_BOTTOM</prescript>
<sql>USE RIGHEF24 KEY 5 <sql>USE RIGHEF24 KEY 5
JOIN ANAGR INTO TIPOA==TIPO CODANAGR==CODICE JOIN ANAGR INTO TIPOA==TIPO CODANAGR==CODICE
JOIN CLIFO INTO TIPOCF==TIPO CODCF==CODICE JOIN CLIFO INTO TIPOCF==TIPO CODCF==CODICE
JOIN ANAGR INTO TIPOA==TIPOCOOBB CODANAGR==COOBB ALIAS 201
FROM F24=#DISTINTA FROM F24=#DISTINTA
TO F24=#DISTINTA</sql> TO F24=#DISTINTA</sql>
<prescript description="PRESCRIPT">: SET_SEC_HEIGHT ( s h -- ) <prescript description="PRESCRIPT">: SET_SEC_HEIGHT ( s h -- )

View File

@ -9,3 +9,4 @@
#define F_DISTINTA 214 #define F_DISTINTA 214
#define F_PROGR 215 #define F_PROGR 215
#define F_TIPO 216 #define F_TIPO 216
#define F_RAGSOCA 219

View File

@ -6,7 +6,7 @@ ENDPAGE
PAGE "F24" 0 0 0 -3 PAGE "F24" 0 0 0 -3
GROUPBOX DLG_NULL 78 6 GROUPBOX DLG_NULL 79 6
BEGIN BEGIN
PROMPT 1 0 "@bSelezione" PROMPT 1 0 "@bSelezione"
END END
@ -37,15 +37,15 @@ BEGIN
FLAGS "Z" FLAGS "Z"
END END
STRING F_DESABI 70 50 STRING F_DESABI 70 60
BEGIN BEGIN
PROMPT 26 1 "" PROMPT 17 1 ""
FLAGS "D" FLAGS "D"
END END
STRING F_DESCAB 70 50 STRING F_DESCAB 70 60
BEGIN BEGIN
PROMPT 26 2 "" PROMPT 17 2 ""
USE BNP KEY 2 USE BNP KEY 2
JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB[1,5] JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB[1,5]
JOIN %BAN ALIAS 884 INTO CODTAB==CODTAB JOIN %BAN ALIAS 884 INTO CODTAB==CODTAB
@ -60,8 +60,8 @@ END
LIST F_TIPOINTEST 1 10 LIST F_TIPOINTEST 1 10
BEGIN BEGIN
PROMPT 2 3 "Intestatario " PROMPT 2 3 "Intestatario "
ITEM " |Tutti" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON ITEM " |Tutti" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON|CLEAR,F_RAGSOCA
ITEM "D|Ditta" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON ITEM "D|Ditta" MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON|CLEAR,F_RAGSOCA
ITEM "C|Cliente" MESSAGE SHOW,F_CLIFO|HIDE,F_PERSON ITEM "C|Cliente" MESSAGE SHOW,F_CLIFO|HIDE,F_PERSON
ITEM "F|Fisico" MESSAGE HIDE,F_CLIFO|SHOW,F_PERSON ITEM "F|Fisico" MESSAGE HIDE,F_CLIFO|SHOW,F_PERSON
ITEM "G|Giuridico" 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 NUMBER F_CLIFO 6
BEGIN BEGIN
PROMPT 36 3 "" PROMPT 38 3 ""
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT CODCF F_CLIFO INPUT CODCF F_CLIFO
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CLIFO CODCF OUTPUT F_CLIFO CODCF
OUTPUT F_RAGSOCA RAGSOC
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN cg0 -1 C ADD RUN cg0 -1 C
MESSAGE COPY,F_PERSON MESSAGE COPY,F_PERSON
@ -83,20 +84,27 @@ END
NUMBER F_PERSON 6 NUMBER F_PERSON 6
BEGIN BEGIN
PROMPT 36 3 "" PROMPT 38 3 ""
USE LF_ANAG USE LF_ANAG
INPUT TIPOA F_TIPOINTEST INPUT TIPOA F_TIPOINTEST
INPUT CODANAGR F_PERSON INPUT CODANAGR F_PERSON
DISPLAY "Codice" CODANAGR DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_PERSON CODANAGR OUTPUT F_PERSON CODANAGR
OUTPUT F_RAGSOCA RAGSOC
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN ba4 -1 #F_TIPOINTEST ADD RUN ba4 -1 #F_TIPOINTEST
END END
STRING F_RAGSOCA 50 58
BEGIN
PROMPT 2 4 "Ragione sociale"
FLAGS "D"
END
LIST F_TIPO 1 10 LIST F_TIPO 1 10
BEGIN BEGIN
PROMPT 2 4 "Tipo distinta " PROMPT 2 6 "Tipo distinta "
ITEM "3|Tutte" ITEM "3|Tutte"
ITEM "1|Da inviare" ITEM "1|Da inviare"
ITEM "2|Inviata" ITEM "2|Inviata"
@ -104,7 +112,7 @@ END
NUMBER F_DISTINTA 6 NUMBER F_DISTINTA 6
BEGIN BEGIN
PROMPT 2 6 "Distinta " PROMPT 2 9 "Distinta "
FIELD F24 FIELD F24
KEY 2 KEY 2
FLAGS "B" FLAGS "B"
@ -113,7 +121,7 @@ END
NUMBER F_PROGR 6 NUMBER F_PROGR 6
BEGIN BEGIN
PROMPT 22 6 "Progressivo " PROMPT 28 9 "Progressivo"
FIELD PROGR FIELD PROGR
FLAGS "B" FLAGS "B"
KEY 2 KEY 2

View File

@ -11,6 +11,11 @@
#define F_PROGR 215 #define F_PROGR 215
#define F_TIPO 216 #define F_TIPO 216
#define F_DATAVERS 217 #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_COFI 301
#define F_RAGSOC 302 #define F_RAGSOC 302

View File

@ -14,7 +14,7 @@ END
ENDPAGE ENDPAGE
PAGE "Erario" 0 0 0 -3 PAGE "Intestazione" 0 0 0 -3
GROUPBOX -1 78 5 GROUPBOX -1 78 5
BEGIN BEGIN
@ -73,7 +73,7 @@ BEGIN
FIELD CAB FIELD CAB
END END
STRING F_DESCAB 50 44 STRING F_DESCAB 50
BEGIN BEGIN
PROMPT 32 2 "" PROMPT 32 2 ""
USE BNP KEY 2 USE BNP KEY 2
@ -112,14 +112,14 @@ END
NUMBER F_PERSON 6 NUMBER F_PERSON 6
BEGIN BEGIN
PROMPT 32 6 "" PROMPT 34 6 ""
FIELD INTEST FIELD INTEST
FLAGS "D" FLAGS "D"
END END
STRING F_COFI 16 STRING F_COFI 16
BEGIN BEGIN
PROMPT 45 6 "Codice fiscale " PROMPT 46 6 "Codice fiscale "
FLAGS "D" FLAGS "D"
END END
@ -129,27 +129,91 @@ BEGIN
FLAGS "D" FLAGS "D"
END 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 BUTTON F_STAMPA 10 2
BEGIN BEGIN
PROMPT -12 8 "~Stampa" PROMPT -12 14 "~Stampa"
PICTURE BMP_PRINT PICTURE BMP_PRINT
FLAGS "D" FLAGS "D"
END END
BUTTON F_CONT 10 2 BUTTON F_CONT 11 2
BEGIN BEGIN
PROMPT -22 8 "~Contabilizza" PROMPT -22 14 "~Contabilizza"
FLAGS "D" FLAGS "D"
END END
ENDPAGE
PAGE "Erario" -1 -1 80 7
TEXT -1 TEXT -1
BEGIN BEGIN
PROMPT 1 11 "@bSEZIONE ERARIO" PROMPT 1 4 "@bSEZIONE ERARIO"
END END
SPREADSHEET F_ERARIO 0 8 SPREADSHEET F_ERARIO 0 8
BEGIN BEGIN
PROMPT 2 12 "Erario" PROMPT 2 7 "Erario"
ITEM "cod.\ntrib.@4" ITEM "cod.\ntrib.@4"
ITEM "rateazione\nreg./prov.@10" ITEM "rateazione\nreg./prov.@10"
ITEM "anno\nrif." ITEM "anno\nrif."
@ -164,19 +228,19 @@ END
CURRENCY F_ERARIO_A 15 CURRENCY F_ERARIO_A 15
BEGIN BEGIN
PROMPT 2 22 "@b(A) " PROMPT 2 16 "@b(A) "
FLAGS "D" FLAGS "D"
END END
CURRENCY F_ERARIO_B 15 CURRENCY F_ERARIO_B 15
BEGIN BEGIN
PROMPT 26 22 "@b(B) " PROMPT 26 16 "@b(B) "
FLAGS "D" FLAGS "D"
END END
CURRENCY F_ERARIO_AB 15 CURRENCY F_ERARIO_AB 15
BEGIN BEGIN
PROMPT 50 22 "@bSaldo (A-B) " PROMPT 50 16 "@bSaldo (A-B) "
FLAGS "D" FLAGS "D"
END END
@ -358,7 +422,7 @@ ENDPAGE
ENDMASK ENDMASK
PAGE "Erario" -1 -1 80 7 PAGE "Intestazione" -1 -1 80 7
TEXT -1 TEXT -1
BEGIN BEGIN

View File

@ -254,7 +254,7 @@ TF24_textset::TF24_textset(const char* query)
add_field("F4", 4, 8, o, an, "Mittente"); add_field("F4", 4, 8, o, an, "Mittente");
add_field("F4", 9, 13, o, n, "Ricevente"); add_field("F4", 9, 13, o, n, "Ricevente");
add_field("F4", 14, 19, o, n, "DataCreazione"); 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", 40, 45, f, an, "Riferimenti");
add_field("F4", 46,104); add_field("F4", 46,104);
add_field("F4",105,105, o, an, "TipoFlusso", "2"); 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", 1, 1);
add_field("10", 2, 3, o, an, "TipoRecord", "10"); 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", 27, 50, o, an, "Cognome");
add_field("10", 51, 70, f, an, "Nome"); add_field("10", 51, 70, f, an, "Nome");
add_field("10", 71, 71, f, an, "Sesso"); 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", 38, 72, o, an, "Indirizzo");
add_field("20", 73, 80, o, n, "DataPagamento"); 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", 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", 1, 1);
add_field("40-01", 2, 3, o, an, "TipoRecord", "40"); 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", 2, 3, o, an, "TipoRecord", "40");
add_field("40-06", 4, 10, o, n, "ProgressivoDelega"); add_field("40-06", 4, 10, o, n, "ProgressivoDelega");
add_field("40-06", 11, 12, o, an, "SubtipoRecord", "06"); add_field("40-06", 11, 12, o, an, "SubtipoRecord", "06");
add_field("40-05", 13, 14); 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", 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 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", 64, 64, f, n, "Saldo");
add_field("40-07", 65, 66, f, n, "NumeroFabbricati"); 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", 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", 1, 1);
add_field("40-08", 2, 3, o, an, "TipoRecord", "40"); 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", 44, 58, f, n, "SaldoSezione");
add_field("40-10", 59,120); add_field("40-10", 59,120);
// TD 40-11 40-18
add_field("50-01", 1, 1); add_field("50-01", 1, 1);
add_field("50-01", 2, 3, o, an, "TipoRecord", "50"); add_field("50-01", 2, 3, o, an, "TipoRecord", "50");
add_field("50-01", 4, 10, o, n, "ProgressivoDelega"); 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", 79, 93, f, n, "TotaleImportiCredito");
add_field("50-01", 94, 95); add_field("50-01", 94, 95);
add_field("50-01", 96, 96, o, n, "CodiceIndividuale", "3"); add_field("50-01", 96, 96, o, n, "CodiceIndividuale", "3");
// TD
add_field("50-01", 97,120); add_field("50-01", 97,120);
add_field("50-02", 1, 1); add_field("50-02", 1, 1);
@ -458,6 +467,8 @@ TF24_textset::TF24_textset(const char* query)
add_field("50-02", 64,108, o, an, "Denominazione"); add_field("50-02", 64,108, o, an, "Denominazione");
add_field("50-02",109,120); 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); TParagraph_string ind(indirizzo, 35);
set("Indirizzo", ind.get()); // Salva i primi 35 caratteri dell'indirizzo 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());
} }
} }