root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ef/ef0600.cpp
alex f9212a2435 Patch level : XX.250 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Riportata la versione aga 07 patch 250 sul main trunk


git-svn-id: svn://10.65.10.50/trunk@10209 c028cbd2-c16b-5b4b-a496-9718f37d4682
2002-05-08 16:25:49 +00:00

971 lines
32 KiB
C++
Executable File
Raw Blame History

#include <config.h>
#include <mask.h>
#include <printapp.h>
#include <recarray.h>
#include <relation.h>
#include <tabutil.h>
#include <utility.h>
#include <clifo.h>
#include "ef0101.h"
#include "ef0600.h"
#define PICTURE_IMPORTO "###.###.###.##@,@@"
enum pt { st_undefined = 0, st_banca = 1, st_cliente = 2, st_distinta = 3, st_scadenza = 4};
//////////////////////////////////////////////////////////////////////
// Classe per le stampe di controllo degli effetti in portafoglio //
/////////////////////////////////////////////////////////////////////
class TPrint_effetti_app : public TPrintapp
{
pt _pr_type;
TRelation* _rel;
TPrintrow _pr;
TString _ban, _cli, _val, _data_stampa, _ban_prec;
TDate _scad_prec;
//TRectype* _rec_prec;
int _cur_1, _cur_2, _cur_3, _cur_4, _interline, _colonne;
long _dist_prec, _cliente_prec;
char _tipo_prec, _tipocf_prec;
real _tot_data, _tot_mese, _tot_banca, _tot_distinta, _tot_tip_dist, _tot_cliente, _tot_stampa;
bool _prima_volta;
bool _stampa_bancapp;
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();
virtual print_action postprocess_page(int file, int counter);
void header_scadenza();
void header_banca();
void header_distinta();
void header_cliente();
virtual bool user_create();
virtual bool user_destroy();
virtual bool set_print(int);
virtual void set_page (int file, int counter);
void write_bancapp();
void set_scadenza();
void set_banca();
void set_distinta();
void set_cliente();
const char* get_field(int ln, const char* fn) {return current_cursor()->curr(ln).get(fn);}
const char* look_tab(const char* tabname, const TString& cod,const char* fld="S0");
const TString& look_clifo(char tipo, long codcf, TString& cli) const;
void st_tot_scad();
void st_tot_mese();
void st_header_scad(const TDate& scad);
void st_header_ban(const TString& ban);
void st_header_dist(const char tipodist);
void st_header_cliente(const TString& cli);
TPrint_effetti_app();
virtual ~TPrint_effetti_app(){};
};
// Costruttore classe
TPrint_effetti_app::TPrint_effetti_app():TPrintapp(), _ban(11), _ban_prec(11), _cli(60), _val(3), _data_stampa(10)
{
_rel = NULL;
//_rec_prec = NULL;
_interline = 1;
}
// restituisce la ragione sociale del cliente compattata
const TString& TPrint_effetti_app::look_clifo(char tipo, long codcf, TString& cli) const
{
TString80 s;
s << tipo << '|' << codcf;
s = cache().get(LF_CLIFO, s, CLI_RAGSOC);
cli = s.left(30);
cli.trim();
s.ltrim(30);
cli << ' ' << s;
return cli;
}
// restituisce un campo di una tabella
const char* TPrint_effetti_app::look_tab(const char* tabname, const 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);
*/
return cache().get(tabname, cod, fld);
}
// stampa il totale per data di scadenza
void TPrint_effetti_app::st_tot_scad()
{
_pr.put("_____________________________________________________",46);
printer().print(_pr);
_pr.reset();
_pr.put("TOTALE",46); //sky totdata
_pr.put(_scad_prec.string(),53);
_pr.put(_tot_data.string(PICTURE_IMPORTO),63);
printer().print(_pr);
_tot_data = 0.0;
_pr.reset();
}
// stampa il totale per mese delle data di scadenza
void TPrint_effetti_app::st_tot_mese()
{
_pr.put("TOTALE",46); //sky totmese
if (_scad_prec.ok())
{
_pr.put(itom(_scad_prec.month()),53);
_pr.put(_tot_mese.string(PICTURE_IMPORTO),63);
}
printer().print(_pr);
_tot_mese = 0.0;
_pr.reset();
}
// stampa l'intestazione per mese data scadenza
// (dopo la "rottura" per mese)
void TPrint_effetti_app::st_header_scad(const TDate& scad)
{
if (scad.ok())
{
TString16 year = scad.string();
year = year.right(4);
_pr.put(itom(scad.month()),1);
_pr.put(year,10);
}
printer().print(_pr);
_pr.reset();
}
// stampa intestazione per banca di presentazione
// (dopo la "rottura" per banca)
void TPrint_effetti_app::st_header_ban(const TString& ban)
{
TString80 s = look_tab("%BAN",ban);
if (s.empty())
s = "Nessuna Banca di Presentazione";
_pr.put(s,1);
printer().print(_pr);
_pr.reset();
}
// stampa intestazione per distinta di presentazione
// (dopo la "rottura" per distinta)
void TPrint_effetti_app::st_header_dist(const char tipodist)
{
TString s = "Distinte";
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);
printer().print(_pr);
_pr.reset();
}
// stampa intestazione per cliente (dopo la "rottura" per cliente)
void TPrint_effetti_app::st_header_cliente(const TString& cli)
{
_pr.put(cli,1);
printer().print(_pr);
_pr.reset();
}
// viene settato l'header delle diverse stampe
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,
ditta(ditte.get("RAGSOC"));
s = ditta.mid(30,50);
s.trim();
ditta = ditta.mid(0,30);
ditta.trim();
ditta << " " << s;
set_header(j, "@bDitta: %ld %s@125gPag @#", firm, (const char*) ditta);
set_header(j++, "@b@102gData %s", (const char*) _data_stampa);
switch(_pr_type)
{
case st_scadenza:
header_scadenza();
break;
case st_banca:
header_banca();
break;
case st_distinta:
header_distinta();
break;
case st_cliente:
header_cliente();
break;
default:
break;
}
}
// setta l'header per la stampa per data di scadenza
void TPrint_effetti_app::header_scadenza()
{
int j =2;
set_header(j, "@52g@bSTAMPA RI.BA. PER SCADENZA"); j++;
set_header(j++, (const char *)(TString(_colonne).fill('_')));
TString head = "@b Scadenza Banca Cliente N.Riba N.Dist Importo Imp. in valuta Val Rata Data fattura N.";
if (_stampa_bancapp)
head << "@b ABI CAB Banca d'appoggio";
set_header(j++, head);
set_header(j, (const char *)(TString(_colonne).fill('_')));
}
// setta l'header per la stampa per banca di presentazione
void TPrint_effetti_app::header_banca()
{
int j = 2;
set_header(j, "@45g@bSTAMPA RI.BA. PER BANCHE DI PRESENTAZIONE"); j++;
set_header(j++, (const char *)(TString(_colonne).fill('_')));
TString head = "@b Banca Scadenza Cliente N.Riba N.Dist Importo Imp. in valuta Val Rata Data fattura N.";
if (_stampa_bancapp)
head << "@b ABI CAB Banca d'appoggio";
set_header(j++, head);
set_header(j, (const char *)(TString(_colonne).fill('_')));
}
// setta l'header per la stampa per distinta di presentazione
void TPrint_effetti_app::header_distinta()
{
int j = 2;
set_header(j, "@55g@bSTAMPA RI.BA. PER DISTINTE"); j++;
set_header(j++, (const char *)(TString(_colonne).fill('_')));
set_header(j++, "@b Distinta ");
TString head = "@bTp. Num. N.Riba Scadenza Banca Cliente Importo Imp. in valuta Val Rata Data fattura N.";
if (_stampa_bancapp)
head << "@b ABI CAB Banca d'appoggio";
set_header(j++, head);
set_header(j, (const char *)(TString(_colonne).fill('_')));
}
// setta l'header per la stampa per cliente
void TPrint_effetti_app::header_cliente()
{
int j = 2;
set_header(j, "@52g@bSTAMPA RI.BA. PER CLIENTE"); j++;
set_header(j++, (const char *)(TString(_colonne).fill('_')));
TString head = "@b Cliente Scadenza Banca N.Riba N.Dist Importo Imp. in valuta Val Rata Data fattura N.";
if (_stampa_bancapp)
head << "@b ABI CAB Banca d'appoggio";
set_header(j++, head);
set_header(j, (const char *)(TString(_colonne).fill('_')));
}
// svolge operazioni di chiusura dei totali pendenti dalla stampa
// che <20> ormai terminata
print_action TPrint_effetti_app::postprocess_print(int file, int counter)
{
TString s;
if (_tot_data != 0.0)
st_tot_scad();
if(_tot_mese != 0.0)
st_tot_mese();
if (_tot_banca != 0.0)
{
_pr.put("TOTALE",46);
_pr.put(_tot_banca.string(PICTURE_IMPORTO),63);
printer().print(_pr);
_pr.reset();
s = (look_tab("%BAN",_ban_prec));
if (s.empty())
s = "Nessuna Banca di Presentazione";
_pr.put(s,52);
printer().print(_pr);
_tot_banca = 0.0;
_pr.reset();
}
if (_tot_distinta != 0.0 &&_dist_prec != 0)
{
_pr.put("_____________________________________________________",46);
printer().print(_pr);
_pr.reset();
_pr.put("TOTALE",46);
s = "Distinta ";
s << _dist_prec << " " << _tipo_prec ;
_pr.put(s,57);
_pr.put(_tot_distinta.string(PICTURE_IMPORTO),63);
printer().print(_pr);
_tot_distinta = 0.0;
_pr.reset();
}
if (_tot_tip_dist != 0.0)
{
if (_dist_prec == 0)
{
_pr.put("_____________________________________________________",46);
printer().print(_pr);
_pr.reset();
}
_pr.put("TOTALE",46);
_pr.put(_tot_tip_dist.string(PICTURE_IMPORTO),63);
printer().print(_pr);
_pr.reset();
s = "Distinte";
switch(_tipo_prec)
{
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,52);
printer().print(_pr);
_tot_tip_dist = 0.0;
_pr.reset();
}
if (_tot_cliente != 0.0)
{
TString ragsoc;
_pr.put("TOTALE",46); //sky totultcli
_pr.put(_tot_cliente.string(PICTURE_IMPORTO),63);
printer().print(_pr);
_pr.reset();
TString80 cli;
_pr.put((look_clifo(_tipocf_prec, _cliente_prec,cli)),52);
printer().print(_pr);
_tot_cliente = 0.0;
_pr.reset();
}
if (_tot_stampa != 0.0)
{
_pr.reset();
_pr.put("_____________________________________________________",46);
printer().print(_pr);
_pr.reset();
_pr.put("TOTALE ",46);
_pr.put(_tot_stampa.string(PICTURE_IMPORTO),63);
printer().print(_pr);
_pr.reset();
_pr.put("RI.BA. STAMPATE",52);
printer().print(_pr);
_pr.reset();
_pr.put("_____________________________________________________",46);
printer().print(_pr);
_pr.reset();
_tot_stampa = 0.0;
}
return NEXT_PAGE;
}
print_action TPrint_effetti_app::postprocess_page(int file, int counter)
{
reset_print();
return NEXT_PAGE;
}
// setta, secondo il tipo di stampa scelto, la pagina logica
void TPrint_effetti_app::set_page(int file, int counter)
{
switch(_pr_type)
{
case st_scadenza:
set_scadenza();
break;
case st_banca:
set_banca();
break;
case st_distinta:
set_distinta();
break;
case st_cliente:
set_cliente();
break;
default:
break;
}
}
// scrive,se richiesto nella maschera, ABI CAB descABI descCAB della banca di APPOGGIO dell'effetto
void TPrint_effetti_app::write_bancapp()
{
if (_stampa_bancapp)
{
const TRectype& rec = current_cursor()->curr();
const TString8 codabi = rec.get(EFF_CODABI);
TString16 codcab; codcab << codabi << rec.get(EFF_CODCAB);
// TString descabi = look_tab("%BAN", codabi); la descrizione dell'abi viene omessa per problemi di spazio
TString desccab = look_tab("%BAN", codcab);
set_row(2,"@133g@pn @pn %s",
FLD(LF_EFFETTI, EFF_CODABI, "@@@@@"),
FLD(LF_EFFETTI, EFF_CODCAB, "@@@@@"),
(const char*)desccab);
}
}
// setta la pagina logica nel caso di stampa per data di scadenza
void TPrint_effetti_app::set_scadenza()
{
set_row(1," ");
set_row(2,"@1g@s@13g#t@26g#t@49g@pn@55g@pn@63g@pn@105g@pn@111g@s@125g@n",
FLD(LF_EFFETTI, EFF_DATASCAD),
&_ban,
&_cli,
FLD(LF_EFFETTI, EFF_NPROGTR, "#####@"),
FLD(LF_EFFETTI, EFF_NDIST, "#######@"),
FLD(LF_EFFETTI, EFF_IMPORTO, PICTURE_IMPORTO),
FLD(LF_REFFETTI, REFF_NRATA,"##@"),
FLD(LF_REFFETTI, REFF_DATAFATT),
FLD(LF_REFFETTI, REFF_NFATT,"######"));
const TString8 valuta = current_cursor()->curr().get(EFF_CODVAL);
if (!is_firm_value(valuta)) //effetto in valuta diversa da quella di conto
{
set_row(2,"@81g@pn@100g%s",
FLD(LF_EFFETTI, EFF_IMPORTOVAL, PICTURE_IMPORTO),
(const char *)valuta);
}
write_bancapp();
for(int i = 0; i < _interline; i++) set_row(i+1," ");
}
// setta la pagina logica nel caso di stampa per banca di presentazione
void TPrint_effetti_app::set_banca()
{
set_row(1," ");
set_row(2,"@1g#t@14g@s@26g#t@49g@pn@55g@pn@63g@pn@105g@pn@111g@s@125g@pn",
&_ban,
FLD(LF_EFFETTI, EFF_DATASCAD),
&_cli,
FLD(LF_EFFETTI, EFF_NPROGTR, "#####@"),
FLD(LF_EFFETTI, EFF_NDIST, "#######@"),
FLD(LF_EFFETTI, EFF_IMPORTO, PICTURE_IMPORTO),
FLD(LF_REFFETTI, REFF_NRATA,"##@"),
FLD(LF_REFFETTI, REFF_DATAFATT),
FLD(LF_REFFETTI, REFF_NFATT,"######"));
const TString8 valuta = current_cursor()->curr().get(EFF_CODVAL);
if (!is_firm_value(valuta)) //effetto in valuta diversa da quella di conto
{
set_row(2,"@81g@pn@100g%s",
FLD(LF_EFFETTI, EFF_IMPORTOVAL, PICTURE_IMPORTO),
(const char *)valuta);
}
write_bancapp();
for(int i = 0; i < _interline; i++) set_row(i+1,"");
}
// setta la pagina logica nel caso di stampa per distinta di presentazione
void TPrint_effetti_app::set_distinta()
{
set_row(1," ");
set_row(2,"@1g@s@3g@pn@12g@pn@19g@ld@30g#t@42g#-20t@63g@pn@105g@pn@111g@s@125g@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, PICTURE_IMPORTO),
FLD(LF_REFFETTI, REFF_NRATA,"##@"),
FLD(LF_REFFETTI, REFF_DATAFATT),
FLD(LF_REFFETTI, REFF_NFATT,"######"));
const TString8 valuta = current_cursor()->curr().get(EFF_CODVAL);
if (!is_firm_value(valuta)) //effetto in valuta diversa da quella di conto
{
set_row(2,"@81g@pn@100g%s",
FLD(LF_EFFETTI, EFF_IMPORTOVAL, PICTURE_IMPORTO),
(const char *)valuta);
}
write_bancapp();
for(int i = 0; i < _interline; i++) set_row(i+1,"");
}
// setta la pagina logica nel caso di stampa per cliente
void TPrint_effetti_app::set_cliente()
{
set_row(1," ");
set_row(2,"@5g@pn@25g@s@37g#t@49g@pn@55g@pn@63g@pn@105g@pn@111g@s@125g@pn",
FLD(LF_EFFETTI, EFF_CODCF,"@@@@@@"),
FLD(LF_EFFETTI, EFF_DATASCAD),
&_ban,
FLD(LF_EFFETTI, EFF_NPROGTR, "#####@"),
FLD(LF_EFFETTI, EFF_NDIST, "#######@"),
FLD(LF_EFFETTI, EFF_IMPORTO, PICTURE_IMPORTO),
FLD(LF_REFFETTI, REFF_NRATA,"##@"),
FLD(LF_REFFETTI, REFF_DATAFATT),
FLD(LF_REFFETTI, REFF_NFATT,"######"));
const TString8 valuta = current_cursor()->curr().get(EFF_CODVAL);
if (!is_firm_value(valuta)) //effetto in valuta diversa da quella di conto
{
set_row(2,"@81g@pn@100g%s",
FLD(LF_EFFETTI, EFF_IMPORTOVAL, PICTURE_IMPORTO),
(const char *)valuta);
}
write_bancapp();
for(int i = 0; i < _interline; i++) set_row(i+1," ");
}
// effettua operazioni preliminari alla stampa
bool TPrint_effetti_app::preprocess_page(int file, int counter)
{
TString s;
// scarico i dati, dal record corrente del cursore, che mi
// necessitano per effettuare la "rorrura della stampa"
TRectype& rec = current_cursor()->curr();
const TDate scad = rec.get_date (EFF_DATASCAD);
TString ban = rec.get (EFF_CODABIP);
long dist = rec.get_long (EFF_NDIST);
char tipodist = rec.get_char(EFF_TIPODIST);
long cliente = rec.get_long (EFF_CODCF);
char tipocf = rec.get_char(EFF_TIPOCF);
real importo = rec.get_real(EFF_IMPORTO);
// elaboro le seguenti stringhe per la stampa
if (ban=="00000")
ban = "";
_ban = get_field(LF_EFFETTI, EFF_CODABIP);
if (_ban=="00000")
_ban = "";
s = get_field(LF_EFFETTI, EFF_CODCABP);
if (s=="00000")
s = "";
_ban << " " << s;
_cli = get_field(LF_CLIFO, CLI_RAGSOC);
s = _cli.mid(30,50); s.trim();
_cli = _cli.mid(0,30); _cli.trim();
_cli << " " << s;
if (_pr_type != st_cliente)
_cli = _cli.left(25);
_val = get_field(LF_EFFETTI, EFF_CODVAL);
// se <20> la prima volta che stampo devo inizializzare i dati di
// controllo "rottura stampa" e stampare l' header relativo
// alla stampa selezionata
if (_prima_volta)
{
_prima_volta = FALSE;
//_rec_prec = &rec;
switch(_pr_type)
{
case st_scadenza:
_scad_prec = scad;
st_header_scad(scad);
break;
case st_banca:
_scad_prec = scad;
_ban_prec = ban;
st_header_ban(ban);
break;
case st_distinta:
_scad_prec = scad;
_dist_prec = dist;
_tipo_prec = tipodist;
st_header_dist(tipodist);
break;
case st_cliente:
_scad_prec = scad;
_cliente_prec = cliente;
_tipocf_prec = tipocf;
st_header_cliente(_cli);
break;
default:
break;
}
}
//else
{
// se effetto raggruppato stampo la lista delle fatture a cui si
// riferisce (dalla seconda poich<63> la prima viene sempre stampata
// nella pagina logica)
TEffetto effetto(rec);// = *_rec_prec;
long num = effetto.numero();
// prendo dall'effetto tutti i dati relativi alle fatture, che
// vengono inseriti nella Token_String nell'ordine
// NUMERO FATTURA|DATA FATTURA|IMPORTO FATTURA
TToken_string dati; effetto.dati_fatt(num, FALSE, dati);
int elem = dati.items();
if (elem > 3)
{
TString descfatt;
int j=3;
for (int i = 3; i < elem; i+=3)
{
descfatt = dati.get(i+1);// prendo la data della fattura
descfatt << " ";
descfatt << dati.get(i);// prendo il numero della fattura
_pr.reset();
if (_pr_type == st_scadenza || _pr_type == st_cliente )
_pr.put(descfatt, 111);
if (_pr_type == st_banca || _pr_type == st_distinta )
_pr.put(descfatt, 114);
//printer().print(_pr);
set_row(j++,_pr);
_pr.reset();
}
}
}
// a seconda del tipo di stampa che devo effettuare svolgo i controlli per la "rottura stampa"
switch(_pr_type)
{
case st_scadenza:
// <20> cambiata la data di scadenza, stampo il relativo totale
if (scad != _scad_prec)
st_tot_scad();
// <20> cambiato il mese della la data di scadenza, stampo il relativo totale
// ed il nuovo header del mese
if (scad.month() !=_scad_prec.month())
{
st_tot_mese();
_pr.reset();
printer().print(_pr);
st_header_scad(scad);
}
_scad_prec = scad;
_tot_data += importo;
_tot_mese += importo;
_tot_stampa += importo ;
break;
case st_banca:
// <20> cambiata la data di scadenza, stampo il relativo totale
if (scad != _scad_prec)
st_tot_scad();
// <20> cambiato il mese della la data di scadenza,
// stampo il relativo totale
if (scad.month() !=_scad_prec.month())
st_tot_mese();
// stampo i totali di data e di mese nel caso in cui cambi
// la banca ma non la data o il mese
if (ban !=_ban_prec)
{
if (scad == _scad_prec)
st_tot_scad();
if (scad.month() ==_scad_prec.month())
st_tot_mese();
// stampo totale banca
_pr.put("TOTALE",46);
_pr.put(_tot_banca.string(PICTURE_IMPORTO),63);
printer().print(_pr);
_pr.reset();
s = (look_tab("%BAN",_ban_prec));
if (s.empty())
s = "Nessuna Banca di Presentazione";
_pr.put(s,52);
printer().print(_pr);
_tot_banca = 0.0;
_pr.reset();
printer().print(_pr);
// stampo nuovo header banca
st_header_ban(ban);
}
_scad_prec = scad;
_ban_prec = ban;
_tot_data += importo;
_tot_banca += importo;
_tot_mese += importo;
_tot_stampa += importo ;
break;
case st_distinta:
// <20> cambiato il numero distinta, stampo il relativo totale
// <20> cambiato il mese della la data di scadenza, stampo il relativo totale
// ed il nuovo header del mese
if (scad.month() !=_scad_prec.month())
{
st_tot_mese();
_pr.reset();
printer().print(_pr);
st_header_scad(scad);
}
if (dist !=_dist_prec)
{
if (scad.month() ==_scad_prec.month())
st_tot_mese();
//il totale per nessuna distinta si fa solo per tipo
if (_dist_prec != 0)
{
_pr.put("_____________________________________________________",46);
printer().print(_pr);
_pr.reset();
_pr.put("TOTALE",46);
s = "Distinta ";
s << _tipo_prec << " "<< _dist_prec;
_pr.put(s,57);
_pr.put(_tot_distinta.string(PICTURE_IMPORTO),63);
printer().print(_pr);
_tot_distinta = 0.0;
_pr.reset();
}
// <20> cambiato il tipo distinta, stampo il relativo totale
if(tipodist != _tipo_prec)
{
if (_dist_prec == 0)
{
_pr.put("_____________________________________________________",46);
printer().print(_pr);
_pr.reset();
}
_pr.put("TOTALE",46);
_pr.put(_tot_tip_dist.string(PICTURE_IMPORTO),63);
printer().print(_pr);
_pr.reset();
s = "Distinte";
switch(_tipo_prec)
{
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,52);
printer().print(_pr);
_tot_tip_dist = 0.0;
_pr.reset();
printer().print(_pr);
st_header_dist(tipodist);
}
}
_scad_prec = scad;
_dist_prec = dist;
_tipo_prec = tipodist;
_tot_distinta += importo;
_tot_tip_dist += importo;
_tot_mese += importo;
_tot_stampa += importo ;
break;
case st_cliente:
// <20> cambiata la data di scadenza, stampo il relativo totale
if (scad != _scad_prec)
st_tot_scad();
// <20> cambiato il mese della la data di scadenza,
// stampo il relativo totale
if (scad.month() !=_scad_prec.month())
st_tot_mese();
// stampo i totali di data e di mese nel caso in cui cambi
// il cliente ma non la data o il mese
if (tipocf != _tipocf_prec || cliente !=_cliente_prec)
{
if (scad == _scad_prec)
st_tot_scad();
if (scad.month() ==_scad_prec.month())
st_tot_mese();
// stampo totale cliente
_pr.put("TOTALE",46); //sky totcli
_pr.put(_tot_cliente.string(PICTURE_IMPORTO),63);
printer().print(_pr);
_pr.reset();
TString80 cli;
_pr.put((look_clifo(_tipocf_prec, _cliente_prec, cli)),52);
printer().print(_pr);
_tot_cliente = 0.0;
_pr.reset();
printer().print(_pr);
st_header_cliente(_cli);
}
_cliente_prec = cliente;
_tipocf_prec = tipocf;
_scad_prec = scad;
_tot_cliente += importo;
_tot_data += importo;
_tot_mese += importo;
_tot_stampa += importo ;
break;
default:
break;
}
return TRUE;
}
// permette di eseguire qualcosa prima della richiesta del un processo
// di stampa
bool TPrint_effetti_app::preprocess_print(int file, int counter)
{
// forza la rilettura di set_page
reset_print();
return TRUE;
}
bool TPrint_effetti_app::set_print(int)
{
disable_links();
set_multiple_link(FALSE);
// richiamo la maschera di scelta del tipo di stampa
TMask mask("ef0600a.msk");
mask.run();
force_setpage(FALSE);
if (mask.last_key() == K_QUIT)
return FALSE;
_pr_type = (pt) mask.get_int(RDB_TIPOST);
TDate data_stampa (mask.get(F_DATA_STAMPA));
_data_stampa = data_stampa.string();
_stampa_bancapp = mask.get_bool(F_BANCA_APP);
_colonne = _stampa_bancapp ? 198 : 132;
// inizializzo i record di scelta del cursore
TRectype from(current_cursor()->curr());
from.zero();
TRectype to(from);
TString cod_from, cod_to, filter;
// a seconda del tipo di stampa scelta , seleziono il curore
// da utilizzare ed imposto i campi per la regione e il filtro
// del cursore
switch(_pr_type)
{
case st_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 st_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()) // le banche di presentazione
cod_to = "99999";
filter = "";
filter << "(CODABIP>=" << cod_from << ")&&(CODABIP<=" << cod_to << ")";
select_cursor(_cur_2);
break;
case st_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);
filter.cut(0);
const TString16 tipodist(mask.get(F_DATIPODIST));
if (tipodist.not_empty())
{
if (cod_from.not_empty())
filter << "STR(NDIST>=" << cod_from << ")&&";
if (cod_to.not_empty()) // le distinte
filter << "STR(NDIST<=" << cod_to << ")&&";
filter << "(TIPODIST==\"" << tipodist << "\")";
}
else
filter << "(NDIST<=\"\")";
select_cursor(_cur_3);
}
break;
case st_cliente:
{
cod_from = mask.get(F_DA_DATA4);
cod_to = mask.get(F_A_DATA4);
from.put(EFF_DATASCAD,cod_from);
to.put(EFF_DATASCAD,cod_to);
cod_from = mask.get(F_DACLI);
cod_to = mask.get(F_ACLI);
if (cod_from.empty())
cod_from = "000000"; // per selezionare tutti
if (cod_to.empty()) // i clienti
cod_to = "999999";
from.put(EFF_CODCF,cod_from);
to.put(EFF_CODCF,cod_to);
filter = "";
filter << "(TIPOCF == \"" << mask.get(F_TIPOCF) << "\")&&";
filter << "(CODCF>=" << cod_from << ")&&(CODCF<=" << cod_to << ")" ;
select_cursor(_cur_4);
}
break;
default:
break;
}
current_cursor()->setfilter(filter,TRUE);
current_cursor()->setregion(from, to);
// setta il formato di stampa di tutti i reali
set_real_picture(PICTURE_IMPORTO);
_prima_volta=TRUE;
return TRUE;
}
// crea l'applicazione
bool TPrint_effetti_app::user_create()
{
_rel = new TRelation(LF_EFFETTI);
_rel->add(LF_REFFETTI, "NPROGTR==NPROGTR");
// aggiunto solo per poter usare l'oggetto TEffetto (serve il file
// aperto anche se non viene usato direttamente)
_rel->add(LF_CESS, "NPROGTR==NPROGTR");
_rel->add(LF_CLIFO, "TIPOCF==TIPOCF|CODCF==CODCF");
//STAMPA PER SCADENZA
_cur_1 = add_cursor(new TCursor(_rel,"",3));
//STAMPA PER BANCA
TString ordine = "CODABIP|DATASCAD|NPROGTR";
_cur_2 = add_cursor(new TSorted_cursor(_rel,ordine,"",3));
//STAMPA PER DISTINTA
ordine = "TIPODIST|NDIST|NRIGADIST|DATASCAD|NPROGTR";
_cur_3 = add_cursor(new TSorted_cursor(_rel,ordine,"",3));
//STAMPA PER CLIENTE
ordine = "CODCF|NPROGTR";
_cur_4 = add_cursor(new TSorted_cursor(_rel,ordine,"",3));;
add_file(LF_EFFETTI);
enable_print_menu();
return TRUE;
}
// distrugge l'applicazione
bool TPrint_effetti_app::user_destroy()
{
if (_rel)
delete _rel;
//if (_rec_prec)
// delete _rec_prec;
return TRUE;
}
int ef0600(int argc, char* argv[])
{
TPrint_effetti_app app;
app.run(argc, argv, "Stampe Controllo Effetti");
return 0;
}
Reference in New Issue View Git Blame Copy Permalink