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);

683
m770/771310a.uml
View File

@ -1,354 +1,329 @@
// 771310a.uml - Quadro L // 771310a.uml - Quadro L
#include "771310.h" #include "771310.h"
TOOLBAR "" 0 18 0 4 TOOLBAR "" 0 18 0 4
BUTTON F_GENERA 21 2 BUTTON F_GENERA 21 2
BEGIN BEGIN
PROMPT -13 -3 "~Generazione" PROMPT -13 -3 "~Generazione"
END END
BUTTON F_PARAMETRI 21 2 BUTTON F_PARAMETRI 21 2
BEGIN BEGIN
PROMPT -23 -3 "~Parametri Generazione" PROMPT -23 -3 "~Parametri Generazione"
END END
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "QUADRO L" -1 -1 78 18 PAGE "QUADRO L" -1 -1 78 18
#define ABI_CAB 7 #define ABI_CAB 7
#define NUM_SERIE 8 #define NUM_SERIE 8
#define TEXT_NUM_SERIE 9 #define TEXT_NUM_SERIE 9
#define TEXT_ABI_CAB 6 #define TEXT_ABI_CAB 6
#define GH 10 #define GH 10
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 2 1 "Ditta "
FLAGS "RDG" FLAGS "RDG"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
FIELD LF_QUAL->CODDITTA FIELD LF_QUAL->CODDITTA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 2 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
TEXT 96 TEXT 96
BEGIN BEGIN
PROMPT 2 10 "Numero serie " PROMPT 2 10 "Numero serie "
GROUP TEXT_NUM_SERIE GROUP TEXT_NUM_SERIE
END END
TEXT 97 TEXT 97
BEGIN BEGIN
PROMPT 2 10 "Codice ABI " PROMPT 2 10 "Codice ABI "
GROUP ABI_CAB GROUP ABI_CAB
END END
TEXT 98 TEXT 98
BEGIN BEGIN
PROMPT 46 10 "Numero quietanza " PROMPT 46 10 "Numero quietanza "
GROUP TEXT_NUM_SERIE GROUP TEXT_NUM_SERIE
END END
TEXT 99 TEXT 99
BEGIN BEGIN
PROMPT 46 10 "Codice CAB " PROMPT 46 10 "Codice CAB "
GROUP ABI_CAB GROUP ABI_CAB
END END
GROUPBOX DLG_NULL 78 7 GROUPBOX DLG_NULL 78 7
BEGIN BEGIN
PROMPT 0 5 "" PROMPT 0 5 ""
END END
NUMBER F_ANNODIC 4 NUMBER F_ANNODIC 4
BEGIN BEGIN
PROMPT 2 4 "Anno dichiarazione " PROMPT 2 4 "Anno dichiarazione "
END END
NUMBER F_QLANNOPAG 4 NUMBER F_QLANNOPAG 4
BEGIN BEGIN
PROMPT 2 6 "Anno pagamento " PROMPT 2 6 "Anno pagamento "
USE LF_QUAL KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (QLAP=#F_ANNODIC)) USE LF_QUAL KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (QLAP=#F_ANNODIC))
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
INPUT QLAP F_QLANNOPAG INPUT QLAP F_QLANNOPAG
DISPLAY "A.P." QLAP DISPLAY "A.P." QLAP
DISPLAY "M.P." QLMP DISPLAY "M.P." QLMP
DISPLAY "Ritenute@15" QLRITEFF DISPLAY "Ritenute@15" QLRITEFF
DISPLAY "Importo versato" QLRITVER DISPLAY "Importo versato" QLRITVER
DISPLAY "L.V." QLLV DISPLAY "L.V." QLLV
DISPLAY "T.V." QLTV DISPLAY "T.V." QLTV
DISPLAY "C.T." QLCT DISPLAY "C.T." QLCT
DISPLAY "Art.Bil." QLAB DISPLAY "Art.Bil." QLAB
DISPLAY "Data Vers." QLDV DISPLAY "Data Vers." QLDV
DISPLAY "Serie/ABI" QLSERIE DISPLAY "Serie/ABI" QLSERIE
DISPLAY "Numero/CAB@11" QLNUMERO DISPLAY "Numero/CAB@11" QLNUMERO
DISPLAY "Rss" QLRSS DISPLAY "Rss" QLRSS
DISPLAY "Note@7" QLNOTE DISPLAY "Note@7" QLNOTE
OUTPUT F_QLDATAVERS QLDV OUTPUT F_QLDATAVERS QLDV
OUTPUT F_QLMESEPAG QLMP OUTPUT F_QLMESEPAG QLMP
OUTPUT F_QLANNOPAG QLAP OUTPUT F_QLANNOPAG QLAP
OUTPUT F_QLLUOVERS QLLV OUTPUT F_QLLUOVERS QLLV
OUTPUT F_QLTIPOVERS QLTV OUTPUT F_QLTIPOVERS QLTV
OUTPUT F_QLCODTRIB QLCT OUTPUT F_QLCODTRIB QLCT
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 F_CAB1 QLNUMERO[1,5]
OUTPUT FH_ABISERIE QLSERIE OUTPUT F_CAB QLNUMERO[6,11]
OUTPUT F_CAB1 QLNUMERO[1,5] FIELD LF_QUAL->QLAP
OUTPUT F_CAB QLNUMERO[6,11] FLAGS "R"
FIELD LF_QUAL->QLAP VALIDATE FIXLEN_FUNC 4
FLAGS "R" WARNING "L' anno deve essere indicato per esteso"
VALIDATE FIXLEN_FUNC 4 KEY 1
WARNING "L' anno deve essere indicato per esteso" END
KEY 1
END LIST F_QLMESEPAG 2 13
BEGIN
LIST F_QLMESEPAG 2 13 PROMPT 46 6 "Mese pagamento "
BEGIN FIELD LF_QUAL->QLMP
PROMPT 46 6 "Mese pagamento " ITEM " |Indefinito"
FIELD LF_QUAL->QLMP FLAGS "M"
ITEM " |Indefinito" KEY 1
FLAGS "M" END
KEY 1
END DATE F_QLDATAVERS
BEGIN
DATE F_QLDATAVERS PROMPT 2 7 "Data versamento "
BEGIN FIELD LF_QUAL->QLDV
PROMPT 2 7 "Data versamento " KEY 1
FIELD LF_QUAL->QLDV END
KEY 1
END LIST F_QLLUOVERS 11
BEGIN
LIST F_QLLUOVERS 11 PROMPT 46 7 "Luogo versamento "
BEGIN ITEM " |Nessuno"
PROMPT 46 7 "Luogo versamento " ITEM "C|Concessione"
ITEM " |Nessuno" ITEM "T|Tesoreria"
ITEM "C|Concessione" FIELD LF_QUAL->QLLV
ITEM "T|Tesoreria" KEY 1
FIELD LF_QUAL->QLLV END
KEY 1
END LIST F_QLTIPOVERS 15
BEGIN
LIST F_QLTIPOVERS 15 PROMPT 2 8 "Tipo versamento "
BEGIN ITEM " |Nessuno"
PROMPT 2 8 "Tipo versamento " MESSAGE SHOW,97|SHOW,99|HIDE,96|HIDE,98|RESET,GH@
ITEM " |Nessuno" MESSAGE ENABLE,F_QLSERIE
MESSAGE SHOW,97|SHOW,99|HIDE,96|HIDE,98|RESET,GH@ ITEM "B|Delega bancaria"
MESSAGE ENABLE,F_QLSERIE MESSAGE RESET,GH@|HIDE,TEXT_NUM_SERIE@|SHOW,ABI_CAB@
ITEM "B|Delega bancaria" MESSAGE ENABLE,ABI_CAB@|DISABLE,NUM_SERIE@
MESSAGE RESET,GH@|HIDE,TEXT_NUM_SERIE@|SHOW,ABI_CAB@ ITEM "D|Distinta"
MESSAGE ENABLE,ABI_CAB@|DISABLE,NUM_SERIE@ MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|HIDE,ABI_CAB@
ITEM "D|Distinta" MESSAGE ENABLE,NUM_SERIE@|DISABLE,ABI_CAB@
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|HIDE,ABI_CAB@ ITEM "C|C/C Postale"
MESSAGE ENABLE,NUM_SERIE@|DISABLE,ABI_CAB@ MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|CLEAR,F_ABI|CLEAR,F_QLSERIE|HIDE,ABI_CAB@
ITEM "C|C/C Postale" MESSAGE DISABLE,F_QLSERIE|DISABLE,ABI_CAB@
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|CLEAR,F_ABI|CLEAR,F_QLSERIE|HIDE,ABI_CAB@ FIELD LF_QUAL->QLTV
MESSAGE DISABLE,F_QLSERIE|DISABLE,ABI_CAB@ KEY 1
FIELD LF_QUAL->QLTV END
KEY 1
END NUMBER F_QLCODTRIB 4
BEGIN
NUMBER F_QLCODTRIB 4 PROMPT 46 8 "Codice tributo "
BEGIN FIELD LF_QUAL->QLCT
PROMPT 46 8 "Codice tributo " KEY 1
FIELD LF_QUAL->QLCT END
KEY 1
END NUMBER F_ARTBIL 2
BEGIN
NUMBER F_ARTBIL 2 PROMPT 2 9 "Articolo di bilancio "
BEGIN FIELD LF_QUAL->QLAB
PROMPT 2 9 "Articolo di bilancio " KEY 1
FIELD LF_QUAL->QLAB END
KEY 1
END STRING F_QLSERIE 5
BEGIN
STRING FH_ABISERIE 5 PROMPT 23 10 ""
BEGIN FIELD LF_QUAL->QLSERIE
PROMPT 0 1 "HABISERIE" GROUP NUM_SERIE
FIELD LF_QUAL->QLSERIE KEY 1
FLAGS "D" END
KEY 1
GROUP GH STRING F_QLNUMERO 11
END BEGIN
PROMPT 63 10 ""
STRING FH_NUMERO 11 FIELD LF_QUAL->QLNUMERO
BEGIN GROUP NUM_SERIE
PROMPT 0 2 "HNUMERO" KEY 1
FIELD LF_QUAL->QLNUMERO END
KEY 1
FLAGS "D" NUMBER F_ABI 5
GROUP GH BEGIN
END PROMPT 23 10 ""
FIELD LF_QUAL->QLSERIE
STRING F_QLSERIE 5 GROUP ABI_CAB
BEGIN KEY 1
PROMPT 23 10 "" END
FIELD LF_QUAL->QLSERIE
MESSAGE COPY,FH_ABISERIE NUMBER F_CAB1 5
GROUP NUM_SERIE BEGIN
// KEY 1 PROMPT 63 10 ""
END FIELD LF_QUAL->QLNUMERO[1,5]
GROUP ABI_CAB
STRING F_QLNUMERO 11 KEY 1
BEGIN END
PROMPT 63 10 ""
FIELD LF_QUAL->QLNUMERO NUMBER F_CAB 6
// MESSAGE COPY,FH_NUMERO BEGIN
GROUP NUM_SERIE PROMPT 69 10 ""
// KEY 1 FIELD LF_QUAL->QLNUMERO[6,11]
END FLAGS "Z"
GROUP ABI_CAB
NUMBER F_ABI 5 KEY 1
BEGIN END
PROMPT 23 10 ""
FIELD LF_QUAL->QLSERIE LIST F_QUADRO 2
MESSAGE COPY,FH_ABISERIE BEGIN
GROUP ABI_CAB PROMPT 0 12 "Codice quadro "
// KEY 1 HELP "Inserire il codice quadro"
END ITEM "| "
ITEM "A|A"
NUMBER F_CAB1 5 ITEM "B|B"
BEGIN ITEM "B1|B1"
PROMPT 63 10 "" ITEM "C|C"
FIELD LF_QUAL->QLNUMERO[1,5] ITEM "D|D"
// MESSAGE COPY,FH_NUMERO ITEM "D1|D1"
GROUP ABI_CAB ITEM "E|E"
// KEY 1 ITEM "E1|E1"
END ITEM "G|G"
ITEM "G1|G1"
NUMBER F_CAB 6 FIELD LF_QUAL->QLCODQUA
BEGIN END
PROMPT 69 10 ""
FIELD LF_QUAL->QLNUMERO[6,11] TEXT DLG_NULL
FLAGS "Z" BEGIN
// MESSAGE ADD,FH_NUMERO PROMPT 0 13 "Somme assoggettate a ritenuta:"
GROUP ABI_CAB END
// KEY 1
END TEXT DLG_NULL
BEGIN
LIST F_QUADRO 2 PROMPT 0 14 "Rit. Effettuate"
BEGIN END
PROMPT 0 12 "Codice quadro "
HELP "Inserire il codice quadro" NUMBER F_QLRITEFF 15
ITEM "| " BEGIN
ITEM "A|A" PROMPT 0 15 ""
ITEM "B|B" FIELD LF_QUAL->QLRITEFF
ITEM "B1|B1" PICTURE "."
ITEM "C|C" FLAGS "R"
ITEM "D|D" END
ITEM "D1|D1"
ITEM "E|E" TEXT DLG_NULL
ITEM "E1|E1" BEGIN
ITEM "G|G" PROMPT 17 14 "Importo versato"
ITEM "G1|G1" END
FIELD LF_QUAL->QLCODQUA
END NUMBER F_QLRITVER 15
BEGIN
TEXT DLG_NULL PROMPT 17 15 ""
BEGIN FIELD LF_QUAL->QLRITVER
PROMPT 0 13 "Somme assoggettate a ritenuta:" PICTURE "."
END FLAGS "R"
END
TEXT DLG_NULL
BEGIN TEXT DLG_NULL
PROMPT 0 14 "Rit. Effettuate" BEGIN
END PROMPT 37 14 "RSS"
END
NUMBER F_QLRITEFF 15
BEGIN LIST F_QLRSS 7
PROMPT 0 15 "" BEGIN
FIELD LF_QUAL->QLRITEFF PROMPT 34 15 ""
PICTURE "." ITEM " |Nessuna"
FLAGS "R" ITEM "1|VA"
END ITEM "2|SA"
ITEM "3|SI"
TEXT DLG_NULL FIELD LF_QUAL->QLRSS
BEGIN END
PROMPT 17 14 "Importo versato"
END TEXT DLG_NULL
BEGIN
NUMBER F_QLRITVER 15 PROMPT 58 14 "Note"
BEGIN END
PROMPT 17 15 ""
FIELD LF_QUAL->QLRITVER BOOLEAN F_NOTEA
PICTURE "." BEGIN
FLAGS "R" PROMPT 45 15 "A"
END END
TEXT DLG_NULL BOOLEAN F_NOTEB
BEGIN BEGIN
PROMPT 37 14 "RSS" PROMPT 50 15 "B"
END END
LIST F_QLRSS 7 BOOLEAN F_NOTEC
BEGIN BEGIN
PROMPT 34 15 "" PROMPT 55 15 "C"
ITEM " |Nessuna" END
ITEM "1|VA"
ITEM "2|SA" BOOLEAN F_NOTED
ITEM "3|SI" BEGIN
FIELD LF_QUAL->QLRSS PROMPT 60 15 "D"
END END
TEXT DLG_NULL BOOLEAN F_NOTEE
BEGIN BEGIN
PROMPT 58 14 "Note" PROMPT 65 15 "E"
END END
BOOLEAN F_NOTEA BOOLEAN F_NOTEF
BEGIN BEGIN
PROMPT 45 15 "A" PROMPT 70 15 "F"
END END
BOOLEAN F_NOTEB BOOLEAN F_NOTEG
BEGIN BEGIN
PROMPT 50 15 "B" PROMPT 75 15 "G"
END END
BOOLEAN F_NOTEC ENDPAGE
BEGIN
PROMPT 55 15 "C" ENDMASK
END
BOOLEAN F_NOTED
BEGIN
PROMPT 60 15 "D"
END
BOOLEAN F_NOTEE
BEGIN
PROMPT 65 15 "E"
END
BOOLEAN F_NOTEF
BEGIN
PROMPT 70 15 "F"
END
BOOLEAN F_NOTEG
BEGIN
PROMPT 75 15 "G"
END
ENDPAGE
ENDMASK

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"

1033
m770/774100.cpp
View File

File diff suppressed because it is too large Load Diff

2
m770/776100.cpp
View File

@ -122,7 +122,7 @@ bool TManutenzione_quadri::exec_soci(TMask_field& f, KEY k)
TExternal_app a(appname); TExternal_app a(appname);
a.run(); a.run();
} }
return TRUE; return TRUE;
} }

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;

118
m770/77lib.h
View File

@ -75,7 +75,7 @@ typedef enum { estinto=0, normale, dichiarante } TipoDitta;
// Controlla se esiste la dic // Controlla se esiste la dic
bool exist_dichiar_770 (long codditta, bool sogg_dich= FALSE); bool exist_dichiar_770 (long codditta, bool sogg_dich= FALSE);
// Immette una dichiarazione // 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 // Ritorna l'anno sui parametri di studio
int anno_770(); 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, 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;
} }

36
m770/pe1.h
View File

@ -1,18 +1,18 @@
#ifndef _PE1_H #ifndef _PE1_H
#define _PE1_H #define _PE1_H
//771230m.uml (prospetto E1) //771230m.uml (prospetto E1)
#define PE1F_CODCAUS 113 #define PE1F_CODCAUS 113
#define PE1F_IMPONIBILE 119 #define PE1F_IMPONIBILE 119
#define PE1F_RITENUTA 160 #define PE1F_RITENUTA 160
#define PE1F_COMPENSO 161 #define PE1F_COMPENSO 161
#define PE1F_CODCAUS2 162 #define PE1F_CODCAUS2 162
#define F_CODANAGR2 170 #define F_CODANAGR2 170
#define F_RAGSOC2 171 #define F_RAGSOC2 171
#define PE1F_HPERC 172 #define PE1F_HPERC 172
#define PE1F_CODDITTA 181 #define PE1F_CODDITTA 181
#define PE1F_DESCRCAUS 184 #define PE1F_DESCRCAUS 184
#define PE1F_RAGDITTA 185 #define PE1F_RAGDITTA 185
#endif #endif

46
m770/rpag.h
View File

@ -1,23 +1,23 @@
// Mod.770 - Scheda percipienti - Righe Pagamenti // Mod.770 - Scheda percipienti - Righe Pagamenti
#ifndef __RPAG_H #ifndef __RPAG_H
#define __RPAG_H #define __RPAG_H
#define PAG_CODDITTA "CODDITTA" #define PAG_CODDITTA "CODDITTA"
#define PAG_TIPOA "TIPOA" #define PAG_TIPOA "TIPOA"
#define PAG_CODANAGR "CODANAGR" #define PAG_CODANAGR "CODANAGR"
#define PAG_NPROG "NPROG" #define PAG_NPROG "NPROG"
#define PAG_NRIGA "NRIGA" #define PAG_NRIGA "NRIGA"
#define PAG_DATAPAG "DATAPAG" #define PAG_DATAPAG "DATAPAG"
#define PAG_IMPONIBILE "IMPONIBILE" #define PAG_IMPONIBILE "IMPONIBILE"
#define PAG_PERC "PERC" #define PAG_PERC "PERC"
#define PAG_RITENUTA "RITENUTA" #define PAG_RITENUTA "RITENUTA"
#define PAG_COMPENSO "COMPENSO" #define PAG_COMPENSO "COMPENSO"
#define PAG_NETTO "NETTO" #define PAG_NETTO "NETTO"
#define PAG_NUMVERS "NUMVERS" #define PAG_NUMVERS "NUMVERS"
#define PAG_NUMPAG "NUMPAG" #define PAG_NUMPAG "NUMPAG"
#define PAG_SPESA "SPESA" #define PAG_SPESA "SPESA"
#define PAG_INPSPERC "CTSSNPERC" #define PAG_INPSPERC "CTSSNPERC"
#define PAG_INPSCOMP "CTSSNCOMP" #define PAG_INPSCOMP "CTSSNCOMP"
#endif #endif