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

Corretti vari errori in cg3200 (stampa mastrini) e completato Ap/Ch conti

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@177 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1994-09-07 10:40:05 +00:00
parent adcc68289d
commit 001e2c8a10
5 changed files with 3757 additions and 3618 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1120
cg/cg3200.cpp
View File

File diff suppressed because it is too large Load Diff

36
cg/cg3200a.uml
View File

@ -59,7 +59,7 @@ BEGIN
OUTPUT F_CONTOINI CONTO OUTPUT F_CONTOINI CONTO
OUTPUT F_SOTTOCONTOINI CODCF OUTPUT F_SOTTOCONTOINI CODCF
OUTPUT F_DESCRINI RAGSOC OUTPUT F_DESCRINI RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 1 GROUP 1
END END
@ -79,7 +79,7 @@ BEGIN
OUTPUT F_CONTOINI CONTO OUTPUT F_CONTOINI CONTO
OUTPUT F_SOTTOCONTOINI CODCF OUTPUT F_SOTTOCONTOINI CODCF
OUTPUT F_DESCRINI RAGSOC OUTPUT F_DESCRINI RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 1 GROUP 1
END END
@ -100,7 +100,7 @@ BEGIN
OUTPUT F_CONTOINI CONTO OUTPUT F_CONTOINI CONTO
OUTPUT F_SOTTOCONTOINI CODCF OUTPUT F_SOTTOCONTOINI CODCF
OUTPUT F_DESCRINI RAGSOC OUTPUT F_DESCRINI RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 1 GROUP 1
END END
@ -126,7 +126,7 @@ BEGIN
OUTPUT F_CONTOFINE CONTO OUTPUT F_CONTOFINE CONTO
OUTPUT F_SOTTOCONTOFINE CODCF OUTPUT F_SOTTOCONTOFINE CODCF
OUTPUT F_DESCRFINE RAGSOC OUTPUT F_DESCRFINE RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 1 GROUP 1
END END
@ -146,7 +146,7 @@ BEGIN
OUTPUT F_CONTOFINE CONTO OUTPUT F_CONTOFINE CONTO
OUTPUT F_SOTTOCONTOFINE CODCF OUTPUT F_SOTTOCONTOFINE CODCF
OUTPUT F_DESCRFINE RAGSOC OUTPUT F_DESCRFINE RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 1 GROUP 1
END END
@ -167,7 +167,7 @@ BEGIN
OUTPUT F_CONTOFINE CONTO OUTPUT F_CONTOFINE CONTO
OUTPUT F_SOTTOCONTOFINE CODCF OUTPUT F_SOTTOCONTOFINE CODCF
OUTPUT F_DESCRFINE RAGSOC OUTPUT F_DESCRFINE RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 1 GROUP 1
END END
@ -193,7 +193,7 @@ BEGIN
OUTPUT F_CONTOINI2 CONTO OUTPUT F_CONTOINI2 CONTO
OUTPUT F_SOTTOCONTOINI2 CODCF OUTPUT F_SOTTOCONTOINI2 CODCF
OUTPUT F_DESCRINI2 RAGSOC OUTPUT F_DESCRINI2 RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 2 GROUP 2
MESSAGE COPY,F_GRUPPOINI MESSAGE COPY,F_GRUPPOINI
END END
@ -214,7 +214,7 @@ BEGIN
OUTPUT F_CONTOINI2 CONTO OUTPUT F_CONTOINI2 CONTO
OUTPUT F_SOTTOCONTOINI2 CODCF OUTPUT F_SOTTOCONTOINI2 CODCF
OUTPUT F_DESCRINI2 RAGSOC OUTPUT F_DESCRINI2 RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 2 GROUP 2
MESSAGE COPY,F_CONTOINI MESSAGE COPY,F_CONTOINI
END END
@ -236,7 +236,7 @@ BEGIN
OUTPUT F_CONTOINI2 CONTO OUTPUT F_CONTOINI2 CONTO
OUTPUT F_SOTTOCONTOINI2 CODCF OUTPUT F_SOTTOCONTOINI2 CODCF
OUTPUT F_DESCRINI2 RAGSOC OUTPUT F_DESCRINI2 RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 2 GROUP 2
MESSAGE COPY,F_SOTTOCONTOINI MESSAGE COPY,F_SOTTOCONTOINI
END END
@ -263,7 +263,7 @@ BEGIN
OUTPUT F_CONTOFINE2 CONTO OUTPUT F_CONTOFINE2 CONTO
OUTPUT F_SOTTOCONTOFINE2 CODCF OUTPUT F_SOTTOCONTOFINE2 CODCF
OUTPUT F_DESCRFINE2 RAGSOC OUTPUT F_DESCRFINE2 RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 2 GROUP 2
MESSAGE COPY,F_GRUPPOFINE MESSAGE COPY,F_GRUPPOFINE
END END
@ -284,7 +284,7 @@ BEGIN
OUTPUT F_CONTOFINE2 CONTO OUTPUT F_CONTOFINE2 CONTO
OUTPUT F_SOTTOCONTOFINE2 CODCF OUTPUT F_SOTTOCONTOFINE2 CODCF
OUTPUT F_DESCRFINE2 RAGSOC OUTPUT F_DESCRFINE2 RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 2 GROUP 2
MESSAGE COPY,F_CONTOFINE MESSAGE COPY,F_CONTOFINE
END END
@ -306,7 +306,7 @@ BEGIN
OUTPUT F_CONTOFINE2 CONTO OUTPUT F_CONTOFINE2 CONTO
OUTPUT F_SOTTOCONTOFINE2 CODCF OUTPUT F_SOTTOCONTOFINE2 CODCF
OUTPUT F_DESCRFINE2 RAGSOC OUTPUT F_DESCRFINE2 RAGSOC
FLAGS "RZ" FLAGS "R"
GROUP 2 GROUP 2
MESSAGE COPY,F_SOTTOCONTOFINE MESSAGE COPY,F_SOTTOCONTOFINE
END END
@ -332,7 +332,7 @@ BEGIN
OUTPUT F_CONTOINI3 CONTO OUTPUT F_CONTOINI3 CONTO
OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO
OUTPUT F_DESCRINI3 DESCR OUTPUT F_DESCRINI3 DESCR
FLAGS "RZ" FLAGS "R"
GROUP 3 GROUP 3
MESSAGE COPY,F_GRUPPOINI MESSAGE COPY,F_GRUPPOINI
END END
@ -352,7 +352,7 @@ BEGIN
OUTPUT F_CONTOINI3 CONTO OUTPUT F_CONTOINI3 CONTO
OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO
OUTPUT F_DESCRINI3 DESCR OUTPUT F_DESCRINI3 DESCR
FLAGS "RZ" FLAGS "R"
GROUP 3 GROUP 3
MESSAGE COPY,F_CONTOINI MESSAGE COPY,F_CONTOINI
END END
@ -373,7 +373,7 @@ BEGIN
OUTPUT F_CONTOINI3 CONTO OUTPUT F_CONTOINI3 CONTO
OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO OUTPUT F_SOTTOCONTOINI3 SOTTOCONTO
OUTPUT F_DESCRINI3 DESCR OUTPUT F_DESCRINI3 DESCR
FLAGS "RZ" FLAGS "R"
GROUP 3 GROUP 3
MESSAGE COPY,F_SOTTOCONTOINI MESSAGE COPY,F_SOTTOCONTOINI
END END
@ -399,7 +399,7 @@ BEGIN
OUTPUT F_CONTOFINE3 CONTO OUTPUT F_CONTOFINE3 CONTO
OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO
OUTPUT F_DESCRFINE3 DESCR OUTPUT F_DESCRFINE3 DESCR
FLAGS "RZ" FLAGS "R"
GROUP 3 GROUP 3
MESSAGE COPY,F_GRUPPOFINE MESSAGE COPY,F_GRUPPOFINE
END END
@ -419,7 +419,7 @@ BEGIN
OUTPUT F_CONTOFINE3 CONTO OUTPUT F_CONTOFINE3 CONTO
OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO
OUTPUT F_DESCRFINE3 DESCR OUTPUT F_DESCRFINE3 DESCR
FLAGS "RZ" FLAGS "R"
GROUP 3 GROUP 3
MESSAGE COPY,F_CONTOFINE MESSAGE COPY,F_CONTOFINE
END END
@ -440,7 +440,7 @@ BEGIN
OUTPUT F_CONTOFINE3 CONTO OUTPUT F_CONTOFINE3 CONTO
OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO OUTPUT F_SOTTOCONTOFINE3 SOTTOCONTO
OUTPUT F_DESCRFINE3 DESCR OUTPUT F_DESCRFINE3 DESCR
FLAGS "RZ" FLAGS "R"
GROUP 3 GROUP 3
MESSAGE COPY,F_SOTTOCONTOFINE MESSAGE COPY,F_SOTTOCONTOFINE
END END

146
cg/cg4600.cpp
View File

@ -47,7 +47,7 @@ class CG4600_application : public TApplication
int _annoesch, _annoesap; int _annoesch, _annoesap;
long _numreg; long _numreg;
TDate _dataregap, _dataregch; TDate _dataregap, _dataregch;
TString _codcausap, _codcausch, _annoeseprec; TString _codcausap, _codcausch;
public: public:
virtual bool create(); virtual bool create();
@ -57,9 +57,8 @@ public:
void ricavi(); void ricavi();
void attivita(); void attivita();
void passivita(); void passivita();
void rmov_proper (int, long, TRectype&, TConto&, real&, bool); void rmov_proper (int, long, TDate&, TRectype&, TConto&, real&, bool);
void ultima_registrazione(); void ultima_registrazione();
void anno_ese_precedente();
void compila_testata(int,TDate&,TString&); void compila_testata(int,TDate&,TString&);
void chiusura_conto_economico(); void chiusura_conto_economico();
void chiusura_conto_patrimoniale(); void chiusura_conto_patrimoniale();
@ -69,7 +68,7 @@ public:
CG4600_application() {} CG4600_application() {}
}; };
CG4600_application* app() { return (CG4600_application *) MainApp(); } HIDDEN CG4600_application* app() { return (CG4600_application *) MainApp(); }
bool mask_datac (TMask_field& f, KEY k) bool mask_datac (TMask_field& f, KEY k)
{ {
@ -288,23 +287,6 @@ bool CG4600_application::destroy()
return TApplication::destroy(); return TApplication::destroy();
} }
void CG4600_application::anno_ese_precedente()
{
TTable tabesc ("ESC");
TString16 chiave;
int err = NOERR;
tabesc.zero();
chiave << _annoesch;
tabesc.put("CODTAB", chiave);
err = tabesc.read();
if (err == NOERR)
{
tabesc.prev();
_annoeseprec = tabesc.get("CODTAB");
}
}
void CG4600_application::ultima_registrazione() void CG4600_application::ultima_registrazione()
{ {
long numregmov; long numregmov;
@ -411,26 +393,25 @@ bool CG4600_application::set()
ultima_registrazione(); ultima_registrazione();
// anno_ese_precedente(); // anno_ese_precedente();
// (*_cur) = 0L; (*_cur) = 0L;
_sld->set_anno_es(_annoesch); _sld->set_anno_es(_annoesch);
_sld->set_movprovv(FALSE); _sld->set_movprovv(FALSE);
_sld->set_movap(FALSE); _sld->set_movap(FALSE);
// costi (); costi ();
// _sld->reset(); //Azzera la tabella dei conti dell'oggetto TSaldo_agg _sld->reset(); //Azzera la tabella dei conti dell'oggetto TSaldo_agg
// _pn->destroy_rows(); //Azzero l'oggetto pn. _pn->destroy_rows(); //Azzero l'oggetto pn.
// ultima_registrazione(); ultima_registrazione();
// *_cur = 0l; *_cur = 0l;
// ricavi(); ricavi();
// _sld->reset(); _sld->reset();
chiusura_conto_economico();
// chiusura_conto_economico();
_totale_saldo = ZERO; _totale_saldo = ZERO;
// _sld->reset(); _sld->reset();
_pn->destroy_rows(); //Azzero l'oggetto pn. _pn->destroy_rows(); //Azzero l'oggetto pn.
ultima_registrazione(); ultima_registrazione();
@ -461,7 +442,7 @@ void CG4600_application::compila_testata(int annoes,TDate& datareg,
_pn->lfile()->put(MOV_NUMREG, _numreg); _pn->lfile()->put(MOV_NUMREG, _numreg);
} }
void CG4600_application::rmov_proper(int anno,long numrig,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 sez_rmov = ' ';
char sezione = ' '; char sezione = ' ';
@ -471,7 +452,7 @@ void CG4600_application::rmov_proper(int anno,long numrig,TRectype& rmov,
rmov.put(RMV_ANNOES, anno); rmov.put(RMV_ANNOES, anno);
rmov.put(RMV_NUMREG, _numreg); rmov.put(RMV_NUMREG, _numreg);
rmov.put(RMV_NUMRIG, numrig); rmov.put(RMV_NUMRIG, numrig);
rmov.put(RMV_DATAREG, _dataregch); rmov.put(RMV_DATAREG, datareg);
rmov.put(RMV_GRUPPO, tc.gruppo()); rmov.put(RMV_GRUPPO, tc.gruppo());
rmov.put(RMV_CONTO, tc.conto()); rmov.put(RMV_CONTO, tc.conto());
rmov.put(RMV_SOTTOCONTO, tc.sottoconto()); rmov.put(RMV_SOTTOCONTO, tc.sottoconto());
@ -556,7 +537,7 @@ void CG4600_application::costi()
if (j >= 1) if (j >= 1)
{ {
numrig++; numrig++;
rmov_proper(_annoesch,numrig,rmov,_tcproper,tot_saldo,FALSE); rmov_proper(_annoesch,numrig,_dataregch,rmov,_tcproper,tot_saldo,FALSE);
tot_saldo = ZERO; tot_saldo = ZERO;
} }
@ -565,7 +546,6 @@ void CG4600_application::costi()
numrig++; numrig++;
s = _saldi->get_long(SLD_SOTTOCONTO); s = _saldi->get_long(SLD_SOTTOCONTO);
// int annoeseprec = atoi(_annoeseprec);
sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil);
_saldo = sale.saldo(); _saldo = sale.saldo();
@ -601,7 +581,7 @@ void CG4600_application::costi()
// con una sezione opposta al risultato (della somma). // con una sezione opposta al risultato (della somma).
// numrig++; // numrig++;
rmov_proper (_annoesch,numrig,rmov,_tcproper,tot_saldo,FALSE); rmov_proper (_annoesch,numrig,_dataregch,rmov,_tcproper,tot_saldo,FALSE);
tot_saldo = ZERO; tot_saldo = ZERO;
} }
@ -687,7 +667,7 @@ void CG4600_application::ricavi()
if (j >= 1) if (j >= 1)
{ {
numrig++; numrig++;
rmov_proper(_annoesch,numrig,rmov,_tcproper,tot_saldo,FALSE); rmov_proper(_annoesch,numrig,_dataregch,rmov,_tcproper,tot_saldo,FALSE);
tot_saldo = ZERO; tot_saldo = ZERO;
} }
@ -696,7 +676,6 @@ void CG4600_application::ricavi()
numrig++; numrig++;
s = _saldi->get_long(SLD_SOTTOCONTO); s = _saldi->get_long(SLD_SOTTOCONTO);
// int annoeseprec = atoi(_annoeseprec);
sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil);
_saldo = sale.saldo(); _saldo = sale.saldo();
@ -732,7 +711,7 @@ void CG4600_application::ricavi()
// con una sezione opposta al risultato (della somma). // con una sezione opposta al risultato (della somma).
// numrig++; // numrig++;
rmov_proper (_annoesch,numrig,rmov,_tcproper,tot_saldo,FALSE); rmov_proper (_annoesch,numrig,_dataregch,rmov,_tcproper,tot_saldo,FALSE);
tot_saldo = ZERO; tot_saldo = ZERO;
} }
@ -769,27 +748,28 @@ void CG4600_application::ricavi()
void CG4600_application::chiusura_conto_economico() void CG4600_application::chiusura_conto_economico()
{ {
if (_totale_saldo.sign() > 0) if (_totale_saldo > ZERO)
{ {
int j; int j;
//Compilo la testata per perdite di es. c.economico a Profitti e Perdite //Compilo la testata per perdite di es. c.economico a Profitti e Perdite
//Chiusura conto economico //Chiusura conto economico
j = 0; j = 0;
ultima_registrazione(); ultima_registrazione();
compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 3 compila_testata(_annoesch,_dataregch,_codcausch); //Reg. 3
TRectype& rmov1 = _pn->cg(j); TRectype& rmov1 = _pn->cg(j);
long numrig = 1; long numrig = 1;
rmov_proper(_annoesch,numrig,rmov1,_tcproper,_totale_saldo,TRUE); rmov_proper(_annoesch,numrig,_dataregch,rmov1,_tcproper,_totale_saldo,TRUE);
numrig++; numrig++;
j++; j++;
TRectype& rmov2 = _pn->cg(j); TRectype& rmov2 = _pn->cg(j);
rmov_proper(_annoesch,numrig,rmov2,_tcperde,_totale_saldo,FALSE); rmov_proper(_annoesch,numrig,_dataregch,rmov2,_tcperde,_totale_saldo,FALSE);
_pn->write(); _pn->write();
_sld->registra(); _sld->registra();
_sld->reset();
//Compilo la testata per perdite di es. c.patrimon. a Perdita di es. c. econom. //Compilo la testata per perdite di es. c.patrimon. a Perdita di es. c. econom.
//Chiusura capitale netto //Chiusura capitale netto
@ -802,19 +782,40 @@ void CG4600_application::chiusura_conto_economico()
TRectype& rmov3 = _pn->cg(j); TRectype& rmov3 = _pn->cg(j);
numrig = 1; numrig = 1;
rmov_proper(_annoesch,numrig,rmov3,_tcperde,_totale_saldo,TRUE); rmov_proper(_annoesch,numrig,_dataregch,rmov3,_tcperde,_totale_saldo,TRUE);
numrig++; numrig++;
j++; j++;
TRectype& rmov4 = _pn->cg(j); TRectype& rmov4 = _pn->cg(j);
rmov_proper(_annoesch,numrig,rmov4,_tcperdp,_totale_saldo,FALSE); rmov_proper(_annoesch,numrig,_dataregch,rmov4,_tcperdp,_totale_saldo,FALSE);
_pn->write(); _pn->write();
_sld->registra(); _sld->registra();
_sld->reset();
//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,_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,_tcperdp,_totale_saldo,FALSE);
_pn->write();
_sld->registra();
_sld->set_anno_es(_annoesch);
} }
else else
if (_totale_saldo.sign() < 0) if (_totale_saldo < ZERO)
{ {
int j; int j;
@ -828,14 +829,15 @@ void CG4600_application::chiusura_conto_economico()
TRectype& rmov1 = _pn->cg(j); TRectype& rmov1 = _pn->cg(j);
long numrig = 1; long numrig = 1;
rmov_proper(_annoesch,numrig,rmov1,_tcutile,_totale_saldo,FALSE); rmov_proper(_annoesch,numrig,_dataregch,rmov1,_tcutile,_totale_saldo,FALSE);
numrig++; numrig++;
j++; j++;
TRectype& rmov2 = _pn->cg(j); TRectype& rmov2 = _pn->cg(j);
rmov_proper(_annoesch,numrig,rmov2,_tcproper,_totale_saldo,TRUE); rmov_proper(_annoesch,numrig,_dataregch,rmov2,_tcproper,_totale_saldo,TRUE);
_pn ->write(); _pn ->write();
_sld->registra(); _sld->registra();
_sld->reset();
//Compilo la testata per Utile di es. c.economico a Utile di es. c.patrimoniale //Compilo la testata per Utile di es. c.economico a Utile di es. c.patrimoniale
//Chiusura capitale netto //Chiusura capitale netto
@ -847,14 +849,38 @@ void CG4600_application::chiusura_conto_economico()
TRectype& rmov3 = _pn->cg(j); TRectype& rmov3 = _pn->cg(j);
numrig = 1; numrig = 1;
rmov_proper(_annoesch,numrig,rmov3,_tcutilp,_totale_saldo,FALSE); rmov_proper(_annoesch,numrig,_dataregch,rmov3,_tcutilp,_totale_saldo,FALSE);
numrig++; numrig++;
j++; j++;
TRectype& rmov4 = _pn->cg(j); TRectype& rmov4 = _pn->cg(j);
rmov_proper(_annoesch,numrig,rmov4,_tcutile,_totale_saldo,TRUE); rmov_proper(_annoesch,numrig,_dataregch,rmov4,_tcutile,_totale_saldo,TRUE);
_pn ->write(); _pn ->write();
_sld->registra(); _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();
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);
} }
} }
@ -876,11 +902,11 @@ void CG4600_application::chiusura_conto_patrimoniale()
TRectype& rmov1 = _pn->cg(j); TRectype& rmov1 = _pn->cg(j);
numrig = 1; numrig = 1;
rmov_proper(_annoesch,numrig,rmov1,_tcutilp,_totale_saldo,FALSE); rmov_proper(_annoesch,numrig,_dataregch,rmov1,_tcutilp,_totale_saldo,FALSE);
numrig++; numrig++;
j++; j++;
TRectype& rmov2 = _pn->cg(j); TRectype& rmov2 = _pn->cg(j);
rmov_proper(_annoesch,numrig,rmov2,_tcbilch,_totale_saldo,TRUE); rmov_proper(_annoesch,numrig,_dataregch,rmov2,_tcbilch,_totale_saldo,TRUE);
_pn->write(); _pn->write();
_sld->registra(); _sld->registra();
@ -899,11 +925,11 @@ void CG4600_application::chiusura_conto_patrimoniale()
TRectype& rmov1 = _pn->cg(j); TRectype& rmov1 = _pn->cg(j);
numrig = 1; numrig = 1;
rmov_proper(_annoesch,numrig,rmov1,_tcbilch,_totale_saldo,TRUE); rmov_proper(_annoesch,numrig,_dataregch,rmov1,_tcbilch,_totale_saldo,TRUE);
numrig++; numrig++;
j++; j++;
TRectype& rmov2 = _pn->cg(j); TRectype& rmov2 = _pn->cg(j);
rmov_proper(_annoesch,numrig,rmov2,_tcperdp,_totale_saldo,FALSE); rmov_proper(_annoesch,numrig,_dataregch,rmov2,_tcperdp,_totale_saldo,FALSE);
_pn ->write(); _pn ->write();
_sld->registra(); _sld->registra();
@ -962,7 +988,7 @@ void CG4600_application::attivita()
if (j >= 1) if (j >= 1)
{ {
numrig++; numrig++;
rmov_proper(_annoesch,numrig,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura rmov_proper(_annoesch,numrig,_dataregch,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura
tot_saldo = ZERO; tot_saldo = ZERO;
} }
@ -971,7 +997,6 @@ void CG4600_application::attivita()
numrig++; numrig++;
s = _saldi->get_long(SLD_SOTTOCONTO); s = _saldi->get_long(SLD_SOTTOCONTO);
// int annoeseprec = atoi(_annoeseprec);
sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil);
_saldo = sale.saldo(); _saldo = sale.saldo();
@ -1007,7 +1032,7 @@ void CG4600_application::attivita()
// con una sezione opposta al risultato (della somma). // con una sezione opposta al risultato (della somma).
// numrig++; // numrig++;
rmov_proper (_annoesch,numrig,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura rmov_proper (_annoesch,numrig,_dataregch,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura
tot_saldo = ZERO; tot_saldo = ZERO;
} }
@ -1148,7 +1173,7 @@ void CG4600_application::passivita()
if (j >= 1) if (j >= 1)
{ {
numrig++; numrig++;
rmov_proper(_annoesch,numrig,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura rmov_proper(_annoesch,numrig,_dataregch,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura
tot_saldo = ZERO; tot_saldo = ZERO;
} }
@ -1157,7 +1182,6 @@ void CG4600_application::passivita()
numrig++; numrig++;
s = _saldi->get_long(SLD_SOTTOCONTO); s = _saldi->get_long(SLD_SOTTOCONTO);
// int annoeseprec = atoi(_annoeseprec);
sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil); sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil);
_saldo = sale.saldo(); _saldo = sale.saldo();
@ -1193,7 +1217,7 @@ void CG4600_application::passivita()
// con una sezione opposta al risultato (della somma). // con una sezione opposta al risultato (della somma).
// numrig++; // numrig++;
rmov_proper (_annoesch,numrig,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura rmov_proper (_annoesch,numrig,_dataregch,rmov,_tcbilch,tot_saldo,FALSE); //Chiusura
tot_saldo = ZERO; tot_saldo = ZERO;
} }

3
cg/cg4600.h
View File

@ -31,5 +31,4 @@
#define F_ANNO 128 #define F_ANNO 128
#define F_ANNOCH 129 #define F_ANNOCH 129
#endif // __CG4600_H
#endif // __CG4600_H

22
cg/cg4600a.uml
View File

@ -15,11 +15,6 @@ BEGIN
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
END END
NUMBER F_ANNO 4
BEGIN
PROMPT 42 1 "Anno esercizio "
FLAGS "D"
END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
@ -49,16 +44,29 @@ END
DATE F_DATAC DATE F_DATAC
BEGIN BEGIN
PROMPT 37 4 "Data chiusura " PROMPT 36 4 "Data/Anno chiusura "
END END
DATE F_DATAAP DATE F_DATAAP
BEGIN BEGIN
PROMPT 37 5 "Data apertura " PROMPT 36 5 "Data/Anno apertura "
WARNING "Inserire una data non inferiore alla data di chiusura" WARNING "Inserire una data non inferiore alla data di chiusura"
VALIDATE DATE_CMP_FUNC >= F_DATAC VALIDATE DATE_CMP_FUNC >= F_DATAC
END END
NUMBER F_ANNOCH 4
BEGIN
PROMPT 69 4 ""
FLAGS "D"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 69 5 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 60 10 GROUPBOX DLG_NULL 60 10
BEGIN BEGIN
PROMPT 2 7 "Codici sottoconto" PROMPT 2 7 "Codici sottoconto"