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

Aggiornato il programma di ricalcolo sadli/rinumerazione movimenti

Browse Source 
(cg4100.cpp).


git-svn-id: svn://10.65.10.50/trunk@48 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-08-22 11:18:48 +00:00
parent a5c5edb20a
commit 16f87d79e6
10 changed files with 1204 additions and 1219 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
cg/cg4.cpp
View File

@ -11,14 +11,19 @@ int main(int argc,char** argv)
switch (n) switch (n)
{ {
case 0:cg4100(argc,argv); break; case 0:
case 2:cg4300(argc,argv); break; cg4100(argc,argv); break;
case 3:cg4400(argc,argv); break; case 2:
case 4:cg4500(argc,argv); break; cg4300(argc,argv); break;
case 5:cg4600(argc,argv); break; case 3:
default: error_box(usage, argv[0]); cg4400(argc,argv); break;
} case 4:
cg4500(argc,argv); break;
case 5:
cg4600(argc,argv); break;
default:
error_box(usage, argv[0]);
}
return n < 0; return n < 0;
} }

5
cg/cg4.h
View File

@ -1,10 +1,11 @@
#ifndef __CG4_H #ifndef __CG4_H
#define __CG4_H #define __CG4_H
//int cg4100(int argc, char* argv[]); int cg4100(int argc, char* argv[]);
//int cg4300(int argc, char* argv[]); int cg4300(int argc, char* argv[]);
int cg4400(int argc, char* argv[]); int cg4400(int argc, char* argv[]);
int cg4500(int argc, char* argv[]); int cg4500(int argc, char* argv[]);
int cg4600(int argc, char* argv[]); int cg4600(int argc, char* argv[]);
#endif // __CG4_H #endif // __CG4_H

551
cg/cg4100.cpp
View File

@ -21,12 +21,14 @@
//#endif //#endif
#define FLD_CG41_YEAR 100 #define FLD_CG41_YEAR 100
#define MAX_CNT 300
#include <mov.h> #include <mov.h>
#include <rmov.h> #include <rmov.h>
#include <rmoviva.h> #include <rmoviva.h>
#include <saldi.h> #include <saldi.h>
#include <causali.h> #include <causali.h>
#include "cglib.h"
// for access() // for access()
#if XVT_OS == XVT_OS_DOS || XVT_OS == XVT_OS_WIN #if XVT_OS == XVT_OS_DOS || XVT_OS == XVT_OS_WIN
@ -36,35 +38,25 @@
#endif #endif
struct therec { struct therec {
char DATAREG[7]; char DATAREG[9];
char REG[4]; char REG[4];
char DATADOC[7]; char DATADOC[9];
char NUMDOC[7]; char NUMDOC[7];
char ANNOES[5]; char ANNOES[5];
char NUMREG[8]; char NUMREG[8];
}; };
struct truc {
char GRUPPO[4];
char CONTO[4];
char SOTTOCONTO[7];
char SEZIONE[2];
char IMPORTO[19];
char NUMREG[8];
};
class CG4100_App : public TApplication class CG4100_App : public TApplication
{ {
TString _year; TString _year;
public: public:
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
bool set_parms(bool year); bool set_parms(bool year);
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
void restore_mov(TSystemisamfile& a, TSystemisamfile& b, TSystemisamfile& c); void restore_mov(TSystemisamfile& a, TSystemisamfile& b, TSystemisamfile& c);
void sort_all(); void sort_all();
@ -72,8 +64,8 @@ public:
bool sort_sal(); bool sort_sal();
CG4100_App() : TApplication(), _year(4) CG4100_App() : TApplication(), _year(4)
{ } { }
virtual ~CG4100_App() {} virtual ~CG4100_App() {}
}; };
@ -81,27 +73,27 @@ bool CG4100_App::create()
{ {
TApplication::create(); TApplication::create();
// UNIX: signal() per intercettare errori // UNIX: signal() per intercettare errori
#if XVT_OS == XVT_OS_SCOUNIX #if XVT_OS == XVT_OS_SCOUNIX
signal(SIGINT,SIG_IGN); signal(SIGINT,SIG_IGN);
#endif #endif
if (fexist("__sal__.sav")) if (fexist("__sal__.sav"))
warning_box("Un'operazione di riordino saldi si e' conclusa" warning_box("Un'operazione di riordino saldi si e' conclusa"
" impropriamente. Si raccomanda di rieseguirla"); " impropriamente. Si raccomanda di rieseguirla");
if (fexist("__mov__.sav")) if (fexist("__mov__.sav"))
warning_box("Un'operazione di riordino movimenti si e' conclusa" warning_box("Un'operazione di riordino movimenti si e' conclusa"
" impropriamente. Si raccomanda di rieseguirla"); " impropriamente. Si raccomanda di rieseguirla");
return TRUE; return TRUE;
} }
bool CG4100_App::destroy() bool CG4100_App::destroy()
{ {
// UNIX: resettare i segnali // UNIX: resettare i segnali
#if XVT_OS == XVT_OS_SCOUNIX #if XVT_OS == XVT_OS_SCOUNIX
signal(SIGINT,SIG_DFL); signal(SIGINT,SIG_DFL);
#endif #endif
return TApplication::destroy(); return TApplication::destroy();
@ -109,14 +101,14 @@ bool CG4100_App::destroy()
bool CG4100_App::set_parms(bool year) bool CG4100_App::set_parms(bool year)
{ {
TMask m("cg4100a"); TMask m("cg4100a");
if (!year) if (!year)
m.hide(FLD_CG41_YEAR); m.hide(FLD_CG41_YEAR);
m.run(); m.run();
_year = m.get(FLD_CG41_YEAR); _year = m.get(FLD_CG41_YEAR);
return m.last_key() == K_ENTER; return m.last_key() == K_ENTER;
} }
@ -124,69 +116,69 @@ bool CG4100_App::set_parms(bool year)
bool CG4100_App::menu(MENU_TAG m) bool CG4100_App::menu(MENU_TAG m)
{ {
switch (m) switch (m)
{ {
case BAR_ITEM(1): case BAR_ITEM(1):
sort_mov(); sort_mov();
break; break;
case BAR_ITEM(2): case BAR_ITEM(2):
sort_sal(); sort_sal();
break; break;
} }
return TApplication::menu(m); return TApplication::menu(m);
} }
void CG4100_App::restore_mov(TSystemisamfile& mov, TSystemisamfile& rmov, void CG4100_App::restore_mov(TSystemisamfile& mov, TSystemisamfile& rmov,
TSystemisamfile& rmoviva) TSystemisamfile& rmoviva)
{ {
long rn, rec; long rn, rec;
if (fexist("__mov__.ind")) if (fexist("__mov__.ind"))
{ {
// rebuild all indexes // rebuild all indexes
mov.close(); rmov.close(); rmoviva.close(); mov.close(); rmov.close(); rmoviva.close();
mov.packfile(); rmov.packfile(); rmoviva.packfile(); mov.packfile(); rmov.packfile(); rmoviva.packfile();
mov.packindex(); rmov.packindex(); rmoviva.packindex(); mov.packindex(); rmov.packindex(); rmoviva.packindex();
remove("__mov__.ind"); remove("__mov__.ind");
return; return;
} }
FILE* fp = fopen("__mov__.sav","r"); FILE* fp = fopen("__mov__.sav","r");
if (feof(fp)) if (feof(fp))
{ {
warning_box("File di ripristino vuoto; il ripristino non e' necessario"); warning_box("File di ripristino vuoto; il ripristino non e' necessario");
remove("__mov__.sav"); remove("__mov__.sav");
return; return;
}; };
for (;;) for (;;)
{
if (feof(fp)) break;
fscanf(fp,"%ld %ld", &rn, &rec);
mov.readat(rec);
mov.put(MOV_NUMREG,rn);
mov.rewrite();
for (;;)
{ {
if (feof(fp)) break; if (feof(fp)) break;
fscanf(fp,"%ld %ld", &rn, &rec); fscanf(fp,"%ld",&rec);
if (rec == -1l) break;
mov.readat(rec); rmov.readat(rec);
mov.curr().put(MOV_NUMREG,format("%ld",rn)); rmov.put(RMV_NUMREG,rn);
mov.rewrite(); rmov.rewrite();
for (;;)
{
if (feof(fp)) break;
fscanf(fp,"%ld",&rec);
if (rec == -1l) break;
rmov.readat(rec);
rmov.curr().put(RMV_NUMREG,format("%ld",rn));
rmov.rewrite();
}
for (;;)
{
if (feof(fp)) break;
fscanf(fp,"%ld",&rec);
if (rec == -1l) break;
rmoviva.readat(rec);
rmoviva.curr().put(RMI_NUMREG,format("%ld",rn));
rmoviva.rewrite();
}
} }
for (;;)
{
if (feof(fp)) break;
fscanf(fp,"%ld",&rec);
if (rec == -1l) break;
rmoviva.readat(rec);
rmoviva.put(RMI_NUMREG,rn);
rmoviva.rewrite();
}
}
fclose(fp); fclose(fp);
remove("__mov__.sav"); remove("__mov__.sav");
@ -195,145 +187,145 @@ void CG4100_App::restore_mov(TSystemisamfile& mov, TSystemisamfile& rmov,
bool CG4100_App::sort_mov() bool CG4100_App::sort_mov()
{ {
if (!set_parms(FALSE)) if (!set_parms(FALSE))
return FALSE; return FALSE;
TSystemisamfile mov(LF_MOV); TSystemisamfile mov(LF_MOV);
TSystemisamfile rmov(LF_RMOV); TSystemisamfile rmov(LF_RMOV);
TSystemisamfile rmoviva(LF_RMOVIVA); TSystemisamfile rmoviva(LF_RMOVIVA);
if (mov.open(_excllock) || rmov.open(_excllock) || if (mov.open(_excllock) || rmov.open(_excllock) ||
rmoviva.open(_excllock)) rmoviva.open(_excllock))
{ {
warning_box("Gli archivi sono in uso. Operazione interrotta"); warning_box("Gli archivi sono in uso. Operazione interrotta");
return FALSE; return FALSE;
} }
mov.first(); mov.indexoff(); rmov.indexoff(); rmoviva.indexoff();
mov.indexoff(); rmov.indexoff(); rmoviva.indexoff(); mov.first();
TSort sort(sizeof(struct therec)); TSort sort(sizeof(struct therec));
if (fexist("__mov__.sav") || fexist("__mov__.ind")) if (fexist("__mov__.sav") || fexist("__mov__.ind"))
{ {
// previous operation failed // previous operation failed
if (yesno_box("Un riordinamento precedente e' fallito.\n" if (yesno_box("Un riordinamento precedente e' fallito.\n"
" Ripristino la situazione iniziale ora?" )) " Ripristino la situazione iniziale ora?" ))
restore_mov(mov, rmov, rmoviva); restore_mov(mov, rmov, rmoviva);
else return FALSE; else return FALSE;
} }
therec rbuf; therec rbuf;
sort.addsortkey(rbuf.DATAREG - (char*)&rbuf, 6); sort.addsortkey(rbuf.DATAREG - (char*)&rbuf, 8);
sort.addsortkey(rbuf.REG - (char*)&rbuf, 3); sort.addsortkey(rbuf.REG - (char*)&rbuf, 3);
sort.addsortkey(rbuf.NUMDOC - (char*)&rbuf, 6); sort.addsortkey(rbuf.NUMDOC - (char*)&rbuf, 6);
sort.addsortkey(rbuf.DATADOC - (char*)&rbuf, 6); sort.addsortkey(rbuf.DATADOC - (char*)&rbuf, 8);
sort.init(); sort.init();
TProgind prnd(mov.items(), TProgind prnd(mov.items(),
"Riordino archivio movimenti in corso\nOrdinamento file movimenti...", "Riordino archivio movimenti in corso\nOrdinamento file movimenti...",
FALSE,TRUE,30); FALSE,TRUE,30);
while (!mov.eof()) while (!mov.eof())
{ {
do_events(); do_events();
TDate d(mov.curr().get(MOV_DATAREG)); TDate d(mov.get(MOV_DATAREG));
strcpy(rbuf.DATAREG, format("%ld",(long)d)); strcpy(rbuf.DATAREG, d.string(ANSI));
strcpy(rbuf.REG, mov.curr().get(MOV_REG)); strcpy(rbuf.REG, mov.get(MOV_REG));
d = mov.curr().get(MOV_DATADOC); d = mov.get(MOV_DATADOC);
strcpy(rbuf.NUMDOC, mov.curr().get(MOV_NUMDOC)); strcpy(rbuf.NUMDOC, mov.get(MOV_NUMDOC));
strcpy(rbuf.DATADOC, format("%ld",(long)d)); strcpy(rbuf.DATADOC, d.string(ANSI));
strcpy(rbuf.ANNOES, mov.curr().get(MOV_ANNOES)); strcpy(rbuf.ANNOES, mov.get(MOV_ANNOES));
strcpy(rbuf.NUMREG, mov.curr().get(MOV_NUMREG)); strcpy(rbuf.NUMREG, mov.get(MOV_NUMREG));
sort.sort((char*)&rbuf); sort.sort((char*)&rbuf);
mov.next(); mov.next();
prnd.addstatus(1); prnd.addstatus(1);
} }
sort.endsort(); sort.endsort();
prnd.setstatus(0); prnd.setstatus(0);
prnd.set_text("Riordino archivio movimenti in corso\nRiscrittura file movimenti..."); prnd.set_text("Riordino archivio movimenti in corso\nRiscrittura file movimenti...");
therec* rr; therec* rr;
long num = 1; long num = 1;
TRecnotype recno;
while ((rr = (therec*)sort.retrieve()) != NULL) while ((rr = (therec*)sort.retrieve()) != NULL)
{ {
do_events(); do_events();
if (atol(rr->NUMREG) != num) if (atol(rr->NUMREG) != num)
{ {
// find record // find record
mov.curr().zero(); mov.curr().zero();
mov.curr().put(MOV_NUMREG, rr->NUMREG); mov.put(MOV_NUMREG, rr->NUMREG);
mov.curr().put(MOV_ANNOES, rr->ANNOES);
mov.read(); mov.read();
// should never happen // should never happen
CHECK(!mov.bad(), "Archivio movimenti inconsistente. Questo si' che e' un casino."); CHECK(mov.good(), "Archivio movimenti inconsistente. Questo si' che e' un casino.");
// retrieve and change NUMREG // retrieve and change NUMREG
TString rgn = rr->NUMREG; recno = mov.recno();
FILE* fsav = fopen("__mov__.sav","a"); TString rgn = rr->NUMREG;
fprintf(fsav,"%s %d ", (const char*)rgn, mov.recno()); FILE* fsav = fopen("__mov__.sav","a");
fclose(fsav); fprintf(fsav,"%s %d ", (const char*)rgn, recno);
fclose(fsav);
mov.curr().put(MOV_NUMREG,num); mov.put(MOV_NUMREG,num);
mov.rewrite(); mov.rewriteat(recno);
// update linked records // update linked records
rmov.curr().zero(); rmov.curr().zero();
rmov.curr().put(RMV_NUMREG,rgn); rmov.put(RMV_NUMREG,rgn);
rmov.read(_isgteq); rmov.read(_isgteq);
while (!rmov.eof()) while (!rmov.eof() && rgn == rmov.get(RMV_NUMREG))
{ {
if (rgn != rmov.curr().get(RMV_NUMREG)) recno = rmov.recno();
break; fsav = fopen("__mov__.sav","a");
fsav = fopen("__mov__.sav","a"); fprintf(fsav,"%ld ", recno);
fprintf(fsav,"%ld ", (long)rmov.recno()); fclose(fsav);
fclose(fsav); rmov.put(RMV_NUMREG,num);
rmov.curr().put(RMV_NUMREG,num); rmov.rewriteat(recno);
rmov.rewrite(); rmov.next();
rmov.next(); }
} fsav = fopen("__mov__.sav","a");
fsav = fopen("__mov__.sav","a"); fprintf(fsav,"-1"); fclose(fsav);
fprintf(fsav,"-1"); fclose(fsav);
rmoviva.curr().zero(); rmoviva.zero();
rmoviva.curr().put(RMI_NUMREG,rgn); rmoviva.put(RMI_NUMREG,rgn);
rmoviva.read(_isgteq); rmoviva.read(_isgteq);
while (!rmoviva.eof()) while (!rmoviva.eof() && rgn == rmoviva.get(RMV_NUMREG))
{ {
if (rgn != rmoviva.curr().get(RMV_NUMREG)) recno = rmoviva.recno();
break; fsav = fopen("__mov__.sav","a");
fsav = fopen("__mov__.sav","a"); fprintf(fsav,"%ld ", recno);
fprintf(fsav,"%ld ", (long)rmov.recno()); fclose(fsav);
fclose(fsav); rmoviva.put(RMI_NUMREG,num);
rmoviva.curr().put(RMI_NUMREG,num); rmoviva.rewriteat(recno);
rmoviva.rewrite(); rmoviva.next();
rmoviva.next(); }
} fsav = fopen("__mov__.sav","a");
fsav = fopen("__mov__.sav","a"); fprintf(fsav,"-1"); fclose(fsav);
fprintf(fsav,"-1"); fclose(fsav); }
} num++;
num++; prnd.addstatus(1);
prnd.addstatus(1); }
}
remove("__mov__.sav"); remove("__mov__.sav");
FILE* fsav = fopen("__mov__.ind","w"); fclose(fsav); FILE* fsav = fopen("__mov__.ind","w"); fclose(fsav);
prnd.set_text("Riordino archivio movimenti in corso\nRicostruzione files indice..."); prnd.set_text("Riordino archivio movimenti in corso\nRicostruzione files indice...");
// rebuild indexes // rebuild indexes
mov.close(); rmov.close(); rmoviva.close(); mov.close(); rmov.close(); rmoviva.close();
mov.indexon(); rmov.indexon(); rmoviva.indexon();
mov.packfile(); rmov.packfile(); rmoviva.packfile(); mov.packfile(); rmov.packfile(); rmoviva.packfile();
mov.packindex(); rmov.packindex(); rmoviva.packindex(); mov.packindex(); rmov.packindex(); rmoviva.packindex();
@ -345,7 +337,6 @@ bool CG4100_App::sort_mov()
bool CG4100_App::sort_sal() bool CG4100_App::sort_sal()
{ {
bool first;
if (!set_parms(TRUE)) if (!set_parms(TRUE))
return FALSE; return FALSE;
@ -354,155 +345,69 @@ bool CG4100_App::sort_sal()
fclose(fp); fclose(fp);
TLocalisamfile rmov(LF_RMOV); TLocalisamfile rmov(LF_RMOV);
TLocalisamfile saldi(LF_SALDI);
TLocalisamfile mov(LF_MOV); TLocalisamfile mov(LF_MOV);
TLocalisamfile causali(LF_CAUSALI); TLocalisamfile causali(LF_CAUSALI);
TSaldo_agg sal;
int gruppo, conto;
const int year = atoi(_year);
long oldnumreg = 0L, sottoconto;
TProgind prnd(rmov.items(),
"Riordino archivio saldi in corso\nLettura archivio movimenti...",
FALSE,TRUE,30);
long jj = 0l; causali.zero();
mov.setkey(1);
rmov.first(); saldi.first(); mov.first(); causali.first(); rmov.first();
sal.reset();
TSort sort(sizeof(struct truc)); sal.set_anno_es(year);
truc rbuf; sal.clear_saldi(year);
sort.addsortkey(rbuf.GRUPPO - (char*)&rbuf, 3);
sort.addsortkey(rbuf.CONTO - (char*)&rbuf, 3);
sort.addsortkey(rbuf.SOTTOCONTO - (char*)&rbuf, 6);
sort.addsortkey(rbuf.SEZIONE - (char*)&rbuf, 1);
sort.init();
TProgind prnd(rmov.items(),
"Riordino archivio saldi in corso\nOrdinamento archivio movimenti...",
FALSE,TRUE,30);
while (!rmov.eof()) while (!rmov.eof())
{
if (_year == rmov.get(RMV_ANNOES))
{ {
if (_year == rmov.curr().get(RMV_ANNOES)) const long numreg = rmov.get_long(RMV_NUMREG);
{
strcpy(rbuf.GRUPPO, rmov.curr().get(RMV_GRUPPO));
strcpy(rbuf.CONTO, rmov.curr().get(RMV_CONTO));
strcpy(rbuf.SOTTOCONTO, rmov.curr().get(RMV_SOTTOCONTO));
strcpy(rbuf.SEZIONE, rmov.curr().get(RMV_SEZIONE));
strcpy(rbuf.IMPORTO, rmov.curr().get(RMV_IMPORTO));
strcpy(rbuf.NUMREG, rmov.curr().get(RMV_NUMREG));
sort.sort((char*)&rbuf);
jj++;
}
rmov.next();
prnd.addstatus(1);
do_events();
}
prnd.setstatus(0); gruppo = rmov.get_int(RMV_GRUPPO);
prnd.set_text("Riordino archivio saldi in corso\nRiscrittura file saldi..."); conto = rmov.get_int(RMV_CONTO);
prnd.setmax(jj); sottoconto = rmov.get_long(RMV_SOTTOCONTO);
if (numreg != oldnumreg)
{
oldnumreg = numreg;
mov.zero();
mov.put(MOV_NUMREG, numreg);
mov.read();
CHECK(mov.good(),"Archivi movimenti e righe inconsistenti");
do_events(); const char* codcaus = mov.get(MOV_CODCAUS);
sort.endsort();
truc* rr = (truc*)sort.retrieve(); // cerca causale
causali.zero();
if (*codcaus)
{
causali.put(CAU_CODCAUS, codcaus);
causali.read();
CHECK(causali.good(),"Archivi causali e movimenti inconsistenti");
}
}
const char sezione = rmov.get(RMV_SEZIONE)[0];
real importo(rmov.get(RMV_IMPORTO));
while (rr != NULL) sal.set_movap(causali.get(CAU_MOVAP) == "A");
{ sal.set_movprovv(mov.get(MOV_PROVVIS).not_empty());
do_events(); sal.aggiorna(gruppo, conto, sottoconto, importo, sezione);
if (sal.items() > MAX_CNT)
real dare = 0.0, avere = 0.0, saldo = 0.0; {
TString conto, sottoconto, gruppo, h; sal.registra();
sal.reset();
saldi.curr().zero(); sal.set_anno_es(atoi(_year));
saldi.curr().put(SLD_CONTO, rr->CONTO); }
saldi.curr().put(SLD_SOTTOCONTO, rr->SOTTOCONTO);
saldi.curr().put(SLD_GRUPPO, rr->GRUPPO);
saldi.curr().put(SLD_ANNOES, _year);
saldi.read();
if (saldi.eof())
{
saldi.curr().zero();
saldi.curr().put(SLD_CONTO, rr->CONTO);
saldi.curr().put(SLD_SOTTOCONTO, rr->SOTTOCONTO);
saldi.curr().put(SLD_GRUPPO, rr->GRUPPO);
saldi.curr().put(SLD_ANNOES, _year);
}
else
{
saldi.curr().put(SLD_SALDO,"");
saldi.curr().put(SLD_PDARESCA,"");
saldi.curr().put(SLD_PAVERESCA,"");
saldi.curr().put(SLD_PDARE,"");
saldi.curr().put(SLD_PAVERE,"");
saldi.curr().put(SLD_DATAULMOV,"");
saldi.curr().put(SLD_NUMULTMOV,"");
saldi.rewrite();
}
first = TRUE;
do
{
bool apertura = FALSE;
conto = rr->CONTO;
sottoconto = rr->SOTTOCONTO;
gruppo = rr->GRUPPO;
h = rr->SEZIONE;
real imp = rr->IMPORTO;
// cerca causale
mov.curr().zero();
mov.curr().put(MOV_ANNOES,_year);
mov.curr().put(MOV_NUMREG, rr->NUMREG);
mov.read();
CHECK(!mov.bad(),"Archivi movimenti e righe inconsistenti");
causali.curr().zero();
causali.curr().put(CAU_CODCAUS,mov.curr().get(MOV_CODCAUS));
CHECK(!causali.bad(),"Archivi causali e movimenti inconsistenti");
if (first)
{ apertura = causali.curr().get_bool(CAU_MOVAP); first = FALSE; }
if (apertura)
{
saldo += imp;
}
else
{
if (rr->SEZIONE[0] == 'D')
dare += imp;
else avere += imp;
}
prnd.addstatus(1);
rr = (truc*)sort.retrieve();
do_events();
}
while (rr && conto == rr->CONTO && sottoconto == rr->SOTTOCONTO &&
gruppo == rr->GRUPPO);
if (dare != 0.0)
{
saldi.curr().put(SLD_PDARE,dare);
saldi.curr().put(SLD_FLAGSALINI,"D");
}
else if (avere != 0.0)
{
saldi.curr().put(SLD_PAVERE,avere);
saldi.curr().put(SLD_FLAGSALINI,"A");
}
else if (saldo != 0.0)
{
saldi.curr().put(SLD_SALDO,saldo);
saldi.curr().put(SLD_FLAGSALINI,h);
}
if (saldi.eof())
saldi.write();
else
saldi.rewrite();
} }
rmov.next();
prnd.addstatus(1);
do_events();
}
if (sal.items() > 0)
sal.registra();
remove("__sal__.sav"); remove("__sal__.sav");
return TRUE; return TRUE;
} }

750
cg/cg4400.cpp
View File

File diff suppressed because it is too large Load Diff

2
cg/cg4600.cpp
View File

@ -61,7 +61,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)
{ {

27
cg/cglib.h
View File

@ -21,11 +21,11 @@
TLocalisamfile * get_descr_cf(TLocalisamfile * pconti, TLocalisamfile * get_descr_cf(TLocalisamfile * pconti,
TLocalisamfile * clifo , int g, int c, long s); TLocalisamfile * clifo , int g, int c, long s);
class TClifo_list : public TArray class TClifo_list : public TArray
{ {
public: public:
TClifo_list(int g, int c, char tipocf); TClifo_list(int g, int c, char tipocf);
TRectype& clifo(int i)const { return(TRectype&)this->operator[](i); } TRectype& clifo(int i)const { return(TRectype&)this->operator[](i); }
}; };
class Saldo class Saldo
@ -50,7 +50,7 @@ public:
real prgdare() {return _prg_dare;} real prgdare() {return _prg_dare;}
real prgavere() {return _prg_avere;} real prgavere() {return _prg_avere;}
bool calcola(int,int,int,int,long,const TDate&,const TDate&,int,bool, bool calcola(int,int,int,int,long,const TDate&,const TDate&,int,bool,
const TDate&,const TDate&,const TDate&,bool); const TDate&,const TDate&,const TDate&,bool);
bool prg_attuali(int,TConto&,int,real&,real&); bool prg_attuali(int,TConto&,int,real&,real&);
bool prg_mov_eliminati(int,TConto&,int,real&,real&); bool prg_mov_eliminati(int,TConto&,int,real&,real&);
Saldo(); Saldo();
@ -59,15 +59,21 @@ public:
class TTab_conti : public TAssoc_array class TTab_conti : public TAssoc_array
{ {
void do_agg(TConto* tc, int anno_es, const real& importo, char sezione,
bool movap, bool provv, bool somma, const char* key);
public: public:
void aggiorna_conto (const TConto& tc, const int anno_es, const real& importo, char sezione, bool movap, bool provv, bool somma); void aggiorna_conto(const TConto& tc, int anno_es, const real& importo,
char sezione, bool movap, bool provv, bool somma);
void aggiorna_conto (int gruppo, int conto, long sottoconto, int anno_es,
const real& importo, char sezione, bool movap,
bool provv, bool somma);
}; };
class TSaldo_agg : public TObject class TSaldo_agg : public TObject
{ {
TTab_conti _tab_conti; TTab_conti _tab_conti;
bool _movap; // se e' mov. d'apertura (aggiorno SALDO e FLAGSALINI in bool _movap; // se e' mov. d'apertura (aggiorno SALDO e FLAGSALINI in
// saldi) // saldi)
bool _provv; bool _provv;
int _anno_es; // anno esercizio int _anno_es; // anno esercizio
TDate _data_ulmov; // data ultimo movimento TDate _data_ulmov; // data ultimo movimento
@ -76,8 +82,12 @@ class TSaldo_agg : public TObject
TConto& tconti() { return *(TConto*)_tab_conti.get(); } TConto& tconti() { return *(TConto*)_tab_conti.get(); }
public: public:
void clear_saldi(int year);
void registra(); void registra();
void aggiorna (const TConto& tc, const real& importo, char sezione, bool somma=TRUE); void aggiorna (const TConto& tc, const real& importo, char sezione,
bool somma=TRUE);
void aggiorna (int gruppo, int conto, long sottoconto, const real& importo,
char sezione, bool somma=TRUE);
void set_anno_es(int anno) { _anno_es = anno; } void set_anno_es(int anno) { _anno_es = anno; }
int anno_es() { return _anno_es; } int anno_es() { return _anno_es; }
@ -96,6 +106,7 @@ public:
void reset(); // pulisce l'array dei conti void reset(); // pulisce l'array dei conti
TSaldo_agg(); TSaldo_agg();
int items() const { return _tab_conti.items();}
}; };

172
cg/cglib02.cpp
View File

@ -13,28 +13,9 @@
#include "conto.h" #include "conto.h"
#include "cglib.h" #include "cglib.h"
void TTab_conti::aggiorna_conto(const TConto& tcon, const int anno_es, const real& importo, char sezione, bool movap, bool provv, bool somma) void TTab_conti::do_agg(TConto* tc, int anno_es, const real& importo,
char sezione, bool movap, bool provv, bool somma, const char* key)
{ {
// TString16 key;
// key.format("%4d%3d%3d%6ld", anno_es, tcon.gruppo(),tcon.conto(),tcon.sottoconto());
TString key;
key << format("%4d", anno_es);
key << format("%3d", tcon.gruppo());
key << format("%3d", tcon.conto());
key << format("%6ld", tcon.sottoconto());
TConto* tc = (TConto*) objptr(key);
if (tc == NULL)
{
tc = new TConto(tcon);
add(key, tc);
tc->dare() = ZERO;
tc->avere() = ZERO;
tc->darepro() = ZERO;
tc->averepro() = ZERO;
tc->saldo() = ZERO;
}
real i = somma ? importo : -importo; real i = somma ? importo : -importo;
if (movap) if (movap)
@ -47,17 +28,59 @@ void TTab_conti::aggiorna_conto(const TConto& tcon, const int anno_es, const rea
{ {
if (sezione == 'D') tc->darepro() += i; if (sezione == 'D') tc->darepro() += i;
else tc->averepro() += i; else tc->averepro() += i;
} }
else else
{ {
if (sezione == 'D') tc->dare() += i; if (sezione == 'D') tc->dare() += i;
else tc->avere() += i; else tc->avere() += i;
} }
// rimuovo dalla tabella il conto se dare e avere vanno a zero // rimuovo dalla tabella il conto se dare e avere vanno a zero
if (tc->dare().is_zero() && tc->avere().is_zero() && if (tc->dare().is_zero() && tc->avere().is_zero() &&
tc->darepro().is_zero() && tc->averepro().is_zero() && tc->darepro().is_zero() && tc->averepro().is_zero() &&
tc->saldo().is_zero()) remove((const char*)key); tc->saldo().is_zero()) remove(key);
}
void TTab_conti::aggiorna_conto(const TConto& tcon, const int anno_es, const real& importo, char sezione, bool movap, bool provv, bool somma)
{
TString key;
key << format("%4d", anno_es);
key << format("%3d", tcon.gruppo());
key << format("%3d", tcon.conto());
key << format("%6ld", tcon.sottoconto());
TConto* tc = (TConto*) objptr(key);
if (tc == NULL)
{
tc = new TConto(tcon);
add(key, tc);
tc->dare() = ZERO;
tc->avere() = ZERO;
tc->darepro() = ZERO;
tc->averepro() = ZERO;
tc->saldo() = ZERO;
}
do_agg(tc, anno_es, importo, sezione, movap, provv, somma, key);
}
void TTab_conti::aggiorna_conto(int gruppo, int conto, long sottoconto,
int anno_es, const real& importo, char sezione,
bool movap, bool provv, bool somma)
{
TString key;
key << format("%4d", anno_es);
key << format("%3d", gruppo);
key << format("%3d", conto);
key << format("%6ld", sottoconto);
TConto* tc = (TConto*) objptr(key);
if (tc == NULL)
{
tc = new TConto(gruppo, conto, sottoconto);
add(key, tc);
}
do_agg(tc, anno_es, importo, sezione, movap, provv, somma, key);
} }
@ -68,12 +91,20 @@ TSaldo_agg::TSaldo_agg()
_num_ulmov = 0l; _num_ulmov = 0l;
_movap = FALSE; _movap = FALSE;
_provv = FALSE; _provv = FALSE;
reset(); // pulizia dell'array dei conti reset(); // pulizia dell'array dei conti
} }
void TSaldo_agg::aggiorna(const TConto& tc, const real& importo, char sezione, bool somma) void TSaldo_agg::aggiorna(const TConto& tc, const real& importo, char sezione,
bool somma)
{ {
_tab_conti.aggiorna_conto(tc, _anno_es, importo, sezione, _movap, _provv, somma); _tab_conti.aggiorna_conto(tc, _anno_es, importo, sezione, _movap, _provv,
somma);
}
void TSaldo_agg::aggiorna(int gruppo, int conto, long sottoconto, const real& importo, char sezione, bool somma)
{
_tab_conti.aggiorna_conto(gruppo, conto, sottoconto, _anno_es, importo,
sezione, _movap, _provv, somma);
} }
void TSaldo_agg::reset() void TSaldo_agg::reset()
@ -81,6 +112,41 @@ void TSaldo_agg::reset()
_tab_conti.destroy(); _tab_conti.destroy();
} }
///////////////////////////////////////////////////////////////////////////////
// pulizia file saldi
//
// Scorro il file saldi per l' anno year o per tutti gli anni se year = 0
// e azzero i progressivi.
//
///////////////////////////////////////////////////////////////////////////////
void TSaldo_agg::clear_saldi(int year)
{
TLocalisamfile saldi(LF_SALDI);
set_anno_es(year);
saldi.zero();
if (anno_es() != 0)
saldi.put(SLD_ANNOES, anno_es());
TRectype last(saldi.curr());
for (saldi.read(_isgteq, _lock);
!saldi.eof() && saldi.curr() <= last;
saldi.next(_lock))
{
saldi.zero(SLD_NUMULTMOV);
saldi.zero(SLD_DATAULMOV);
saldi.put(SLD_FLAGSALINI, "D");
saldi.zero(SLD_SALDO);
saldi.zero(SLD_PDAREPRO);
saldi.zero(SLD_PAVEREPRO);
saldi.zero(SLD_PDARE);
saldi.zero(SLD_PAVERE);
saldi.rewrite();
}
saldi.reread(_unlock);
}
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
// Aggiornamento file saldi // Aggiornamento file saldi
// //
@ -123,34 +189,34 @@ void TSaldo_agg::registra()
if (r != ZERO) if (r != ZERO)
{ {
s = saldi.get_real(SLD_SALDO); s = saldi.get_real(SLD_SALDO);
Flagsalini = saldi.get(SLD_FLAGSALINI); Flagsalini = saldi.get(SLD_FLAGSALINI);
if (Flagsalini == "A") s = r - s; if (Flagsalini == "A") s = r - s;
else s = r + s; else s = r + s;
if (s < ZERO) if (s < ZERO)
{ {
Flagsalini = "A"; s = -s; Flagsalini = "A"; s = -s;
} }
else else
Flagsalini = "D"; Flagsalini = "D";
saldi.put(SLD_FLAGSALINI, (const char *) Flagsalini); saldi.put(SLD_FLAGSALINI, (const char *) Flagsalini);
saldi.put(SLD_SALDO, s); saldi.put(SLD_SALDO, s);
} }
r = saldi.get_real(SLD_PDAREPRO); r = saldi.get_real(SLD_PDAREPRO);
r += tcon.darepro(); r += tcon.darepro();
saldi.put(SLD_PDAREPRO, r); saldi.put(SLD_PDAREPRO, r);
r = saldi.get_real(SLD_PAVEREPRO); r = saldi.get_real(SLD_PAVEREPRO);
r += tcon.averepro(); r += tcon.averepro();
saldi.put(SLD_PAVEREPRO, r); saldi.put(SLD_PAVEREPRO, r);
r = saldi.get_real(SLD_PDARE); r = saldi.get_real(SLD_PDARE);
r += tcon.dare(); r += tcon.dare();
saldi.put(SLD_PDARE, r); saldi.put(SLD_PDARE, r);
r = saldi.get_real(SLD_PAVERE); r = saldi.get_real(SLD_PAVERE);
r += tcon.avere(); r += tcon.avere();
saldi.put(SLD_PAVERE, r); saldi.put(SLD_PAVERE, r);
saldi.rewrite(); saldi.rewrite();
} }
else else
{ {
saldi.zero(); saldi.zero();
saldi.put(SLD_ANNOES, anno_es()); saldi.put(SLD_ANNOES, anno_es());
saldi.put(SLD_GRUPPO, tcon.gruppo()); saldi.put(SLD_GRUPPO, tcon.gruppo());

198
cg/conto.cpp
View File

@ -10,162 +10,162 @@
// Certified 100% // Certified 100%
TConto::TConto(int g, int c, long s, char t, const char* d) TConto::TConto(int g, int c, long s, char t, const char* d)
: _tipo(toupper(t)), _gruppo(g), _conto(c), _sottoconto(s), : _tipo(toupper(t)), _gruppo(g), _conto(c), _sottoconto(s),
_descrizione(d) _descrizione(d)
{} {}
// Certified 90% // Certified 90%
TConto::TConto(TToken_string& s, int from, int mode) TConto::TConto(TToken_string& s, int from, int mode)
{ {
const char* first = s.get(from); const char* first = s.get(from);
if (mode & 0x1) if (mode & 0x1)
{ {
_tipo = first ? toupper(*first) : ' '; _tipo = first ? toupper(*first) : ' ';
first = s.get(); first = s.get();
} else _tipo = ' '; } else _tipo = ' ';
#ifdef DBG #ifdef DBG
if (strchr(" CF", _tipo) == NULL) if (strchr(" CF", _tipo) == NULL)
{ {
error_box("Tipo conto errato: '%c'", _tipo); error_box("Tipo conto errato: '%c'", _tipo);
_tipo = ' '; _tipo = ' ';
} }
#endif #endif
_gruppo = first ? atoi(first) : 0; _gruppo = first ? atoi(first) : 0;
_conto = s.get_int(); _conto = s.get_int();
_sottoconto = s.get_long(); _sottoconto = s.get_long();
if (mode & 0x2) if (mode & 0x2)
_descrizione = s.get(); _descrizione = s.get();
} }
// Certified 100% // Certified 100%
TConto& TConto::set(int g, int c, long s, char t, const char* d) TConto& TConto::set(int g, int c, long s, char t, const char* d)
{ {
_tipo = toupper(t); _tipo = toupper(t);
_gruppo = g; _gruppo = g;
_conto = c; _conto = c;
_sottoconto = s; _sottoconto = s;
_descrizione = d; _descrizione = d;
return *this; return *this;
} }
// Certified 100% // Certified 100%
bool TConto::ok() const bool TConto::ok() const
{ {
return _gruppo != 0 && _conto != 0 && _sottoconto != 0L; return _gruppo != 0 && _conto != 0 && _sottoconto != 0L;
} }
// Certified 99% // Certified 99%
int TConto::compare(const TSortable& s) const int TConto::compare(const TSortable& s) const
{ {
CHECK(class_name()==s.class_name(), "Can't compare TConto with TObject"); CHECK(class_name()==s.class_name(), "Can't compare TConto with TObject");
const TConto& c = (const TConto&)s; const TConto& c = (const TConto&)s;
int res = _gruppo - c._gruppo; int res = _gruppo - c._gruppo;
if (res) return res; if (res) return res;
res = _conto - c._conto; res = _conto - c._conto;
if (res) return res; if (res) return res;
const long lres = _sottoconto - c._sottoconto; const long lres = _sottoconto - c._sottoconto;
if (lres < 0L) res = -1; else if (lres < 0L) res = -1; else
if (lres > 0L) res = +1; if (lres > 0L) res = +1;
return res; return res;
} }
// Certified 90% (uses __tmp_string && isam) // Certified 90% (uses __tmp_string && isam)
const char* TConto::describe() const char* TConto::describe()
{ {
int err = NOERR; int err = NOERR;
const char* desc = NULL; const char* desc = NULL;
if (_tipo != 'C' && _tipo != 'F') if (_tipo != 'C' && _tipo != 'F')
{ {
TLocalisamfile pcon(LF_PCON, FALSE); TLocalisamfile pcon(LF_PCON, FALSE);
pcon.setkey(1); pcon.setkey(1);
pcon.zero(); pcon.zero();
pcon.put("GRUPPO", _gruppo); pcon.put("GRUPPO", _gruppo);
pcon.put("CONTO", _conto); pcon.put("CONTO", _conto);
pcon.put("SOTTOCONTO", _sottoconto); pcon.put("SOTTOCONTO", _sottoconto);
err = pcon.read(); err = pcon.read();
if (err == NOERR) if (err == NOERR)
{ {
if (_sottoconto != 0) if (_sottoconto != 0)
{ {
const char c = pcon.get_char("TMCF"); const char c = pcon.get_char("TMCF");
_tipo = (c < ' ') ? ' ' : c; // Force correct type _tipo = (c < ' ') ? ' ' : c; // Force correct type
} }
if (_tipo == ' ') if (_tipo == ' ')
desc = pcon.get("DESCR"); desc = pcon.get("DESCR");
} }
} }
if (_tipo == 'C' || _tipo == 'F') if (_tipo == 'C' || _tipo == 'F')
{ {
TLocalisamfile clifo(LF_CLIFO, FALSE); TLocalisamfile clifo(LF_CLIFO, FALSE);
clifo.setkey(1); clifo.setkey(1);
clifo.zero(); clifo.zero();
clifo.put("TIPOCF", _tipo); clifo.put("TIPOCF", _tipo);
clifo.put("CODCF", _sottoconto); clifo.put("CODCF", _sottoconto);
err = clifo.read(); err = clifo.read();
if (err == NOERR) if (err == NOERR)
desc = clifo.get("RAGSOC"); desc = clifo.get("RAGSOC");
} }
return desc; return desc;
} }
bool TConto::read(TRectype &r) bool TConto::read(TRectype &r)
{ {
TLocalisamfile pcon(LF_PCON, FALSE); TLocalisamfile pcon(LF_PCON, FALSE);
pcon.setkey(1); pcon.setkey(1);
pcon.zero(); pcon.zero();
pcon.put("GRUPPO", _gruppo); pcon.put("GRUPPO", _gruppo);
pcon.put("CONTO", _conto); pcon.put("CONTO", _conto);
pcon.put("SOTTOCONTO", _sottoconto); pcon.put("SOTTOCONTO", _sottoconto);
const int err = pcon.read(); const int err = pcon.read();
if (err == NOERR) if (err == NOERR)
{ {
r = pcon.curr(); r = pcon.curr();
_descrizione = r.get("DESCR"); _descrizione = r.get("DESCR");
} }
else else
r.zero(); r.zero();
return err == NOERR; return err == NOERR;
} }
// Certified 99% (describe uses __tmp_string) // Certified 99% (describe uses __tmp_string)
const TString& TConto::descrizione() const TString& TConto::descrizione()
{ {
if (_descrizione.empty()) if (_descrizione.empty())
{ {
const char* d = describe(); const char* d = describe();
if (d) if (d)
_descrizione = *d ? d : " "; _descrizione = *d ? d : " ";
else else
_descrizione = "Sconosciuto"; _descrizione = "Sconosciuto";
} }
return _descrizione; return _descrizione;
} }
// Certified 99% (uses __tmp_string) // Certified 99% (uses __tmp_string)
const char* TConto::string(int mode) const char* TConto::string(int mode)
{ {
TFixed_string s(&__tmp_string[128], 80); TFixed_string s(&__tmp_string[128], 80);
s.cut(0); s.cut(0);
if (mode & 0x1) if (mode & 0x1)
s << _tipo << '|'; s << _tipo << '|';
s << _gruppo << '|' << _conto << '|' << _sottoconto; s << _gruppo << '|' << _conto << '|' << _sottoconto;
if (mode & 0x2) s << '|' << descrizione(); if (mode & 0x2) s << '|' << descrizione();
return s; return s;
} }

54
cg/conto.h
View File

@ -13,43 +13,43 @@ enum TIndbil { ib_null, ib_attivita, ib_passivita, ib_costi, ib_ricavi, ib_conti
class TConto : public TSortable class TConto : public TSortable
{ {
char _tipo; // ' ' = Conto, 'C' = Cliente, 'F' = 'Fornitore' char _tipo; // ' ' = Conto, 'C' = Cliente, 'F' = 'Fornitore'
int _gruppo, _conto; int _gruppo, _conto;
long _sottoconto; // Sottoconto, codice cliente o fornitore long _sottoconto; // Sottoconto, codice cliente o fornitore
TString80 _descrizione; // Vuota fino alla chiamata di describe TString80 _descrizione; // Vuota fino alla chiamata di describe
real _dare, _avere; real _dare, _avere;
real _darepro, _averepro; real _darepro, _averepro;
real _saldo; real _saldo;
protected: protected:
virtual int compare(const TSortable& s) const; virtual int compare(const TSortable& s) const;
virtual const char* class_name() const { return "Conto"; } virtual const char* class_name() const { return "Conto"; }
const char* describe(); const char* describe();
public: public:
TConto(int g = 0, int c = 0, long s = 0L, char t = ' ', const char* d = NULL); TConto(int g = 0, int c = 0, long s = 0L, char t = ' ', const char* d = NULL);
TConto(TToken_string& tgcsd, int from, int mode = 0); TConto(TToken_string& tgcsd, int from, int mode = 0);
virtual ~TConto() {} virtual ~TConto() {}
TConto& set(int g = 0, int c = 0, long s = 0L, char t = ' ', const char* d = NULL); TConto& set(int g = 0, int c = 0, long s = 0L, char t = ' ', const char* d = NULL);
virtual bool ok() const; // Gruppo, Conto e Sottoconto non nulli virtual bool ok() const; // Gruppo, Conto e Sottoconto non nulli
real& dare() { return _dare; } real& dare() { return _dare; }
real& avere() { return _avere; } real& avere() { return _avere; }
real& darepro() { return _darepro; } real& darepro() { return _darepro; }
real& averepro() { return _averepro; } real& averepro() { return _averepro; }
real& saldo() { return _saldo; } real& saldo() { return _saldo; }
char tipo() const { return _tipo; } char tipo() const { return _tipo; }
int gruppo() const { return _gruppo; } int gruppo() const { return _gruppo; }
int conto() const { return _conto; } int conto() const { return _conto; }
long sottoconto() const { return _sottoconto; } long sottoconto() const { return _sottoconto; }
const TString& descrizione(); const TString& descrizione();
bool read(TRectype& r); bool read(TRectype& r);
const char* string(int mode = 0); const char* string(int mode = 0);
}; };
#endif #endif

17
cg/makefile
View File

@ -1,6 +1,6 @@
EXE=$(EP)cg0 $(EP)cg1 $(EP)cg3 $(EP)cg4 $(EP)cg5 EXE=$(EP)cg0 $(EP)cg1 $(EP)cg3 $(EP)cg4 $(EP)cg5
FRL=$(EP)cg0.frl $(EP)cg1.frl $(EP)cg3.frl $(EP)cg4.frl $(EP)cg5.frl FRL=$(EP)cg0.frl $(EP)cg1.frl $(EP)cg3.frl $(EP)cg4.frl $(EP)cg5.frl
MSK=$(EP)cg0100a.msk $(EP)cg0200a.msk $(EP)cg0300a.msk $(EP)cg0400a.msk $(EP)cg0500a.msk $(EP)cg1100a.msk $(EP)cg1200a.msk $(EP)cg1200b.msk $(EP)cg1400a.msk $(EP)cg1500a.msk $(EP)cg1600a.msk $(EP)cg1700a.msk $(EP)cg2100a.msk $(EP)cg2100b.msk $(EP)cg2100c.msk $(EP)cg2100i.msk $(EP)cg2100o.msk $(EP)cg3300a.msk $(EP)cg3100a.msk $(EP)cg3100b.msk $(EP)cg3100c.msk $(EP)cg3200a.msk $(EP)cg3500a.msk $(EP)cg4300a.msk $(EP)cg5000a.msk $(EP)cg4400a.msk $(EP)cg4500a.msk $(EP)cg4500b.msk $(EP)cg4600a.msk MSK=$(EP)cg0100a.msk $(EP)cg0200a.msk $(EP)cg0300a.msk $(EP)cg0400a.msk $(EP)cg0500a.msk $(EP)cg1100a.msk $(EP)cg1200a.msk $(EP)cg1200b.msk $(EP)cg1400a.msk $(EP)cg1500a.msk $(EP)cg1600a.msk $(EP)cg1700a.msk $(EP)cg2100a.msk $(EP)cg2100b.msk $(EP)cg2100c.msk $(EP)cg2100i.msk $(EP)cg2100o.msk $(EP)cg3300a.msk $(EP)cg3100a.msk $(EP)cg3100b.msk $(EP)cg3100c.msk $(EP)cg3200a.msk $(EP)cg3500a.msk $(EP)cg4100a.msk $(EP)cg4300a.msk $(EP)cg4300b.msk $(EP)cg4300c.msk $(EP)cg5000a.msk $(EP)cg4400a.msk $(EP)cg4500a.msk $(EP)cg4500b.msk $(EP)cg4600a.msk
$(O)/%.o: %.cpp $(O)/%.o: %.cpp
$(CCOMP) $(CFLAGSD) $(<:.cpp= ) $(O)/$* $(CCOMP) $(CFLAGSD) $(<:.cpp= ) $(O)/$*
@ -108,7 +108,7 @@ $(O)/cg2102.o: cg2102.cpp cg2102.h $(I6) $(I10) $(I24) $(I27) $(I33)
$(O)/cg2103.o: cg2103.cpp cg2103.h $(O)/cg2103.o: cg2103.cpp cg2103.h
$(O)/cglib02.o: cglib02.cpp cglib.h $(O)/cglib02.o: conto.h cglib02.cpp $(I24) $(I31) $(I33) $(I40) $(I42) $(I51) cglib.h
$(O)/conto.o: conto.cpp $(I6) $(I10) $(I24) $(I27) $(I33) $(O)/conto.o: conto.cpp $(I6) $(I10) $(I24) $(I27) $(I33)
@ -214,20 +214,17 @@ $(O)/cg4500.o: cg4500.cpp $(I24) $(I31) $(I33) $(I40) $(I42) $(I51) cg4500a.h
$(O)/cglib01.o: cglib01.cpp $(I24) $(I31) $(I33) $(I40) $(I42) $(I51) cglib.h $(O)/cglib01.o: cglib01.cpp $(I24) $(I31) $(I33) $(I40) $(I42) $(I51) cglib.h
$(O)/cglib02.o: cglib02.cpp $(I24) $(I31) $(I33) $(I40) $(I42) $(I51) cglib.h
$(O)/conto.o: conto.cpp conto.h $(O)/conto.o: conto.cpp conto.h
$(O)/cg2101.o: cg2101.cpp $(I6) $(I10) $(I24) $(I27) $(I33) $(EP)cg4: $(O)/cg4.o $(LIBD1) $(O)/cg4300.o $(O)/cg4301.o $(O)/cg4302.o $(O)/cg4303.o $(O)/cg4304.o $(O)/cg4305.o $(O)/cg4400.o $(O)/cg4401.o $(O)/conto.o $(O)/cglib01.o $(O)/cglib02.o $(O)/cg4500.o $(O)/cg2101.o $(O)/cg2103.o $(O)/cg4100.o $(O)/cg4600.o $(EP)cg4.frl $(EP)cg4300a.msk $(EP)cg4300b.msk $(EP)cg4300c.msk $(O)/cglib03.o
$(LINK) $(LFLAGSD1) $@ $(O)/cg4.o $(O)/cg4300.o $(O)/cg4301.o $(O)/cg4302.o $(O)/cg4303.o $(O)/cg4304.o $(O)/cg4305.o $(O)/cg4400.o $(O)/cg4401.o $(O)/conto.o $(O)/cglib01.o $(O)/cglib02.o $(O)/cg4500.o $(O)/cglib03.o $(O)/cg2101.o $(O)/cg2103.o $(O)/cg4100.o $(O)/cg4600.o
$(O)/cg2103.o: cg2103.cpp cg2103.h
$(EP)cg4: $(O)/cg4.o $(LIBD1) $(O)/cg4300.o $(O)/cg4301.o $(O)/cg4302.o $(O)/cg4303.o $(O)/cg4304.o $(O)/cg4305.o $(O)/cg4400.o $(O)/cg4401.o $(O)/conto.o $(O)/cglib01.o $(O)/cglib02.o $(O)/cg4500.o $(O)/cg2101.o $(O)/cg2103.o $(EP)cg4.frl $(EP)cg4300a.msk $(EP)cg4300b.msk $(EP)cg4300c.msk $(O)/cglib03.o
$(LINK) $(LFLAGSD1) $@ $(O)/cg4.o $(O)/cg4300.o $(O)/cg4301.o $(O)/cg4302.o $(O)/cg4303.o $(O)/cg4304.o $(O)/cg4305.o $(O)/cg4400.o $(O)/cg4401.o $(O)/conto.o $(O)/cglib01.o $(O)/cglib02.o $(O)/cg4500.o $(O)/cglib03.o $(O)/cg2101.o $(O)/cg2103.o
$(EP)cg4400.frl: cg4400.url $(U1) $(EP)cg4400.frl: cg4400.url $(U1)
$(RCOMP) cg4400 -l $(EP)cg4400 $(RCOMP) cg4400 -l $(EP)cg4400
$(EP)cg4100a.msk : cg4100a.uml
$(MCOMP) $(basename $?) $(basename $@)
$(EP)cg4300a.msk : cg4300a.uml $(EP)cg4300a.msk : cg4300a.uml
$(MCOMP) $(basename $?) $(basename $@) $(MCOMP) $(basename $?) $(basename $@)