root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/co/co1300a.rep
alex d71be5b0cf Patch level : 10.0 patch 767 
Files correlati     : co0.exe co1.exe
Ricompilazione Demo : [ ]
Commento            :

aggiunta stampa progressivi conferimenti

Varie stampe dei vongolari.

stampa per data licenza

Modificato il tracciato dell'importazione conferimenti

Non genera piu' documenti se il totale documento campione e' 0

Prima prova di filtro per stampa soci INAIL

Creazione  report , stampa soci inail

Acconto 8% sui progressivi piu' modifiche alle stampe

8% e stampa progressivi

Filtro sulla stampa co2200a per data licenza

Totale sulla stampa progressivi
Progressivi modificabili con shift f12

aggiunta stampa registro carico scarico

Dalla versione 3.2


git-svn-id: svn://10.65.10.50/trunk@20584 c028cbd2-c16b-5b4b-a496-9718f37d4682
2010-06-21 13:46:42 +00:00

423 lines
16 KiB
XML
Executable File
Raw Blame History

<?xml version="1.0" encoding="UTF-8" ?>
<report name="CO1300A" orientation="2" lpi="6">
<description>Stampa Estratto Conto Socio</description>
<font face="Courier New" size="8" />
<section type="Head" height="13">
<field x="50" y="4.5" type="Testo" width="32" height="1.5" pattern="1" text="Estratto conto dal">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="85" y="4.5" type="Data" width="18" height="1.5" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#DATAINI</source>
</field>
<field x="106" y="4.5" type="Testo" width="4" height="1.5" pattern="1" text="al">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="113.5" y="4.5" type="Data" width="18" height="1.5" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#DATAFIN</source>
</field>
<field x="157.5" y="4.75" type="Testo" width="5" pattern="1" text="Pag." />
<field x="163.5" y="4.75" type="Numero" align="right" width="5" pattern="1" text="#####">
<source>#REPORT.PAGE</source>
</field>
<field border="2" y="6" type="Linea" width="170" height="0" pattern="1" />
<field x="2" y="6.5" type="Stringa" width="60" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>101@.CODCF+' '+TRIM(101@.RAGSOC[1,30])+' '+TRIM(101@.RAGSOC[31,50])</source>
<postscript description="H0.0 POSTSCRIPT">"101@.CODCF" @
#EC_SOCIO !
</postscript>
</field>
<field x="2" y="7.5" type="Stringa" width="50" pattern="1">
<source>101@.INDCF+" ,"+101@.CIVCF</source>
</field>
<field x="2" y="8.5" type="Stringa" width="50" pattern="1">
<source>101@.LOCALITACF</source>
</field>
<field x="2" y="9.5" type="Stringa" width="50" pattern="1">
<source>101@.CAPCF+" "+COMUNI.DENCOM+" ("+COMUNI.PROVCOM+")"</source>
</field>
</section>
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.1@</prescript>
</section>
<section type="Body">
<field x="1" y="0.25" type="Immagine" width="48" height="6" pattern="1">
<source>"logo.jpg"</source>
</field>
<field border="2" y="11" type="Rettangolo" align="right" width="170" height="35" pattern="1" />
<field border="2" x="9" y="11" type="Linea" height="35" pattern="1" />
<field border="2" x="38.5" y="11" type="Linea" height="35" pattern="1" />
<field border="2" x="45.5" y="11" type="Linea" height="35" pattern="1" />
<field border="2" x="55" y="11" type="Linea" height="35" pattern="1" />
<field border="2" x="67" y="11" type="Linea" height="35" pattern="1" />
<field border="2" x="77" y="11" type="Linea" height="35" pattern="1" />
<field border="2" x="88" y="11" type="Linea" height="35" pattern="1" />
<field border="2" x="97" y="11" type="Linea" height="35" pattern="1" />
<field border="2" x="111" y="11" type="Linea" height="35" pattern="1" />
<field border="2" x="126" y="11" type="Linea" height="35" pattern="1" />
<field border="2" x="137" y="11" type="Linea" height="35" pattern="1" />
<field x="1" y="11.75" type="Testo" width="8" pattern="1" text="Data">
<font face="Courier New" size="7" />
</field>
<field x="10" y="11.75" type="Testo" width="22" pattern="1" text="Tipo movimento">
<font face="Courier New" size="7" />
</field>
<field x="37" y="11.75" type="Testo" align="right" width="8" pattern="1" text="F.asta">
<font face="Courier New" size="7" />
</field>
<field x="46" y="11.75" type="Testo" align="right" width="8" pattern="1" text="Peso">
<font face="Courier New" size="7" />
</field>
<field x="56" y="11.75" type="Testo" align="right" width="10" pattern="1" text="Prezzo">
<font face="Courier New" size="7" />
</field>
<field x="68" y="11.75" type="Testo" align="right" width="8" pattern="1" text="Prz-8%">
<font face="Courier New" size="7" />
</field>
<field x="78" y="11.75" type="Testo" align="right" width="9" pattern="1" text="Dir. Merc.">
<font face="Courier New" size="7" />
</field>
<field x="88.5" y="11.75" type="Testo" align="right" width="8" pattern="1" text="Acc. 8%">
<font face="Courier New" size="7" />
</field>
<field x="97.5" y="11.75" type="Testo" align="right" width="13" pattern="1" text="Imp.a credito">
<font face="Courier New" size="7" />
</field>
<field x="112" y="11.75" type="Testo" align="right" width="13" pattern="1" text="Imp.a debito">
<font face="Courier New" size="7" />
</field>
<field x="127" y="11.75" type="Testo" align="right" width="9" pattern="1" text="Imposta">
<font face="Courier New" size="7" />
</field>
<field x="139" y="11.75" type="Testo" width="25" pattern="1" text="Mercato">
<font face="Courier New" size="7" />
</field>
<field border="2" y="12.8" type="Linea" width="170" height="0" pattern="1" />
<field border="2" y="33.8" type="Linea" align="right" width="170" height="0" pattern="1" />
<field x="9.5" y="34.14" type="Testo" width="30" pattern="1" text="Ritenute mensili (12%)">
<font face="Courier New" size="7" />
</field>
<field x="9.5" y="35.14" type="Testo" width="10" pattern="1" text="Totali">
<font face="Courier New" size="7" />
</field>
<field border="2" y="36.5" type="Linea" width="170" height="0" pattern="1" />
<field x="45" y="36.5" type="Testo" valign="center" align="right" width="8" pattern="1" text="Peso">
<font face="Courier New" size="7" />
<source>Q.ta</source>
</field>
<field x="79" y="36.5" type="Testo" valign="center" align="right" width="9" pattern="1" text="Dir. Merc.">
<font face="Courier New" size="7" />
</field>
<field x="89" y="36.5" type="Testo" valign="center" align="right" width="8" pattern="1" text="Acc. 8%">
<font face="Courier New" size="7" />
<source>RITENUTA</source>
</field>
<field x="97" y="36.5" type="Testo" valign="center" align="right" width="13" pattern="1" text="Imp.a credito">
<font face="Courier New" size="7" />
<source>IMPCNS</source>
</field>
<field x="112" y="36.5" type="Testo" valign="center" align="right" width="13" pattern="1" text="Imp.a debito">
<font face="Courier New" size="7" />
<source>IMPCNS</source>
</field>
<field x="126.65" y="36.5" type="Testo" valign="center" align="right" width="10" pattern="1" text="Imposta">
<font face="Courier New" size="7" />
</field>
<field x="9.5" y="36.64" type="Testo" valign="center" width="25" pattern="1" text="Riepilogo per tipo movimento">
<font face="Courier New" size="7" />
</field>
<field border="2" y="37.5" type="Linea" width="170" height="0" pattern="1" />
<field x="0.37" y="46.2" type="Testo" width="170" pattern="1" text="Via Roma 168 - 45018 - Scardovari (RO) - C.F. e P.IVA 00041880295 - Tel. 0426&#2F;89016-89038 Fax 0426&#2F;389175 e-mail: deltapadano@tin.it" />
</section>
<section type="Body" level="1" />
<section type="Head" level="11" />
<section type="Body" level="11">
<sql>USE RDOC SELECT ((TIPORIGA=="CO")||(TIPORIGA=="02"))
JOIN %SPP ALIAS 201 INTO CODTAB==CODART
JOIN ANAMAG INTO CODART==CODARTMAG
FROM CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC
TO CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC
</sql>
<field x="1" type="Data" width="9" pattern="1">
<font face="Courier New" size="7" />
<source>#PARENT.DATADOC</source>
</field>
<field x="37.2" type="Numero" align="right" width="8" pattern="1" hide_zero="1">
<font face="Courier New" size="7" />
<source>#PARENT.NFASTA</source>
</field>
<field x="10" type="Stringa" width="28" id="100" pattern="1">
<font face="Courier New" size="7" />
<source>DESCR</source>
<postscript description="B11.100 POSTSCRIPT">#THIS @
#EC_TIPOMOV !</postscript>
</field>
<field x="46" type="Numero" align="right" width="8" id="102" pattern="1" hide_zero="1" text="###.###,@@">
<font face="Courier New" size="7" />
<groups>1</groups>
<source>QTA</source>
<postscript description="B11.102 POSTSCRIPT">#THIS @
DUP
"F1.102" +!
#EC_QTA !</postscript>
</field>
<field x="56" type="Prezzo" align="right" width="10" codval="33.CODVAL" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<groups>1</groups>
<prescript description="B11.103 PRESCRIPT">"CODNUM" @
"CONF"
=
IF
"PREZZONN" @
"ANAMAG.USER1" @
"X"
=
IF
"QTA" @
DUP
0
&#3C;&#3E;
IF
&#2F;
THEN
THEN
ELSE
0
THEN
#THIS !
</prescript>
</field>
<field x="68" type="Prezzo" align="right" width="8" id="104" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<groups>1</groups>
<prescript description="B11.104 PRESCRIPT">"CODNUM" @
"CONF"
=
IF
"PREZZONS" @
"ANAMAG.USER1" @
"X"
=
IF
"QTA" @
DUP
0
&#3C;&#3E;
IF
&#2F;
THEN
THEN
ELSE
0
THEN
#THIS !
</prescript>
</field>
<field x="78" type="Valuta" align="right" width="9" id="105" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<groups>1</groups>
<source>#PARENT.SPESMER</source>
<prescript description="B11.105 PRESCRIPT">#THIS @ \ leggo il val corrente
-1 * \ cambio segno
#THIS ! \ scrivo il valore</prescript>
<postscript description="B11.105 POSTSCRIPT">#THIS @
DUP
"F1.105" +!
#EC_MER !
</postscript>
</field>
<field x="88" type="Valuta" align="right" width="8" id="106" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<source>SCONTOR</source>
<postscript description="B11.106 POSTSCRIPT">#THIS @
DUP
"F1.106" +!
#EC_ACC !
</postscript>
</field>
<field x="97" type="Valuta" align="right" width="13" id="107" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<groups>1</groups>
<prescript description="B11.107 PRESCRIPT">#PARENT.CODNUM @ \ legge il tipodoc
"CONF" = IF \ controlla se &#E8; un conferimento
#PARENT.NETCRED @ \ se &#E8; un conferimento scrivo TOTMER
DUP
0 &#3E;= IF \ se &#E8; maggiore di zero lo scrivo in B11.107
"B11.107"
ELSE \ altrimenti ci scrivo 0
0 *
"B11.107"
THEN
ELSE \ se non &#E8; un conferimento
#PARENT.IMPONIBILI @ \ se non un conferimento scrivo IMPONIBILI
DUP
0 &#3C;= IF \ se &#E8; minore di zero gli cambio segno e lo scrivo in B11.107
-1 *
"B11.107"
ELSE \ altrimenti scrivo 0
0 *
"B11.107"
THEN
THEN
! \ lo scrivo effettivamente</prescript>
<postscript description="B11.107 POSTSCRIPT">#THIS @
DUP
DUP
"F1.107" +!
#EC_IMPCRE !
#EC_CRED !
</postscript>
</field>
<field x="112" type="Valuta" align="right" width="13" id="108" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<groups>2</groups>
<prescript description="B11.108 PRESCRIPT">#PARENT.CODNUM @ \ legge il tipodoc
"CONF" = IF \ controlla se &#E8; un conferimento
#PARENT.NETCRED @ \ se &#E8; un conferimento scrivo TOTMER
DUP
0 &#3C;= IF \ se &#E8; minore di zero gli cambio segno e lo scrivo in B11.108
-1 *
"B11.108"
ELSE \ altrimenti ci scrivo 0
0 *
"B11.108"
THEN
ELSE \ se non &#E8; un conferimento
#PARENT.IMPONIBILI @ \ se non &#E8; un conferimento scrivo IMPONIBILI
DUP
0 &#3E;= IF \ se &#E8; maggiore di zero lo scrivo in B11.108
"B11.108"
ELSE \ altrimenti scrivo 0
0 *
"B11.108"
THEN
THEN
! \ lo scrivo effettivamente</prescript>
<postscript description="B11.108 POSTSCRIPT">#THIS @
DUP
DUP
"F1.108" +!
#EC_IMPDEB !
#EC_DEB !
</postscript>
</field>
<field x="127" type="Valuta" hidden="1" align="right" width="9" id="109" pattern="1" hide_zero="1" text="#########,@@">
<font face="Courier New" size="7" />
<source>#PARENT.IMPOSTE</source>
<prescript description="B11.109 PRESCRIPT">#THIS @
-1 *
#THIS !</prescript>
<postscript description="B11.109 POSTSCRIPT">#THIS @
#EC_IMPO !</postscript>
</field>
<field x="144" type="Numero" hidden="1" align="right" width="10" id="110" pattern="1">
<source>#PARENT.MERCATO</source>
</field>
<field x="138" type="Stringa" bg_color="#00FFFF" width="31" id="111" pattern="1">
<font face="Courier New" size="7" />
<prescript description="B11.111 PRESCRIPT">MESSAGE _ISAMREAD,CLIFO,TIPOCF='C'!CODCF=#PARENT.MERCATO,RAGSOC</prescript>
</field>
<field x="190" type="Valuta" hidden="1" align="right" width="15" id="207" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<prescript description="B11.207 PRESCRIPT">#PARENT.CODNUM @ \ legge il tipodoc
"CONF" = IF \ controlla se &#E8; un conferimento
#PARENT.NETCRED @ \ se &#E8; un conferimento scrivo TOTMER
ELSE
0
THEN
#THIS ! \ lo scrivo effettivamente
</prescript>
<postscript description="B11.207 POSTSCRIPT">#THIS @
#EC_NETC !
</postscript>
</field>
<field x="133" type="Valuta" hidden="1" align="right" width="15" id="208" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<source>#PARENT.TOTRITACC</source>
<prescript description="B11.208 PRESCRIPT">#THIS @ \ leggo il val corrente
-1 * \ cambio segno
#THIS ! \ scrivo il valore</prescript>
<postscript description="B11.208 POSTSCRIPT">#THIS @
DUP
"F1.98" +!
#EC_RIT !
</postscript>
</field>
</section>
<section type="Foot" level="11" />
<section y="34" hidden_if_needed="1" type="Foot" />
<section y="34" type="Foot" level="1">
<field x="112" type="Valuta" align="right" width="13" id="98" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<groups>1</groups>
<prescript description="F1.98 PRESCRIPT">#THIS @
#108 @
+
#108 !</prescript>
</field>
<field x="46" y="1" type="Numero" align="right" width="8" id="102" pattern="1" text="###.###,@@">
<font face="Courier New" size="7" />
<groups>1</groups>
</field>
<field x="78" y="1" type="Valuta" align="right" width="9" id="105" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<groups>1</groups>
</field>
<field x="88" y="1" type="Valuta" align="right" width="8" id="106" pattern="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<groups>1</groups>
</field>
<field x="97.5" y="1" type="Valuta" align="right" width="13" id="107" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<groups>1</groups>
</field>
<field x="112" y="1" type="Valuta" align="right" width="13" id="108" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" size="7" />
<groups>1</groups>
</field>
<field x="138" y="1" type="Stringa" align="right" width="16" id="109" pattern="1">
<font face="Courier New" bold="1" size="8" />
<groups>1</groups>
<prescript description="F1.109 PRESCRIPT">"F1.107" @ \ leggo il contenuto del campo 107
"F1.108" @ \ leggo il contenuto del campo 108
- \ faccio la sottrazione tra i due
0 &#3E;= IF \ se il risultato &#E8; maggiore di zero, scrivo "saldo a credito"
"Saldo a credito" "F1.109"
ELSE
"Saldo a debito" "F1.109" \ altrimenti scrivo saldo a debito
THEN
!</prescript>
</field>
<field x="155.5" y="1" type="Valuta" align="right" width="12" id="110" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" />
<groups>1</groups>
<prescript description="F1.110 PRESCRIPT">"F1.107" @ \ leggo il contenuto del campo 107
"F1.108" @ \ leggo il conetnuto del campo 108
- \ faccio la sottrazione tra i due
DUP \ duplico il risultato
0 &#3C;= IF \ se il risultato &#E8; negativo, gli cambio segno
-1 *
THEN \ e lo scrivo nel campo 110
#THIS !
</prescript>
<postscript description="F1.110 POSTSCRIPT">1 #EC_CHIUDI !</postscript>
</field>
</section>
<sql>USE DOC
KEY 2
SELECT BETWEEN(DATADOC,#DATAINI,#DATAFIN)&#26;&#26;(201@.I1&#3E;4)
JOIN CLIFO ALIAS 101 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN COMUNI TO 101@ INTO STATO==STATOCF COM==COMCF
JOIN %NUM ALIAS 201@ INTO CODTAB==CODNUM
FROM TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO DATADOC=#DATAINI
TO TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO DATADOC=#DATAFIN
</sql>
</report>
Reference in New Issue View Git Blame Copy Permalink