Corretti errori MI4058 MI4059
git-svn-id: svn://10.65.10.50/trunk@638 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
984c88c8d1
commit
407b35bdeb
238
cg/cg3100.cpp
238
cg/cg3100.cpp
@ -69,7 +69,7 @@ HIDDEN const char* err_msg[] = {"La data operazione non appartiene a nessun eser
|
||||
"Codice cliente/fornitore non presente in anagrafica"};
|
||||
|
||||
|
||||
class CG3100_application : public TPrintapp
|
||||
class TListaMov_application : public TPrintapp
|
||||
{
|
||||
friend bool filter_func (const TRelation *);
|
||||
friend bool filter_func_fatture (const TRelation *);
|
||||
@ -124,23 +124,23 @@ public:
|
||||
bool segnala_errori_primariga();
|
||||
bool segnala_errori_ogniriga();
|
||||
bool segnala_errori_iva();
|
||||
bool contropartita(int);
|
||||
bool contropartita();
|
||||
void stampa_errori_rmov();
|
||||
void stampa_errori_mov();
|
||||
void stampa_errori_iva(int*,const char*,const int,const int);
|
||||
void stampa_errori_contropartita(int);
|
||||
void stampa_errori_contropartita();
|
||||
void stampa_intestazione();
|
||||
void incrementa_totali();
|
||||
void compila_clifo();
|
||||
void compila_comuni();
|
||||
bool RicercaDoc(const char*);
|
||||
|
||||
CG3100_application(): _err(80) {}
|
||||
virtual ~CG3100_application() {}
|
||||
TListaMov_application(): _err(80) {}
|
||||
virtual ~TListaMov_application() {}
|
||||
};
|
||||
|
||||
HIDDEN inline CG3100_application & app()
|
||||
{ return (CG3100_application&)main_app();}
|
||||
HIDDEN inline TListaMov_application & app()
|
||||
{ return (TListaMov_application&)main_app();}
|
||||
|
||||
HIDDEN int date2esc(const TDate& d, int* prevesc)
|
||||
{
|
||||
@ -272,7 +272,7 @@ else
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG3100_application::RicercaDoc(const char * tipo)
|
||||
bool TListaMov_application::RicercaDoc(const char * tipo)
|
||||
{
|
||||
TTable tab_tpd(TAB_TPD);
|
||||
TString codtab = format ("%-2s", tipo);
|
||||
@ -287,7 +287,7 @@ bool CG3100_application::RicercaDoc(const char * tipo)
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
void CG3100_application::compila_clifo()
|
||||
void TListaMov_application::compila_clifo()
|
||||
{
|
||||
_clifo->setkey(1);
|
||||
_clifo->zero();
|
||||
@ -321,7 +321,7 @@ void CG3100_application::compila_clifo()
|
||||
}
|
||||
}
|
||||
|
||||
void CG3100_application::compila_comuni()
|
||||
void TListaMov_application::compila_comuni()
|
||||
{
|
||||
_comuni->setkey(1);
|
||||
_comuni->zero();
|
||||
@ -596,14 +596,13 @@ bool filter_func (const TRelation * rel)
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
void CG3100_application::stampa_errori_rmov()
|
||||
void TListaMov_application::stampa_errori_rmov()
|
||||
{
|
||||
TRectype rec (current_cursor()->file(LF_RMOV).curr());
|
||||
int gruppo = rec.get_int(RMV_GRUPPO);
|
||||
int conto = rec.get_int(RMV_CONTO);
|
||||
long sottoconto = rec.get_long(RMV_SOTTOCONTO);
|
||||
int anno = rec.get_int(RMV_ANNOES);
|
||||
int rcontr = rec.get_int(RMV_RCONTR);
|
||||
TDate datareg = rec.get_date(RMV_DATAREG);
|
||||
char sez = rec.get_char(RMV_SEZIONE);
|
||||
char tipo = rec.get_char(RMV_TIPOC);
|
||||
@ -686,67 +685,61 @@ void CG3100_application::stampa_errori_rmov()
|
||||
set_row(_nr++, "@11gCodice gruppo/conto/sottoconto non presente in Saldi p.d.c.");
|
||||
|
||||
TRecnotype numrec = current_cursor()->file(LF_RMOV).recno();
|
||||
stampa_errori_contropartita(rcontr);
|
||||
stampa_errori_contropartita();
|
||||
current_cursor()->file(LF_RMOV).readat(numrec);
|
||||
}
|
||||
|
||||
void CG3100_application::stampa_errori_contropartita(int riga)
|
||||
void TListaMov_application::stampa_errori_contropartita()
|
||||
{
|
||||
TLocalisamfile& rmov = current_cursor()->file(LF_RMOV);
|
||||
char t;
|
||||
rmov.zero();
|
||||
rmov.put(RMV_NUMREG, _numero);
|
||||
rmov.put(RMV_NUMRIG, riga);
|
||||
if (rmov.read(_isequal) == NOERR) // se esiste la contropartita
|
||||
{
|
||||
int gruppo = rmov.get_int (RMV_GRUPPO);
|
||||
int conto = rmov.get_int (RMV_CONTO);
|
||||
long sottoconto = rmov.get_long(RMV_SOTTOCONTO);
|
||||
int gruppo = rmov.get_int (RMV_GRUPPOC);
|
||||
int conto = rmov.get_int (RMV_CONTOC);
|
||||
long sottoconto = rmov.get_long(RMV_SOTTOCONTOC);
|
||||
|
||||
bool g = FALSE;
|
||||
TConto tc;
|
||||
TRectype pc (_pcon->curr());
|
||||
tc.set(gruppo,0,0l);
|
||||
if (!tc.read(pc))
|
||||
g = TRUE;
|
||||
tc.set(gruppo,conto,0l);
|
||||
if (!tc.read(pc))
|
||||
set_row(_nr++, "@11gCodice gruppo/conto/sottoconto di contropartita non presente in Piano dei Conti");
|
||||
else
|
||||
bool g = FALSE;
|
||||
TConto tc;
|
||||
TRectype pc (_pcon->curr());
|
||||
tc.set(gruppo,0,0l);
|
||||
if (!tc.read(pc))
|
||||
g = TRUE;
|
||||
tc.set(gruppo,conto,0l);
|
||||
if (!tc.read(pc))
|
||||
set_row(_nr++, "@11gCodice gruppo/conto/sottoconto di contropartita non presente in Piano dei Conti");
|
||||
else
|
||||
{
|
||||
t = pc.get_char(PCN_TMCF);
|
||||
tc.set(gruppo,conto,sottoconto);
|
||||
if (t != 'C' && t != 'F')
|
||||
{
|
||||
t = pc.get_char(PCN_TMCF);
|
||||
tc.set(gruppo,conto,sottoconto);
|
||||
if (t != 'C' && t != 'F')
|
||||
{
|
||||
if (!tc.read(pc) || g )
|
||||
set_row(_nr++, "@11gCodice gruppo/conto/sottoconto di contropartita non presente in Piano dei Conti");
|
||||
else
|
||||
{
|
||||
bool sosp = tc.sospeso();
|
||||
if (sosp)
|
||||
set_row(_nr++, "@11gCodice gruppo/conto/sottoconto di contropartita sospeso in Piano dei Conti");
|
||||
}
|
||||
}
|
||||
if (!tc.read(pc) || g )
|
||||
set_row(_nr++, "@11gCodice gruppo/conto/sottoconto di contropartita non presente in Piano dei Conti");
|
||||
else
|
||||
{
|
||||
TLocalisamfile clifo(LF_CLIFO);
|
||||
clifo.setkey(1);
|
||||
clifo.zero();
|
||||
clifo.put(CLI_CODCF, sottoconto);
|
||||
clifo.put(CLI_TIPOCF,t);
|
||||
if (clifo.read() == NOERR)
|
||||
{
|
||||
bool sosp = clifo.get_bool(CLI_SOSPESO);
|
||||
if (sosp)
|
||||
set_row(_nr++, "@11gCodice C/F di contropartita sospeso in Anagrafica");
|
||||
}
|
||||
else set_row(_nr++, "@11gCodice C/F di contropartita non presente in Anagrafica");
|
||||
bool sosp = tc.sospeso();
|
||||
if (sosp)
|
||||
set_row(_nr++, "@11gCodice gruppo/conto/sottoconto di contropartita sospeso in Piano dei Conti");
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
TLocalisamfile clifo(LF_CLIFO);
|
||||
clifo.setkey(1);
|
||||
clifo.zero();
|
||||
clifo.put(CLI_CODCF, sottoconto);
|
||||
clifo.put(CLI_TIPOCF,t);
|
||||
if (clifo.read() == NOERR)
|
||||
{
|
||||
bool sosp = clifo.get_bool(CLI_SOSPESO);
|
||||
if (sosp)
|
||||
set_row(_nr++, "@11gCodice C/F di contropartita sospeso in Anagrafica");
|
||||
}
|
||||
else set_row(_nr++, "@11gCodice C/F di contropartita non presente in Anagrafica");
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void CG3100_application::stampa_errori_iva(int* nr, const char* cod, const int tipodet, const int tipocr)
|
||||
void TListaMov_application::stampa_errori_iva(int* nr, const char* cod, const int tipodet, const int tipocr)
|
||||
{
|
||||
TTable tab_iva ("%IVA");
|
||||
tab_iva.zero();
|
||||
@ -778,7 +771,7 @@ void CG3100_application::stampa_errori_iva(int* nr, const char* cod, const int t
|
||||
set_row(++(*nr), "@11gTipo costo/ricavo non valido");
|
||||
}
|
||||
|
||||
void CG3100_application::stampa_errori_mov()
|
||||
void TListaMov_application::stampa_errori_mov()
|
||||
{
|
||||
long i = _err.first_one();
|
||||
if (i != -1)
|
||||
@ -789,7 +782,7 @@ void CG3100_application::stampa_errori_mov()
|
||||
}
|
||||
}
|
||||
|
||||
void CG3100_application::set_page(int file, int count)
|
||||
void TListaMov_application::set_page(int file, int count)
|
||||
{
|
||||
switch (_tipo_lista)
|
||||
{
|
||||
@ -866,7 +859,7 @@ void CG3100_application::set_page(int file, int count)
|
||||
}
|
||||
}
|
||||
|
||||
void CG3100_application::stampa_intestazione()
|
||||
void TListaMov_application::stampa_intestazione()
|
||||
{
|
||||
TString sep;
|
||||
sep = "";
|
||||
@ -891,7 +884,7 @@ void CG3100_application::stampa_intestazione()
|
||||
set_row (3, "@b@120gRifer@126g#6d", &_codalleg);
|
||||
}
|
||||
|
||||
bool CG3100_application::preprocess_page(int file,int counter)
|
||||
bool TListaMov_application::preprocess_page(int file,int counter)
|
||||
{
|
||||
|
||||
TCursor * cur = current_cursor();
|
||||
@ -1254,7 +1247,7 @@ bool CG3100_application::preprocess_page(int file,int counter)
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
print_action CG3100_application::postprocess_page(int file,int count)
|
||||
print_action TListaMov_application::postprocess_page(int file,int count)
|
||||
{
|
||||
if (count)
|
||||
{
|
||||
@ -1436,7 +1429,7 @@ return NEXT_PAGE;
|
||||
}
|
||||
|
||||
/************
|
||||
int CG3100_application::my_next(TLocalisamfile & mov)
|
||||
int TListaMov_application::my_next(TLocalisamfile & mov)
|
||||
{
|
||||
int esito;
|
||||
TString cod_reg, causale;
|
||||
@ -1477,7 +1470,7 @@ return NEXT_PAGE;
|
||||
}
|
||||
********/
|
||||
|
||||
print_action CG3100_application::postprocess_print(int file,int count)
|
||||
print_action TListaMov_application::postprocess_print(int file,int count)
|
||||
{
|
||||
if (count)
|
||||
{
|
||||
@ -1503,7 +1496,7 @@ print_action CG3100_application::postprocess_print(int file,int count)
|
||||
}
|
||||
|
||||
//cerca errori sulla testata (MOV)
|
||||
bool CG3100_application::segnala_errori_primariga()
|
||||
bool TListaMov_application::segnala_errori_primariga()
|
||||
{
|
||||
const int ae = date2esc(_datacomp);
|
||||
|
||||
@ -1641,66 +1634,59 @@ else _err.set(3);
|
||||
}
|
||||
|
||||
//controlli sulla contropartita
|
||||
bool CG3100_application::contropartita(int riga)
|
||||
bool TListaMov_application::contropartita()
|
||||
{
|
||||
char t;
|
||||
TLocalisamfile rmov(LF_RMOV,FALSE);
|
||||
rmov.setkey(1);
|
||||
rmov.zero();
|
||||
rmov.put(RMV_NUMREG, _numero);
|
||||
rmov.put(RMV_NUMRIG, riga);
|
||||
if (rmov.read(_isequal) == NOERR) // se esiste la contropartita
|
||||
{
|
||||
int gruppo = rmov.get_int (RMV_GRUPPO);
|
||||
int conto = rmov.get_int (RMV_CONTO);
|
||||
long sottoconto = rmov.get_long(RMV_SOTTOCONTO);
|
||||
int gruppo = rmov.get_int (RMV_GRUPPOC);
|
||||
int conto = rmov.get_int (RMV_CONTOC);
|
||||
long sottoconto = rmov.get_long(RMV_SOTTOCONTOC);
|
||||
|
||||
TConto tc;
|
||||
TRectype pc (_pcon->curr());
|
||||
tc.set(gruppo,0,0l);
|
||||
TConto tc;
|
||||
TRectype pc (_pcon->curr());
|
||||
tc.set(gruppo,0,0l);
|
||||
if (!tc.read(pc))
|
||||
return TRUE;
|
||||
tc.set(gruppo,conto,0l);
|
||||
if (!tc.read(pc))
|
||||
return TRUE;
|
||||
else t = pc.get_char(PCN_TMCF);
|
||||
tc.set(gruppo,conto,sottoconto);
|
||||
if (t != 'C' && t != 'F')
|
||||
{
|
||||
if (!tc.read(pc))
|
||||
return TRUE;
|
||||
tc.set(gruppo,conto,0l);
|
||||
if (!tc.read(pc))
|
||||
return TRUE;
|
||||
else t = pc.get_char(PCN_TMCF);
|
||||
tc.set(gruppo,conto,sottoconto);
|
||||
if (t != 'C' && t != 'F')
|
||||
{
|
||||
if (!tc.read(pc))
|
||||
return TRUE;
|
||||
else
|
||||
{
|
||||
bool sosp = tc.sospeso();
|
||||
if (sosp)
|
||||
return TRUE;
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
else
|
||||
{
|
||||
TLocalisamfile clifo(LF_CLIFO);
|
||||
clifo.setkey(1);
|
||||
clifo.zero();
|
||||
clifo.put(CLI_CODCF, sottoconto);
|
||||
clifo.put(CLI_TIPOCF,t);
|
||||
if (clifo.read() == NOERR)
|
||||
{
|
||||
bool sosp = clifo.get_bool(CLI_SOSPESO);
|
||||
if (sosp)
|
||||
return TRUE;
|
||||
}
|
||||
else
|
||||
{
|
||||
bool sosp = tc.sospeso();
|
||||
if (sosp)
|
||||
return TRUE;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
TLocalisamfile clifo(LF_CLIFO);
|
||||
clifo.setkey(1);
|
||||
clifo.zero();
|
||||
clifo.put(CLI_CODCF, sottoconto);
|
||||
clifo.put(CLI_TIPOCF,t);
|
||||
if (clifo.read() == NOERR)
|
||||
{
|
||||
bool sosp = clifo.get_bool(CLI_SOSPESO);
|
||||
if (sosp)
|
||||
return TRUE;
|
||||
}
|
||||
else
|
||||
return TRUE;
|
||||
}
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
//guarda se c'e' almeno un errore su almeno una riga (rmov)
|
||||
bool CG3100_application::segnala_errori_ogniriga()
|
||||
bool TListaMov_application::segnala_errori_ogniriga()
|
||||
{
|
||||
TLocalisamfile& rmov = current_cursor()->file(LF_RMOV);
|
||||
int gruppo, conto, anno, rcontr;
|
||||
int gruppo, conto, anno;
|
||||
long sottoconto;
|
||||
TDate datareg;
|
||||
char sez, tipo, t;
|
||||
@ -1723,12 +1709,11 @@ bool CG3100_application::segnala_errori_ogniriga()
|
||||
datareg = rec.get_date(RMV_DATAREG);
|
||||
sez = rec.get_char(RMV_SEZIONE);
|
||||
tipo = rec.get_char(RMV_TIPOC);
|
||||
rcontr = rec.get_int(RMV_RCONTR);
|
||||
|
||||
TConto tc (gruppo,conto,sottoconto);
|
||||
|
||||
TRecnotype numerorec = rmov.recno();
|
||||
if (contropartita(rcontr))
|
||||
if (contropartita())
|
||||
{
|
||||
rmov.readat(nrec);
|
||||
return TRUE;
|
||||
@ -1838,22 +1823,13 @@ bool CG3100_application::segnala_errori_ogniriga()
|
||||
rmov.readat(nrec);
|
||||
return TRUE;
|
||||
}
|
||||
/*
|
||||
TRecnotype numerorec = rmov.recno();
|
||||
if (contropartita(rmov,rcontr))
|
||||
{
|
||||
rmov.readat(nrec);
|
||||
return TRUE;
|
||||
}
|
||||
rmov.readat(numerorec);
|
||||
*/
|
||||
}
|
||||
rmov.readat(nrec);
|
||||
}
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
bool CG3100_application::segnala_errori_iva()
|
||||
bool TListaMov_application::segnala_errori_iva()
|
||||
{
|
||||
TLocalisamfile& rmoviva = current_cursor()->file(LF_RMOVIVA);
|
||||
TTable tab_iva("%IVA");
|
||||
@ -1933,7 +1909,7 @@ bool CG3100_application::segnala_errori_iva()
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
void CG3100_application::incrementa_totali()
|
||||
void TListaMov_application::incrementa_totali()
|
||||
{
|
||||
TString dep1;
|
||||
real imponibile, imposta;
|
||||
@ -1974,7 +1950,7 @@ void CG3100_application::incrementa_totali()
|
||||
}
|
||||
}
|
||||
|
||||
bool CG3100_application::set_print(int m)
|
||||
bool TListaMov_application::set_print(int m)
|
||||
{
|
||||
_masc = "";
|
||||
switch(m)
|
||||
@ -2134,7 +2110,7 @@ return TRUE;
|
||||
}
|
||||
|
||||
|
||||
bool CG3100_application::user_create()
|
||||
bool TListaMov_application::user_create()
|
||||
{
|
||||
_relmov1 = new TRelation (LF_MOV);
|
||||
_relmov2 = new TRelation (LF_MOV);
|
||||
@ -2172,7 +2148,7 @@ bool CG3100_application::user_create()
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG3100_application::user_destroy() // releasev e arrmask
|
||||
bool TListaMov_application::user_destroy() // releasev e arrmask
|
||||
{
|
||||
//delete _msk;
|
||||
delete _relmov;
|
||||
@ -2189,7 +2165,7 @@ bool CG3100_application::user_destroy() // releasev e arrmask
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void CG3100_application::init_print(const TMask& msk)
|
||||
void TListaMov_application::init_print(const TMask& msk)
|
||||
{
|
||||
set_real_picture("###.###.###.###");
|
||||
|
||||
@ -2329,7 +2305,7 @@ break;
|
||||
}
|
||||
}
|
||||
|
||||
void CG3100_application::preprocess_header()
|
||||
void TListaMov_application::preprocess_header()
|
||||
{
|
||||
int soh; // riga d'inizio dell'intestazione
|
||||
TString sep(132);
|
||||
@ -2523,7 +2499,7 @@ void CG3100_application::preprocess_header()
|
||||
|
||||
int cg3100(int argc, char* argv[])
|
||||
{
|
||||
CG3100_application a;
|
||||
TListaMov_application a;
|
||||
a.run(argc, argv, "Lista movimenti");
|
||||
return 0;
|
||||
}
|
||||
|
||||
101
cg/cg3200.cpp
101
cg/cg3200.cpp
@ -29,7 +29,7 @@ int date2esc(const TDate& d, int* prevesc = NULL);
|
||||
bool sottoc_handler_ini (TMask_field& f, KEY k);
|
||||
bool sottoc_handler_fine (TMask_field& f, KEY k);
|
||||
|
||||
class CG3200_application : public TPrintapp
|
||||
class TMastrini_application : public TPrintapp
|
||||
{
|
||||
static bool data_inizio (TMask_field& f, KEY k);
|
||||
static bool data_fine (TMask_field& f, KEY k);
|
||||
@ -119,12 +119,12 @@ public:
|
||||
void ricerca_dati_ditta();
|
||||
void conto(int,int,bool);
|
||||
|
||||
CG3200_application() {}
|
||||
TMastrini_application() {}
|
||||
};
|
||||
|
||||
HIDDEN CG3200_application& app() { return (CG3200_application&) main_app(); }
|
||||
HIDDEN TMastrini_application& app() { return (TMastrini_application&) main_app(); }
|
||||
|
||||
void CG3200_application::process_link(int id, const char* txt)
|
||||
void TMastrini_application::process_link(int id, const char* txt)
|
||||
{
|
||||
const char* const app = "cg2 -0";
|
||||
TToken_string ss(10);
|
||||
@ -358,7 +358,7 @@ int date2esc(const TDate& d, int* prevesc)
|
||||
//Viene successivamente utilizzata per stampare l'intestazione (e i totali)
|
||||
//oppure no
|
||||
|
||||
bool CG3200_application::almeno_un_record()
|
||||
bool TMastrini_application::almeno_un_record()
|
||||
{
|
||||
bool trovato=FALSE;
|
||||
long record,sottoc;
|
||||
@ -409,7 +409,7 @@ bool CG3200_application::almeno_un_record()
|
||||
return trovato;
|
||||
}
|
||||
|
||||
bool CG3200_application::data_inizio(TMask_field& f, KEY k)
|
||||
bool TMastrini_application::data_inizio(TMask_field& f, KEY k)
|
||||
{
|
||||
int anno;
|
||||
TDate data;
|
||||
@ -450,7 +450,7 @@ bool CG3200_application::data_inizio(TMask_field& f, KEY k)
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG3200_application::data_fine(TMask_field& f, KEY k)
|
||||
bool TMastrini_application::data_fine(TMask_field& f, KEY k)
|
||||
{
|
||||
int annoes;
|
||||
TDate data, data_ini;
|
||||
@ -510,7 +510,7 @@ bool CG3200_application::data_fine(TMask_field& f, KEY k)
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void CG3200_application::saldi_zero()
|
||||
void TMastrini_application::saldi_zero()
|
||||
{
|
||||
TLocalisamfile& rmov = current_cursor()->file(LF_RMOV);
|
||||
real saldo_dare, saldo_avere;
|
||||
@ -546,7 +546,7 @@ void CG3200_application::saldi_zero()
|
||||
_totale_saldo = saldo_dare - saldo_avere;
|
||||
}
|
||||
|
||||
void CG3200_application::fai_stampa132()
|
||||
void TMastrini_application::fai_stampa132()
|
||||
{
|
||||
set_row (1,"@0g#t", &_dataregs);
|
||||
if (_stampanum == 1)
|
||||
@ -565,7 +565,7 @@ void CG3200_application::fai_stampa132()
|
||||
set_row (1,"@123g#6t", &_s_contr);
|
||||
}
|
||||
|
||||
void CG3200_application::fai_stampa198()
|
||||
void TMastrini_application::fai_stampa198()
|
||||
{
|
||||
set_row (1,"@0g#t", &_dataregs);
|
||||
if (_stampanum == 1)
|
||||
@ -585,7 +585,7 @@ void CG3200_application::fai_stampa198()
|
||||
set_row (1,"@175g#6t", &_s_contr);
|
||||
}
|
||||
|
||||
void CG3200_application::stampa_totali132()
|
||||
void TMastrini_application::stampa_totali132()
|
||||
{
|
||||
TString sep(132);
|
||||
|
||||
@ -612,7 +612,7 @@ void CG3200_application::stampa_totali132()
|
||||
}
|
||||
}
|
||||
|
||||
void CG3200_application::stampa_totali198()
|
||||
void TMastrini_application::stampa_totali198()
|
||||
{
|
||||
TString sep(198);
|
||||
|
||||
@ -636,7 +636,7 @@ void CG3200_application::stampa_totali198()
|
||||
}
|
||||
}
|
||||
|
||||
bool CG3200_application::preprocess_page(int file, int counter)
|
||||
bool TMastrini_application::preprocess_page(int file, int counter)
|
||||
{
|
||||
TLocalisamfile & rmov = current_cursor()->file(LF_RMOV);
|
||||
long rec;
|
||||
@ -734,23 +734,12 @@ bool CG3200_application::preprocess_page(int file, int counter)
|
||||
|
||||
_numreg = atol (current_cursor()->curr(LF_RMOV).get(RMV_NUMREG));
|
||||
|
||||
int rcontr = atoi(current_cursor()->curr(LF_RMOV).get(RMV_RCONTR));
|
||||
record = rmov.recno();
|
||||
rmov.setkey(1);
|
||||
rmov.curr().zero();
|
||||
rmov.curr().put(RMV_NUMREG,_numreg);
|
||||
rmov.curr().put(RMV_NUMRIG,rcontr);
|
||||
rmov.read();
|
||||
if (rmov.bad())
|
||||
rmov.curr().zero();
|
||||
_gruppocontr = rmov.curr().get_int (RMV_GRUPPO);
|
||||
_contocontr = rmov.curr().get_int (RMV_CONTO);
|
||||
_sottocontocontr = rmov.curr().get_long(RMV_SOTTOCONTO);
|
||||
_g_contr = rmov.get(RMV_GRUPPO);
|
||||
_c_contr = rmov.get(RMV_CONTO);
|
||||
_s_contr = rmov.get(RMV_SOTTOCONTO);
|
||||
rmov.setkey(2);
|
||||
rmov.readat(record);
|
||||
_gruppocontr = rmov.get_int (RMV_GRUPPOC);
|
||||
_contocontr = rmov.get_int (RMV_CONTOC);
|
||||
_sottocontocontr = rmov.get_long(RMV_SOTTOCONTOC);
|
||||
_g_contr = rmov.get(RMV_GRUPPOC);
|
||||
_c_contr = rmov.get(RMV_CONTOC);
|
||||
_s_contr = rmov.get(RMV_SOTTOCONTOC);
|
||||
|
||||
// Stampa solo quelli che hanno anno esercizio uguale a quello specificato
|
||||
// nella maschera. Se non viene specificato li stampa tutti
|
||||
@ -963,7 +952,7 @@ bool CG3200_application::preprocess_page(int file, int counter)
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void CG3200_application::set_page(int file, int counter)
|
||||
void TMastrini_application::set_page(int file, int counter)
|
||||
{
|
||||
switch (file)
|
||||
{
|
||||
@ -983,7 +972,7 @@ void CG3200_application::set_page(int file, int counter)
|
||||
}
|
||||
}
|
||||
|
||||
print_action CG3200_application::postprocess_page(int file, int counter)
|
||||
print_action TMastrini_application::postprocess_page(int file, int counter)
|
||||
{
|
||||
if (counter)
|
||||
{
|
||||
@ -1043,7 +1032,7 @@ print_action CG3200_application::postprocess_page(int file, int counter)
|
||||
|
||||
// Stampa dei totali documenti iva se richiesta
|
||||
|
||||
void CG3200_application::stampa_totaliiva()
|
||||
void TMastrini_application::stampa_totaliiva()
|
||||
{
|
||||
|
||||
if (_stampatotiva)
|
||||
@ -1059,7 +1048,7 @@ void CG3200_application::stampa_totaliiva()
|
||||
// Ricerca della descrizione relativa al codice causale di MOV.dta
|
||||
// sull'archivio CAUS.dta
|
||||
|
||||
void CG3200_application::descrizione_causale()
|
||||
void TMastrini_application::descrizione_causale()
|
||||
{
|
||||
_caus->setkey(1);
|
||||
_caus->curr().zero();
|
||||
@ -1073,7 +1062,7 @@ void CG3200_application::descrizione_causale()
|
||||
// Ricerca sulla tabella dei tipi documento, la descrizione e la natura del
|
||||
// documento, accedendovi tramite il tipo documento trovato su MOV.dta
|
||||
|
||||
void CG3200_application::documenti_iva()
|
||||
void TMastrini_application::documenti_iva()
|
||||
{
|
||||
TString dep;
|
||||
|
||||
@ -1085,7 +1074,7 @@ void CG3200_application::documenti_iva()
|
||||
_natdoc = atoi(_tabtpd->curr().get("I0"));
|
||||
}
|
||||
|
||||
void CG3200_application::ricerca_regiva()
|
||||
void TMastrini_application::ricerca_regiva()
|
||||
{
|
||||
TString16 dep;
|
||||
|
||||
@ -1097,7 +1086,7 @@ void CG3200_application::ricerca_regiva()
|
||||
_tipo = _tabreg->get_int("I0");
|
||||
}
|
||||
|
||||
bool CG3200_application::preprocess_print(int file, int counter)
|
||||
bool TMastrini_application::preprocess_print(int file, int counter)
|
||||
{
|
||||
if (file == LF_SALDI)
|
||||
{
|
||||
@ -1131,7 +1120,7 @@ bool CG3200_application::preprocess_print(int file, int counter)
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG3200_application::set_print(int)
|
||||
bool TMastrini_application::set_print(int)
|
||||
{
|
||||
KEY tasto;
|
||||
int crt;
|
||||
@ -1233,7 +1222,7 @@ bool CG3200_application::set_print(int)
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
void CG3200_application::data_fine_esercizio(int anno)
|
||||
void TMastrini_application::data_fine_esercizio(int anno)
|
||||
{
|
||||
TString16 dep;
|
||||
|
||||
@ -1245,7 +1234,7 @@ void CG3200_application::data_fine_esercizio(int anno)
|
||||
_data_inizioese = _tabesc->curr().get("D0");
|
||||
}
|
||||
|
||||
void CG3200_application::preprocess_header()
|
||||
void TMastrini_application::preprocess_header()
|
||||
{
|
||||
if (_tipostampa == 3)
|
||||
crea_intestazione();
|
||||
@ -1260,7 +1249,7 @@ void CG3200_application::preprocess_header()
|
||||
crea_intestazione();
|
||||
}
|
||||
|
||||
void CG3200_application::conto(int gruppo, int conto, bool no_contropartita)
|
||||
void TMastrini_application::conto(int gruppo, int conto, bool no_contropartita)
|
||||
{
|
||||
TLocalisamfile pconti(LF_PCON);
|
||||
|
||||
@ -1281,7 +1270,7 @@ void CG3200_application::conto(int gruppo, int conto, bool no_contropartita)
|
||||
_tipo_contr = pconti.get_char(PCN_TMCF);
|
||||
}
|
||||
|
||||
void CG3200_application::ricerca_dati_ditta()
|
||||
void TMastrini_application::ricerca_dati_ditta()
|
||||
{
|
||||
long app;
|
||||
|
||||
@ -1312,7 +1301,7 @@ void CG3200_application::ricerca_dati_ditta()
|
||||
|
||||
// Crea l'intestazione per la stampa a 132 e a 198 caratteri
|
||||
|
||||
void CG3200_application::crea_intestazione()
|
||||
void TMastrini_application::crea_intestazione()
|
||||
{
|
||||
TString sep(132),sep1(198);
|
||||
|
||||
@ -1390,7 +1379,7 @@ void CG3200_application::crea_intestazione()
|
||||
}
|
||||
}
|
||||
|
||||
void CG3200_application::stampa_progre_riporto()
|
||||
void TMastrini_application::stampa_progre_riporto()
|
||||
{
|
||||
TString sep(132),sep1(198);
|
||||
|
||||
@ -1434,7 +1423,7 @@ void CG3200_application::stampa_progre_riporto()
|
||||
}
|
||||
}
|
||||
|
||||
void CG3200_application::calcola_progressivi_al()
|
||||
void TMastrini_application::calcola_progressivi_al()
|
||||
{
|
||||
long record,sottoc,annoes;
|
||||
int gruppo,conto;
|
||||
@ -1492,7 +1481,7 @@ void CG3200_application::calcola_progressivi_al()
|
||||
rmov.readat(record);
|
||||
}
|
||||
|
||||
void CG3200_application::calcola_progressivi()
|
||||
void TMastrini_application::calcola_progressivi()
|
||||
{
|
||||
TLocalisamfile saldi(LF_SALDI, FALSE);
|
||||
real pdaresca,paveresca,pdarescap,paverescap;
|
||||
@ -1634,7 +1623,7 @@ void CG3200_application::calcola_progressivi()
|
||||
}
|
||||
}
|
||||
|
||||
void CG3200_application::stampa_progressivi()
|
||||
void TMastrini_application::stampa_progressivi()
|
||||
{
|
||||
if (_numcarat == 1)
|
||||
{
|
||||
@ -1659,7 +1648,7 @@ void CG3200_application::stampa_progressivi()
|
||||
|
||||
// Se la ricerca selezionata nella maschera e' per clienti, oppure fornitori, // allora ricerco su CLIFO i relativi dati, e su PCON il relativo gruppo,conto,// sottoconto e IV direttiva CEE
|
||||
|
||||
void CG3200_application::ricerca_clifo()
|
||||
void TMastrini_application::ricerca_clifo()
|
||||
{
|
||||
TString ragsoc,paiv,cofi,indcf,capcf,ptel,tel,statocf,comcf,dencom,provcom,dep;
|
||||
TLocalisamfile clifo(LF_CLIFO);
|
||||
@ -1767,7 +1756,7 @@ void CG3200_application::ricerca_clifo()
|
||||
// Se la ricerca selezionata sulla maschera e' per gruppo, conto, sottoconto
|
||||
// ricerca i corrispondenti su PCON, con relativa IV direttiva CEE
|
||||
|
||||
void CG3200_application::ricerca_classe_IV(bool scelta)
|
||||
void TMastrini_application::ricerca_classe_IV(bool scelta)
|
||||
{
|
||||
TLocalisamfile pconti(LF_PCON);
|
||||
|
||||
@ -1786,7 +1775,7 @@ void CG3200_application::ricerca_classe_IV(bool scelta)
|
||||
_descr = pconti.get (PCN_DESCR);
|
||||
}
|
||||
|
||||
void CG3200_application::ricerca_gruppo()
|
||||
void TMastrini_application::ricerca_gruppo()
|
||||
{
|
||||
TString80 descr,descriz,descriz2,dep;
|
||||
TString dataini,datafine;
|
||||
@ -1841,7 +1830,7 @@ void CG3200_application::ricerca_gruppo()
|
||||
}
|
||||
}
|
||||
|
||||
const char* CG3200_application::descrizione_classe(char sezione, char lettera, int numr, int numero)
|
||||
const char* TMastrini_application::descrizione_classe(char sezione, char lettera, int numr, int numero)
|
||||
{
|
||||
TTable tabivd(TAB_IVD);
|
||||
TString dep,dep2;
|
||||
@ -1877,7 +1866,7 @@ const char* CG3200_application::descrizione_classe(char sezione, char lettera, i
|
||||
|
||||
//Ricerca la descrizione relativa al gruppo da stampare
|
||||
|
||||
const char* CG3200_application::descrizione_gruppo()
|
||||
const char* TMastrini_application::descrizione_gruppo()
|
||||
{
|
||||
TLocalisamfile pconti(LF_PCON);
|
||||
|
||||
@ -1890,7 +1879,7 @@ const char* CG3200_application::descrizione_gruppo()
|
||||
|
||||
// Ricerca la descrizione relativa al conto da stampare
|
||||
|
||||
const char* CG3200_application::descrizione_conto()
|
||||
const char* TMastrini_application::descrizione_conto()
|
||||
{
|
||||
TLocalisamfile pconti(LF_PCON);
|
||||
|
||||
@ -1902,7 +1891,7 @@ const char* CG3200_application::descrizione_conto()
|
||||
return tmp;
|
||||
}
|
||||
|
||||
bool CG3200_application::user_create()
|
||||
bool TMastrini_application::user_create()
|
||||
{
|
||||
TToken_string exp;
|
||||
|
||||
@ -1938,7 +1927,7 @@ bool CG3200_application::user_create()
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG3200_application::user_destroy()
|
||||
bool TMastrini_application::user_destroy()
|
||||
{
|
||||
delete _msk;
|
||||
delete _rel;
|
||||
@ -1959,7 +1948,7 @@ bool CG3200_application::user_destroy()
|
||||
int cg3200(int argc, char* argv[])
|
||||
{
|
||||
|
||||
CG3200_application a;
|
||||
TMastrini_application a;
|
||||
|
||||
a.run(argc, argv, "Stampa Mastrini");
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user