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

Compare commits

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

No commits in common. "ed4853d955c2811de4e45050667f3b004f23b17a" and "013a7e2f2f5eb2d590926b2c15195a51d6ab7c26" have entirely different histories.
ed4853d955 ... 013a7e2f2f

5 changed files with 29 additions and 66 deletions
Show Stats Expand all files Collapse all files

49
src/cg/cg0200a.uml
View File

@ -369,41 +369,16 @@ 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 17 "Ente soggetto a 'SCISSIONE DEI PAGAMENTI' ai sensi art. 17-ter D.P.R. 633/72"
PROMPT 2 16 "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 18 "Tipo RF/SO: "
PROMPT 2 17 "Tipo RF/SO: "
FIELD CODRFSO[1,1]
ITEM "|"
ITEM "G|Giuridico"
@ -412,7 +387,7 @@ END
STRING F_COD_RFSO_G 5
BEGIN
PROMPT 30 18 "Codice RF/SO:"
PROMPT 30 17 "Codice RF/SO:"
FIELD CODRFSO[2,]
USE LF_ANAG SELECT TIPORFSO!=""
INPUT TIPOA "G"
@ -428,7 +403,7 @@ END
STRING F_COD_RFSO_F 5
BEGIN
PROMPT 30 18 "Codice RF/SO:"
PROMPT 30 17 "Codice RF/SO:"
FIELD CODRFSO[2,]
USE LF_ANAG SELECT TIPORFSO!=""
INPUT TIPOA "F"
@ -445,39 +420,39 @@ END
BOOLEAN F_OCCASIONALE
BEGIN
PROMPT 2 19 "Occasionale "
PROMPT 2 18 "Occasionale "
FIELD OCCAS
HELP "Indicare se si tratta di un C/F occasionale"
END
BOOLEAN F_SOSPESO
BEGIN
PROMPT 32 19 "Sospeso "
PROMPT 32 18 "Sospeso "
FIELD SOSPESO
HELP "Indicare se il C/F e' movimentato ma non piu' utilizzabile"
END
TEXT DLG_NULL
BEGIN
PROMPT 62 18 "Collegamenti esterni"
PROMPT 62 17 "Collegamenti esterni"
END
GOLEM DLG_OGGETTI 10 2
BEGIN
PROMPT 64 19 ""
PROMPT 64 18 ""
FIELD OGGETTI
FLAGS "M"
END
DATE DLG_INIFATTEL
BEGIN
PROMPT 2 21 "Inizio Fatt.elettronica "
PROMPT 2 20 "Inizio Fatt.elettronica "
FIELD INIFATTEL
END
DATE DLG_INIREVCHG
BEGIN
PROMPT 42 21 "Inizio reverse charge "
PROMPT 42 20 "Inizio reverse charge "
FIELD INIREVCHG
END
@ -1712,7 +1687,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"
@ -1914,7 +1889,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,10 +93,9 @@ 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();
app.load_sheet(sf);
((TQuadro_IVA_app &) main_app()).load_sheet(sf);
__stop.load("STOP");
const int items = sf.items();
@ -159,14 +158,13 @@ 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 (app.has_data() && dirty() && codditta != ditta_attiva)
if (codditta != ditta_attiva)
{
if (yesno_box("Devo salvare i dati"))
app.save_data(*this);
app.set_firm(codditta);
app.load_data(*this);
((TQuadro_IVA_app &)main_app()).save_data(*this);
main_app().set_firm(codditta);
((TQuadro_IVA_app &)main_app()).load_data(*this);
reset_dirty();
}
}
@ -175,15 +173,11 @@ 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();
if (app.has_data())
{
app.save_data(*this);
app.set_firm(codditta);
app.load_data(*this);
reset_dirty();
}
((TQuadro_IVA_app &)main_app()).save_data(*this);
main_app().set_firm(codditta);
((TQuadro_IVA_app &)main_app()).load_data(*this);
reset_dirty();
}
break;
default:
@ -417,11 +411,10 @@ void TQuadro_IVA_app::main_loop()
_mask = new TQuadro_IVA_mask(_name);
if (_mask->exist(F_FIRM))
_mask->set(F_FIRM, prefix().get_codditta());
if (has_data())
load_data(*_mask);
load_data(*_mask);
while ((k = _mask->run()) != K_QUIT)
print();
if (has_data() && _mask->dirty() && yesno_box("Devo salvare i dati"))
if (_mask->dirty() && yesno_box("Devo salvare i dati"))
save_data(*_mask);
set_firm(oldditta);
}

1
src/cg/cg7401.h
View File

@ -86,7 +86,6 @@ 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,7 +103,6 @@ void TQuadro_VL_recordset::load(const char repid)
}
}
/*
TISAM_recordset * recset = app().mask()->get_recset(REP_QUADRO);
recset->set_var("#ANNO", format("%d", year()));
@ -140,7 +139,6 @@ 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");
@ -182,7 +180,6 @@ 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);
@ -290,7 +287,6 @@ 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:
@ -305,7 +301,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)