Aggiunta stampa scaduto.
git-svn-id: svn://10.65.10.50/trunk@2223 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
754fcfa868
commit
e057d0b9f7
816
sc/sc2300.cpp
Executable file
816
sc/sc2300.cpp
Executable file
@ -0,0 +1,816 @@
|
||||
#ifndef __PRINTAPP_H
|
||||
#include <printapp.h>
|
||||
#endif
|
||||
|
||||
#ifndef __CONFIG_H
|
||||
#include <config.h>
|
||||
#endif
|
||||
|
||||
#ifndef __ASSOC_H
|
||||
#include <assoc.h>
|
||||
#endif
|
||||
|
||||
#ifndef __SALDACON_H
|
||||
#include "../cg/saldacon.h"
|
||||
#endif
|
||||
|
||||
#ifndef __DITTE_H
|
||||
#include <nditte.h>
|
||||
#endif
|
||||
|
||||
#ifndef __CLIFO_H
|
||||
#include <clifo.h>
|
||||
#endif
|
||||
|
||||
#ifndef __PCONTI_H
|
||||
#include <pconti.h>
|
||||
#endif
|
||||
|
||||
#ifndef __PARTITE_H
|
||||
#include <partite.h>
|
||||
#endif
|
||||
|
||||
#ifndef __SCADENZE_H
|
||||
#include <scadenze.h>
|
||||
#endif
|
||||
|
||||
#include <pagsca.h>
|
||||
|
||||
#include "sc2.h"
|
||||
#include "sc2201.h"
|
||||
#include "sc2300.h"
|
||||
|
||||
|
||||
enum tipo_st {nessuno=0, tutti=1, clienti=2, fornitori=3, altri=4};
|
||||
|
||||
const char * scaglioni[9] =
|
||||
{"0 gg","+15 gg","+30 gg","+45 gg","+60 gg","+30 gg","+60 gg","+90 gg","+120 gg"};
|
||||
|
||||
bool fil_function(const TRelation *);
|
||||
|
||||
struct _LineTotal : public TObject //Oggetto di base per i TAssoc_array dei totali
|
||||
{
|
||||
real _rd, // Residuo documento
|
||||
_ns, // Non scaduto
|
||||
_bf, // In attesa buon fine
|
||||
_s1, // Scaglione 1
|
||||
_s2, // Scaglione 2
|
||||
_s3, // Scaglione 3
|
||||
_s4, // Scaglione 4
|
||||
_s5, // Scaglione 5
|
||||
_s6; // Scaglione 6
|
||||
virtual TObject* dup() const { return new _LineTotal(*this); }
|
||||
_LineTotal() {_rd = 0.0; _ns = 0.0; _bf = 0.0; _s1 = 0.0;
|
||||
_s2 = 0.0; _s3 = 0.0; _s4 = 0.0; _s5 = 0.0; _s6 = 0.0;}
|
||||
};
|
||||
|
||||
class TStampaScaduto : public TPrintapp
|
||||
{
|
||||
TRelation *_rel1, *_rel2; // Relazioni di lavoro...
|
||||
int _cur1, _cur2, // Identificatori dei cursori di lavoro...
|
||||
_cur3, _cur4;
|
||||
|
||||
//TBit_array _cs;
|
||||
TSelection_ext_mask *_m;
|
||||
TLocalisamfile *_scad,*_pagsca;
|
||||
tipo_st _tipost; // Tipo di stampa impostato
|
||||
bool _end_printed,
|
||||
_stvaluta,
|
||||
_ordcod; // VERO=ordine per codice, FALSO=ordine per ragione sociale
|
||||
TString _anno,_numdoc,_protiva,_datadoc,_codval,_residuo,
|
||||
_nonscad,_buonfin,_sc_1,_sc_2,_sc_3,_sc_4,_sc_5,
|
||||
_sc_6, _cod, _cod_pre, _des;
|
||||
TDate _limop, _limscad, _datas, _limbf; // Data limite operazione, data limite scaduto e data di stampa
|
||||
int _gcr; // Giorni per Calcolo Rischio (valido solo per stampa clienti)
|
||||
real _unsnc,_uns; // Unassigned per partita.
|
||||
TArray _t, // Array per i totali
|
||||
_s_date; // Date per lo scaduto
|
||||
TAssoc_array _save_assoc; // Questo serve per tenere in memoria il totale
|
||||
|
||||
friend bool fil_function(const TRelation *);
|
||||
|
||||
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 print_action postprocess_page(int file, int counter);
|
||||
virtual void preprocess_header() {};
|
||||
virtual bool user_create();
|
||||
virtual bool user_destroy();
|
||||
virtual bool set_print(int);
|
||||
void set_page_clifoco(int& nriga);
|
||||
void set_page_part(int& nriga);
|
||||
virtual void set_page (int file, int counter);
|
||||
void print_totali_rows(int& nriga, bool what);
|
||||
void print_totali(int& nriga);
|
||||
void print_header();
|
||||
void save_totals();
|
||||
void restore_totals();
|
||||
void update_totals(bool what,real& res,real& non,real& buo,
|
||||
real& s1,real& s2,real& s3,real& s4,real& s5, real& s6);
|
||||
void compute_unassigned(TPartita& p);
|
||||
void compute_all(TPartita& p);
|
||||
TStampaScaduto();
|
||||
};
|
||||
|
||||
inline TStampaScaduto& app() {return (TStampaScaduto&)main_app();}
|
||||
|
||||
bool fil_function(const TRelation *r)
|
||||
{
|
||||
TLocalisamfile* part = &(r->lfile(LF_PARTITE));
|
||||
TRecnotype n;
|
||||
int nriga = part->get_int(PART_NRIGA);
|
||||
bool rt = FALSE;
|
||||
TCursor_sheet_recno& cs = app()._m->cur_sheet();
|
||||
TCursor* c = cs.cursor();
|
||||
|
||||
switch (app()._tipost)
|
||||
{
|
||||
case clienti:
|
||||
case fornitori:
|
||||
{
|
||||
TLocalisamfile * clifo = &(r->lfile(LF_CLIFO));
|
||||
n=clifo->recno();
|
||||
}
|
||||
break;
|
||||
case altri:
|
||||
{
|
||||
TLocalisamfile * pcon = &(r->lfile(LF_PCON));
|
||||
n=pcon->recno();
|
||||
}
|
||||
default:break;
|
||||
}
|
||||
if (nriga == 1 && cs.rec_checked(n))
|
||||
rt=TRUE;
|
||||
return rt;
|
||||
}
|
||||
|
||||
void TStampaScaduto::save_totals()
|
||||
// Sto' salvataggio serve per memorizzare i totali nel caso in preprocess_page sia ritornato FALSE
|
||||
// evitando percio' strane somme di totali o mancanze di essi.
|
||||
{
|
||||
TAssoc_array& a = (TAssoc_array&) _t[0];
|
||||
TString_array as;
|
||||
const int items = a.items();
|
||||
a.get_keys(as);
|
||||
_save_assoc.destroy();
|
||||
for (int i = 0; i < items; i++)
|
||||
{
|
||||
TString k(as.row(i)); // Chiave di ordinamento(valuta)
|
||||
_LineTotal& v = (_LineTotal&)a[k];
|
||||
_save_assoc.add(k,v,TRUE);
|
||||
}
|
||||
}
|
||||
|
||||
void TStampaScaduto::restore_totals()
|
||||
// Qui fa il contrario della precedente
|
||||
{
|
||||
TAssoc_array& a = (TAssoc_array&) _t[0];
|
||||
TString_array as;
|
||||
const int items = _save_assoc.items();
|
||||
_save_assoc.get_keys(as);
|
||||
for (int i = 0; i < items; i++)
|
||||
{
|
||||
TString k(as.row(i)); // Chiave di ordinamento(valuta)
|
||||
_LineTotal& v = (_LineTotal&)_save_assoc[k];
|
||||
a.add(k,v,TRUE);
|
||||
}
|
||||
_save_assoc.destroy();
|
||||
}
|
||||
|
||||
void TStampaScaduto::update_totals(bool what, real& res, real& non, real& buo,
|
||||
real& s1, real& s2, real& s3, real& s4, real& s5, real& s6)
|
||||
{
|
||||
TAssoc_array& a = (TAssoc_array&) _t[what];
|
||||
const bool is_key = a.is_key(_codval);
|
||||
_LineTotal l;
|
||||
_LineTotal& ll = (is_key ? (_LineTotal&)a[_codval] : l);
|
||||
ll._rd += res;
|
||||
ll._ns += non;
|
||||
ll._bf += buo;
|
||||
ll._s1 += s1;
|
||||
ll._s2 += s2;
|
||||
ll._s3 += s3;
|
||||
ll._s4 += s4;
|
||||
ll._s5 += s5;
|
||||
ll._s6 += s6;
|
||||
a.add(_codval,ll,is_key);
|
||||
}
|
||||
|
||||
void TStampaScaduto::compute_unassigned(TPartita& p)
|
||||
{
|
||||
TRecord_array& ra = p.unassigned();
|
||||
|
||||
_uns = 0.0; _unsnc = 0.0;
|
||||
for (int r = ra.last_row(); r > 0; r = ra.pred_row(r))
|
||||
{
|
||||
const TRectype& rec = ra.row(r);
|
||||
const TRiga_partite& sum = p.riga(rec.get_int(PAGSCA_NRIGP));
|
||||
const char * field = (_stvaluta && sum.in_valuta() ? PAGSCA_IMPORTOVAL : PAGSCA_IMPORTO);
|
||||
if (sum.get_int(PART_TIPOMOV) == 2) // Is it a credit note ?
|
||||
_unsnc += rec.get_real(field);
|
||||
else
|
||||
_uns += rec.get_real(field);
|
||||
}
|
||||
}
|
||||
|
||||
void TStampaScaduto::compute_all(TPartita& p)
|
||||
{
|
||||
real residuo,nonscad,buonf,s1,s2,s3,s4,s5,s6,res_pagati;
|
||||
residuo = 0.0; nonscad = 0.0; buonf = 0.0; s1 = 0.0;
|
||||
s2 = 0.0; s3 = 0.0; s4 = 0.0; s5 = 0.0; s6 = 0.0;
|
||||
res_pagati = 0.0;
|
||||
compute_unassigned(p);
|
||||
for (int r = p.last(); r > 0; r = p.pred(r)) // Browse all rows (partite)
|
||||
{
|
||||
TRiga_partite& rp = p.riga(r);
|
||||
for (int n=rp.rate(); n > 0; n--) // Browse all rows (scadenze)
|
||||
{
|
||||
TRiga_scadenze& rs = rp.rata(n);
|
||||
TDate d(rs.get_date(SCAD_DATASCAD));
|
||||
const char* field = (_stvaluta && rs.in_valuta()) ? PAGSCA_IMPORTOVAL : PAGSCA_IMPORTO;
|
||||
const char* sfield = (_stvaluta && rs.in_valuta()) ? SCAD_IMPORTOVAL : SCAD_IMPORTO;
|
||||
const char ssez = rp.sezione();
|
||||
TImporto scd,pag,bf;
|
||||
if (d > _limop) continue;
|
||||
scd += TImporto(ssez,rs.get_real(sfield)); // Importo in scadenza...
|
||||
pag += rs.importo_pagato(_stvaluta,7); // Quanto e' stato pagato per questa scadenza?
|
||||
for (int pp = rs.last(); pp > 0; pp = rs.pred(pp)) // Browse all rows (pagamenti)
|
||||
{
|
||||
const TRectype pg = rs.row(pp);
|
||||
const TRiga_partite& sum = p.riga(pp);
|
||||
const char sez = sum.sezione();
|
||||
const int tipomov = sum.get_int(PART_TIPOMOV);
|
||||
switch (tipomov)
|
||||
{
|
||||
case 5: // Insoluto (aumenta scd)
|
||||
scd += TImporto(sez,pg.get_real(field));
|
||||
break;
|
||||
case 2: // Nota di credito assegnata (storna da scd)
|
||||
scd -= TImporto(sez,pg.get_real(field));
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
if ((tipomov==3 || tipomov==5) && _tipost==clienti && _gcr!=0)
|
||||
{
|
||||
TDate data_pag(sum.get_date("DATAPAG")); // This will be PART_DATAPAG
|
||||
int tipo_pag = rs.get_int(SCAD_TIPOPAG);
|
||||
if (tipo_pag!=1 && tipo_pag!=8 && tipo_pag!= 9 && data_pag.ok()) //Incasso tramite effetto
|
||||
if (data_pag >= _limbf && data_pag <= _limscad)
|
||||
bf += TImporto(sez,pg.get_real(field));
|
||||
}
|
||||
}
|
||||
pag.normalize(); scd.normalize(); bf.normalize();
|
||||
real res,a,b; a = pag.valore(); b = scd.valore(); buonf = bf.valore();
|
||||
if (_uns > 0.0) // Rettifica i pagamenti con i non assegnati
|
||||
{
|
||||
real gap = (_uns > a ? a : _uns);
|
||||
a += gap;
|
||||
_uns -= gap;
|
||||
}
|
||||
if (_unsnc > 0.0) // Rettifica le scadenze con le N.C non assegnate.
|
||||
{
|
||||
real gap = (_unsnc > b ? b : _unsnc);
|
||||
b -= gap;
|
||||
_unsnc -= gap;
|
||||
}
|
||||
res = b - a; // Scadenze - pagati = scaduto per questo gruppo di rate
|
||||
if (res < 0.0) // Significa che l'importo pagato e' maggiore dell'importo in scadenza
|
||||
{ // c'e' un residuo positivo, e quindi va memorizzato
|
||||
res_pagati+= res; // Residui pagati in piu'
|
||||
res = 0.0;
|
||||
}
|
||||
if (d > _limscad)
|
||||
nonscad += res;
|
||||
else
|
||||
res -= res_pagati; //Detrae dal residuo scaduto eventuali pagamenti in piu' effettuati
|
||||
if (d < _limscad && d >= (TDate&)_s_date[0])
|
||||
s1 += res;
|
||||
if (d < (TDate&)_s_date[0] && d >= (TDate&)_s_date[1])
|
||||
s2 += res;
|
||||
if (d < (TDate&)_s_date[1] && d >= (TDate&)_s_date[2])
|
||||
s3 += res;
|
||||
if (d < (TDate&)_s_date[2] && d >= (TDate&)_s_date[3])
|
||||
s4 += res;
|
||||
if (_tipost == fornitori)
|
||||
{
|
||||
if (d < (TDate&)_s_date[3] && d > (TDate&)_s_date[4])
|
||||
s5 += res;
|
||||
if (d < (TDate&)_s_date[4])
|
||||
s6 += res;
|
||||
}
|
||||
else
|
||||
{
|
||||
if (d < (TDate&)_s_date[3])
|
||||
s5 += res;
|
||||
}
|
||||
residuo += res;
|
||||
}
|
||||
}
|
||||
if (residuo != 0.0)
|
||||
{
|
||||
if (_stvaluta && _codval != " ") _residuo = residuo.string(".2");
|
||||
else _residuo = residuo.string(".");
|
||||
}
|
||||
if (nonscad != 0.0)
|
||||
{
|
||||
if (_stvaluta && _codval != " ") _nonscad = nonscad.string(".2");
|
||||
else _nonscad = nonscad.string(".");
|
||||
}
|
||||
if (buonf != 0.0)
|
||||
{
|
||||
if (_stvaluta && _codval != " ") _buonfin = buonf.string(".2");
|
||||
else _buonfin = buonf.string(".");
|
||||
}
|
||||
if (s1 != 0.0)
|
||||
{
|
||||
if (_stvaluta && _codval != " ") _sc_1 = s1.string(".2");
|
||||
else _sc_1 = s1.string(".");
|
||||
}
|
||||
if (s2 != 0.0)
|
||||
{
|
||||
if (_stvaluta && _codval != " ") _sc_2 = s2.string(".2");
|
||||
else _sc_2 = s2.string(".");
|
||||
}
|
||||
if (s3 != 0.0)
|
||||
{
|
||||
if (_stvaluta && _codval != " ") _sc_3 = s3.string(".2");
|
||||
else _sc_3 = s3.string(".");
|
||||
}
|
||||
if (s4 != 0.0)
|
||||
{
|
||||
if (_stvaluta && _codval != " ") _sc_4 = s4.string(".2");
|
||||
else _sc_4 = s4.string(".");
|
||||
}
|
||||
if (s5 != 0.0)
|
||||
{
|
||||
if (_stvaluta && _codval != " ") _sc_5 = s5.string(".2");
|
||||
else _sc_5 = s5.string(".");
|
||||
}
|
||||
if (s6 != 0.0)
|
||||
{
|
||||
if (_stvaluta && _codval != " ") _sc_6 = s6.string(".2");
|
||||
else _sc_6 = s6.string(".");
|
||||
}
|
||||
// Aggiorna i totali...
|
||||
if (residuo!=0.0 || nonscad!=0.0 || buonf!=0.0 || s1!=0.0 || s2!=0.0 || s3!=0.0 || s4!= 0.0 || s5!= 0.0 || s6!=0.0)
|
||||
{
|
||||
update_totals(0, residuo, nonscad, buonf, s1, s2, s3, s4, s5, s6); // Singolo...
|
||||
update_totals(1, residuo, nonscad, buonf, s1, s2, s3, s4, s5, s6); // ...Generale
|
||||
}
|
||||
}
|
||||
|
||||
bool TStampaScaduto::preprocess_page(int file, int counter)
|
||||
{
|
||||
TRectype& rc = current_cursor()->curr(file);
|
||||
|
||||
if (file == LF_PARTITE)
|
||||
{
|
||||
int nriga = 1;
|
||||
if (_tipost == clienti || _tipost == fornitori)
|
||||
{
|
||||
_des = current_cursor()->curr(LF_CLIFO).get(CLI_RAGSOC);
|
||||
_cod = current_cursor()->curr(LF_CLIFO).get(CLI_CODCF);
|
||||
}
|
||||
else
|
||||
{
|
||||
_des = current_cursor()->curr(LF_PCON).get(PCN_DESCR);
|
||||
_cod = current_cursor()->curr(LF_PCON).get(PCN_GRUPPO);
|
||||
_cod << " " << current_cursor()->curr(LF_PCON).get(PCN_CONTO);
|
||||
_cod << " " << current_cursor()->curr(LF_PCON).get(PCN_SOTTOCONTO);
|
||||
}
|
||||
if (_cod != _cod_pre || _end_printed) // Controlla se e' cambiato il codice cli/fo/conto
|
||||
{
|
||||
reset_print();
|
||||
if (_cod_pre.not_empty() || _end_printed) // stampa i totali del precedente solo se non e' la prima
|
||||
{
|
||||
TAssoc_array& a = (TAssoc_array&) _t[0];
|
||||
if (a.items() > 0)
|
||||
{
|
||||
save_totals();
|
||||
print_totali(nriga);
|
||||
if (_end_printed) return TRUE; // Go back, print and exit!
|
||||
}
|
||||
}
|
||||
set_page_clifoco(nriga); // Setta le righe per stampare le informazioni del cli/fo/conto
|
||||
_cod_pre = _cod;
|
||||
}
|
||||
set_page_part(nriga);
|
||||
if (rc.get_int(PART_NRIGA) != 1)
|
||||
{
|
||||
restore_totals();
|
||||
return FALSE; // Skip this, 'cause row #1 is already read!
|
||||
}
|
||||
//Pesca gli estremi dalla prima riga di fattura, che non e' necessariamente la riga #1
|
||||
_residuo = "";
|
||||
_nonscad = "";
|
||||
_buonfin = "";
|
||||
_sc_1 = "";
|
||||
_sc_2 = "";
|
||||
_sc_3 = "";
|
||||
_sc_4 = "";
|
||||
_sc_5 = "";
|
||||
_sc_6 = "";
|
||||
|
||||
TPartita p(rc);
|
||||
int r = p.prima_fattura();
|
||||
if (r > 0) //Skip next partita if no fatture!
|
||||
{
|
||||
TRiga_partite& rp = p.riga(r);
|
||||
_anno = rp.get(PART_ANNO);
|
||||
_anno.ltrim(2);
|
||||
_numdoc = rp.get(PART_NUMDOC);
|
||||
_protiva = rp.get(PART_PROTIVA);
|
||||
_datadoc = (const char*) rp.get_date(PART_DATADOC);
|
||||
_codval = (_stvaluta ? rp.get(PART_CODVAL): "");
|
||||
if (_codval.empty()) _codval = " ";
|
||||
// Now performing fulkrum...
|
||||
compute_all(p);
|
||||
}
|
||||
current_cursor()->repos(); // Very, very necessary...
|
||||
if (r < 1)
|
||||
{
|
||||
restore_totals();
|
||||
return FALSE;
|
||||
}
|
||||
if (_residuo.empty() && _nonscad.empty() && _sc_1.empty() && _sc_2.empty() &&
|
||||
_sc_3.empty() && _sc_4.empty() && _sc_5.empty() && _sc_6.empty())
|
||||
if (_tipost == clienti)
|
||||
{
|
||||
if (_buonfin.empty())
|
||||
{
|
||||
restore_totals();
|
||||
return FALSE;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
restore_totals();
|
||||
return FALSE;
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TStampaScaduto::preprocess_print(int file, int counter)
|
||||
{
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
print_action TStampaScaduto::postprocess_print(int file, int counter)
|
||||
{
|
||||
print_action rt = NEXT_PAGE;
|
||||
if (!_end_printed)
|
||||
if ((file == LF_PARTITE))
|
||||
{
|
||||
rt = REPEAT_PAGE;
|
||||
_end_printed = TRUE;
|
||||
}
|
||||
return rt;
|
||||
}
|
||||
|
||||
print_action TStampaScaduto::postprocess_page(int file, int counter)
|
||||
{
|
||||
return NEXT_PAGE;
|
||||
}
|
||||
|
||||
bool TStampaScaduto::user_create()
|
||||
{
|
||||
_rel1 = new TRelation(LF_PARTITE);
|
||||
_rel1->add(LF_CLIFO,"TIPOCF=TIPOC|CODCF=SOTTOCONTO",1);
|
||||
_cur1 = add_cursor(new TSorted_cursor(_rel1,"SOTTOCONTO|ANNO|NUMPART","",1));
|
||||
_cur2 = add_cursor(new TSorted_cursor(_rel1,"UPPER(20->RAGSOC)|ANNO|NUMPART","",1));
|
||||
|
||||
_rel2 = new TRelation(LF_PARTITE);
|
||||
_rel2->add(LF_PCON,"GRUPPO=GRUPPO|CONTO=CONTO|SOTTOCONTO=SOTTOCONTO",1);
|
||||
_cur3 = add_cursor(new TSorted_cursor(_rel2,"GRUPPO|CONTO|SOTTOCONTO|ANNO|NUMPART","",1));
|
||||
_cur4 = add_cursor(new TSorted_cursor(_rel2,"UPPER(19->DESCR)|ANNO|NUMPART","",1));
|
||||
|
||||
_scad = new TLocalisamfile(LF_SCADENZE);
|
||||
_pagsca = new TLocalisamfile(LF_PAGSCA);
|
||||
_t.add(new TAssoc_array);_t.add(new TAssoc_array);
|
||||
for (int i = 0; i < 5; i++)
|
||||
_s_date.add(new TDate);
|
||||
TConfig conf (CONFIG_DITTA,"cg");
|
||||
_m = new TSelection_ext_mask("sc2300a");
|
||||
_m->enable(F_VALUTA,conf.get_bool("GesVal"));
|
||||
enable_print_menu();
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TStampaScaduto::user_destroy()
|
||||
{
|
||||
if (_rel1) delete _rel1;
|
||||
if (_rel2) delete _rel2;
|
||||
if (_scad) delete _scad;
|
||||
if (_pagsca) delete _pagsca;
|
||||
if (_m) delete _m;
|
||||
_t.destroy();
|
||||
_s_date.destroy();
|
||||
_save_assoc.destroy();
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TStampaScaduto::set_print(int)
|
||||
{
|
||||
bool rt=FALSE,ok=FALSE;
|
||||
KEY t;
|
||||
while (!ok)
|
||||
{
|
||||
if ((t=_m->run())==K_ENTER)
|
||||
{
|
||||
if ( !_m->cur_sheet().checked())
|
||||
error_box("Non e' stato effettuata alcuna selezione.");
|
||||
else
|
||||
ok=TRUE;
|
||||
}
|
||||
else ok=TRUE;
|
||||
}
|
||||
// Here set some filters...
|
||||
switch (t)
|
||||
{
|
||||
case K_ENTER:
|
||||
{
|
||||
reset_files();
|
||||
reset_print();
|
||||
if (_m->get_who() == 'P') _tipost = altri;
|
||||
else
|
||||
if (_m->get_who() == 'C') _tipost = clienti;
|
||||
else _tipost = fornitori;
|
||||
if (_m->get_key() == 1) _ordcod = TRUE;
|
||||
else _ordcod = FALSE;
|
||||
_end_printed = FALSE;
|
||||
_gcr = _m->get_int(F_GIORNI);
|
||||
_stvaluta = _m->get_bool(F_VALUTA);
|
||||
_datas = (const char *)(_m->get(F_DATASTAMPA));
|
||||
_limop = (const char *)(_m->get(F_DATAOPERAZIONE));
|
||||
_limscad = (const char *)(_m->get(F_DATASCADUTO));
|
||||
_limbf = _limscad - (long)_gcr; // Limite inferiore per le scadenze a Buon Fine.
|
||||
_anno.cut(0);_numdoc.cut(0);_protiva.cut(0);_datadoc.cut(0);
|
||||
_codval.cut(0);_residuo.cut(0);_nonscad.cut(0);_buonfin.cut(0);
|
||||
_cod.cut(0); _des.cut(0); _cod_pre.cut(0);
|
||||
_sc_1.cut(0);_sc_2.cut(0);_sc_3.cut(0);_sc_4.cut(0);_sc_5.cut(0);_sc_6.cut(0);
|
||||
for (int it=0; it < _t.items(); it++)
|
||||
{
|
||||
TAssoc_array& aa = (TAssoc_array&) _t[it];
|
||||
aa.destroy(); // Totali lineari (singolo e generale)
|
||||
}
|
||||
_save_assoc.destroy();
|
||||
get_cursor(_cur1)->set_filterfunction(fil_function,TRUE);
|
||||
get_cursor(_cur2)->set_filterfunction(fil_function,TRUE);
|
||||
get_cursor(_cur3)->set_filterfunction(fil_function,TRUE);
|
||||
get_cursor(_cur4)->set_filterfunction(fil_function,TRUE);
|
||||
switch (_tipost)
|
||||
{
|
||||
case clienti:
|
||||
case fornitori:
|
||||
if (_ordcod) // Per codice...
|
||||
{
|
||||
select_cursor(_cur1);
|
||||
if (_tipost==clienti)
|
||||
get_cursor(_cur1)->setfilter("(TIPOC=\"C\")");
|
||||
else
|
||||
get_cursor(_cur1)->setfilter("(TIPOC=\"F\")");
|
||||
}
|
||||
else // ... e ragione sociale
|
||||
{
|
||||
select_cursor(_cur2);
|
||||
if (_tipost==clienti)
|
||||
get_cursor(_cur2)->setfilter("(TIPOC=\"C\")");
|
||||
else
|
||||
get_cursor(_cur2)->setfilter("(TIPOC=\"F\")");
|
||||
}
|
||||
add_file(LF_PARTITE);
|
||||
add_file(LF_CLIFO,LF_PARTITE);
|
||||
break;
|
||||
case altri:
|
||||
if (_ordcod) // Per codice...
|
||||
{
|
||||
select_cursor(_cur3);
|
||||
get_cursor(_cur3)->setfilter("(TIPOC=\"\")"); // Filtro per i conti normali!
|
||||
}
|
||||
else // ... e descrizione
|
||||
{
|
||||
select_cursor(_cur4);
|
||||
get_cursor(_cur4)->setfilter("(TIPOC=\"\")"); // Filtro per i conti normali!
|
||||
}
|
||||
add_file(LF_PARTITE);
|
||||
add_file(LF_PCON,LF_PARTITE);
|
||||
break;
|
||||
default: break;
|
||||
} // End of inner switch
|
||||
long inc = 15;
|
||||
if (_tipost == clienti)
|
||||
inc = 30;
|
||||
long nday = inc;
|
||||
for (int j = 0; j < 5; j++)
|
||||
{
|
||||
TDate* d = (TDate *)_s_date.objptr(j);
|
||||
if (_tipost == fornitori && j == 4 )
|
||||
nday+=inc;
|
||||
*d = _limscad - nday;
|
||||
nday+=inc;
|
||||
}
|
||||
rt=TRUE;
|
||||
break;
|
||||
}
|
||||
default:
|
||||
break;
|
||||
} // End of outer switch
|
||||
return rt;
|
||||
}
|
||||
|
||||
void TStampaScaduto::print_totali_rows(int& nriga, bool what)
|
||||
// If what is 0 prints single total... else prints also general total
|
||||
{
|
||||
TAssoc_array& xassoc = (TAssoc_array&) _t[what];
|
||||
TString_array as;
|
||||
const int items = xassoc.items();
|
||||
xassoc.get_keys(as);
|
||||
as.sort();
|
||||
for (int i=0; i < items; i++)
|
||||
{
|
||||
TString k(as.row(i)); // Chiave di ordinamento(valuta)
|
||||
TString value;
|
||||
_LineTotal& v = (_LineTotal&)xassoc[k];
|
||||
if (k != " ")
|
||||
set_row(nriga,"@37g%-3s",(const char*)k);
|
||||
if (_stvaluta && k != " ") value = v._rd.string(".2");
|
||||
else value = v._rd.string(".");
|
||||
if (v._rd != 0.0)
|
||||
set_row(nriga,"@41g%17s",(const char*) value);
|
||||
if (_stvaluta && k != " ") value = v._ns.string(".2");
|
||||
else value = v._ns.string(".");
|
||||
if (v._ns != 0.0)
|
||||
set_row(nriga,"@59g%17s",(const char*) value);
|
||||
if (_stvaluta && k != " ") value = v._bf.string(".2");
|
||||
else value = v._bf.string(".");
|
||||
if (v._bf != 0.0)
|
||||
set_row(nriga,"@77g%17s",(const char*) value);
|
||||
if (_stvaluta && k != " ") value = v._s1.string(".2");
|
||||
else value = v._s1.string(".");
|
||||
if (v._s1 != 0.0)
|
||||
set_row(nriga,"@95g%17s",(const char*) value);
|
||||
if (_stvaluta && k != " ") value = v._s2.string(".2");
|
||||
else value = v._s2.string(".");
|
||||
if (v._s2 != 0.0)
|
||||
set_row(nriga,"@113g%17s",(const char*) value);
|
||||
if (_stvaluta && k != " ") value = v._s3.string(".2");
|
||||
else value = v._s3.string(".");
|
||||
if (v._s3 != 0.0)
|
||||
set_row(nriga,"@131g%17s",(const char*) value);
|
||||
if (_stvaluta && k != " ") value = v._s4.string(".2");
|
||||
else value = v._s4.string(".");
|
||||
if (v._s4 != 0.0)
|
||||
set_row(nriga,"@149g%17s",(const char*) value);
|
||||
if (_stvaluta && k != " ") value = v._s5.string(".2");
|
||||
else value = v._s5.string(".");
|
||||
if (v._s5 != 0.0)
|
||||
set_row(nriga,"@167g%17s",(const char*) value);
|
||||
if (_stvaluta && k != " ") value = v._s6.string(".2");
|
||||
else value = v._s6.string(".");
|
||||
if (v._s6 != 0.0)
|
||||
set_row(nriga,"@185g%17s",(const char*) value);
|
||||
set_row(++nriga,"");
|
||||
}
|
||||
xassoc.destroy(); // Distrugge il totale appena stampato
|
||||
}
|
||||
|
||||
void TStampaScaduto::print_totali(int& nriga)
|
||||
// Riconosce all'interno se stampare o meno anche il totale generale
|
||||
{
|
||||
TString s("CLIENTE");
|
||||
|
||||
if (_tipost == fornitori) s = "FORNITORE";
|
||||
else if (_tipost == altri) s = "CONTO";
|
||||
set_row(nriga++,"");
|
||||
set_row(nriga,"TOTALE %s",(const char*) s);
|
||||
print_totali_rows(nriga,0);
|
||||
set_row(nriga++,"");
|
||||
if (_end_printed)
|
||||
{
|
||||
set_row(nriga,"TOTALE GENERALE");
|
||||
print_totali_rows(nriga,1);
|
||||
set_row(nriga++,"");
|
||||
}
|
||||
}
|
||||
|
||||
void TStampaScaduto::print_header()
|
||||
// Setta le righe dell'intestazione
|
||||
{
|
||||
int soh = 1;
|
||||
const long firm = get_firm();
|
||||
|
||||
reset_header ();
|
||||
TLocalisamfile ditte(LF_NDITTE);
|
||||
ditte.zero();
|
||||
ditte.put(NDT_CODDITTA, firm);
|
||||
ditte.read();
|
||||
if (ditte.bad()) ditte.zero();
|
||||
|
||||
TString s;
|
||||
s = ditte.get(NDT_RAGSOC);
|
||||
TString datas = _datas.string();
|
||||
TString limop = _limop.string();
|
||||
TString limscad = _limscad.string();
|
||||
|
||||
switch (_tipost)
|
||||
{
|
||||
case fornitori:
|
||||
case clienti:
|
||||
{
|
||||
TString rw(203);
|
||||
TString s1,s2;
|
||||
int o = 0; // Offset per scaglioni.
|
||||
set_header (soh++, "Ditta : %ld %s@158gData@163g%s @190gPag. @#",
|
||||
firm, (const char *)s, (const char *)datas);
|
||||
if (_tipost==fornitori)
|
||||
{
|
||||
set_header(soh++,"@72g** SCADUTO FORNITORI **");
|
||||
s1 = ""; s2 = scaglioni[7]; // +90 gg per fornitori
|
||||
}
|
||||
else
|
||||
{
|
||||
set_header(soh++,"@73g** SCADUTO CLIENTI **");
|
||||
s1 ="In Attesa B.F."; s2 ="";
|
||||
o = 4;
|
||||
}
|
||||
set_header (soh++,"@73gAl %s",(const char*)limop);
|
||||
rw.fill('-');
|
||||
set_header(soh++, (const char *) rw);
|
||||
set_header(soh++,"CODICE@18gC O G N O M E E N O M E ");
|
||||
set_header(soh++,"Riferim.@12gNumero@20gNumero@27gData@46gResiduo@94g"
|
||||
"---------------------------------------------- S C A D U T O "
|
||||
"----------------------------------------------");
|
||||
set_header(soh++,"partita@12gDocum.@20gProt.@27gDocumento@38gValuta"
|
||||
"@46gDocumento@64gNon Scaduto@82g%s@100g%s@118g%s@136g%s@154g%s@172g%s@190g%s",
|
||||
(const char*)s1,scaglioni[0],scaglioni[1+o],scaglioni[2+o],
|
||||
scaglioni[3+o],scaglioni[4+o],(const char*) s2);
|
||||
set_header(soh++,(const char *)rw);
|
||||
break;
|
||||
}
|
||||
case altri: // Piano dei conti
|
||||
{
|
||||
TString rw(180);
|
||||
set_header (soh++, "Ditta : %ld %s@152gData@157g%s @170gPag. @#",
|
||||
firm, (const char *)s, (const char *)datas);
|
||||
set_header(soh++,"@79g** SCADUTO **");
|
||||
set_header (soh++,"@79gAl %s",(const char*)limop);
|
||||
rw.fill('-');
|
||||
set_header(soh++, (const char *) rw);
|
||||
set_header(soh++,"CONTO@18gD E S C R I Z I O N E");
|
||||
set_header(soh++,"Riferim.@12gNumero@20gNumero@27gData@46gResiduo@94g"
|
||||
"-------------------------- S C A D U T O -------------------------");
|
||||
set_header(soh++,"partita@12gDocum.@20gProt.@27gDocumento@38gValuta"
|
||||
"@46gDocumento@64gNon Scaduto@100g%s@118g%s@136g%s@154g%s@172g%s",
|
||||
scaglioni[0],scaglioni[5],scaglioni[6],
|
||||
scaglioni[7],scaglioni[8]);
|
||||
set_header(soh++,(const char *)rw);
|
||||
break;
|
||||
}
|
||||
default:
|
||||
break;
|
||||
}
|
||||
set_header(soh,"");
|
||||
}
|
||||
|
||||
void TStampaScaduto::set_page_clifoco(int& nriga)
|
||||
{
|
||||
set_row(nriga,"@b#t",&_cod);
|
||||
set_row(nriga++,"@18g#t@r",&_des);
|
||||
set_row(nriga,"");
|
||||
}
|
||||
|
||||
void TStampaScaduto::set_page_part(int& nriga)
|
||||
{
|
||||
set_row(nriga,"#2t/@7s",&_anno,FLD(LF_PARTITE,PART_NUMPART));
|
||||
set_row(nriga,"@12g#t@20g#5t",&_numdoc,&_protiva);
|
||||
set_row(nriga,"@26g#t@37g#t",&_datadoc,&_codval);
|
||||
set_row(nriga,"@41g#17t",&_residuo);
|
||||
set_row(nriga,"@59g#17t",&_nonscad);
|
||||
set_row(nriga,"@77g#17t",&_buonfin);
|
||||
set_row(nriga,"@95g#17t",&_sc_1);
|
||||
set_row(nriga,"@113g#17t",&_sc_2);
|
||||
set_row(nriga,"@131g#17t",&_sc_3);
|
||||
set_row(nriga,"@149g#17t",&_sc_4);
|
||||
set_row(nriga,"@167g#17t",&_sc_5);
|
||||
set_row(nriga,"@185g#17t",&_sc_6);
|
||||
}
|
||||
|
||||
void TStampaScaduto::set_page(int file, int counter)
|
||||
{
|
||||
print_header();
|
||||
}
|
||||
|
||||
TStampaScaduto::TStampaScaduto()
|
||||
{
|
||||
_rel1=_rel2=NULL;
|
||||
}
|
||||
|
||||
int sc2300(int argc, char** argv)
|
||||
{
|
||||
TStampaScaduto app;
|
||||
app.run(argc, argv, "Stampa Scaduto");
|
||||
return 0;
|
||||
}
|
||||
10
sc/sc2300.h
Executable file
10
sc/sc2300.h
Executable file
@ -0,0 +1,10 @@
|
||||
#include "scselmsk.h"
|
||||
|
||||
#define F_CODDITTA 101
|
||||
#define F_RAGSOC 102
|
||||
#define F_DATASTAMPA 103
|
||||
#define F_DATAOPERAZIONE 104
|
||||
#define F_DATASCADUTO 105
|
||||
#define F_GIORNI 106
|
||||
#define F_VALUTA 107
|
||||
|
||||
192
sc/sc2300a.uml
Executable file
192
sc/sc2300a.uml
Executable file
@ -0,0 +1,192 @@
|
||||
#include "sc2300.h"
|
||||
|
||||
PAGE "Stampa Scaduto" -1 -1 68 16
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Cod. "
|
||||
FLAGS "DFR"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50 46
|
||||
BEGIN
|
||||
PROMPT 13 1 "R.S. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON SC_SELECT 10 1
|
||||
BEGIN
|
||||
PROMPT 51 3 "~Selezione"
|
||||
END
|
||||
|
||||
BUTTON SC_RESET 10 1
|
||||
BEGIN
|
||||
PROMPT 51 4 "~Azzera"
|
||||
END
|
||||
|
||||
RADIOBUTTON SC_CLIFO 20
|
||||
BEGIN
|
||||
PROMPT 1 2 "Selezione"
|
||||
ITEM "C|Clienti" MESSAGE ENABLE, F_GIORNI|HIDE,2@|SHOW,1@
|
||||
ITEM "F|Fornitori" MESSAGE DISABLE, F_GIORNI|HIDE,2@|SHOW,1@
|
||||
ITEM "P|Conti" MESSAGE DISABLE, F_GIORNI|HIDE,1@|SHOW,2@
|
||||
END
|
||||
|
||||
RADIOBUTTON SC_SORTCF 20
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 25 2 "Ordinamento"
|
||||
ITEM "1|Per codice"
|
||||
ITEM "2|Per ragione sociale"
|
||||
END
|
||||
|
||||
RADIOBUTTON SC_SORTCFPCON 20
|
||||
BEGIN
|
||||
GROUP 2
|
||||
PROMPT 25 2 "Ordinamento"
|
||||
ITEM "1|Per conto"
|
||||
ITEM "2|Per descrizione"
|
||||
END
|
||||
|
||||
NUMBER SC_CFCODFR 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "Da codice "
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER SC_CFCODTO 5
|
||||
BEGIN
|
||||
PROMPT 36 7 "a codice "
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER SC_PCONCODFR1 3
|
||||
BEGIN
|
||||
PROMPT 1 7 "Da conto "
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER SC_PCONCODFR2 3
|
||||
BEGIN
|
||||
PROMPT 16 7 ""
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER SC_PCONCODFR3 6
|
||||
BEGIN
|
||||
PROMPT 20 7 ""
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER SC_PCONCODTO1 3
|
||||
BEGIN
|
||||
PROMPT 31 7 "a conto "
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER SC_PCONCODTO2 3
|
||||
BEGIN
|
||||
PROMPT 43 7 ""
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER SC_PCONCODTO3 6
|
||||
BEGIN
|
||||
PROMPT 47 7 ""
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER SC_NSEL 3
|
||||
BEGIN
|
||||
PROMPT 60 7 "N. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON SC_CFBUTFR 2 1
|
||||
BEGIN
|
||||
PROMPT 31 7 ""
|
||||
PICTURE 109
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON SC_CFBUTTO 2 1
|
||||
BEGIN
|
||||
PROMPT 51 7 ""
|
||||
PICTURE 109
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON SC_PCONBUTFR 2 1
|
||||
BEGIN
|
||||
PROMPT 26 7 ""
|
||||
PICTURE 109
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON SC_PCONBUTTO 2 1
|
||||
BEGIN
|
||||
PROMPT 53 7 ""
|
||||
PICTURE 109
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 1 9 "Data di stampa "
|
||||
HELP "Data di stampa"
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Si deve specificare la data di stampa"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
DATE F_DATAOPERAZIONE
|
||||
BEGIN
|
||||
PROMPT 1 10 "Data limite operazione "
|
||||
HELP "Data limite operazione"
|
||||
CHECKTYPE REQUIRED
|
||||
VALIDATE DATE_CMP_FUNC >= F_DATASCADUTO
|
||||
WARNING "La data di limite della operazione deve essere superiore alla data limite scaduto."
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
DATE F_DATASCADUTO
|
||||
BEGIN
|
||||
PROMPT 1 11 "Data limite scaduto "
|
||||
HELP "Data limite scaduto"
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Data limite scaduto non valida"
|
||||
END
|
||||
|
||||
NUMBER F_GIORNI 3
|
||||
BEGIN
|
||||
PROMPT 1 12 "Giorni per calcolo rischio "
|
||||
HELP "Inserire il numero di giorni per il calcolo del rischio"
|
||||
END
|
||||
|
||||
BOOLEAN F_VALUTA
|
||||
BEGIN
|
||||
PROMPT 1 13 "Stampa in valuta"
|
||||
HELP "Selezionare se si vuole la stampa in valuta"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 68 7
|
||||
BEGIN
|
||||
PROMPT 0 8 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_PRINT 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
Loading…
x
Reference in New Issue
Block a user