MOdifiche tanto per renderlo compilabile
git-svn-id: svn://10.65.10.50/trunk@464 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
d8789177e7
commit
87766987bc
12
ba/ba3.h
12
ba/ba3.h
@ -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
|
||||||
|
|||||||
979
ba/ba3600.cpp
979
ba/ba3600.cpp
@ -1,492 +1,487 @@
|
|||||||
#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 <sort.h>
|
||||||
#include <prefix.h>
|
#include <progind.h>
|
||||||
#include <lffiles.h>
|
|
||||||
#include <sort.h>
|
#include <nditte.h>
|
||||||
#include <assoc.h>
|
|
||||||
#include <progind.h>
|
#include "ba3.h"
|
||||||
|
#include "ba3600.h"
|
||||||
#include <nditte.h>
|
|
||||||
|
#define ALIAS 50
|
||||||
#include "ba3.h"
|
|
||||||
#include "ba3600.h"
|
static TString256 tmp;
|
||||||
|
|
||||||
#define ALIAS 50
|
const int TABLBU = (int)TTable::name2log("%LBU");
|
||||||
|
const int TABINL = (int)TTable::name2log("%INL");
|
||||||
extern char __tmp [MAXSTR];
|
|
||||||
static TFixed_string tmp(__tmp, MAXSTR);
|
class BA3600_application : public TPrintapp
|
||||||
|
{
|
||||||
const int TABLBU = (int)TTable::name2log("%LBU");
|
struct ind_lib
|
||||||
const int TABINL = (int)TTable::name2log("%INL");
|
{
|
||||||
|
char mese[3];
|
||||||
class BA3600_application : public TPrintapp
|
char anno[5];
|
||||||
{
|
char nini_plib[6];
|
||||||
struct ind_lib
|
long num_riga;
|
||||||
{
|
long nfin_plib;
|
||||||
char mese[3];
|
long codditta;
|
||||||
char anno[5];
|
char cod_reg[4];
|
||||||
char nini_plib[6];
|
long nini_put;
|
||||||
long num_riga;
|
long nfin_put;
|
||||||
long nfin_plib;
|
char cod_vid[4];
|
||||||
long codditta;
|
bool stamp_bol;
|
||||||
char cod_reg[4];
|
bool pag_ann;
|
||||||
long nini_put;
|
};
|
||||||
long nfin_put;
|
|
||||||
char cod_vid[4];
|
TMask* _msk;
|
||||||
bool stamp_bol;
|
TTable* _tab_inl;
|
||||||
bool pag_ann;
|
TTable* _tab_lbu;
|
||||||
};
|
TTable* _tab_reg;
|
||||||
|
TLocalisamfile* _nditte;
|
||||||
TMask* _msk;
|
TSort* _sort;
|
||||||
TTable* _tab_inl;
|
TProgind* _prog;
|
||||||
TTable* _tab_lbu;
|
ind_lib* _lib;
|
||||||
TTable* _tab_reg;
|
const char* _buff;
|
||||||
TLocalisamfile* _nditte;
|
|
||||||
TSort* _sort;
|
TDate _datastampa;
|
||||||
TProgind* _prog;
|
int _tipo_stampa, _meseda, _mesea;
|
||||||
ind_lib* _lib;
|
long _anno, _numini_paglib, _numfin_paglib, _numini_pagut, _numfin_pagut;
|
||||||
const char* _buff;
|
long _codditta, _pag_fin, _num_riga, _nfin_plib_prec;
|
||||||
|
TString _cod_lib, _rag_soc, _cod_reg, _descrizione, _cod_vidimaz;
|
||||||
TDate _datastampa;
|
TString _cod_lib_stampa, _stamp_bollato_str;
|
||||||
int _tipo_stampa, _meseda, _mesea;
|
bool _stamp_bollato, _pag_ann, _pag_fuori_sequenza;
|
||||||
long _anno, _numini_paglib, _numfin_paglib, _numini_pagut, _numfin_pagut;
|
|
||||||
long _codditta, _pag_fin, _num_riga, _nfin_plib_prec;
|
public:
|
||||||
TString _cod_lib, _rag_soc, _cod_reg, _descrizione, _cod_vidimaz;
|
|
||||||
TString _cod_lib_stampa, _stamp_bollato_str;
|
bool menu (MENU_TAG m) { return TPrintapp::menu(m) ; }
|
||||||
bool _stamp_bollato, _pag_ann, _pag_fuori_sequenza;
|
void user_create() ;
|
||||||
|
void user_destroy();
|
||||||
public:
|
bool set_print(int);
|
||||||
|
|
||||||
bool menu (MENU_TAG m) { return TPrintapp::menu(m) ; }
|
virtual bool preprocess_page (int,int);
|
||||||
void user_create() ;
|
virtual print_action postprocess_page (int,int);
|
||||||
void user_destroy();
|
|
||||||
bool set_print(int);
|
virtual void preprocess_header();
|
||||||
|
virtual void set_page(int,int);
|
||||||
virtual bool preprocess_page (int,int);
|
|
||||||
virtual print_action postprocess_page (int,int);
|
void init_sort();
|
||||||
|
void crea_sort();
|
||||||
virtual void preprocess_header();
|
bool preprocess_prova(int);
|
||||||
virtual void set_page(int,int);
|
bool preprocess_bollato();
|
||||||
|
void crea_intestazione();
|
||||||
void init_sort();
|
const char* ragsoc_ditta(long);
|
||||||
void crea_sort();
|
const char* descrizione_codreg(TString&);
|
||||||
bool preprocess_prova(int);
|
void setta_righe_prova();
|
||||||
bool preprocess_bollato();
|
void setta_righe_bollato();
|
||||||
void crea_intestazione();
|
|
||||||
const char* ragsoc_ditta(long);
|
BA3600_application() {}
|
||||||
const char* descrizione_codreg(TString&);
|
};
|
||||||
void setta_righe_prova();
|
|
||||||
void setta_righe_bollato();
|
void BA3600_application::init_sort()
|
||||||
|
{
|
||||||
BA3600_application() {}
|
_lib = new ind_lib;
|
||||||
};
|
_sort = new TSort (sizeof(ind_lib));
|
||||||
|
|
||||||
void BA3600_application::init_sort()
|
_sort -> addsortkey((char*)&(_lib->mese) - (char*)&(_lib->mese),2);
|
||||||
{
|
_sort -> addsortkey((char*)&(_lib->anno) - (char*)&(_lib->anno),4);
|
||||||
_lib = new ind_lib;
|
_sort -> addsortkey((char*)&(_lib->nini_plib) - (char*)&(_lib->nini_plib),5);
|
||||||
_sort = new TSort (sizeof(ind_lib));
|
_sort->init();
|
||||||
|
}
|
||||||
_sort -> addsortkey((char*)&(_lib->mese) - (char*)&(_lib->mese),2);
|
|
||||||
_sort -> addsortkey((char*)&(_lib->anno) - (char*)&(_lib->anno),4);
|
//Crea sort ordina i record della tabella %INL per mese registrazione, anno
|
||||||
_sort -> addsortkey((char*)&(_lib->nini_plib) - (char*)&(_lib->nini_plib),5);
|
//registrazione e numero iniziale pagine registro libro unico
|
||||||
_sort->init();
|
|
||||||
}
|
void BA3600_application::crea_sort()
|
||||||
|
{
|
||||||
//Crea sort ordina i record della tabella %INL per mese registrazione, anno
|
long anno,numini_paglib,numfin_paglib,codditta,numini_pagut,numfin_pagut;
|
||||||
//registrazione e numero iniziale pagine registro libro unico
|
TString cod_reg,cod_vidimaz,dep,app;
|
||||||
|
long mese, ultimo_mese;
|
||||||
void BA3600_application::crea_sort()
|
bool stamp_bollato = FALSE;
|
||||||
{
|
bool pagine_ann = FALSE;
|
||||||
long anno,numini_paglib,numfin_paglib,codditta,numini_pagut,numfin_pagut;
|
bool stampato = FALSE;
|
||||||
TString cod_reg,cod_vidimaz,dep,app;
|
mese = 0;
|
||||||
long mese, ultimo_mese;
|
ultimo_mese = 0;
|
||||||
bool stamp_bollato = FALSE;
|
|
||||||
bool pagine_ann = FALSE;
|
init_sort();
|
||||||
bool stampato = FALSE;
|
|
||||||
mese = 0;
|
_tab_lbu->zero();
|
||||||
ultimo_mese = 0;
|
// TString dep (format ("%4d%-3s", _anno, (const char*) _cod_lib));
|
||||||
|
// sprintf(__tmp, "%4d", _anno);
|
||||||
init_sort();
|
// strcat (__tmp, _cod_lib);
|
||||||
|
dep = format ("%4d", _anno);
|
||||||
_tab_lbu->zero();
|
dep << format ("%-3s", (const char*) _cod_lib);
|
||||||
// TString dep (format ("%4d%-3s", _anno, (const char*) _cod_lib));
|
_tab_lbu->put("CODTAB", (const char*) dep);
|
||||||
// sprintf(__tmp, "%4d", _anno);
|
|
||||||
// strcat (__tmp, _cod_lib);
|
if (_tab_lbu->read(_isequal) == NOERR)
|
||||||
dep = format ("%4d", _anno);
|
{
|
||||||
dep << format ("%-3s", (const char*) _cod_lib);
|
_tab_inl->zero();
|
||||||
_tab_lbu->put("CODTAB", (const char*) dep);
|
app = format("%4d" , _anno);
|
||||||
|
app << format("%-3s", (const char*) _cod_lib);
|
||||||
if (_tab_lbu->read(_isequal) == NOERR)
|
_tab_inl->put("CODTAB", (const char*) app);
|
||||||
{
|
|
||||||
_tab_inl->zero();
|
TRectype rec (_tab_inl->curr());
|
||||||
app = format("%4d" , _anno);
|
|
||||||
app << format("%-3s", (const char*) _cod_lib);
|
for (_tab_inl->read(); !_tab_inl->eof(); _tab_inl->next())
|
||||||
_tab_inl->put("CODTAB", (const char*) app);
|
{
|
||||||
|
if (_tab_inl->curr() > rec) break;
|
||||||
TRectype rec (_tab_inl->curr());
|
|
||||||
|
mese = _tab_inl->get_int("I1");
|
||||||
for (_tab_inl->read(); !_tab_inl->eof(); _tab_inl->next())
|
|
||||||
{
|
if (((_tipo_stampa == 1) && (mese >= _meseda) && (mese <= _mesea)) ||
|
||||||
if (_tab_inl->curr() > rec) break;
|
((_tipo_stampa == 2) && (mese == _mesea)))
|
||||||
|
{
|
||||||
mese = _tab_inl->get_int("I1");
|
TRecfield num_riga (_tab_inl->curr(),"CODTAB",7,12);
|
||||||
|
anno = _tab_inl->get_long("I0");
|
||||||
if (((_tipo_stampa == 1) && (mese >= _meseda) && (mese <= _mesea)) ||
|
numini_paglib = _tab_inl->get_long("I2");
|
||||||
((_tipo_stampa == 2) && (mese == _mesea)))
|
numfin_paglib = _tab_inl->get_long("I3");
|
||||||
{
|
codditta = _tab_inl->get_long("I4");
|
||||||
TRecfield num_riga (_tab_inl->curr(),"CODTAB",7,12);
|
cod_reg = _tab_inl->get("S0");
|
||||||
anno = _tab_inl->get_long("I0");
|
cod_vidimaz = _tab_inl->get("S1");
|
||||||
numini_paglib = _tab_inl->get_long("I2");
|
numini_pagut = _tab_inl->get_long("I5");
|
||||||
numfin_paglib = _tab_inl->get_long("I3");
|
numfin_pagut = _tab_inl->get_long("I6");
|
||||||
codditta = _tab_inl->get_long("I4");
|
stamp_bollato = _tab_inl->get_bool("B0");
|
||||||
cod_reg = _tab_inl->get("S0");
|
pagine_ann = _tab_inl->get_bool("B1");
|
||||||
cod_vidimaz = _tab_inl->get("S1");
|
|
||||||
numini_pagut = _tab_inl->get_long("I5");
|
//Se tipo_stampa = 1 (stampa di prova) stampo ugualmente. Se tipo_stampa = 2
|
||||||
numfin_pagut = _tab_inl->get_long("I6");
|
// (stampa su bollato), stampo solamente se il flag di stampa su bollato e'
|
||||||
stamp_bollato = _tab_inl->get_bool("B0");
|
// FALSE.
|
||||||
pagine_ann = _tab_inl->get_bool("B1");
|
|
||||||
|
if ((_tipo_stampa == 1) || ((_tipo_stampa == 2) && (!stamp_bollato)))
|
||||||
//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'
|
ultimo_mese = mese;
|
||||||
// FALSE.
|
stampato = TRUE;
|
||||||
|
sprintf (_lib->mese, "%2d", mese);
|
||||||
if ((_tipo_stampa == 1) || ((_tipo_stampa == 2) && (!stamp_bollato)))
|
sprintf (_lib->anno, "%4d", anno);
|
||||||
{
|
sprintf (_lib->nini_plib, "%5d", numini_paglib);
|
||||||
ultimo_mese = mese;
|
_lib->num_riga = long(num_riga);
|
||||||
stampato = TRUE;
|
_lib->nfin_plib = numfin_paglib;
|
||||||
sprintf (_lib->mese, "%2d", mese);
|
_lib->codditta = codditta;
|
||||||
sprintf (_lib->anno, "%4d", anno);
|
sprintf (_lib->cod_reg, "%3s", (const char*) cod_reg);
|
||||||
sprintf (_lib->nini_plib, "%5d", numini_paglib);
|
_lib->nini_put = numini_pagut;
|
||||||
_lib->num_riga = long(num_riga);
|
_lib->nfin_put = numfin_pagut;
|
||||||
_lib->nfin_plib = numfin_paglib;
|
sprintf (_lib->cod_vid, "%3s", (const char*) cod_vidimaz);
|
||||||
_lib->codditta = codditta;
|
_lib->stamp_bol = stamp_bollato;
|
||||||
sprintf (_lib->cod_reg, "%3s", (const char*) cod_reg);
|
_lib->pag_ann = pagine_ann;
|
||||||
_lib->nini_put = numini_pagut;
|
_sort->sort ((const char*) _lib);
|
||||||
_lib->nfin_put = numfin_pagut;
|
|
||||||
sprintf (_lib->cod_vid, "%3s", (const char*) cod_vidimaz);
|
//Se si tratta di una stampa su bollato e il flag "stampa su bollato" indica
|
||||||
_lib->stamp_bol = stamp_bollato;
|
//che non e' mai stato stampato su bollato (flag = FALSE), allora devo stampare
|
||||||
_lib->pag_ann = pagine_ann;
|
//il record della tabella %INL, e contemporaneamente aggiornare il flag, per
|
||||||
_sort->sort ((const char*) _lib);
|
//evitare di ristampare successivamente su bollato
|
||||||
|
|
||||||
//Se si tratta di una stampa su bollato e il flag "stampa su bollato" indica
|
if (_tipo_stampa == 2)
|
||||||
//che non e' mai stato stampato su bollato (flag = FALSE), allora devo stampare
|
{
|
||||||
//il record della tabella %INL, e contemporaneamente aggiornare il flag, per
|
_tab_inl->put("B0", "X");
|
||||||
//evitare di ristampare successivamente su bollato
|
_tab_inl->rewrite();
|
||||||
|
}
|
||||||
if (_tipo_stampa == 2)
|
}
|
||||||
{
|
}
|
||||||
_tab_inl->put("B0", "X");
|
}
|
||||||
_tab_inl->rewrite();
|
_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
|
||||||
}
|
// quel record e' stato stampato su bollato
|
||||||
_sort->endsort();
|
|
||||||
}
|
if ((_tipo_stampa == 2) && (stampato)) // stampato e' il flag che mi dice
|
||||||
|
{ //se almeno un record, nella stampa
|
||||||
// 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
|
_tab_lbu->put("I0", ultimo_mese); //su bollato, va in stampa. In caso
|
||||||
// quel record e' stato stampato su bollato
|
_tab_lbu->put("I1", numfin_paglib); //contrario non avrebbe senso
|
||||||
|
_tab_lbu->rewrite(); //aggiornare %LBU. ES:tutti i record
|
||||||
if ((_tipo_stampa == 2) && (stampato)) // stampato e' il flag che mi dice
|
} //di quel mese sono gia stati stampati
|
||||||
{ //se almeno un record, nella stampa
|
} //su bollato (flag = TRUE).
|
||||||
_tab_lbu->put("I0", ultimo_mese); //su bollato, va in stampa. In caso
|
|
||||||
_tab_lbu->put("I1", numfin_paglib); //contrario non avrebbe senso
|
bool BA3600_application::set_print(int)
|
||||||
_tab_lbu->rewrite(); //aggiornare %LBU. ES:tutti i record
|
{
|
||||||
} //di quel mese sono gia stati stampati
|
KEY tasto;
|
||||||
} //su bollato (flag = TRUE).
|
|
||||||
|
tasto = _msk->run();
|
||||||
bool BA3600_application::set_print(int)
|
|
||||||
{
|
if (tasto == K_ENTER)
|
||||||
KEY tasto;
|
{
|
||||||
|
_tipo_stampa = _msk->get_int(F_TIPO_STAMPA);
|
||||||
tasto = _msk->run();
|
|
||||||
|
if (_tipo_stampa == 1)
|
||||||
if (tasto == K_ENTER)
|
{
|
||||||
{
|
_cod_lib = _msk->get(F_LIBRO_UNICO1);
|
||||||
_tipo_stampa = _msk->get_int(F_TIPO_STAMPA);
|
_datastampa = (_msk->get(F_DATA_STAMPA));
|
||||||
|
_meseda = _msk->get_int(F_MESEDA);
|
||||||
if (_tipo_stampa == 1)
|
_mesea = _msk->get_int(F_MESEA);
|
||||||
{
|
_anno = _msk->get_long(F_ANNOA);
|
||||||
_cod_lib = _msk->get(F_LIBRO_UNICO1);
|
}
|
||||||
_datastampa = (_msk->get(F_DATA_STAMPA));
|
else if (_tipo_stampa == 2)
|
||||||
_meseda = _msk->get_int(F_MESEDA);
|
{
|
||||||
_mesea = _msk->get_int(F_MESEA);
|
_cod_lib = _msk->get(F_LIBRO_UNICO2);
|
||||||
_anno = _msk->get_long(F_ANNOA);
|
_mesea = _msk->get_int(F_STAMPA_MESE);
|
||||||
}
|
_anno = _msk->get_long(F_STAMPA_ANNO);
|
||||||
else if (_tipo_stampa == 2)
|
_cod_lib_stampa = _msk->get(F_CODLIB_STAMPA);
|
||||||
{
|
_pag_fin = _msk->get_long(F_PAGFINALE);
|
||||||
_cod_lib = _msk->get(F_LIBRO_UNICO2);
|
}
|
||||||
_mesea = _msk->get_int(F_STAMPA_MESE);
|
|
||||||
_anno = _msk->get_long(F_STAMPA_ANNO);
|
_pag_fuori_sequenza = FALSE;
|
||||||
_cod_lib_stampa = _msk->get(F_CODLIB_STAMPA);
|
|
||||||
_pag_fin = _msk->get_long(F_PAGFINALE);
|
crea_sort();
|
||||||
}
|
|
||||||
|
crea_intestazione();
|
||||||
_pag_fuori_sequenza = FALSE;
|
|
||||||
|
return TRUE;
|
||||||
crea_sort();
|
}
|
||||||
|
return FALSE;
|
||||||
crea_intestazione();
|
}
|
||||||
|
|
||||||
return TRUE;
|
/*********
|
||||||
}
|
bool BA3600_application::preprocess_page(int file, int counter)
|
||||||
return FALSE;
|
{
|
||||||
}
|
if (_tipo_stampa == 1)
|
||||||
|
{
|
||||||
/*********
|
if (preprocess_prova(counter))
|
||||||
bool BA3600_application::preprocess_page(int file, int counter)
|
return TRUE;
|
||||||
{
|
else
|
||||||
if (_tipo_stampa == 1)
|
return FALSE;
|
||||||
{
|
}
|
||||||
if (preprocess_prova(counter))
|
else if (_tipo_stampa == 2)
|
||||||
return TRUE;
|
{
|
||||||
else
|
if (preprocess_bollato())
|
||||||
return FALSE;
|
return TRUE;
|
||||||
}
|
else
|
||||||
else if (_tipo_stampa == 2)
|
return FALSE;
|
||||||
{
|
}
|
||||||
if (preprocess_bollato())
|
|
||||||
return TRUE;
|
return TRUE;
|
||||||
else
|
}
|
||||||
return FALSE;
|
***********/
|
||||||
}
|
|
||||||
|
bool BA3600_application::preprocess_page(int file, int counter)
|
||||||
return TRUE;
|
{
|
||||||
}
|
struct ind_lib* lib = (struct ind_lib*) _buff;
|
||||||
***********/
|
long nini_plib;
|
||||||
|
|
||||||
bool BA3600_application::preprocess_page(int file, int counter)
|
reset_print();
|
||||||
{
|
|
||||||
struct ind_lib* lib = (struct ind_lib*) _buff;
|
_buff = _sort->retrieve();
|
||||||
long nini_plib;
|
|
||||||
|
if (_buff != NULL)
|
||||||
reset_print();
|
{
|
||||||
|
lib = (struct ind_lib*) _buff;
|
||||||
_buff = _sort->retrieve();
|
|
||||||
|
_numini_paglib = atoi(lib->nini_plib);
|
||||||
if (_buff != NULL)
|
_numfin_paglib = lib->nfin_plib;
|
||||||
{
|
_codditta = lib->codditta;
|
||||||
lib = (struct ind_lib*) _buff;
|
_rag_soc = ragsoc_ditta(_codditta);
|
||||||
|
_cod_reg = lib->cod_reg;
|
||||||
_numini_paglib = atoi(lib->nini_plib);
|
_descrizione = descrizione_codreg(_cod_reg);
|
||||||
_numfin_paglib = lib->nfin_plib;
|
_cod_vidimaz = lib->cod_vid;
|
||||||
_codditta = lib->codditta;
|
_numini_pagut = lib->nini_put;
|
||||||
_rag_soc = ragsoc_ditta(_codditta);
|
_numfin_pagut = lib->nfin_put;
|
||||||
_cod_reg = lib->cod_reg;
|
_num_riga = lib->num_riga;
|
||||||
_descrizione = descrizione_codreg(_cod_reg);
|
_stamp_bollato = lib->stamp_bol;
|
||||||
_cod_vidimaz = lib->cod_vid;
|
_pag_ann = lib->pag_ann;
|
||||||
_numini_pagut = lib->nini_put;
|
// _stamp_bollato_str = _stamp_bollato.string();
|
||||||
_numfin_pagut = lib->nfin_put;
|
|
||||||
_num_riga = lib->num_riga;
|
//Il controllo di pagine fuori sequenza viene sempre effettuato, tranne che per
|
||||||
_stamp_bollato = lib->stamp_bol;
|
//il primo record.
|
||||||
_pag_ann = lib->pag_ann;
|
|
||||||
// _stamp_bollato_str = _stamp_bollato.string();
|
if (counter)
|
||||||
|
{
|
||||||
//Il controllo di pagine fuori sequenza viene sempre effettuato, tranne che per
|
nini_plib = _numini_paglib - 1;
|
||||||
//il primo record.
|
if (_nfin_plib_prec != nini_plib)
|
||||||
|
_pag_fuori_sequenza = TRUE;
|
||||||
if (counter)
|
else
|
||||||
{
|
_pag_fuori_sequenza = FALSE;
|
||||||
nini_plib = _numini_paglib - 1;
|
}
|
||||||
if (_nfin_plib_prec != nini_plib)
|
|
||||||
_pag_fuori_sequenza = TRUE;
|
_nfin_plib_prec = _numfin_paglib;
|
||||||
else
|
|
||||||
_pag_fuori_sequenza = FALSE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
else
|
||||||
_nfin_plib_prec = _numfin_paglib;
|
return FALSE;
|
||||||
|
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
else
|
|
||||||
return FALSE;
|
/*******
|
||||||
|
bool BA3600_application::preprocess_bollato()
|
||||||
return TRUE;
|
{
|
||||||
}
|
|
||||||
|
}
|
||||||
/*******
|
******/
|
||||||
bool BA3600_application::preprocess_bollato()
|
|
||||||
{
|
void BA3600_application::set_page(int file, int counter)
|
||||||
|
{
|
||||||
}
|
if (_tipo_stampa == 1)
|
||||||
******/
|
setta_righe_prova();
|
||||||
|
else if (_tipo_stampa == 2)
|
||||||
void BA3600_application::set_page(int file, int counter)
|
setta_righe_bollato();
|
||||||
{
|
}
|
||||||
if (_tipo_stampa == 1)
|
|
||||||
setta_righe_prova();
|
void BA3600_application::setta_righe_prova()
|
||||||
else if (_tipo_stampa == 2)
|
{
|
||||||
setta_righe_bollato();
|
int i;
|
||||||
}
|
|
||||||
|
i = 1;
|
||||||
void BA3600_application::setta_righe_prova()
|
|
||||||
{
|
if (_pag_fuori_sequenza)
|
||||||
int i;
|
set_row (i++,"@10gPAGINE FUORI SEQUENZA");
|
||||||
|
|
||||||
i = 1;
|
set_row (i,"@1g#t", &_cod_lib);
|
||||||
|
set_row (i,"@6g#5d", &_numini_paglib);
|
||||||
if (_pag_fuori_sequenza)
|
set_row (i,"@13g#5d", &_numfin_paglib);
|
||||||
set_row (i++,"@10gPAGINE FUORI SEQUENZA");
|
set_row (i,"@21g#5d", &_codditta);
|
||||||
|
set_row (i,"@27g#.41t", &_rag_soc);
|
||||||
set_row (i,"@1g#t", &_cod_lib);
|
set_row (i,"@69g#t", &_cod_reg);
|
||||||
set_row (i,"@6g#5d", &_numini_paglib);
|
set_row (i,"@73g#.31t", &_descrizione);
|
||||||
set_row (i,"@13g#5d", &_numfin_paglib);
|
set_row (i,"@105g#t", &_cod_vidimaz);
|
||||||
set_row (i,"@21g#5d", &_codditta);
|
set_row (i,"@111g#5d", &_numini_pagut);
|
||||||
set_row (i,"@27g#.41t", &_rag_soc);
|
set_row (i,"@117g#5d", &_numfin_pagut);
|
||||||
set_row (i,"@69g#t", &_cod_reg);
|
set_row (i,"@124g#5d", &_num_riga);
|
||||||
set_row (i,"@73g#.31t", &_descrizione);
|
set_row (i,"@130g#t", &_stamp_bollato_str);
|
||||||
set_row (i,"@105g#t", &_cod_vidimaz);
|
}
|
||||||
set_row (i,"@111g#5d", &_numini_pagut);
|
|
||||||
set_row (i,"@117g#5d", &_numfin_pagut);
|
void BA3600_application::setta_righe_bollato()
|
||||||
set_row (i,"@124g#5d", &_num_riga);
|
{
|
||||||
set_row (i,"@130g#t", &_stamp_bollato_str);
|
int i;
|
||||||
}
|
|
||||||
|
i = 1;
|
||||||
void BA3600_application::setta_righe_bollato()
|
|
||||||
{
|
if (_pag_fuori_sequenza)
|
||||||
int i;
|
set_row (i++,"@10gPAGINE FUORI SEQUENZA");
|
||||||
|
|
||||||
i = 1;
|
set_row (i,"@1g#t", &_cod_lib);
|
||||||
|
set_row (i,"@6g#5d", &_numini_paglib);
|
||||||
if (_pag_fuori_sequenza)
|
set_row (i,"@13g#5d", &_numfin_paglib);
|
||||||
set_row (i++,"@10gPAGINE FUORI SEQUENZA");
|
if ((_pag_ann) && (_codditta == 0))
|
||||||
|
set_row (i,"@27gPAGINE ANNULLATE");
|
||||||
set_row (i,"@1g#t", &_cod_lib);
|
else
|
||||||
set_row (i,"@6g#5d", &_numini_paglib);
|
{
|
||||||
set_row (i,"@13g#5d", &_numfin_paglib);
|
set_row (i,"@21g#5d", &_codditta);
|
||||||
if ((_pag_ann) && (_codditta == 0))
|
set_row (i,"@27g#.41t", &_rag_soc);
|
||||||
set_row (i,"@27gPAGINE ANNULLATE");
|
}
|
||||||
else
|
if ((_pag_ann) && (_cod_reg == ""))
|
||||||
{
|
set_row (i,"@73gPAGINE ANNULLATE");
|
||||||
set_row (i,"@21g#5d", &_codditta);
|
else
|
||||||
set_row (i,"@27g#.41t", &_rag_soc);
|
{
|
||||||
}
|
set_row (i,"@69g#t", &_cod_reg);
|
||||||
if ((_pag_ann) && (_cod_reg == ""))
|
set_row (i,"@73g#.31t", &_descrizione);
|
||||||
set_row (i,"@73gPAGINE ANNULLATE");
|
}
|
||||||
else
|
set_row (i,"@105g#t", &_cod_vidimaz);
|
||||||
{
|
set_row (i,"@111g#5d", &_numini_pagut);
|
||||||
set_row (i,"@69g#t", &_cod_reg);
|
set_row (i,"@117g#5d", &_numfin_pagut);
|
||||||
set_row (i,"@73g#.31t", &_descrizione);
|
set_row (i,"@124g#5d", &_num_riga);
|
||||||
}
|
set_row (i,"@130g#t", &_stamp_bollato_str);
|
||||||
set_row (i,"@105g#t", &_cod_vidimaz);
|
}
|
||||||
set_row (i,"@111g#5d", &_numini_pagut);
|
|
||||||
set_row (i,"@117g#5d", &_numfin_pagut);
|
print_action BA3600_application::postprocess_page(int file, int counter)
|
||||||
set_row (i,"@124g#5d", &_num_riga);
|
{
|
||||||
set_row (i,"@130g#t", &_stamp_bollato_str);
|
if (_buff == NULL)
|
||||||
}
|
return NEXT_PAGE;
|
||||||
|
|
||||||
print_action BA3600_application::postprocess_page(int file, int counter)
|
return REPEAT_PAGE;
|
||||||
{
|
}
|
||||||
if (_buff == NULL)
|
|
||||||
return NEXT_PAGE;
|
const char* BA3600_application::ragsoc_ditta(long codditta)
|
||||||
|
{
|
||||||
return REPEAT_PAGE;
|
TLocalisamfile nditte(LF_NDITTE);
|
||||||
}
|
|
||||||
|
nditte.zero();
|
||||||
const char* BA3600_application::ragsoc_ditta(long codditta)
|
nditte.put(NDT_CODDITTA, codditta);
|
||||||
{
|
nditte.read();
|
||||||
TLocalisamfile nditte(LF_NDITTE);
|
if (nditte.bad())
|
||||||
|
nditte.zero();
|
||||||
nditte.zero();
|
tmp = nditte.get(NDT_RAGSOC);
|
||||||
nditte.put(NDT_CODDITTA, codditta);
|
return tmp;
|
||||||
nditte.read();
|
}
|
||||||
if (nditte.bad())
|
|
||||||
nditte.zero();
|
const char* BA3600_application::descrizione_codreg(TString& codreg)
|
||||||
tmp = nditte.get(NDT_RAGSOC);
|
{
|
||||||
return (__tmp);
|
TString16 dep;
|
||||||
}
|
|
||||||
|
_tab_reg->zero();
|
||||||
const char* BA3600_application::descrizione_codreg(TString& codreg)
|
dep = format("%4d", _anno);
|
||||||
{
|
dep << format("%-3s", (const char*) codreg);
|
||||||
TString dep;
|
_tab_reg->put("CODTAB", dep);
|
||||||
|
_tab_reg->read();
|
||||||
_tab_reg->zero();
|
if (_tab_reg->bad())
|
||||||
dep = format("%4d", _anno);
|
_tab_reg->zero();
|
||||||
dep << format("%-3s", (const char*) codreg);
|
tmp = _tab_reg->get("S0");
|
||||||
_tab_reg->put("CODTAB", dep);
|
return tmp;
|
||||||
_tab_reg->read();
|
}
|
||||||
if (_tab_reg->bad())
|
|
||||||
_tab_reg->zero();
|
void BA3600_application::preprocess_header()
|
||||||
tmp = _tab_reg->get("S0");
|
{
|
||||||
return (__tmp);
|
}
|
||||||
}
|
|
||||||
|
void BA3600_application::crea_intestazione()
|
||||||
void BA3600_application::preprocess_header()
|
{
|
||||||
{
|
TString datastampastr;
|
||||||
}
|
TString sep(132);
|
||||||
|
|
||||||
void BA3600_application::crea_intestazione()
|
reset_header();
|
||||||
{
|
|
||||||
TString datastampastr;
|
set_header (1,"Studio");
|
||||||
TString sep(132);
|
|
||||||
|
sep << "Pag. @#";
|
||||||
reset_header();
|
sep.right_just(132);
|
||||||
|
set_header (2,(const char*) sep);
|
||||||
set_header (1,"Studio");
|
|
||||||
|
datastampastr = _datastampa.string();
|
||||||
sep << "Pag. @#";
|
|
||||||
sep.right_just(132);
|
set_header (2,"@0gPartita iva");
|
||||||
set_header (2,(const char*) sep);
|
set_header (2,"@30gCodice fiscale");
|
||||||
|
if (_tipo_stampa == 1)
|
||||||
datastampastr = _datastampa.string();
|
{
|
||||||
|
set_header (2,"@75gLIBRO UNICO DI PROVA");
|
||||||
set_header (2,"@0gPartita iva");
|
set_header (2,"@105gData@110g%s",(const char*) datastampastr);
|
||||||
set_header (2,"@30gCodice fiscale");
|
}
|
||||||
if (_tipo_stampa == 1)
|
else
|
||||||
{
|
if (_tipo_stampa == 2)
|
||||||
set_header (2,"@75gLIBRO UNICO DI PROVA");
|
{
|
||||||
set_header (2,"@105gData@110g%s",(const char*) datastampastr);
|
TString mese = itom(_mesea);
|
||||||
}
|
set_header (2,"@75gmese di ", (const char*) mese);
|
||||||
else
|
set_header (2,"@92g%4d", _anno);
|
||||||
if (_tipo_stampa == 2)
|
}
|
||||||
{
|
|
||||||
TString mese = itom(_mesea);
|
set_header (3,"@0gLibro unico :");
|
||||||
set_header (2,"@75gmese di ", (const char*) mese);
|
sep.fill('-'); //Stampa 132 - (sep(132))
|
||||||
set_header (2,"@92g%4d", _anno);
|
set_header (4, (const char *) sep);
|
||||||
}
|
set_header (5,"@0gCod.@6gNumero@13gpagine@21gCodice@69gCod.@104gCodice@111gN.pag.@118gutente@126gNum.@131gF");
|
||||||
|
set_header (6,"@0gLibro@8gda@16ga@21gditta@28gDenominazione@69greg.@74gDescrizione@104gvidim.@112gutilizzate@126greg.@131g8");
|
||||||
set_header (3,"@0gLibro unico :");
|
set_header (7, (const char *) sep);
|
||||||
sep.fill('-'); //Stampa 132 - (sep(132))
|
}
|
||||||
set_header (4, (const char *) sep);
|
|
||||||
set_header (5,"@0gCod.@6gNumero@13gpagine@21gCodice@69gCod.@104gCodice@111gN.pag.@118gutente@126gNum.@131gF");
|
void BA3600_application::user_create()
|
||||||
set_header (6,"@0gLibro@8gda@16ga@21gditta@28gDenominazione@69greg.@74gDescrizione@104gvidim.@112gutilizzate@126greg.@131g8");
|
{
|
||||||
set_header (7, (const char *) sep);
|
_nditte = new TLocalisamfile (LF_NDITTE);
|
||||||
}
|
|
||||||
|
_tab_inl = new TTable (TAB_INL);
|
||||||
void BA3600_application::user_create()
|
_tab_lbu = new TTable (TAB_LBU);
|
||||||
{
|
_tab_reg = new TTable (TAB_REG);
|
||||||
_nditte = new TLocalisamfile (LF_NDITTE);
|
|
||||||
|
_msk = new TMask("ba3600a");
|
||||||
_tab_inl = new TTable (TAB_INL);
|
}
|
||||||
_tab_lbu = new TTable (TAB_LBU);
|
|
||||||
_tab_reg = new TTable (TAB_REG);
|
void BA3600_application::user_destroy()
|
||||||
|
{
|
||||||
_msk = new TMask("ba3600a");
|
delete _msk;
|
||||||
}
|
|
||||||
|
delete _tab_inl;
|
||||||
void BA3600_application::user_destroy()
|
delete _tab_lbu;
|
||||||
{
|
delete _tab_reg;
|
||||||
delete _msk;
|
delete _nditte;
|
||||||
|
}
|
||||||
delete _tab_inl;
|
|
||||||
delete _tab_lbu;
|
int ba3600 (int argc, char* argv[])
|
||||||
delete _tab_reg;
|
{
|
||||||
delete _nditte;
|
|
||||||
}
|
BA3600_application a;
|
||||||
|
|
||||||
int ba3600 (int argc, char* argv[])
|
a.run(argc, argv, "Stampa indici registro libro unico");
|
||||||
{
|
|
||||||
|
return 0;
|
||||||
BA3600_application a;
|
}
|
||||||
|
|
||||||
a.run(argc, argv, "Stampa indici registro libro unico");
|
|
||||||
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
1837
ba/ba3800.cpp
1837
ba/ba3800.cpp
File diff suppressed because it is too large
Load Diff
@ -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
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user