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

MOdifiche tanto per renderlo compilabile

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@464 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-10-26 12:21:30 +00:00
parent d8789177e7
commit 87766987bc
4 changed files with 2326 additions and 504 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ba/ba3.h
View File

@ -1,17 +1,6 @@
#ifndef __BA3_H #ifndef __BA3_H
#define __BA3_H #define __BA3_H
#ifdef MAIN
#define extern
#endif
#ifdef MAIN
#undef extern
#endif
const MAXSTR = 128;
static char __tmp [MAXSTR];
int ba3100(int argc, char* argv[]); int ba3100(int argc, char* argv[]);
int ba3200(int argc, char* argv[]); int ba3200(int argc, char* argv[]);
int ba3300(int argc, char* argv[]); int ba3300(int argc, char* argv[]);
@ -19,5 +8,6 @@ int ba3400(int argc, char* argv[]);
int ba3500(int argc, char* argv[]); int ba3500(int argc, char* argv[]);
int ba3600(int argc, char* argv[]); int ba3600(int argc, char* argv[]);
int ba3700(int argc, char* argv[]); int ba3700(int argc, char* argv[]);
int ba3800(int argc, char* argv[]);
#endif // __BA3_H #endif // __BA3_H

155
ba/ba3600.cpp
View File

@ -1,13 +1,9 @@
#include <mask.h> #include <mask.h>
#include <printapp.h> #include <printapp.h>
#include <scanner.h>
#include <relation.h> #include <relation.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
#include <prefix.h>
#include <lffiles.h>
#include <sort.h> #include <sort.h>
#include <assoc.h>
#include <progind.h> #include <progind.h>
#include <nditte.h> #include <nditte.h>
@ -17,11 +13,10 @@
#define ALIAS 50 #define ALIAS 50
extern char __tmp [MAXSTR]; static TString256 tmp;
static TFixed_string tmp(__tmp, MAXSTR);
const int TABLBU = (int)TTable::name2log("%LBU"); const int TABLBU = (int)TTable::name2log("%LBU");
const int TABINL = (int)TTable::name2log("%INL"); const int TABINL = (int)TTable::name2log("%INL");
class BA3600_application : public TPrintapp class BA3600_application : public TPrintapp
{ {
@ -41,7 +36,7 @@ class BA3600_application : public TPrintapp
bool pag_ann; bool pag_ann;
}; };
TMask* _msk; TMask* _msk;
TTable* _tab_inl; TTable* _tab_inl;
TTable* _tab_lbu; TTable* _tab_lbu;
TTable* _tab_reg; TTable* _tab_reg;
@ -113,9 +108,9 @@ void BA3600_application::crea_sort()
init_sort(); init_sort();
_tab_lbu->zero(); _tab_lbu->zero();
// TString dep (format ("%4d%-3s", _anno, (const char*) _cod_lib)); // TString dep (format ("%4d%-3s", _anno, (const char*) _cod_lib));
// sprintf(__tmp, "%4d", _anno); // sprintf(__tmp, "%4d", _anno);
// strcat (__tmp, _cod_lib); // strcat (__tmp, _cod_lib);
dep = format ("%4d", _anno); dep = format ("%4d", _anno);
dep << format ("%-3s", (const char*) _cod_lib); dep << format ("%-3s", (const char*) _cod_lib);
_tab_lbu->put("CODTAB", (const char*) dep); _tab_lbu->put("CODTAB", (const char*) dep);
@ -136,60 +131,60 @@ void BA3600_application::crea_sort()
mese = _tab_inl->get_int("I1"); mese = _tab_inl->get_int("I1");
if (((_tipo_stampa == 1) && (mese >= _meseda) && (mese <= _mesea)) || if (((_tipo_stampa == 1) && (mese >= _meseda) && (mese <= _mesea)) ||
((_tipo_stampa == 2) && (mese == _mesea))) ((_tipo_stampa == 2) && (mese == _mesea)))
{ {
TRecfield num_riga (_tab_inl->curr(),"CODTAB",7,12); TRecfield num_riga (_tab_inl->curr(),"CODTAB",7,12);
anno = _tab_inl->get_long("I0"); anno = _tab_inl->get_long("I0");
numini_paglib = _tab_inl->get_long("I2"); numini_paglib = _tab_inl->get_long("I2");
numfin_paglib = _tab_inl->get_long("I3"); numfin_paglib = _tab_inl->get_long("I3");
codditta = _tab_inl->get_long("I4"); codditta = _tab_inl->get_long("I4");
cod_reg = _tab_inl->get("S0"); cod_reg = _tab_inl->get("S0");
cod_vidimaz = _tab_inl->get("S1"); cod_vidimaz = _tab_inl->get("S1");
numini_pagut = _tab_inl->get_long("I5"); numini_pagut = _tab_inl->get_long("I5");
numfin_pagut = _tab_inl->get_long("I6"); numfin_pagut = _tab_inl->get_long("I6");
stamp_bollato = _tab_inl->get_bool("B0"); stamp_bollato = _tab_inl->get_bool("B0");
pagine_ann = _tab_inl->get_bool("B1"); pagine_ann = _tab_inl->get_bool("B1");
//Se tipo_stampa = 1 (stampa di prova) stampo ugualmente. Se tipo_stampa = 2 //Se tipo_stampa = 1 (stampa di prova) stampo ugualmente. Se tipo_stampa = 2
// (stampa su bollato), stampo solamente se il flag di stampa su bollato e' // (stampa su bollato), stampo solamente se il flag di stampa su bollato e'
// FALSE. // FALSE.
if ((_tipo_stampa == 1) || ((_tipo_stampa == 2) && (!stamp_bollato))) if ((_tipo_stampa == 1) || ((_tipo_stampa == 2) && (!stamp_bollato)))
{ {
ultimo_mese = mese; ultimo_mese = mese;
stampato = TRUE; stampato = TRUE;
sprintf (_lib->mese, "%2d", mese); sprintf (_lib->mese, "%2d", mese);
sprintf (_lib->anno, "%4d", anno); sprintf (_lib->anno, "%4d", anno);
sprintf (_lib->nini_plib, "%5d", numini_paglib); sprintf (_lib->nini_plib, "%5d", numini_paglib);
_lib->num_riga = long(num_riga); _lib->num_riga = long(num_riga);
_lib->nfin_plib = numfin_paglib; _lib->nfin_plib = numfin_paglib;
_lib->codditta = codditta; _lib->codditta = codditta;
sprintf (_lib->cod_reg, "%3s", (const char*) cod_reg); sprintf (_lib->cod_reg, "%3s", (const char*) cod_reg);
_lib->nini_put = numini_pagut; _lib->nini_put = numini_pagut;
_lib->nfin_put = numfin_pagut; _lib->nfin_put = numfin_pagut;
sprintf (_lib->cod_vid, "%3s", (const char*) cod_vidimaz); sprintf (_lib->cod_vid, "%3s", (const char*) cod_vidimaz);
_lib->stamp_bol = stamp_bollato; _lib->stamp_bol = stamp_bollato;
_lib->pag_ann = pagine_ann; _lib->pag_ann = pagine_ann;
_sort->sort ((const char*) _lib); _sort->sort ((const char*) _lib);
//Se si tratta di una stampa su bollato e il flag "stampa su bollato" indica //Se si tratta di una stampa su bollato e il flag "stampa su bollato" indica
//che non e' mai stato stampato su bollato (flag = FALSE), allora devo stampare //che non e' mai stato stampato su bollato (flag = FALSE), allora devo stampare
//il record della tabella %INL, e contemporaneamente aggiornare il flag, per //il record della tabella %INL, e contemporaneamente aggiornare il flag, per
//evitare di ristampare successivamente su bollato //evitare di ristampare successivamente su bollato
if (_tipo_stampa == 2) if (_tipo_stampa == 2)
{ {
_tab_inl->put("B0", "X"); _tab_inl->put("B0", "X");
_tab_inl->rewrite(); _tab_inl->rewrite();
} }
} }
} }
} }
_sort->endsort(); _sort->endsort();
} }
// Se si tratta di una stampa su libro bollato, aggiorno sulla tabella %LBU // l' ultimo mese stampato, l' ultima pagina stampata e il flag che indica se // Se si tratta di una stampa su libro bollato, aggiorno sulla tabella %LBU // l' ultimo mese stampato, l' ultima pagina stampata e il flag che indica se
// quel record e' stato stampato su bollato // quel record e' stato stampato su bollato
if ((_tipo_stampa == 2) && (stampato)) // stampato e' il flag che mi dice if ((_tipo_stampa == 2) && (stampato)) // stampato e' il flag che mi dice
{ //se almeno un record, nella stampa { //se almeno un record, nella stampa
@ -218,13 +213,13 @@ bool BA3600_application::set_print(int)
_anno = _msk->get_long(F_ANNOA); _anno = _msk->get_long(F_ANNOA);
} }
else if (_tipo_stampa == 2) else if (_tipo_stampa == 2)
{ {
_cod_lib = _msk->get(F_LIBRO_UNICO2); _cod_lib = _msk->get(F_LIBRO_UNICO2);
_mesea = _msk->get_int(F_STAMPA_MESE); _mesea = _msk->get_int(F_STAMPA_MESE);
_anno = _msk->get_long(F_STAMPA_ANNO); _anno = _msk->get_long(F_STAMPA_ANNO);
_cod_lib_stampa = _msk->get(F_CODLIB_STAMPA); _cod_lib_stampa = _msk->get(F_CODLIB_STAMPA);
_pag_fin = _msk->get_long(F_PAGFINALE); _pag_fin = _msk->get_long(F_PAGFINALE);
} }
_pag_fuori_sequenza = FALSE; _pag_fuori_sequenza = FALSE;
@ -238,26 +233,26 @@ bool BA3600_application::set_print(int)
} }
/********* /*********
bool BA3600_application::preprocess_page(int file, int counter) bool BA3600_application::preprocess_page(int file, int counter)
{ {
if (_tipo_stampa == 1) if (_tipo_stampa == 1)
{ {
if (preprocess_prova(counter)) if (preprocess_prova(counter))
return TRUE; return TRUE;
else else
return FALSE; return FALSE;
} }
else if (_tipo_stampa == 2) else if (_tipo_stampa == 2)
{ {
if (preprocess_bollato()) if (preprocess_bollato())
return TRUE; return TRUE;
else else
return FALSE; return FALSE;
} }
return TRUE; return TRUE;
} }
***********/ ***********/
bool BA3600_application::preprocess_page(int file, int counter) bool BA3600_application::preprocess_page(int file, int counter)
{ {
@ -284,10 +279,10 @@ bool BA3600_application::preprocess_page(int file, int counter)
_num_riga = lib->num_riga; _num_riga = lib->num_riga;
_stamp_bollato = lib->stamp_bol; _stamp_bollato = lib->stamp_bol;
_pag_ann = lib->pag_ann; _pag_ann = lib->pag_ann;
// _stamp_bollato_str = _stamp_bollato.string(); // _stamp_bollato_str = _stamp_bollato.string();
//Il controllo di pagine fuori sequenza viene sempre effettuato, tranne che per //Il controllo di pagine fuori sequenza viene sempre effettuato, tranne che per
//il primo record. //il primo record.
if (counter) if (counter)
{ {
@ -309,18 +304,18 @@ bool BA3600_application::preprocess_page(int file, int counter)
} }
/******* /*******
bool BA3600_application::preprocess_bollato() bool BA3600_application::preprocess_bollato()
{ {
} }
******/ ******/
void BA3600_application::set_page(int file, int counter) void BA3600_application::set_page(int file, int counter)
{ {
if (_tipo_stampa == 1) if (_tipo_stampa == 1)
setta_righe_prova(); setta_righe_prova();
else if (_tipo_stampa == 2) else if (_tipo_stampa == 2)
setta_righe_bollato(); setta_righe_bollato();
} }
void BA3600_application::setta_righe_prova() void BA3600_application::setta_righe_prova()
@ -397,12 +392,12 @@ const char* BA3600_application::ragsoc_ditta(long codditta)
if (nditte.bad()) if (nditte.bad())
nditte.zero(); nditte.zero();
tmp = nditte.get(NDT_RAGSOC); tmp = nditte.get(NDT_RAGSOC);
return (__tmp); return tmp;
} }
const char* BA3600_application::descrizione_codreg(TString& codreg) const char* BA3600_application::descrizione_codreg(TString& codreg)
{ {
TString dep; TString16 dep;
_tab_reg->zero(); _tab_reg->zero();
dep = format("%4d", _anno); dep = format("%4d", _anno);
@ -412,7 +407,7 @@ const char* BA3600_application::descrizione_codreg(TString& codreg)
if (_tab_reg->bad()) if (_tab_reg->bad())
_tab_reg->zero(); _tab_reg->zero();
tmp = _tab_reg->get("S0"); tmp = _tab_reg->get("S0");
return (__tmp); return tmp;
} }
void BA3600_application::preprocess_header() void BA3600_application::preprocess_header()

1837
ba/ba3800.cpp
View File

File diff suppressed because it is too large Load Diff

2
ba/prassi.mnu
View File

@ -73,7 +73,7 @@
6|Codici Attivita'|ba3 -1 %ais 6|Codici Attivita'|ba3 -1 %ais
6|Libri sociali|ba3 -1 %itl 6|Libri sociali|ba3 -1 %itl
6|Banche|ba3 -1 %ban 6|Banche|ba3 -1 %ban
6|IV direttiva CEE|ba3 -1 %ivd 6|IV direttiva CEE|ba3 -7
6|Valute|ba3 -1 %val 6|Valute|ba3 -1 %val
6|Lingue|ba3 -1 %lng 6|Lingue|ba3 -1 %lng
7|Tabelle ditta|2 7|Tabelle ditta|2