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

Merge branch 'R12.00.1136' of http://10.65.20.33/sirio/CAMPO/campo into R12.00.1136

Browse Source
This commit is contained in:
Simoe 2022-09-08 17:13:36 +02:00
commit 3179ea6e46
29 changed files with 369 additions and 202 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ba/ba3400.cpp
View File

@ -52,26 +52,24 @@ bool TTestrel_application::user_destroy()
// Testmask // Testmask
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
class TTest_application : public TApplication class TTest_application : public TSkeleton_application
{ {
const char* _maskname; const char* _maskname;
protected: protected:
bool create() { return menu(0); } void main_loop();
bool destroy() { return TRUE; }
bool menu(MENU_TAG);
public: public:
TTest_application(const char* name) : _maskname(name) {} TTest_application(const char* name) : _maskname(name) {}
}; };
bool TTest_application::menu(MENU_TAG) void TTest_application::main_loop()
{ {
if (*_maskname) if (*_maskname)
{ {
TMask m(_maskname); TMask m(_maskname);
KEY k = m.run();
if (k == K_QUIT) stop_run(); while (m.run() == K_ENTER);
} }
else else
{ {
@ -83,8 +81,6 @@ bool TTest_application::menu(MENU_TAG)
m.run(); m.run();
} }
} }
return FALSE;
} }
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////

2
src/ba/ba3400a.uml
View File

@ -4,7 +4,7 @@ PAGE "Richiesta" -1 -1 76 12
STRING F_NOME 50 STRING F_NOME 50
BEGIN BEGIN
PROMPT 3 3 "Nome maschera" PROMPT 3 3 "Maschera "
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2

7
src/ba/ba8300.cpp
View File

@ -567,6 +567,13 @@ bool TReport_mask::save_report()
if (ok) if (ok)
_is_dirty = false; _is_dirty = false;
} }
if (is_power_station())
{
DIRECTORY dir;
xvt_fsys_get_default_dir(&dir);
xvt_fsys_set_dir(&dir);
}
return ok; return ok;
} }

2
src/ba/ba8300a.uml
View File

@ -7,7 +7,7 @@ BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
RSELECT "" RSELECT ""
WARNING "E' necessario specificare il codice" WARNING "E' necessario specificare il codice"
CHECKTYPE REQUIRED // CHECKTYPE REQUIRED
END END
STRING F_DESCR 50 46 STRING F_DESCR 50 46

11
src/ba/batbiva.uml
View File

@ -46,7 +46,7 @@ BEGIN
WARNING "Manca la descrizione" WARNING "Manca la descrizione"
END END
LIST LST_TABIVA_S1 2 20 LIST LST_TABIVA_S1 2 28
BEGIN BEGIN
PROMPT 2 2 "Tipo " PROMPT 2 2 "Tipo "
FIELD S1 FIELD S1
@ -70,11 +70,15 @@ BEGIN
MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0 MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4|SHOW,CHK_TABIVA_B5 MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4|SHOW,CHK_TABIVA_B5
MESSAGE ENABLE,FLD_TABIVA_S6 MESSAGE ENABLE,FLD_TABIVA_S6
ITEM "RC|Reverse Charge (vendite)"
MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4|SHOW,CHK_TABIVA_B5
MESSAGE ENABLE,FLD_TABIVA_S6
END END
STRING FLD_TABIVA_S6 4 STRING FLD_TABIVA_S6 4
BEGIN BEGIN
PROMPT 39 2 "C.IVA a cui ventilare " PROMPT 44 2 "C.IVA a cui ventilare "
FLAGS "U" FLAGS "U"
FIELD S6 FIELD S6
COPY USE FLD_TABIVA_CODTAB COPY USE FLD_TABIVA_CODTAB
@ -188,6 +192,8 @@ BEGIN
INPUT FLD_TABIVA_I3 INPUT FLD_TABIVA_I3
OUTPUT FLD_TABIVA_I3 OUTPUT FLD_TABIVA_I3
ITEM " |Nessuno" ITEM " |Nessuno"
ITEM "14|Passaggi interni"
ITEM "16|Cessioni beni ammortizzabili"
ITEM "20|Operazioni non imponibili (comma 1, artt.8, 8bis e 9)" ITEM "20|Operazioni non imponibili (comma 1, artt.8, 8bis e 9)"
ITEM "21|Operazioni non imponibili a seguito di dich. d'intento" ITEM "21|Operazioni non imponibili a seguito di dich. d'intento"
ITEM "22|Altre operazioni non imponibili" ITEM "22|Altre operazioni non imponibili"
@ -201,6 +207,7 @@ BEGIN
ITEM "36|Cessione di microprocessori" ITEM "36|Cessione di microprocessori"
ITEM "37|Prestazioni comparto edile e settori connessi" ITEM "37|Prestazioni comparto edile e settori connessi"
ITEM "38|Operazioni settore energetico" ITEM "38|Operazioni settore energetico"
ITEM "39|Reverse charge altri casi"
ITEM "B1|Ammontare op. es. escluse da nr. 1 a 9 e 11 art. 10" ITEM "B1|Ammontare op. es. escluse da nr. 1 a 9 e 11 art. 10"
ITEM "B2|Ammontare op. es. di cui al nr. 11 art. 10" ITEM "B2|Ammontare op. es. di cui al nr. 11 art. 10"
ITEM "B3|Ammontare op. es. di cui ai nr. 1 a 9 art. 10" ITEM "B3|Ammontare op. es. di cui ai nr. 1 a 9 art. 10"

BIN
src/cg/IVA 2021 modello.pdf
View File

Binary file not shown.

12
src/cg/cg0700a.h
View File

@ -16,4 +16,14 @@
#define O_COMUNENAS 113 #define O_COMUNENAS 113
#define O_DENCOMNAS 114 #define O_DENCOMNAS 114
#define O_STATOPAIV 115 #define O_STATOPAIV 115
#define O_REFERENTE 116
#define O_BYMAIL 117
#define O_MAIL 118
#define O_DOCMAIL 119
#define O_PEC 120
#define O_PTEL 121
#define O_TEL 122
#define O_PTEL2 123
#define O_TEL2 124
#define O_PTEL3 125
#define O_TEL3 126

93
src/cg/cg0700a.uml
View File

@ -200,6 +200,99 @@ BEGIN
//CHECKTYPE NORMAL //CHECKTYPE NORMAL
END END
STRING O_REFERENTE 50
BEGIN
PROMPT 2 14 "Referente "
FIELD REFERENTE
END
TEXT DLG_NULL
BEGIN
PROMPT 2 15 "E-Mail"
END
STRING O_MAIL 50 25
BEGIN
PROMPT 2 16 "Normale "
FIELD MAIL
END
BOOLEAN O_BYMAIL
BEGIN
PROMPT 40 16 "Consenso spedizione doc tramite email"
FIELD BYMAIL
MESSAGE FALSE CLEAR,O_DOCMAIL
MESSAGE TRUE ENABLE,O_DOCMAIL
END
STRING O_DOCMAIL 50 25
BEGIN
PROMPT 2 17 "Documenti "
FIELD DOCMAIL
CHECKTYPE REQUIRED
END
STRING O_PEC 80 45
BEGIN
PROMPT 2 18 "Pec "
FIELD PEC
END
STRING O_PTEL 5
BEGIN
PROMPT 2 19 "Telefono "
FIELD PTEL
HELP "Prefisso telefonico primo recapito"
END
STRING O_TEL 20 15
BEGIN
PROMPT 18 19 "/"
FIELD TEL
HELP "Numero telefonico primo recapito"
END
STRING O_PTEL2 5
BEGIN
PROMPT 11 20 " "
FIELD PTEL2
HELP "Prefisso telefonico secondo recapito"
END
STRING O_TEL2 20 15
BEGIN
PROMPT 18 20 "/"
FIELD TEL2
HELP "Numero telefonico secondo recapito"
END
STRING O_PTEL3 5
BEGIN
PROMPT 11 21 " "
FIELD PTEL3
HELP "Prefisso telefonico terzo recapito"
END
STRING O_TEL3 20 15
BEGIN
PROMPT 18 21 "/"
FIELD TEL3
HELP "Numero telefonico terzo recapito"
END
STRING DLG_NULL 50 32
BEGIN
PROMPT 1 -1 "Ultimo aggiornamento "
FLAGS "D"
FIELD UTENTE
END
DATE DLG_NULL
BEGIN
PROMPT 60 -1 ""
FLAGS "D"
FIELD DATAAGG
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

4
src/cg/cg2100.cpp
View File

@ -988,7 +988,7 @@ void TPrimanota_application::init_insert_mode(TMask& m)
const TString4 codreg = reg.name(); const TString4 codreg = reg.name();
const int regyear = reg.year(); const int regyear = reg.year();
reg.force_read(codreg, regyear); //reg.force_read(codreg, regyear);
const long protiva = reg.protocol() + 1; const long protiva = reg.protocol() + 1;
m.set(F_PROTIVA, protiva, true); // Aggiorna protocollo IVA m.set(F_PROTIVA, protiva, true); // Aggiorna protocollo IVA
@ -1911,7 +1911,7 @@ void TPrimanota_application::genera_automatico(int tipo, const char* causimm)
_automatico->_numdoc.cut(0); _automatico->_numdoc.cut(0);
TRegistro & cr = (TRegistro &) cached_registro(causreg.codice_registro()); TRegistro & cr = (TRegistro &) cached_registro(causreg.codice_registro());
cr.reread(); // cr.reread();
_automatico->_numdoc << cr.protocol() + 1; _automatico->_numdoc << cr.protocol() + 1;
} }
else else

57
src/cg/cg3100.cpp
View File

@ -68,7 +68,8 @@ class TListaMov_application : public TPrintapp
int _ricser; int _ricser;
bool _settata_prima_riga, _causale_gia_stampata,_mov_di_sola_iva; bool _settata_prima_riga, _causale_gia_stampata,_mov_di_sola_iva;
int _cur1,_cur2,_cur2b,_cur3,_cur4,_decidi,/*_tipod,*/_controllo_mov_errati; int _cur1,_cur2,_cur2b,_cur3,_cur4,_decidi,/*_tipod,*/_controllo_mov_errati;
int _numero_riga, _alleg, _tiporegistro, _scelta_stampa, _nr, _n; int _numero_riga, _alleg, _scelta_stampa, _nr, _n;
tiporeg _tiporegistro;
int _provvis; int _provvis;
liste _tipo_lista; liste _tipo_lista;
word _flags; word _flags;
@ -481,11 +482,11 @@ bool TListaMov_application::filter_func_fatture (const TRelation* rel)
const int ann_reg = mov.get_int(MOV_ANNOIVA); const int ann_reg = mov.get_int(MOV_ANNOIVA);
const TString4 cod_reg = mov.get(MOV_REG); const TString4 cod_reg = mov.get(MOV_REG);
const int tipo_reg = tipo_registro(cod_reg, ann_reg); const tiporeg tipo_reg = cached_registro(cod_reg, ann_reg).tipo_registro();
// Considera solo iva acquisti o vendite // Considera solo iva acquisti o vendite
if (tipo_reg != 1 && tipo_reg != 2) if (tipo_reg != vendita && tipo_reg != acquisto)
return FALSE; return false;
if (app()._annoes > 0) //anno esercizio specificato nella maschera if (app()._annoes > 0) //anno esercizio specificato nella maschera
{ {
@ -536,8 +537,10 @@ bool TListaMov_application::filter_func (const TRelation * rel)
{ {
const TString& cod_reg = mov.get(MOV_REG); const TString& cod_reg = mov.get(MOV_REG);
const int ann_reg = mov.get_int(MOV_ANNOIVA); const int ann_reg = mov.get_int(MOV_ANNOIVA);
const int tipo_reg = tipo_registro(cod_reg, ann_reg); const tiporeg tipo_reg = cached_registro(cod_reg, ann_reg).tipo_registro();
if (tipo_reg == 1 || tipo_reg == 2)
// Considera solo iva acquisti o vendite
if (tipo_reg != vendita && tipo_reg != acquisto)
return false; return false;
} }
@ -626,9 +629,10 @@ void TListaMov_application::stampa_errori_rmov()
else set_row(_nr++, FR("@11gCodice C/F non presente in Anagrafica")); else set_row(_nr++, FR("@11gCodice C/F non presente in Anagrafica"));
if (_registro.not_empty()) //se su mov e' indicato il codice registro if (_registro.not_empty()) //se su mov e' indicato il codice registro
{ {
TRegistro rg (_registro, _ae); const TRegistro & reg = cached_registro(_registro, _ae);
const int tiporeg = rg.tipo(); const tiporeg tipo = reg.tipo_registro();
if ((tiporeg == 1 && t != 'C') || (tiporeg == 2 && t != 'F'))
if ((tipo == vendita && t != 'C') || (tipo == acquisto && t != 'F'))
set_row(_nr++, FR("@11gTipo C/F non compatibile con tipo registro")); set_row(_nr++, FR("@11gTipo C/F non compatibile con tipo registro"));
} }
} }
@ -715,14 +719,14 @@ void TListaMov_application::stampa_errori_iva(int* nr, const TRigaiva& riva)
const int tipocr = riva._tipocr; const int tipocr = riva._tipocr;
if (tipodet == 1 || tipodet == 3 || tipodet == 5 || tipodet == 9) if (tipodet == 1 || tipodet == 3 || tipodet == 5 || tipodet == 9)
if (_tiporegistro != 2) if (_tiporegistro != acquisto)
set_row(++(*nr), FR("@11gCodice di indetraibilita' errato")); set_row(++(*nr), FR("@11gCodice di indetraibilita' errato"));
if (_tiporegistro == 1) if (_tiporegistro == vendita)
if (tipocr != 0 && tipocr != 1 && tipocr != 4 && tipocr != 9) if (tipocr != 0 && tipocr != 1 && tipocr != 4 && tipocr != 9)
set_row(++(*nr), FR("@11gTipo costo/ricavo non valido")); set_row(++(*nr), FR("@11gTipo costo/ricavo non valido"));
if (_tiporegistro == 2) if (_tiporegistro == acquisto)
if (tipocr != 0 && tipocr != 1 && tipocr != 2 && tipocr != 3 && tipocr != 5 && tipocr != 8 && tipocr != 9) if (tipocr != 0 && tipocr != 1 && tipocr != 2 && tipocr != 3 && tipocr != 5 && tipocr != 8 && tipocr != 9)
set_row(++(*nr), FR("@11gTipo costo/ricavo non valido")); set_row(++(*nr), FR("@11gTipo costo/ricavo non valido"));
} }
@ -782,11 +786,11 @@ void TListaMov_application::set_page(int file, int count)
TString16 reg = current_cursor()->curr(LF_MOV).get(MOV_REG); TString16 reg = current_cursor()->curr(LF_MOV).get(MOV_REG);
int anno = current_cursor()->curr(LF_MOV).get_int(MOV_ANNOIVA); int anno = current_cursor()->curr(LF_MOV).get_int(MOV_ANNOIVA);
char prov = current_cursor()->curr(LF_MOV).get_char(MOV_PROVVIS); char prov = current_cursor()->curr(LF_MOV).get_char(MOV_PROVVIS);
int tipo = tipo_registro(reg, anno); const tiporeg tipo = cached_registro(reg, anno).tipo_registro();
TEsercizi_contabili esc; TEsercizi_contabili esc;
esc.date2esc(data); // qui verificare esc.date2esc(data); // qui verificare
if ( (tipo == 1) || (tipo == 2) ) if ( (tipo == vendita) || (tipo == acquisto) )
{ {
set_row (_n, FR("@103greg @3s"),FLD(LF_MOV,MOV_REG)); set_row (_n, FR("@103greg @3s"),FLD(LF_MOV,MOV_REG));
set_row (_n, FR("@111gpr @5n"),FLD(LF_MOV,MOV_PROTIVA)); set_row (_n, FR("@111gpr @5n"),FLD(LF_MOV,MOV_PROTIVA));
@ -860,7 +864,8 @@ bool TListaMov_application::preprocess_page(int file,int counter)
_codcf = curmov.get_long(MOV_CODCF); _codcf = curmov.get_long(MOV_CODCF);
_numero = curmov.get_long(MOV_NUMREG); _numero = curmov.get_long(MOV_NUMREG);
_codval = curmov.get(MOV_CODVALI); _codval = curmov.get(MOV_CODVALI);
_tiporegistro = tipo_registro(_registro, _anno); _tiporegistro = cached_registro(_registro, _anno).tipo_registro();
_causale_gia_stampata = FALSE; _causale_gia_stampata = FALSE;
TEsercizi_contabili esc; TEsercizi_contabili esc;
@ -987,11 +992,9 @@ bool TListaMov_application::preprocess_page(int file,int counter)
_descr_causale = caus.get(CAU_DESCR); _descr_causale = caus.get(CAU_DESCR);
_alleg_causale = caus.get_bool(CAU_ALLEG); _alleg_causale = caus.get_bool(CAU_ALLEG);
_tipodocumento = caus.get(CAU_TIPODOC); _tipodocumento = caus.get(CAU_TIPODOC);
_tiporegistro = cached_registro(_registro, _anno).tipo_registro();
_tiporegistro = tipo_registro (_registro, _anno); if ((_tiporegistro != vendita) && (_tiporegistro != acquisto))//se si tratta di un movimento di sola prima nota
return true;
if ((_tiporegistro != 1)&&(_tiporegistro != 2))//se si tratta di un movimento di sola prima nota
return TRUE;
} }
} }
else if (file == LF_RMOV) else if (file == LF_RMOV)
@ -1038,10 +1041,10 @@ bool TListaMov_application::preprocess_page(int file,int counter)
_numr = curmov.get_long(MOV_NUMREG); _numr = curmov.get_long(MOV_NUMREG);
_tipo_elenco = curmov.get(MOV_TIPO); _tipo_elenco = curmov.get(MOV_TIPO);
_codcf = curmov.get_long(MOV_CODCF); _codcf = curmov.get_long(MOV_CODCF);
const int tiporeg = tipo_registro (codreg, anno); const tiporeg tiporeg = cached_registro(codreg, anno).tipo_registro();
const TString8 attreg = AttivitaRegistro (codreg, anno); const TString8 attreg = cached_registro(codreg, anno).attivita();
if (tiporeg == 1 || tiporeg == 2)//se si tratta di un movimento iva if (tiporeg == vendita || tiporeg == acquisto)//se si tratta di un movimento iva
{ {
_tipoatt = TipoAttivita(attreg, get_firm()); _tipoatt = TipoAttivita(attreg, get_firm());
_tipo_elenco = curmov.get(MOV_TIPO); _tipo_elenco = curmov.get(MOV_TIPO);
@ -1870,18 +1873,18 @@ bool TListaMov_application::segnala_errori_iva()
return true; return true;
} }
if (tipodet == 1 || tipodet == 3 || tipodet == 5 || tipodet == 9) if (tipodet == 1 || tipodet == 3 || tipodet == 5 || tipodet == 9)
if (_tiporegistro != 2) if (_tiporegistro != acquisto)
{ {
rmoviva.readat(nrec); rmoviva.readat(nrec);
return true; return true;
} }
if (_tiporegistro == 1) if (_tiporegistro == vendita)
if (tipocr != 0 && tipocr != 1 && tipocr != 4 && tipocr != 9) if (tipocr != 0 && tipocr != 1 && tipocr != 4 && tipocr != 9)
{ {
rmoviva.readat(nrec); rmoviva.readat(nrec);
return true; return true;
} }
if (_tiporegistro == 2) if (_tiporegistro == acquisto)
if (tipocr != 0 && tipocr != 1 && tipocr != 2 && tipocr != 3 && tipocr != 5 && tipocr != 8 && tipocr != 9) if (tipocr != 0 && tipocr != 1 && tipocr != 2 && tipocr != 3 && tipocr != 5 && tipocr != 8 && tipocr != 9)
{ {
rmoviva.readat(nrec); rmoviva.readat(nrec);

16
src/cg/cg3300.cpp
View File

@ -25,6 +25,7 @@
#include "cg3.h" #include "cg3.h"
#include "cg3300.h" #include "cg3300.h"
#include "cglib.h"
#include "cg3300a.h" #include "cg3300a.h"
#include "cg3300b.h" #include "cg3300b.h"
@ -469,18 +470,19 @@ void TStampa_allegati::ricalcola(int anno_dic)
{ {
pi.addstatus(1); pi.addstatus(1);
const int tiporeg = reg.get_int("I0"); const tiporeg tipo = cached_registro(reg).tipo_registro();
if ((tiporeg != 2) && (tiporeg != 1))
if ((tipo != acquisto) && (tipo != vendita))
continue; continue;
if (tiporeg == 1) if (tiporeg == vendita)
{ {
bool sosp = reg.get_bool ("B0"); if (cached_registro(reg).sospeso())
if (sosp) continue; continue;
vendite = TRUE; vendite = true;
} }
else else
vendite = FALSE; vendite = false;
tipodoc = cau.get (CAU_TIPODOC); tipodoc = cau.get (CAU_TIPODOC);
if (corrispettivo (tipodoc)) if (corrispettivo (tipodoc))

22
src/cg/cg3700.cpp
View File

@ -84,7 +84,6 @@ class TLista_fatture : public TPrintapp
protected: protected:
long select_firm_range(long from, long to); long select_firm_range(long from, long to);
int tiporeg(const TString& );
static bool mix_handler(TMask_field&, KEY); static bool mix_handler(TMask_field&, KEY);
static bool date_handler(TMask_field&, KEY); static bool date_handler(TMask_field&, KEY);
static bool to_ditt_handler(TMask_field&, KEY); static bool to_ditt_handler(TMask_field&, KEY);
@ -117,12 +116,6 @@ public:
inline TLista_fatture& app() { return (TLista_fatture&) main_app(); } inline TLista_fatture& app() { return (TLista_fatture&) main_app(); }
int TLista_fatture::tiporeg(const TString& reg)
{
TString8 s; s.format("%4d%-3s",_date_from.year(),(const char*)reg);
return atoi(cache().get("REG", s, "I0"));
}
bool TLista_fatture::filter_func1(const TRelation *r) bool TLista_fatture::filter_func1(const TRelation *r)
{ {
TLista_fatture& a = app(); TLista_fatture& a = app();
@ -144,8 +137,8 @@ bool TLista_fatture::filter_func1(const TRelation *r)
if (riv.get(RMI_TIPODET).blank() || percind.is_zero()) if (riv.get(RMI_TIPODET).blank() || percind.is_zero())
return false; return false;
const int tiporeg = a.tiporeg(rg); const tiporeg tipo = cached_registro(rg).tipo_registro();
if (tiporeg != 2) if (tipo != acquisto)
return false; return false;
} }
else // Tipo costo/ricavo else // Tipo costo/ricavo
@ -443,8 +436,9 @@ bool TLista_fatture::preprocess_page(int file, int counter)
if (_tipo == intra) if (_tipo == intra)
{ {
TString4 codiva = rec.get(RMI_CODIVA); TString4 codiva = rec.get(RMI_CODIVA);
const int tipomov = tiporeg(mov.get(MOV_REG)); const tiporeg tipomov = cached_registro(mov.get(MOV_REG)).tipo_registro();
if (tipomov == 2 && tipodet == 9)
if (tipomov == acquisto && tipodet == 9)
codiva = "~A19"; // Speciale per acquisti indeducibili art. 19 codiva = "~A19"; // Speciale per acquisti indeducibili art. 19
const bool is_key = _intra_items.is_key(codiva); // Esiste l'elemento ? const bool is_key = _intra_items.is_key(codiva); // Esiste l'elemento ?
// Se si' allora prendi quello, altrimenti prendine uno nuovo // Se si' allora prendi quello, altrimenti prendine uno nuovo
@ -469,8 +463,10 @@ bool TLista_fatture::preprocess_page(int file, int counter)
_tot_iva += iva; _tot_iva += iva;
_tp_imp += imp; _tp_imp += imp;
_tp_iva += iva; _tp_iva += iva;
const int tipomov = tiporeg(mov.get(MOV_REG));
if (_tipo == indetraibile && tipomov == 2 && tipodet > 0) const tiporeg tipomov = cached_registro(mov.get(MOV_REG)).tipo_registro();
if (_tipo == indetraibile && tipomov == acquisto && tipodet > 0)
{ {
TString4 codiva = rec.get(RMI_CODIVA); TString4 codiva = rec.get(RMI_CODIVA);
_Iva_item * iva_row = (_Iva_item *) _indetr.objptr(codiva); _Iva_item * iva_row = (_Iva_item *) _indetr.objptr(codiva);

19
src/cg/cg4100.cpp
View File

@ -24,7 +24,7 @@
#include <saldi.h> #include <saldi.h>
#include <causali.h> #include <causali.h>
#include "cglib02.h" #include "cglib.h"
struct therec struct therec
{ {
@ -89,7 +89,7 @@ bool CG4100_App::sort_sal()
sal.set_anno_es(year); sal.set_anno_es(year);
sal.clear_saldi(year); sal.clear_saldi(year);
long numreg = 0L; long numreg = 0L;
tiposal tsal = normale; tiposal tsal = saldo_normale;
char provvis; char provvis;
TDate datareg; TDate datareg;
@ -127,20 +127,11 @@ bool CG4100_App::sort_sal()
mov.put(MOV_NUMREG, numreg); mov.put(MOV_NUMREG, numreg);
mov.read(); mov.read();
CHECK(mov.good(),"Archivi movimenti e righe inconsistenti"); CHECK(mov.good(),"Archivi movimenti e righe inconsistenti");
// Tipo saldo normale per default
tsal = normale;
const TString& codcaus = mov.get(MOV_CODCAUS); const TString& codcaus = mov.get(MOV_CODCAUS);
const TRectype& causale = cache().get(LF_CAUSALI, codcaus);
if (!causale.empty())
{
const char ac = causale.get_char(CAU_MOVAP);
if (ac == 'A')
tsal = apertura; else
if (ac == 'C')
tsal = chiusura;
}
tsal = saldo_normale; // Tipo saldo normale per default
if(codcaus.full())
tsal = cached_causale(codcaus, year).tipo_saldo();
scaricato = mov.get_bool(MOV_SCARCON); scaricato = mov.get_bool(MOV_SCARCON);
provvis = mov.get_char(MOV_PROVVIS); provvis = mov.get_char(MOV_PROVVIS);
datareg = mov.get_date(MOV_DATAREG); datareg = mov.get_date(MOV_DATAREG);

2
src/cg/cg4300.cpp
View File

@ -208,7 +208,6 @@ bool TLiquidazione_app::user_create()
_lam = new TTable("LAM"); _lam = new TTable("LAM");
_pla = new TTable("%PLA"); _pla = new TTable("%PLA");
_reg = new TTable("REG"); _reg = new TTable("REG");
_iva = new TTable("%IVA");
_del = new TTable("%DEL"); _del = new TTable("%DEL");
_mov = &_cur->file(LF_MOV); _mov = &_cur->file(LF_MOV);
@ -225,7 +224,6 @@ bool TLiquidazione_app::user_create()
_pum_r = &(_pum->curr()); _pum_r = &(_pum->curr());
_pam_r = &(_pam->curr()); _pam_r = &(_pam->curr());
_pom_r = &(_pom->curr()); _pom_r = &(_pom->curr());
_iva_r = &(_iva->curr());
_del_r = &(_del->curr()); _del_r = &(_del->curr());
_lam_r = &(_lam->curr()); _lam_r = &(_lam->curr());
_pla_r = &(_pla->curr()); _pla_r = &(_pla->curr());

4
src/cg/cg4300.h
View File

@ -338,7 +338,6 @@ class TLiquidazione_app : public TPrint_application
TTable* _pla; TTable* _pla;
TTable* _ppa; TTable* _ppa;
TTable* _reg; TTable* _reg;
TTable* _iva;
TTable* _del; TTable* _del;
// a reference rectype per file/table // a reference rectype per file/table
@ -346,7 +345,6 @@ class TLiquidazione_app : public TPrint_application
TRectype* _rmoviva_r; TRectype* _rmoviva_r;
TRectype* _pcon_1_r; TRectype* _pcon_1_r;
TRectype* _pcon_2_r; TRectype* _pcon_2_r;
TRectype* _iva_r;
TRectype* _pim_r; TRectype* _pim_r;
TRectype* _pis_r; TRectype* _pis_r;
TRectype* _prm_r; TRectype* _prm_r;
@ -622,7 +620,7 @@ public:
bool look_pla(const char* a, bool create = false); bool look_pla(const char* a, bool create = false);
bool look_ppa(int m, const char* a, int t, bool create = false); bool look_ppa(int m, const char* a, int t, bool create = false);
bool look_del(int month, int type, bool create = false); bool look_del(int month, int type, bool create = false);
bool look_iva(const char* cod); // bool look_iva(const char* cod);
bool look_reg(const char* reg); bool look_reg(const char* reg);
const TRectype & get_lia(long ditta = 0l, bool create = false, int anno = 0); const TRectype & get_lia(long ditta = 0l, bool create = false, int anno = 0);
const int put_lia(const TRectype & lia, bool re = true); const int put_lia(const TRectype & lia, bool re = true);

11
src/cg/cg4302.cpp
View File

@ -554,8 +554,7 @@ bool TLiquidazione_app::look_pla(const char* a, bool create)
(*_pla_codatt) = buf; (*_pla_codatt) = buf;
const TString16 s = _pla_r->get("CODTAB"); const TString16 s = _pla_r->get("CODTAB");
const int err = _pla->read(); bool ok = _pla->read() == NOERR;
bool ok = err == NOERR;
if (!ok && create) if (!ok && create)
{ {
_pla->zero(); _pla->zero();
@ -584,6 +583,7 @@ bool TLiquidazione_app::look_reg(const char* reg)
return rt; return rt;
} }
/*
bool TLiquidazione_app::look_iva(const char* cod) bool TLiquidazione_app::look_iva(const char* cod)
{ {
bool rt = true; bool rt = true;
@ -604,6 +604,7 @@ bool TLiquidazione_app::look_iva(const char* cod)
return rt; return rt;
} }
*/
bool TLiquidazione_app::look_ppa(int month, const char* codatt, int type, bool create) bool TLiquidazione_app::look_ppa(int month, const char* codatt, int type, bool create)
{ {
@ -982,8 +983,10 @@ real TLiquidazione_app::aliquota_agvia()
{ {
real r; real r;
const TString& codagv = ini_get_string(CONFIG_STUDIO, "cg", "CodAgv"); const TString& codagv = ini_get_string(CONFIG_STUDIO, "cg", "CodAgv");
if (codagv.full() && look_iva(codagv)) // Controlla se è vuoto! CM600475 const TCodiceIVA & civa = cached_codIVA(codagv);
r = _iva->get_real("R0");
if (civa.ok()) // Controlla se è vuoto! CM600475
r = civa.percentuale();
return r; return r;
} }

44
src/cg/cg4303.cpp
View File

@ -95,10 +95,13 @@ void TLiquidazione_app::recalc_corrispettivi(int month, const char* codatt)
vaf += imponibile; vaf += imponibile;
_pam->put("R1", vaf); _pam->put("R1", vaf);
_pam->rewrite(); _pam->rewrite();
// Aggiorna il totale IVA periodica CD1_1 // Aggiorna il totale IVA periodica CD1_1
if (month == 13 && look_iva(ci->_codiva)) const TCodiceIVA & civa = cached_codIVA(ci->_codiva);
if (month == 13 && civa.ok())
{ {
if (_iva->get("S10").not_empty()) // Solo CD1_1 ha senso coi corrispettivi... if (civa.tipo_comunicazione_attive().full()) // Solo CD1_1 ha senso coi corrispettivi...
{ {
_pum->curr().add("R14", imponibile); // CD1_1 _pum->curr().add("R14", imponibile); // CD1_1
_pum->rewrite(); _pum->rewrite();
@ -142,12 +145,11 @@ void TLiquidazione_app::recalc_ventilation(int month, const char* codatt)
int tipocr = atoi(*_pim_tipocr); int tipocr = atoi(*_pim_tipocr);
int mese = atoi(*_pim_mese); int mese = atoi(*_pim_mese);
int tipodet = atoi(*_pim_tipodet); int tipodet = atoi(*_pim_tipodet);
look_iva(*_pim_codiva); const TCodiceIVA & civa = cached_codIVA(*_pim_codiva);
// base di riparto solo se non esente, non soggetto, non imponibile // base di riparto solo se non esente, non soggetto, non imponibile
TString16 tipoiva(_iva->get("S1")); TString16 tipoiva(civa.tipo());
TString16 reg = *_pim_codreg; TString16 reg = *_pim_codreg;
/* /*
* caso particolare SENSU Vladimiro (1995) #MI3001 * caso particolare SENSU Vladimiro (1995) #MI3001
* questi vengono pero' conteggiati nel totale * questi vengono pero' conteggiati nel totale
@ -161,18 +163,15 @@ void TLiquidazione_app::recalc_ventilation(int month, const char* codatt)
if (tipocr == 1 && (mese == m) && if (tipocr == 1 && (mese == m) &&
att == (const char*)(*_pim_codatt)) att == (const char*)(*_pim_codatt))
{ {
if (tipoiva != "NS" && tipoiva != "NI" && tipoiva != "ES") if (civa.iva_da_ventilare())
{ {
real lurd = _pim->get_real("R0"); real lurd = _pim->get_real("R0");
lurd += _pim->get_real("R1"); lurd += _pim->get_real("R1");
real perc = _iva->get_real("R0"); real perc = civa.percentuale();
TString other = _iva->get("S6"); TString other = civa.iva_a_cui_ventilare();
if (!other.empty())
{ if (other.full())
// ventila a un altro codice perc = cached_codIVA(other).percentuale(); // ventila a un altro codice
look_iva(other);
perc = _iva->get_real("R0");
}
add_ventilation(perc / CENTO, lurd, *_pim_codiva, other); add_ventilation(perc / CENTO, lurd, *_pim_codiva, other);
} }
} }
@ -341,9 +340,11 @@ void TLiquidazione_app::recalc_ventilation(int month, const char* codatt)
_pam->rewrite(); _pam->rewrite();
// Aggiorna il totale IVA periodica CD1_1 // Aggiorna il totale IVA periodica CD1_1
if (month == 13 && look_iva(vv->_codiva)) const TCodiceIVA & civa = cached_codIVA(vv->_codiva);
if (month == 13 && civa.ok())
{ {
if (_iva->get("S10").not_empty()) // Solo CD1_1 ha senso coi corrispettivi if (civa.get("S10").full()) // Solo CD1_1 ha senso coi corrispettivi
{ {
_pum->curr().add("R14", imponibile); // CD1_1 _pum->curr().add("R14", imponibile); // CD1_1
_pum->rewrite(); _pum->rewrite();
@ -364,9 +365,10 @@ void TLiquidazione_app::recalc_ventilation(int month, const char* codatt)
// viene amorosamente messo a quanto il codice IVA prevede // viene amorosamente messo a quanto il codice IVA prevede
if (!was) if (!was)
{ {
look_iva(vv->_codiva); const TCodiceIVA & civa = cached_codIVA((vv->_codiva));
_pim->put("I1", (long)vendita); _pim->put("I1", (long)vendita);
if (!_iva->get_bool("B4")) if (!civa.escluso_dal_rimborso())
_pim->put("B3", "X"); _pim->put("B3", "X");
} }
_pim->rewrite(); _pim->rewrite();
@ -533,8 +535,8 @@ _DescrItem* TLiquidazione_app::recalc_rimborso(int month, const char* codatts,
if (!_pim->get_bool("B3")) continue; if (!_pim->get_bool("B3")) continue;
// Se il tipo di codice e' NS non va considerato nella sommatoria del tot. acquisti // Se il tipo di codice e' NS non va considerato nella sommatoria del tot. acquisti
look_iva(codiva); const TCodiceIVA & civa = cached_codIVA(codiva);
const bool non_sogg = _iva->get("S1") == "NS"; const bool non_sogg = civa.iva_non_soggetta();
if (!is_mens) // Trimestrali if (!is_mens) // Trimestrali
{ {
@ -565,7 +567,7 @@ _DescrItem* TLiquidazione_app::recalc_rimborso(int month, const char* codatts,
ca._totale += _pim->get_real("R3"); ca._totale += _pim->get_real("R3");
if (!is_key) // se non c'e' lo aggiunge if (!is_key) // se non c'e' lo aggiunge
{ {
ca._aliquota = _iva->get_real("R0")/CENTO; // Se e' nuovo setta l'aliquota ca._aliquota = civa.moltiplicatore_percentuale(); // Se e' nuovo setta l'aliquota
corr_ann.add(codiva,ca); corr_ann.add(codiva,ca);
} }
} }

51
src/cg/cg4304.cpp
View File

@ -286,7 +286,7 @@ void TLiquidazione_app::describe_ventilation(int month, const char* codatt)
continue; continue;
look_reg(*_pim_codreg); look_reg(*_pim_codreg);
look_iva(*_pim_codiva); const TCodiceIVA & civa = cached_codIVA(*_pim_codiva);
int tipocr = atoi(*_pim_tipocr); int tipocr = atoi(*_pim_tipocr);
int tipodet = atoi(*_pim_tipodet); int tipodet = atoi(*_pim_tipodet);
@ -295,7 +295,7 @@ void TLiquidazione_app::describe_ventilation(int month, const char* codatt)
real imponibile = _pim->get_real("R0"); real imponibile = _pim->get_real("R0");
real imposta = _pim->get_real("R1"); real imposta = _pim->get_real("R1");
tiporeg tipomov = (tiporeg)_reg->get_long("I0"); tiporeg tipomov = (tiporeg)_reg->get_long("I0");
TString4 tipoiva = _iva->get("S1"); TString4 tipoiva = civa.tipo();
if (_year != *_pim_anno || (month == 13 && mese < 13)) if (_year != *_pim_anno || (month == 13 && mese < 13))
continue; continue;
@ -564,28 +564,19 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
continue; continue;
TString4 codiva = codtab.mid(16,4); codiva.trim(); TString4 codiva = codtab.mid(16,4); codiva.trim();
if (!look_iva(codiva)) const TCodiceIVA & civa = cached_codIVA(codiva);
if (!civa.ok())
continue; continue;
tiporeg tipomov = (tiporeg)_reg->get_int("I0"); tiporeg tipomov = (tiporeg)_reg->get_int("I0");
bool corrisp = _reg->get_bool("B0"); bool corrisp = _reg->get_bool("B0");
const TString4 tipoiva = _iva->get("S1"); const TString4 tipoiva = civa.tipo();
const TString4 other = tab->get("S4"); const TString4 other = tab->get("S4");
TToken_string s1(tab->get("S1"), '!'); // Imponibile/iva fatture in ritardo TToken_string s1(tab->get("S1"), '!'); // Imponibile/iva fatture in ritardo
real rit_imp(s1.get(0)); real rit_imp(s1.get(0));
real rit_iva(s1.get(1)); real rit_iva(s1.get(1));
/* Perchè _pim invece di tab ? 17-10-2012
diffimp = _pim->get_real("R26");
diffiva = _pim->get_real("R27");
diffincimp = _pim->get_real("R28");
diffinciva = _pim->get_real("R29");
diffimp_acq = _pim->get_real("R30");
diffiva_acq = _pim->get_real("R31");
diffincimp_acq = _pim->get_real("R32");
diffinciva_acq = _pim->get_real("R33"); */
diffimp = tab->get_real("R26"); diffimp = tab->get_real("R26");
diffiva = tab->get_real("R27"); diffiva = tab->get_real("R27");
diffincimp = tab->get_real("R28"); diffincimp = tab->get_real("R28");
@ -603,10 +594,10 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
issosp |= (sosp_imp != nessuna_sospensione); // Setta il flag di presenza registri in sospensione (qualsiasi tipo: sospensione_normale, vol_affari, liquidazione) issosp |= (sosp_imp != nessuna_sospensione); // Setta il flag di presenza registri in sospensione (qualsiasi tipo: sospensione_normale, vol_affari, liquidazione)
// ACHTUNG! Corrispettivi da ventileer possono ventilare ad un altro codiva; in tal caso si scrive quello // ACHTUNG! Corrispettivi da ventileer possono ventilare ad un altro codiva; in tal caso si scrive quello
if (corrisp && other.full()) if (corrisp && other.full())
{
look_iva(other);
codiva = other; codiva = other;
}
const TCodiceIVA & civa1 = cached_codIVA(codiva); // codice IVA aggiornato per eventuale ventilazione
// se e' corrispettivo da ventilare non scrivo un cannolo ripieno visto che e' stato ventilato // se e' corrispettivo da ventilare non scrivo un cannolo ripieno visto che e' stato ventilato
if (tipomov == vendita && tipoiva == "VE" && !describe_pis) if (tipomov == vendita && tipoiva == "VE" && !describe_pis)
continue; continue;
@ -713,7 +704,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool
ca._totale_vf += tab->get_real(tipoiva == "VE" ? "R2" : "R3"); ca._totale_vf += tab->get_real(tipoiva == "VE" ? "R2" : "R3");
if (!is_key) // se non c'e' lo aggiunge if (!is_key) // se non c'e' lo aggiunge
{ {
ca._aliquota = _iva->get_real("R0")/CENTO; // Se e' nuovo setta l'aliquota ca._aliquota = civa.moltiplicatore_percentuale(); // Se e' nuovo setta l'aliquota
corr_ann.add(codiva,ca); corr_ann.add(codiva,ca);
} }
// vedi corrispettivi veri e falsi // vedi corrispettivi veri e falsi
@ -1804,8 +1795,9 @@ void TLiquidazione_app::set_pim(_DescrItem& d)
rw++; rw++;
else else
{ {
look_iva(d._s1); const TCodiceIVA & civa = cached_codIVA(d._s1);
d._s2 = _iva->get("S0");
d._s2 = civa.get("S0");
if (d._s2.len() > 19) d._s2.cut(19); if (d._s2.len() > 19) d._s2.cut(19);
} }
@ -2934,8 +2926,9 @@ void TLiquidazione_app::set_ventila(_DescrItem& d)
for(i = 0; i < d._arr.items(); i++) for(i = 0; i < d._arr.items(); i++)
{ {
_vDesc& vd = (_vDesc&)d._arr[i]; _vDesc& vd = (_vDesc&)d._arr[i];
look_iva(vd._codiva); const TCodiceIVA & civa = cached_codIVA(vd._codiva);
s0 = _iva->get("S0"); s0.cut(23);
s0 = civa.descrizione(); s0.cut(23);
set_row(row+i,"@8g%5s@17g%-23s@41g%r@68g%r@89g%r", set_row(row+i,"@8g%5s@17g%-23s@41g%r@68g%r@89g%r",
(const char*)vd._codiva, (const char*)vd._codiva,
@ -3065,13 +3058,15 @@ void TLiquidazione_app::set_regagr(_DescrItem& d)
_DescrItem& di = (_DescrItem&) agr_array[i]; _DescrItem& di = (_DescrItem&) agr_array[i];
if (di._flags != PROGAGR) if (di._flags != PROGAGR)
continue; continue;
look_iva(di._s0);
des = _iva->get("S0"); des.cut(25); const TCodiceIVA & civa = cached_codIVA(di._s0);
al = _iva->get_real("R0");
des = civa.descrizione(); des.cut(25);
al = civa.percentuale();
set_row(r,"%4s %-25s@48g%s %%", (const char*) di._s0, (const char*) des, al.string("#@,@@")); set_row(r,"%4s %-25s@48g%s %%", (const char*) di._s0, (const char*) des, al.string("#@,@@"));
set_row(r,"@56g%r@75g%4s",&di._r0, (const char*)di._s1); set_row(r,"@56g%r@75g%4s",&di._r0, (const char*)di._s1);
look_iva(di._s1); const TCodiceIVA & civa1 = cached_codIVA(di._s1);
al = _iva->get_real("R0"); al = civa1.percentuale();
set_row(r++,"@92g%s %%@100g%r", al.string("#@,@@"), &di._r1); set_row(r++,"@92g%s %%@100g%r", al.string("#@,@@"), &di._r1);
t1 += di._r0; t1 += di._r0;
t2 += di._r1; t2 += di._r1;

4
src/cg/cg7600.cpp
View File

@ -120,7 +120,7 @@ void TQuadro_VE_recordset::load()
const int int_tipo_iva11_ven = atoi(tipo_iva11_ven); const int int_tipo_iva11_ven = atoi(tipo_iva11_ven);
const bool non_imponibile = (tipo_aliquota == "NI"); const bool non_imponibile = (tipo_aliquota == "NI");
const bool esente = (tipo_aliquota == "ES"); const bool esente = (tipo_aliquota == "ES");
const bool reverse = int_tipo_iva11_ven >= 31 && int_tipo_iva11_ven <= 38; const bool reverse = (int_tipo_iva11_ven >= 31 && int_tipo_iva11_ven <= 39) || (tipo_iva11_ven == "G7A");
const bool terremotati = int_tipo_iva11_ven == 25; const bool terremotati = int_tipo_iva11_ven == 25;
TToken_string codatt; TToken_string codatt;
codatt.add(prefix().get_codditta()); codatt.add(prefix().get_codditta());
@ -172,7 +172,7 @@ void TQuadro_VE_recordset::load()
if (tipocr == 4) if (tipocr == 4)
{ {
if (int_tipo_iva11_ven == acq_ind_pass_int || int_tipo_iva11_ven == cess_amm) if (reverse || int_tipo_iva11_ven == acq_ind_pass_int || int_tipo_iva11_ven == cess_amm)
add_value("VE40.1", imp); add_value("VE40.1", imp);
} }
} }

6
src/cg/cg7700.cpp
View File

@ -286,9 +286,9 @@ void TQuadro_VF_recordset::load()
} }
if (non_soggetto) if (non_soggetto)
{ {
if (tipo_iva11_acq == "15A" || int_tipo_iva11_acq == 15) if (int_tipo_iva11_acq == 15)
{ {
if (tipo_iva11_acq == "15A") if (tipo_iva11_acq == "15B")
add_value("VF17.2", imp); add_value("VF17.2", imp);
add_value("VF17.1", imp); add_value("VF17.1", imp);
} }
@ -350,7 +350,7 @@ void TQuadro_VF_recordset::load()
key = codiva; key = codiva;
tipo_aliquota = cache().get("%IVA", key, "S1"); tipo_aliquota = cache().get("%IVA", key, "S1");
if (tipo_aliquota.blank() && datapag <= a_datareg && tipoiva == 2) // Acquists if (tipo_aliquota.blank() && datapag <= a_datareg && tipoiva == 2) // Acquisti
{ {
imp211 += imp; imp211 += imp;
if (tipodiff == 2) if (tipodiff == 2)

4
src/cg/cg7700a.rep
View File

@ -5,7 +5,7 @@
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="" hidden="" page_break="" can_break="" pattern="1" /> <section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="" hidden="" page_break="" can_break="" pattern="1" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="1" hidden="" page_break="" can_break="" pattern="1" /> <section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="1" hidden="" page_break="" can_break="" pattern="1" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="" hidden="" page_break="" can_break="" pattern="1"> <section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="" hidden="" page_break="" can_break="" pattern="1">
<field deactivated="" type="Immagine" hidden="" link="" dynamic_height="" shade_offset="" width="83" codval="" height="72" id="" pattern="1" hide_zero="" text=""> <field deactivated="" type="Immagine" hidden="" image_resize_type="" link="" dynamic_height="" shade_offset="" width="83" codval="" height="72" id="" pattern="1" hide_zero="" text="">
<source>"cg7700a.png"</source> <source>"cg7700a.png"</source>
</field> </field>
</section> </section>
@ -142,7 +142,7 @@
<source>VF22.1</source> <source>VF22.1</source>
</field> </field>
<field x="51" y="40" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="11" codval="" id="2301" pattern="1" hide_zero="" text="###.###.###"> <field x="51" y="40" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="11" codval="" id="2301" pattern="1" hide_zero="" text="###.###.###">
<source>#101+#201+#301+#401+#501+#601+#701+#801+#901+#1001+#1101+#1201+#1301+#1401+#1501+#1601+#1701+#1801+#1901+#2001+#2101-#2201</source> <source>#101+#201+#301+#401+#501+#601+#701+#801+#901+#1001+#1101+#1201+#1301+#1401+#1501+#1601+#1602+#1701+#1801+#1901+#2001+#2101-#2201</source>
</field> </field>
<field x="65" y="40" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="11" codval="" id="2302" pattern="1" hide_zero="" text="###.###.###"> <field x="65" y="40" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="11" codval="" id="2302" pattern="1" hide_zero="" text="###.###.###">
<source>#102+#202+#302+#402+#502+#602+#702+#802+#902+#1002+#1102+#1202+#1302+#1402</source> <source>#102+#202+#302+#402+#502+#602+#702+#802+#902+#1002+#1102+#1202+#1302+#1402</source>

90
src/cg/cglib01.cpp
View File

@ -371,6 +371,7 @@ void TCausale::calcIVA()
if (td.full()) if (td.full())
{ {
const TRectype& tpd = cache().get("%TPD", td); const TRectype& tpd = cache().get("%TPD", td);
if (!tpd.empty()) if (!tpd.empty())
{ {
i = (TipoIVA) tpd.get_int("I0"); // IVA acquisti, vendite, generica i = (TipoIVA) tpd.get_int("I0"); // IVA acquisti, vendite, generica
@ -450,35 +451,36 @@ bool TCausale::IVA2bill(const TCodiceIVA& iva, TBill& c) const
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TCache_causali // TCache_causali
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
class TCache_causale : public TCache class TCache_causale : public TFile_cache
{ {
int _year;
protected: protected:
virtual TObject* key2obj(const char* key); virtual TObject* rec2obj(const TRectype & rec) const;
public: public:
const TCausale & caus(const char* key, const int anno = 0); const TCausale & caus(const char* cod, const int anno = 0);
TCache_causale() : TCache() { } TCache_causale() : TFile_cache(LF_CAUSALI), _year(0) { }
virtual ~TCache_causale() { } virtual ~TCache_causale() { }
}; };
TObject* TCache_causale::key2obj(const char* key) TObject* TCache_causale::rec2obj(const TRectype & rec) const
{ {
TToken_string k(key); TString4 cod = rec.get(CAU_CODCAUS);
TString4 cod;
k.get(0, cod);
cod.trim(); cod.trim();
int year; k.get(1, year); return new TCausale(cod, _year);
return new TCausale(cod, year);
} }
const TCausale & TCache_causale::caus(const char* key, const int anno) const TCausale & TCache_causale::caus(const char* cod, const int anno)
{ {
TToken_string k; TToken_string key;
k.add(key); key.add(cod);
k.add(anno, 1); key.add(anno, 1);
return (const TCausale &)*objptr(k); _year = anno;
return (const TCausale &)query(key);
} }
const TCausale & cached_causale(const char * codcaus, int year) const TCausale & cached_causale(const char * codcaus, int year)
@ -1063,37 +1065,40 @@ bool TRegistro::update(long protiva, const TDate& datareg)
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TCache_registri // TCache_registri
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
class TCache_registri : public TCache class TCache_registri : public TFile_cache
{ {
protected: protected:
virtual TObject* key2obj(const char* key); virtual TObject* rec2obj(const TRectype& rec) const;
public: public:
const TRegistro & registro(const char* key, const int anno = 0); const TRegistro & registro(const char* cod, const int anno = 0);
TCache_registri() : TCache() { } TCache_registri() : TFile_cache("REG") { }
virtual ~TCache_registri() { } virtual ~TCache_registri() { }
}; };
TObject* TCache_registri::key2obj(const char* key) TObject* TCache_registri::rec2obj(const TRectype& rec) const
{ {
TToken_string k(key); TString k = rec.get("CODTAB");
TString16 cod;
k.get(0, cod); return new TRegistro(k.mid(4), atoi(k.left(4)));
cod.trim();
int year;
k.get(1, year);
return new TRegistro(cod, year);
} }
const TRegistro & TCache_registri::registro(const char* key, const int anno) const TRegistro & TCache_registri::registro(const char* cod, const int anno)
{ {
TToken_string k(key);
k.add(anno); TToken_string key("REG");
return (const TRegistro &)*objptr(k); int year = anno;
if (year == 0)
year = ini_get_int(CONFIG_DITTA, "cg", "AnLiIv");
TString16 codtab;
codtab << format("%04d", year) << cod;
key.add(codtab);
return (const TRegistro &)query(key);
} }
const TRegistro & cached_registro(const char * codreg, int year) const TRegistro & cached_registro(const char * codreg, int year)
@ -1234,20 +1239,27 @@ bool TCodiceIVA::reverse_charge_pubb() const
} */ } */
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TCache_clifor // TCache_codIVA
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
class TCache_codIVA : public TCache class TCache_codIVA : public TFile_cache
{ {
protected: protected:
virtual TObject* key2obj(const char* key) { return new TCodiceIVA(key); } virtual TObject* rec2obj(const TRectype & rec) const { return new TCodiceIVA(rec.get("CODTAB")); }
public: public:
const TCodiceIVA & codIVA(const char * codice) { return (const TCodiceIVA &)*objptr(codice); } const TCodiceIVA & codIVA(const char * codice);
TCache_codIVA() : TFile_cache("%IVA") { }
TCache_codIVA() : TCache() { }
virtual ~TCache_codIVA() { } virtual ~TCache_codIVA() { }
}; };
const TCodiceIVA & TCache_codIVA::codIVA(const char * codice)
{
TToken_string key("IVA");
key.add(codice);
return (const TCodiceIVA &)query(key);
}
const TCodiceIVA & cached_codIVA(const char * codiva) const TCodiceIVA & cached_codIVA(const char * codiva)
{ {
HIDDEN TCache_codIVA __cache_codIVA; HIDDEN TCache_codIVA __cache_codIVA;
@ -2035,7 +2047,7 @@ int TMovimentoPN::registra(bool re, bool force)
{ {
TTable tab("%DET"); TTable tab("%DET");
tab.curr() = det; tab.curr() = det;
tab.curr().put("FPC", "X"); tab.curr().put("FPC", true);
tab.rewrite(); tab.rewrite();
} }
} }

4
src/cg/cglib02.cpp
View File

@ -917,9 +917,9 @@ void TSaldo_agg::clear_saldi(int year)
} }
else else
{ {
saldi.put(SLD_FLSCA, ""); saldi.put(SLD_FLSCA, false);
saldi.write(); saldi.write();
saldi.put(SLD_FLSCA, "X"); saldi.put(SLD_FLSCA, true);
saldi.read(_isequal,_unlock); saldi.read(_isequal,_unlock);
} }
} }

2
src/cg/cglib06.cpp
View File

@ -210,7 +210,7 @@ int TMovimento_contabile::write_rewrite(TBaseisamfile& f, bool re) const
{ {
TTable tab("%DET"); TTable tab("%DET");
tab.curr() = det; tab.curr() = det;
tab.curr().put("FPC", "X"); tab.curr().put("FPC", true);
tab.rewrite(); tab.rewrite();
} }
} }

20
src/cg/cglib07.cpp
View File

@ -593,34 +593,32 @@ bool TAnagrafica::init(char tipocf, long codice, const TString& ocfpi)
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TCache_clifor // TCache_clifor
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
class TCache_clifor : public TCache class TCache_clifor : public TFile_cache
{ {
protected: protected:
virtual TObject* key2obj(const char* key); virtual TObject* rec2obj(const TRectype & rec) const ;
public: public:
const TCli_for & clifor(const char tipo, const long codice); const TCli_for & clifor(const char tipo, const long codice);
TCache_clifor() : TCache() { } TCache_clifor() : TFile_cache(LF_CLIFO) { }
virtual ~TCache_clifor() { } virtual ~TCache_clifor() { }
}; };
TObject* TCache_clifor::key2obj(const char* key) TObject* TCache_clifor::rec2obj(const TRectype & rec) const
{ {
TToken_string k(key); const char tipo = rec.get_char(CLI_TIPOCF);
TString4 tipo; long codice = rec.get_long(CLI_CODCF);
long codice;
k.get(0, tipo); return new TCli_for(tipo, codice);
k.get(1, codice);
return new TCli_for(tipo[0], codice);
} }
const TCli_for & TCache_clifor::clifor(const char tipo, const long codice) const TCli_for & TCache_clifor::clifor(const char tipo, const long codice)
{ {
TToken_string k; k << tipo; TToken_string k; k << tipo;
k.add(codice); k.add(codice);
return (const TCli_for &)*objptr(k); return (const TCli_for &)query(k);
} }
const TCli_for & cached_clifor(const char tipo, long codice) const TCli_for & cached_clifor(const char tipo, long codice)

4
src/cg/dir18.xml Normal file
View File

@ -0,0 +1,4 @@
<?xml version="1.0" encoding="UTF-8" ?>
<FileDesc>
<DirInfo Name="$occas" File="18" EOD="4" EOX="4" Des="Clienti occasionali" Com="" Flags="" Len="607" />
</FileDesc>

2
src/cg/f18.dir
View File

@ -1,3 +1,3 @@
18 18
0 0
$occas|0|0|216|0|Clienti occasionali||| $occas|5|5|607|0|Clienti occasionali|||

17
src/cg/f18.trr
View File

@ -1,11 +1,11 @@
18 18
15 28
CFPI|1|16|0|Codice progressivo, codice fiscale, o partita IVA CFPI|1|16|0|Codice progressivo, codice fiscale, o partita IVA
RAGSOC|1|50|0|Ragione sociale RAGSOC|1|50|0|Ragione sociale
INDIR|1|50|0|Indirizzo INDIR|1|50|0|Indirizzo
CIV|1|6|0|Numero civico CIV|1|6|0|Numero civico
STATO|1|3|0|Codice stato STATO|1|3|0|Codice stato
LOCALITA|1|35|0|Localita LOCALITA|1|35|0|Località
COM|1|4|0|Codice comune COM|1|4|0|Codice comune
CAP|1|5|0|CAP CAP|1|5|0|CAP
SESSO|1|1|0|Sesso SESSO|1|1|0|Sesso
@ -15,6 +15,19 @@ COMNASC|1|4|0|Codice comune di nascita
COFI|1|16|0|Codice fiscale COFI|1|16|0|Codice fiscale
STATOPAIV|1|2|0|Stato CEE STATOPAIV|1|2|0|Stato CEE
PAIV|1|12|0|Partita IVA PAIV|1|12|0|Partita IVA
REFERENTE|1|50|0|referente
BYMAIL|8|1|0|Consenso all'invio documenti per email
MAIL|1|50|0|e-mail
DOCMAIL|1|50|0|e-mail invio documenti
PEC|1|80|0|PEC
PTEL|1|10|0|Prefisso telefono 1
TEL|1|30|0|Telefono 1
PTEL2|1|10|0|Prefisso telefono 2
TEL2|1|30|0|Telefono 2
PTEL3|1|10|0|Prefisso telefono 3
TEL3|1|30|0|Telefono 3
UTENTE|1|32|0|Utente
DATAAGG|5|8|0|Data aggiornamento
2 2
CFPI| CFPI|
RAGSOC|X RAGSOC|X

39
src/cg/trc18.xml Normal file
View File

@ -0,0 +1,39 @@
<?xml version="1.0" encoding="UTF-8" ?>
<RecDesc>
<TrcInfo TabCode="" Lenght="607" File="18">
<Fields NFields="28">
<Field0001 Description="Codice progressivo, codice fiscale, o partita IVA" Name="CFPI" Decimals="" Offset="1" Lenght="16" Type="1" />
<Field0002 Description="Ragione sociale" Name="RAGSOC" Decimals="" Offset="17" Lenght="50" Type="1" />
<Field0003 Description="Indirizzo" Name="INDIR" Decimals="" Offset="67" Lenght="50" Type="1" />
<Field0004 Description="Numero civico" Name="CIV" Decimals="" Offset="117" Lenght="6" Type="1" />
<Field0005 Description="Codice stato" Name="STATO" Decimals="" Offset="123" Lenght="3" Type="1" />
<Field0006 Description="Localit&#E0;" Name="LOCALITA" Decimals="" Offset="126" Lenght="35" Type="1" />
<Field0007 Description="Codice comune" Name="COM" Decimals="" Offset="161" Lenght="4" Type="1" />
<Field0008 Description="CAP" Name="CAP" Decimals="" Offset="165" Lenght="5" Type="1" />
<Field0009 Description="Sesso" Name="SESSO" Decimals="" Offset="170" Lenght="1" Type="1" />
<Field0010 Description="Data di nascita" Name="DNASC" Decimals="" Offset="171" Lenght="8" Type="5" />
<Field0011 Description="Codice stato di nascita" Name="STATONASC" Decimals="" Offset="179" Lenght="3" Type="1" />
<Field0012 Description="Codice comune di nascita" Name="COMNASC" Decimals="" Offset="182" Lenght="4" Type="1" />
<Field0013 Description="Codice fiscale" Name="COFI" Decimals="" Offset="186" Lenght="16" Type="1" />
<Field0014 Description="Stato CEE" Name="STATOPAIV" Decimals="" Offset="202" Lenght="2" Type="1" />
<Field0015 Description="Partita IVA" Name="PAIV" Decimals="" Offset="204" Lenght="12" Type="1" />
<Field0016 Description="referente" Name="REFERENTE" Decimals="" Offset="216" Lenght="50" Type="1" />
<Field0017 Description="Consenso all'invio documenti per email" Name="BYMAIL" Decimals="" Offset="266" Lenght="1" Type="8" />
<Field0018 Description="e-mail" Name="MAIL" Decimals="" Offset="267" Lenght="50" Type="1" />
<Field0019 Description="e-mail invio documenti" Name="DOCMAIL" Decimals="" Offset="317" Lenght="50" Type="1" />
<Field0020 Description="PEC" Name="PEC" Decimals="" Offset="367" Lenght="80" Type="1" />
<Field0021 Description="Prefisso telefono 1" Name="PTEL" Decimals="" Offset="447" Lenght="10" Type="1" />
<Field0022 Description="Telefono 1" Name="TEL" Decimals="" Offset="457" Lenght="30" Type="1" />
<Field0023 Description="Prefisso telefono 2" Name="PTEL2" Decimals="" Offset="487" Lenght="10" Type="1" />
<Field0024 Description="Telefono 2" Name="TEL2" Decimals="" Offset="497" Lenght="30" Type="1" />
<Field0025 Description="Prefisso telefono 3" Name="PTEL3" Decimals="" Offset="527" Lenght="10" Type="1" />
<Field0026 Description="Telefono 3" Name="TEL3" Decimals="" Offset="537" Lenght="30" Type="1" />
<Field0027 Description="Utente" Name="UTENTE" Decimals="" Offset="567" Lenght="32" Type="1" />
<Field0028 Description="Data aggiornamento" Name="DATAAGG" Decimals="" Offset="599" Lenght="8" Type="5" />
</Fields>
<Keys NKeys="2">
<Key0001 DuplicateKeys="" Expr="CFPI" />
<Key0002 DuplicateKeys="1" Expr="RAGSOC" />
</Keys>
</TrcInfo>
</RecDesc>