593 lines
19 KiB
C++
Executable File
593 lines
19 KiB
C++
Executable File
#include <config.h>
|
||
#include <execp.h>
|
||
#include <mask.h>
|
||
#include <printapp.h>
|
||
#include <tabutil.h>
|
||
#include <utility.h>
|
||
#include <relation.h>
|
||
#include <real.h>
|
||
#include <printer.h>
|
||
|
||
#include <effetti.h>
|
||
#include <reffetti.h>
|
||
#include <clifo.h>
|
||
#include "ef0600.h"
|
||
|
||
enum pt {undefined = 0, scadenza = 1, banca = 2, distinta = 3};
|
||
|
||
class TPrint_effetti_app : public TPrintapp
|
||
{
|
||
pt _pr_type;
|
||
TRelation* _rel;
|
||
int _cur_1, _cur_2, _cur_3;
|
||
int _interline, i;
|
||
TString _ban, _cli, _val, _data_stampa, _ban_prec;
|
||
long _dist_prec;
|
||
TDate _scad_prec;
|
||
real _tot_data, _tot_mese, _tot_banca, _tot_distinta, _tot_stampa;
|
||
bool _prima_volta;
|
||
public:
|
||
virtual bool preprocess_page(int file, int counter);
|
||
virtual bool preprocess_print(int file, int counter);
|
||
virtual print_action postprocess_print(int file, int counter);
|
||
virtual void preprocess_header();
|
||
void header_scadenza();
|
||
void header_banca();
|
||
void header_distinta();
|
||
virtual bool user_create();
|
||
virtual bool user_destroy();
|
||
virtual bool set_print(int);
|
||
virtual void set_page (int file, int counter);
|
||
void set_scadenza();
|
||
void set_banca();
|
||
void set_distinta();
|
||
const char* get_field(int ln, const char* fn) {return current_cursor()->curr(ln).get(fn);}
|
||
const char* look_tab(const char* tabname, TString& cod,const char* fld="S0");
|
||
TPrint_effetti_app() : TPrintapp(), _ban(11), _ban_prec(11), _cli(60), _val(3){_rel = NULL; _interline = 1;}
|
||
};
|
||
|
||
void TPrint_effetti_app::preprocess_header()
|
||
{
|
||
reset_header();
|
||
const long firm = get_firm();
|
||
int j = 1;
|
||
TLocalisamfile ditte(LF_NDITTE);
|
||
ditte.zero();
|
||
ditte.put("CODDITTA", firm);
|
||
ditte.read();
|
||
if (ditte.bad()) ditte.zero();
|
||
TString s(ditte.get("RAGSOC"));
|
||
set_header(j, "Ditta: %ld %s@125gPag @#", firm, (const char*) s);
|
||
set_header(j++, "@102gData %s", (const char*) _data_stampa);
|
||
|
||
switch(_pr_type)
|
||
{
|
||
case scadenza:
|
||
header_scadenza();
|
||
break;
|
||
case banca:
|
||
header_banca();
|
||
break;
|
||
case distinta:
|
||
header_distinta();
|
||
break;
|
||
default:
|
||
break;
|
||
}
|
||
}
|
||
|
||
void TPrint_effetti_app::header_scadenza()
|
||
{
|
||
int j =1;
|
||
set_header(j, "@52gSTAMPA RI.BA. PER SCADENZA"); j++;
|
||
set_header(j++, (const char *)(TString(132).fill('-')));
|
||
set_header(j++, " Scadenza Banca Cliente N.Riba N.Dist Importo Val N.Rata St.Def. Fattura del. N.");
|
||
set_header(j, (const char *)(TString(132).fill('-')));
|
||
}
|
||
|
||
void TPrint_effetti_app::header_banca()
|
||
{
|
||
int j = 1;
|
||
set_header(j, "@45gSTAMPA RI.BA. PER BANCHE DI PRESENTAZIONE"); j++;
|
||
set_header(j++, (const char *)(TString(132).fill('-')));
|
||
set_header(j++, " Banca Scadenza Cliente N.Riba N.Dist Importo Val. N.Rata St.Def. Fattura del. N.");
|
||
set_header(j, (const char *)(TString(132).fill('-')));
|
||
}
|
||
|
||
void TPrint_effetti_app::header_distinta()
|
||
{
|
||
int j = 1;
|
||
set_header(j, "@55gSTAMPA RI.BA. PER DISTINTE"); j++;
|
||
set_header(j++, (const char *)(TString(132).fill('-')));
|
||
set_header(j++, " Distinta ");
|
||
set_header(j++, "@1gTipo Num. N.Riba Scadenza Banca Cliente Importo Val. N.Rata St.Def. Fattura del. N.");
|
||
set_header(j, (const char *)(TString(132).fill('-')));
|
||
}
|
||
|
||
|
||
|
||
print_action TPrint_effetti_app::postprocess_print(int file, int counter)
|
||
{
|
||
TString s;
|
||
TPrintrow pr;
|
||
TPrinter& p = printer();
|
||
|
||
if (_tot_data != 0.0)
|
||
{
|
||
pr.put("-------------------------------------------",50);
|
||
p.print(pr);
|
||
pr.reset();
|
||
pr.put("Totale",52);
|
||
pr.put(_scad_prec.string(),60);
|
||
pr.put(_tot_data.string("###.###.##@,@@"),72);
|
||
p.print(pr);
|
||
_tot_data = 0.0;
|
||
pr.reset();
|
||
}
|
||
|
||
if(_tot_mese != 0.0)
|
||
{
|
||
pr.put("Totale ",50);
|
||
pr.put(itom(_scad_prec.month()),57);
|
||
pr.put(_tot_mese.string("###.###.##@,@@"),72);
|
||
p.print(pr);
|
||
_tot_mese = 0.0;
|
||
pr.reset();
|
||
}
|
||
|
||
if (_tot_banca != 0.0)
|
||
{
|
||
pr.put("Totale",50);
|
||
s = (look_tab("%BAN",_ban_prec));
|
||
if (s.empty())
|
||
s = "Nessuna Banca ";
|
||
s = s.left(20);
|
||
pr.put(s,57);
|
||
pr.put(_tot_banca.string("###.###.##@,@@"),72);
|
||
p.print(pr);
|
||
_tot_banca = 0.0;
|
||
pr.reset();
|
||
}
|
||
|
||
if (_tot_distinta != 0.0)
|
||
{
|
||
pr.put("Totale",50);
|
||
s << "Distinta " << _dist_prec;
|
||
if (_dist_prec == 0)
|
||
s = "Nessuna Distinta ";
|
||
pr.put(s,57);
|
||
pr.put(_tot_distinta.string("###.###.##@,@@"),72);
|
||
p.print(pr);
|
||
_tot_distinta = 0.0;
|
||
pr.reset();
|
||
}
|
||
|
||
if (_tot_stampa != 0.0)
|
||
{
|
||
pr.put("-----------------------------------------------------------------------------------------------------------------------------------",1);
|
||
p.print(pr);
|
||
pr.reset();
|
||
pr.put("Totale Ri.Ba. stampate",50);
|
||
pr.put(_tot_stampa.string("###.###.##@,@@"),72);
|
||
p.print(pr);
|
||
_tot_stampa = 0.0;
|
||
pr.put("-----------------------------------------------------------------------------------------------------------------------------------",1);
|
||
p.print(pr);
|
||
pr.reset();
|
||
p.print(pr);
|
||
}
|
||
|
||
return NEXT_PAGE;
|
||
}
|
||
|
||
void TPrint_effetti_app::set_page(int file, int counter)
|
||
{
|
||
switch(_pr_type)
|
||
{
|
||
case scadenza:
|
||
if (file == LF_EFFETTI)
|
||
set_scadenza();
|
||
break;
|
||
case banca:
|
||
if (file == LF_EFFETTI)
|
||
set_banca();
|
||
break;
|
||
case distinta:
|
||
if (file == LF_EFFETTI)
|
||
set_distinta();
|
||
break;
|
||
default:
|
||
break;
|
||
}
|
||
|
||
}
|
||
|
||
|
||
void TPrint_effetti_app::set_scadenza()
|
||
{
|
||
|
||
set_row(1,"@1g@s@13g#t@26g#t@50g@pn@59g@pn@72g@pn@88g#t@95g@pn@103g@s@111g@s@121g@pn",
|
||
FLD(LF_EFFETTI, EFF_DATASCAD),
|
||
&_ban,
|
||
&_cli,
|
||
FLD(LF_EFFETTI, EFF_NPROGTR, "#####@"),
|
||
FLD(LF_EFFETTI, EFF_NDIST, "#######@"),
|
||
FLD(LF_EFFETTI, EFF_IMPORTO, "###.###.##@,@@"),
|
||
&_val,
|
||
FLD(LF_REFFETTI, REFF_NRATA,"##@"),
|
||
FLD(LF_EFFETTI, EFF_EFFSTAMP),
|
||
FLD(LF_REFFETTI, REFF_DATAFATT),
|
||
FLD(LF_REFFETTI, REFF_NFATT,"######@"));
|
||
|
||
for( i = 0; i < _interline; i++) set_row(i+1," ");
|
||
}
|
||
|
||
void TPrint_effetti_app::set_banca()
|
||
{
|
||
set_row(1,"@1g#t@14g@s@26g#t@54g@pn@63g@pn@72g@pn@91g#t@98g@pn@106g@s@114g@s@124g@pn",
|
||
&_ban,
|
||
FLD(LF_EFFETTI, EFF_DATASCAD),
|
||
&_cli,
|
||
FLD(LF_EFFETTI, EFF_NPROGTR, "#####@"),
|
||
FLD(LF_EFFETTI, EFF_NDIST, "#######@"),
|
||
FLD(LF_EFFETTI, EFF_IMPORTO, "###.###.##@,@@"),
|
||
&_val,
|
||
FLD(LF_REFFETTI, REFF_NRATA,"##@"),
|
||
FLD(LF_EFFETTI, EFF_EFFSTAMP),
|
||
FLD(LF_REFFETTI, REFF_DATAFATT),
|
||
FLD(LF_REFFETTI, REFF_NFATT, "######@"));
|
||
|
||
for( i = 0; i < _interline; i++) set_row(i+1,"");
|
||
}
|
||
|
||
void TPrint_effetti_app::set_distinta()
|
||
{
|
||
set_row(1,"@3g@s@5g@pn@16g@pn@27g@s@41g#t@55g#t@72g@pn@91g#t@98g@pn@106g@s@114g@s@124g@pn",
|
||
FLD(LF_EFFETTI, EFF_TIPODIST),
|
||
FLD(LF_EFFETTI, EFF_NDIST, "#######@"),
|
||
FLD(LF_EFFETTI, EFF_NPROGTR, "#####@"),
|
||
FLD(LF_EFFETTI, EFF_DATASCAD),
|
||
&_ban,
|
||
&_cli,
|
||
FLD(LF_EFFETTI, EFF_IMPORTO, "###.###.##@,@@"),
|
||
&_val,
|
||
FLD(LF_REFFETTI, REFF_NRATA,"##@"),
|
||
FLD(LF_EFFETTI, EFF_EFFSTAMP),
|
||
FLD(LF_REFFETTI, REFF_DATAFATT),
|
||
FLD(LF_REFFETTI, REFF_NFATT, "######@"));
|
||
|
||
for( i = 0; i < _interline; i++) set_row(i+1,"");
|
||
}
|
||
|
||
bool TPrint_effetti_app::preprocess_page(int file, int counter)
|
||
// no switch/case su file poich<63> c'<27> solo quello degli effetti
|
||
{
|
||
TString s;
|
||
TRectype & rec = current_cursor()->curr();
|
||
TDate scad = rec.get_date (EFF_DATASCAD);
|
||
TString ban = rec.get (EFF_CODABIP);
|
||
if (ban=="00000")
|
||
ban = "";
|
||
long dist = rec.get_long (EFF_NDIST);
|
||
char tipodist = rec.get_char(EFF_TIPODIST);
|
||
real importo = rec.get_real(EFF_IMPORTO);
|
||
TString year;
|
||
TPrintrow pr;
|
||
TPrinter& p = printer();
|
||
|
||
if (_prima_volta)
|
||
{
|
||
_prima_volta = FALSE;
|
||
switch(_pr_type)
|
||
{
|
||
case scadenza:
|
||
_scad_prec = scad;
|
||
year = _scad_prec.string();
|
||
year = year.right(4);
|
||
pr.put(itom(_scad_prec.month()),1);
|
||
pr.put(year,10);
|
||
p.print(pr);
|
||
pr.reset();
|
||
p.print(pr);
|
||
break;
|
||
case banca:
|
||
_scad_prec = scad;
|
||
_ban_prec = ban;
|
||
s = (look_tab("%BAN",_ban_prec));
|
||
if (s.empty())
|
||
s = "Nessuna Banca di Presentazione";
|
||
pr.put(s,1);
|
||
p.print(pr);
|
||
pr.reset();
|
||
p.print(pr);
|
||
break;
|
||
case distinta:
|
||
_scad_prec = scad;
|
||
_dist_prec = dist;
|
||
s << "Distinta " << dist << " ";
|
||
switch(tipodist)
|
||
{
|
||
case 'B':
|
||
s << " Salvo Buon Fine";
|
||
break;
|
||
case 'I':
|
||
s << " All'Incasso";
|
||
break;
|
||
case 'S':
|
||
s << " Allo Sconto";
|
||
break;
|
||
case 0:
|
||
s = "Nessuna Distinta";
|
||
break;
|
||
}
|
||
pr.put(s,1);
|
||
p.print(pr);
|
||
pr.reset();
|
||
p.print(pr);
|
||
s = "";
|
||
break;
|
||
}
|
||
}
|
||
|
||
if (scad !=_scad_prec)
|
||
{
|
||
pr.put("-------------------------------------------",50);
|
||
p.print(pr);
|
||
pr.reset();
|
||
pr.put("Totale",52);
|
||
pr.put(_scad_prec.string(),60);
|
||
pr.put(_tot_data.string("###.###.##@,@@"),72);
|
||
p.print(pr);
|
||
_tot_data = 0.0;
|
||
pr.reset();
|
||
|
||
if((scad.month() != _scad_prec.month())&&_pr_type == scadenza)
|
||
{
|
||
pr.put("Totale ",50);
|
||
pr.put(itom(_scad_prec.month()),57);
|
||
pr.put(_tot_mese.string("###.###.##@,@@"),72);
|
||
p.print(pr);
|
||
_tot_mese = 0.0;
|
||
pr.reset();
|
||
p.print(pr);
|
||
|
||
year = scad.string();
|
||
year = year.right(4);
|
||
pr.put(itom(scad.month()),1);
|
||
pr.put(year,10);
|
||
p.print(pr);
|
||
pr.reset();
|
||
p.print(pr);
|
||
}
|
||
}
|
||
|
||
switch(_pr_type)
|
||
{
|
||
case scadenza:
|
||
_tot_mese += importo;
|
||
break;
|
||
case banca:
|
||
if (ban !=_ban_prec)
|
||
{
|
||
pr.put("Totale",50);
|
||
s = (look_tab("%BAN",_ban_prec));
|
||
if (s.empty())
|
||
s = "Nessuna Banca ";
|
||
s = s.left(20);
|
||
pr.put(s,57);
|
||
pr.put(_tot_banca.string("###.###.##@,@@"),72);
|
||
p.print(pr);
|
||
_tot_banca = 0.0;
|
||
pr.reset();
|
||
p.print(pr);
|
||
_ban_prec = ban;
|
||
s = (look_tab("%BAN",ban));
|
||
if (s.empty())
|
||
s = "Nessuna Banca di Presentazione";
|
||
pr.put(s,1);
|
||
p.print(pr);
|
||
pr.reset();
|
||
p.print(pr);
|
||
}
|
||
_tot_banca += importo;
|
||
break;
|
||
|
||
case distinta:
|
||
if (dist !=_dist_prec)
|
||
{
|
||
pr.put("Totale",50);
|
||
s << "Distinta " << _dist_prec;
|
||
if (_dist_prec == 0)
|
||
s = "Nessuna Distinta";
|
||
pr.put(s,57);
|
||
pr.put(_tot_distinta.string("###.###.##@,@@"),72);
|
||
p.print(pr);
|
||
_tot_distinta = 0.0;
|
||
pr.reset();
|
||
p.print(pr);
|
||
_dist_prec = dist;
|
||
|
||
s = "";
|
||
s << "Distinta " << dist << " ";
|
||
switch(tipodist)
|
||
{
|
||
case 'B':
|
||
s <<" Salvo Buon Fine";
|
||
break;
|
||
case 'I':
|
||
s << " All'Incasso";
|
||
break;
|
||
case 'S':
|
||
s << " Allo Sconto";
|
||
break;
|
||
case 0:
|
||
s = "Nessuna Distinta ";
|
||
break;
|
||
}
|
||
pr.put(s,1);
|
||
p.print(pr);
|
||
pr.reset();
|
||
p.print(pr);
|
||
s = "";
|
||
}
|
||
_tot_distinta += importo;
|
||
break;
|
||
}
|
||
|
||
_scad_prec = scad;
|
||
_tot_data += importo;
|
||
_tot_stampa += importo ;
|
||
|
||
_ban = get_field(LF_EFFETTI, EFF_CODABIP);
|
||
if (_ban=="00000")
|
||
_ban = "";
|
||
s = get_field(LF_EFFETTI, EFF_CODCABP);
|
||
if (s=="00000")
|
||
s = "";
|
||
_ban << " " << s;
|
||
|
||
s = get_field(LF_EFFETTI, EFF_CODCF);
|
||
_cli = get_field(LF_CLIFO, CLI_RAGSOC);
|
||
s = _cli.mid(30,50); s.trim();
|
||
_cli = _cli.mid(0,30); _cli.trim();
|
||
_cli << " " << s;
|
||
|
||
s = get_field(LF_EFFETTI, EFF_CODVAL);
|
||
(s.empty())?_val = s:_val = "Lit.";
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
bool TPrint_effetti_app::preprocess_print(int file, int counter)
|
||
{
|
||
reset_print();
|
||
return TRUE;
|
||
}
|
||
|
||
const char* TPrint_effetti_app::look_tab(const char* tabname, TString& cod,const char* fld)
|
||
{
|
||
TTable tab(tabname);
|
||
tab.curr().zero();
|
||
tab.curr().put("CODTAB",cod);
|
||
tab.read();
|
||
if (tab.bad()) tab.curr().zero();
|
||
return tab.curr().get(fld);
|
||
}
|
||
|
||
bool TPrint_effetti_app::set_print(int)
|
||
{
|
||
disable_links();
|
||
set_multiple_link(FALSE);
|
||
|
||
TMask mask("ef0600a.msk");
|
||
|
||
mask.run();
|
||
|
||
force_setpage(FALSE);
|
||
|
||
switch (mask.last_key())
|
||
{
|
||
case K_ESC:
|
||
case K_QUIT:
|
||
return FALSE;
|
||
break;
|
||
}
|
||
|
||
_pr_type = (pt) mask.get_int(RDB_TIPOST);
|
||
TDate data_stampa (mask.get(F_DATA_STAMPA));
|
||
_data_stampa = data_stampa.string();
|
||
|
||
TRectype from(current_cursor()->curr());
|
||
from.zero();
|
||
TRectype to(from);
|
||
|
||
TString cod_from, cod_to, filter;
|
||
filter = "";
|
||
|
||
switch(_pr_type)
|
||
{
|
||
case scadenza:
|
||
cod_from = mask.get(F_DA_DATA);
|
||
cod_to = mask.get(F_A_DATA);
|
||
from.put(EFF_DATASCAD,cod_from);
|
||
to.put(EFF_DATASCAD,cod_to);
|
||
select_cursor(_cur_1);
|
||
break;
|
||
|
||
case banca:
|
||
cod_from = mask.get(F_DA_DATA2);
|
||
cod_to = mask.get(F_A_DATA2);
|
||
from.put(EFF_DATASCAD,cod_from);
|
||
to.put(EFF_DATASCAD,cod_to);
|
||
cod_from = mask.get(F_DABAN);
|
||
cod_to = mask.get(F_ABAN);
|
||
if (cod_from.empty()) cod_from = "00000"; // per selezionare tutte
|
||
if (cod_to.empty()) cod_to = "99999"; // le banche di presentazione
|
||
filter = "";
|
||
filter << "(CODABIP>=" << cod_from << ")&&(CODABIP<=" << cod_to << ")" ;
|
||
select_cursor(_cur_2);
|
||
break;
|
||
|
||
case distinta:
|
||
cod_from = mask.get(F_DA_DATA3);
|
||
cod_to = mask.get(F_A_DATA3);
|
||
from.put(EFF_DATASCAD,cod_from);
|
||
to.put(EFF_DATASCAD,cod_to);
|
||
cod_from = mask.get(F_DADIST);
|
||
cod_to = mask.get(F_ADIST);
|
||
if (cod_from.empty()) cod_from = "00000000"; // per selezionare tutte
|
||
if (cod_to.empty()) cod_to = "99999999"; // le distinte
|
||
filter = "";
|
||
filter << "(NDIST>=" << cod_from << ") && (NDIST<=" << cod_to << ")" ;
|
||
cod_from = mask.get(F_DATIPODIST);
|
||
cod_to = mask.get(F_ATIPODIST);
|
||
if ((!cod_from.empty())&&(!cod_to.empty())&&(cod_from==cod_to)) // per selezionare un tipo
|
||
filter << "&&(TIPODIST==\"" << cod_from << "\")"; // di distinta
|
||
select_cursor(_cur_3);
|
||
break;
|
||
|
||
default:
|
||
break;
|
||
}
|
||
|
||
current_cursor()->setfilter(filter,TRUE);
|
||
current_cursor()->setregion(from, to);
|
||
|
||
set_real_picture("###.###.##@,@@");
|
||
_prima_volta=TRUE;
|
||
return TRUE;
|
||
}
|
||
|
||
bool TPrint_effetti_app::user_create()
|
||
{
|
||
_rel = new TRelation(LF_EFFETTI);
|
||
_rel->add(LF_REFFETTI, "NPROGTR==NPROGTR");
|
||
_rel->add(LF_CLIFO, "TIPOCF=='C'|CODCF==CODCF");
|
||
|
||
_cur_1 = add_cursor(new TCursor(_rel,"",3));//STAMPA PER SCADENZA
|
||
|
||
TString ordine = "CODABIP|DATASCAD|NPROGTR";//STAMPA PER BANCA
|
||
_cur_2 = add_cursor(new TSorted_cursor(_rel,ordine,"",3));
|
||
|
||
ordine = "TIPODIST|NDIST|NRIGADIST|DATASCAD|NPROGTR";//STAMPA PER DISTINTA
|
||
_cur_3 = add_cursor(new TSorted_cursor(_rel,ordine,"",3));
|
||
|
||
add_file(LF_EFFETTI);
|
||
enable_print_menu();
|
||
return TRUE;
|
||
}
|
||
|
||
bool TPrint_effetti_app::user_destroy()
|
||
{
|
||
if (_rel)
|
||
delete _rel;
|
||
return TRUE;
|
||
}
|
||
|
||
int ef0600(int argc, char* argv[])
|
||
{
|
||
TPrint_effetti_app app;
|
||
app.run(argc, argv, "Stampe Controllo Effetti");
|
||
return 0;
|
||
} |