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

Aggiustati include errati e stronzatine

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3004 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1996-06-17 10:04:38 +00:00
parent 5c5b5bacf5
commit ca0ea9529a
6 changed files with 330 additions and 329 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
m770/772100.cpp
View File

@ -7,14 +7,14 @@
#include <utility.h>
#include <sort.h>
#include <lffiles.h>
#include <scperc.h>
#include <rpag.h>
#include <rver.h>
#include "scperc.h"
#include "rpag.h"
#include "rver.h"
#include <comuni.h>
#include <nditte.h>
#include <anagr.h>
#include <anafis.h>
#include <perc.h>
#include "perc.h"
#include <mailbox.h>
#include <execp.h>
@ -58,7 +58,7 @@ class TStampa_perc : public TPrintapp
{
char _liv; // Se stampa a livello di studio
int _anno_dic; // Anno dichiarazione nei paramentri utente o studio
bool _changed_perc; // flag che segnala il passaggio a nuovo perc.
bool _changed_perc; // flag che segnala il passaggio a nuovo perc.
struct righe_pag
{
char codq[3];
@ -76,31 +76,31 @@ class TStampa_perc : public TPrintapp
TCursor* _cur;
righe_pag* _bil;
TSort* _sort;
TVersamento_stampa _stvers;
TVersamento_stampa _stvers;
const char* _buf;
TLocalisamfile* _nditte, *_anag, *_rpag, *_rver, *_comuni;
TString16 _section;
TConfig* _cnf;
TString _ragsocER,_indER,_civER,_capER,_dencomER,_provER,_cofiER;
TString _ragsocPE,_indPE,_civPE,_capPE,_dencomPE,_provPE,_cofiPE;
TString _dencomnscER,_provnscER,_dencomnscPE,_provnscPE;
TString _datanascER,_datanascPE,_desc_cau,_numdoc;
TDate _datadoc;
TString _ragsocER,_indER,_civER,_capER,_dencomER,_provER,_cofiER;
TString _ragsocPE,_indPE,_civPE,_capPE,_dencomPE,_provPE,_cofiPE;
TString _dencomnscER,_provnscER,_dencomnscPE,_provnscPE;
TString _datanascER,_datanascPE,_desc_cau,_numdoc;
TDate _datadoc;
int _nprog;
int _anno,_numcarat,_codcaus,_codtrib;
long _codditta,_codanagER,_codanagPE;
int _anno,_numcarat,_codcaus,_codtrib;
long _codditta,_codanagER,_codanagPE;
char _tipoa, _tipoaER;
real _impondoc,_spesedoc,_imposdoc,_totaledoc;
real _tot_comp,_tot_fatt;
real _tot_somme_non_soggette, _tot_comp_non_pagati; // tot.delle rimanenze di un percipiente
real _compenso_dovuto, _spese_dovute; // usati per calcolare rimanenza di una scheda
real _impondoc,_spesedoc,_imposdoc,_totaledoc;
real _tot_comp,_tot_fatt;
real _tot_somme_non_soggette, _tot_comp_non_pagati; // tot.delle rimanenze di un percipiente
real _compenso_dovuto, _spese_dovute; // usati per calcolare rimanenza di una scheda
bool _rifai_sort,_stampa_modulo;
int _ind,_mesecomp,_annocomp;
bool _stampa_scheda; // stampo o no la scheda corrente
bool _almeno_una_scheda; // c'e' almeno una scheda stampabile
bool init_print();
void add(TVersamento& vers);
bool find(TVersamento& vers);
int _ind,_mesecomp,_annocomp;
bool _stampa_scheda; // stampo o no la scheda corrente
bool _almeno_una_scheda; // c'e' almeno una scheda stampabile
bool init_print();
void add(TVersamento& vers);
bool find(TVersamento& vers);
protected:
virtual void on_config_change();
@ -441,7 +441,7 @@ int TStampa_perc::stampa_vers(TVersamento_stampa& ve, int nriga, const int numve
{
TString16 serie, numero;
int j = nriga;
real vers_stampa = ZERO;
real vers_stampa = ZERO;
_rver->setkey(1);
_rver->zero();
@ -492,10 +492,10 @@ int TStampa_perc::stampa_vers(TVersamento_stampa& ve, int nriga, const int numve
void calcola_non_pagate(TSchedaP& sch, real& compensi_non_pagati,
real& spese_non_pagate, const int anno_in_corso)
{
real comp, spese;
real comp_doc, spese_doc, comp_pagato, spese_pagate;
TDate data_pag;
int anno_pag;
real comp, spese;
real comp_doc, spese_doc, comp_pagato, spese_pagate;
TDate data_pag;
int anno_pag;
comp = spese = ZERO;
TLocalisamfile* rpag = new TLocalisamfile(LF_RPAG);
@ -515,8 +515,8 @@ void calcola_non_pagate(TSchedaP& sch, real& compensi_non_pagati,
if (rpag->curr() > mst) break;
comp_pagato = rpag->get_real(PAG_COMPENSO);
spese_pagate = rpag->get_real(PAG_SPESA);
data_pag = rpag->get_date(PAG_DATAPAG);
anno_pag = data_pag.year();
data_pag = rpag->get_date(PAG_DATAPAG);
anno_pag = data_pag.year();
if (anno_pag <= anno_in_corso)
{
comp_doc -= comp_pagato;
@ -751,8 +751,8 @@ print_action TStampa_perc::postprocess_page(int file, int counter)
int codcau,codcau_t;
real totale,somme,quote,imp,rit,netto;
real totale_t,somme_t,quote_t,imp_t,rit_t,netto_t;
TString key(20),keyp(20);
real perc,perc_t;
TString key(20),keyp(20);
real perc,perc_t;
_almeno_una_scheda = FALSE;
reset_print();

6
m770/772200.cpp
View File

@ -7,13 +7,13 @@
#include <sort.h>
#include <progind.h>
#include <lffiles.h>
#include <scperc.h>
#include <rpag.h>
#include "scperc.h"
#include "rpag.h"
#include <comuni.h>
#include <nditte.h>
#include <anagr.h>
#include <anafis.h>
#include <perc.h>
#include "perc.h"
#include <config.h>
#include "772.h"
#include "772200.h"

68
m770/772300.cpp
View File

@ -12,14 +12,14 @@
#include <assoc.h>
#include <config.h>
#include <lffiles.h>
#include <scperc.h>
#include <rpag.h>
#include <rver.h>
#include "scperc.h"
#include "rpag.h"
#include "rver.h"
#include <comuni.h>
#include <nditte.h>
#include <anagr.h>
#include <anafis.h>
#include <perc.h>
#include "perc.h"
#include <mailbox.h>
#include <execp.h>
@ -27,17 +27,17 @@
#include "772300.h"
#include "77lib.h"
HIDDEN TString256 __tmp;
HIDDEN TString256 __tmp;
HIDDEN bool filter_func (const TRelation *);
class TStampa_mov : public TPrintapp
{
char _liv; // Se stampa a livello di studio
int _anno_dic; // Anno dichiarazione nei paramentri utente o studio
int _row; // Riga corrente di stampa
TString16 _section;
TConfig* _cnf;
TVersamento_stampa _stvers;
char _liv; // Se stampa a livello di studio
int _anno_dic; // Anno dichiarazione nei paramentri utente o studio
int _row; // Riga corrente di stampa
TString16 _section;
TConfig* _cnf;
TVersamento_stampa _stvers;
TRelation* _rel;
TCursor* _cur;
TLocalisamfile* _nditte;
@ -45,28 +45,28 @@ class TStampa_mov : public TPrintapp
TLocalisamfile* _rpag;
TLocalisamfile* _rver;
TArray _pagver;
TPercipiente _curr_perc, _prec_perc;
TString _ragsocER,_ragsocPE,_datadoc,_numdoc,_datastampa;
int _anno, _codcaus, _codtrib, _ind, _nprog;
long _codditta,_codanagER,_codanagPE,_cod_da,_cod_a;
char _tipoa,_tipoa_da,_tipoa_a;
real _tot_imponpag,_tot_ritenpag,_tot_impvers;
real _g_tot_imp, _g_tot_ver, _g_tot_rit;
TDate _datada,_dataa;
TPercipiente _curr_perc, _prec_perc;
TString _ragsocER,_ragsocPE,_datadoc,_numdoc,_datastampa;
int _anno, _codcaus, _codtrib, _ind, _nprog;
long _codditta,_codanagER,_codanagPE,_cod_da,_cod_a;
char _tipoa,_tipoa_da,_tipoa_a;
real _tot_imponpag,_tot_ritenpag,_tot_impvers;
real _g_tot_imp, _g_tot_ver, _g_tot_rit;
TDate _datada,_dataa;
protected:
friend bool filter_func (const TRelation *);
virtual void on_config_change();
virtual bool user_create() ;
virtual bool user_destroy();
virtual bool set_print(int m);
virtual bool preprocess_page (int,int);
virtual bool preprocess_print(int,int);
virtual print_action postprocess_page (int,int);
bool init_print();
void set_total_perc();
void set_global_total();
void add(TVersamento& vers);
bool find(TVersamento& vers);
friend bool filter_func (const TRelation *);
virtual void on_config_change();
virtual bool user_create() ;
virtual bool user_destroy();
virtual bool set_print(int m);
virtual bool preprocess_page (int,int);
virtual bool preprocess_print(int,int);
virtual print_action postprocess_page (int,int);
bool init_print();
void set_total_perc();
void set_global_total();
void add(TVersamento& vers);
bool find(TVersamento& vers);
public:
void dati_erogante();
// void intesta_fissa();
@ -87,7 +87,7 @@ HIDDEN TStampa_mov& app() { return (TStampa_mov&) main_app(); }
bool filter_func (const TRelation * rel)
{
const int anno_corr = app()._anno;
TRectype sch_curr(rel->lfile().curr());
TRectype sch_curr(rel->lfile().curr());
TSchedaP scheda(sch_curr);
return esiste_pag_in_anno(scheda, anno_corr);
}
@ -494,7 +494,7 @@ bool TStampa_mov::init_print()
void TStampa_mov::dati_erogante()
{
char tipoa;
bool ditta_ok = FALSE;
bool ditta_ok = FALSE;
_ragsocER = "";
_codanagER = 0L;

8
m770/772400.cpp
View File

@ -7,12 +7,12 @@
#include <sort.h>
#include <progind.h>
#include <lffiles.h>
#include <scperc.h>
#include <rpag.h>
#include <rver.h>
#include "scperc.h"
#include "rpag.h"
#include "rver.h"
#include <anagr.h>
#include <nditte.h>
#include <perc.h>
#include "perc.h"
#include <config.h>
#include "772.h"
#include "772400.h"

118
m770/77lib.h
View File

@ -75,7 +75,7 @@ typedef enum { estinto=0, normale, dichiarante } TipoDitta;
// Controlla se esiste la dic
bool exist_dichiar_770 (long codditta, bool sogg_dich= FALSE);
// Immette una dichiarazione
bool enter_dichiar_770 (long codditta, int annodic=0, bool sogg_dich= FALSE);
bool enter_dichiar_770 (long codditta, int annodic=0, bool sogg_dich= FALSE);
// Ritorna l'anno sui parametri di studio
int anno_770();
@ -124,7 +124,7 @@ class TNikArray_sheet : public TArray_sheet
TNikArray_sheet(short x, short y, short dx, short dy, const char* caption,
const char* head, byte buttons = 0, WINDOW parent = NULL_WIN,
int visible=0)
: TArray_sheet(x, y, dx, dy, caption,head, buttons, parent),
: TArray_sheet(x, y, dx, dy, caption,head, buttons),
_visible_items(visible) {}
bool destroy(int i = -1);
@ -145,23 +145,23 @@ const int SCHEDA_NON_ESISTENTE = -2;
class TSchedaP
{
private:
long _codditta;
char _tipoa;
long _codanagr;
int _nprog;
real _spese_doc, _compenso_doc;
TDate _data_doc;
long _codditta;
char _tipoa;
long _codanagr;
int _nprog;
real _spese_doc, _compenso_doc;
TDate _data_doc;
public:
bool read();
long codditta() const { return _codditta; }
char tipoa() const { return _tipoa; }
long codanagr() const { return _codanagr; }
int nprog() const { return _nprog; }
bool read();
long codditta() const { return _codditta; }
char tipoa() const { return _tipoa; }
long codanagr() const { return _codanagr; }
int nprog() const { return _nprog; }
real compenso_doc() const;
real spese_doc() const;
int anno_doc() const;
real compenso_doc() const;
real spese_doc() const;
int anno_doc() const;
bool operator == (const TSchedaP& sch) const
{
@ -194,9 +194,9 @@ class TSchedaP
class TPercipiente
{
private:
long _codditta;
char _tipoa;
long _codanagr;
long _codditta;
char _tipoa;
long _codanagr;
public:
long codditta() const { return _codditta; }
@ -235,22 +235,22 @@ class TPercipiente
class TVersamento
{
protected:
long _codditta;
char _tipoa;
long _codanagr;
int _nprog;
int _nriga;
real _importo_versato;
long _codditta;
char _tipoa;
long _codanagr;
int _nprog;
int _nriga;
real _importo_versato;
public:
long codditta() const { return _codditta; }
char tipoa() const { return _tipoa; }
long codanagr() const { return _codanagr; }
int nprog() const { return _nprog; }
int nriga() const { return _nriga; }
long codditta() const { return _codditta; }
char tipoa() const { return _tipoa; }
long codanagr() const { return _codanagr; }
int nprog() const { return _nprog; }
int nriga() const { return _nriga; }
real importo_versato() const { return _importo_versato; }
void set_importo_versato(real& imp) { _importo_versato = imp; }
void set_importo_versato(real& imp) { _importo_versato = imp; }
virtual TVersamento& operator = (const TVersamento& sch)
{
@ -296,13 +296,13 @@ class TVersamento
class TVersamento_stampa : public TVersamento
{
private:
TAssoc_array _vers;
real _importo_versato_residuo;
real _importo_versato;
int _status; // esito read_pags
int _num_pags; // numero di pagamenti collegati
bool _gia_letti_pag;
int _num_last_pag; // numero dell'ultimo pagamento
TAssoc_array _vers;
real _importo_versato_residuo;
real _importo_versato;
int _status; // esito read_pags
int _num_pags; // numero di pagamenti collegati
bool _gia_letti_pag;
int _num_last_pag; // numero dell'ultimo pagamento
public:
virtual void set(const long codditta=0L, const char tipoa=0, const long codanagr=0L, const int nprog=0, const int nriga=0, const real& impvers=ZERO);
@ -317,17 +317,17 @@ class TVersamento_stampa : public TVersamento
return *this;
}
int read_pags(TLocalisamfile* pagf=NULL); // legge i pagamenti collegati
int num_pags(TLocalisamfile* pag=NULL);
bool last_pag(const int npag) const { return npag == _num_last_pag; }
real importo_versato() const { return _importo_versato; }
void set_importo_versato(const real& imp) { _importo_versato = imp; }
int read_pags(TLocalisamfile* pagf=NULL); // legge i pagamenti collegati
int num_pags(TLocalisamfile* pag=NULL);
bool last_pag(const int npag) const { return npag == _num_last_pag; }
real importo_versato() const { return _importo_versato; }
void set_importo_versato(const real& imp) { _importo_versato = imp; }
void add(TVersamento& vers);
bool find(TVersamento& vers);
void add(TVersamento& vers);
bool find(TVersamento& vers);
real vers_stampa(TLocalisamfile* rpag, const int nriga_pag, const real& vers, const real& rit);
real importo_versato_residuo() const { return _importo_versato_residuo; }
real vers_stampa(TLocalisamfile* rpag, const int nriga_pag, const real& vers, const real& rit);
real importo_versato_residuo() const { return _importo_versato_residuo; }
TVersamento_stampa(const long codditta=0L, const char tipoa=0, const long codanagr=0L, const int nprog=0, const int nriga=0, const real& impvers=ZERO);
};
@ -342,18 +342,18 @@ typedef enum { nessuno=0, fattura=1, pagamento=3, versamento=4,
struct TLink770
{
TTipo_coll _tipo_coll;
char _immissione;
char _tipo;
long _codanagr;
long _numreg;
TString16 _numdoc;
TString16 _datadoc;
real _spese;
real _compenso;
real _imposte;
real _ritenute;
real _totdoc;
TTipo_coll _tipo_coll;
char _immissione;
char _tipo;
long _codanagr;
long _numreg;
TString16 _numdoc;
TString16 _datadoc;
real _spese;
real _compenso;
real _imposte;
real _ritenute;
real _totdoc;
bool read(const char* msg);

395
m770/77stq.cpp
View File

@ -7,13 +7,13 @@
#include <form.h>
#include <printer.h>
#include <progind.h>
#include <base.h>
#include "base.h"
#include <urldefid.h>
#include <nditte.h>
#include <anagr.h>
#include "quadrod.h"
#include <quadrod1.h>
#include "quadrod1.h"
#include "quadrogd.h"
#include "quadrif.h"
#include "77stqd.h"
@ -22,8 +22,8 @@
//
// Lista modifiche
//
// 3.4.96 Nella stampa per Modulaser, aggiunto all'inizio un comando per settare
// il font della stampante a 17cpi (v.riga 176)
// 3.4.96 Nella stampa per Modulaser, aggiunto all'inizio un comando per settare
// il font della stampante a 17cpi (v.riga 176)
//
@ -41,24 +41,24 @@ HIDDEN TString80 __dep80;
HIDDEN const char* form(TString& quadro);
// Vega-Key di Modulaser
HIDDEN const char* VK_STARTDOC = "<VK>&MA795&0&1";
HIDDEN const char* VK_ENDDOC = "<VK>!0";
HIDDEN const char* VK_STARTDOC = "<VK>&MA795&0&1";
HIDDEN const char* VK_ENDDOC = "<VK>!0";
HIDDEN const char* VK_STARTPAGE[] = { "<VK>*9*1", "<VK>*9*2", "<VK>*9*3", "<VK>*9*4" };
typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey;
// Campi form
#define TOT_TOTALE 1
#define TOT_SNSRIT 2
#define TOT_IMPON 3
#define TOT_IMPOR 4
#define TOT_NETTO 5
#define H_COFI_DIC 13
#define H_NUM_FOGLIO 14
#define TOT_TOTALE 1
#define TOT_SNSRIT 2
#define TOT_IMPON 3
#define TOT_IMPOR 4
#define TOT_NETTO 5
#define H_COFI_DIC 13
#define H_NUM_FOGLIO 14
// Quadro D
HIDDEN const int QD_FORMLEN_PRIMA = 70; // 72 - 3 (3 e' la posizione della X di posiz.)
HIDDEN const int QD_FORMLEN = 72;
HIDDEN const int POS_DITTA = 91; // Colonna del codice ditta a pie' di modulo
HIDDEN const int POS_DITTA = 91; // Colonna del codice ditta a pie' di modulo
HIDDEN const int QD_PAGINE = 4;
HIDDEN const int QD_RIGHE_PRIMA = 5;
HIDDEN const int QD_RIGHE_SECONDA = 7;
@ -80,86 +80,86 @@ typedef enum { fisiche, nofisiche } TipoPagina;
class TDicForm : public TForm
{
private:
real _f_tot_totale, _f_tot_snsrit, _f_tot_impon, _f_tot_impor, _f_tot_netto;
real _nf_tot_totale, _nf_tot_snsrit, _nf_tot_impon, _nf_tot_impor, _nf_tot_netto;
void aggiorna_totali_C(const char tipo);
void aggiorna_totali_D(const char tipo);
void aggiorna_totali_D1(const char tipo);
void aggiorna_totali_E(const char tipo);
void aggiorna_totali_E1(const char tipo);
real _f_tot_totale, _f_tot_snsrit, _f_tot_impon, _f_tot_impor, _f_tot_netto;
real _nf_tot_totale, _nf_tot_snsrit, _nf_tot_impon, _nf_tot_impor, _nf_tot_netto;
void aggiorna_totali_C(const char tipo);
void aggiorna_totali_D(const char tipo);
void aggiorna_totali_D1(const char tipo);
void aggiorna_totali_E(const char tipo);
void aggiorna_totali_E1(const char tipo);
TRelation* _rel;
TCursor* _cur;
TSorted_cursor* _sorted_cur;
TRelation* _rel;
TCursor* _cur;
TSorted_cursor* _sorted_cur;
protected:
long _Items; // numero di record che hanno passato il filtro
PagineQD _PaginaCorrente;
void set_curr_page(PagineQD pagina) { _PaginaCorrente = pagina; }
virtual void inc_curr_page();
virtual void next_page(TPrinter& pr);
bool _modulaser; // se stampa per modulaser
bool _posiziona; // se deve fare posizionamento
TipoDitta _tipo_ditta; // tipo ditta: normale, estinto, dichiarante
int _num_foglio; // numero foglio
TString _cofi_dic; // cod.fis. dichiarante
bool _can_print_tot_fis, _can_print_tot_nofis;
bool _finite_fis, _finite_nofis, _LastDitta, _EndPrintDitta;
bool _GiaStampatiFis, _GiaStampatiNoFis, _PaginaPosizionamento;
bool _GiaPosizionato, _GiaMessoStartDoc, _GiaMessoStartPage[QD_PAGINE]; // flag per modulaser
int _CtrNoFisStampati, _CtrFisStampati; // contatori p.f. e p.g. stampate
long _codditta; // ditta in stampa
int _RigaCorr; // contatore riga corrente
TString16 _quadro; // codice quadro in stampa
long _Items; // numero di record che hanno passato il filtro
PagineQD _PaginaCorrente;
void set_curr_page(PagineQD pagina) { _PaginaCorrente = pagina; }
virtual void inc_curr_page();
virtual void next_page(TPrinter& pr);
bool _modulaser; // se stampa per modulaser
bool _posiziona; // se deve fare posizionamento
TipoDitta _tipo_ditta; // tipo ditta: normale, estinto, dichiarante
int _num_foglio; // numero foglio
TString _cofi_dic; // cod.fis. dichiarante
bool _can_print_tot_fis, _can_print_tot_nofis;
bool _finite_fis, _finite_nofis, _LastDitta, _EndPrintDitta;
bool _GiaStampatiFis, _GiaStampatiNoFis, _PaginaPosizionamento;
bool _GiaPosizionato, _GiaMessoStartDoc, _GiaMessoStartPage[QD_PAGINE]; // flag per modulaser
int _CtrNoFisStampati, _CtrFisStampati; // contatori p.f. e p.g. stampate
long _codditta; // ditta in stampa
int _RigaCorr; // contatore riga corrente
TString16 _quadro; // codice quadro in stampa
virtual TCursor* cursor() const { return _cur; }
virtual TRelation* relation() const { return _rel; }
void stampa_testata(TPrinter& pr);
virtual void stampa_totali(TPrinter& pr);
virtual void aggiorna_totali(const char tipo);
virtual void set_body(TPrinter& pr, const char tipo, const bool UsaProgind);
void StampaPagina(PagineQD PaginaCorrente, const bool StampaTotali, const long Fis, const long NoFis);
void posiziona();
void fill_page(TPrinter& pr, const int righe);
void put_modulaser(TPrintrow& row, ModulaserKey key, int page=0);
void ClearFlagModulaser();
bool PaginaPosizionamento() const;
void stampa_testata(TPrinter& pr);
virtual void stampa_totali(TPrinter& pr);
virtual void aggiorna_totali(const char tipo);
virtual void set_body(TPrinter& pr, const char tipo, const bool UsaProgind);
void StampaPagina(PagineQD PaginaCorrente, const bool StampaTotali, const long Fis, const long NoFis);
void posiziona();
void fill_page(TPrinter& pr, const int righe);
void put_modulaser(TPrintrow& row, ModulaserKey key, int page=0);
void ClearFlagModulaser();
bool PaginaPosizionamento() const;
virtual bool InitPrint(const long codditta);
bool _UsaProgind; // usa la progind solo se non e' stampa a video
bool _UsaProgind; // usa la progind solo se non e' stampa a video
public:
const long filtra(const long codditta);
virtual bool UsaSortedCursor() { return TRUE; }
const long filtra(const long codditta);
virtual bool UsaSortedCursor() { return TRUE; }
TProgind* _prog; // progind usata in print()
TProgind* _prog; // progind usata in print()
void set_progind(TProgind* prog, bool usaprogind) { _prog = prog; _UsaProgind = usaprogind; }
long codditta() const { return _codditta; }
void set_codditta(const long ditta) { _codditta = ditta; }
void set_posiziona(const bool posiz) { _posiziona = posiz; _GiaPosizionato = FALSE; }
void can_print_tot_fis(const bool canpr) { _can_print_tot_fis = canpr; }
void can_print_tot_nofis(const bool canpr) { _can_print_tot_nofis = canpr; }
void set_last_ditta(const bool last) { _LastDitta = last; }
bool last_ditta() const { return _LastDitta; }
bool EndJob() const { return _LastDitta && _EndPrintDitta; }
bool ultima_fis();
bool ultima_nofis();
TString& cofi_dic() { return _cofi_dic; }
void set_cofi_dic(const char* cofi) { _cofi_dic = cofi; }
TipoDitta tipo_ditta() const { return _tipo_ditta; }
void set_tipo_ditta(TipoDitta tipo) { _tipo_ditta = tipo; }
bool modulaser() const { return _modulaser; }
void set_modulaser(const bool modul) { _modulaser = modul; }
void set_num_foglio(const int foglio) { _num_foglio = foglio; }
int num_foglio() const { return _num_foglio; }
void azzera_totali();
PagineQD curr_page() const { return _PaginaCorrente; }
TCursor& cur();
TProgind* progind() { return _prog; }
bool usaprogind() const { return _UsaProgind; }
virtual void set_cur_rel(TRelation* rel, TCursor* cur);
virtual void close_print();
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
long codditta() const { return _codditta; }
void set_codditta(const long ditta) { _codditta = ditta; }
void set_posiziona(const bool posiz) { _posiziona = posiz; _GiaPosizionato = FALSE; }
void can_print_tot_fis(const bool canpr) { _can_print_tot_fis = canpr; }
void can_print_tot_nofis(const bool canpr) { _can_print_tot_nofis = canpr; }
void set_last_ditta(const bool last) { _LastDitta = last; }
bool last_ditta() const { return _LastDitta; }
bool EndJob() const { return _LastDitta && _EndPrintDitta; }
bool ultima_fis();
bool ultima_nofis();
TString& cofi_dic() { return _cofi_dic; }
void set_cofi_dic(const char* cofi) { _cofi_dic = cofi; }
TipoDitta tipo_ditta() const { return _tipo_ditta; }
void set_tipo_ditta(TipoDitta tipo) { _tipo_ditta = tipo; }
bool modulaser() const { return _modulaser; }
void set_modulaser(const bool modul) { _modulaser = modul; }
void set_num_foglio(const int foglio) { _num_foglio = foglio; }
int num_foglio() const { return _num_foglio; }
void azzera_totali();
PagineQD curr_page() const { return _PaginaCorrente; }
TCursor& cur();
TProgind* progind() { return _prog; }
bool usaprogind() const { return _UsaProgind; }
virtual void set_cur_rel(TRelation* rel, TCursor* cur);
virtual void close_print();
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TDicForm(const char* form, const char* quadro);
virtual ~TDicForm() {}
@ -545,7 +545,7 @@ void TDicForm::put_modulaser(TPrintrow& row, ModulaserKey Cmd, int page)
if (!_GiaMessoStartDoc)
{
// riga = VK_STARTDOC;
riga = "\xf"; // Printer escape: font 17cpi
riga = "\xf"; // Printer escape: font 17cpi
riga << VK_STARTDOC;
_GiaMessoStartDoc = TRUE;
}
@ -974,9 +974,9 @@ HIDDEN const int HEADER_SECONDA_G = 7;
class TQuadroG : public TDicForm
{
private:
long _items_g, _items_gd;
void stampa_prospetti1_2(TPrinter& pr, const bool UsaProgind);
void stampa_prospetti3_4(TPrinter& pr, const bool UsaProgind);
long _items_g, _items_gd;
void stampa_prospetti1_2(TPrinter& pr, const bool UsaProgind);
void stampa_prospetti3_4(TPrinter& pr, const bool UsaProgind);
protected:
virtual void inc_curr_page();
@ -986,8 +986,8 @@ class TQuadroG : public TDicForm
virtual void set_body(TPrinter& pr, const char tipo, const bool UsaProgind) {}
public:
virtual bool UsaSortedCursor() { return FALSE; }
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
virtual bool UsaSortedCursor() { return FALSE; }
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
void set_items_gd(const long itg, const long itgd) { _items_g = itg; _items_gd = itgd; }
TQuadroG(const char* form, const char* quadro) : TDicForm(form, quadro),
@ -1125,7 +1125,7 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr, const bool UsaProgind)
{
TForm_item& c2 = sez.find_field(i);
TForm_item& c7 = sez.find_field(i+65);
int src=0; // determina quale posizione va letta dalla token-string per il campo corrente
int src=0; // determina quale posizione va letta dalla token-string per il campo corrente
switch (i)
{
case 1:
@ -1244,7 +1244,7 @@ bool TQuadroG::print(const long codditta, const long NumFis, const long NumNoFis
///////////////////////////////////////////////////////////////////////////////////////////
//
// Distinta G
// Distinta G
//
///////////////////////////////////////////////////////////////////////////////////////////
@ -1256,17 +1256,17 @@ HIDDEN const int QGD_RIGHE_PRIMA = 8;
class TDistintaG : public TQuadroG
{
private:
real _f_tot_utspet, _f_tot_utpag, _f_tot_rope, _f_tot_ropespet;
real _nf_tot_utspet, _nf_tot_utpag, _nf_tot_rope, _nf_tot_ropespet;
void aggiorna_totali(const char tipo);
void stampa_totali(TPrinter& pr);
void stampa_testata(TPrinter& pr);
virtual void next_page(TPrinter& pr);
virtual void set_body(TPrinter& pr, const char tipo, const bool UsaProgind);
real _f_tot_utspet, _f_tot_utpag, _f_tot_rope, _f_tot_ropespet;
real _nf_tot_utspet, _nf_tot_utpag, _nf_tot_rope, _nf_tot_ropespet;
void aggiorna_totali(const char tipo);
void stampa_totali(TPrinter& pr);
void stampa_testata(TPrinter& pr);
virtual void next_page(TPrinter& pr);
virtual void set_body(TPrinter& pr, const char tipo, const bool UsaProgind);
public:
virtual bool UsaSortedCursor() { return FALSE; }
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
virtual bool UsaSortedCursor() { return FALSE; }
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TDistintaG(const char* form, const char* quadro) : TQuadroG(form,quadro) {}
virtual ~TDistintaG() {}
@ -1624,7 +1624,7 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
class TStDicArray : public TObject
{
private:
TArray _store;
TArray _store;
public:
TToken_string& operator[](int i);
int curr_index() const { return _store.last(); }
@ -1711,43 +1711,43 @@ void TStDicArray::add(const long codditta, const TipoDitta tipo, const int num_f
class TStampaQuadro : public TApplication
{
private:
TDicForm* _form;
TDicForm* _form;
protected:
TMask* _m;
TRelation* _rel;
TCursor* _cur;
TSorted_cursor* _sorted_cur;
TString16 _quadro;
TString80 _title;
char _livello; // "S" studio, "D" singola ditta
long _codditta;
TStDicArray _ditte;
TConfig* _cnf;
TString16 _section;
bool _singola_ditta;
int _anno_dic;
TMask* _m;
TRelation* _rel;
TCursor* _cur;
TSorted_cursor* _sorted_cur;
TString16 _quadro;
TString80 _title;
char _livello; // "S" studio, "D" singola ditta
long _codditta;
TStDicArray _ditte;
TConfig* _cnf;
TString16 _section;
bool _singola_ditta;
int _anno_dic;
virtual TDicForm* build_form();
virtual TCursor* build_cursor();
virtual TDicForm* get_form() const { return _form; }
virtual TRelation* get_relation() const { return _rel; }
virtual TCursor* get_cursor() const { return _cur; }
virtual TDicForm* build_form();
virtual TCursor* build_cursor();
virtual TDicForm* get_form() const { return _form; }
virtual TRelation* get_relation() const { return _rel; }
virtual TCursor* get_cursor() const { return _cur; }
virtual TSorted_cursor* get_sorted_cursor() const { return _sorted_cur; }
virtual void on_config_change();
virtual void fill_estinti(const long CodDic);
virtual void print();
virtual bool create();
virtual bool destroy();
virtual bool menu(MENU_TAG);
virtual const char* mask(const char* quadro);
virtual bool print_quadro(TString& quadro, const int OffsetDitta=-1);
virtual bool UsaSortedCursor() const { return TRUE; }
virtual bool ContaTipiPer() const { return TRUE; }
virtual void on_config_change();
virtual void fill_estinti(const long CodDic);
virtual void print();
virtual bool create();
virtual bool destroy();
virtual bool menu(MENU_TAG);
virtual const char* mask(const char* quadro);
virtual bool print_quadro(TString& quadro, const int OffsetDitta=-1);
virtual bool UsaSortedCursor() const { return TRUE; }
virtual bool ContaTipiPer() const { return TRUE; }
public:
virtual TSorted_cursor* sorted_cur() const { return _sorted_cur; }
virtual TSorted_cursor* sorted_cur() const { return _sorted_cur; }
const char* taitol() { return _title; }
TStampaQuadro(const char* quadro, const char livel);
@ -2171,17 +2171,17 @@ void TStampaQuadro::print()
class TStampaQuadroG : public TStampaQuadro
{
private:
TQuadroG* _form_g;
TDistintaG* _form_gd;
TRelation* _rel_g, * _rel_gd;
TCursor* _cur_g, * _cur_gd;
TQuadroG* _form_g;
TDistintaG* _form_gd;
TRelation* _rel_g, * _rel_gd;
TCursor* _cur_g, * _cur_gd;
protected:
virtual TCursor* build_cursor();
virtual TDicForm* build_form();
virtual TDicForm* get_form() const { return _form_g; }
virtual bool destroy();
bool print_quadro(TString& quadro, const int OffsetDitta=-1);
virtual TCursor* build_cursor();
virtual TDicForm* build_form();
virtual TDicForm* get_form() const { return _form_g; }
virtual bool destroy();
bool print_quadro(TString& quadro, const int OffsetDitta=-1);
public:
TStampaQuadroG(const char* quadro, const char livel) : TStampaQuadro(quadro,livel) {}
@ -2338,13 +2338,13 @@ HIDDEN const int QG1_PAGINE = 1;
class TQuadroG1 : public TDicForm
{
private:
long _items;
void stampa_prospetto(TPrinter& pr, const bool UsaProgind);
long _items;
void stampa_prospetto(TPrinter& pr, const bool UsaProgind);
public:
virtual bool UsaSortedCursor() { return FALSE; }
virtual bool print(const long codditta, const long NumFis=0L, const long NumNoFis=0L);
//virtual bool print(const long codditta);
virtual bool UsaSortedCursor() { return FALSE; }
virtual bool print(const long codditta, const long NumFis=0L, const long NumNoFis=0L);
//virtual bool print(const long codditta);
TQuadroG1(const char* form, const char* quadro) : TDicForm(form, quadro) {}
virtual ~TQuadroG1() {}
@ -2465,22 +2465,22 @@ void TQuadroG1::stampa_prospetto(TPrinter& pr, const bool UsaProgind)
class TStampaQuadroG1 : public TStampaQuadro
{
private:
TQuadroG1* _form;
TRelation* _rel;
TCursor* _cur;
TQuadroG1* _form;
TRelation* _rel;
TCursor* _cur;
protected:
virtual TCursor* get_cursor() const { return _cur; }
virtual TRelation* get_relation() const { return _rel; }
virtual bool ContaTipiPer() const { return FALSE; }
virtual bool UsaSortedCursor() const { return FALSE; }
virtual TDicForm* get_form() const { return _form; }
virtual TDicForm* build_form();
virtual TCursor* build_cursor();
// virtual void fill_estinti(const long CodDic);
virtual bool destroy();
// bool print_quadro(TString& quadro, const int OffsetDitta=-1);
// virtual void print();
virtual TCursor* get_cursor() const { return _cur; }
virtual TRelation* get_relation() const { return _rel; }
virtual bool ContaTipiPer() const { return FALSE; }
virtual bool UsaSortedCursor() const { return FALSE; }
virtual TDicForm* get_form() const { return _form; }
virtual TDicForm* build_form();
virtual TCursor* build_cursor();
// virtual void fill_estinti(const long CodDic);
virtual bool destroy();
// bool print_quadro(TString& quadro, const int OffsetDitta=-1);
// virtual void print();
public:
TStampaQuadroG1(const char* quadro, const char livel) : TStampaQuadro(quadro,livel) {}
};
@ -2682,24 +2682,24 @@ HIDDEN const int HEADER_SECONDA_F = 7;
class TQuadroF : public TDicForm
{
private:
real pa3t, pa4t, pa5t, pa6t, pa7t; // totali prosp. A
real pb3t, pb4t, pc3t, pc4t, pd3t, pd4t; // totali prosp, B, C e D
int _ptrA, _ptrB, _ptrC, _ptrD; // puntatori alle righe dei prospetti
long _items;
int stampa_prospetto_A(TPrinter& pr, const bool UsaProgind);
int stampa_prospetto_B(TPrinter& pr, const bool UsaProgind);
int stampa_prospetto_C(TPrinter& pr, const bool UsaProgind);
int stampa_prospetto_D(TPrinter& pr, const bool UsaProgind);
TRecord_array* _prosp_a, *_prosp_b, *_prosp_c, *_prosp_d;
void azzera_contatori();
void aggiorna_totali(char tipoprosp, TRectype& r);
void stampa_totali(char tipoprosp, TPrinter& pr, const bool UsaProgind);
real pa3t, pa4t, pa5t, pa6t, pa7t; // totali prosp. A
real pb3t, pb4t, pc3t, pc4t, pd3t, pd4t; // totali prosp, B, C e D
int _ptrA, _ptrB, _ptrC, _ptrD; // puntatori alle righe dei prospetti
long _items;
int stampa_prospetto_A(TPrinter& pr, const bool UsaProgind);
int stampa_prospetto_B(TPrinter& pr, const bool UsaProgind);
int stampa_prospetto_C(TPrinter& pr, const bool UsaProgind);
int stampa_prospetto_D(TPrinter& pr, const bool UsaProgind);
TRecord_array* _prosp_a, *_prosp_b, *_prosp_c, *_prosp_d;
void azzera_contatori();
void aggiorna_totali(char tipoprosp, TRectype& r);
void stampa_totali(char tipoprosp, TPrinter& pr, const bool UsaProgind);
public:
virtual bool UsaSortedCursor() { return FALSE; }
virtual bool print(const long codditta, const long numfis=0L, const long numnofis=0L);
virtual void inc_curr_page();
virtual void next_page(TPrinter& pr);
virtual bool UsaSortedCursor() { return FALSE; }
virtual bool print(const long codditta, const long numfis=0L, const long numnofis=0L);
virtual void inc_curr_page();
virtual void next_page(TPrinter& pr);
TQuadroF(const char* form, const char* quadro) : TDicForm(form, quadro) {}
virtual ~TQuadroF() {}
@ -2708,7 +2708,7 @@ class TQuadroF : public TDicForm
void TQuadroF::azzera_contatori()
{
pa3t = pa4t = pa5t = pa6t = pa7t = ZERO;
pb3t=pb4t=pc3t=pc4t=pd3t=pd4t = ZERO; // totali prosp, B, C e D
pb3t=pb4t=pc3t=pc4t=pd3t=pd4t = ZERO; // totali prosp, B, C e D
_ptrA = _ptrB = _ptrC = _ptrD = 1;
}
@ -3196,20 +3196,20 @@ int TQuadroF::stampa_prospetto_A(TPrinter& pr, const bool UsaProgind)
class TStampaQuadroF : public TStampaQuadro
{
private:
TQuadroF* _form;
TRelation* _rel;
TCursor* _cur;
TQuadroF* _form;
TRelation* _rel;
TCursor* _cur;
protected:
virtual bool ContaTipiPer() const { return FALSE; }
virtual bool UsaSortedCursor() const { return FALSE; }
virtual TDicForm* get_form() const { return _form; }
virtual TDicForm* build_form();
virtual TCursor* build_cursor();
virtual TCursor* get_cursor() const { return _cur; }
virtual TRelation* get_relation() const { return _rel; }
virtual bool destroy();
// virtual void print();
virtual bool ContaTipiPer() const { return FALSE; }
virtual bool UsaSortedCursor() const { return FALSE; }
virtual TDicForm* get_form() const { return _form; }
virtual TDicForm* build_form();
virtual TCursor* build_cursor();
virtual TCursor* get_cursor() const { return _cur; }
virtual TRelation* get_relation() const { return _rel; }
virtual bool destroy();
// virtual void print();
public:
TStampaQuadroF(const char* quadro, const char livel) : TStampaQuadro(quadro,livel) {}
@ -3258,17 +3258,17 @@ HIDDEN const int HEADER_SECONDA_H = 7;
class TQuadroH : public TDicForm
{
private:
real _rC2t, _rC3t; // totali colonna 2 e 3
long _items;
void azzera_contatori();
// void aggiorna_totali(char tipoprosp, TRectype& r);
// void stampa_totali(char tipoprosp, TPrinter& pr, const bool UsaProgind);
real _rC2t, _rC3t; // totali colonna 2 e 3
long _items;
void azzera_contatori();
// void aggiorna_totali(char tipoprosp, TRectype& r);
// void stampa_totali(char tipoprosp, TPrinter& pr, const bool UsaProgind);
public:
virtual bool UsaSortedCursor() { return FALSE; }
virtual bool print(const long codditta, const long numfis=0L, const long numnofis=0L);
virtual void inc_curr_page();
virtual void next_page(TPrinter& pr);
virtual bool UsaSortedCursor() { return FALSE; }
virtual bool print(const long codditta, const long numfis=0L, const long numnofis=0L);
virtual void inc_curr_page();
virtual void next_page(TPrinter& pr);
TQuadroH(const char* form, const char* quadro) : TDicForm(form, quadro) {}
virtual ~TQuadroH() {}
@ -3319,12 +3319,13 @@ int stampa_quadro(int argc, char* argv[])
TStampaQuadroG1 app(quadro, livello);
app.run(argc, argv, app.taitol());
}
/*
if (quadro == "H")
{
TStampaQuadroH app(quadro, livello);
app.run(argc, argv, app.taitol());
}
*/
}
return 0;
}