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

Correzione allla stampa del libro unico

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@998 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-02-14 16:28:44 +00:00
parent 7225d9c15d
commit 1d30319206
2 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
ba/ba3600.cpp
View File

@ -18,7 +18,6 @@
static TString256 tmp; static TString256 tmp;
const int TABLBU = (int)TTable::name2log("%LBU"); const int TABLBU = (int)TTable::name2log("%LBU");
const int TABINL = (int)TTable::name2log("%INL");
class BA3600_application : public TPrintapp class BA3600_application : public TPrintapp
{ {
@ -39,9 +38,9 @@ class BA3600_application : public TPrintapp
}; };
TMask* _msk; TMask* _msk;
TTable* _tab_inl;
TTable* _tab_lbu; TTable* _tab_lbu;
TTable* _tab_reg; TTable* _tab_reg;
TLocalisamfile* _indlib;
TLocalisamfile* _nditte; TLocalisamfile* _nditte;
TLocalisamfile* _anag; TLocalisamfile* _anag;
TLocalisamfile* _comuni; TLocalisamfile* _comuni;
@ -129,33 +128,33 @@ void BA3600_application::crea_sort()
if (_tab_lbu->read(_isequal) == NOERR) if (_tab_lbu->read(_isequal) == NOERR)
{ {
_tab_inl->zero(); _indlib->setkey(1);
app = format("%4d" , _anno); _indlib->zero();
app << format("%-3s", (const char*) _cod_lib); _indlib->put("ANNO", _anno);
_tab_inl->put("CODTAB", (const char*) app); _indlib->put("CODLIB", (const char*) _cod_lib);
TRectype rec (_tab_inl->curr()); TRectype rec (_indlib->curr());
for (_tab_inl->read(); !_tab_inl->eof(); _tab_inl->next()) for (_indlib->read(); !_indlib->eof(); _indlib->next())
{ {
if (_tab_inl->curr() > rec) break; if (_indlib->curr() > rec) break;
mese = _tab_inl->get_int("I1"); mese = _indlib->get_int("MESEREG");
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); long num_riga = _indlib->get_long("NUMREG");
anno = _tab_inl->get_long("I0"); anno = _indlib->get_long("ANNOREG");
numini_paglib = _tab_inl->get_long("I2"); numini_paglib = _indlib->get_long("PAGINI");
numfin_paglib = _tab_inl->get_long("I3"); numfin_paglib = _indlib->get_long("PAGFIN");
codditta = _tab_inl->get_long("I4"); codditta = _indlib->get_long("CODDITTA");
cod_reg = _tab_inl->get("S0"); cod_reg = _indlib->get("CODREG");
cod_vidimaz = _tab_inl->get("S1"); cod_vidimaz = _indlib->get("CODVID");
numini_pagut = _tab_inl->get_long("I5"); numini_pagut = _indlib->get_long("PAGINIUT");
numfin_pagut = _tab_inl->get_long("I6"); numfin_pagut = _indlib->get_long("PAGFINUT");
stamp_bollato = _tab_inl->get_bool("B0"); stamp_bollato = _indlib->get_bool("STAMPATO");
pagine_ann = _tab_inl->get_bool("B1"); pagine_ann = _indlib->get_bool("ANNULLATE");
//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'
@ -168,7 +167,7 @@ void BA3600_application::crea_sort()
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 = 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);
@ -186,8 +185,8 @@ void BA3600_application::crea_sort()
if (_tipo_stampa == 2) if (_tipo_stampa == 2)
{ {
_tab_inl->put("B0", "X"); _indlib->put("STAMPATO", "X");
_tab_inl->rewrite(); _indlib->rewrite();
} }
} }
} }
@ -662,8 +661,8 @@ bool BA3600_application::user_create()
_nditte = new TLocalisamfile (LF_NDITTE); _nditte = new TLocalisamfile (LF_NDITTE);
_anag = new TLocalisamfile (LF_ANAG); _anag = new TLocalisamfile (LF_ANAG);
_comuni = new TLocalisamfile (LF_COMUNI); _comuni = new TLocalisamfile (LF_COMUNI);
_indlib = new TLocalisamfile (LF_INDLIB);
_tab_inl = new TTable (TAB_INL);
_tab_lbu = new TTable (TAB_LBU); _tab_lbu = new TTable (TAB_LBU);
_tab_reg = new TTable (TAB_REG); _tab_reg = new TTable (TAB_REG);
@ -675,9 +674,9 @@ bool BA3600_application::user_destroy()
{ {
delete _msk; delete _msk;
delete _tab_inl;
delete _tab_lbu; delete _tab_lbu;
delete _tab_reg; delete _tab_reg;
delete _indlib;
delete _nditte; delete _nditte;
delete _anag; delete _anag;
delete _comuni; delete _comuni;

3
ba/ba3600a.uml
View File

@ -159,7 +159,8 @@ NUMBER F_STAMPA_MESE 2
BEGIN BEGIN
PROMPT 4 11 "Stampa mese " PROMPT 4 11 "Stampa mese "
HELP "Mese di cui effettuare la stampa" HELP "Mese di cui effettuare la stampa"
NUM_EXPR {(#THIS_FIELD > #F_STAMPA_MESEG) && (#THIS_FIELD <= 12)} NUM_EXPR {(#THIS_FIELD >= #F_STAMPA_MESEG) && (#THIS_FIELD <= 12)}
WARNING "Il mese da stampare deve essere maggiore o uguale all'ultimo mese di stampa indicato sulla tabella del libro unico selezionato"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END