Patch level : 12.0 888

Files correlati     : cg0.exe cg0800a.rep cg4.exe cg4b00a.rep
Commento            :

Aggiornate stampe prpgressivi avanzate
This commit is contained in:
Alessandro Bonazzi 2019-10-15 15:14:48 +02:00
parent e6b3988bad
commit 8f2aec0049
4 changed files with 131 additions and 66 deletions

View File

@ -1,31 +1,31 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="cg0800a" lpi="6" class="cg0800">
<report name="cg0800a" orientation="2" lpi="6" command="cg0 -7" class="cg0800">
<description>Riepilogo progressivi IVA</description>
<font face="Arial" size="7" />
<section type="Head" pattern="1">
<field x="4" type="Data" width="10" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="39" type="Testo" align="center" width="4" pattern="1" text="Ditta">
<field x="48.5" type="Testo" align="center" width="4" pattern="1" text="Ditta">
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="45" type="Stringa" align="center" width="50" pattern="1">
<field x="54.5" type="Stringa" align="center" width="50" pattern="1">
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="127" type="Testo" width="4" pattern="1" text="Pag.">
<field x="154" type="Testo" width="4" pattern="1" text="Pag.">
<source>#PAGE</source>
</field>
<field x="131.5" type="Numero" align="right" width="5" pattern="1">
<field x="158.5" type="Numero" align="right" width="5" pattern="1">
<source>#PAGE</source>
</field>
<field x="38" y="1" type="Testo" width="25" pattern="1" text="Progressivi IVA">
<field x="47.5" y="1" type="Testo" width="25" pattern="1" text="Progressivi IVA">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="64" y="1" type="Numero" align="right" width="6" pattern="1">
<field x="73.5" y="1" type="Numero" align="right" width="6" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>#ANNO</source>
</field>
<field x="74" y="1" type="Array" width="16" pattern="1">
<field x="83.5" y="1" type="Array" width="16" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>#DAMESE</source>
<list>
@ -44,7 +44,7 @@
<li Value="annuale" Code="13" />
</list>
</field>
<field x="91" y="1" type="Array" width="16" pattern="1">
<field x="100.5" y="1" type="Array" width="16" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>#AMESE</source>
<list>
@ -63,25 +63,31 @@
<li Code="13" />
</list>
</field>
<field x="60" y="2.25" type="Testo" width="10" pattern="1" text="Vendite">
<field x="63.5" y="2.25" type="Testo" align="center" width="10" pattern="1" text="Vendite">
<font face="Arial" size="10" />
</field>
<field x="87.5" y="2.25" type="Testo" align="center" width="18" pattern="1" text="Corrispettivi">
<font face="Arial" size="10" />
</field>
<field x="119.5" y="2.25" type="Testo" align="center" width="12" pattern="1" text="Acquisti">
<font face="Courier New" size="10" />
</field>
<field x="85.5" y="2.25" type="Testo" width="18" pattern="1" text="Corrispettivi">
<font face="Courier New" size="10" />
<field x="141.5" y="2.25" type="Testo" align="center" width="20" pattern="1" text="Acquisti indetraibili">
<font face="Arial" size="10" />
</field>
<field x="114" y="2.25" type="Testo" width="12" pattern="1" text="Acquisti">
<font face="Courier New" size="10" />
<field x="53.5" y="3" type="Testo" align="center" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Arial" size="10" />
</field>
<field x="53" y="3.25" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
<field x="81.5" y="3" type="Testo" align="center" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Arial" size="10" />
</field>
<field x="81" y="3.25" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
<field x="110" y="3" type="Testo" align="center" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Arial" size="10" />
</field>
<field x="108" y="3.25" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
<field x="138.5" y="3" type="Testo" align="center" width="25" pattern="1" text=" Imponibile Imposta">
<font face="Arial" size="10" />
</field>
<field border="2" x="4" y="4.75" type="Linea" width="134" height="0" pattern="1" />
<field border="2" x="4" y="4.75" type="Linea" width="160" height="0" pattern="1" />
</section>
<section type="Head" level="1" pattern="1" />
<section type="Body" pattern="1" />
@ -97,22 +103,22 @@
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.102 +!</postscript>
</field>
<field x="69.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<field x="68.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IVAVEN</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.103 +!</postscript>
</field>
<field x="82.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<field x="82" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPCORR</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.104 +!</postscript>
</field>
<field x="96.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<field x="95.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IVACORR</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.105 +!</postscript>
</field>
<field x="110" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<field x="109.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPACQ</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.106 +!</postscript>
@ -122,19 +128,31 @@
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.107 +!</postscript>
</field>
<field x="137" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPACQIND</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.108 +!</postscript>
</field>
<field x="150.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IVAACQIND</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.109 +!</postscript>
</field>
</section>
<section type="Foot" pattern="1" />
<section type="Foot" level="1" pattern="1">
<field border="2" x="4" y="0.5" type="Linea" width="134" height="0" pattern="1" />
<field border="2" x="4" y="0.5" type="Linea" width="160" height="0" pattern="1" />
<field x="9" y="1" type="Testo" width="20" height="2" id="101" pattern="1" text="Totale">
<source>DESC</source>
</field>
<field x="55" y="1" type="Valuta" align="right" width="13" id="102" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="69.5" y="1" type="Valuta" align="right" width="13" id="103" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="82.5" y="1" type="Valuta" align="right" width="13" id="104" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="96.5" y="1" type="Valuta" align="right" width="13" id="105" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="110" y="1" type="Valuta" align="right" width="13" id="106" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="54.5" y="1" type="Valuta" align="right" width="13" id="102" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="68" y="1" type="Valuta" align="right" width="13" id="103" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="82" y="1" type="Valuta" align="right" width="13" id="104" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="95.5" y="1" type="Valuta" align="right" width="13" id="105" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="109.5" y="1" type="Valuta" align="right" width="13" id="106" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="123" y="1" type="Valuta" align="right" width="13" id="107" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="137.5" y="1" type="Valuta" align="right" width="13" id="108" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="151" y="1" type="Valuta" align="right" width="13" id="109" pattern="1" hide_zero="1" text="###.###.###,@@" />
</section>
<sql>USE 25 KEY 1 SELECT BETWEEN(23.DATAREG;#FROMDATE;#TODATE) \nJOIN 23 INTO NUMREG==NUMREG";</sql>
</report>

View File

@ -1,31 +1,31 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="cg4b00a" lpi="6" class="cg4b00">
<report name="cg4b00a" orientation="2" lpi="6" command="cg4 -10" class="cg4b00">
<description>Riepilogo progressivi IVA per competenza</description>
<font face="Arial" size="7" />
<section type="Head" pattern="1">
<field x="4" type="Data" width="10" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="39" type="Testo" align="center" width="4" pattern="1" text="Ditta">
<field x="45.5" type="Testo" align="center" width="4" pattern="1" text="Ditta">
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="45" type="Stringa" align="center" width="50" pattern="1">
<field x="51.5" type="Stringa" align="center" width="50" pattern="1">
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="127" type="Testo" width="4" pattern="1" text="Pag.">
<field x="154" type="Testo" width="4" pattern="1" text="Pag.">
<source>#PAGE</source>
</field>
<field x="131.5" type="Numero" align="right" width="5" pattern="1">
<field x="158.5" type="Numero" align="right" width="5" pattern="1">
<source>#PAGE</source>
</field>
<field x="21.5" y="1" type="Testo" width="45" pattern="1" text="Progressivi IVA per competenza">
<field x="42.5" y="1.25" type="Testo" width="45" pattern="1" text="Progressivi IVA per competenza">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="67.5" y="1" type="Numero" align="right" width="6" pattern="1">
<field x="86.5" y="1.25" type="Numero" align="right" width="6" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>#ANNO</source>
</field>
<field x="77.5" y="1" type="Array" width="16" pattern="1">
<field x="94.5" y="1.25" type="Array" width="16" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>#DAMESE</source>
<list>
@ -44,7 +44,7 @@
<li Value="annuale" Code="13" />
</list>
</field>
<field x="94.5" y="1" type="Array" width="16" pattern="1">
<field x="112.5" y="1.25" type="Array" width="16" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>#AMESE</source>
<list>
@ -63,39 +63,45 @@
<li Code="13" />
</list>
</field>
<field x="28.5" y="2" type="Testo" width="35" pattern="1" text="Da data di registrazione">
<field x="42.5" y="2.25" type="Testo" width="35" pattern="1" text="Da data di registrazione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="63.5" y="2" type="Data" width="14" pattern="1">
<field x="78" y="2.25" type="Data" width="14" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>#FROMDATE</source>
</field>
<field x="78" y="2" type="Testo" width="2" pattern="1" text="a">
<field x="94" y="2.25" type="Testo" width="2" pattern="1" text="a">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="81" y="2" type="Data" width="14" pattern="1">
<field x="97.5" y="2.25" type="Data" width="14" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>#TODATE</source>
</field>
<field x="63" y="3" type="Testo" width="10" pattern="1" text="Vendite">
<field x="64" y="3.25" type="Testo" align="center" width="10" pattern="1" text="Vendite">
<font face="Arial" size="10" />
</field>
<field x="90" y="3.25" type="Testo" align="center" width="15" pattern="1" text="Corrispettivi">
<font face="Arial" size="10" />
</field>
<field x="120.5" y="3.25" type="Testo" width="12" pattern="1" text="Acquisti">
<font face="Courier New" size="10" />
</field>
<field x="88" y="3" type="Testo" width="18" pattern="1" text="Corrispettivi">
<font face="Courier New" size="10" />
<field x="143" y="3.25" type="Testo" align="center" width="20" pattern="1" text="Acquisti indetraibili">
<font face="Arial" size="10" />
</field>
<field x="117.5" y="3" type="Testo" width="12" pattern="1" text="Acquisti">
<font face="Courier New" size="10" />
<field x="54.5" y="4.25" type="Testo" align="center" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Arial" size="10" />
</field>
<field x="53" y="4" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
<field x="82" y="4.25" type="Testo" align="center" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Arial" size="10" />
</field>
<field x="81" y="4" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
<field x="109.5" y="4.25" type="Testo" align="center" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Arial" size="10" />
</field>
<field x="108" y="4" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
<field x="137" y="4.25" type="Testo" align="center" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Arial" size="10" />
</field>
<field border="2" x="4" y="5.5" type="Linea" width="134" height="0" pattern="1" />
<field border="2" x="4" y="5.5" type="Linea" width="160" height="0" pattern="1" />
</section>
<section type="Head" level="1" pattern="1" />
<section type="Body" pattern="1" />
@ -111,7 +117,7 @@
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.102 +!</postscript>
</field>
<field x="69.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<field x="68.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IVAVEN</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.103 +!</postscript>
@ -121,7 +127,7 @@
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.104 +!</postscript>
</field>
<field x="96.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<field x="96" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IVACORR</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.105 +!</postscript>
@ -131,24 +137,36 @@
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.106 +!</postscript>
</field>
<field x="123" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<field x="123.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IVAACQ</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.107 +!</postscript>
</field>
<field x="137.5" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPACQIND</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.108 +!</postscript>
</field>
<field x="151" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IVAACQIND</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.109 +!</postscript>
</field>
</section>
<section type="Foot" pattern="1" />
<section type="Foot" level="1" pattern="1">
<field border="2" x="4" y="0.5" type="Linea" width="134" height="0" pattern="1" />
<field border="2" x="4" y="0.5" type="Linea" width="160" height="0" pattern="1" />
<field x="9" y="1" type="Testo" width="20" height="2" id="101" pattern="1" text="Totale">
<source>DESC</source>
</field>
<field x="55" y="1" type="Valuta" align="right" width="13" id="102" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="69.5" y="1" type="Valuta" align="right" width="13" id="103" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="69" y="1" type="Valuta" align="right" width="13" id="103" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="82.5" y="1" type="Valuta" align="right" width="13" id="104" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="96.5" y="1" type="Valuta" align="right" width="13" id="105" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="110" y="1" type="Valuta" align="right" width="13" id="106" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="123" y="1" type="Valuta" align="right" width="13" id="107" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="123.5" y="1" type="Valuta" align="right" width="13" id="107" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="137" y="1" type="Valuta" align="right" width="13" id="108" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="150.5" y="1" type="Valuta" align="right" width="13" id="109" pattern="1" hide_zero="1" text="###.###.###,@@" />
</section>
<sql>USE 25 KEY 1 SELECT BETWEEN(23.DATAREG;#FROMDATE;#TODATE) \nJOIN 23 INTO NUMREG==NUMREG";</sql>
</report>

View File

@ -32,6 +32,8 @@ public:
real & ivacorr() { return get_val(3); }
real & impven() { return get_val(4); }
real & ivaven() { return get_val(5); }
real & impacqind() { return get_val(6); }
real & ivaacqind() { return get_val(7); }
TRiepilogoIVA_record& operator= (const TRiepilogoIVA_record & rec) { return copy(rec);}
TRiepilogoIVA_record(const TRiepilogoIVA_record & rec) { copy(rec); }
@ -85,6 +87,7 @@ void TRiepilogoIVA_recordset::requery()
long gruppo = recset.get(RMI_GRUPPO).as_int();
long conto = recset.get(RMI_CONTO).as_int();
long sottoconto = recset.get(RMI_SOTTOCONTO).as_int();
int indetr = recset.get(RMI_TIPODET).as_int();
TRegistro reg(recset.get(reg_fieldname).as_string());
TipoIVA t = reg.iva();
@ -119,10 +122,20 @@ void TRiepilogoIVA_recordset::requery()
work_array.add(cod, rec = new TRiepilogoIVA_record(cod));
if (t == iva_acquisti)
{
real & r = rec->impacq();
r += recset.get(RMI_IMPONIBILE).as_real();
real & r1 = rec->ivaacq();
r1 += recset.get(RMI_IMPOSTA).as_real();
if (indetr == 0)
{
real & r = rec->impacq();
r += recset.get(RMI_IMPONIBILE).as_real();
real & r1 = rec->ivaacq();
r1 += recset.get(RMI_IMPOSTA).as_real();
}
else
{
real & r = rec->impacqind();
r += recset.get(RMI_IMPONIBILE).as_real();
real & r1 = rec->ivaacqind();
r1 += recset.get(RMI_IMPOSTA).as_real();
}
}
else
if (t == iva_vendite)
@ -237,6 +250,18 @@ const TVariant& TRiepilogoIVA_recordset::get_field(int num, const char* field) c
val = row.ivaven();
return val;
}
else
if (xvt_str_compare_ignoring_case(field, IMPACQIND) == 0)
{
val = row.impacqind();
return val;
}
else
if (xvt_str_compare_ignoring_case(field, IVAACQIND) == 0)
{
val = row.ivaacqind();
return val;
}
}
return NULL_VARIANT;
}
@ -281,5 +306,7 @@ TRiepilogoIVA_recordset::TRiepilogoIVA_recordset() : TRecordset(), _pos(0), _fro
add_field(_realfld, 106, 18, IVACORR);
add_field(_realfld, 107, 18, IMPVEN);
add_field(_realfld, 108, 18, IVAVEN);
add_field(_realfld, 109, 18, IMPACQIND);
add_field(_realfld, 110, 18, IVAACQIND);
}

View File

@ -17,6 +17,8 @@
#define IVACORR "IVACORR"
#define IMPVEN "IMPVEN"
#define IVAVEN "IVAVEN"
#define IMPACQIND "IMPACQIND"
#define IVAACQIND "IVAACQIND"
class TRiepilogoIVA_recordset : public TRecordset
{