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

Patch level : 12.0 698

Browse Source 
Files correlati     : cg4.exe

Le righe IVA di tipo non soggetto e con competenza precedente non venivano incluse in liquidazione
This commit is contained in:
AlexBonazzi 2019-02-12 20:27:25 +01:00
parent 86211c5956
commit d9bd2f7519
28 changed files with 1361 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
build/dncrypt.exe
View File

Binary file not shown.

5
src/cg/cg0.cpp
View File

@ -12,8 +12,9 @@ int main(int argc, char** argv)
case 3: cg0400(argc,argv); break; // Progressivi IVA
case 4: cg0500(argc,argv); break; // Causali contabili
case 5: cg0600(argc,argv); break; // Tabelle contabili
case 6: cg0700(argc,argv); break; // Clienti/Fornitori occasionali
default: cg0100(argc,argv); break; // Piano dei conti
case 6: cg0700(argc, argv); break; // Clienti/Fornitori occasionali
case 7: cg0800(argc, argv); break; // Stampa progressivi IVA avanzata
default: cg0100(argc,argv); break; // Piano dei conti
}
return 0;
}

1
src/cg/cg0.h
View File

@ -8,6 +8,7 @@ int cg0400(int argc, char* argv[]);
int cg0500(int argc, char* argv[]);
int cg0600(int argc, char* argv[]);
int cg0700(int argc, char* argv[]);
int cg0800(int argc, char* argv[]);
#endif // __CG0_H

107
src/cg/cg0800.cpp Normal file
View File

@ -0,0 +1,107 @@
#include <applicat.h>
#include <automask.h>
#include <reprint.h>
#include <variant.h>
#include "cglib05.h"
#include "cg0800a.h"
///////////////////////////////////////////////////////////
// TRiepilogoIVA_mask
///////////////////////////////////////////////////////////
class TRiepilogoIVA_mask : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TRiepilogoIVA_mask() : TAutomask("cg0800a") { }
};
bool TRiepilogoIVA_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
TRiepilogoIVA_mask & m = (TRiepilogoIVA_mask &) o.mask();
switch (o.dlg())
{
case F_DAMESE:
if (e == fe_modify || e == fe_close)
{
if (atoi(o.get()) > m.get_int(F_AMESE))
m.set(F_AMESE, o.get());
}
break;
case F_AMESE:
if (e == fe_modify || e == fe_close)
{
if (atoi(o.get()) < m.get_int(F_DAMESE))
o.set(m.get(F_DAMESE));
}
break;
default:
break;
}
return true;
}
///////////////////////////////////////////////////////////
// TRiepilogoIVA_app
///////////////////////////////////////////////////////////
class TRiepilogoIVA_app : public TSkeleton_application
{
protected:
virtual void main_loop();
};
void TRiepilogoIVA_app::main_loop()
{
TRiepilogoIVA_mask m;
while (m.run() != K_QUIT)
{
TRiepilogoIVA_report rep;
TFilename repname = m.get(F_REPORT);
TRiepilogoIVA_recordset * recset = new TRiepilogoIVA_recordset;
if (repname.blank())
repname = "cg0800a";
rep.load(repname);
if (recset != NULL)
{
const int anno = m.get_int(F_ANNO);
int damese = m.get_int(F_DAMESE);
int amese = m.get_int(F_AMESE);
if (damese == 13)
{
damese = 1;
amese = 12;
}
const TDate da(1, damese, anno);
TDate a(1, amese, anno);
a.set_end_month();
recset->freeze();
recset->set_from(da);
recset->set_to(a);
recset->set_var("#ANNO", m.get_long(F_ANNO), true);
recset->set_var("#DAMESE", m.get_long(F_DAMESE), true);
recset->set_var("#AMESE", m.get_long(F_AMESE), true);
recset->unfreeze();
rep.set_recordset(recset);
rep.print_or_preview();
}
}
}
int cg0800(int argc, char* argv[])
{
TRiepilogoIVA_app app;
app.run(argc, argv, TR("Stampa progressivi IVA avanzata"));
return 0;
}

144
src/cg/cg0800a.rep Normal file
View File

@ -0,0 +1,144 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="cg0800a" lpi="6" 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">
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="45" type="Stringa" align="center" width="50" pattern="1">
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="127" type="Testo" width="4" pattern="1" text="Pag.">
<source>#PAGE</source>
</field>
<field x="131.5" type="Numero" align="right" width="5" pattern="1">
<source>#PAGE</source>
</field>
<field x="28" y="1" type="Testo" width="32" height="2" pattern="1" text="Progressivi IVA">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="62.5" y="1" type="Numero" align="right" width="10" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#ANNO</source>
</field>
<field x="73.5" y="1" type="Testo" width="4" height="2" pattern="1" text="da">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="78" y="1" type="Array" width="20" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#DAMESE</source>
<list>
<li Value="Gennaio" Code="1" />
<li Value="Febbraio" Code="2" />
<li Value="Marzo" Code="3" />
<li Value="Aprile" Code="4" />
<li Value="Maggio" Code="5" />
<li Value="Giugno" Code="6" />
<li Value="Luglio" Code="7" />
<li Value="Agosto" Code="8" />
<li Value="Settembre" Code="9" />
<li Value="Ottobre" Code="10" />
<li Value="Novembre" Code="11" />
<li Value="Dicembre" Code="12" />
</list>
</field>
<field x="99" y="1" type="Testo" width="4" height="2" pattern="1" text="a">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="102.5" y="1" type="Array" width="20" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#AMESE</source>
<list>
<li Value="Gennaio" Code="1" />
<li Value="Febbraio" Code="2" />
<li Value="Marzo" Code="3" />
<li Value="Aprile" Code="4" />
<li Value="Maggio" Code="5" />
<li Value="Giugno" Code="6" />
<li Value="Luglio" Code="7" />
<li Value="Agosto" Code="8" />
<li Value="Settembre" Code="9" />
<li Value="Ottobre" Code="10" />
<li Value="Novembre" Code="11" />
<li Value="Dicembre" Code="12" />
</list>
</field>
<field x="60" y="3" type="Testo" width="10" pattern="1" text="Vendite">
<font face="Courier New" size="10" />
</field>
<field x="85.5" y="3" type="Testo" width="18" pattern="1" text="Corrispettivi">
<font face="Courier New" size="10" />
</field>
<field x="114" y="3" type="Testo" width="12" pattern="1" text="Acquisti">
<font face="Courier New" size="10" />
</field>
<field x="53" y="4" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
</field>
<field x="81" y="4" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
</field>
<field x="108" y="4" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
</field>
<field border="2" x="4" y="5.5" type="Linea" width="134" height="0" pattern="1" />
</section>
<section type="Head" level="1" pattern="1" />
<section type="Body" pattern="1" />
<section type="Body" level="1" pattern="1">
<field x="4" type="Stringa" width="4" pattern="1">
<source>COD</source>
</field>
<field x="9" type="Stringa" dynamic_height="1" width="45" height="2" pattern="1">
<source>DESC</source>
</field>
<field x="55" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPVEN</source>
<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="###.###.###,@@">
<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="###.###.###,@@">
<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="###.###.###,@@">
<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="###.###.###,@@">
<source>IMPACQ</source>
<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="###.###.###,@@">
<source>IVAACQ</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.107 +!</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 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="123" y="1" type="Valuta" align="right" width="13" id="107" 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>

87
src/cg/cg0800a.uml Normal file
View File

@ -0,0 +1,87 @@
#include "cg0800a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_PRINT 2 2
BEGIN
PROMPT 1 1 "Stampa"
PICTURE BMP_PRINT
END
BUTTON DLG_SETPRINT 2 2
BEGIN
PROMPT 1 1 "Imposta"
PICTURE BMP_SETPRINT
END
BUTTON DLG_EDIT 2 2
BEGIN
PROMPT 1 1 "~Edit"
PICTURE BMP_EDIT
END
#include <helpbar.h>
ENDPAGE
PAGE "Stampa Riepilogo IVA" -1 -1 62 5
GROUPBOX DLG_NULL 74 3
BEGIN
PROMPT 1 0 ""
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 15 1 "Ragione "
FLAGS "D"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 3 "Anno "
FLAGS "AP"
CHECKTYPE REQUIRED
END
LIST F_DAMESE 20
BEGIN
PROMPT 2 5 "Da mese "
ITEM "13|13a liquid."
FLAGS "MP"
MESSAGE COPY,F_AMESE
END
LIST F_AMESE 20
BEGIN
PROMPT 2 7 " A mese "
ITEM "13|13a liquid."
FLAGS "MP"
WARINIG "Il mese di inizio non può essere successico al mese di fine"
VALIDATE F_DAMESE<=F_AMESE
END
STRING F_REPORT 256 50
BEGIN
PROMPT 2 -3 "Tipo di stampa "
RSELECT "cg0800a"
CHECKTYPE NORMAL
END
STRING DLG_PROFILE 256 50
BEGIN
PROMPT 2 -1 "Profilo "
PSELECT
END
ENDPAGE
ENDMASK

1
src/cg/cg3200.h
View File

@ -57,5 +57,6 @@
#define F_RAGSOC 505
#define F_SCELTE 506
#define F_DATASTAMPA 507
#define F_DATA_LIQ 508
#endif // __CG3200_H

9
src/cg/cg4.cpp
View File

@ -4,7 +4,7 @@
int main(int argc,char** argv)
{
const int n = argc > 1 ? argv[1][1]-'0' : 0;
const int n = argc > 1 ? abs(atoi(argv[1])) : 0;
switch (n)
{
case 1: cg4200(argc,argv); break; // Copia archivi
@ -13,10 +13,11 @@ int main(int argc,char** argv)
case 4: cg4500(argc,argv); break; // Apertura nuovo esercizio
case 5: cg4600(argc,argv); break; // Chiusura /Apertura
case 6: cg4700(argc,argv); break; // Gestione acconti
//case 7: cg4800(argc,argv); break; // Creazione versamenti per acconto
case 7: cg4800(argc,argv); break; // Creazione versamenti per acconto
case 8: cg4900(argc,argv); break; // Visualizzazione liquidazione acconti
case 9: cg4a00(argc,argv); break; // Gestione Autotrasportatori
default: cg4100(argc,argv); break; // Ricalcolo saldi
case 9: cg4a00(argc, argv); break; // Gestione Autotrasportatori
case 10: cg4b00(argc, argv); break; // Stampa progressivi IVA per competenza
default: cg4100(argc,argv); break; // Ricalcolo saldi
}
return 0;
}

1
src/cg/cg4.h
View File

@ -11,6 +11,7 @@ int cg4700(int argc, char* argv[]);
int cg4800(int argc, char* argv[]);
int cg4900(int argc, char* argv[]);
int cg4a00(int argc, char* argv[]);
int cg4b00(int argc, char* argv[]);
#endif // __CG4_H

34
src/cg/cg4300.cpp
View File

@ -586,10 +586,15 @@ bool TLiquidazione_app::ch_year_handler(TMask_field& f, KEY key)
(wht)f.mask().get_int(CG43_RDB_VERS) : all);
TMask& msk = f.mask();
const int vers = msk.get_int(CG43_RDB_VERS);
const int m = (vers == 3) ? msk.get_int(CG43_LST_TRIM) : msk.get_int(CG43_LST_MESE);
int m = (vers == 3) ? msk.get_int(CG43_LST_TRIM) : msk.get_int(CG43_LST_MESE);
app()._is_liq_acconto = (m == 20);
if (app()._is_liq_acconto)
m = 12;
const TRectype & lim = app().get_lim(m);
const bool def = lim.get_bool("B1");
const bool calc = !def && (lim.empty() || lim.get_bool("B0"));
const bool calc = app()._is_liq_acconto || (!def && (lim.empty() || lim.get_bool("B0")));
msk.set(CG43_CHK_CALCULATE, app()._lim_cleared && calc, 0x3);
msk.set(CG43_CHK_FINAL, app()._lim_cleared && def, 0x3);
@ -690,6 +695,11 @@ bool TLiquidazione_app::what_freq_handler(TMask_field& f, KEY key)
if (key == K_SPACE)
{
int month = f.mask().get_int(CG43_LST_MESE);
app()._is_liq_acconto = (month == 20);
if (app()._is_liq_acconto)
month = 12;
if (f.get()[0] == '3') // trimestre intelligente
{
if (month > 3)
@ -778,7 +788,11 @@ bool TLiquidazione_app::chk_calculate_handler(TMask_field& f, KEY key)
TMask& m = f.mask();
// Abilita solo se il mese di ricalcolo e' != 13 (annuale) e non e' checkkato il campo
const int vers = m.get_int(CG43_RDB_VERS);
const int mese = vers == 3 ? m.get_int(CG43_LST_TRIM) : m.get_int(CG43_LST_MESE);
int mese = vers == 3 ? m.get_int(CG43_LST_TRIM) : m.get_int(CG43_LST_MESE);
app()._is_liq_acconto = (mese == 20);
if (app()._is_liq_acconto)
mese = 12;
const bool abilita = m.get_bool(CG43_CHK_CALCULATE) && mese != 13;
m.enable(CG43_LST_CALC, abilita);
}
@ -891,13 +905,21 @@ bool TLiquidazione_app::set_liquidazione()
if (k == K_ENTER)
{
// handlers have set everything
_month = _what == trimestre ? m.get_int(CG43_LST_TRIM) :
m.get_int(CG43_LST_MESE);
_month = _what == trimestre ? m.get_int(CG43_LST_TRIM) : m.get_int(CG43_LST_MESE);
app()._is_liq_acconto = (_month == 20);
if (app()._is_liq_acconto)
{
_month = 12;
_recalc = one;
}
else
_recalc = m.get_bool(CG43_CHK_CALCULATE) ? one : never;
_year = m.get(CG43_FLD_ANNO);
_date = m.get(CG43_FLD_DATA);
_isprint = m.get_bool(CG43_CHK_STAMPA);
_recalc = m.get_bool(CG43_CHK_CALCULATE) ? one : never;
_printonly = !m.get_bool(CG43_CHK_CALCULATE);
_definitiva = m.get_bool(CG43_CHK_FINAL);

1
src/cg/cg4300.h
View File

@ -304,6 +304,7 @@ class TLiquidazione_app : public TPrint_application
int _monthinatt; // mese inizio attivita' (serve per differita)
bool _lim_cleared;
bool _definitiva;
bool _is_liq_acconto;
bool _end_cassa;
real _diff_ven_ap, _diff_ven_ap_iva, _diff_acq_ap, _diff_acq_ap_iva;

6
src/cg/cg4300a.uml
View File

@ -27,15 +27,16 @@ BEGIN
CHECKTYPE REQUIRED
END
LIST CG43_LST_MESE 15
LIST CG43_LST_MESE 20
BEGIN
PROMPT 28 3 "Periodo "
HELP "Mese per cui effettuare il calcolo liquidazione"
ITEM "13|13a liquid."
ITEM "20|Acconto Dicembre"
FLAGS "MP"
END
LIST CG43_LST_TRIM 15
LIST CG43_LST_TRIM 20
BEGIN
PROMPT 28 3 "Periodo "
HELP "Trimestre di cui effettuare il calcolo liquidazione"
@ -44,6 +45,7 @@ BEGIN
ITEM "9|3 Trimestre "
ITEM "12|4 Trimestre"
ITEM "13|13a liquid."
ITEM "20|Acconto Dicembre"
END
BOOLEAN CG43_CHK_CALCULATE

9
src/cg/cg4301.cpp
View File

@ -1157,7 +1157,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
#ifdef DBG
long nr = _mov->get_long(MOV_NUMREG);
if (nr == 18489 || nr == 27710)
if (nr == 17146)
int i = 1;
#endif
@ -1184,6 +1184,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
if (date.year() != year_int) // Controlla anno di appartenenza, altrimenti is_date_ok potrebbe non funzionare
continue;
}
const TRectype& rcs = _cur->curr(LF_CAUSALI);
const TDate datareg = _mov->get_date(MOV_DATAREG);
const TDate datadoc = _mov->get_date(MOV_DATADOC);
@ -1547,7 +1548,9 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
const int tp = clifo.get_int(CLI_ALLEG);
#ifdef DBG
if (nr == 25722 || nr == 27710)
long nr = _mov->get_long(MOV_NUMREG);
if (nr >= 35363 && nr <= 35368)
int i = 1;
#endif
@ -2025,7 +2028,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt, TAssoc_array &
real imponibile = is_detraibile == 0 ? impon_det : impon_ind;
real imposta = is_detraibile == 0? impos_det : impos_ind;
const TDate datareg = _mov->get_date(MOV_DATAREG);
const bool ok = (is_month_ok(month, datareg.month()) || month == 13) && (atoi(_year) == datareg.year());
const bool ok = (is_month_ok(month, liqmonth == 0 ? datareg.month() : liqmonth) || month == 13) && (atoi(_year) == datareg.year());
if (civa.senza_imposta() && !ok)
continue;

10
src/cg/cg4302.cpp
View File

@ -57,7 +57,8 @@ bool TLiquidazione_app::is_month_ok(int x, int mtocalc) const
{
// per l'annuale ritorna true per tutti i mesi da liquidare
ret = x <= 13;
}
}
return ret;
}
@ -138,7 +139,12 @@ bool TLiquidazione_app::is_date_ok(const TDate& d, int month, int liqmonth, int
else // Nuova selezione dal 1998 in poi
{
if (month <= 12)
return (regyear == year) && ((regmonth == month && liqmonth == 0) || (liqmonth == month));
{
if (_is_liq_acconto)
return (regyear == year) && ((regmonth == month && liqmonth == 0) || (liqmonth == month)) && (d.day() <= _ver->giorno_acc());
else
return (regyear == year) && ((regmonth == month && liqmonth == 0) || (liqmonth == month));
}
else // Annuale, month == 13
return (regyear == year && liqmonth != 12) || (regyear == year + 1 && liqmonth == 12);
}

6
src/cg/cg4304.cpp
View File

@ -1439,6 +1439,9 @@ void TLiquidazione_app::set_firm(_DescrItem& d)
if (d._s2 == "T")
tim_title << format(FR(" del %d° Trimestre %s"), d._f1/3, (const char*) _year);
else
if (_is_liq_acconto)
tim_title << format(FR(" al %d %s %s"), _ver->giorno_acc(), itom(d._f1), (const char*)_year);
else
tim_title << format(FR(" del mese di %s %s"), itom(d._f1), (const char*)_year);
}
@ -1500,6 +1503,9 @@ void TLiquidazione_app::set_att(_DescrItem& d)
if (d._s4 == "T")
tim_title << format(FR(" del %d° Trimestre %s"), d._f1 / 3, (const char*)_year);
else
if (_is_liq_acconto)
tim_title << format(FR(" al %d %s %s"), _ver->giorno_acc(), itom(d._f1), (const char*)_year);
else
tim_title << format(FR(" del mese di %s %s"), itom(d._f1), (const char*)_year);
}

38
src/cg/cg4400.cpp
View File

@ -457,7 +457,14 @@ bool TStampa_registri_app::mask_mese (TMask_field& f, KEY k)
if (id == MESE) //Per stampa su libro unico
mese = f.mask().get_int(MESE);
if (id == FINO_A_MESE)
{
mese = m.get_int(FINO_A_MESE); //Per stampa su bollato
if (mese == 20)
mese = 12;
if (mese == 12)
m.show(TIPO_RIEPILOGATIVO);
else m.hide(TIPO_RIEPILOGATIVO);
}
if (id == MESE)
{
if (mese == 12)
@ -470,13 +477,10 @@ bool TStampa_registri_app::mask_mese (TMask_field& f, KEY k)
m.hide (TIPO_RIEPILOGATIVO);
m.hide (RIF_VID);
}
mese = m.get_int(FINO_A_MESE); //Per stampa su bollato
if (mese == 20)
mese = 12;
}
if (id == FINO_A_MESE)
{
if (mese == 12)
m.show (TIPO_RIEPILOGATIVO);
else m.hide (TIPO_RIEPILOGATIVO);
}
}
if (k==K_TAB && f.mask().is_running())
{
@ -601,6 +605,11 @@ bool TStampa_registri_app::mask_libun (TMask_field& f, KEY k)
const TString& cod = f.mask().get(CODICE_LIBRO_IVA);
int fino_a_mese = f.mask().get_int(MESE);
if (fino_a_mese == 12)
f.mask().show(TIPO_RIEPILOGATIVO);
else f.mask().hide(TIPO_RIEPILOGATIVO);
int anno = f.mask().get_int(ANNO);
bool ok = false;
int last_mese = 13;
@ -1633,8 +1642,10 @@ void TStampa_registri_app::set_page_tot_reg()
} // for
}
if (printed)
{
flush();
fine_mese();
}
if (_stampa_plafonds)
stampa_plafonds(rr);
}
@ -2116,7 +2127,7 @@ bool TStampa_registri_app::print_IVAxCassa(int da_month, int a_month)
return false; // Ho stampato qualcosa?
}
int flags = 0x0;
int flags = 0x06;
FOR_EACH_ARRAY_ITEM(_riga_prospettoXcassa, r, obj)
{
const TRiga& ri = *(const TRiga*)obj;
@ -3753,9 +3764,14 @@ bool TStampa_registri_app::set_print(int n)
}
else //stampe definitive
{
_fino_a_mese = m.get_int(FINO_A_MESE);
_stampa_acconto = (_fino_a_mese == 20);
if (_stampa_acconto)
_fino_a_mese = 12;
if (_tipo_stampa == bollato || _tipo_stampa == rif_giornale)
{
_fino_a_mese = m.get_int(FINO_A_MESE);
_data_da = TDate(1, 1, _annoIVA); // Meglio cosi'
}
else //stampa su libro unico
@ -3771,6 +3787,12 @@ bool TStampa_registri_app::set_print(int n)
int giorni_del_mese = 31;
if (_fino_a_mese == 12)
{
TInteressi_IVA_table i; i.read(_annoIVA, _fino_a_mese);
giorni_del_mese = i.get_int("I0");
if (giorni_del_mese == 0)
giorni_del_mese = 20;
if (!_stampa_acconto)
giorni_del_mese = 31;
_tipo_riepilogativo = m.get(TIPO_RIEPILOGATIVO)[0];
}

3
src/cg/cg4400.h
View File

@ -57,6 +57,7 @@ class TStampa_registri_app : public TPrintapp
long _u_stampata, _primast, __firm, _uprotivap, _ditta;
long _numini, _pagine_stampate;
int _fino_a_mese, _cod_un_loc;
bool _stampa_acconto;
int _annoIVA, _r, _stampa_width, _mese_ultima_liq, _mese_credito;
int _stampa_len, _stampa_mese, _size_header;
real _totale_doc, _credito;
@ -120,7 +121,7 @@ public:
bool ricalcola(int);
bool stampa_riepilogo(int);
void stampa_prospetto_riepilogo(tiporeg, const TString&, const TString&, const bool);
void stampa_progressivi(TRiga_array&, TRigaiva_array&, tiporeg, const bool);
void stampa_progressivi(TRiga_array&, TRigaiva_array&, tiporeg, const int);
void set_choice_limits(TMask&);
void build_ditte_sheet(int flags);
tiporeg cerca_reg(const TString&);

6
src/cg/cg4400a.uml
View File

@ -158,18 +158,20 @@ BEGIN
GROUP 3
END
LISTBOX FINO_A_MESE 10
LISTBOX FINO_A_MESE 20
BEGIN
PROMPT 3 9 "Fino al mese "
HELP "Mese fino al quale eseguire la stampa"
ITEM "20|Acconto di dicembre"
FLAGS "M"
GROUP 1
END
LISTBOX MESE 10
LISTBOX MESE 20
BEGIN
PROMPT 3 9 "Mese "
HELP "Mese di cui eseguire la stampa"
ITEM "20|Acconto di dicembre"
FLAGS "M"
GROUP 2
END

2
src/cg/cg4800.cpp
View File

@ -104,10 +104,8 @@ bool VersAcc_app::create()
TDate oggi(TODAY);
_year = oggi.year();
begin_wait();
build_nomiditte();
build_ditte_sheet();
end_wait();
dispatch_e_menu(BAR_ITEM_ID(1));

157
src/cg/cg4b00.cpp Normal file
View File

@ -0,0 +1,157 @@
#include <applicat.h>
#include <automask.h>
#include <reprint.h>
#include <variant.h>
#include "cglib05.h"
#include "cg4b00a.h"
///////////////////////////////////////////////////////////
// TRiepilogoIVA_mask
///////////////////////////////////////////////////////////
class TRiepilogoIVA_mask : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TRiepilogoIVA_mask() : TAutomask("cg4b00a") { }
};
bool TRiepilogoIVA_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
TRiepilogoIVA_mask & m = (TRiepilogoIVA_mask &)o.mask();
switch (o.dlg())
{
case F_DADATA:
if (e == fe_modify || e == fe_close)
{
if (TDate(o.get()) > m.get_date(F_ADATA))
m.set(F_ADATA, o.get());
}
break;
case F_ADATA:
if (e == fe_modify || e == fe_close)
{
if (TDate(o.get()) < m.get_date(F_DADATA))
o.set(m.get(F_DADATA));
}
case F_DASOTTOC:
if (e == fe_modify || e == fe_close)
{
TString da; da.format("%03d%03d%06ld", m.get_int(F_DAGRUPPO), m.get_int(F_DACONTO), m.get_long(F_DASOTTOC));
TString a; a.format("%03d%03d%06ld", m.get_int(F_AGRUPPO), m.get_int(F_ACONTO), m.get_long(F_ASOTTOC));
if (da > a)
{
m.set(F_AGRUPPO, da.left(3));
m.set(F_ACONTO, da.mid(3, 3));
m.set(F_ASOTTOC, da.right(6), 0x3);
}
}
break;
case F_ASOTTOC:
if (e == fe_modify || e == fe_close)
{
TString da; da.format("%03d%03d%06ld", m.get_int(F_DAGRUPPO), m.get_int(F_DACONTO), m.get_long(F_DASOTTOC));
TString a; a.format("%03d%03d%06ld", m.get_int(F_AGRUPPO), m.get_int(F_ACONTO), m.get_long(F_ASOTTOC));
if (da > a)
{
m.set(F_AGRUPPO, da.left(3));
m.set(F_ACONTO, da.mid(3, 3));
m.set(F_ASOTTOC, da.right(6), 0x3);
}
}
default:
break;
}
return true;
}
///////////////////////////////////////////////////////////
// TRiepilogoIVAcompetenza_recordset
///////////////////////////////////////////////////////////
class TRiepilogoIVAcompetenza_recordset : public TRiepilogoIVA_recordset
{
bool _senzacompetenza;
bool _competenzadiversa;
bool _registrazioneritardo;
public:
virtual bool set_senzacompetenzaIVA(bool on) { _senzacompetenza = on; return on; }
virtual bool set_competenzadiversaIVA(bool on) { _competenzadiversa = on; return on; }
virtual bool set_registrazioneIVAritardo(bool on) { return _registrazioneritardo = on; return on; }
virtual bool senzacompetenzaIVA() { return _senzacompetenza; }
virtual bool competenzadiversaIVA() { return _competenzadiversa; }
virtual bool registrazioneIVAritardo() { return _registrazioneritardo; }
TRiepilogoIVAcompetenza_recordset() {}
virtual ~TRiepilogoIVAcompetenza_recordset() { }
};
///////////////////////////////////////////////////////////
// TRiepilogoIVA_app
///////////////////////////////////////////////////////////
class TRiepilogoIVA_app : public TSkeleton_application
{
protected:
virtual void main_loop();
};
void TRiepilogoIVA_app::main_loop()
{
TRiepilogoIVA_mask m;
while (m.run() != K_QUIT)
{
TRiepilogoIVA_report rep;
TFilename repname = m.get(F_REPORT);
TRiepilogoIVAcompetenza_recordset *recset = new TRiepilogoIVAcompetenza_recordset;
if (repname.blank())
repname = "cg4b00a";
rep.load(repname);
if (recset != NULL)
{
recset->freeze();
recset->set_senzacompetenzaIVA(m.get_bool(F_NOCOMP));
recset->set_competenzadiversaIVA(m.get_bool(F_COMPDIV));
recset->set_registrazioneIVAritardo(m.get_bool(F_REGRIT));
recset->set_from(m.get_date(F_DADATA));
recset->set_to(m.get_date(F_ADATA));
recset->set_from_conto(m.get_long(F_DAGRUPPO), m.get_long(F_DACONTO), m.get_long(F_DASOTTOC));
if (m.get_long(F_DAGRUPPO) != 0)
recset->set_to_conto(m.get_long(F_AGRUPPO), m.get_long(F_ACONTO), m.get_long(F_ASOTTOC));
recset->set_var("#NOCOMP", m.get_bool(F_NOCOMP), true);
recset->set_var("#COMPDIV", m.get_bool(F_COMPDIV), true);
recset->set_var("#REGRIT", m.get_bool(F_REGRIT), true);
recset->set_var("#TODATE", m.get_date(F_ADATA), true);
recset->set_var("#FROMDATE", m.get_date(F_DADATA), true);
recset->set_var("#TODATE", m.get_date(F_ADATA), true);
recset->set_var("#DAGRUPPO", m.get_long(F_DAGRUPPO), true);
recset->set_var("#DACONTO", m.get_long(F_DACONTO), true);
recset->set_var("#DASOTTOCONTO", m.get_long(F_DASOTTOC), true);
recset->set_var("#AGRUPPO", m.get_long(F_AGRUPPO), true);
recset->set_var("#ACONTO", m.get_long(F_ACONTO), true);
recset->set_var("#ASOTTOCONTO", m.get_long(F_ASOTTOC), true);
recset->unfreeze();
rep.set_recordset(recset);
rep.print_or_preview();
}
}
}
int cg4b00(int argc, char* argv[])
{
TRiepilogoIVA_app app;
app.run(argc, argv, TR("Stampa progressivi IVA per competenza"));
return 0;
}

19
src/cg/cg4b00a.h Normal file
View File

@ -0,0 +1,19 @@
#define F_CODDITTA 101
#define F_RAGSOC 102
#define F_DADATA 103
#define F_ADATA 104
#define F_DAGRUPPO 105
#define F_DACONTO 106
#define F_DASOTTOC 107
#define F_AGRUPPO 108
#define F_ACONTO 109
#define F_ASOTTOC 110
#define F_DADESCR 111
#define F_ADESCR 112
#define F_NOCOMP 113
#define F_COMPDIV 114
#define F_REGRIT 115
#define F_REPORT 200
#define F_PROFILO 201

151
src/cg/cg4b00a.rep Normal file
View File

@ -0,0 +1,151 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="cg4b00a" lpi="6" 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">
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="45" type="Stringa" align="center" width="50" pattern="1">
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="127" type="Testo" width="4" pattern="1" text="Pag.">
<source>#PAGE</source>
</field>
<field x="131.5" type="Numero" align="right" width="5" pattern="1">
<source>#PAGE</source>
</field>
<field x="7" y="1" type="Testo" width="32" height="2" pattern="1" text="Progressivi IVA dal">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="38.5" y="1" type="Data" width="20" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#FROMDATE</source>
</field>
<field x="59.5" y="1" type="Testo" width="4" height="2" pattern="1" text="al">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="63.5" y="1" type="Data" width="20" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#TODATE</source>
</field>
<field x="86" y="1" type="Testo" width="8" height="2" pattern="1" text="IVA">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="96" y="1" type="Array" width="30" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#COMPIVA</source>
<list>
<li Value="competenza attuale" Code="1" />
<li Value="competenza precedente" Code="2" />
<li Value="senza competenza" Code="3" />
</list>
</field>
<field x="7" y="3" type="Testo" width="15" height="2" pattern="1" text="Da conto">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="24" y="3" type="Numero" align="right" width="6" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#DAGRUPPO</source>
</field>
<field x="31" y="3" type="Numero" align="right" width="6" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#DACONTO</source>
</field>
<field x="38" y="3" type="Numero" align="right" width="12" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#DASOTTOCONTO</source>
</field>
<field x="59.5" y="3" type="Testo" width="15" height="2" pattern="1" text="A conto">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="76.5" y="3" type="Numero" align="right" width="6" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#AGRUPPO</source>
</field>
<field x="83.5" y="3" type="Numero" align="right" width="6" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#ACONTO</source>
</field>
<field x="90.5" y="3" type="Numero" align="right" width="12" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>#ASOTTOCONTO</source>
</field>
<field x="63" y="5" type="Testo" width="10" pattern="1" text="Vendite">
<font face="Courier New" size="10" />
</field>
<field x="88" y="5" type="Testo" width="18" pattern="1" text="Corrispettivi">
<font face="Courier New" size="10" />
</field>
<field x="117.5" y="5" type="Testo" width="12" pattern="1" text="Acquisti">
<font face="Courier New" size="10" />
</field>
<field x="53" y="6" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
</field>
<field x="81" y="6" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
</field>
<field x="108" y="6" type="Testo" width="30" pattern="1" text=" Imponibile Imposta">
<font face="Courier New" size="10" />
</field>
<field border="2" x="4" y="7.5" type="Linea" width="134" height="0" pattern="1" />
</section>
<section type="Head" level="1" pattern="1" />
<section type="Body" pattern="1" />
<section type="Body" level="1" pattern="1">
<field x="4" type="Stringa" width="4" pattern="1">
<source>COD</source>
</field>
<field x="9" type="Stringa" dynamic_height="1" width="45" height="2" pattern="1">
<source>DESC</source>
</field>
<field x="55" type="Valuta" align="right" width="13" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPVEN</source>
<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="###.###.###,@@">
<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="###.###.###,@@">
<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="###.###.###,@@">
<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="###.###.###,@@">
<source>IMPACQ</source>
<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="###.###.###,@@">
<source>IVAACQ</source>
<postscript description="B1.0 POSTSCRIPT">#THIS @
#F1.107 +!</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 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="123" y="1" type="Valuta" align="right" width="13" id="107" 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>

209
src/cg/cg4b00a.uml Normal file
View File

@ -0,0 +1,209 @@
#include "cg4b00a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_PRINT 2 2
BEGIN
PROMPT 1 1 "Stampa"
PICTURE BMP_PRINT
END
BUTTON DLG_SETPRINT 2 2
BEGIN
PROMPT 1 1 "Imposta"
PICTURE BMP_SETPRINT
END
BUTTON DLG_EDIT 2 2
BEGIN
PROMPT 1 1 "~Edit"
PICTURE BMP_EDIT
END
#include <helpbar.h>
ENDPAGE
PAGE "Stampa" -1 -1 62 5
GROUPBOX DLG_NULL 74 3
BEGIN
PROMPT 1 0 ""
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 15 1 "Ragione "
FLAGS "D"
END
DATE F_DADATA
BEGIN
PROMPT 2 3 "Da: data "
END
DATE F_ADATA
BEGIN
PROMPT 2 5 " A: data "
WARINIG "La data di inizio non può essere successico alla data di fine"
VALIDATE DATE_CMP_FUNC >= F_>ADATA
END
NUMBER F_DAGRUPPO 3
BEGIN
PROMPT 2 7 "Da: Gruppo "
USE LF_PCON KEY 1 SELECT (CONTO="")
INPUT GRUPPO F_DAGRUPPO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DAGRUPPO GRUPPO
CHECKTYPE NORMAL
END
NUMBER F_DACONTO 3
BEGIN
PROMPT 23 7 "Conto "
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
INPUT GRUPPO F_DAGRUPPO
INPUT CONTO F_DACONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DACONTO CONTO
OUTPUT F_DAGRUPPO GRUPPO
CHECKTYPE NORMAL
END
NUMBER F_DASOTTOC 6
BEGIN
PROMPT 36 7 "Sottoconto "
USE LF_PCON
INPUT GRUPPO F_DAGRUPPO
INPUT CONTO F_DACONTO
INPUT SOTTOCONTO F_DASOTTOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DASOTTOC SOTTOCONTO
OUTPUT F_DAGRUPPO GRUPPO
OUTPUT F_DACONTO CONTO
OUTPUT F_DADESCR DESCR
CHECKTYPE NORMAL
END
STRING F_DADESCR 50
BEGIN
PROMPT 14 9 ""
USE LF_PCON KEY 2
INPUT DESCR F_DADESCR
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
OUTPUT F_DASOTTOC SOTTOCONTO
OUTPUT F_DACONTO CONTO
OUTPUT F_DAGRUPPO GRUPPO
OUTPUT F_DADESCR DESCR
CHECKTYPE NORMAL
END
NUMBER F_AGRUPPO 3
BEGIN
PROMPT 2 11 " A: Gruppo "
USE LF_PCON KEY 1 SELECT (CONTO="")
INPUT GRUPPO F_AGRUPPO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_AGRUPPO GRUPPO
CHECKTYPE NORMAL
END
NUMBER F_ACONTO 3
BEGIN
PROMPT 23 11 "Conto "
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
INPUT GRUPPO F_AGRUPPO
INPUT CONTO F_ACONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_ACONTO CONTO
OUTPUT F_AGRUPPO GRUPPO
CHECKTYPE NORMAL
END
NUMBER F_ASOTTOC 6
BEGIN
PROMPT 36 11 "Sottoconto "
USE LF_PCON
INPUT GRUPPO F_AGRUPPO
INPUT CONTO F_ACONTO
INPUT SOTTOCONTO F_ASOTTOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_ASOTTOC SOTTOCONTO
OUTPUT F_AGRUPPO GRUPPO
OUTPUT F_ACONTO CONTO
OUTPUT F_ADESCR DESCR
CHECKTYPE NORMAL
END
STRING F_ADESCR 50
BEGIN
PROMPT 14 13 ""
USE LF_PCON KEY 2
INPUT DESCR F_ADESCR
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
OUTPUT F_ASOTTOC SOTTOCONTO
OUTPUT F_ACONTO CONTO
OUTPUT F_AGRUPPO GRUPPO
OUTPUT F_ADESCR DESCR
CHECKTYPE NORMAL
END
BOOLEAN F_NOCOMP
BEGIN
PROMPT 2 15 "Movimenti senza competenza diversa"
END
BOOLEAN F_COMPDIV
BEGIN
PROMPT 2 17 "Movimenti con competenza nel periodo"
END
BOOLEAN F_REGRIT
BEGIN
PROMPT 2 19 "Movimenti registrati in ritardo"
END
STRING F_REPORT 256 50
BEGIN
PROMPT 2 -3 "Tipo di stampa "
RSELECT "cg4b00a"
CHECKTYPE NORMAL
END
STRING DLG_PROFILE 256 50
BEGIN
PROMPT 2 -1 "Profilo "
PSELECT
END
ENDPAGE
ENDMASK

10
src/cg/cglib03.cpp
View File

@ -280,6 +280,16 @@ TInteressi_IVA_table::~TInteressi_IVA_table()
{
}
int TInteressi_IVA_table::giorno_acc() const
{
int d = get_int("I0");
if (d == 0)
d = 20;
return d;
}
int TInteressi_IVA_table::read(int anno, int mese)
{
TString8 k; k.format("%04d%02d",anno,mese);

1
src/cg/cglib03.h
View File

@ -33,6 +33,7 @@ public:
int read(int anno, int mese);
//int status() { return _ver->status();}
real get(int what);
int giorno_acc() const;
TInteressi_IVA_table();
virtual ~TInteressi_IVA_table();
};

291
src/cg/cglib05.cpp Normal file
View File

@ -0,0 +1,291 @@
#include "cglib05.h"
///////////////////////////////////////////////////////////
// TRiepilogoIVA_recordset
///////////////////////////////////////////////////////////
class TRiepilogoIVA_record : public TObject
{
TString4 _cod;
TArray _values;
real & get_val(int index);
TRiepilogoIVA_record & copy(const TRiepilogoIVA_record & r);
public:
virtual TObject* dup() const { return new TRiepilogoIVA_record(*this); }
const TString & cod() const { return _cod; }
real & impacq() { return get_val(0); }
real & ivaacq() { return get_val(1); }
real & impcorr() { return get_val(2); }
real & ivacorr() { return get_val(3); }
real & impven() { return get_val(4); }
real & ivaven() { return get_val(5); }
TRiepilogoIVA_record& operator= (const TRiepilogoIVA_record & rec) { return copy(rec);}
TRiepilogoIVA_record(const TRiepilogoIVA_record & rec) { copy(rec); }
TRiepilogoIVA_record(const char * cod) : _cod(cod) {}
};
TRiepilogoIVA_record & TRiepilogoIVA_record::copy(const TRiepilogoIVA_record & r)
{
_cod = r._cod;
_values = r._values;
return *this;
}
real & TRiepilogoIVA_record::get_val(int index)
{
real * val = (real *)_values.objptr(index);
if (val == NULL)
_values.add(val = new real, index);
return *val;
}
void TRiepilogoIVA_recordset::requery()
{
if (_freezed)
return;
TString wrk = query_text();
TString query;
TAssoc_array work_array;
TString16 reg_fieldname; reg_fieldname << LF_MOV << "." << MOV_REG;
TString16 datareg_fieldname; datareg_fieldname << LF_MOV << "." << MOV_DATAREG;
TString16 datacomp_fieldname; datacomp_fieldname << LF_MOV << "." << MOV_MESELIQ;
TString16 meseliq_fieldname; meseliq_fieldname << LF_MOV << "." << MOV_MESELIQ;
int p = wrk.find("FROMDATE");
if (p > 0)
query << wrk.left(p) << _from_date.string();
wrk.ltrim(p + 8);
p = wrk.find("TODATE");
if (p > 0)
{
query << wrk.left(p);
if (senzacompetenzaIVA() && !competenzadiversaIVA() && !registrazioneIVAritardo())
query << _to_date.string();
else
{
TDate to(_to_date);
to.set_day(31);
to.set_month(12);
if (_to_date.month() == 12)
to.addyear(1);
query << to.string();
}
query << wrk.mid(p + 6);
}
TISAM_recordset recset(query);
for (bool ok = recset.move_first(); ok; ok = recset.move_next())
{
TString cod = recset.get(RMI_CODIVA).as_string();
TRiepilogoIVA_record * rec = (TRiepilogoIVA_record *)work_array.objptr(cod);
long gruppo = recset.get(RMI_GRUPPO).as_int();
long conto = recset.get(RMI_CONTO).as_int();
long sottoconto = recset.get(RMI_SOTTOCONTO).as_int();
if (((gruppo >= _from_gruppo) && (gruppo <= _to_gruppo)) &&
((conto >= _from_conto) && (conto <= _to_conto)) &&
((sottoconto >= _from_sottoconto) && (conto <= _to_sottoconto)))
{
TRegistro codreg(recset.get(reg_fieldname).as_string());
TipoIVA t = codreg.iva();
// filtro competenza
TDate data = recset.get(datareg_fieldname).as_date();
if (competenzadiversaIVA())
{
const int meseliq = recset.get(meseliq_fieldname).as_int();
if (meseliq != 0)
{
data.set_month(meseliq);
data.set_end_month();
if (data < _from_date || data > _to_date)
continue;
}
}
if (registrazioneIVAritardo())
{
TDate datacomp = recset.get(datacomp_fieldname).as_date();
}
if (senzacompetenzaIVA() && (data < _from_date || data > _to_date))
continue;
if (rec == NULL)
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();
}
else
if (t == iva_vendite)
{
if (codreg.corrispettivi())
{
real & r = rec->impcorr();
r += recset.get(RMI_IMPONIBILE).as_real();
real & r1 = rec->ivacorr();
r1 += recset.get(RMI_IMPOSTA).as_real();
}
else
{
real & r = rec->impven();
r += recset.get(RMI_IMPONIBILE).as_real();
real & r1 = rec->ivaven();
r1 += recset.get(RMI_IMPOSTA).as_real();
}
}
}
}
TString_array keys;
work_array.get_keys(keys);
_rows.destroy();
FOR_EACH_ARRAY_ITEM(keys, i, obj)
{
TString & key = (TString &) *obj;
TRiepilogoIVA_record & row = (TRiepilogoIVA_record &) work_array.find(key);
_rows.add(row);
}
}
bool TRiepilogoIVA_recordset::move_to(TRecnotype pos)
{
bool ok = (pos >= 0) && (pos < items());
if (_pos < 0)
pos = 0;
else
if (_pos >= items())
_pos = items() - 1;
else
_pos = pos;
return ok;
}
const TString& TRiepilogoIVA_recordset::query_text() const
{
TString & query = get_tmp_string();
query << "USE " << LF_RMOVIVA << " KEY 1 SELECT BETWEEN(" << LF_MOV << "." << MOV_DATAREG << ";" << '"' << "FROMDATE" << '"' << ";" << '"' << "TODATE" << '"' << ") \nJOIN " << LF_MOV << " INTO NUMREG==NUMREG";
// query << "USE " << LF_RMOVIVA << " KEY 1 SELECT BETWEEN(" << LF_MOV << "." << MOV_DATAREG << ";FROMDATE;TODATE) \nJOIN " << LF_MOV << " INTO NUMREG==NUMREG";
return query;
}
const TVariant& TRiepilogoIVA_recordset::get_field(int num, const char* field) const
{
if (*field != '#')
{
TVariant & val = get_tmp_var();
TRiepilogoIVA_record & row = (TRiepilogoIVA_record &) _rows[_pos];
if (xvt_str_compare_ignoring_case(field, IVAVEN) == 0)
int i = 1;
if (xvt_str_compare_ignoring_case(field, COD) == 0)
{
val = row.cod();
return val;
}
else
if (xvt_str_compare_ignoring_case(field, DESC) == 0)
{
TCodiceIVA c(row.cod());
val = c.descrizione();
return val;
}
else
if (xvt_str_compare_ignoring_case(field, IMPACQ) == 0)
{
val = row.impacq();
return val;
}
else
if (xvt_str_compare_ignoring_case(field, IVAACQ) == 0)
{
val = row.ivaacq();
return val;
}
else
if (xvt_str_compare_ignoring_case(field, IMPCORR) == 0)
{
val = row.impcorr();
return val;
}
else
if (xvt_str_compare_ignoring_case(field, IVACORR) == 0)
{
val = row.ivacorr();
return val;
}
else
if (xvt_str_compare_ignoring_case(field, IMPVEN) == 0)
{
val = row.impven();
return val;
}
else
if (xvt_str_compare_ignoring_case(field, IVAVEN) == 0)
{
val = row.ivaven();
return val;
}
}
return NULL_VARIANT;
}
void TRiepilogoIVA_recordset::add_field(TFieldtypes tipo, short id, int width, const char* name)
{
TRecordset_column_info* i = new TRecordset_column_info;
TString& n = i->_name;
if (name && *name)
n = name;
i->_type = tipo;
i->_pos = id;
i->_width = width;
_info.add(i);
}
const TVariant& TRiepilogoIVA_recordset::get(unsigned int column) const
{
TVariant & v = get_tmp_var();
if (_pos >= 0 && _pos < items() && column >= 0 && column < columns())
{
const TRecordset_column_info& info = column_info(column);
v = get_field(0, info._name);
}
return v;
}
TRiepilogoIVA_recordset::TRiepilogoIVA_recordset() : TRecordset(), _pos(0), _from_date(botime), _to_date(eotime),
_from_gruppo(0), _from_conto(0), _from_sottoconto(0L),
_to_gruppo(999), _to_conto(999), _to_sottoconto(999999L),
_freezed(false)
{
add_field(_alfafld, 101, 4, COD);
add_field(_alfafld, 102, 50, DESC);
add_field(_realfld, 103, 18, IMPACQ);
add_field(_realfld, 104, 18, IVAACQ);
add_field(_realfld, 105, 18, IMPCORR);
add_field(_realfld, 106, 18, IVACORR);
add_field(_realfld, 107, 18, IMPVEN);
add_field(_realfld, 108, 18, IVAVEN);
}

83
src/cg/cglib05.h Normal file
View File

@ -0,0 +1,83 @@
#include <variant.h>
#include "cglib01.h"
#include "mov.h"
#include "rmoviva.h"
#include "../ba/ba8500.h"
///////////////////////////////////////////////////////////
// TRiepilogoIVA_recordset
///////////////////////////////////////////////////////////
#define COD "COD"
#define DESC "DESC"
#define IMPACQ "IMPACQ"
#define IVAACQ "IVAACQ"
#define IMPCORR "IMPCORR"
#define IVACORR "IVACORR"
#define IMPVEN "IMPVEN"
#define IVAVEN "IVAVEN"
class TRiepilogoIVA_recordset : public TRecordset
{
TArray _rows;
long _pos;
TDate _from_date;
TDate _to_date;
long _from_gruppo;
long _from_conto;
long _from_sottoconto;
long _to_gruppo;
long _to_conto;
long _to_sottoconto;
TArray _info;
bool _freezed;
protected:
virtual const TVariant& get_field(int num, const char* field) const;
void TRiepilogoIVA_recordset::add_field(TFieldtypes tipo, short id, int width, const char* name);
public:
virtual TRecnotype items() const { return _rows.items(); }
virtual bool move_to(TRecnotype pos);
virtual TRecnotype current_row() const { return _pos; }
virtual void requery();
virtual const TString& query_text() const;
virtual unsigned int columns() const { return _info.items(); }
virtual const TRecordset_column_info& column_info(unsigned int column) const { return (const TRecordset_column_info&)_info[column]; }
void freeze(bool on = true) { _freezed = on; }
void unfreeze() { freeze(false); }
// const TString& col2name(unsigned int column) const;
virtual const TVariant& get(unsigned int column) const;
TDate set_from(const TDate& from) { return _from_date = from; }
TDate set_to(const TDate& to) { return _to_date = to; }
void set_from_conto(int gruppo, int conto, long sottoconto) { _from_gruppo = gruppo; _from_conto = conto; _from_sottoconto = sottoconto; }
void set_to_conto(int gruppo, int conto, long sottoconto) { _to_gruppo = gruppo; _to_conto = conto; _to_sottoconto = sottoconto; }
virtual bool set_senzacompetenzaIVA(bool on) { return true; }
virtual bool set_competenzadiversaIVA(bool on) { return false; }
virtual bool set_registrazioneIVAritardo(bool on) { return false; }
virtual bool senzacompetenzaIVA() { return true; }
virtual bool competenzadiversaIVA() { return false; }
virtual bool registrazioneIVAritardo() { return false; }
TRiepilogoIVA_recordset();
virtual ~TRiepilogoIVA_recordset() { }
};
///////////////////////////////////////////////////////////
// TRiepilogoIVA_report
///////////////////////////////////////////////////////////
class TRiepilogoIVA_report : public TReport
{
protected:
virtual bool use_mask() { return false; }
public:
virtual bool set_recordset(TRecordset * set) { return TReport::set_recordset(set); }
};

2
src/cg/cgmenu.men
View File

@ -114,6 +114,8 @@ Item_09 = "Gestione F24", <gvmenu.men>
Item_10 = "Operazioni annuali", [CGMENU_029]
Item_11 = "IVA per cassa / differita", <icmenu.men>
Item_12 = "Gestione autotrasportatori", "cg4 -9", "F"
Item_13 = "Stampa progressivi avanzata", "cg0 -7", "F"
Item_13 = "Stampa progressivi IVA per competenza", "cg4 -10", "F"
[CGMENU_011]
Caption = "Tabelle ministeriali"