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

Compare commits

base: root:013a7e2f2f5eb2d590926b2c15195a51d6ab7c26
Branches Tags
root:R12.00.1244
...
compare: root:ed4853d955c2811de4e45050667f3b004f23b17a
Branches Tags
root:R12.00.1244

3 Commits
013a7e2f2f ... ed4853d955

Author SHA1 Message Date
Alessandro Bonazzi
ed4853d955 Patch level : 12.00 1382 
Files correlati     : cg7.exe cg7400c.png cg7400x.png cg7a00a.rep cg7a00a.msk cg7c00a.rep cg7c00a.msk cg7e00b.png cg7h00b.png cg7400a.png cg7400a.rep cg7400a.msk cg7400b.png cg7500a.png cg7600a.png cg7700a.png
                      cg7700b.png cg7800a.png cg7900a.png cg7900b.png cg7a00a.png cg7b00a.png cg7c00a.png cg7d00a.png cg7e00a.png cg7f00a.png cg7g00a.png cg7g00b.png cg7h00a.png cgmenu.men
Bug                 :

Commento:
Quadri Dichiarazione IVA 2025
Aggiunto quadro VL
 2025-03-05 20:21:21 +01:00
Alessandro Bonazzi
5a2fcb0b21 Merge branch 'R12.00.1244' of http://192.168.2.5:30000/root/campo-sirio into R12.00.1244 2025-03-05 20:18:58 +01:00
Alessandro Bonazzi
7308ff69f5 Patch level : 12.00 1382 
Files correlati     : cg7.exe cg7400c.png cg7400x.png cg7a00a.rep cg7a00a.msk cg7c00a.rep cg7c00a.msk cg7e00b.png cg7h00b.png cg7400a.png cg7400a.rep cg7400a.msk cg7400b.png cg7500a.png cg7600a.png cg7700a.png
                      cg7700b.png cg7800a.png cg7900a.png cg7900b.png cg7a00a.png cg7b00a.png cg7c00a.png cg7d00a.png cg7e00a.png cg7f00a.png cg7g00a.png cg7g00b.png cg7h00a.png cgmenu.men
Bug                 :

Commento:
Quadri Dichiarazione IVA 2025
Aggiunto quadro VL
 2025-03-05 20:14:26 +01:00
5 changed files with 66 additions and 29 deletions
Show Stats Expand all files Collapse all files

49
src/cg/cg0200a.uml
View File

@ -369,16 +369,41 @@ BEGIN
CHECKTYPE NORMAL
END
LIST FLD_REGFISC 4 47
BEGIN
PROMPT 2 16 "Regime Fiscale"
ITEM "RF01|RF01 Ordinario"
ITEM "RF02|RF02 Contribuenti minimi"
ITEM "RF04|RF04 Agricoltura e pesca"
ITEM "RF05|RF05 Vendita sali e tabacchi"
ITEM "RF06|RF06 Commercio fiammiferi"
ITEM "RF07|RF07 Editoria"
ITEM "RF08|RF08 Gest. servizi tel. pub."
ITEM "RF09|RF09 Rivendita DdT"
ITEM "RF10|RF10 Intr., giochi"
ITEM "RF11|RF11 Agenzie viaggi e turismo"
ITEM "RF12|RF12 Agriturismo"
ITEM "RF13|RF13 Vendite a domicilio"
ITEM "RF14|RF14 Riv. usato arte col."
ITEM "RF15|RF15 Asta d’arte, col."
ITEM "RF16|RF16 IVA per cassa P.A."
ITEM "RF17|RF17 IVA per cassa"
ITEM "RF18|RF18 Altro"
ITEM "RF19|RF19 Regime forfettario"
ITEM "RF20|RF20 Regime transfrontaliero di franchigia IVA"
FIELD REGFISC
END
BOOLEAN F_SPLITPAY
BEGIN
PROMPT 2 16 "Ente soggetto a 'SCISSIONE DEI PAGAMENTI' ai sensi art. 17-ter D.P.R. 633/72"
PROMPT 2 17 "Ente soggetto a 'SCISSIONE DEI PAGAMENTI' ai sensi art. 17-ter D.P.R. 633/72"
FIELD SPLITPAY
END
LIST LST_TIPO_RFSO 10
BEGIN
HELP "Indicare se è un rappresentante o stabile organizzativo è una persona fisica o giuridica"
PROMPT 2 17 "Tipo RF/SO: "
PROMPT 2 18 "Tipo RF/SO: "
FIELD CODRFSO[1,1]
ITEM "|"
ITEM "G|Giuridico"
@ -387,7 +412,7 @@ END
STRING F_COD_RFSO_G 5
BEGIN
PROMPT 30 17 "Codice RF/SO:"
PROMPT 30 18 "Codice RF/SO:"
FIELD CODRFSO[2,]
USE LF_ANAG SELECT TIPORFSO!=""
INPUT TIPOA "G"
@ -403,7 +428,7 @@ END
STRING F_COD_RFSO_F 5
BEGIN
PROMPT 30 17 "Codice RF/SO:"
PROMPT 30 18 "Codice RF/SO:"
FIELD CODRFSO[2,]
USE LF_ANAG SELECT TIPORFSO!=""
INPUT TIPOA "F"
@ -420,39 +445,39 @@ END
BOOLEAN F_OCCASIONALE
BEGIN
PROMPT 2 18 "Occasionale "
PROMPT 2 19 "Occasionale "
FIELD OCCAS
HELP "Indicare se si tratta di un C/F occasionale"
END
BOOLEAN F_SOSPESO
BEGIN
PROMPT 32 18 "Sospeso "
PROMPT 32 19 "Sospeso "
FIELD SOSPESO
HELP "Indicare se il C/F e' movimentato ma non piu' utilizzabile"
END
TEXT DLG_NULL
BEGIN
PROMPT 62 17 "Collegamenti esterni"
PROMPT 62 18 "Collegamenti esterni"
END
GOLEM DLG_OGGETTI 10 2
BEGIN
PROMPT 64 18 ""
PROMPT 64 19 ""
FIELD OGGETTI
FLAGS "M"
END
DATE DLG_INIFATTEL
BEGIN
PROMPT 2 20 "Inizio Fatt.elettronica "
PROMPT 2 21 "Inizio Fatt.elettronica "
FIELD INIFATTEL
END
DATE DLG_INIREVCHG
BEGIN
PROMPT 42 20 "Inizio reverse charge "
PROMPT 42 21 "Inizio reverse charge "
FIELD INIREVCHG
END
@ -1687,7 +1712,7 @@ END
STRING F_PADESTIN 7
BEGIN
PROMPT 2 19 "Destinatario "
PROMPT 2 19 "Destinatario "
FLAGS ""
MODULES PA,FP
HELP "Codice ufficio dell destinatario della fattura elettronica"
@ -1889,7 +1914,7 @@ END
STRING F_TIPODOCFAT 4
BEGIN
PROMPT 2 12 "Tipo "
PROMPT 2 12 "Tipo "
FIELD LF_CFVEN->TIPODOCFAT
HELP "Codice tipo documento"
USE %TIP

10
src/cg/cg0800a.uml
View File

@ -1,10 +1,10 @@
#include "cg0800a.h"
#define EXPORT_EXCEL
#define EXPORT_PDF
#define EXPORT_TEXT
#define REPORT
#define CLASS_NAME "cg0800a"
#define EXPORT_EXCEL
#define EXPORT_PDF
#define EXPORT_TEXT
#define REPORT
#define CLASS_NAME "cg0800a"
TOOLBAR "topbar" 0 0 0 2
#include <aprintbar.h>

29
src/cg/cg7401.cpp
View File

@ -93,9 +93,10 @@ void TQuadro_IVA_mask::build_report_sheet()
TToken_string d(80);
const char quadro = source_file()[3];
TSheet_field & sf = sfield(F_REPORTS);
TQuadro_IVA_app & app = (TQuadro_IVA_app &)main_app();
sf.destroy();
((TQuadro_IVA_app &) main_app()).load_sheet(sf);
app.load_sheet(sf);
__stop.load("STOP");
const int items = sf.items();
@ -158,13 +159,14 @@ bool TQuadro_IVA_mask::on_field_event(TOperable_field& o, TField_event e, long j
{
const int ditta_attiva = main_app().get_firm();
int codditta = get_int(F_FIRM);
TQuadro_IVA_app & app = (TQuadro_IVA_app &)main_app();
if (codditta != ditta_attiva)
if (app.has_data() && dirty() && codditta != ditta_attiva)
{
if (yesno_box("Devo salvare i dati"))
((TQuadro_IVA_app &)main_app()).save_data(*this);
main_app().set_firm(codditta);
((TQuadro_IVA_app &)main_app()).load_data(*this);
app.save_data(*this);
app.set_firm(codditta);
app.load_data(*this);
reset_dirty();
}
}
@ -173,11 +175,15 @@ bool TQuadro_IVA_mask::on_field_event(TOperable_field& o, TField_event e, long j
if (e == fe_button)
{
int codditta = get_int(F_FIRM);
TQuadro_IVA_app & app = (TQuadro_IVA_app &)main_app();
((TQuadro_IVA_app &)main_app()).save_data(*this);
main_app().set_firm(codditta);
((TQuadro_IVA_app &)main_app()).load_data(*this);
reset_dirty();
if (app.has_data())
{
app.save_data(*this);
app.set_firm(codditta);
app.load_data(*this);
reset_dirty();
}
}
break;
default:
@ -411,10 +417,11 @@ void TQuadro_IVA_app::main_loop()
_mask = new TQuadro_IVA_mask(_name);
if (_mask->exist(F_FIRM))
_mask->set(F_FIRM, prefix().get_codditta());
load_data(*_mask);
if (has_data())
load_data(*_mask);
while ((k = _mask->run()) != K_QUIT)
print();
if (_mask->dirty() && yesno_box("Devo salvare i dati"))
if (has_data() && _mask->dirty() && yesno_box("Devo salvare i dati"))
save_data(*_mask);
set_firm(oldditta);
}

1
src/cg/cg7401.h
View File

@ -86,6 +86,7 @@ protected:
virtual char last_quadro_report() const { return 'a';}
public:
virtual bool has_data() const { return false; }
virtual void load_data(TQuadro_IVA_mask & m) {};
virtual void save_data(TQuadro_IVA_mask & m) {};
virtual TQuadro_IVA_recordset * app_recordset(const char* use, const int year, const char repid) pure;

6
src/cg/cg7a00.cpp
View File

@ -103,6 +103,7 @@ void TQuadro_VL_recordset::load(const char repid)
}
}
/*
TISAM_recordset * recset = app().mask()->get_recset(REP_QUADRO);
recset->set_var("#ANNO", format("%d", year()));
@ -139,6 +140,7 @@ void TQuadro_VL_recordset::load(const char repid)
break;
}
}
*/
const TRectype & lia = cache().get("%LIA", format("%04d", year()));
const bool credito_compensabile = (lia.get("S9") == "CM");
@ -180,6 +182,7 @@ void TQuadro_VL_recordset::load(const char repid)
else
credito_utilizzato_iva = risultato -iva_credeb;
add_value("VL27.1", credito_utilizzato_iva);
ivadetr += credito_utilizzato_iva;
if (month < 10)
{
add_value("VL22.1", credito_utilizzato_iva);
@ -287,6 +290,7 @@ class TQuadro_VL_app : public TQuadro_IVA_app
{
protected:
virtual bool has_data() const override { return true; }
virtual void load_sheet(TSheet_field & sf);
public:
@ -301,7 +305,7 @@ public:
void TQuadro_VL_app::load_sheet(TSheet_field & sf)
{
TToken_string & row1 = sf.row(sf.items()); row1.add("|1|Quadro VJ - VJ1 - VJ19|cg7800b");
// TToken_string & row1 = sf.row(sf.items()); row1.add("|1|Quadro VJ - VJ1 - VJ19|cg7800b");
}
void TQuadro_VL_app::load_data(TQuadro_IVA_mask & m)