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

Generazione automatizzata delle righe contabili nei movimenti senza IVA

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@586 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-10 13:42:56 +00:00
parent 8deee683b0
commit 4dcf5f74ad
5 changed files with 913 additions and 845 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cg/cg2100.cpp
View File

@ -612,7 +612,7 @@ void TPrimanota_application::mask2rel(const TMask& m)
// Controlla se e' un movimento con righe contabili // Controlla se e' un movimento con righe contabili
if (iva() == nessuna_iva || !m.get_bool(F_SOLAIVA)) if (iva() == nessuna_iva || !m.get_bool(F_SOLAIVA))
{ {
for (int i = 0; i < rows.items(); i++) for (int i = 0; i < rows.items(); i++)
{ {
TToken_string& row = (TToken_string&)rows[i]; TToken_string& row = (TToken_string&)rows[i];
@ -624,14 +624,13 @@ void TPrimanota_application::mask2rel(const TMask& m)
TRectype &r = _rel->cg(i); TRectype &r = _rel->cg(i);
r.zero(); r.zero();
r.put("IMPORTO", n.valore()); // Importo r.put("NUMREG", numreg); // Numero registrazione
r.put("SEZIONE", n.sezione()); // Sezione r.put("ANNOES", annoes); // Anno esercizio
r.put("DATAREG", datareg); // Data di registrazione
r.put("NUMREG", numreg); r.put("NUMRIG", i+1); // Numero riga
r.put("ANNOES", annoes);
r.put("DATAREG", datareg);
r.put("NUMRIG", i+1);
r.put("SEZIONE", n.sezione()); // Sezione
r.put("IMPORTO", n.valore()); // Importo
put_conto(r, conto); // Conto put_conto(r, conto); // Conto
row.get(); // Codice descrizione row.get(); // Codice descrizione
@ -689,6 +688,7 @@ void TPrimanota_application::mask2rel(const TMask& m)
if (err) _rel->lfile().zero("OCFPI"); if (err) _rel->lfile().zero("OCFPI");
} }
const bool intra = causale().intra();
const bool to_swap = test_swap(FALSE); const bool to_swap = test_swap(FALSE);
if (to_swap) if (to_swap)
{ {
@ -708,6 +708,7 @@ void TPrimanota_application::mask2rel(const TMask& m)
r.zero(); r.zero();
r.put("ANNOES", annoes); r.put("ANNOES", annoes);
r.put("NUMREG", numreg); r.put("NUMREG", numreg);
r.put("INTRA", intra); // Causale intra
r.put("NUMRIG", i+1); r.put("NUMRIG", i+1);
real imponibile(row.get(0)); real imponibile(row.get(0));

124
cg/cg2102.cpp
View File

@ -487,45 +487,111 @@ bool TPrimanota_application::cg_handler(TMask_field& f, KEY k)
} }
void TPrimanota_application::generazione_righe_cg(int r)
{
TSheet_field& cg = cgs();
TToken_string& row = cg.row(r);
TImporto importo; importo = row;
if (importo.is_zero())
return;
if (r == 0 && cg.row(1).empty_items())
{
TBill contro(row, 9, 0x3);
if (!contro.ok())
{
causale().bill(2, contro);
contro.add_to(row, 9, 0x3);
cg.force_update(r);
}
if (contro.ok())
{
importo.swap_section();
set_cgs_row(1, importo, contro, "", ' ');
TBill conto(row, 2, 0x3);
conto.add_to(cg.row(1), 9, 0x3);
cg.force_update(1);
}
}
if (causale().codice()[0] > ' ')
{
int first_not_empty = 0;
for (int i = 0; i < r; i++)
{
TImporto im; im = cg.row(i);
if (!im.is_zero())
{
first_not_empty = i;
break;
}
}
TBill conto(row, 2, 0x3);
if (first_not_empty == r)
{
for (i = r+1; i < cg.items(); i++)
{
TToken_string& rowi = cg.row(i);
int gruppo = rowi.get_int(3);
if (gruppo != 0)
{
gruppo = rowi.get_int(10);
if (gruppo == 0)
{
char sez = 'D';
if (cg.cell_disabled(i,0)) sez = 'A';
if (importo.sezione() != sez)
{
conto.add_to(rowi, 9, 0x3);
cg.force_update(i);
}
}
}
else
break;
}
}
else
{
TToken_string& rowi = cg.row(first_not_empty);
const int gruppo = rowi.get_int(10);
if (gruppo == 0)
{
conto.add_to(rowi, 9, 0x3);
cg.force_update(first_not_empty);
}
}
}
}
bool TPrimanota_application::cg_notify(int r, KEY k) bool TPrimanota_application::cg_notify(int r, KEY k)
{ {
TSheet_field& cg = app().cgs();
TToken_string& row = cg.row(r);
const char tipo = row.empty() ? ' ' : row.right(1)[0];
switch(k) switch(k)
{ {
case K_SPACE: case K_SPACE:
cg.sheet_mask().enable(DLG_DELREC, tipo == ' '); {
TSheet_field& cg = app().cgs();
TToken_string& row = cg.row(r);
const char tipo = row.right(1)[0];
cg.sheet_mask().enable(DLG_DELREC, tipo <= ' ');
}
break; break;
case K_ENTER: case K_ENTER:
if (r == 0 && app().iva() == nessuna_iva && cg.row(1).empty_items()) if (app().iva() == nessuna_iva)
{ app().generazione_righe_cg(r);
TImporto i; i = row;
if (!i.is_zero())
{
TBill contro(row, 9, 0x3);
if (!contro.ok() && *app().causale().codice() > ' ')
{
app().causale().bill(2, contro);
contro.add_to(row, 9, 0x3);
cg.force_update(r);
}
if (contro.ok())
{
i.swap_section();
app().set_cgs_row(1, i, contro, "", ' ');
TBill conto(row, 2, 0x3);
conto.add_to(cg.row(1), 9, 0x3);
app().cgs().force_update(1);
}
}
}
app().calcola_saldo(); app().calcola_saldo();
break; break;
case K_DEL: case K_DEL:
if (tipo != ' ') {
return error_box("La riga %d non puo' essere cancellata", r+1); TToken_string& row = app().cgs().row(r);
const char tipo = row.right(1)[0];
if (tipo > ' ')
return error_box("La riga %d non puo' essere cancellata", r+1);
}
break; break;
default: default:
break; break;

1
cg/cg2102.h
View File

@ -165,6 +165,7 @@ protected:
void disable_cgs_cells(int n, char tipo); void disable_cgs_cells(int n, char tipo);
void add_cgs_tot(TMask& m); void add_cgs_tot(TMask& m);
void add_cgs_rit(bool fisc); void add_cgs_rit(bool fisc);
void generazione_righe_cg(int r);
void* get_app_data() { return _app_data; } void* get_app_data() { return _app_data; }
void set_app_data(void* v) { _app_data = v; } void set_app_data(void* v) { _app_data = v; }

1176
cg/cg2103.cpp
View File

File diff suppressed because it is too large Load Diff

440
cg/cg2104.cpp
View File

@ -1,220 +1,220 @@
// -------------------------------------------------------------------------- // --------------------------------------------------------------------------
// Scadenzario // Scadenzario
// fv 24/8/94 // fv 24/8/94
// -------------------------------------------------------------------------- // --------------------------------------------------------------------------
#include "cg2102.h" #include "cg2102.h"
#include "cg2100.h" #include "cg2100.h"
#include "cg2104a.h" #include "cg2104a.h"
#include "pagament.h" #include "pagament.h"
struct shuttle struct shuttle
{ {
Pagamento* _pag; // pagamento Pagamento* _pag; // pagamento
TSheet_field* _sheet; // sheet TSheet_field* _sheet; // sheet
TMask* _mask; // maschera TMask* _mask; // maschera
TArray* _rows; // righe spreadsheet nella versione originale TArray* _rows; // righe spreadsheet nella versione originale
}; };
bool TPrimanota_application::pag_notify(int r, KEY k) bool TPrimanota_application::pag_notify(int r, KEY k)
{ {
// questo e' il bello // questo e' il bello
shuttle* sh = (shuttle*)(((TPrimanota_application*)MainApp())->get_app_data()); shuttle* sh = (shuttle*)(((TPrimanota_application&)main_app()).get_app_data());
Pagamento* pag = sh->_pag; Pagamento* pag = sh->_pag;
TSheet_field* ps = sh->_sheet; TSheet_field* ps = sh->_sheet;
TMask* msk = sh->_mask; TMask* msk = sh->_mask;
TArray* rws = sh->_rows; TArray* rws = sh->_rows;
int rdiff = atoi(msk->get(F_RDIFFER)); int rdiff = atoi(msk->get(F_RDIFFER));
// ts contiene la vecchia riga, ns la nuova // ts contiene la vecchia riga, ns la nuova
TToken_string ts(36), ns(36); TToken_string ts(36), ns(36);
bool doit = TRUE, m_imp = FALSE, m_perc = FALSE, m_pag = FALSE; bool doit = TRUE, m_imp = FALSE, m_perc = FALSE, m_pag = FALSE;
bool m_scad = FALSE, m_tipo = FALSE, mod = FALSE; bool m_scad = FALSE, m_tipo = FALSE, mod = FALSE;
word ahiahi = P_OK; word ahiahi = P_OK;
TString news(15), newi(15), newp(15), newt(2); TString news(15), newi(15), newp(15), newt(2);
bool recalc = msk->get_bool(F_RECALC); bool recalc = msk->get_bool(F_RECALC);
bool mcomm = msk->get_bool(F_MCOMM); bool mcomm = msk->get_bool(F_MCOMM);
switch (k) switch (k)
{ {
case K_SPACE: case K_SPACE:
break; break;
case K_ENTER: case K_ENTER:
ns = ps->row(r); ns = ps->row(r);
ts = (TToken_string&)(*rws)[r]; ts = (TToken_string&)(*rws)[r];
news = ns.get(0); news = ns.get(0);
newp = ns.get(1); newp = ns.get(1);
newi = ns.get(2); newi = ns.get(2);
newt = ns.get(3); newt = ns.get(3);
// qui viene il bello, si fa per dire // qui viene il bello, si fa per dire
if (strcmp(ts.get(0),news) != 0) // modificata data scadenza if (strcmp(ts.get(0),news) != 0) // modificata data scadenza
{ {
mod = m_scad = TRUE; mod = m_scad = TRUE;
} }
if (strcmp(ts.get(1),newp) != 0) // modificata percentuale if (strcmp(ts.get(1),newp) != 0) // modificata percentuale
{ {
mod = m_perc = TRUE; mod = m_perc = TRUE;
} }
if (strcmp(ts.get(2),newi) != 0) // modificato importo if (strcmp(ts.get(2),newi) != 0) // modificato importo
{ {
if ((recalc && !m_perc) || (!recalc)) // se si modifica la percentuale l'importo non viene cagato if ((recalc && !m_perc) || (!recalc)) // se si modifica la percentuale l'importo non viene cagato
{ {
mod = m_imp = TRUE; mod = m_imp = TRUE;
} }
} }
if (strcmp(ts.get(3),newt) != 0) // modificato tipo pagamento if (strcmp(ts.get(3),newt) != 0) // modificato tipo pagamento
{ {
mod = m_tipo = TRUE; mod = m_tipo = TRUE;
} }
break; break;
case K_DEL: case K_DEL:
case K_INS: case K_INS:
doit = FALSE; doit = FALSE;
break; break;
default: default:
break; break;
} }
// settato da recalc_rate se occorre ridefinire lo sheet // settato da recalc_rate se occorre ridefinire lo sheet
// aggiungendo o togliendo righe // aggiungendo o togliendo righe
bool need_recalc = FALSE; bool need_recalc = FALSE;
if (k == K_ENTER) if (k == K_ENTER)
{ {
if (mod && recalc) if (mod && recalc)
{ {
// ricalcola sheet come sai fare tu // ricalcola sheet come sai fare tu
ahiahi = pag->recalc_rate(r, m_perc, ahiahi = pag->recalc_rate(r, m_perc,
((m_perc || m_imp) ? ((m_perc || m_imp) ?
(m_perc ? (const char*)newp : (const char*)newi) : (m_perc ? (const char*)newp : (const char*)newi) :
NULL), NULL),
(m_scad ? (const char*)news : NULL), (m_scad ? (const char*)news : NULL),
(m_tipo ? (const char*)newt : NULL), (m_tipo ? (const char*)newt : NULL),
rdiff, mcomm, need_recalc); rdiff, mcomm, need_recalc);
// see if rdiff changed // see if rdiff changed
msk->field(F_RDIFFER).set(pag->rate_differenziate() ? "1" : "2"); msk->field(F_RDIFFER).set(pag->rate_differenziate() ? "1" : "2");
} }
if (!recalc) if (!recalc)
{ {
ahiahi = P_OK; ahiahi = P_OK;
// put data as they are // put data as they are
TToken_string& trw = pag->rata(r); TToken_string& trw = pag->rata(r);
TToken_string srw = trw; TToken_string srw = trw;
if (m_scad) trw.add(news,3); if (m_scad) trw.add(news,3);
if (m_perc) trw.add(newp,1); if (m_perc) trw.add(newp,1);
if (m_imp) trw.add(newi,4); if (m_imp) trw.add(newi,4);
if (m_tipo) trw.add(newt,2); if (m_tipo) trw.add(newt,2);
// validate the payment // validate the payment
if ((ahiahi = pag->validate()) != P_OK) if ((ahiahi = pag->validate()) != P_OK)
pag->rata(r) = srw; pag->rata(r) = srw;
} }
if (ahiahi) // any error? if (ahiahi) // any error?
// rimetti le righe com'erano prima // rimetti le righe com'erano prima
{ {
beep(); beep();
// se gli errori sono voluti, spiegali // se gli errori sono voluti, spiegali
if (!recalc) if (!recalc)
{ {
TString s(256); TString s(256);
pag->strerr(ahiahi,s); pag->strerr(ahiahi,s);
warning_box(s); warning_box(s);
} }
ps->row(r) = (TToken_string&)(*rws)[r]; ps->row(r) = (TToken_string&)(*rws)[r];
ps->force_update(r); ps->force_update(r);
} }
else if (recalc && mod && need_recalc) else if (recalc && mod && need_recalc)
{ {
// ridefinisci lo sheet sulla base delle nuove rate // ridefinisci lo sheet sulla base delle nuove rate
pag->set_sheet(*ps); pag->set_sheet(*ps);
ps->force_update(-1); ps->force_update(-1);
rws->destroy(); rws->destroy();
(*rws) = ps->rows_array(); (*rws) = ps->rows_array();
} }
} }
return doit; return doit;
} }
void TPrimanota_application::aggiorna_scadenzario(const TMask& m) void TPrimanota_application::aggiorna_scadenzario(const TMask& m)
{ {
real imponibile(0.0); real imponibile(0.0);
real imposta(0.0); real imposta(0.0);
real spese(0.0); real spese(0.0);
TString dt(m.get(F_DATAREG)); TString dt(m.get(F_DATAREG));
Pagamento pag(m.get(F_CODPAG), (const char*)dt); Pagamento pag(m.get(F_CODPAG), (const char*)dt);
if (pag.is_new()) return; if (pag.is_new()) return;
TMask ms("cg2104a"); TMask ms("cg2104a");
TSheet_field& ps = (TSheet_field&)ms.field(F_RATESHEET); TSheet_field& ps = (TSheet_field&)ms.field(F_RATESHEET);
ps.set_notify(pag_notify); ps.set_notify(pag_notify);
ms.field(F_RDIFFER).set(pag.rate_differenziate() ? "1" : "2"); ms.field(F_RDIFFER).set(pag.rate_differenziate() ? "1" : "2");
ms.field(F_NAMEPAG).set(pag.name()); ms.field(F_NAMEPAG).set(pag.name());
ms.field(F_TIPOPR).set(pag.desc_tpr()); ms.field(F_TIPOPR).set(pag.desc_tpr());
ms.field(F_MCOMM).set(pag.mese_commerciale() ? "X" : ""); ms.field(F_MCOMM).set(pag.mese_commerciale() ? "X" : "");
TSheet_field& iva_sh = ivas(); TSheet_field& iva_sh = ivas();
for (int i = 0; i < iva_sh.items(); i++) for (int i = 0; i < iva_sh.items(); i++)
{ {
TToken_string& tt = iva_sh.row(i); TToken_string& tt = iva_sh.row(i);
real mpo(tt.get(0)); real mpo(tt.get(0));
real imp(tt.get(3)); real imp(tt.get(3));
imponibile += mpo; imponibile += mpo;
imposta += imp; imposta += imp;
// TBI: le spese che cazzo sono? // TBI: le spese che cazzo sono?
// ----------------------------- // -----------------------------
} }
ms.field(F_IMPONIBILE).set(imponibile.string()); ms.field(F_IMPONIBILE).set(imponibile.string());
ms.field(F_IMPOSTA).set(imposta.string()); ms.field(F_IMPOSTA).set(imposta.string());
ms.field(F_SPESE).set(spese.string()); ms.field(F_SPESE).set(spese.string());
ms.field(F_RECALC).set("X"); ms.field(F_RECALC).set("X");
pag.set_total(imponibile, imposta, spese); pag.set_total(imponibile, imposta, spese);
// TBI TBI TBI TBI TBI TBI TBI TBI TBI // TBI TBI TBI TBI TBI TBI TBI TBI TBI
// controllare se c'e' una rateazione non standard gia' registrata // controllare se c'e' una rateazione non standard gia' registrata
// in tal caso occorre zappare e settare le rate a mano // in tal caso occorre zappare e settare le rate a mano
pag.set_rate_auto(); pag.set_rate_auto();
// se la prima rata e' fissa non si tocca // se la prima rata e' fissa non si tocca
if (pag.tipo_prima_rata() > 0) if (pag.tipo_prima_rata() > 0)
{ {
ps.disable_cell(0,0); ps.disable_cell(0,0);
ps.disable_cell(0,1); ps.disable_cell(0,1);
ps.disable_cell(0,2); ps.disable_cell(0,2);
ps.disable_cell(0,3); ps.disable_cell(0,3);
} }
// prepara lo sheet // prepara lo sheet
pag.set_sheet(ps); pag.set_sheet(ps);
TArray rows(ps.rows_array()); TArray rows(ps.rows_array());
shuttle sh; shuttle sh;
sh._pag = &pag; sh._pag = &pag;
sh._sheet = &ps; sh._sheet = &ps;
sh._mask = &ms; sh._mask = &ms;
sh._rows = &rows; sh._rows = &rows;
set_app_data(&sh); set_app_data(&sh);
ms.run(); ms.run();
// TBI se modificato riaggiustare i files // TBI se modificato riaggiustare i files
// chiamando la write del caso // chiamando la write del caso
// ------------------------------------------------- // -------------------------------------------------
} }