Patch level : 12.01 1302

Files correlati     : cgg0.exe cg2.exe
Commento            :

Nelle causali se apro solo l'anno nuovo non riconosce i registri
Se do un dliente nella causale corrispettivi non viene caricato correttamente nella riga atotale documento in prima nota
This commit is contained in:
Alessandro Bonazzi 2023-11-10 01:00:17 +01:00
parent d592358581
commit c5a588bccd
2 changed files with 13 additions and 17 deletions

View File

@ -113,7 +113,7 @@ bool TCaus_app::filtra_reg(const TRelation * r)
const TRectype& rec = r->curr();
const int anno = atoi(rec.get("CODTAB").left(4));
bool ok = anno == app().anno_iva();
bool ok = anno == app().anno_iva();
if (ok)
{
const TipoIVA tiporeg = (TipoIVA)rec.get_int("I0");
@ -873,18 +873,7 @@ void TCaus_app::on_config_change()
_saldaconto = conf.get_bool("GesSal");
_valuta = conf.get_bool("GesVal");
_anno_iva = 0;
TTable reg("REG");
if (reg.last() == NOERR)
_anno_iva = atoi(reg.get("CODTAB").left(4));
if (_anno_iva <= 0)
{
_anno_iva = conf.get_int("AnLiIv");
if (_anno_iva <= 0)
_anno_iva = TDate(TODAY).year();
}
_anno_iva = TDate(TODAY).year();
_msk->show(F_TIPO_MOV_1, saldaconto());
_msk->show(F_TIPO_MOV_2, saldaconto());

View File

@ -3068,7 +3068,7 @@ bool TPrimanota_application::occas_handler(TMask_field& f, KEY key)
void TPrimanota_application::add_cgs_tot(TMask& m)
{
const bool corri = causale().corrispettivi();
const TString4 tipo = corri ? " " : app().clifo();
TString4 tipo = corri ? " " : app().clifo();
int gruppo = 0, conto = 0;
long codice = corri ? 0L : m.get_long(F_CODCLIFOR);
TSheet_field& ss = cgs();
@ -3083,9 +3083,16 @@ void TPrimanota_application::add_cgs_tot(TMask& m)
conto = rowt.get_int();
const long oldcode = rowt.get_long();
if (corri)
codice = oldcode; // I corrispettivi non hanno un cliente in testata
else
if (corri)
{
codice = oldcode; // I corrispettivi non hanno un cliente in testata
TString4 tipocorr = rowt.get(2);
if (tipocorr.full())
tipo = tipocorr;
}
else
{
if (m.insert_mode()) // Errore MI3567: se cambio cliente ripesca conto
{