root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/cm/cm0200.cpp
luca f34d15ca47 Patch level :2.2 102 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :eliminati errori di compilazione


git-svn-id: svn://10.65.10.50/trunk@13114 c028cbd2-c16b-5b4b-a496-9718f37d4682
2005-05-17 16:39:01 +00:00

685 lines
21 KiB
C++
Executable File
Raw Blame History

#include <applicat.h>
#include <automask.h>
#include <form.h>
#include <printer.h>
#include <recarray.h>
#include <utility.h>
#include "cm0.h"
#include "cm0200a.h"
#include "cm0200.h"
#include "causali.h"
#include "mov.h"
#include "rmov.h"
#include "pconti.h"
class TForm_schedacdc : public TForm
{
static TForm_schedacdc* _cur_form;
static void conti_header_handler(TPrinter& p);
public:
virtual bool validate(TForm_item &cf, TToken_string &s);
void set_testata();
TPrint_section& get_body() {return section('B', odd_page);}
TPrint_section& get_section(char s, pagetype pos) {return section(s, pos);}
TForm_schedacdc();
virtual ~TForm_schedacdc();
};
TForm_schedacdc::TForm_schedacdc() :TForm("cm0200a") //costruttore
{
}
TForm_schedacdc::~TForm_schedacdc() //distruttore
{
}
//pazzesco (ma forse unico) modo di stampare i numeri pagina progressivi senza poter usare la
//print() standard dei TForm; e' stata reimplementata la header_handler() come conti_header_handler()
TForm_schedacdc* TForm_schedacdc::_cur_form = NULL;
void TForm_schedacdc::conti_header_handler(TPrinter& p)
{
TForm_schedacdc& f = *_cur_form;
if (f.firstpage_is_lastpage())
{
f.set_background(1, TRUE);
f.set_header(1, TRUE);
f.set_footer(0, FALSE);
}
else
{
const word page = f.page(p);
f.set_background(page, TRUE);
f.set_header(1, TRUE);
f.set_footer(page, FALSE);
}
}
void TForm_schedacdc::set_testata()
{
set_header(1, false); set_header(1, true);
_cur_form = this;
printer().setheaderhandler(conti_header_handler); // Setta handlers
}
bool TForm_schedacdc::validate(TForm_item &cf, TToken_string &s)
{
const TString code(s.get(0)); // prende il primo parametro, il codice del messaggio
TString valore;
if (code== "_DITTA")
{
// lettura dei dati della ditta
// sintassi: _DITTA,{<campo relazione>|<macro>}
// dove: <campo relazione> è un riferimento alla relazione di gestione dei dati della ditta (es. 113@->DENCOM è la denominazione del comune di residenza della ditta)
// <macro> è uno delle macro seguenti:
// !RAGSOC ragione sociale
// !IND indirizzo (fiscale se c'è, oppure di residenza)
// !NUM numero civico (fiscale se c'è, oppure di residenza)
// !CAP CAP (fiscale se c'è, oppure di residenza)
// !COM comune (fiscale se c'è, oppure di residenza)
// !PROV provincia (fiscale se c'è, oppure di residenza)
// !IVA partita iva
// !CF codice fiscale
// !TEL numero di telefono (con prefisso)
// !FAX numero di fax (con prefisso)
// !REGSOC numero di registrazione presso il Tribunale
// !CCIAA numero di registrazione presso la camera di commercio
TString in(s.get());
if (in[0]!='!')
{
const TRectype & firm = cache().get(LF_NDITTE, main_app().get_firm());
cf.set(firm.get(in));
return TRUE;
}
else
return TForm::validate(cf, s); // se il codice del messaggio non è identificato viene passato alla funzione standard
} // fine _DITTA
return TForm::validate(cf, s); // se il codice del messaggio non è identificato viene passato alla funzione standard
}
class TSchedacdc_mask : public TAutomask
{
TRelation * _rel;
TCursor * _cur;
protected:
bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TSchedacdc_mask();
virtual ~TSchedacdc_mask(){};
};
TSchedacdc_mask::TSchedacdc_mask() :TAutomask ("cm0200a")
{
}
bool TSchedacdc_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_DACDC:
case F_ACDC:
if (e == fe_modify)
{
const bool on = !(field(F_DACDC).empty() && field(F_ACDC).empty());
if (!on)
{
reset(F_DAFSC);
reset(F_AFSC);
}
enable(F_DAFSC, on);
enable(F_AFSC, on);
}
break;
case F_DATAINI:
if (e == fe_modify || e == fe_close)
{
TDate dataini(field(F_DATAINI).get());
if (dataini.ok())
{
TDate datainies = cache().get("ESC", field(F_ANNO).get(), "D0");
if (dataini < datainies && datainies.ok())
return error_box(FR("La data iniziale non può essere precedente alla data inizio esercizio %s"), (const char*) datainies.string());
}
}
if (e == fe_close)
{
const int annoes = get_int(F_ANNO);
const TDate dataini = get(F_DATAINI);
if (annoes == 0 && !dataini.ok())
return error_box(TR("Data iniziale obbligatoria se anno esercizio non specificato"));
}
break;
case F_DATAFIN:
if (e == fe_modify || fe_close)
{
TDate datafin(field(F_DATAFIN).get());
if (datafin.ok())
{
TDate datafines = cache().get("ESC", field(F_ANNO).get(), "D1");
if (datafin > datafines && datafines.ok())
return error_box(FR("La data finale non può essere successiva alla data fine esercizio %s"), (const char*) datafines.string());
TDate dataini(field(F_DATAINI).get());
if (dataini > datafin)
return error_box(TR("La data iniziale non può essere successiva alla data finale"));
}
}
if (e == fe_close)
{
const int annoes = get_int(F_ANNO);
const TDate datafin = get(F_DATAFIN);
if (annoes == 0 && !datafin.ok())
return error_box(TR("Data finale obbligatoria se anno esercizio non specificato"));
}
break;
default: break;
}
return TRUE;
}
struct TTotalis : public TObject
{
TImporto _tot_perprec, _tot_periodo, _tot_generale;
void azzera();
TTotalis& operator += (const TTotalis& t);
};
void TTotalis::azzera()
{
_tot_perprec = 0;
_tot_periodo = 0;
_tot_generale = 0;
}
TTotalis& TTotalis::operator += (const TTotalis& t)
{
_tot_perprec += t._tot_perprec;
_tot_periodo += t._tot_periodo;
_tot_generale += t._tot_generale;
return *this; //ritorna se stesso, quindi i valori dei totali
}
class TSchedacdc : public TSkeleton_application
{
TSchedacdc_mask* _mask;
TForm_schedacdc* _form;
int _codes;
TDate _dataini, _datafin;
TTotalis _t_sottoc, _t_fsc, _t_cms;
TString _currcms, _currfsc, _oldcms, _oldfsc;
bool _saltopagina, _print_tot_sottoc, _headercms, _headerfsc, _headersottoc;
int _currgruppo, _currconto, _oldgruppo, _oldconto;
long _currsottoc, _oldsottoc;
protected:
virtual bool create();
virtual bool destroy();
virtual void main_loop();
void print_movimento(TSorted_cursor& cur);
void print_header_mov() { print_specialsection('H', even_page); };
void print_header_sottoc();
void print_footer_sottoc();
void print_footer_cms();
void print_header_cms();
void print_footer_fsc();
void print_header_fsc();
void set_intestazione();
void print_body(); //stampa effettivamente il body
void set_field(int id, const real& val); //mette in un campo del body odd un valore numerico
void set_field(int id, const char* val); //mette in un campo del body odd una stringa
void print_specialsection(char s, pagetype pos); // stampa una sezione qualunque
void aggiorna_totali(const TImporto importo, const TDate data);
public:
TSchedacdc() {}
};
bool TSchedacdc::create()
{
open_files(LF_RMOV, 0);
_mask = new TSchedacdc_mask;
_form = new TForm_schedacdc;
return TSkeleton_application::create();
}
bool TSchedacdc::destroy()
{
delete _mask;
delete _form;
return TSkeleton_application::destroy();
}
void TSchedacdc::aggiorna_totali(const TImporto importo, const TDate data)
{
if (data < _dataini)
{
_t_cms._tot_perprec+=importo;
_t_fsc._tot_perprec+=importo;
_t_sottoc._tot_perprec+=importo;
}
else if (data <= _datafin)
{
_t_cms._tot_periodo+=importo;
_t_fsc._tot_periodo+=importo;
_t_sottoc._tot_periodo+=importo;
}
_t_cms._tot_generale+=importo;
_t_fsc._tot_generale+=importo;
_t_sottoc._tot_generale+=importo;
}
void TSchedacdc::print_movimento(TSorted_cursor& cur)
{
if (_headercms)
{
print_header_cms();
if (!_headerfsc)
print_header_mov();
_headercms = FALSE;
}
if (_headerfsc)
{
print_header_fsc();
print_header_mov();
_headerfsc = FALSE;
}
if (_headersottoc)
{
print_header_sottoc();
_headersottoc = FALSE;
}
TRectype rec = cur.curr();
TString16 key;
set_field(FR_DATAREG, cur.curr().get(RMV_DATAREG));
set_field(FR_NUMREG, cur.curr().get(RMV_NUMREG));
set_field(FR_DESCRMOV, cur.curr(LF_MOV).get(MOV_DESCR));
set_field(FR_PROTIVA, cur.curr(LF_MOV).get(MOV_PROTIVA));
set_field(FR_NUMDOC, cur.curr(LF_MOV).get(MOV_NUMDOC));
set_field(FR_DATADOC, cur.curr(LF_MOV).get(MOV_DATADOC));
set_field(FR_CAUSALE, cur.curr(LF_MOV).get(MOV_CODCAUS));
TString tmp = cache().get(LF_CAUSALI, cur.curr(LF_MOV).get(MOV_CODCAUS),CAU_DESCR);
set_field(FR_D_CAUSALE, tmp);
const char sezione = cur.curr().get_char(RMV_SEZIONE);
const real importo = cur.curr().get_real(RMV_IMPORTO);
set_field(FR_DARE, "");
set_field(FR_AVERE, "");
if (sezione == 'D')
set_field(FR_DARE, importo.string());
else
set_field(FR_AVERE, importo.string());
print_body();
}
void TSchedacdc::print_footer_sottoc()
{
if (_print_tot_sottoc)
{
TString tmp;
tmp.format(FR("CONTO %d %d %ld"), _oldgruppo, _oldconto, _oldsottoc);
_form->find_field('F', first_page, FR_CODICE).set(tmp);
_form->find_field('F', first_page, FR_TOTALE_DARE).set("");
_form->find_field('F', first_page, FR_TOTALE_AVERE).set("");
char sezione = _t_sottoc._tot_periodo.sezione();
real valore = _t_sottoc._tot_periodo.valore();
_form->find_field('F', first_page, FR_TOTALE_SALDO).set(valore.string());
if ( sezione == 'D')
{
_form->find_field('F', first_page, FR_TOTALE_DARE).set(valore.string());
_form->find_field('F', first_page, FR_TOTALE_SEGNO).set("D");
}
else
{
_form->find_field('F', first_page, FR_TOTALE_AVERE).set(valore.string());
_form->find_field('F', first_page, FR_TOTALE_SEGNO).set("A");
}
print_specialsection('F', first_page);
}
}
void TSchedacdc::print_footer_cms()
{
if (!_t_cms._tot_periodo.is_zero())
{
TString tmp;
tmp.format(FR("PERIODO COMMESSA %s"), (const char*) _oldcms);
_form->find_field('F', first_page, FR_CODICE).set(tmp);
_form->find_field('F', first_page, FR_TOTALE_DARE).set("");
_form->find_field('F', first_page, FR_TOTALE_AVERE).set("");
char sezione = _t_cms._tot_periodo.sezione();
real valore = _t_cms._tot_periodo.valore();
_form->find_field('F', first_page, FR_TOTALE_SALDO).set(valore.string());
if ( sezione == 'D')
{
_form->find_field('F', first_page, FR_TOTALE_DARE).set(valore.string());
_form->find_field('F', first_page, FR_TOTALE_SEGNO).set("D");
}
else
{
_form->find_field('F', first_page, FR_TOTALE_AVERE).set(valore.string());
_form->find_field('F', first_page, FR_TOTALE_SEGNO).set("A");
}
print_specialsection('F', first_page);
tmp.format(FR("GENERALE COMMESSA %s"), (const char*) _oldcms);
_form->find_field('F', first_page, FR_CODICE).set(tmp);
_form->find_field('F', first_page, FR_TOTALE_DARE).set("");
_form->find_field('F', first_page, FR_TOTALE_AVERE).set("");
sezione = _t_cms._tot_generale.sezione();
valore = _t_cms._tot_generale.valore();
_form->find_field('F', first_page, FR_TOTALE_SALDO).set(valore.string());
if ( sezione == 'D')
{
_form->find_field('F', first_page, FR_TOTALE_DARE).set(valore.string());
_form->find_field('F', first_page, FR_TOTALE_SEGNO).set("D");
}
else
{
_form->find_field('F', first_page, FR_TOTALE_AVERE).set(valore.string());
_form->find_field('F', first_page, FR_TOTALE_SEGNO).set("A");
}
print_specialsection('F', first_page);
if (_saltopagina)
printer().formfeed();
}
_t_cms.azzera();
_oldcms = _currcms;
_headercms = TRUE;
}
void TSchedacdc::print_footer_fsc()
{
if (!_t_fsc._tot_periodo.is_zero())
{
TString tmp;
tmp.format(FR("PERIODO FASE %s"), (const char*) _oldfsc);
_form->find_field('F', first_page, FR_CODICE).set(tmp);
_form->find_field('F', first_page, FR_TOTALE_DARE).set("");
_form->find_field('F', first_page, FR_TOTALE_AVERE).set("");
char sezione = _t_fsc._tot_periodo.sezione();
real valore = _t_fsc._tot_periodo.valore();
_form->find_field('F', first_page, FR_TOTALE_SALDO).set(valore.string());
if (sezione == 'D')
{
_form->find_field('F', first_page, FR_TOTALE_DARE).set(valore.string());
_form->find_field('F', first_page, FR_TOTALE_SEGNO).set("D");
}
else
{
_form->find_field('F', first_page, FR_TOTALE_AVERE).set(valore.string());
_form->find_field('F', first_page, FR_TOTALE_SEGNO).set("A");
}
print_specialsection('F', first_page);
tmp.format(FR("GENERALE FASE %s"), (const char*) _oldfsc);
_form->find_field('F', first_page, FR_CODICE).set(tmp);
_form->find_field('F', first_page, FR_TOTALE_DARE).set("");
_form->find_field('F', first_page, FR_TOTALE_AVERE).set("");
sezione = _t_fsc._tot_generale.sezione();
valore = _t_fsc._tot_generale.valore();
_form->find_field('F', first_page, FR_TOTALE_SALDO).set(valore.string());
if ( sezione == 'D')
{
_form->find_field('F', first_page, FR_TOTALE_DARE).set(valore.string());
_form->find_field('F', first_page, FR_TOTALE_SEGNO).set("D");
}
else
{
_form->find_field('F', first_page, FR_TOTALE_AVERE).set(valore.string());
_form->find_field('F', first_page, FR_TOTALE_SEGNO).set("A");
}
print_specialsection('F', first_page);
}
_oldfsc = _currfsc;
_t_fsc.azzera();
_headerfsc = TRUE;
}
void TSchedacdc::print_header_sottoc()
{
TString16 key;
key.format("%d|%d|%ld", _oldgruppo, _oldconto, _oldsottoc);
const TRectype& pcon = cache().get(LF_PCON, key);
key.format("%d", _oldgruppo);
_form->find_field('B', first_page, FR_GRUPPO).set(key);
key.format("%d", _oldconto);
_form->find_field('B', first_page, FR_CONTO).set(key);
key.format("%ld", _oldsottoc);
_form->find_field('B', first_page, FR_SOTTOC).set(key);
_form->find_field('B', first_page, FR_D_SOTTOC).set(pcon.get(PCN_DESCR));
TString tmp;
_form->find_field('B', first_page, FR_S_DARE).set("");
_form->find_field('B', first_page, FR_S_AVERE).set("");
char sezione = _t_sottoc._tot_perprec.sezione();
real valore = _t_sottoc._tot_perprec.valore();
if ( sezione == 'D')
_form->find_field('B', first_page, FR_S_DARE).set(valore.string());
else
_form->find_field('B', first_page, FR_S_AVERE).set(valore.string());
print_specialsection('B', first_page);
}
void TSchedacdc::print_header_cms()
{
_form->find_field('H', odd_page, FR_CMS).set(_oldcms);
_form->find_field('H', odd_page, FR_D_CMS).set(cache().get("CMS", _oldcms).get("S0"));
print_specialsection('H', odd_page);
}
void TSchedacdc::print_header_fsc()
{
_form->find_field('H', last_page, FR_FSC).set(_oldfsc);
_form->find_field('H', last_page, FR_D_FSC).set(cache().get("FSC", _oldfsc).get("S0"));
print_specialsection('H', last_page);
}
void TSchedacdc::set_intestazione()
{
// scrive l'header first, contenente i dati della ditta e dell'esercizio e le selezioni di stampa
_form->find_field('H', first_page, FR_ESERCIZIO).set(_mask->get(F_ANNO));
_form->find_field('H', first_page, FR_DATAINI).set(_mask->get(F_DATAINI));
_form->find_field('H', first_page, FR_DATAFIN).set(_mask->get(F_DATAFIN));
_form->find_field('H', first_page, FR_DACDC).set(_mask->get(F_DACDC));
_form->find_field('H', first_page, FR_DAFSC).set(_mask->get(F_DAFSC));
_form->find_field('H', first_page, FR_ACDC).set(_mask->get(F_ACDC));
_form->find_field('H', first_page, FR_AFSC).set(_mask->get(F_AFSC));
_form->set_testata();
}
void TSchedacdc::print_body()
{
TPrint_section& body = _form->get_body();
body.update();
if (body.height() > printer().rows_left())
printer().formfeed();
for (word i = 0; i < body.height(); i++) // stampa le righe del body
printer().print(body.row(i));
}
void TSchedacdc::print_specialsection(char s, pagetype pos)
{
TPrint_section& sec = _form->get_section(s, pos);
sec.update();
if (sec.height() > printer().rows_left())
printer().formfeed();
for (word i = 0; i < sec.height(); i++) // stampa le righe del body
printer().print(sec.row(i));
}
void TSchedacdc::set_field(int id, const real& val)
{
_form->find_field('B', odd_page, id).set(val.string());
}
void TSchedacdc::set_field(int id, const char* val)
{
_form->find_field('B', odd_page, id).set(val);
}
void TSchedacdc::main_loop()
{
while (_mask->run() == K_ENTER)
{
_saltopagina = _mask->get_bool(F_SALTOPAGINA); // salto pagina a fine commessa
_print_tot_sottoc = _mask->get_bool(F_TOT_GCS); //stampa totali sottoconti
_codes = _mask->get_int(F_ANNO); // esercizio
_dataini = _mask->get_date(F_DATAINI); // data iniziale
_datafin = _mask->get_date(F_DATAFIN); // data finale
if (_dataini.empty())
_dataini = cache().get("ESC", _mask->get(F_ANNO)).get_date("D0");
if (_datafin.empty())
_datafin = cache().get("ESC", _mask->get(F_ANNO)).get_date("D1");
TString80 dacdc = _mask->get(F_DACDC); // cdc/commessa iniziale
TString80 dafsc = _mask->get(F_DAFSC); // fase iniziale
TString80 acdc = _mask->get(F_ACDC); // cdc/commessa finale
TString80 afsc = _mask->get(F_AFSC); // fase finale
// relazione su rmov
TRelation relrmov(LF_RMOV);
relrmov.add(LF_MOV, "NUMREG==NUMREG");
// filtro
TString filtro = "";
if (_codes > 0)
filtro.format("ANNOES==%d", _codes);
if (dacdc.not_empty())
{
if (filtro.not_empty())
filtro << " && ";
filtro << "(CODCMS>=\"" << dacdc << "\")";
}
if (dafsc.not_empty())
{
if (filtro.not_empty())
filtro << " && ";
filtro << "(FASCMS>=\"" << dafsc << "\")";
}
if (acdc.not_empty())
{
if (filtro.not_empty())
filtro << " && ";
filtro << "(CODCMS<=\"" << acdc << "\")";
}
if (afsc.not_empty())
{
if (filtro.not_empty())
filtro << " && ";
filtro << "(FASCMS<=\"" << afsc << "\")";
}
if (filtro.empty())
filtro.format("(CODCMS!=\"\")");
else
if (dacdc.empty() && acdc.empty())
filtro << " && " << "(CODCMS!=\"\")";
TRectype darec(LF_RMOV), arec(LF_RMOV);
// servono per gruppo-conto-sottoconto
darec.zero();
arec.zero();
darec.put(RMV_GRUPPO, _mask->get_int(F_GRUPPOINI));
darec.put(RMV_CONTO, _mask->get_int(F_CONTOINI));
darec.put(RMV_SOTTOCONTO, _mask->get_long(F_SOTTOCINI));
arec.put(RMV_GRUPPO, _mask->get_int(F_GRUPPOFIN));
arec.put(RMV_CONTO, _mask->get_int(F_CONTOFIN));
arec.put(RMV_SOTTOCONTO, _mask->get_long(F_SOTTOCFIN));
TString ordin = "GRUPPO|CONTO|SOTTOCONTO|DATAREG|NUMREG|NUMRIG";
bool ctrlfsc = TRUE;
if (dafsc.empty() && afsc.empty())
{
ctrlfsc = FALSE;
ordin.insert("CODCMS|");
}
else
ordin.insert("CODCMS|FASCMS|");
TSorted_cursor sortcur (&relrmov, ordin, filtro, 2, &darec, &arec);
sortcur.setregion(darec,arec);
sortcur.setfilter(filtro,TRUE);
long num = sortcur.items();
sortcur.freeze();
printer().open();
set_intestazione();
TRectype currrec(LF_RMOV);
_oldcms = "@@";
_oldfsc = (ctrlfsc) ? "@@" : "";
_oldgruppo = -1;
_oldconto = -1;
_oldsottoc = -1;
_t_cms.azzera();
_t_fsc.azzera();
_t_sottoc.azzera();
_headercms = TRUE;
_headerfsc = (ctrlfsc) ? TRUE : FALSE;
_headersottoc = TRUE;
for (sortcur=0; sortcur.pos()<num; ++sortcur) //scansione su tutte le righe di movimento
{
const TRectype rmovrec = sortcur.curr();
_currcms = rmovrec.get("CODCMS");
_currfsc = (ctrlfsc) ? rmovrec.get("FASCMS") : "";
_currsottoc = rmovrec.get_long(RMV_SOTTOCONTO);
_currgruppo = rmovrec.get_int(RMV_GRUPPO);
_currconto = rmovrec.get_int(RMV_CONTO);
TImporto importo(rmovrec.get_char(RMV_SEZIONE), rmovrec.get_real(RMV_IMPORTO));
if ((_oldcms != _currcms) || (_oldfsc != _currfsc) || (_oldgruppo != _currgruppo) || (_oldconto != _currconto) || (_oldsottoc != _currsottoc))
{
if (_oldgruppo > 0)
print_footer_sottoc();
_oldgruppo = _currgruppo;
_oldconto = _currconto;
_oldsottoc = _currsottoc;
_headersottoc = TRUE;
_t_sottoc.azzera();
if ((_oldcms != _currcms) || (_oldfsc != _currfsc))
{
if (ctrlfsc)
print_footer_fsc();
if (_oldcms != _currcms)
print_footer_cms();
}
}
TDate data;
if (_codes > 0)
data = relrmov.curr(LF_MOV).get_date(MOV_DATACOMP);
else
data = rmovrec.get_date(RMV_DATAREG);
aggiorna_totali(importo, data);
bool da_stampare = !_dataini.ok() || data >= _dataini;
if (da_stampare)
da_stampare = !_datafin.ok() || data <= _datafin;
if ( da_stampare)
print_movimento(sortcur);
}
if (num > 0)
{
print_footer_sottoc();
if (ctrlfsc)
print_footer_fsc();
print_footer_cms();
printer().formfeed();
}
printer().close();
}
}
int cm0200(int argc, char* argv[])
{
TSchedacdc a;
a.run(argc,argv,TR("Stampa scheda per CDC/Commessa"));
return 0;
}
Reference in New Issue View Git Blame Copy Permalink