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

Agiornamenti prima nota

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1774 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-09-01 10:13:36 +00:00
parent 4ed0f61eaf
commit e2d52247d0
6 changed files with 328 additions and 276 deletions

26
cg/cg2100.cpp

@ -168,7 +168,8 @@ bool TPrimanota_application::user_create()
_pag = NULL;
_pag_rows = NULL;
_is_saldaconto = FALSE;
_is_saldaconto = FALSE;
_skip_write_scadenze = FALSE;
load_mask(0);
@ -246,15 +247,15 @@ bool TPrimanota_application::read_caus(const char* cod, int year)
}
else
{
m->enable_page(2, _is_saldaconto);
// m->enable_page(2, m->get(F_NUMRIF).empty());
m->efield(F_CODPAG).check_type(_is_saldaconto ? CHECK_REQUIRED : CHECK_NORMAL);// Cod. pag. obbligatorio
m->efield(F_CODPAG).check_type(_is_saldaconto ? CHECK_REQUIRED : CHECK_NORMAL); // Cod. pag. obbligatorio
m->show(F_ANNORIF, _is_saldaconto); // Mostra/nasconde anno e riferimento partita
m->show(F_NUMRIF, _is_saldaconto);
m->enable(F_ANNORIF, ins); // Dis/abilita anno e riferimento partita
m->enable(F_NUMRIF, ins);
// m->enable(F_ANNORIF, ins); // Dis/abilita anno e riferimento partita
// m->enable(F_NUMRIF, ins);
m->field(F_NUMRIF).set_justify(iva == iva_acquisti ? _num_for : _num_cli);
const bool av = causale().reg().agenzia_viaggi();
@ -392,7 +393,7 @@ TMask* TPrimanota_application::get_mask(int mode)
case MODE_MOD:
annoes = _rel->lfile().get_int("ANNOES");
annoiva = _rel->lfile().get_int("ANNOIVA");
caus = _rel->lfile().get("CODCAUS");
caus = _rel->lfile().get("CODCAUS");
break;
default:
return load_mask(0);
@ -439,7 +440,7 @@ void TPrimanota_application::init_mask(TMask& m)
if (_iva == nessuna_iva)
{
m.enable(-5, _is_saldaconto); // Abilita campi saldaconto
m.enable(-5, _is_saldaconto); // Abilita campi saldaconto
}
else
{
@ -677,9 +678,14 @@ int TPrimanota_application::read(TMask& m)
calcola_imp(); // Calcola totale imponibile ed imposte
TString16 dt(m.get(F_DATAREG));
set_pagamento(m.get(F_CODPAG), dt);
if (!read_scadenze(m))
set_scadenze(m);
if (!m.get(F_NUMRIF).empty())
{
set_numrif(m.get(F_NUMRIF));
set_pagamento(m.get(F_CODPAG), dt);
if (!read_scadenze(m))
set_scadenze(m);
}
return _rel->status();
}

5
cg/cg2100c.uml

@ -499,10 +499,7 @@ NUMBER F_ANNORIF 4
BEGIN
PROMPT 50 15 "Rif.partita "
FIELD LF_PARTITE->ANNO
FLAGS "D"
HELP "Anno di riferimento partita"
WARNING "E' richiesto l'anno di riferimento"
CHECKTYPE REQUIRED
END
STRING F_NUMRIF 7
@ -511,8 +508,6 @@ BEGIN
FIELD LF_PARTITE->NUMPART
FLAGS "U"
HELP "Numero di riferimento partita (documento o protocollo)"
WARNING "E' richiesto il numero di riferimento partita"
CHECKTYPE REQUIRED
END
STRING F_VALUTAINTRA 3

48
cg/cg2102.cpp

@ -1485,7 +1485,7 @@ bool TPrimanota_application::data74ter_handler(TMask_field& f, KEY key)
bool TPrimanota_application::doc_handler(TMask_field& f, KEY key)
{
if (key == K_TAB)
if (key == K_TAB && f.mask().is_running())
{
TMask& m = f.mask();
const TString16 val(f.get());
@ -1512,50 +1512,6 @@ bool TPrimanota_application::doc_handler(TMask_field& f, KEY key)
}
bool TPrimanota_application::numrif_handler(TMask_field& f, KEY key)
{
if (key == K_TAB)
{
TMask& m = f.mask();
const TString& val = f.get();
if (f.focusdirty())
{
// se cambiato chiedo conferma:
// se svuotato, azzero il cazzoconto
if (val.empty())
{
if (yesno_box("Si desidera l'azzeramento delle scadenze?"))
{
// sbraga giu' il saldaconto: andra' tutto kancellato
// se c'era
app().remove_scadenze(f.mask(), app().get_numrif());
f.mask().disable_page(2);
}
else f.set(app().get_numrif());
}
else
{
if (yesno_box("Si desidera la ridefinizione delle scadenze?"))
{
// lo ridefinisco da capo
// con il nuovo porcodio, riabilitando se
// non c'era
app().remove_scadenze(f.mask(), app().get_numrif());
app().reset_pagamento();
app().set_scadenze(m);
f.mask().enable_page(2);
}
else f.set(app().get_numrif());
}
}
app().set_numrif(f.get());
}
return TRUE;
}
bool TPrimanota_application::occas_code_handler(TMask_field& f, KEY key)
{
@ -1841,7 +1797,7 @@ bool TPrimanota_application::protiva_handler(TMask_field& f, KEY key)
}
else if (key == K_TAB && app().is_saldaconto() && f.mask().get(F_NUMRIF).empty())
{
if (app().npart_is_prot())
if (app().npart_is_prot() && f.mask().is_running())
{
f.mask().set(F_NUMRIF, piva);
app().set_numrif(piva);

17
cg/cg2102.h

@ -53,6 +53,7 @@ class TPrimanota_application : public TRelation_application
bool _skip_giornale_check; // Ignora controllo data stampa libro giornale
bool _skip_bollato_check; // Ignora controllo data stampa bollato
bool _skip_write_scadenze; // Cancellato saldaconto, non riscrivere
bool _savenew; // Registra e nuovo
short _firstfocus; // Primo campo della maschera a prendere il focus
@ -207,13 +208,15 @@ protected:
void reset_cgs_row(int n) { reset_sheet_row(cgs(), n); }
void reset_ivas_row(int n) { reset_sheet_row(ivas(), n); }
TPagamento& pagamento() { CHECK(_pag, "Pagamento nullo"); return *_pag; }
void set_pagamento(const char* c, const char* d);
void reset_pagamento();
void set_scadenze(TMask& m);
bool read_scadenze(TMask& m);
void write_scadenze(const TMask& m);
void remove_scadenze(const TMask& m, const char* rif);
TPagamento* pagamento() { /* CHECK(_pag, "Pagamento nullo"); */ return _pag; }
void set_pagamento(const char* c, const char* d);
void reset_pagamento();
void set_scadenze(TMask& m);
bool read_scadenze(TMask& m);
void write_scadenze(const TMask& m);
void remove_scadenze(const TMask& m, const char* rif);
void renumber_partita(TMask& m, const char* oldp, const char* newp);
bool edit_partite(int riga);

506
cg/cg2104.cpp

@ -5,6 +5,7 @@
#include <sheet.h>
#include "pagament.h"
#include "saldacon.h"
#include "cg2102.h"
#include "cg2100.h"
@ -12,11 +13,11 @@
#include <clifo.h>
#include <partite.h>
#include <scadenze.h>
#include <scadenze.h>
bool TPrimanota_application::pag_notify(TSheet_field&, int r, KEY k)
{
TPagamento& pag = app().pagamento();
TPagamento& pag = *(app().pagamento());
TSheet_field& ps = app().pags();
TMask* msk = &(app().curr_mask());
TString_array& rws = app().pag_rows();
@ -144,7 +145,7 @@ bool TPrimanota_application::codpag_handler(TMask_field& f, KEY key)
{
TMask& m = f.mask();
if (key == K_TAB && (f.focusdirty() || !m.is_running()) && app().is_saldaconto())
if (key == K_TAB && f.focusdirty() && m.is_running() && app().is_saldaconto())
{
const TString16 dt(m.get(F_DATAREG));
app().set_pagamento(f.get(), dt);
@ -166,6 +167,89 @@ bool TPrimanota_application::reset_handler(TMask_field& f, KEY key)
}
bool TPrimanota_application::numrif_handler(TMask_field& f, KEY key)
{
if (key == K_TAB && f.mask().is_running() && f.focusdirty())
{
TMask& m = f.mask();
const TString& val = f.get();
// questo evita due handlerate visto che e' in fondo alla pagina
if (val == app().get_numrif()) return TRUE;
// se cambiato chiedo conferma:
// se svuotato, azzero il cazzoconto
if (val.empty())
{
if (yesno_box("Si desidera l'azzeramento delle scadenze?"))
{
// sbraga giu' il saldaconto: andra' tutto kancellato
// se c'era
app().remove_scadenze(f.mask(), app().get_numrif());
f.set(""); // non dovrebbe servire, ma...
f.mask().disable_page(2);
}
else { f.set(app().get_numrif()); }
}
else
{
TString16 oldnr = app().get_numrif();
if (oldnr.empty())
{
// se numrif era vuoto, mi limito a costruire il nuovo saldaminchia
// con questo numrif
if (yesno_box("Si desidera la ridefinizione delle scadenze?"))
{
// deve esserci la data rif.
if (f.mask().get(F_ANNORIF).empty())
{
error_box("Non e' indicato l'anno riferimento partita");
f.set("");
return TRUE;
}
// lo ridefinisco da capo
// con il nuovo porcodio, riabilitando se
// non c'era
// deve essere indicato il pagamento, se no guai
if (app().pagamento() == NULL)
{
TString16 codpag = f.mask().get(F_CODPAG);
if (codpag.empty())
{
error_box("Deve essere specificato il codice pagamento");
f.set("");
}
else
{
f.mask().enable_page(2);
app().set_pagamento(codpag, f.mask().get(F_DATAREG));
app().set_scadenze(f.mask());
}
}
else
{
app().reset_pagamento();
app().set_scadenze(m);
f.mask().enable_page(2);
}
}
else { f.set(""); }
}
else
{
// trattasi di variazione: devo chiedere se vuole spostare i
// pagamenti, e se non vuole li lascio con codice 9999 (??? TBC)
if (yesno_box("Confermare la modifica numero riferimento partita"))
app().renumber_partita(f.mask(), oldnr, f.get());
else f.set(app().get_numrif());
}
}
app().set_numrif(f.get());
}
return TRUE;
}
void TPrimanota_application::reset_pagamento()
{
if (_pag != NULL)
@ -175,71 +259,9 @@ void TPrimanota_application::reset_pagamento()
}
}
void TPrimanota_application::set_pagamento(const char* c, const char* d)
{
if (_pag != NULL) delete _pag;
_pag = new TPagamento(c,d);
}
void TPrimanota_application::set_scadenze(TMask& m)
{
const real imponibile(m.get(F_IMPONIBILI));
const real imposta(m.get(F_IMPOSTE));
const real spese(0.0);
TPagamento& pag = pagamento();
if (pag.is_new())
{
m.disable_page(2);
return;
}
else m.enable_page(2);
m.set(FS_RDIFFER, pag.rate_differenziate() ? "1" : "2");
m.set(FS_NAMEPAG, pag.name());
m.set(FS_TIPOPR, pag.desc_tpr());
m.set(FS_MCOMM, pag.mese_commerciale() ? "X" : "");
m.set(FS_RECALC, "X", TRUE);
pag.set_total(imponibile, imposta, spese);
pag.set_rate_auto();
bool new_part = TRUE;
TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);
// prepara lo sheet
pag.set_sheet(ps);
_pag_rows = ps.rows_array();
// se la prima rata e' fissa non si tocca
if (pag.tipo_prima_rata() > 0)
{
ps.disable_cell(0,0);
ps.disable_cell(0,1);
ps.disable_cell(0,2);
ps.disable_cell(0,3);
}
}
bool TPrimanota_application::read_scadenze(TMask& m)
{
// should never happen but it doesn't hurt
if (_rel->cg(0).empty()) return FALSE;
const real imponibile(m.get(F_IMPONIBILI));
const real imposta(m.get(F_IMPOSTE));
const real spese(0.0);
TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);
m.set(FS_RECALC, "X");
TPagamento& pag = pagamento();
pag.set_total(imponibile, imposta, spese);
TLocalisamfile partita (LF_PARTITE);
TLocalisamfile scadenza(LF_SCADENZE);
void TPrimanota_application::renumber_partita(TMask& m, const char* oldp, const char* newp)
{
bool movep = FALSE;
const TRectype& testa = _rel->lfile().curr();
const long nreg = testa.get_long("NUMREG");
@ -264,23 +286,128 @@ bool TPrimanota_application::read_scadenze(TMask& m)
const long sottoconto = prima.get_long("SOTTOCONTO");
const int nriga = 1;
const int numrig = 1;
TBill clifo(gruppo, conto, sottoconto, tipocf);
TPartita part(clifo, anno, numpart);
if (part.primo_pagamento() != -1)
movep = yesno_box("Si desidera spostare i pagamenti sulla nuova partita?");
// TBI
warning_box("Funzione non implementata");
}
void TPrimanota_application::set_pagamento(const char* c, const char* d)
{
if (_pag != NULL) delete _pag;
_pag = new TPagamento(c,d);
}
void TPrimanota_application::set_scadenze(TMask& m)
{
const real imponibile(m.get(F_IMPONIBILI));
const real imposta(m.get(F_IMPOSTE));
const real spese(0.0);
TPagamento& pag = *pagamento();
if (pag.is_new())
{
// m.disable_page(2);
return;
}
else m.enable_page(2);
m.set(FS_RDIFFER, pag.rate_differenziate() ? "1" : "2");
m.set(FS_NAMEPAG, pag.name());
m.set(FS_TIPOPR, pag.desc_tpr());
m.set(FS_MCOMM, pag.mese_commerciale() ? "X" : "");
m.set(FS_RECALC, "X", TRUE);
pag.set_total(imponibile, imposta, spese);
pag.set_rate_auto();
bool new_part = TRUE;
partita.put(PART_ANNO, anno);
partita.put(PART_NUMPART, numpart);
partita.put(PART_NRIGA, nriga);
TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);
// prepara lo sheet
pag.set_sheet(ps);
_pag_rows = ps.rows_array();
// se la prima rata e' fissa non si tocca
if (pag.tipo_prima_rata() > 3)
{
ps.disable_cell(0,0);
ps.disable_cell(0,1);
ps.disable_cell(0,2);
ps.disable_cell(0,3);
}
}
bool TPrimanota_application::read_scadenze(TMask& m)
{
// should never happen but it doesn't hurt
if (_rel->cg(0).empty()) return FALSE;
const real imponibile(m.get(F_IMPONIBILI));
const real imposta(m.get(F_IMPOSTE));
const real spese(0.0);
TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);
m.set(FS_RECALC, "X");
TPagamento& pag = *pagamento();
pag.set_total(imponibile, imposta, spese);
const TRectype& testa = _rel->lfile().curr();
const long nreg = testa.get_long("NUMREG");
const TString16 ndoc(testa.get("NUMDOC"));
const int tmov = testa.get_int("TIPOMOV");
const TDate ddoc(testa.get_date("DATADOC"));
const TDate dreg(testa.get_date("DATAREG"));
const TString16 reg (testa.get("REG"));
const long protiva = testa.get_long("PROTIVA");
const TString16 codcaus(testa.get("CODCAUS"));
const TString16 codval (testa.get("CODVAL"));
const real cambio(testa.get("CAMBIO"));
const TString16 numpart(m.get(F_NUMRIF));
const int anno = m.get_int(F_ANNORIF);
const TRectype& prima = _rel->cg(0);
const char sezione = prima.get_char("SEZIONE"); // Dare/Avere
const char tipocf = prima.get_char("TIPOC"); // Cliente || Fornitore || Uncazzo
const int gruppo = (tipocf == 'C' || tipocf == 'F') ? 0 : prima.get_int("GRUPPO");
const int conto = (tipocf == 'C' || tipocf == 'F') ? 0 : prima.get_int("CONTO");
const long sottoconto = prima.get_long("SOTTOCONTO");
const int nriga = 1;
const int numrig = 1;
TBill clifo(gruppo, conto, sottoconto, tipocf);
TPartita part(clifo, anno, numpart);
int npart = part.prima_fattura(nreg);
bool fromscratch = FALSE;
if (partita.read() == NOERR)
if (npart != -1) // la gh'e'
{
// se si e' specificato un codice pagamento diverso si rifa' da capo
if (pag.code() != partita.get("CODPAG"))
fromscratch = TRUE;
TRiga_partite& partita = part.riga(npart);
TRiga_scadenze& primarata = partita.rata(1);
// se si e' specificato un codice pagamento diverso si rifa' da capo
// la follia e' che e' sulle SCADENZE, non sulle partite, naturalmente
// uguale per tutte
if (pag.code() != primarata.get(SCAD_CODPAG))
fromscratch = TRUE;
// se invece la maschera contiene importi diversi da quelli
// registrati si passa la palla al culano/a
else if (imponibile != partita.get_real(PART_IMPORTO) ||
imposta != partita.get_real(PART_IMPOSTA) ||
spese != partita.get_real(PART_SPESE))
// registrati si passa la palla al culano/a
// TBC controllo se imponibile deve contenere le spese
else if ((imponibile + imposta) != partita.get_real(PART_IMPORTO) ||
imposta != partita.get_real(PART_IMPOSTA) ||
spese != partita.get_real(PART_SPESE))
{
fromscratch = !yesno_box("Gli importi totali delle scadenze sono stati modificati rispetto"
" all'ultima registrazione. Si desidera mantenere"
@ -293,26 +420,19 @@ bool TPrimanota_application::read_scadenze(TMask& m)
else
{
pag.zap_rate();
for (int i = 0; ; i++)
for (int i = 1; i <= partita.rate(); i++)
{
// cerca rata
scadenza.zero();
scadenza.put(SCAD_ANNO, anno);
scadenza.put(SCAD_NUMPART, numpart);
scadenza.put(SCAD_NRATA, i+1);
TRiga_scadenze& scadenza = partita.rata(i);
const real importo = scadenza.get(SCAD_IMPORTO);
const TDate scad = scadenza.get(SCAD_DATASCAD);
const int tipop = scadenza.get_int(SCAD_TIPOPAG);
const bool paid = scadenza.get_bool(SCAD_PAGATA);
const TString16 ulc = scadenza.get(SCAD_ULTCLASS);
if (scadenza.read() == NOERR)
{
const real importo = scadenza.get(SCAD_IMPORTO);
const TDate scad = scadenza.get(SCAD_DATASCAD);
const int tipop = scadenza.get_int(SCAD_TIPOPAG);
const bool paid = scadenza.get_bool(SCAD_PAGATA);
const TString16 ulc = scadenza.get(SCAD_ULTCLASS);
pag.set_rata(i, importo, scad, tipop, ulc, paid);
}
else break;
} // for
pag.set_rata(i-1, importo, scad, tipop, ulc, paid);
}
} //else
}
else
@ -322,7 +442,7 @@ bool TPrimanota_application::read_scadenze(TMask& m)
_pag_rows = ps.rows_array();
// se la prima rata e' fissa non si tocca
if (pag.tipo_prima_rata() > 0)
if (pag.tipo_prima_rata() > 3)
ps.disable_cell(0,-1);
return TRUE;
@ -330,13 +450,37 @@ bool TPrimanota_application::read_scadenze(TMask& m)
void TPrimanota_application::remove_scadenze(const TMask& m, const char* nr)
{
// TBI se _erase_sld == TRUE occorre cancellare tutte le scadenze
// eventualmente presenti; attenzione a riferimenti cambiati
TString numrif(nr);
if (numrif.empty()) return;
// rimuovi se ci sono
TRectype& r = _rel->lfile().curr();
const long nreg = r.get_long("NUMREG");
// rimuovi se ci sono
const char tipocf = _rel->cg(0).get_char("TIPOC"); // Cliente || Fornitore || Uncazzo
const int gruppo = (tipocf == 'C' || tipocf == 'F') ? 0 : _rel->cg(0).get_char("GRUPPO");
const int conto = (tipocf == 'C' || tipocf == 'F') ? 0 : _rel->cg(0).get_char("CONTO");
const long sottoconto = _rel->cg(0).get_long("SOTTOCONTO");
const int anno = m.get_int(F_ANNORIF);
TBill clifo(gruppo, conto, sottoconto, tipocf);
TPartita part(clifo, anno, numrif);
if (part.ok())
{
// check pagamenti effettuati
bool nopag = part.primo_pagamento(nreg) == -1;
if (nopag)
{
int npart = part.prima_fattura(nreg);
part.rimuovi_riga(npart);
part.rewrite();
_skip_write_scadenze = TRUE;
}
else warning_box("Esistono pagamenti gia' effettuati: rimozione impossibile");
}
}
void TPrimanota_application::write_scadenze(const TMask& m)
@ -344,13 +488,16 @@ void TPrimanota_application::write_scadenze(const TMask& m)
real imponibile(0.0);
real imposta(0.0);
real spese(0.0);
if (_skip_write_scadenze)
{
_skip_write_scadenze = FALSE;
return;
}
// should never happen but it doesn't hurt
CHECK(!_rel->cg(0).empty(), "Missing first line");
TLocalisamfile partita (LF_PARTITE);
TLocalisamfile scadenza(LF_SCADENZE);
TRectype& r = _rel->lfile().curr();
const long nreg = r.get_long("NUMREG");
@ -367,6 +514,7 @@ void TPrimanota_application::write_scadenze(const TMask& m)
const TString16 numpart = m.get(F_NUMRIF);
const int anno = m.get_int(F_ANNORIF);
CHECK(anno > 1900, "Anno partita non valido");
char sezione = _rel->cg(0).get_char("SEZIONE"); // Dare/Avere
@ -375,115 +523,57 @@ void TPrimanota_application::write_scadenze(const TMask& m)
int conto = (tipocf == 'C' || tipocf == 'F') ? 0 : _rel->cg(0).get_char("CONTO");
long sottoconto = _rel->cg(0).get_long("SOTTOCONTO");
// TBI deve essere riga iniziale scadenze (puo' essere != 1 sul file)
const int nriga = 1;
int numrig = 1;
partita.put(PART_ANNO, anno);
partita.put(PART_NUMPART, numpart);
partita.put(PART_NRIGA, nriga);
bool fromscratch = FALSE, new_part = TRUE;
TPagamento& pag = pagamento();
if (partita.read() == NOERR)
{
// se si e' specificato un codice pagamento diverso si rifa' da capo
if (pag.code() != partita.get(PART_CODPAG))
fromscratch = TRUE;
new_part = FALSE;
}
// riaggiusta partite e scadenze
if (new_part)
{
partita.zero();
partita.put(PART_TIPOCF, tipocf);
partita.put(PART_GRUPPO, gruppo);
partita.put(PART_CONTO, conto);
partita.put(PART_SOTTOCONTO, sottoconto);
partita.put(PART_ANNO, anno);
partita.put(PART_NUMPART, numpart);
partita.put(PART_NRIGA, nriga);
}
TBill clifo(gruppo, conto, sottoconto, tipocf);
TPartita part(clifo, anno, numpart);
int numrig = 1; // TBC
int row = part.prima_fattura(nreg);
TRiga_partite& partita = row == -1 ? part.nuova_riga() : part.riga(row);
TPagamento& pag = *pagamento();
// put data on partita
partita.put("TIPOMOV",tmov);
partita.put("NREG", nreg);
partita.put("DATAREG",dreg);
partita.put("DATADOC",ddoc);
partita.put("NUMDOC", ndoc);
partita.put("REG", reg);
partita.put("DESCR", desc);
partita.put("PROTIVA",protiva);
partita.put("CODCAUS",codcaus);
partita.put("SEZ", sezione);
partita.put("CODPAG", pag.code());
partita.put("CODVAL", codval);
partita.put("CAMBIO", cambio);
partita.put("IMPORTO",pag.imponibile());
partita.put("IMPOSTA",pag.imposta());
partita.put("SPESE", pag.spese());
partita.put("NUMRIG", numrig);
if (new_part) partita.write();
else partita.rewrite();
bool new_scad = FALSE;
partita.put(PART_TIPOMOV, tmov);
partita.put(PART_NREG, nreg);
partita.put(PART_DATAREG, dreg);
partita.put(PART_DATADOC, ddoc);
partita.put(PART_NUMDOC, ndoc);
partita.put(PART_REG, reg);
partita.put(PART_DESCR, desc);
partita.put(PART_PROTIVA, protiva);
partita.put(PART_CODCAUS, codcaus);
partita.put(PART_SEZ, sezione);
// partita.put(PART_CODPAG, pag.code());
partita.put(PART_CODVAL, codval);
partita.put(PART_CAMBIO, cambio);
partita.put(PART_IMPORTO, pag.imponibile()+pag.imposta()); // TBC sommare le spese?
partita.put(PART_IMPOSTA, pag.imposta());
partita.put(PART_SPESE, pag.spese());
partita.put(PART_NUMRIG, numrig);
// TBC se devono cominciare da n != 1, si riveda questo
// appropriatamente
partita.elimina_rate();
TString16 np = partita.get(PART_NUMPART);
TString16 nr = partita.get(PART_NRIGA);
for (int i = 0; i < pag.n_rate(); i++)
{
new_scad = FALSE;
scadenza.zero();
scadenza.put(SCAD_TIPOCF, tipocf);
scadenza.put(SCAD_GRUPPO, gruppo);
scadenza.put(SCAD_CONTO, conto);
scadenza.put(SCAD_SOTTOCONTO, sottoconto);
scadenza.put(SCAD_ANNO, anno);
scadenza.put(SCAD_NUMPART, numpart);
scadenza.put(SCAD_NRIGA, nriga);
// TBI NO! Va visto se ce ne sono altre, con gestione riga
// iniziale nella partita
scadenza.put(SCAD_NRATA, i+1);
if (scadenza.read() != NOERR)
{
new_scad = TRUE;
scadenza.zero();
scadenza.put(SCAD_TIPOCF, tipocf);
scadenza.put(SCAD_GRUPPO, gruppo);
scadenza.put(SCAD_CONTO, conto);
scadenza.put(SCAD_SOTTOCONTO, sottoconto);
scadenza.put(SCAD_ANNO, anno);
scadenza.put(SCAD_NUMPART, numpart);
scadenza.put(SCAD_NRIGA, nriga);
scadenza.put(SCAD_NRATA, i+1);
}
// set everything
scadenza.put("CODPAG", pag.code());
scadenza.put("TIPOPAG", pag.tipo_rata(i));
scadenza.put("ULTCLASS", pag.ulc_rata(i));
scadenza.put("IMPORTO", pag.tpay_rata(i));
scadenza.put("DATASCAD", pag.data_rata(i));
scadenza.put("PAGATA", pag.ratapagata(i));
if (new_scad) scadenza.write();
else scadenza.rewrite();
}
TRiga_scadenze& scadenza = (TRiga_scadenze&)partita.new_row();
// elimina eventuali altre scadenze oltre l'ultima registrata
for (; !new_scad ; i++)
{
scadenza.zero();
scadenza.put(SCAD_ANNO, anno);
scadenza.put(SCAD_NUMPART, numpart);
scadenza.put(SCAD_NRATA, i+1);
if (scadenza.read() == NOERR)
scadenza.remove();
else new_scad = TRUE;
scadenza.put(SCAD_CODPAG, pag.code());
scadenza.put(SCAD_TIPOPAG, pag.tipo_rata(i));
scadenza.put(SCAD_ULTCLASS, pag.ulc_rata(i));
scadenza.put(SCAD_IMPORTO, pag.tpay_rata(i));
scadenza.put(SCAD_DATASCAD, pag.data_rata(i));
scadenza.put(SCAD_PAGATA, pag.ratapagata(i));
// scadenza.put(SCAD_CODABIPR, pag.codabipr(i)); // TBI
// scadenza.put(SCAD_CODCABPR, pag.codcabpr(i)); // TBI
}
part.write();
}

2
cg/saldacon.h

@ -106,6 +106,7 @@ public: // TTree_rectype
public:
int rate() const { return _recarr.rows(); }
TRiga_scadenze& rata(int r) const { return (TRiga_scadenze&)_recarr.row(r); }
void elimina_rate() { _recarr.destroy_rows(); }
TRiga_scadenze& new_row(int r = -1);
int ultimo_pagamento(int rata) const;
@ -132,6 +133,7 @@ public: // TObject
public:
TRiga_partite& riga(int r) const { return (TRiga_partite&)_part.row(r); }
TRiga_partite& nuova_riga();
void rimuovi_riga(int r) { _part.destroy_row(r); }
TRiga_scadenze& rata(int nriga, int nrata) const;
int succ(int r) const { return _part.succ_row(r); }