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

Patch level :10.0 258

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :stampa movimenti percipienti: sistemata la richiesta 1) della RobbiVezz (aggiungere iva e totdoc alla stampa)


git-svn-id: svn://10.65.10.50/trunk@18522 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-03-16 12:40:15 +00:00
parent 13b1ddce03
commit 275613c469
3 changed files with 87 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

152
m770/772300.cpp
View File

@ -39,13 +39,14 @@ class TStampa_mov : public TPrintapp
TLocalisamfile* _rver; TLocalisamfile* _rver;
TArray _pagver; TArray _pagver;
TPercipiente _curr_perc, _prec_perc; TPercipiente _curr_perc, _prec_perc;
TString _ragsocER,_ragsocPE,_datadoc,_numdoc,_datastampa; TString _ragsocER, _ragsocPE, _datadoc, _numdoc, _datastampa;
int _anno, _codcaus, _codtrib, _ind, _nprog; int _anno, _codcaus, _codtrib, _ind, _nprog;
long _codditta,_codanagER,_codanagPE,_cod_da,_cod_a; long _codditta, _codanagER, _codanagPE, _cod_da,_cod_a;
char _tipoa,_tipoa_da,_tipoa_a; char _tipoa,_tipoa_da,_tipoa_a;
real _tot_imponpag,_tot_ritenpag,_tot_impvers; real _tot_imponpag, _tot_ritenpag, _tot_impvers, _iva, _totdoc, _tot_totdoc, _tot_iva;
real _g_tot_imp, _g_tot_ver, _g_tot_rit; real _g_tot_imp, _g_tot_ver, _g_tot_rit, _g_tot_totdoc, _g_tot_iva;
TDate _datada,_dataa; TDate _datada, _dataa;
protected: protected:
friend bool filter_func (const TRelation *); friend bool filter_func (const TRelation *);
virtual void on_config_change(); virtual void on_config_change();
@ -67,7 +68,8 @@ public:
void ragione_sociale(); void ragione_sociale();
int ricerca_causale(); int ricerca_causale();
void setta_righe_documento(); void setta_righe_documento();
void setta_righe_pagamenti(const TString&,const real&,const TString&,const real&,int); void setta_righe_pagamenti(const TString& datapag, const real& imponpag, const real& percent,
const real& ritenpag, int i);
void setta_righe_versamenti(char,char,const TString&,const TString&,const TString&,const real&,int); void setta_righe_versamenti(char,char,const TString&,const TString&,const TString&,const real&,int);
static bool codditta_hnd(TMask_field& f, KEY k); static bool codditta_hnd(TMask_field& f, KEY k);
// D = stampa ditta, S = stampa a livello di studio // D = stampa ditta, S = stampa a livello di studio
@ -152,9 +154,11 @@ bool TStampa_mov::preprocess_print(int file, int counter)
{ {
if (file == LF_SCPERC) if (file == LF_SCPERC)
{ {
_tot_imponpag = ZERO; _tot_imponpag = ZERO;
_tot_ritenpag = ZERO; _tot_ritenpag = ZERO;
_tot_impvers = ZERO; _tot_impvers = ZERO;
_tot_totdoc = ZERO;
_tot_iva = ZERO;
} }
return TRUE; return TRUE;
} }
@ -183,7 +187,7 @@ void TStampa_mov::ragione_sociale()
void TStampa_mov::setta_righe_documento() void TStampa_mov::setta_righe_documento()
{ {
set_row (_row, "%-4d", _nprog); /* Prima era 2 */ set_row (_row, "%-4d", _nprog); /* Prima era 2 */
if (_codcaus != 0) if (_codcaus != 0)
set_row (_row, "@5g%02d", _codcaus); set_row (_row, "@5g%02d", _codcaus);
if (_codtrib != 0) if (_codtrib != 0)
@ -191,49 +195,61 @@ void TStampa_mov::setta_righe_documento()
set_row (_row, "@13g%10s", (const char*) _datadoc); set_row (_row, "@13g%10s", (const char*) _datadoc);
set_row (_row, "@24g%-7s", (const char*) _numdoc); set_row (_row, "@24g%-7s", (const char*) _numdoc);
set_row (_row, "@30g%r", &_totdoc);
set_row (_row, "@44g%r", &_iva);
} }
void TStampa_mov::setta_righe_pagamenti(const TString& datapag,const real& imponpag, void TStampa_mov::setta_righe_pagamenti(const TString& datapag, const real& imponpag, const real& percent,
const TString& percent,const real& ritenpag,int i) const real& ritenpag, int i)
{ {
set_row (i, "@32g%10s", (const char*) datapag); set_row (i, "@58g%10s", (const char*) datapag);
set_row (i, "@43g%r", &imponpag); set_row (i, "@69g%r", &imponpag);
set_row (i, "@59g%s", (const char*) percent); set_row (i, "@83g%3ld", percent.integer());
set_row (i, "@65g%12r", &ritenpag); set_row (i, "@87g%r", &ritenpag);
} }
void TStampa_mov::setta_righe_versamenti(char luovers,char tipovers,const TString& dataver, void TStampa_mov::setta_righe_versamenti(char luovers, char tipovers, const TString& dataver,
const TString& serie,const TString& numero,const real& impvers,int j) const TString& serie, const TString& numero, const real& impvers, int j)
{ {
if (impvers != ZERO) if (impvers != ZERO)
{ {
set_row (j, "@79g%c", luovers); set_row (j, "@106g%c", luovers);
set_row (j, "@82g%c", tipovers); set_row (j, "@109g%c", tipovers);
set_row (j, "@84g%10s", (const char*) dataver); set_row (j, "@111g%10s", (const char*) dataver);
set_row (j, "@97g%s", (const char*) serie); set_row (j, "@124g%s", (const char*) serie);
set_row (j, "@103g%s", (const char*) numero); set_row (j, "@130g%s", (const char*) numero);
set_row (j, "@116g%r", &impvers); set_row (j, "@143g%r", &impvers);
} }
} }
void TStampa_mov::set_total_perc() void TStampa_mov::set_total_perc()
{ {
set_row (_row, "@20gTOTALE PERCIPIENTE@43g%r", &_tot_imponpag); set_row (_row, "@8gTOTALE PERCIPIENTE");
set_row (_row, "@62g%r", &_tot_ritenpag); set_row (_row, "@30g%r", &_tot_totdoc);
set_row (_row, "@44g%r", &_tot_iva);
set_row (_row, "@69g%r", &_tot_imponpag);
set_row (_row, "@87g%r", &_tot_ritenpag);
set_row (_row, "@116g%r", &_tot_impvers); set_row (_row, "@116g%r", &_tot_impvers);
set_row (_row+1, ""); set_row (_row+1, "");
_g_tot_imp += _tot_imponpag; _g_tot_imp += _tot_imponpag;
_g_tot_rit += _tot_ritenpag; _g_tot_rit += _tot_ritenpag;
_g_tot_ver += _tot_impvers; _g_tot_ver += _tot_impvers;
_g_tot_totdoc += _tot_totdoc;
_g_tot_iva += _tot_iva;
_tot_imponpag = _tot_ritenpag = _tot_impvers = ZERO; _tot_imponpag = _tot_ritenpag = _tot_impvers = _tot_totdoc = _tot_iva = ZERO;
} }
void TStampa_mov::set_global_total() void TStampa_mov::set_global_total()
{ {
set_row (_row, "@20gTOTALE GENERALE @43g%r", &_g_tot_imp); _row++;
set_row (_row, "@62g%r", &_g_tot_rit); _row++;
set_row (_row, "@8gTOTALE GENERALE");
set_row (_row, "@30g%r", &_g_tot_totdoc);
set_row (_row, "@44g%r", &_g_tot_iva);
set_row (_row, "@69g%r", &_g_tot_imp);
set_row (_row, "@87g%r", &_g_tot_rit);
set_row (_row, "@116g%r", &_g_tot_ver); set_row (_row, "@116g%r", &_g_tot_ver);
set_row (_row+1, ""); set_row (_row+1, "");
} }
@ -250,11 +266,10 @@ bool TStampa_mov::find(TVersamento& vers)
bool TStampa_mov::preprocess_page(int file, int counter) bool TStampa_mov::preprocess_page(int file, int counter)
{ {
TString datapag,dataver,serie,numero; TString datapag, dataver, serie, numero;
TDate datadoc,datav; TDate datadoc,datav;
real imponpag,ritenpag,impvers,dep,dep2; real imponpag, ritenpag, impvers, iva, totdoc, percent, dep, dep2;
char luovers,tipovers; char luovers,tipovers;
real percent;
int i,j, numvers; int i,j, numvers;
i = j = _row = 1; i = j = _row = 1;
@ -265,22 +280,25 @@ bool TStampa_mov::preprocess_page(int file, int counter)
if (file == LF_SCPERC) if (file == LF_SCPERC)
{ {
reset_print(); reset_print();
TRectype sch_curr(current_cursor()->curr(LF_SCPERC)); const TRectype& sch_curr = current_cursor()->curr(LF_SCPERC);
_tipoa = current_cursor()->curr(LF_SCPERC).get (SPR_TIPOA)[0]; _tipoa = sch_curr.get_char(SPR_TIPOA);
_codanagPE = current_cursor()->curr(LF_SCPERC).get_long(SPR_CODANAGR); _codanagPE = sch_curr.get_long(SPR_CODANAGR);
_nprog = current_cursor()->curr(LF_SCPERC).get_int(SPR_NPROG); _nprog = sch_curr.get_int(SPR_NPROG);
_codcaus = current_cursor()->curr(LF_SCPERC).get_int (SPR_CODCAUS); _codcaus = sch_curr.get_int (SPR_CODCAUS);
_codtrib = ricerca_causale(); _codtrib = ricerca_causale();
datadoc = current_cursor()->curr(LF_SCPERC).get_date(SPR_DATADOC); datadoc = sch_curr.get_date(SPR_DATADOC);
_datadoc = datadoc.string(); _datadoc = datadoc.string();
_numdoc = current_cursor()->curr(LF_SCPERC).get (SPR_NUMDOC); _numdoc = sch_curr.get(SPR_NUMDOC);
_iva = sch_curr.get_real(SPR_IVA);
_totdoc = sch_curr.get_real(SPR_TOTALE);
const int anno_doc = datadoc.year(); const int anno_doc = datadoc.year();
TSchedaP scheda(sch_curr); TSchedaP scheda(sch_curr);
bool esiste_pag_anno_in_periodo = esiste_pag_in_periodo(scheda, _datada, _dataa); bool esiste_pag_anno_in_periodo = esiste_pag_in_periodo(scheda, _datada, _dataa);
bool stampa_scheda = (anno_doc == _anno_dic) || esiste_pag_anno_in_periodo; bool stampa_scheda = (anno_doc == _anno_dic) || esiste_pag_anno_in_periodo;
if (!stampa_scheda) if (!stampa_scheda)
return TRUE; return true;
_curr_perc.set(_tipoa, _codanagPE); _curr_perc.set(_tipoa, _codanagPE);
if (_curr_perc != _prec_perc) if (_curr_perc != _prec_perc)
@ -295,6 +313,10 @@ bool TStampa_mov::preprocess_page(int file, int counter)
_row++; _row++;
} }
_tot_totdoc += _totdoc;
_tot_iva += _iva;
//scrive i valori relativi al documento
setta_righe_documento(); setta_righe_documento();
i = j = _row; i = j = _row;
@ -316,17 +338,16 @@ bool TStampa_mov::preprocess_page(int file, int counter)
TDate datap(_rpag->get_date(PAG_DATAPAG)); TDate datap(_rpag->get_date(PAG_DATAPAG));
if (datap < _datada || datap > _dataa) continue; if (datap < _datada || datap > _dataa) continue;
datapag = datap.string(); datapag = datap.string();
imponpag = _rpag->get_real(PAG_IMPONIBILE); imponpag = _rpag->get_real(PAG_IMPONIBILE);
percent = _rpag->get_real(PAG_PERC); percent = _rpag->get_real(PAG_PERC);
TString16 st_perc(percent.string("###,@@")); ritenpag = _rpag->get_real(PAG_RITENUTA);
ritenpag = _rpag->get_real(PAG_RITENUTA); numvers = _rpag->get_int(PAG_NUMVERS);
numvers = _rpag->get_int(PAG_NUMVERS); nriga = _rpag->get_int(PAG_NRIGA);
nriga = _rpag->get_int(PAG_NRIGA);
_tot_imponpag += imponpag; _tot_imponpag += imponpag;
_tot_ritenpag += ritenpag; _tot_ritenpag += ritenpag;
setta_righe_pagamenti(datapag,imponpag,st_perc,ritenpag,i++); setta_righe_pagamenti(datapag, imponpag, percent, ritenpag, i++);
if (numvers < 0) continue; if (numvers < 0) continue;
@ -388,7 +409,9 @@ print_action TStampa_mov::postprocess_page(int file, int counter)
_row = 1; _row = 1;
set_total_perc(); set_total_perc();
_row++; _row++;
set_global_total(); set_global_total();
return REPEAT_PAGE; return REPEAT_PAGE;
} }
} }
@ -414,7 +437,7 @@ bool TStampa_mov::set_print(int)
} }
set_firm_770(codditta_prec); set_firm_770(codditta_prec);
// Non richiamare di nuovo print()! // Non richiamare di nuovo print()!
return FALSE; return false;
} }
else else
return init_print(); return init_print();
@ -424,9 +447,10 @@ bool TStampa_mov::init_print()
{ {
TMask msk ("772300a"); TMask msk ("772300a");
msk.set_handler (F_CODDITTA, codditta_hnd); msk.set_handler (F_CODDITTA, codditta_hnd);
printer().footerlen(3); printer().footerlen(3);
set_real_picture("###.###.###.###"); printer().set_char_size(8);
set_real_picture("#.###.###.###");
set_magic_currency(TRUE); set_magic_currency(TRUE);
_g_tot_imp = _g_tot_rit = _g_tot_ver = ZERO; _g_tot_imp = _g_tot_rit = _g_tot_ver = ZERO;
@ -472,7 +496,6 @@ bool TStampa_mov::init_print()
current_cursor()->setregion(da, a); current_cursor()->setregion(da, a);
// viene ordinato per numero pagamento e numero versamento // viene ordinato per numero pagamento e numero versamento
// _pagver.sort(compare_rows);
dati_erogante(); dati_erogante();
stampa_dati_erog_perc(); stampa_dati_erog_perc();
//intesta_fissa(); //intesta_fissa();
@ -523,7 +546,7 @@ void TStampa_mov::dati_erogante()
void TStampa_mov::stampa_dati_erog_perc() void TStampa_mov::stampa_dati_erog_perc()
{ {
TString sep; TString sep;
TString app(132); TString app(198);
reset_header(); reset_header();
// 7.12.95 Numero di pagina qui! // 7.12.95 Numero di pagina qui!
@ -537,19 +560,11 @@ void TStampa_mov::stampa_dati_erog_perc()
set_header(3,(const char*) sep); set_header(3,(const char*) sep);
app.fill('_'); app.fill('_');
set_header (5, (const char*) app); set_header (5, (const char*) app);
set_header (6, "Num.@5gCod.@13gDocumento@32gData@78gEstremi versamento@97gSerie@103gNumero"); set_header (6, "Num.@5gCod.@13gDOCUMENTO@58gPAGAMENTO@105gVERSAMENTO@124gSerie@130gNumero");
set_header (7, "Reg.@5gCaus.@13gData@24gNumero@48gImponibili@62g%%@69gRitenute@78gLV@81gTV@84gData@97gABI@103gCAB@116gImporto versato"); set_header (7, "Reg.@5gCaus.@13gData@24gNumero@35gTot.Doc.@53gIVA@58gData@72gImponibili@84g%%Rt@92gRitenute@105gLV@108gTV@111gData@124gABI@130gCAB@143gImporto versato");
set_header (8, (const char*) app); set_header (8, (const char*) app);
} }
/*
// Crea l'intestazione per la stampa a 132 e a 198 caratteri
void TStampa_mov::intesta_fissa()
{
set_background();
set_background("W4l{1 5 198 5} W4l{1 8 198 8}");
}
*/
bool TStampa_mov::user_create() bool TStampa_mov::user_create()
{ {
@ -557,9 +572,8 @@ bool TStampa_mov::user_create()
_section = name(); _section = name();
_section.cut(2); _section.cut(2);
_cnf = new TConfig(CONFIG_USER, _section); _cnf = new TConfig(CONFIG_USER, _section);
_rel = new TRelation (LF_SCPERC); _rel = new TRelation (LF_SCPERC);
_cur = new TCursor(_rel,"",2); _cur = new TCursor(_rel,"",2);
// _cur->set_filterfunction (filter_func);
add_cursor(_cur); add_cursor(_cur);
_nditte = new TLocalisamfile (LF_NDITTE); _nditte = new TLocalisamfile (LF_NDITTE);
@ -568,7 +582,7 @@ bool TStampa_mov::user_create()
_rver = new TLocalisamfile (LF_RVER); _rver = new TLocalisamfile (LF_RVER);
_codditta = get_firm_770(); _codditta = get_firm_770();
return TRUE; return true;
} }
bool TStampa_mov::user_destroy() bool TStampa_mov::user_destroy()
@ -579,7 +593,7 @@ bool TStampa_mov::user_destroy()
delete _rpag; delete _rpag;
delete _rver; delete _rver;
delete _cnf; delete _cnf;
return TRUE; return true;
} }
int m72300(int argc, char* argv[]) int m72300(int argc, char* argv[])

4
m770/77lib.h
View File

@ -190,7 +190,7 @@ class TSchedaP
int remove(); int remove();
TSchedaP (const long codditta=0L, const char tipoa=0, const long codanagr=0L, const int nprog=0); TSchedaP (const long codditta=0L, const char tipoa=0, const long codanagr=0L, const int nprog=0);
TSchedaP (TRectype& rec); TSchedaP (const TRectype& rec);
~TSchedaP(); ~TSchedaP();
}; };
@ -291,7 +291,7 @@ class TVersamento
_codditta(codditta), _tipoa(tipoa), _codanagr(codanagr), _nprog(nprog), _nriga(nriga) _codditta(codditta), _tipoa(tipoa), _codanagr(codanagr), _nprog(nprog), _nriga(nriga)
{} {}
TVersamento(TRectype& rec); TVersamento(const TRectype& rec);
}; };
// per suddividere il versamento sui vari pagamenti // per suddividere il versamento sui vari pagamenti

4
m770/77lib01.cpp
View File

@ -949,7 +949,7 @@ TSchedaP::TSchedaP (const long codditta, const char tipoa, const long codanagr,
_compenso_doc = _spese_doc = ZERO; _compenso_doc = _spese_doc = ZERO;
} }
TSchedaP::TSchedaP(TRectype& rec) TSchedaP::TSchedaP(const TRectype& rec)
{ {
_codditta = rec.get_long("CODDITTA"); _codditta = rec.get_long("CODDITTA");
_tipoa = rec.get("TIPOA")[0]; _tipoa = rec.get("TIPOA")[0];
@ -957,7 +957,7 @@ TSchedaP::TSchedaP(TRectype& rec)
_nprog = rec.get_int("NPROG"); _nprog = rec.get_int("NPROG");
} }
TVersamento::TVersamento(TRectype& rec) TVersamento::TVersamento(const TRectype& rec)
{ {
_codditta = rec.get_long(VER_CODDITTA); _codditta = rec.get_long(VER_CODDITTA);
_tipoa = rec.get(VER_TIPOA)[0]; _tipoa = rec.get(VER_TIPOA)[0];