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

Commit globale

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3003 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-06-17 09:47:09 +00:00
parent eb24e03b95
commit 5c5b5bacf5
18 changed files with 1308 additions and 1303 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
m770/771232.cpp
View File

@ -122,7 +122,6 @@ int TQuadroG::read(TMask& m)
void TQuadroG::init_modify_mode (TMask& m) void TQuadroG::init_modify_mode (TMask& m)
{ {
init_mask(m);
m.disable(DLG_DELREC); m.disable(DLG_DELREC);
} }
@ -135,13 +134,8 @@ void TQuadroG::init_query_mode (TMask& m)
m.field(F_CODDITTA).check(); m.field(F_CODDITTA).check();
} }
m.send_key(K_AUTO_ENTER,0); m.send_key(K_AUTO_ENTER,0);
init_mask(m);
} }
void TQuadroG::init_mask (TMask& m)
{}
void TQuadroG::update_totals(TSheet_field& f, int ss) void TQuadroG::update_totals(TSheet_field& f, int ss)
{ {
int i = 0; int i = 0;

6
m770/771232.h
View File

@ -44,7 +44,6 @@ class TQuadroG : public TRelation_application
virtual bool changing_mask(int mode) { return FALSE; } virtual bool changing_mask(int mode) { return FALSE; }
virtual void init_query_mode (TMask&); virtual void init_query_mode (TMask&);
virtual void init_modify_mode (TMask&); virtual void init_modify_mode (TMask&);
void init_mask (TMask&);
void fill_ss(TMask& m); void fill_ss(TMask& m);
void fill_arr(TMask& m); void fill_arr(TMask& m);
void ss2rel(const TMask& m); void ss2rel(const TMask& m);
@ -119,6 +118,7 @@ class TQuadroG1 : public TRelation_application
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
virtual int rewrite(const TMask& m); virtual int rewrite(const TMask& m);
virtual int read(TMask& m);
virtual int write (const TMask& m); virtual int write (const TMask& m);
virtual bool remove(); virtual bool remove();
virtual TRelation* get_relation() const { return _rel; } virtual TRelation* get_relation() const { return _rel; }
@ -126,10 +126,8 @@ class TQuadroG1 : public TRelation_application
virtual bool changing_mask(int mode) { return FALSE; } virtual bool changing_mask(int mode) { return FALSE; }
virtual void init_query_mode (TMask&); virtual void init_query_mode (TMask&);
virtual void init_modify_mode (TMask&); virtual void init_modify_mode (TMask&);
void init_mask (TMask&); // void init_mask (TMask&);
// void fill_ss(TMask& m);
void fill_arr(TMask& m); void fill_arr(TMask& m);
// void ss2rel(const TMask& m);
void arr2rel(const TMask& m); void arr2rel(const TMask& m);
public: public:
const char* taitol() { return (const char*)_title; } const char* taitol() { return (const char*)_title; }

16
m770/771310.cpp
View File

@ -161,9 +161,11 @@ bool M71310_application::auto_premi(TMask_field& f, KEY k)
{ {
if (k == K_TAB && f.mask().is_running()) if (k == K_TAB && f.mask().is_running())
{ {
TLocalisamfile qual (LF_QUAL,FALSE); // TLocalisamfile qual (LF_QUAL,FALSE);
TRelation* rel = app()._rel;
TMask& m = f.mask(); TMask& m = f.mask();
long codditta = m.get_long(F_CODDITTA); m.autosave(rel);
/* long codditta = m.get_long(F_CODDITTA);
TDate datavers (m.get(F_QLDATAVERS)); TDate datavers (m.get(F_QLDATAVERS));
TString data = datavers.string(); TString data = datavers.string();
int mesepag = m.get_int(F_QLMESEPAG); int mesepag = m.get_int(F_QLMESEPAG);
@ -172,9 +174,8 @@ bool M71310_application::auto_premi(TMask_field& f, KEY k)
char tipovers = m.get (F_QLTIPOVERS)[0]; char tipovers = m.get (F_QLTIPOVERS)[0];
long codtrib = m.get_long(F_QLCODTRIB); long codtrib = m.get_long(F_QLCODTRIB);
int artbil = m.get_int(F_ARTBIL); int artbil = m.get_int(F_ARTBIL);
TString serie(m.get(FH_ABISERIE)); TString serie(m.get(FH_ABISERIE));
TString numero(m.get(FH_NUMERO)); TString numero(m.get(FH_NUMERO)); */
// TString cab(m.get(FH_CAB)); // TString cab(m.get(FH_CAB));
// TString nprog(m.get(FH_NPROG)); // TString nprog(m.get(FH_NPROG));
@ -182,6 +183,7 @@ bool M71310_application::auto_premi(TMask_field& f, KEY k)
// if (tipovers == DELEGA_BANCARIA) // if (tipovers == DELEGA_BANCARIA)
// numero << nprog; // numero << nprog;
/*
qual.setkey(1); qual.setkey(1);
qual.zero(); qual.zero();
qual.put(QUL_CODDITTA, codditta); qual.put(QUL_CODDITTA, codditta);
@ -193,9 +195,11 @@ bool M71310_application::auto_premi(TMask_field& f, KEY k)
qual.put(QUL_QLCT, (long)codtrib); qual.put(QUL_QLCT, (long)codtrib);
qual.put(QUL_QLAB, (long)artbil); qual.put(QUL_QLAB, (long)artbil);
qual.put(QUL_QLSERIE, serie); qual.put(QUL_QLSERIE, serie);
qual.put(QUL_QLNUMERO, numero); qual.put(QUL_QLNUMERO, numero); */
if (qual.read() == NOERR) // if (qual.read() == NOERR)
if (rel->read() == NOERR)
f.mask().stop_run(K_AUTO_ENTER); f.mask().stop_run(K_AUTO_ENTER);
else else
f.mask().stop_run(K_INS); f.mask().stop_run(K_INS);

35
m770/771310a.uml
View File

@ -110,8 +110,6 @@ BEGIN
OUTPUT F_ARTBIL QLAB OUTPUT F_ARTBIL QLAB
OUTPUT F_QLSERIE QLSERIE OUTPUT F_QLSERIE QLSERIE
OUTPUT F_ABI QLSERIE OUTPUT F_ABI QLSERIE
OUTPUT FH_NUMERO QLNUMERO
OUTPUT FH_ABISERIE QLSERIE
OUTPUT F_CAB1 QLNUMERO[1,5] OUTPUT F_CAB1 QLNUMERO[1,5]
OUTPUT F_CAB QLNUMERO[6,11] OUTPUT F_CAB QLNUMERO[6,11]
FIELD LF_QUAL->QLAP FIELD LF_QUAL->QLAP
@ -180,58 +178,36 @@ BEGIN
KEY 1 KEY 1
END END
STRING FH_ABISERIE 5
BEGIN
PROMPT 0 1 "HABISERIE"
FIELD LF_QUAL->QLSERIE
FLAGS "D"
KEY 1
GROUP GH
END
STRING FH_NUMERO 11
BEGIN
PROMPT 0 2 "HNUMERO"
FIELD LF_QUAL->QLNUMERO
KEY 1
FLAGS "D"
GROUP GH
END
STRING F_QLSERIE 5 STRING F_QLSERIE 5
BEGIN BEGIN
PROMPT 23 10 "" PROMPT 23 10 ""
FIELD LF_QUAL->QLSERIE FIELD LF_QUAL->QLSERIE
MESSAGE COPY,FH_ABISERIE
GROUP NUM_SERIE GROUP NUM_SERIE
// KEY 1 KEY 1
END END
STRING F_QLNUMERO 11 STRING F_QLNUMERO 11
BEGIN BEGIN
PROMPT 63 10 "" PROMPT 63 10 ""
FIELD LF_QUAL->QLNUMERO FIELD LF_QUAL->QLNUMERO
// MESSAGE COPY,FH_NUMERO
GROUP NUM_SERIE GROUP NUM_SERIE
// KEY 1 KEY 1
END END
NUMBER F_ABI 5 NUMBER F_ABI 5
BEGIN BEGIN
PROMPT 23 10 "" PROMPT 23 10 ""
FIELD LF_QUAL->QLSERIE FIELD LF_QUAL->QLSERIE
MESSAGE COPY,FH_ABISERIE
GROUP ABI_CAB GROUP ABI_CAB
// KEY 1 KEY 1
END END
NUMBER F_CAB1 5 NUMBER F_CAB1 5
BEGIN BEGIN
PROMPT 63 10 "" PROMPT 63 10 ""
FIELD LF_QUAL->QLNUMERO[1,5] FIELD LF_QUAL->QLNUMERO[1,5]
// MESSAGE COPY,FH_NUMERO
GROUP ABI_CAB GROUP ABI_CAB
// KEY 1 KEY 1
END END
NUMBER F_CAB 6 NUMBER F_CAB 6
@ -239,9 +215,8 @@ BEGIN
PROMPT 69 10 "" PROMPT 69 10 ""
FIELD LF_QUAL->QLNUMERO[6,11] FIELD LF_QUAL->QLNUMERO[6,11]
FLAGS "Z" FLAGS "Z"
// MESSAGE ADD,FH_NUMERO
GROUP ABI_CAB GROUP ABI_CAB
// KEY 1 KEY 1
END END
LIST F_QUADRO 2 LIST F_QUADRO 2

64
m770/772100.cpp
View File

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

6
m770/772200.cpp
View File

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

68
m770/772300.cpp
View File

@ -12,14 +12,14 @@
#include <assoc.h> #include <assoc.h>
#include <config.h> #include <config.h>
#include <lffiles.h> #include <lffiles.h>
#include "scperc.h" #include <scperc.h>
#include "rpag.h" #include <rpag.h>
#include "rver.h" #include <rver.h>
#include <comuni.h> #include <comuni.h>
#include <nditte.h> #include <nditte.h>
#include <anagr.h> #include <anagr.h>
#include <anafis.h> #include <anafis.h>
#include "perc.h" #include <perc.h>
#include <mailbox.h> #include <mailbox.h>
#include <execp.h> #include <execp.h>
@ -27,17 +27,17 @@
#include "772300.h" #include "772300.h"
#include "77lib.h" #include "77lib.h"
HIDDEN TString256 __tmp; HIDDEN TString256 __tmp;
HIDDEN bool filter_func (const TRelation *); HIDDEN bool filter_func (const TRelation *);
class TStampa_mov : public TPrintapp class TStampa_mov : public TPrintapp
{ {
char _liv; // Se stampa a livello di studio char _liv; // Se stampa a livello di studio
int _anno_dic; // Anno dichiarazione nei paramentri utente o studio int _anno_dic; // Anno dichiarazione nei paramentri utente o studio
int _row; // Riga corrente di stampa int _row; // Riga corrente di stampa
TString16 _section; TString16 _section;
TConfig* _cnf; TConfig* _cnf;
TVersamento_stampa _stvers; TVersamento_stampa _stvers;
TRelation* _rel; TRelation* _rel;
TCursor* _cur; TCursor* _cur;
TLocalisamfile* _nditte; TLocalisamfile* _nditte;
@ -45,28 +45,28 @@ class TStampa_mov : public TPrintapp
TLocalisamfile* _rpag; TLocalisamfile* _rpag;
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;
real _g_tot_imp, _g_tot_ver, _g_tot_rit; real _g_tot_imp, _g_tot_ver, _g_tot_rit;
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();
virtual bool user_create() ; virtual bool user_create() ;
virtual bool user_destroy(); virtual bool user_destroy();
virtual bool set_print(int m); virtual bool set_print(int m);
virtual bool preprocess_page (int,int); virtual bool preprocess_page (int,int);
virtual bool preprocess_print(int,int); virtual bool preprocess_print(int,int);
virtual print_action postprocess_page (int,int); virtual print_action postprocess_page (int,int);
bool init_print(); bool init_print();
void set_total_perc(); void set_total_perc();
void set_global_total(); void set_global_total();
void add(TVersamento& vers); void add(TVersamento& vers);
bool find(TVersamento& vers); bool find(TVersamento& vers);
public: public:
void dati_erogante(); void dati_erogante();
// void intesta_fissa(); // void intesta_fissa();
@ -87,7 +87,7 @@ HIDDEN TStampa_mov& app() { return (TStampa_mov&) main_app(); }
bool filter_func (const TRelation * rel) bool filter_func (const TRelation * rel)
{ {
const int anno_corr = app()._anno; const int anno_corr = app()._anno;
TRectype sch_curr(rel->lfile().curr()); TRectype sch_curr(rel->lfile().curr());
TSchedaP scheda(sch_curr); TSchedaP scheda(sch_curr);
return esiste_pag_in_anno(scheda, anno_corr); return esiste_pag_in_anno(scheda, anno_corr);
} }
@ -494,7 +494,7 @@ bool TStampa_mov::init_print()
void TStampa_mov::dati_erogante() void TStampa_mov::dati_erogante()
{ {
char tipoa; char tipoa;
bool ditta_ok = FALSE; bool ditta_ok = FALSE;
_ragsocER = ""; _ragsocER = "";
_codanagER = 0L; _codanagER = 0L;

8
m770/772400.cpp
View File

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

5
m770/774100.cpp
View File

@ -260,7 +260,7 @@ void TGenera::dati_rver(TLocalisamfile& rver,TSchedaP& sch, long numvers)
_tipover = rver.get_char(VER_TIPOVERS); _tipover = rver.get_char(VER_TIPOVERS);
_serie = rver.get (VER_SERIE); _serie = rver.get (VER_SERIE);
_numero = rver.get (VER_NUMERO); _numero = rver.get (VER_NUMERO);
_sNrog = rver.get (VER_PROGBANC); _sNprog = rver.get (VER_PROGBANC);
_sNprog.trim(); _sNprog.trim();
if (_sNprog.not_empty()) if (_sNprog.not_empty())
_numero << _sNprog; _numero << _sNprog;
@ -296,7 +296,10 @@ void TGenera::arrotonda()
progn.addstatus(1); progn.addstatus(1);
const long codditta = qual.get_long(QUL_CODDITTA); const long codditta = qual.get_long(QUL_CODDITTA);
if (codditta != _codditta) if (codditta != _codditta)
{
progn.addstatus(1); // per far andare fino alla fine il "termometro" (sic)
continue; continue;
}
importo = qual.get_real(QUL_QLRITVER); importo = qual.get_real(QUL_QLRITVER);
importo = round_770(importo); importo = round_770(importo);
qual.reread(_testandlock); qual.reread(_testandlock);

65
m770/776500.cpp
View File

@ -9,36 +9,29 @@
#include <lffiles.h> #include <lffiles.h>
#include <mailbox.h> #include <mailbox.h>
#include <execp.h> #include <execp.h>
#include "776.h" #include "776.h"
#include "776500.h" #include "776500.h"
#include "77lib.h" #include "77lib.h"
class TParametri_genera : public TApplication class TParametri_genera : public TApplication
{ {
char _liv; // Se stampa a livello di studio char _liv; // Se stampa a livello di studio
int _anno_dic; // Anno dichiarazione nei paramentri utente o studio int _anno_dic; // Anno dichiarazione nei paramentri utente o studio
TRelation* _rel;
TRelation* _rel; TString16 _section;
TConfig* _cnf;
// Configurazione int _risposta;
TString16 _section; bool init_print();
TConfig* _cnf; protected:
int _risposta; static bool ProgBancaHnd(TMask_field& f, KEY k);
virtual void on_config_change();
bool init_print(); virtual bool create() ;
virtual bool destroy();
protected: virtual bool menu(MENU_TAG m);
virtual void on_config_change(); public:
bool main_loop();
virtual bool create() ;
virtual bool destroy();
virtual bool menu(MENU_TAG m);
public:
bool main_loop();
// D = stampa ditta, S = stampa a livello di studio // D = stampa ditta, S = stampa a livello di studio
TParametri_genera(char livello='D') : _liv(toupper(livello)) {} TParametri_genera(char livello='D') : _liv(toupper(livello)) {}
}; };
HIDDEN TParametri_genera& app() { return (TParametri_genera&) main_app(); } HIDDEN TParametri_genera& app() { return (TParametri_genera&) main_app(); }
@ -49,10 +42,32 @@ void TParametri_genera::on_config_change()
_anno_dic = (int)conf.get_long(ANNO_SEL, _section); _anno_dic = (int)conf.get_long(ANNO_SEL, _section);
} }
// Copia su NUMERO CAB+PROGBANCA
bool TParametri_genera::ProgBancaHnd(TMask_field& f, KEY k)
{
TMask& m = f.mask();
if (k == K_TAB && m.is_running())
{
char tipov = m.get(F_TIPOVERS)[0];
TString cab(m.get(F_CAB));
TString prg(m.get(F_PROGBANCA));
TString numero;
if (tipov == DELEGA_BANCARIA)
{
numero = cab;
numero << prg;
m.set(FH_NUMERO, numero);
}
}
return TRUE;
}
bool TParametri_genera::main_loop() bool TParametri_genera::main_loop()
{ {
KEY tasto; KEY tasto;
TMask msk ("776500a"); TMask msk ("776500a");
msk.set_handler(F_CAB, ProgBancaHnd);
msk.set_handler(F_PROGBANCA, ProgBancaHnd);
long codditta, codditta_prec; long codditta, codditta_prec;
int i = 0; int i = 0;
@ -134,15 +149,11 @@ bool TParametri_genera::destroy()
{ {
TString appname = "771mod -3"; TString appname = "771mod -3";
TString body = ""; TString body = "";
body << _risposta; body << _risposta;
TMessage msg (appname,"",(const char*) body); TMessage msg (appname,"",(const char*) body);
TMailbox mb; TMailbox mb;
mb.send(msg); mb.send(msg);
} }
return TApplication::destroy(); return TApplication::destroy();
} }

2
m770/776500.h
View File

@ -8,3 +8,5 @@
#define F_NUMERO 107 #define F_NUMERO 107
#define F_ABI 108 #define F_ABI 108
#define F_CAB 109 #define F_CAB 109
#define F_PROGBANCA 110
#define FH_NUMERO 111

27
m770/776500a.uml
View File

@ -97,15 +97,11 @@ BEGIN
PROMPT 46 7 "Tipo versamento " PROMPT 46 7 "Tipo versamento "
ITEM "B|Delega bancaria" ITEM "B|Delega bancaria"
MESSAGE SHOW,97|SHOW,99|SHOW,F_ABI|SHOW,F_CAB|HIDE,96|HIDE,98|HIDE,F_SERIE|HIDE,F_NUMERO MESSAGE SHOW,97|SHOW,99|SHOW,F_ABI|SHOW,F_CAB|HIDE,96|HIDE,98|HIDE,F_SERIE|HIDE,F_NUMERO
// MESSAGE HIDE,GSERIE@|SHOW,ABI_CAB@
// MESSAGE ENABLE,F_ABI
ITEM "D|Distinta" ITEM "D|Distinta"
MESSAGE SHOW,96|SHOW,98|SHOW,F_SERIE|SHOW,F_NUMERO|HIDE,97|HIDE,99|HIDE,F_ABI|HIDE,F_CAB MESSAGE SHOW,96|SHOW,98|SHOW,F_SERIE|SHOW,F_NUMERO|HIDE,97|HIDE,99|HIDE,F_ABI|HIDE,F_CAB
// MESSAGE HIDE,ABI_CAB@|SHOW,GSERIE@
MESSAGE ENABLE,F_SERIE MESSAGE ENABLE,F_SERIE
ITEM "C|C/C Postale" ITEM "C|C/C Postale"
MESSAGE SHOW,96|SHOW,98|SHOW,F_SERIE|SHOW,F_NUMERO|HIDE,97|HIDE,99|HIDE,F_ABI|HIDE,F_CAB MESSAGE SHOW,96|SHOW,98|SHOW,F_SERIE|SHOW,F_NUMERO|HIDE,97|HIDE,99|HIDE,F_ABI|HIDE,F_CAB
// MESSAGE HIDE,ABI_CAB@|SHOW,GSERIE@
MESSAGE CLEAR,F_SERIE|DISABLE,F_SERIE MESSAGE CLEAR,F_SERIE|DISABLE,F_SERIE
FIELD LF_BASE->TIPOVERS FIELD LF_BASE->TIPOVERS
END END
@ -114,13 +110,32 @@ NUMBER F_ABI 5
BEGIN BEGIN
PROMPT 18 13 "" PROMPT 18 13 ""
FIELD LF_BASE->SERIE FIELD LF_BASE->SERIE
FLAGS "RZ"
GROUP ABI_CAB GROUP ABI_CAB
END END
NUMBER F_CAB 11 STRING FH_NUMERO 11
BEGIN
PROMPT 0 1 ""
FLAGS "D"
KEY 1
FIELD LF_BASE->NUMERO
END
NUMBER F_CAB 5
BEGIN BEGIN
PROMPT 63 13 "" PROMPT 63 13 ""
FIELD LF_BASE->NUMERO // FIELD LF_BASE->NUMERO
// MESSAGE COPY,FH_NUMERO
FLAGS "RZ"
GROUP ABI_CAB
END
NUMBER F_PROGBANCA 6
BEGIN
PROMPT 69 13 ""
FLAGS "RZ"
// MESSAGE ADD,FH_NUMERO
GROUP ABI_CAB GROUP ABI_CAB
END END

30
m770/77g1.cpp
View File

@ -27,10 +27,18 @@ inline TQuadroG1& app() { return (TQuadroG1&) main_app(); }
void TQuadroG1::init_modify_mode (TMask& m) void TQuadroG1::init_modify_mode (TMask& m)
{ {
init_mask(m); // init_mask(m);
m.disable(DLG_DELREC); m.disable(DLG_DELREC);
} }
int TQuadroG1::read(TMask& m)
{
int err = TRelation_application::read(m);
if (err == NOERR)
fill_arr(m);
return err;
}
void TQuadroG1::init_query_mode (TMask& m) void TQuadroG1::init_query_mode (TMask& m)
{ {
TString16 codditta; codditta << _codditta; TString16 codditta; codditta << _codditta;
@ -40,14 +48,10 @@ void TQuadroG1::init_query_mode (TMask& m)
m.field(F_CODDITTA).check(); m.field(F_CODDITTA).check();
} }
m.send_key(K_AUTO_ENTER,0); m.send_key(K_AUTO_ENTER,0);
// init_mask(m);
init_mask(m);
} }
void TQuadroG1::init_mask (TMask& m) //void TQuadroG1::init_mask (TMask& m){}
{
fill_arr(m);
}
void TQuadroG1::update_totals(TSheet_field& f) void TQuadroG1::update_totals(TSheet_field& f)
{ {
@ -100,12 +104,12 @@ bool TQuadroG1::user_destroy()
void TQuadroG1::arr2rel(const TMask& m) void TQuadroG1::arr2rel(const TMask& m)
{ {
TToken_string p3a(200); TToken_string p3a;
TToken_string p3b(200); TToken_string p3b;
TToken_string p3c(200); TToken_string p3c;
TToken_string p3d(200); TToken_string p3d;
TToken_string p3e(200); TToken_string p3e;
TToken_string p3f(200); TToken_string p3f;
TRectype& r = _rel->curr(); TRectype& r = _rel->curr();
int dlg; dlg = 0; int dlg; dlg = 0;

116
m770/77lib.h
View File

@ -124,7 +124,7 @@ class TNikArray_sheet : public TArray_sheet
TNikArray_sheet(short x, short y, short dx, short dy, const char* caption, TNikArray_sheet(short x, short y, short dx, short dy, const char* caption,
const char* head, byte buttons = 0, WINDOW parent = NULL_WIN, const char* head, byte buttons = 0, WINDOW parent = NULL_WIN,
int visible=0) int visible=0)
: TArray_sheet(x, y, dx, dy, caption,head, buttons), : TArray_sheet(x, y, dx, dy, caption,head, buttons, parent),
_visible_items(visible) {} _visible_items(visible) {}
bool destroy(int i = -1); bool destroy(int i = -1);
@ -145,23 +145,23 @@ const int SCHEDA_NON_ESISTENTE = -2;
class TSchedaP class TSchedaP
{ {
private: private:
long _codditta; long _codditta;
char _tipoa; char _tipoa;
long _codanagr; long _codanagr;
int _nprog; int _nprog;
real _spese_doc, _compenso_doc; real _spese_doc, _compenso_doc;
TDate _data_doc; TDate _data_doc;
public: public:
bool read(); bool read();
long codditta() const { return _codditta; } long codditta() const { return _codditta; }
char tipoa() const { return _tipoa; } char tipoa() const { return _tipoa; }
long codanagr() const { return _codanagr; } long codanagr() const { return _codanagr; }
int nprog() const { return _nprog; } int nprog() const { return _nprog; }
real compenso_doc() const; real compenso_doc() const;
real spese_doc() const; real spese_doc() const;
int anno_doc() const; int anno_doc() const;
bool operator == (const TSchedaP& sch) const bool operator == (const TSchedaP& sch) const
{ {
@ -194,9 +194,9 @@ class TSchedaP
class TPercipiente class TPercipiente
{ {
private: private:
long _codditta; long _codditta;
char _tipoa; char _tipoa;
long _codanagr; long _codanagr;
public: public:
long codditta() const { return _codditta; } long codditta() const { return _codditta; }
@ -235,22 +235,22 @@ class TPercipiente
class TVersamento class TVersamento
{ {
protected: protected:
long _codditta; long _codditta;
char _tipoa; char _tipoa;
long _codanagr; long _codanagr;
int _nprog; int _nprog;
int _nriga; int _nriga;
real _importo_versato; real _importo_versato;
public: public:
long codditta() const { return _codditta; } long codditta() const { return _codditta; }
char tipoa() const { return _tipoa; } char tipoa() const { return _tipoa; }
long codanagr() const { return _codanagr; } long codanagr() const { return _codanagr; }
int nprog() const { return _nprog; } int nprog() const { return _nprog; }
int nriga() const { return _nriga; } int nriga() const { return _nriga; }
real importo_versato() const { return _importo_versato; } 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) virtual TVersamento& operator = (const TVersamento& sch)
{ {
@ -296,13 +296,13 @@ class TVersamento
class TVersamento_stampa : public TVersamento class TVersamento_stampa : public TVersamento
{ {
private: private:
TAssoc_array _vers; TAssoc_array _vers;
real _importo_versato_residuo; real _importo_versato_residuo;
real _importo_versato; real _importo_versato;
int _status; // esito read_pags int _status; // esito read_pags
int _num_pags; // numero di pagamenti collegati int _num_pags; // numero di pagamenti collegati
bool _gia_letti_pag; bool _gia_letti_pag;
int _num_last_pag; // numero dell'ultimo pagamento int _num_last_pag; // numero dell'ultimo pagamento
public: 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); 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; return *this;
} }
int read_pags(TLocalisamfile* pagf=NULL); // legge i pagamenti collegati int read_pags(TLocalisamfile* pagf=NULL); // legge i pagamenti collegati
int num_pags(TLocalisamfile* pag=NULL); int num_pags(TLocalisamfile* pag=NULL);
bool last_pag(const int npag) const { return npag == _num_last_pag; } bool last_pag(const int npag) const { return npag == _num_last_pag; }
real importo_versato() const { return _importo_versato; } real importo_versato() const { return _importo_versato; }
void set_importo_versato(const real& imp) { _importo_versato = imp; } void set_importo_versato(const real& imp) { _importo_versato = imp; }
void add(TVersamento& vers); void add(TVersamento& vers);
bool find(TVersamento& vers); bool find(TVersamento& vers);
real vers_stampa(TLocalisamfile* rpag, const int nriga_pag, const real& vers, const real& rit); 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 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); 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 struct TLink770
{ {
TTipo_coll _tipo_coll; TTipo_coll _tipo_coll;
char _immissione; char _immissione;
char _tipo; char _tipo;
long _codanagr; long _codanagr;
long _numreg; long _numreg;
TString16 _numdoc; TString16 _numdoc;
TString16 _datadoc; TString16 _datadoc;
real _spese; real _spese;
real _compenso; real _compenso;
real _imposte; real _imposte;
real _ritenute; real _ritenute;
real _totdoc; real _totdoc;
bool read(const char* msg); bool read(const char* msg);

395
m770/77stq.cpp
View File

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