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

Patch level :10.0 262

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiunta stampa certificazione percipiente dettagliate


git-svn-id: svn://10.65.10.50/trunk@18558 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-03-18 16:30:10 +00:00
parent 50c070383e
commit 417ec922b4
3 changed files with 377 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
m770/772500a.h Executable file
View File

@ -0,0 +1,13 @@
#define F_CODDITTA 101
#define F_RAGSOC 102
#define F_DATA 103
#define F_LUOGO 104
#define F_ATTESTA 105
#define F_ANNO 107
#define F_TIPODA 108
#define F_CODDA 109
#define F_RAGDA 110
#define F_TIPOA 111
#define F_CODA 112
#define F_RAGA 113

228
m770/772500a.rep Executable file
View File

@ -0,0 +1,228 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="772500a" lpi="6">
<description>Certificazioni dettagliate</description>
<font face="Arial" size="8" />
<section type="Head" />
<section type="Head" level="1" />
<section type="Head" level="2" page_break="1">
<groupby>CODANAGR</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.101
MESSAGE RESET,F2.102
MESSAGE RESET,F2.103
MESSAGE RESET,F2.104
MESSAGE RESET,F2.105</prescript>
<field border="1" radius="100" x="29" y="0.25" type="Rettangolo" width="60" height="3" pattern="1" />
<field x="29" y="1" type="Testo" align="center" width="60" pattern="1" text="CERTIFICAZIONE DEI COMPENSI ASSOGGETTATI A RITENUTA D'ACCONTO " />
<field x="29" y="2" type="Testo" align="center" width="60" pattern="1" text="(Art.4 commi 6-ter e 6-quater D.P.R. 22-07-1998, n.332" />
<field border="1" radius="100" x="1" y="4" type="Rettangolo" width="70" height="10" pattern="1" />
<field x="1" y="4.5" type="Testo" align="center" width="70" pattern="1" text="SOGGETTO PERCIPIENTE" />
<field x="2" y="5.5" type="Testo" width="14" pattern="1" text="Cognome e Nome:" />
<field x="16" y="5.5" type="Stringa" width="50" pattern="1">
<source>ANAGR.RAGSOC</source>
</field>
<field x="2" y="6.5" type="Testo" width="14" pattern="1" text="Domicilio:" />
<field x="51" y="6.5" type="Stringa" width="5" pattern="1">
<source>IF(#101='',ANAGR.CIVRES,ANAGR.CIVRF)</source>
</field>
<field x="16" y="7.5" type="Stringa" width="5" pattern="1">
<source>IF(#101='',ANAGR.CAPRES,ANAGR.CAPRF)
</source>
</field>
<field x="22" y="7.5" type="Stringa" width="40" pattern="1">
<source>COMUNI.DENCOM</source>
</field>
<field x="62.5" y="7.5" type="Testo" width="4" pattern="1" text="Prov." />
<field x="66.5" y="7.5" type="Stringa" width="3" pattern="1">
<source>COMUNI.PROVCOM</source>
</field>
<field x="2" y="8.5" type="Testo" width="14" pattern="1" text="Luogo di nascita:" />
<field x="62.5" y="8.5" type="Testo" width="4" pattern="1" text="Prov." />
<field x="2" y="9.5" type="Testo" width="14" pattern="1" text="Data di nascita:" />
<field x="22" y="9.5" type="Data" width="10" pattern="1">
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,ANAFIS,CODANAGR=CODANAGR,DATANASC</prescript>
</field>
<field x="2" y="10.5" type="Testo" width="24" pattern="1" text="Comune di iscrizione anagrafica:" />
<field x="27" y="10.5" type="Stringa" width="35" pattern="1">
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,COMUNI,COM=#102,DENCOM</prescript>
</field>
<field x="2" y="11.5" type="Testo" width="14" pattern="1" text="Codice fiscale:" />
<field x="16" y="11.5" type="Stringa" width="18" pattern="1">
<source>ANAGR.COFI</source>
</field>
<field x="2" y="12.5" type="Testo" width="14" pattern="1" text="Partita IVA:" />
<field x="16" y="12.5" type="Stringa" width="13" pattern="1">
<source>ANAGR.PAIV</source>
</field>
<field x="1" y="14.75" type="Testo" width="16" pattern="1" text="ANNO EROGAZIONE:" />
<field x="16.5" y="14.75" type="Numero" align="right" width="4" pattern="1">
<source>#ANNO</source>
</field>
<field x="23" y="14.75" type="Testo" width="14" pattern="1" text="ATTESTAZIONE:" />
<field x="34.5" y="14.75" type="Numero" align="right" width="5" pattern="1">
<source>#ATTESTA</source>
</field>
<field x="42.5" y="14.75" type="Testo" width="7" pattern="1" text="LUOGO:" />
<field x="49" y="14.75" type="Stringa" width="20" pattern="1">
<source>#LUOGO</source>
</field>
<field x="70" y="14.75" type="Testo" width="5" pattern="1" text="DATA:" />
<field x="75" y="14.75" type="Data" width="10" pattern="1">
<source>#DATA</source>
</field>
<field x="1" y="17" type="Testo" width="90" pattern="1" text="Per gli adempimenti previsti dall'Art.4 commi 6-ter e 6-quater D.P.R. 22-07-1998, n.332 e successive modificazioni, si attesta che nel corso dell'anno">
<font face="Arial" size="6" />
</field>
<field x="76.5" y="17" type="Numero" align="right" width="4" pattern="1">
<font face="Arial" size="6" />
<source>#ANNO</source>
</field>
<field x="1" y="17.75" type="Testo" width="90" pattern="1" text=" al percipiente evidenziato in riquadro sono stati corrisposti i seguenti compensi debitamente assoggettati a ritenuta d'acconto e ad eventuale ritenuta previdenziale:">
<font face="Arial" size="6" />
</field>
<field border="1" x="1" y="18.5" type="Linea" width="117" height="0" pattern="1" />
<field x="40.5" y="18.75" type="Testo" align="right" width="12" pattern="1" text="Totale lordo" />
<field x="53.5" y="18.75" type="Testo" align="right" width="12" pattern="1" text="Somme e quote" />
<field x="82" y="18.75" type="Testo" align="right" width="12" pattern="1" text="Ritenute" />
<field x="93.25" y="18.75" type="Testo" align="right" width="12" pattern="1" text="Ritenute" />
<field x="105.5" y="18.75" type="Testo" align="right" width="12" pattern="1" text="Netto a" />
<field x="1" y="19.25" type="Testo" width="4" pattern="1" text="Caus" />
<field x="7" y="19.25" type="Testo" width="10" pattern="1" text="Tributo" />
<field x="30" y="19.25" type="Testo" align="center" width="10" pattern="1" text="Data pag." />
<field x="66" y="19.25" type="Testo" align="right" width="12" pattern="1" text="Imponibile" />
<field x="80" y="19.25" type="Testo" width="2" pattern="1" text="%" />
<field x="42.5" y="19.5" type="Testo" align="right" width="10" pattern="1" text="al netto IVA" />
<field x="53.5" y="19.5" type="Testo" align="right" width="12" pattern="1" text="non soggette" />
<field x="82" y="19.5" type="Testo" align="right" width="12" pattern="1" text="fiscali" />
<field x="93.25" y="19.5" type="Testo" align="right" width="12" pattern="1" text="previdenziali" />
<field x="105.5" y="19.5" type="Testo" align="right" width="12" pattern="1" text="corrispondere" />
<field border="1" x="1" y="20.5" type="Linea" width="117" height="0" pattern="1" />
<field x="72" y="7.5" type="Stringa" hidden="1" width="4" id="101" pattern="1">
<source>ANAGR.COMRF</source>
</field>
<field x="77" y="7.5" type="Stringa" hidden="1" width="4" id="102" pattern="1">
<source>ANAGR.COMRES</source>
</field>
<field x="16" y="6.5" type="Stringa" width="35" id="103" pattern="1">
<source>IF(#101='',ANAGR.INDRES,ANAGR.INDRF)</source>
</field>
<field x="72" y="8.5" type="Stringa" hidden="1" width="4" id="201" pattern="1">
<prescript description="H2.201 PRESCRIPT">MESSAGE ISAMREAD,ANAFIS,CODANAGR=ANAGR.CODANAGR,COMNASC</prescript>
</field>
<field x="22" y="8.5" type="Stringa" width="40" id="202" pattern="1">
<prescript description="H2.202 PRESCRIPT">MESSAGE ISAMREAD,COMUNI,COM=#201,DENCOM</prescript>
</field>
<field x="66.5" y="8.5" type="Stringa" width="3" id="203" pattern="1">
<prescript description="H2.203 PRESCRIPT">MESSAGE ISAMREAD,COMUNI,COM=#201,PROVCOM</prescript>
</field>
</section>
<section type="Body" />
<section type="Body" level="1">
<field x="30" type="Data" width="10" pattern="1">
<source>DATAPAG</source>
</field>
<field x="79" type="Numero" align="right" width="2" pattern="1" />
<field x="1" type="Numero" align="right" width="3" id="98" pattern="1">
<source>SCHPER.CODCAUS</source>
</field>
<field x="5" type="Numero" align="right" width="5" id="99" pattern="1">
<prescript description="B1.99 PRESCRIPT">MESSAGE TABLEREAD,%CA7,#98,I0</prescript>
</field>
<field x="11" type="Stringa" width="18" id="100" pattern="1">
<font face="Arial Narrow" size="7" />
<prescript description="B1.100 PRESCRIPT">MESSAGE TABLEREAD,%CA7,#98,S0</prescript>
</field>
<field x="41" type="Valuta" align="right" width="12" id="101" pattern="1" text="#########,@@">
<source>COMPENSO</source>
<postscript description="B1.101 POSTSCRIPT">MESSAGE ADD,F2.101</postscript>
</field>
<field x="66" type="Valuta" align="right" width="12" id="102" pattern="1" text="#########,@@">
<source>IMPONIBILE</source>
<postscript description="B1.102 POSTSCRIPT">MESSAGE ADD,F2.102</postscript>
</field>
<field x="53.5" type="Valuta" align="right" width="12" id="103" pattern="1" text="#########,@@">
<source>SPESA+#101-#102</source>
<postscript description="B1.103 POSTSCRIPT">MESSAGE ADD,F2.103</postscript>
</field>
<field x="82" type="Valuta" align="right" width="12" id="104" pattern="1" text="#########,@@">
<source>RITENUTA</source>
<postscript description="B1.104 POSTSCRIPT">MESSAGE ADD,F2.104</postscript>
</field>
<field x="105.5" type="Valuta" align="right" width="12" id="105" pattern="1" text="#########,@@">
<source>#101-#104</source>
<postscript description="B1.105 POSTSCRIPT">MESSAGE ADD,F2.105</postscript>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1" />
<section type="Foot" level="2">
<field border="1" x="1" type="Linea" width="117" height="0" pattern="1" />
<field x="25" y="0.5" type="Testo" width="10" pattern="1" text="TOTALI" />
<field x="1" y="3" type="Testo" width="100" pattern="1" text="Le cifre su esposte corrispondono alle singole registrazioni risultanti nel conto individuale del percipiente le cui ritenute d'acconto sono state versate nei termini di legge.">
<font face="Arial" bold="1" size="6" />
</field>
<field border="1" radius="100" x="1" y="4" type="Rettangolo" width="60" height="7" pattern="1" />
<field x="1" y="4.5" type="Testo" align="center" width="60" pattern="1" text="SOGGETTO EROGANTE O SOSTITUTO D'IMPOSTA" />
<field x="87" y="5" type="Testo" width="8" pattern="1" text="In fede" />
<field x="10" y="5.5" type="Stringa" width="50" pattern="1">
<prescript description="F2.0 PRESCRIPT">MESSAGE ISAMREAD,NDITTE,CODDITTA=CODDITTA,RAGSOC</prescript>
</field>
<field x="2" y="6.75" type="Testo" width="14" pattern="1" text="Indirizzo:" />
<field x="52" y="7.5" type="Testo" width="5" pattern="1" text="Prov." />
<field x="1.81" y="8.75" type="Testo" width="14" pattern="1" text="Codice fiscale:" />
<field border="1" x="70" y="9" type="Linea" width="40" height="0" pattern="1" />
<field x="87" y="9.5" type="Testo" width="8" pattern="1" text="(firma)" />
<field x="1.81" y="10" type="Testo" width="14" pattern="1" text="Partita IVA:" />
<field x="41" y="0.5" type="Valuta" align="right" width="12" id="101" pattern="1" text="#########,@@">
<font face="Arial" bold="1" size="8" />
</field>
<field x="66" y="0.5" type="Valuta" align="right" width="12" id="102" pattern="1" text="#########,@@">
<font face="Arial" bold="1" size="8" />
</field>
<field x="53.5" y="0.5" type="Valuta" align="right" width="12" id="103" pattern="1" text="#########,@@">
<font face="Arial" bold="1" size="8" />
</field>
<field x="82" y="0.5" type="Valuta" align="right" width="12" id="104" pattern="1" text="#########,@@">
<font face="Arial" bold="1" size="8" />
</field>
<field x="105" y="0.5" type="Valuta" align="right" width="12" id="105" pattern="1" text="#########,@@">
<font face="Arial" bold="1" size="8" />
</field>
<field x="62" y="5.5" type="Stringa" hidden="1" width="5" id="198" pattern="1">
<prescript description="F2.198 PRESCRIPT">MESSAGE ISAMREAD,NDITTE,CODDITTA=CODDITTA,CODANAGR</prescript>
</field>
<field x="68" y="5.5" type="Stringa" hidden="1" width="1" id="199" pattern="1">
<prescript description="F2.199 PRESCRIPT">MESSAGE ISAMREAD,NDITTE,CODDITTA=CODDITTA,TIPOA</prescript>
</field>
<field x="10" y="6.5" type="Stringa" width="35" id="203" pattern="1">
<prescript description="F2.203 PRESCRIPT">MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,INDRES</prescript>
</field>
<field x="45" y="6.5" type="Stringa" width="5" id="204" pattern="1">
<prescript description="F2.204 PRESCRIPT">MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,CIVRES</prescript>
</field>
<field x="10" y="7.5" type="Stringa" width="5" id="205" pattern="1">
<prescript description="F2.205 PRESCRIPT">MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,CAPRES</prescript>
</field>
<field x="61.5" y="7.5" type="Stringa" hidden="1" width="4" id="206" pattern="1">
<prescript description="F2.206 PRESCRIPT">MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,COMRES</prescript>
</field>
<field x="15" y="7.5" type="Stringa" width="35" id="207" pattern="1">
<prescript description="F2.207 PRESCRIPT">MESSAGE ISAMREAD,COMUNI,COM=#206,DENCOM</prescript>
</field>
<field x="57" y="7.5" type="Stringa" width="3" id="208" pattern="1">
<prescript description="F2.208 PRESCRIPT">MESSAGE ISAMREAD,COMUNI,COM=#206,PROVCOM</prescript>
</field>
<field x="15" y="8.75" type="Stringa" width="18" id="209" pattern="1">
<prescript description="F2.209 PRESCRIPT">MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,COFI</prescript>
</field>
<field x="15" y="9.75" type="Stringa" width="13" id="210" pattern="1">
<prescript description="F2.210 PRESCRIPT">MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,PAIV</prescript>
</field>
</section>
<sql>USE RPAG
SELECT DATAPAG[1,4]=#ANNO
JOIN SCHPER INTO CODDITTA==CODDITTA TIPOA==TIPOA CODANAGR==CODANAGR NPROG==NPROG
JOIN ANAGR INTO TIPOA==TIPOA CODANAGR==CODANAGR
JOIN COMUNI TO ANAGR INTO COM==COMRF(COMRES)
FROM CODDITTA=#CODDITTA TIPOA=#TIPODA CODANAGR=#CODANAGRDA
TO CODDITTA=#CODDITTA TIPOA=#TIPOA CODANAGR=#CODANAGRA</sql>
</report>

136
m770/772500a.uml Executable file
View File

@ -0,0 +1,136 @@
// 772500a.uml
// Stampa certificazioni dettagliate
#include "772500a.h"
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
PAGE "Stampa certificazioni dettagliate" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "FD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
FIELD CODDITTA
END
STRING F_RAGSOC 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
DATE F_DATA
BEGIN
PROMPT 3 3 "Data "
FLAGS "A"
FIELD DATA
END
STRING F_LUOGO 50 36
BEGIN
PROMPT 33 3 "Luogo "
FIELD LUOGO
END
NUMBER F_ATTESTA 5
BEGIN
PROMPT 3 4 "N.Attestazione "
FLAGS "R"
FIELD ATTESTA
END
NUMBER F_ANNO 4
BEGIN
PROMPT 3 5 "Anno "
CHECKTYPE REQUIRED
FIELD ANNO
END
STRING F_TIPODA 1
BEGIN
PROMPT 3 8 "Da codice "
FLAGS "U"
FIELD TIPODA
END
TEXT DLG_NULL
BEGIN
PROMPT 22 8 "/"
END
NUMBER F_CODDA 5
BEGIN
PROMPT 24 8 ""
HELP "Codice anagrafico del percipiente da cui iniziare la stampa"
USE LF_PERC
JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
CHECKTYPE SEARCH
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPODA
INPUT CODANAGR F_CODDA
DISPLAY "Tipo" TIPOA
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
OUTPUT F_TIPODA TIPOA
OUTPUT F_CODDA CODANAGR
OUTPUT F_RAGDA LF_ANAG->RAGSOC
WARNING "Percipiente inesistente"
FIELD CODANAGRDA
END
STRING F_RAGDA 50
BEGIN
PROMPT 3 9 "Ragione sociale "
FLAGS "D"
END
STRING F_TIPOA 1
BEGIN
PROMPT 3 10 "A codice "
FLAGS "U"
FIELD TIPOA
END
TEXT DLG_NULL
BEGIN
PROMPT 22 10 "/"
END
NUMBER F_CODA 5
BEGIN
PROMPT 24 10 ""
HELP "Codice anagrafico del percipiente"
COPY USE F_CODDA
CHECKTYPE SEARCH
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODA
COPY DISPLAY F_CODDA
OUTPUT F_TIPOA TIPOA
OUTPUT F_CODA CODANAGR
OUTPUT F_RAGA LF_ANAG->RAGSOC
FIELD CODANAGRA
END
STRING F_RAGA 50
BEGIN
PROMPT 3 11 "Ragione sociale "
FLAGS "D"
END
ENDPAGE
ENDMASK