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

Aggiornati uso MainApp e lfile()

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@274 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1994-09-22 07:20:12 +00:00
parent 53a4d0abbf
commit b2079b8379
1 changed files with 473 additions and 478 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
cg/cg4600.cpp
View File

@ -1,20 +1,18 @@
// Chiusura/Apertura Conti
#include <mask.h>
#include <printapp.h>
#include <relation.h>
#include <tabutil.h>
#include <printapp.h>
#include <mask.h>
#include <date.h>
#include <scanner.h>
#include <utility.h>
#include <prefix.h>
#include <config.h>
#include <urldefid.h>
#include <cglib.h>
#include <cg4.h>
#include <cg4600.h>
#include <cg2101.h>
#include "cglib.h"
#include "cg4.h"
#include "cg4600.h"
#include "cg2101.h"
#include <pconti.h>
#include <mov.h>
#include <saldi.h>
@ -46,7 +44,7 @@ class CG4600_application : public TApplication
real _saldo, _totale_saldo;
int _annoesch, _annoesap;
long _numreg;
TDate _dataregap, _dataregch, _data_inizioap, _data_finech;
TDate _dataregap, _dataregch;
TString _codcausap, _codcausch;
public:
@ -59,7 +57,7 @@ public:
void passivita();
void rmov_proper (int, long, TDate&, TRectype&, TConto&, real&, bool);
void ultima_registrazione();
void compila_testata(int,TDate&,TDate&,TString&);
void compila_testata(int,TDate&,TString&);
void chiusura_conto_economico();
void chiusura_conto_patrimoniale();
bool set();
@ -316,11 +314,9 @@ 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;
TabEs.prev();
int annoch = TabEs.get_int ("CODTAB");
TDate fine = TabEs.get_date("D1"); //data fine es. precedente
_data_finech = fine;
m.set(F_ANNO, annoap);
m.set(F_ANNOCH, annoch);
m.set(F_DATAC, fine.string());
@ -435,14 +431,13 @@ 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)
@ -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);
@ -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);
@ -760,7 +755,7 @@ void CG4600_application::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;
@ -781,7 +776,7 @@ void CG4600_application::chiusura_conto_economico()
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;
@ -803,7 +798,7 @@ void CG4600_application::chiusura_conto_economico()
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;
@ -828,7 +823,7 @@ void CG4600_application::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;
@ -848,7 +843,7 @@ void CG4600_application::chiusura_conto_economico()
_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;
@ -870,7 +865,7 @@ void CG4600_application::chiusura_conto_economico()
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;
@ -901,7 +896,7 @@ void CG4600_application::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;
@ -924,7 +919,7 @@ void CG4600_application::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;
@ -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);
@ -1073,7 +1068,7 @@ void CG4600_application::attivita()
if (compila_mov_ap)
{
ultima_registrazione();
compila_testata(_annoesap,_dataregap,_data_inizioap,_codcausap); //Reg. 8 Apertura
compila_testata(_annoesap,_dataregap,_codcausap); //Reg. 8 Apertura
compila_mov_ap = FALSE;
}
@ -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);
@ -1258,7 +1253,7 @@ void CG4600_application::passivita()
if (compila_mov_ap)
{
ultima_registrazione();
compila_testata(_annoesap,_dataregap,_data_inizioap,_codcausap); //Reg. 9 Apertura
compila_testata(_annoesap,_dataregap,_codcausap); //Reg. 9 Apertura
compila_mov_ap = FALSE;
}
@ -1319,7 +1314,7 @@ bool CG4600_application::menu(MENU_TAG m)
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;
}