From b2079b83794af22f59b93545c21c36e255726d3f Mon Sep 17 00:00:00 2001 From: villa Date: Thu, 22 Sep 1994 07:20:12 +0000 Subject: [PATCH] Aggiornati uso MainApp e lfile() git-svn-id: svn://10.65.10.50/trunk@274 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg4600.cpp | 951 +++++++++++++++++++++++++------------------------- 1 file changed, 473 insertions(+), 478 deletions(-) diff --git a/cg/cg4600.cpp b/cg/cg4600.cpp index 82206dd7a..f952e8515 100755 --- a/cg/cg4600.cpp +++ b/cg/cg4600.cpp @@ -1,20 +1,18 @@ // Chiusura/Apertura Conti +#include +#include #include #include -#include -#include -#include -#include #include -#include #include #include -#include -#include -#include -#include +#include "cglib.h" +#include "cg4.h" +#include "cg4600.h" +#include "cg2101.h" + #include #include #include @@ -28,44 +26,44 @@ bool mask_distinti (TMask_field&, KEY); class CG4600_application : public TApplication { - friend bool mask_datac (TMask_field&, KEY); - friend bool mask_dataap (TMask_field&, KEY); - friend bool mask_distinti (TMask_field&, KEY); - - TTable* _esc, * _reg; - TRelation* _rel; - TMovimentoPN* _pn; - TLocalisamfile* _saldi; - TRectype* _rec; - TLocalisamfile* _mov; - TCursor* _cur; - TSaldo_agg* _sld; - Saldo* _sale; - TConto _tcbilch,_tcproper,_tcbilap,_tcutilp,_tcperdp,_tcutile,_tcperde, _conto_corrente; + friend bool mask_datac (TMask_field&, KEY); + friend bool mask_dataap (TMask_field&, KEY); + friend bool mask_distinti (TMask_field&, KEY); + + TTable* _esc, * _reg; + TRelation* _rel; + TMovimentoPN* _pn; + TLocalisamfile* _saldi; + TRectype* _rec; + TLocalisamfile* _mov; + TCursor* _cur; + TSaldo_agg* _sld; + Saldo* _sale; + TConto _tcbilch,_tcproper,_tcbilap,_tcutilp,_tcperdp,_tcutile,_tcperde, _conto_corrente; - real _saldo, _totale_saldo; - int _annoesch, _annoesap; - long _numreg; - TDate _dataregap, _dataregch, _data_inizioap, _data_finech; - TString _codcausap, _codcausch; - + real _saldo, _totale_saldo; + int _annoesch, _annoesap; + long _numreg; + TDate _dataregap, _dataregch; + TString _codcausap, _codcausch; + public: - virtual bool create(); - virtual bool destroy(); - virtual bool menu(MENU_TAG m); - void costi (); - void ricavi(); - void attivita(); - void passivita(); - void rmov_proper (int, long, TDate&, TRectype&, TConto&, real&, bool); - void ultima_registrazione(); - void compila_testata(int,TDate&,TDate&,TString&); - void chiusura_conto_economico(); - void chiusura_conto_patrimoniale(); - bool set(); -// bool epilogo_conti(); - - CG4600_application() {} + virtual bool create(); + virtual bool destroy(); + virtual bool menu(MENU_TAG m); + void costi (); + void ricavi(); + void attivita(); + void passivita(); + void rmov_proper (int, long, TDate&, TRectype&, TConto&, real&, bool); + void ultima_registrazione(); + void compila_testata(int,TDate&,TString&); + void chiusura_conto_economico(); + void chiusura_conto_patrimoniale(); + bool set(); + // bool epilogo_conti(); + + CG4600_application() {} }; HIDDEN CG4600_application* app() { return (CG4600_application *) MainApp(); } @@ -103,10 +101,10 @@ bool mask_datac (TMask_field& f, KEY k) return FALSE; } if ( (f.get() >= inizio) && (f.get() <= fine) ) //la data di chiusura e' cioe' relativa all'esercizio in corso - anno = fine.year(); - else if ( (f.get() >= iniziop) && (f.get() <= finep) ) //la data di chiusura e' cioe' relativa all'esercizio precedente - anno = finep.year(); - + anno = fine.year(); +else if ( (f.get() >= iniziop) && (f.get() <= finep) ) //la data di chiusura e' cioe' relativa all'esercizio precedente + anno = finep.year(); + TabReg.zero(); annos = format ("%04d", anno); TabReg.put ("CODTAB", annos); @@ -115,22 +113,22 @@ bool mask_datac (TMask_field& f, KEY k) for (; !TabReg.eof(); TabReg.next()) { if (TabReg.curr() != r) break; - + int tiporeg = TabReg.get_int("I0"); if (tiporeg == 5) { - TDate datast = TabReg.get_date("D3"); - if (f.get() < datast.string()) - { - ok = FALSE; - break; - } + TDate datast = TabReg.get_date("D3"); + if (f.get() < datast.string()) + { + ok = FALSE; + break; + } } } if (!ok) { - f.warning_box("La data di chiusura non puo' essere inferiore alla data ultima stampa bollato"); - return FALSE; + f.warning_box("La data di chiusura non puo' essere inferiore alla data ultima stampa bollato"); + return FALSE; } } return TRUE; @@ -161,7 +159,7 @@ bool mask_dataap (TMask_field& f, KEY k) if (f.get() > fine) { f.warning_box ("La data di apertura non puo' essere superiore alla data di fine esercizio in corso"); - return FALSE; + return FALSE; } if ( scarico.ok() && (f.get() <= scarico) ) { @@ -170,10 +168,10 @@ bool mask_dataap (TMask_field& f, KEY k) } if ( (f.get() >= inizio) && (f.get() <= fine) ) //la data di apertura e' cioe' relativa all'esercizio in corso - anno = fine.year(); - else if( (f.get() >= iniziop) && (f.get() <= finep) ) //la data di apertura e' cioe' relativa all'esercizio precedente - anno = finep.year(); - + anno = fine.year(); +else if( (f.get() >= iniziop) && (f.get() <= finep) ) //la data di apertura e' cioe' relativa all'esercizio precedente + anno = finep.year(); + TabReg.zero(); annos = format ("%04d", anno); TabReg.put ("CODTAB", annos); @@ -182,16 +180,16 @@ bool mask_dataap (TMask_field& f, KEY k) for (; !TabReg.eof(); TabReg.next()) { if (TabReg.curr() != r) break; - + int tiporeg = TabReg.get_int("I0"); if (tiporeg == 5) { - TDate datast = TabReg.get_date("D3"); - if (f.get() < datast) - { - ok = FALSE; - break; - } + TDate datast = TabReg.get_date("D3"); + if (f.get() < datast) + { + ok = FALSE; + break; + } } } if (!ok) @@ -228,11 +226,11 @@ bool mask_distinti (TMask_field& f, KEY k) idg1 = idg1 + 3; idc1 = idc1 + 3; ids1 = ids1 + 3; - + int gruppo = f.mask().get_int(idg1); int conto = f.mask().get_int(idc1); long sottoc = f.mask().get_long(ids1); - + if ((g == gruppo)&&(c == conto)&&(s == sottoc)) { f.warning_box("Nessun sottoconto puo' essere ripetuto!"); @@ -248,7 +246,7 @@ bool mask_distinti (TMask_field& f, KEY k) } return TRUE; } - + bool CG4600_application::create() { TApplication::create(); @@ -295,7 +293,7 @@ void CG4600_application::ultima_registrazione() _mov->last(); //dell'ultimo record di mov, e lo numregmov = _mov->get_long(MOV_NUMREG); //incremento di uno per ottenere _numreg = numregmov + 1; //un numero di registrazione - //sicuramente non esistente. + //sicuramente non esistente. } bool CG4600_application::set() @@ -315,12 +313,10 @@ bool CG4600_application::set() TabEs.last(); int annoap = TabEs.get_int ("CODTAB"); - TDate inizio = TabEs.get_date("D0"); //data inizio es. in corso - _data_inizioap = inizio; + TDate inizio = TabEs.get_date("D0"); //data inizio es. in corso TabEs.prev(); int annoch = TabEs.get_int ("CODTAB"); - TDate fine = TabEs.get_date("D1"); //data fine es. precedente - _data_finech = fine; + TDate fine = TabEs.get_date("D1"); //data fine es. precedente m.set(F_ANNO, annoap); m.set(F_ANNOCH, annoch); m.set(F_DATAC, fine.string()); @@ -393,7 +389,7 @@ bool CG4600_application::set() _tcperde.set (gperde,cperde,sperde); ultima_registrazione(); -// anno_ese_precedente(); + // anno_ese_precedente(); (*_cur) = 0L; @@ -435,17 +431,16 @@ bool CG4600_application::set() return FALSE; } -void CG4600_application::compila_testata(int annoes,TDate& datareg,TDate& datacomp,TString& codcaus) +void CG4600_application::compila_testata(int annoes,TDate& datareg, TString& codcaus) { - _pn->lfile()->zero(); - _pn->lfile()->put(MOV_ANNOES, annoes); //Viene generato un mov - _pn->lfile()->put(MOV_DATAREG, datareg); //quando si incontra il - _pn->lfile()->put(MOV_CODCAUS, codcaus); //primo conto con indbil - _pn->lfile()->put(MOV_NUMREG, _numreg); - _pn->lfile()->put(MOV_DATACOMP, datacomp); + _pn->lfile().zero(); + _pn->lfile().put(MOV_ANNOES, annoes); //Viene generato un mov + _pn->lfile().put(MOV_DATAREG, datareg); //quando si incontra il + _pn->lfile().put(MOV_CODCAUS, codcaus); //primo conto con indbil + _pn->lfile().put(MOV_NUMREG, _numreg); } -void CG4600_application::rmov_proper(int anno,long numrig,TDate& datareg,TRectype& rmov,TConto& tc,real& tot_saldo, bool sezione_opposta) +void CG4600_application::rmov_proper(int anno,long numrig,TDate& datareg,TRectype& rmov, TConto& tc,real& tot_saldo, bool sezione_opposta) { char sez_rmov = ' '; char sezione = ' '; @@ -472,20 +467,20 @@ void CG4600_application::rmov_proper(int anno,long numrig,TDate& datareg,TRectyp sezione = 'A'; totale = -totale; } - + if (sezione_opposta) { rmov.put(RMV_SEZIONE, sez_rmov); _sld->aggiorna(tc,totale,sez_rmov);//Aggiorno anche i saldi con l'oggetto - //TSaldo_agg + //TSaldo_agg } - else - { - rmov.put(RMV_SEZIONE, sezione); - _sld->aggiorna(tc,totale,sezione);//Aggiorno anche i saldi con l'oggetto - //TSaldo_agg - } - rmov.put(RMV_IMPORTO, totale); +else +{ + rmov.put(RMV_SEZIONE, sezione); + _sld->aggiorna(tc,totale,sezione);//Aggiorno anche i saldi con l'oggetto + //TSaldo_agg +} +rmov.put(RMV_IMPORTO, totale); } void CG4600_application::costi() @@ -501,7 +496,7 @@ void CG4600_application::costi() tot_saldo = ZERO; TRecnotype items_pcon = _cur->items(); - + for (int i = 0; i < items_pcon; i++, ++(*_cur)) { int indbil = _cur->curr().get_int(PCN_INDBIL); @@ -512,7 +507,7 @@ void CG4600_application::costi() { if (compila_mov) { - compila_testata(_annoesch,_dataregch,_data_finech,_codcausch); //Reg. 1 + compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 1 compila_mov = FALSE; } _saldi->setkey(1); @@ -527,93 +522,93 @@ void CG4600_application::costi() for (_saldi->read(); ; _saldi->next()) { - TRectype& rmov = _pn->cg(j); + TRectype& rmov = _pn->cg(j); _saldo = ZERO; - - if (_saldi->curr() > (*_rec) || _saldi->eof()) + + if (_saldi->curr() > (*_rec) || _saldi->eof()) { - // Aggiungo un ulteriore riga di movimento contenente la somma - // di tutti i saldi aventi lo stesso conto, indicandola - // con una sezione opposta al risultato (della somma). - - if (j >= 1) - { - numrig++; + // Aggiungo un ulteriore riga di movimento contenente la somma + // di tutti i saldi aventi lo stesso conto, indicandola + // con una sezione opposta al risultato (della somma). + + if (j >= 1) + { + numrig++; rmov_proper(_annoesch,numrig,_dataregch,rmov,_tcproper,tot_saldo,FALSE); - - tot_saldo = ZERO; - } - break; - } + + tot_saldo = ZERO; + } + break; + } - numrig++; - s = _saldi->get_long(SLD_SOTTOCONTO); - sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); + numrig++; + s = _saldi->get_long(SLD_SOTTOCONTO); + sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); _saldo = sale.saldo(); - if (_saldo.is_zero()) continue; + if (_saldo.is_zero()) continue; if (_saldo > ZERO) - sezione = 'D'; + sezione = 'D'; else if (_saldo < ZERO) - { + { sezione = 'A'; _saldo = -_saldo; - } + } - if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli - { // importi trovati sui saldi. Quando ho - sez_rmov = 'A'; // finito di leggere i sottoconti, oppure - tot_saldo += _saldo; // quando ho raggiunto un massimo di 200 + if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli + { // importi trovati sui saldi. Quando ho + sez_rmov = 'A'; // finito di leggere i sottoconti, oppure + tot_saldo += _saldo; // quando ho raggiunto un massimo di 200 _totale_saldo += _saldo; - } // righe di movimento, genero un' altra - else // riga con importo di sezione opposta - if (sezione == 'A') // alla somma, mandando a zero - { // il saldo di quel movimento. - sez_rmov = 'D'; - tot_saldo -= _saldo; - _totale_saldo -= _saldo; - } - - if (j == MAX || _saldi->eof()) + } // righe di movimento, genero un' altra +else // riga con importo di sezione opposta + if (sezione == 'A') // alla somma, mandando a zero + { // il saldo di quel movimento. + sez_rmov = 'D'; + tot_saldo -= _saldo; + _totale_saldo -= _saldo; + } + + if (j == MAX || _saldi->eof()) { - // Aggiungo un ulteriore riga di movimento contenente la somma - // di tutti i saldi aventi lo stesso sottoconto, indicandola - // con una sezione opposta al risultato (della somma). + // Aggiungo un ulteriore riga di movimento contenente la somma + // di tutti i saldi aventi lo stesso sottoconto, indicandola + // con una sezione opposta al risultato (della somma). -// numrig++; + // numrig++; rmov_proper (_annoesch,numrig,_dataregch,rmov,_tcproper,tot_saldo,FALSE); - - tot_saldo = ZERO; - } + + tot_saldo = ZERO; + } if (!_saldi->eof()) { - rmov.zero(); - rmov.put(RMV_ANNOES, _annoesch); //Compilo una riga di movimento - rmov.put(RMV_DATAREG, _dataregch); //per ogni sottoconto che leggo - rmov.put(RMV_GRUPPO, g); //sui saldi. Siccome queste - rmov.put(RMV_CONTO, c); //righe servono per mandare a 0 - rmov.put(RMV_SOTTOCONTO, s); //il saldo dei movimenti, la - rmov.put(RMV_SEZIONE, sez_rmov); //sezione sara' opposta a - rmov.put(RMV_IMPORTO, _saldo); //quella letta sui saldi. - rmov.put(RMV_NUMREG, _numreg); - rmov.put(RMV_NUMRIG, numrig); - - TConto tc(g,c,s); - _sld->aggiorna(tc,_saldo,sez_rmov); //l'oggetto TSaldo_agg - j++; + rmov.zero(); + rmov.put(RMV_ANNOES, _annoesch); //Compilo una riga di movimento + rmov.put(RMV_DATAREG, _dataregch); //per ogni sottoconto che leggo + rmov.put(RMV_GRUPPO, g); //sui saldi. Siccome queste + rmov.put(RMV_CONTO, c); //righe servono per mandare a 0 + rmov.put(RMV_SOTTOCONTO, s); //il saldo dei movimenti, la + rmov.put(RMV_SEZIONE, sez_rmov); //sezione sara' opposta a + rmov.put(RMV_IMPORTO, _saldo); //quella letta sui saldi. + rmov.put(RMV_NUMREG, _numreg); + rmov.put(RMV_NUMRIG, numrig); + + TConto tc(g,c,s); + _sld->aggiorna(tc,_saldo,sez_rmov); //l'oggetto TSaldo_agg + j++; } if (_saldi->eof()) break; } //for saldi if (j >= 1) { - _pn->write(); - _sld->registra(); + _pn->write(); + _sld->registra(); j = 0; - _pn->destroy_rows(); //Azzero l'oggetto pn. + _pn->destroy_rows(); //Azzero l'oggetto pn. } } // if (indbil == 3) } // for pcon @@ -631,7 +626,7 @@ void CG4600_application::ricavi() tot_saldo = ZERO; TRecnotype items_pcon = _cur->items(); - + for (int i = 0; i < items_pcon; i++, ++(*_cur)) { int indbil = _cur->curr().get_int(PCN_INDBIL); @@ -642,7 +637,7 @@ void CG4600_application::ricavi() { if (compila_mov) { - compila_testata(_annoesch,_dataregch,_data_finech,_codcausch); //Reg. 2 + compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 2 compila_mov = FALSE; } _saldi->setkey(1); @@ -657,93 +652,93 @@ void CG4600_application::ricavi() for (_saldi->read(); ; _saldi->next()) { - TRectype& rmov = _pn->cg(j); + TRectype& rmov = _pn->cg(j); - _saldo = ZERO; + _saldo = ZERO; - if (_saldi->curr() > (*_rec) || _saldi->eof()) + if (_saldi->curr() > (*_rec) || _saldi->eof()) { - // Aggiungo un ulteriore riga di movimento contenente la somma - // di tutti i saldi aventi lo stesso conto, indicandola - // con una sezione opposta al risultato (della somma). - - if (j >= 1) - { - numrig++; + // Aggiungo un ulteriore riga di movimento contenente la somma + // di tutti i saldi aventi lo stesso conto, indicandola + // con una sezione opposta al risultato (della somma). + + if (j >= 1) + { + numrig++; rmov_proper(_annoesch,numrig,_dataregch,rmov,_tcproper,tot_saldo,FALSE); - - tot_saldo = ZERO; - } - break; - } + + tot_saldo = ZERO; + } + break; + } - numrig++; - s = _saldi->get_long(SLD_SOTTOCONTO); - sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); + numrig++; + s = _saldi->get_long(SLD_SOTTOCONTO); + sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); _saldo = sale.saldo(); - if (_saldo.is_zero()) continue; + if (_saldo.is_zero()) continue; if (_saldo > ZERO) - sezione = 'D'; + sezione = 'D'; else if (_saldo < ZERO) - { + { sezione = 'A'; _saldo = -_saldo; - } + } - if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli - { // importi trovati sui saldi. Quando ho - sez_rmov = 'A'; // finito di leggere i sottoconti, oppure - tot_saldo += _saldo; // quando ho raggiunto un massimo di 200 + if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli + { // importi trovati sui saldi. Quando ho + sez_rmov = 'A'; // finito di leggere i sottoconti, oppure + tot_saldo += _saldo; // quando ho raggiunto un massimo di 200 _totale_saldo += _saldo; - } // righe di movimento, genero un' altra - else // riga con importo di sezione opposta - if (sezione == 'A') // alla somma, mandando a zero - { // il saldo di quel movimento. - sez_rmov = 'D'; - tot_saldo -= _saldo; - _totale_saldo -= _saldo; - } - - if (j == MAX || _saldi->eof()) + } // righe di movimento, genero un' altra +else // riga con importo di sezione opposta + if (sezione == 'A') // alla somma, mandando a zero + { // il saldo di quel movimento. + sez_rmov = 'D'; + tot_saldo -= _saldo; + _totale_saldo -= _saldo; + } + + if (j == MAX || _saldi->eof()) { - // Aggiungo un ulteriore riga di movimento contenente la somma - // di tutti i saldi aventi lo stesso sottoconto, indicandola - // con una sezione opposta al risultato (della somma). + // Aggiungo un ulteriore riga di movimento contenente la somma + // di tutti i saldi aventi lo stesso sottoconto, indicandola + // con una sezione opposta al risultato (della somma). -// numrig++; + // numrig++; rmov_proper (_annoesch,numrig,_dataregch,rmov,_tcproper,tot_saldo,FALSE); - - tot_saldo = ZERO; - } + + tot_saldo = ZERO; + } if (!_saldi->eof()) { - rmov.zero(); - rmov.put(RMV_ANNOES, _annoesch); //Compilo una riga di movimento - rmov.put(RMV_DATAREG, _dataregch); //per ogni sottoconto che leggo - rmov.put(RMV_GRUPPO, g); //sui saldi. Siccome queste - rmov.put(RMV_CONTO, c); //righe servono per mandare a 0 - rmov.put(RMV_SOTTOCONTO, s); //il saldo dei movimenti, la - rmov.put(RMV_SEZIONE, sez_rmov); //sezione sara' opposta a - rmov.put(RMV_IMPORTO, _saldo); //quella letta sui saldi. - rmov.put(RMV_NUMREG, _numreg); - rmov.put(RMV_NUMRIG, numrig); - - TConto tc(g,c,s); - _sld->aggiorna(tc,_saldo,sez_rmov); //l'oggetto TSaldo_agg - j++; + rmov.zero(); + rmov.put(RMV_ANNOES, _annoesch); //Compilo una riga di movimento + rmov.put(RMV_DATAREG, _dataregch); //per ogni sottoconto che leggo + rmov.put(RMV_GRUPPO, g); //sui saldi. Siccome queste + rmov.put(RMV_CONTO, c); //righe servono per mandare a 0 + rmov.put(RMV_SOTTOCONTO, s); //il saldo dei movimenti, la + rmov.put(RMV_SEZIONE, sez_rmov); //sezione sara' opposta a + rmov.put(RMV_IMPORTO, _saldo); //quella letta sui saldi. + rmov.put(RMV_NUMREG, _numreg); + rmov.put(RMV_NUMRIG, numrig); + + TConto tc(g,c,s); + _sld->aggiorna(tc,_saldo,sez_rmov); //l'oggetto TSaldo_agg + j++; } if (_saldi->eof()) break; } //for saldi if (j >= 1) { - _pn->write(); - _sld->registra(); - j = 0; - _pn->destroy_rows(); //Azzero l'oggetto pn. + _pn->write(); + _sld->registra(); + j = 0; + _pn->destroy_rows(); //Azzero l'oggetto pn. } } // if (indbil == 4) } // for pcon @@ -755,12 +750,12 @@ void CG4600_application::chiusura_conto_economico() { int j; -//Compilo la testata per perdite di es. c.economico a Profitti e Perdite -//Chiusura conto economico + //Compilo la testata per perdite di es. c.economico a Profitti e Perdite + //Chiusura conto economico j = 0; ultima_registrazione(); - compila_testata(_annoesch,_dataregch,_data_finech,_codcausch); //Reg. 3 + compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 3 TRectype& rmov1 = _pn->cg(j); long numrig = 1; @@ -769,19 +764,19 @@ void CG4600_application::chiusura_conto_economico() j++; TRectype& rmov2 = _pn->cg(j); rmov_proper(_annoesch,numrig,_dataregch,rmov2,_tcperde,_totale_saldo,FALSE); - + _pn->write(); _sld->registra(); _sld->reset(); -//Compilo la testata per perdite di es. c.patrimon. a Perdita di es. c. econom. -//Chiusura capitale netto + //Compilo la testata per perdite di es. c.patrimon. a Perdita di es. c. econom. + //Chiusura capitale netto _pn->destroy_rows(); //Azzero l'oggetto pn. j = 0; ultima_registrazione(); - compila_testata(_annoesch,_dataregch,_data_finech,_codcausch); //Reg. 4 + compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 4 TRectype& rmov3 = _pn->cg(j); numrig = 1; @@ -795,15 +790,15 @@ void CG4600_application::chiusura_conto_economico() _sld->registra(); _sld->reset(); - //Compilo la testata per Perdita es. c/to patrimoniale a Bilancio di apertura - //Apertura capitale netto + //Compilo la testata per Perdita es. c/to patrimoniale a Bilancio di apertura + //Apertura capitale netto _sld->set_anno_es(_annoesap); _pn->destroy_rows(); //Azzero l'oggetto pn. j = 0; ultima_registrazione(); - compila_testata(_annoesap,_dataregap,_data_inizioap,_codcausap); //Reg. 10 + compila_testata(_annoesap,_dataregap,_codcausap); //Reg. 10 TRectype& rmov5 = _pn->cg(j); numrig = 1; @@ -820,15 +815,15 @@ void CG4600_application::chiusura_conto_economico() else if (_totale_saldo < ZERO) { - int j; + int j; -//Compilo la testata per Profitti e perdite a Utile di es. c.economico -//Chiusura conto economico + //Compilo la testata per Profitti e perdite a Utile di es. c.economico + //Chiusura conto economico _pn->destroy_rows(); //Azzero l'oggetto pn. j = 0; ultima_registrazione(); - compila_testata(_annoesch,_dataregch,_data_finech,_codcausch); //Reg. 3 + compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 3 TRectype& rmov1 = _pn->cg(j); long numrig = 1; @@ -841,15 +836,15 @@ void CG4600_application::chiusura_conto_economico() _pn ->write(); _sld->registra(); _sld->reset(); - -//Compilo la testata per Utile di es. c.economico a Utile di es. c.patrimoniale -//Chiusura capitale netto + + //Compilo la testata per Utile di es. c.economico a Utile di es. c.patrimoniale + //Chiusura capitale netto _pn->destroy_rows(); //Azzero l'oggetto pn. j = 0; ultima_registrazione(); - compila_testata(_annoesch,_dataregch,_data_finech,_codcausch); //Reg. 4 - + compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 4 + TRectype& rmov3 = _pn->cg(j); numrig = 1; rmov_proper(_annoesch,numrig,_dataregch,rmov3,_tcutilp,_totale_saldo,FALSE); @@ -862,27 +857,27 @@ void CG4600_application::chiusura_conto_economico() _sld->registra(); _sld->reset(); - //Compilo la testata per Bilancio di apertura a Utile es. c/to patrimoniale - //Apertura capitale netto - - _sld->set_anno_es(_annoesap); - _pn->destroy_rows(); //Azzero l'oggetto pn. - j = 0; - ultima_registrazione(); + //Compilo la testata per Bilancio di apertura a Utile es. c/to patrimoniale + //Apertura capitale netto + + _sld->set_anno_es(_annoesap); + _pn->destroy_rows(); //Azzero l'oggetto pn. + j = 0; + ultima_registrazione(); - compila_testata(_annoesap,_dataregap,_data_inizioap,_codcausap); //Reg. 10 - - TRectype& rmov5 = _pn->cg(j); - numrig = 1; - rmov_proper(_annoesap,numrig,_dataregap,rmov5,_tcbilap,_totale_saldo,TRUE); - numrig++; - j++; - TRectype& rmov6 = _pn->cg(j); - rmov_proper(_annoesap,numrig,_dataregap,rmov6,_tcutilp,_totale_saldo,FALSE); + compila_testata(_annoesap,_dataregap,_codcausap); //Reg. 10 + + TRectype& rmov5 = _pn->cg(j); + numrig = 1; + rmov_proper(_annoesap,numrig,_dataregap,rmov5,_tcbilap,_totale_saldo,TRUE); + numrig++; + j++; + TRectype& rmov6 = _pn->cg(j); + rmov_proper(_annoesap,numrig,_dataregap,rmov6,_tcutilp,_totale_saldo,FALSE); - _pn->write(); - _sld->registra(); - _sld->set_anno_es(_annoesch); + _pn->write(); + _sld->registra(); + _sld->set_anno_es(_annoesch); } @@ -895,13 +890,13 @@ void CG4600_application::chiusura_conto_patrimoniale() if (_totale_saldo > ZERO) { -//Compilo la testata per Bilancio di chiusura a Perdita di es. c. patrimoniale -//Chiusura conto patrimoniale + //Compilo la testata per Bilancio di chiusura a Perdita di es. c. patrimoniale + //Chiusura conto patrimoniale _pn->destroy_rows(); //Azzero l'oggetto pn. j = 0; ultima_registrazione(); - compila_testata(_annoesch,_dataregch,_data_finech,_codcausch); //Reg. 7 + compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 7 TRectype& rmov1 = _pn->cg(j); numrig = 1; @@ -915,28 +910,28 @@ void CG4600_application::chiusura_conto_patrimoniale() _sld->registra(); } - else - if (_totale_saldo < ZERO) - { -//Compilo la testata per Utile di es. c.patrimon. a Bilancio di chiusura -//Chiusura conto patrimoniale +else + if (_totale_saldo < ZERO) + { + //Compilo la testata per Utile di es. c.patrimon. a Bilancio di chiusura + //Chiusura conto patrimoniale - _pn->destroy_rows(); //Azzero l'oggetto pn. - j = 0; - ultima_registrazione(); - compila_testata(_annoesch,_dataregch,_data_finech,_codcausch); //Reg. 7 - - TRectype& rmov1 = _pn->cg(j); - numrig = 1; - rmov_proper(_annoesch,numrig,_dataregch,rmov1,_tcbilch,_totale_saldo,TRUE); - numrig++; - j++; - TRectype& rmov2 = _pn->cg(j); - rmov_proper(_annoesch,numrig,_dataregch,rmov2,_tcperdp,_totale_saldo,FALSE); + _pn->destroy_rows(); //Azzero l'oggetto pn. + j = 0; + ultima_registrazione(); + compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 7 + + TRectype& rmov1 = _pn->cg(j); + numrig = 1; + rmov_proper(_annoesch,numrig,_dataregch,rmov1,_tcbilch,_totale_saldo,TRUE); + numrig++; + j++; + TRectype& rmov2 = _pn->cg(j); + rmov_proper(_annoesch,numrig,_dataregch,rmov2,_tcperdp,_totale_saldo,FALSE); - _pn ->write(); - _sld->registra(); - } + _pn ->write(); + _sld->registra(); + } } void CG4600_application::attivita() @@ -952,7 +947,7 @@ void CG4600_application::attivita() tot_saldo = ZERO; TRecnotype items_pcon = _cur->items(); - + for (int i = 0; i < items_pcon; i++, ++(*_cur)) { _sld->set_anno_es(_annoesch); @@ -965,7 +960,7 @@ void CG4600_application::attivita() { if (compila_mov_ch) { - compila_testata(_annoesch,_dataregch,_data_finech,_codcausch); //Reg. 5 Chiusura + compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 5 Chiusura compila_mov_ch = FALSE; } _saldi->setkey(1); @@ -980,144 +975,144 @@ void CG4600_application::attivita() for (_saldi->read(); ; _saldi->next()) { - TRectype& rmov = _pn->cg(j); - - if (_saldi->curr() > rec || _saldi->eof()) + TRectype& rmov = _pn->cg(j); + + if (_saldi->curr() > rec || _saldi->eof()) { - // Aggiungo un ulteriore riga di movimento contenente la somma - // di tutti i saldi aventi lo stesso conto, indicandola - // con una sezione opposta al risultato (della somma). - - if (j >= 1) - { - numrig++; + // Aggiungo un ulteriore riga di movimento contenente la somma + // di tutti i saldi aventi lo stesso conto, indicandola + // con una sezione opposta al risultato (della somma). + + if (j >= 1) + { + numrig++; rmov_proper(_annoesch,numrig,_dataregch,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura - - tot_saldo = ZERO; - } - break; - } + + tot_saldo = ZERO; + } + break; + } - numrig++; - s = _saldi->get_long(SLD_SOTTOCONTO); - sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); + numrig++; + s = _saldi->get_long(SLD_SOTTOCONTO); + sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); _saldo = sale.saldo(); - if (_saldo == ZERO) continue; + if (_saldo == ZERO) continue; if (_saldo > ZERO) - sezione = 'D'; + sezione = 'D'; else - if (_saldo < ZERO) - { + if (_saldo < ZERO) + { sezione = 'A'; _saldo = -_saldo; - } + } - if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli - { // importi trovati sui saldi. Quando ho - sez_rmov = 'A'; // finito di leggere i sottoconti, oppure - tot_saldo += _saldo; // quando ho raggiunto un massimo di 200 + if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli + { // importi trovati sui saldi. Quando ho + sez_rmov = 'A'; // finito di leggere i sottoconti, oppure + tot_saldo += _saldo; // quando ho raggiunto un massimo di 200 _totale_saldo += _saldo; - } // righe di movimento, genero un' altra - else // riga con importo di sezione opposta - if (sezione == 'A') // alla somma, mandando a zero - { // il saldo di quel movimento. - sez_rmov = 'D'; - tot_saldo -= _saldo; - _totale_saldo -= _saldo; - } - - if (j == MAX || _saldi->eof()) + } // righe di movimento, genero un' altra +else // riga con importo di sezione opposta + if (sezione == 'A') // alla somma, mandando a zero + { // il saldo di quel movimento. + sez_rmov = 'D'; + tot_saldo -= _saldo; + _totale_saldo -= _saldo; + } + + if (j == MAX || _saldi->eof()) { - // Aggiungo un ulteriore riga di movimento contenente la somma - // di tutti i saldi aventi lo stesso sottoconto, indicandola - // con una sezione opposta al risultato (della somma). + // Aggiungo un ulteriore riga di movimento contenente la somma + // di tutti i saldi aventi lo stesso sottoconto, indicandola + // con una sezione opposta al risultato (della somma). -// numrig++; + // numrig++; rmov_proper (_annoesch,numrig,_dataregch,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura - tot_saldo = ZERO; - } + tot_saldo = ZERO; + } if (!_saldi->eof()) { - rmov.zero(); - rmov.put(RMV_ANNOES, _annoesch); //Compilo una riga di movimento - rmov.put(RMV_DATAREG, _dataregch); //per ogni sottoconto che leggo - rmov.put(RMV_GRUPPO, g); //sui saldi. Siccome queste - rmov.put(RMV_CONTO, c); //righe servono per mandare a 0 - rmov.put(RMV_SOTTOCONTO, s); //il saldo dei movimenti, la - rmov.put(RMV_SEZIONE, sez_rmov); //sezione sara' opposta a - rmov.put(RMV_IMPORTO, _saldo); //quella letta sui saldi. - rmov.put(RMV_NUMREG, _numreg); - rmov.put(RMV_NUMRIG, numrig); - - TConto tc(g,c,s); - _sld->aggiorna(tc,_saldo,sez_rmov); //l'oggetto TSaldo_agg + rmov.zero(); + rmov.put(RMV_ANNOES, _annoesch); //Compilo una riga di movimento + rmov.put(RMV_DATAREG, _dataregch); //per ogni sottoconto che leggo + rmov.put(RMV_GRUPPO, g); //sui saldi. Siccome queste + rmov.put(RMV_CONTO, c); //righe servono per mandare a 0 + rmov.put(RMV_SOTTOCONTO, s); //il saldo dei movimenti, la + rmov.put(RMV_SEZIONE, sez_rmov); //sezione sara' opposta a + rmov.put(RMV_IMPORTO, _saldo); //quella letta sui saldi. + rmov.put(RMV_NUMREG, _numreg); + rmov.put(RMV_NUMRIG, numrig); + + TConto tc(g,c,s); + _sld->aggiorna(tc,_saldo,sez_rmov); //l'oggetto TSaldo_agg - j++; + j++; } if (_saldi->eof()) break; } //for saldi if (j >= 1) { - _pn->write(); - _sld->registra(); - _sld->reset(); - j = 0; - - long items_pn = _pn->cg_items(); + _pn->write(); + _sld->registra(); + _sld->reset(); + j = 0; + + long items_pn = _pn->cg_items(); _sld->set_anno_es(_annoesap); - if (compila_mov_ap) - { + if (compila_mov_ap) + { ultima_registrazione(); - compila_testata(_annoesap,_dataregap,_data_inizioap,_codcausap); //Reg. 8 Apertura - compila_mov_ap = FALSE; + compila_testata(_annoesap,_dataregap,_codcausap); //Reg. 8 Apertura + compila_mov_ap = FALSE; } - for (int i = 0; i < items_pn; i++) - { + for (int i = 0; i < items_pn; i++) + { char sez_rmov; - TRectype& rmov = _pn->cg(j); + TRectype& rmov = _pn->cg(j); - char sezione = rmov.get (RMV_SEZIONE)[0]; - int gruppo = rmov.get_int (RMV_GRUPPO); - int conto = rmov.get_int (RMV_CONTO); - long sottoc = rmov.get_long(RMV_SOTTOCONTO); + char sezione = rmov.get (RMV_SEZIONE)[0]; + int gruppo = rmov.get_int (RMV_GRUPPO); + int conto = rmov.get_int (RMV_CONTO); + long sottoc = rmov.get_long(RMV_SOTTOCONTO); real importo = rmov.get_real(RMV_IMPORTO); - if (sezione == 'D') - sez_rmov = 'A'; - else - if (sezione == 'A') - sez_rmov = 'D'; + if (sezione == 'D') + sez_rmov = 'A'; + else + if (sezione == 'A') + sez_rmov = 'D'; - rmov.put(RMV_ANNOES, _annoesap); - rmov.put(RMV_NUMREG, _numreg); - rmov.put(RMV_DATAREG, _dataregap); + rmov.put(RMV_ANNOES, _annoesap); + rmov.put(RMV_NUMREG, _numreg); + rmov.put(RMV_DATAREG, _dataregap); - if (i == (items_pn - 1)) //Quando incontro il conto - { - rmov.put(RMV_GRUPPO, _tcbilap.gruppo()); - rmov.put(RMV_CONTO, _tcbilap.conto()); - rmov.put(RMV_SOTTOCONTO, _tcbilap.sottoconto()); //bilancio di chiusura lo - rmov.put(RMV_SEZIONE, sez_rmov); //sostituisco con quello di + if (i == (items_pn - 1)) //Quando incontro il conto + { + rmov.put(RMV_GRUPPO, _tcbilap.gruppo()); + rmov.put(RMV_CONTO, _tcbilap.conto()); + rmov.put(RMV_SOTTOCONTO, _tcbilap.sottoconto()); //bilancio di chiusura lo + rmov.put(RMV_SEZIONE, sez_rmov); //sostituisco con quello di _sld->aggiorna(_tcbilap,importo,sez_rmov); //apertura, non girando l'importo - } //perche' non l'avevo girato - else //precedentemente, mentre per gli altri - { //conti l'importo deve essere girato, - rmov.put(RMV_SEZIONE, sez_rmov); //perche' erano gia' stati girati - TConto tc(gruppo,conto,sottoc); //precedentemente per fare la chiusura - _sld->aggiorna(tc,importo,sez_rmov); - } - j++; + } //perche' non l'avevo girato + else //precedentemente, mentre per gli altri + { //conti l'importo deve essere girato, + rmov.put(RMV_SEZIONE, sez_rmov); //perche' erano gia' stati girati + TConto tc(gruppo,conto,sottoc); //precedentemente per fare la chiusura + _sld->aggiorna(tc,importo,sez_rmov); + } + j++; } _pn->write(); _sld->registra(); - j = 0; + j = 0; _pn->destroy_rows(); //Azzero l'oggetto pn. } } // if (indbil == 1) @@ -1137,7 +1132,7 @@ void CG4600_application::passivita() tot_saldo = ZERO; TRecnotype items_pcon = _cur->items(); - + for (int i = 0; i < items_pcon; i++, ++(*_cur)) { _sld->set_anno_es(_annoesch); @@ -1150,7 +1145,7 @@ void CG4600_application::passivita() { if (compila_mov_ch) { - compila_testata(_annoesch,_dataregch,_data_finech,_codcausch); //Reg. 6 Chiusura + compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 6 Chiusura compila_mov_ch = FALSE; } _saldi->setkey(1); @@ -1165,145 +1160,145 @@ void CG4600_application::passivita() for (_saldi->read(); ; _saldi->next()) { - TRectype& rmov = _pn->cg(j); - - if (_saldi->curr() > rec || _saldi->eof()) + TRectype& rmov = _pn->cg(j); + + if (_saldi->curr() > rec || _saldi->eof()) { - // Aggiungo un ulteriore riga di movimento contenente la somma - // di tutti i saldi aventi lo stesso conto, indicandola - // con una sezione opposta al risultato (della somma). - - if (j >= 1) - { - numrig++; + // Aggiungo un ulteriore riga di movimento contenente la somma + // di tutti i saldi aventi lo stesso conto, indicandola + // con una sezione opposta al risultato (della somma). + + if (j >= 1) + { + numrig++; rmov_proper(_annoesch,numrig,_dataregch,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura - - tot_saldo = ZERO; - } - break; - } + + tot_saldo = ZERO; + } + break; + } - numrig++; - s = _saldi->get_long(SLD_SOTTOCONTO); - sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); + numrig++; + s = _saldi->get_long(SLD_SOTTOCONTO); + sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); _saldo = sale.saldo(); - if (_saldo.is_zero()) continue; + if (_saldo.is_zero()) continue; if (_saldo > ZERO) - sezione = 'D'; + sezione = 'D'; else if (_saldo < ZERO) - { + { sezione = 'A'; _saldo = -_saldo; - } + } - if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli - { // importi trovati sui saldi. Quando ho - sez_rmov = 'A'; // finito di leggere i sottoconti, oppure - tot_saldo += _saldo; // quando ho raggiunto un massimo di 200 + if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli + { // importi trovati sui saldi. Quando ho + sez_rmov = 'A'; // finito di leggere i sottoconti, oppure + tot_saldo += _saldo; // quando ho raggiunto un massimo di 200 _totale_saldo += _saldo; - } // righe di movimento, genero un' altra - else // riga con importo di sezione opposta - if (sezione == 'A') // alla somma, mandando a zero - { // il saldo di quel movimento. - sez_rmov = 'D'; - tot_saldo -= _saldo; - _totale_saldo -= _saldo; - } - - if (j == MAX || _saldi->eof()) + } // righe di movimento, genero un' altra +else // riga con importo di sezione opposta + if (sezione == 'A') // alla somma, mandando a zero + { // il saldo di quel movimento. + sez_rmov = 'D'; + tot_saldo -= _saldo; + _totale_saldo -= _saldo; + } + + if (j == MAX || _saldi->eof()) { - // Aggiungo un ulteriore riga di movimento contenente la somma - // di tutti i saldi aventi lo stesso sottoconto, indicandola - // con una sezione opposta al risultato (della somma). + // Aggiungo un ulteriore riga di movimento contenente la somma + // di tutti i saldi aventi lo stesso sottoconto, indicandola + // con una sezione opposta al risultato (della somma). -// numrig++; + // numrig++; rmov_proper (_annoesch,numrig,_dataregch,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura - tot_saldo = ZERO; - } + tot_saldo = ZERO; + } if (!_saldi->eof()) { - rmov.zero(); - rmov.put(RMV_ANNOES, _annoesch); //Compilo una riga di movimento - rmov.put(RMV_DATAREG, _dataregch); //per ogni sottoconto che leggo - rmov.put(RMV_GRUPPO, g); //sui saldi. Siccome queste - rmov.put(RMV_CONTO, c); //righe servono per mandare a 0 - rmov.put(RMV_SOTTOCONTO, s); //il saldo dei movimenti, la - rmov.put(RMV_SEZIONE, sez_rmov); //sezione sara' opposta a - rmov.put(RMV_IMPORTO, _saldo); //quella letta sui saldi. - rmov.put(RMV_NUMREG, _numreg); - rmov.put(RMV_NUMRIG, numrig); - - TConto tc(g,c,s); - _sld->aggiorna(tc,_saldo,sez_rmov); //l'oggetto TSaldo_agg + rmov.zero(); + rmov.put(RMV_ANNOES, _annoesch); //Compilo una riga di movimento + rmov.put(RMV_DATAREG, _dataregch); //per ogni sottoconto che leggo + rmov.put(RMV_GRUPPO, g); //sui saldi. Siccome queste + rmov.put(RMV_CONTO, c); //righe servono per mandare a 0 + rmov.put(RMV_SOTTOCONTO, s); //il saldo dei movimenti, la + rmov.put(RMV_SEZIONE, sez_rmov); //sezione sara' opposta a + rmov.put(RMV_IMPORTO, _saldo); //quella letta sui saldi. + rmov.put(RMV_NUMREG, _numreg); + rmov.put(RMV_NUMRIG, numrig); + + TConto tc(g,c,s); + _sld->aggiorna(tc,_saldo,sez_rmov); //l'oggetto TSaldo_agg - j++; + j++; } if (_saldi->eof()) break; } //for saldi if (j >= 1) { - _pn->write(); - _sld->registra(); - _sld->reset(); - j = 0; + _pn->write(); + _sld->registra(); + _sld->reset(); + j = 0; - long items_pn = _pn->cg_items(); - _sld->set_anno_es(_annoesap); + long items_pn = _pn->cg_items(); + _sld->set_anno_es(_annoesap); - if (compila_mov_ap) + if (compila_mov_ap) { ultima_registrazione(); - compila_testata(_annoesap,_dataregap,_data_inizioap,_codcausap); //Reg. 9 Apertura - compila_mov_ap = FALSE; + compila_testata(_annoesap,_dataregap,_codcausap); //Reg. 9 Apertura + compila_mov_ap = FALSE; } - for (int i = 0; i < items_pn; i++) + for (int i = 0; i < items_pn; i++) { char sez_rmov; - TRectype& rmov = _pn->cg(j); + TRectype& rmov = _pn->cg(j); - char sezione = rmov.get (RMV_SEZIONE)[0]; - int gruppo = rmov.get_int (RMV_GRUPPO); - int conto = rmov.get_int (RMV_CONTO); - long sottoc = rmov.get_long(RMV_SOTTOCONTO); + char sezione = rmov.get (RMV_SEZIONE)[0]; + int gruppo = rmov.get_int (RMV_GRUPPO); + int conto = rmov.get_int (RMV_CONTO); + long sottoc = rmov.get_long(RMV_SOTTOCONTO); real importo = rmov.get_real(RMV_IMPORTO); - if (sezione == 'D') - sez_rmov = 'A'; - else - if (sezione == 'A') - sez_rmov = 'D'; + if (sezione == 'D') + sez_rmov = 'A'; + else + if (sezione == 'A') + sez_rmov = 'D'; - rmov.put(RMV_ANNOES, _annoesap); - rmov.put(RMV_NUMREG, _numreg); + rmov.put(RMV_ANNOES, _annoesap); + rmov.put(RMV_NUMREG, _numreg); rmov.put(RMV_DATAREG, _dataregap); - if (i == (items_pn - 1)) //Quando incontro il conto - { - rmov.put(RMV_GRUPPO, _tcbilap.gruppo()); - rmov.put(RMV_CONTO, _tcbilap.conto()); - rmov.put(RMV_SOTTOCONTO, _tcbilap.sottoconto()); //bilancio di chiusura lo - rmov.put(RMV_SEZIONE, sez_rmov); //sostituisco con quello di + if (i == (items_pn - 1)) //Quando incontro il conto + { + rmov.put(RMV_GRUPPO, _tcbilap.gruppo()); + rmov.put(RMV_CONTO, _tcbilap.conto()); + rmov.put(RMV_SOTTOCONTO, _tcbilap.sottoconto()); //bilancio di chiusura lo + rmov.put(RMV_SEZIONE, sez_rmov); //sostituisco con quello di _sld->aggiorna(_tcbilap,importo,sez_rmov); //apertura, non girando l'importo - } //perche' non l'avevo girato - else //precedentemente, mentre per gli altri - { //conti l'importo deve essere girato, - rmov.put(RMV_SEZIONE, sez_rmov); //perche' erano gia' stati girati - TConto tc(gruppo,conto,sottoc); //precedentemente per fare la chiusura - _sld->aggiorna(tc,importo,sez_rmov); - } + } //perche' non l'avevo girato + else //precedentemente, mentre per gli altri + { //conti l'importo deve essere girato, + rmov.put(RMV_SEZIONE, sez_rmov); //perche' erano gia' stati girati + TConto tc(gruppo,conto,sottoc); //precedentemente per fare la chiusura + _sld->aggiorna(tc,importo,sez_rmov); + } j++; } _pn->write(); _sld->registra(); j = 0; - _pn->destroy_rows(); + _pn->destroy_rows(); } } // if (indbil == 2) } // for pcon @@ -1312,14 +1307,14 @@ void CG4600_application::passivita() bool CG4600_application::menu(MENU_TAG m) { if (m == BAR_ITEM(1)) - return set(); + return set(); return FALSE; } - + int /*main */ cg4600 (int argc, char* argv[]) { CG4600_application main_app; - main_app.run(argc, argv, "Chiusura Apertura Conti"); + main_app.run(argc, argv, "Apertura/Chiusura Conti"); return TRUE; }