1835 lines
50 KiB
C++
Executable File
1835 lines
50 KiB
C++
Executable File
#include <mask.h>
|
|
#include <printapp.h>
|
|
#include <relation.h>
|
|
#include <tabutil.h>
|
|
#include <utility.h>
|
|
#include <sort.h>
|
|
#include <progind.h>
|
|
#include <config.h>
|
|
|
|
#include <comuni.h>
|
|
#include <nditte.h>
|
|
#include <unloc.h>
|
|
#include <clifo.h>
|
|
#include <pconti.h>
|
|
#include <anagr.h>
|
|
|
|
#include "ba3.h"
|
|
#include "ba3800.h"
|
|
|
|
TString256 tmp;
|
|
|
|
class BA3800_application : public TPrintapp
|
|
{
|
|
struct bil_ivd
|
|
{
|
|
char sez;
|
|
char let;
|
|
char numr[5];
|
|
char num[4];
|
|
char gruppo[4];
|
|
char conto[4];
|
|
char sottoc[8];
|
|
};
|
|
|
|
bil_ivd* _bil;
|
|
TTable* _tabivd;
|
|
TLocalisamfile* _nditte;
|
|
TLocalisamfile* _comuni;
|
|
TLocalisamfile* _unloc;
|
|
TLocalisamfile* _anag;
|
|
TLocalisamfile* _pconti;
|
|
TLocalisamfile* _clifo;
|
|
TParagraph_string _descr;
|
|
const char* _buff;
|
|
TSort* _sort;
|
|
|
|
TDate _datastampa;
|
|
bool _diffprod_fatto,_risimp_fatto;
|
|
TString _numr_tot,_num_tot,_numr,_numr_da_stamp,_num_da_stamp,_numr_stamp,_num_stamp;;
|
|
char _sez_da_stamp,_let_da_stamp,_sez_stamp,_let_stamp,_sez_tot,_let_tot,_let,_sez;
|
|
int _cont_let,_cont_numr,_cont_num,_cont_gcs,_num,_i;
|
|
bool _reset_righe_stampa,_statopatr_no_stamp,_sbilancio_ordine;
|
|
bool _totale_attivita_gia_stampato,_totale_passivita_gia_stampato;
|
|
bool _sbilancio_patr_gia_stampato,_attivo_o_passivo;
|
|
TString _causale_ap, _causale_chi, _totale;
|
|
char _liv;
|
|
|
|
public:
|
|
|
|
bool menu (MENU_TAG m) { return TPrintapp::menu(m) ; }
|
|
virtual bool user_create() ;
|
|
virtual bool user_destroy();
|
|
virtual bool set_print(int);
|
|
|
|
virtual bool preprocess_page (int,int);
|
|
virtual print_action postprocess_page (int,int);
|
|
virtual void postclose_print ();
|
|
|
|
virtual void set_page(int,int);
|
|
|
|
void intestazione_ditta();
|
|
void intestazione_studio();
|
|
void stampa_totali_studio();
|
|
void stampa_totali_ditta();
|
|
bool preprocess_ditta(int);
|
|
bool preprocess_studio(int);
|
|
|
|
void setta_righe_studio(const char*);
|
|
void setta_righe_ditta(const char*);
|
|
void totale_numero_arabo();
|
|
void totale_numero_romano();
|
|
void totale_lettera();
|
|
void init_sort();
|
|
void crea_sort_tabella();
|
|
void crea_sort_piano_conti();
|
|
void scrivi_record(const TString&,const TString&,const TString&,int,int,int,long);
|
|
void riempi_record(const TString&,const TString&,const TString&,int,int,int,long);
|
|
void set_bil_key(bil_ivd* b, char sezione, char lettera,
|
|
const char* numero_romano, int numero,
|
|
bool conti_ordine = TRUE, int conto = 0,
|
|
int gruppo = 0, long sottoconto = 0L);
|
|
const char* descrizione_lettera(char, char);
|
|
const char* descrizione_numeroromano(char, char, int);
|
|
const char* descrizione_numero(char, char, int, int);
|
|
const char* descrizione_sottoconto(int, int, long);
|
|
void setta_righe_descr(TParagraph_string&,const TString&,const TString&);
|
|
|
|
BA3800_application(char livello) : _liv(toupper(livello)), _descr("", 40) {}
|
|
};
|
|
|
|
void BA3800_application::postclose_print()
|
|
{
|
|
if (_liv == 'D')
|
|
delete _sort;
|
|
}
|
|
|
|
void BA3800_application::set_bil_key(bil_ivd* b, char sezione, char lettera,
|
|
const char* numero_romano, int numero,
|
|
bool conti_ordine, int gruppo, int conto,
|
|
long sottoconto)
|
|
|
|
{
|
|
b->sez = sezione;
|
|
|
|
//Se esiste solamente la sezione,significa che e' un conto d'ordine
|
|
//Forzo la lettera della classe a Z, per ottenere, grazie
|
|
//all'ordinamento del sort, i record dei conti d'ordine per ultimi
|
|
|
|
b->let = (conti_ordine && lettera == '\0' && sezione < '3') ? 'Z' : lettera;
|
|
strcpy(b->numr, numero_romano);
|
|
sprintf(b->num , "%2d", numero);
|
|
if (gruppo < 0)
|
|
{
|
|
strcpy(b->gruppo, "ZZZ");
|
|
strcpy(b->conto, "ZZZ");
|
|
strcpy(b->sottoc, "ZZZZZZ");
|
|
}
|
|
else
|
|
if (gruppo == 0)
|
|
{
|
|
strcpy(b->gruppo, " ");
|
|
strcpy(b->conto, " ");
|
|
strcpy(b->sottoc, " ");
|
|
}
|
|
else
|
|
{
|
|
sprintf(b->gruppo , "%3d", gruppo);
|
|
sprintf(b->conto , "%3d", conto);
|
|
sprintf(b->sottoc , "%6ld", sottoconto);
|
|
}
|
|
}
|
|
|
|
void BA3800_application::scrivi_record(const TString& sez,
|
|
const TString& let, const TString& numerorom,int numero,
|
|
int g,int c,long s)
|
|
{
|
|
|
|
//Se esiste solamente la sezione,significa che e' un conto d'ordine
|
|
//Forzo la lettera della classe a Z, per ottenere, grazie
|
|
//all'ordinamento del sort, i record dei conti d'ordine per ultimi
|
|
|
|
set_bil_key(_bil, sez[0], let[0], numerorom, numero, TRUE, g, c, s);
|
|
_sort->sort ((const char*) _bil);
|
|
}
|
|
|
|
void BA3800_application::riempi_record(const TString& sez,
|
|
const TString& let, const TString& numerorom,int numero,
|
|
int g,int c,long s)
|
|
{
|
|
set_bil_key(_bil, sez[0], let[0], numerorom, numero, FALSE, g, c, s);
|
|
_sort->sort ((const char*) _bil);
|
|
}
|
|
|
|
void BA3800_application::crea_sort_tabella()
|
|
{
|
|
TRecnotype recno_prec=0l, recno_curr=0l;
|
|
TString codtab_prec;
|
|
TTable tabivd(TAB_IVD);
|
|
TRecfield codtab_curr(tabivd.curr(),"CODTAB");
|
|
TRecfield sezione (tabivd.curr(),"CODTAB",0,0);
|
|
TRecfield lettera (tabivd.curr(),"CODTAB",1,1);
|
|
TRecfield numerorom (tabivd.curr(),"CODTAB",2,5);
|
|
TRecfield numero (tabivd.curr(),"CODTAB",6,7);
|
|
int preclen;
|
|
bool FINITO=FALSE;
|
|
|
|
tabivd.first();
|
|
codtab_prec = tabivd.get("CODTAB");
|
|
|
|
// Compilo tanti record quante sono le classi IV direttiva trovate sulla
|
|
// tabella %IVD, usando dei gruppi, conti e sottoconti fittizi. Successivamente
|
|
// nel caso di stampa completa verranno stampati anche questi record; nel caso
|
|
// di stampa non completa non verranno stampati.
|
|
|
|
do
|
|
{
|
|
recno_prec = tabivd.recno();
|
|
tabivd.next();
|
|
if (tabivd.eof())
|
|
{
|
|
tabivd.zero();
|
|
FINITO=TRUE;
|
|
}
|
|
recno_curr = tabivd.recno();
|
|
preclen = codtab_prec.len();
|
|
if (!strncmp(codtab_curr,codtab_prec,preclen))
|
|
codtab_prec = (const char *)codtab_curr;
|
|
else
|
|
{
|
|
tabivd.readat(recno_prec);
|
|
const char sez = *((const char*) sezione);
|
|
const char let = *((const char*) lettera);
|
|
TString16 nrom((const char*)numerorom);
|
|
const int nu = (int) numero;
|
|
|
|
set_bil_key(_bil, sez, let,(const char*)nrom, nu, FALSE,-1);
|
|
_sort->sort ((const char*) _bil);
|
|
tabivd.readat(recno_curr);
|
|
codtab_prec = (const char *)codtab_curr;
|
|
}
|
|
} while (!FINITO);
|
|
}
|
|
|
|
// Passo al sort tutti i record presenti su piano dei conti, aventi la classe
|
|
// IV direttiva CEE.
|
|
|
|
void BA3800_application::crea_sort_piano_conti()
|
|
{
|
|
TLocalisamfile pconti(LF_PCON);
|
|
TString sez,let,numerorom;
|
|
TString sez_conto,let_conto,numr_conto;
|
|
int num_conto, indbil;
|
|
char sezione,lettera,tmcf;
|
|
int numero,g,c;
|
|
long s;
|
|
bool classe_conto = FALSE;
|
|
bool conto_dettagliato = FALSE;
|
|
bool stsottbil;
|
|
c = 0;
|
|
num_conto = 0;
|
|
tmcf = ' ';
|
|
indbil = 0;
|
|
|
|
for (pconti.first(); !pconti.eof(); pconti.next())
|
|
{
|
|
// _prog->addstatus(1);
|
|
g = pconti.get_int (PCN_GRUPPO);
|
|
c = pconti.get_int (PCN_CONTO);
|
|
s = pconti.get_long(PCN_SOTTOCONTO);
|
|
sez = pconti.get(PCN_SEZIVD);
|
|
let = pconti.get(PCN_LETTIVD);
|
|
sezione = sez[0];
|
|
lettera = let[0];
|
|
numerorom = pconti.get(PCN_NUMRIVD);
|
|
numero = pconti.get_int (PCN_NUMIVD);
|
|
|
|
// Se si tratta di un conto e contiene la classe, allora lo passo al sort.
|
|
// Gli eventuali sottoconti avranno la stessa classe.
|
|
|
|
if ((g != 0) && (c != 0) && (s == 0))
|
|
{
|
|
stsottbil = pconti.get_bool(PCN_STSOTTBIL);
|
|
tmcf = pconti.get (PCN_TMCF)[0];
|
|
indbil = pconti.get_int (PCN_INDBIL);
|
|
|
|
//Se sono nello stesso gruppo, ma ho un conto diverso da quello precedentemente
|
|
//analizzato, e se questi contiene la classe IV dir. CEE,
|
|
//allore devo controllare se va dettagliato (STSOTTBIL)
|
|
|
|
if (sez != "0")
|
|
{
|
|
if (!stsottbil || tmcf == 'C' || tmcf == 'F')
|
|
conto_dettagliato = FALSE;
|
|
else
|
|
conto_dettagliato = TRUE;
|
|
|
|
sez_conto = sez;
|
|
|
|
if (let != "")
|
|
let_conto = let;
|
|
else
|
|
if ((sez == "1")||(sez == "2"))
|
|
let_conto = "Z";
|
|
else
|
|
let_conto = let;
|
|
|
|
numr_conto = numerorom;
|
|
num_conto = numero;
|
|
|
|
riempi_record(sez_conto,let_conto,numr_conto,num_conto,g,c,0);
|
|
|
|
classe_conto = TRUE;
|
|
}
|
|
else
|
|
{
|
|
classe_conto = FALSE; // Metto conto dettagliato = TRUE perche' potrebbero esserci dei sottoconti
|
|
conto_dettagliato = TRUE; // di questo conto che hanno la classe e quindi vanno stampati.
|
|
}
|
|
}
|
|
|
|
// Se si tratta di un sottoconto e contiene la classe, allora lo passo al sort.
|
|
|
|
if ((g != 0) && (c != 0) && (s != 0))
|
|
{
|
|
// classe_conto indica se il conto precedentemente letto conteneva
|
|
// la classe. In caso affermativo anche questo sottoconto appena
|
|
// letto avra' la stessa classe del conto.
|
|
|
|
if (classe_conto)
|
|
{
|
|
if (conto_dettagliato)
|
|
riempi_record(sez_conto,let_conto,numr_conto,num_conto,g,c,s);
|
|
}
|
|
else
|
|
if (sez != "0")
|
|
riempi_record(sez,let,numerorom,numero,g,c,s);
|
|
}
|
|
}
|
|
}
|
|
|
|
bool BA3800_application::set_print(int)
|
|
{
|
|
TMask msk("ba3800a");
|
|
|
|
const KEY tasto= msk.run();
|
|
|
|
if (tasto == K_ENTER)
|
|
{
|
|
_datastampa = msk.get(F_DATASTAMPA);
|
|
|
|
_cont_let = 0;
|
|
_cont_numr = 0;
|
|
_cont_num = 0;
|
|
_cont_gcs = 0;
|
|
|
|
_totale = "XXXXXXXXXXX";
|
|
|
|
_sez_stamp = ' ';
|
|
_let_stamp = ' ';
|
|
_numr_stamp = "";
|
|
_num_stamp = "";
|
|
_sez_tot = ' ';
|
|
_let_tot = ' ';
|
|
_numr_tot = "";
|
|
_num_tot = "";
|
|
|
|
_statopatr_no_stamp = TRUE;
|
|
_diffprod_fatto = TRUE;
|
|
_risimp_fatto = TRUE;
|
|
_totale_attivita_gia_stampato = FALSE;
|
|
_totale_passivita_gia_stampato = FALSE;
|
|
_sbilancio_ordine = FALSE;
|
|
_sbilancio_patr_gia_stampato = FALSE;
|
|
_attivo_o_passivo = FALSE;
|
|
|
|
if (_liv == 'S')
|
|
intestazione_studio();
|
|
else
|
|
if (_liv == 'D')
|
|
{
|
|
init_sort();
|
|
crea_sort_tabella();
|
|
crea_sort_piano_conti();
|
|
_sort->endsort();
|
|
|
|
intestazione_ditta();
|
|
|
|
delete _bil;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
void BA3800_application::totale_numero_arabo()
|
|
{
|
|
if (_cont_gcs != 0)//(_cont_gcs >= 2)
|
|
{
|
|
//Fai il totale del numero arabo e stampalo
|
|
if (_num != 0)
|
|
{
|
|
set_row (_i,"@18gTotale@25g%2d@27g)", _num);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
}
|
|
|
|
void BA3800_application::totale_numero_romano()
|
|
{
|
|
if (_cont_num != 0)//(_cont_num >= 2)
|
|
{
|
|
//Fai il totale del numero romano e stampalo
|
|
int numeror = atoi(_numr);
|
|
TString numrom = itor(numeror);
|
|
if (numrom != "")
|
|
{
|
|
set_row (_i,"@14gTotale@21g%s", (const char*) numrom);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
}
|
|
|
|
void BA3800_application::totale_lettera()
|
|
{
|
|
if (_cont_numr != 0)//(_cont_numr >= 2)
|
|
{
|
|
//Fai il totale della lettera e stampalo
|
|
if (_let != ' ')
|
|
{
|
|
set_row (_i,"@3gTotale@10g%c@12g)", _let);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
}
|
|
|
|
void BA3800_application::stampa_totali_studio()
|
|
{
|
|
bool gia_stampato_conto_ord = FALSE;
|
|
TString16 diff_prod;
|
|
TString16 ris_imp;
|
|
|
|
diff_prod.format("%c%c",'9','B');
|
|
ris_imp.format ("%c%c%8s%2s",'9','E',"","21");
|
|
|
|
_num = atoi(_num_tot);
|
|
_numr = _numr_tot;
|
|
_let = _let_tot;
|
|
|
|
if (_tabivd->eof())
|
|
{
|
|
_num_tot = "";
|
|
_numr_tot = "";
|
|
_let_tot = ' ';
|
|
_sez_tot = ' ';
|
|
}
|
|
|
|
if (_num_da_stamp!=_num_tot)
|
|
{
|
|
totale_numero_arabo();
|
|
|
|
if (_sez_stamp == '9')
|
|
{
|
|
TString16 classe;
|
|
|
|
classe.format("%c%c%8s%2s", _sez_da_stamp,_let_da_stamp,(const char*)_numr_da_stamp,(const char*)_num_da_stamp);
|
|
|
|
if (classe > ris_imp && _risimp_fatto)
|
|
{
|
|
if (_num_tot == "20" || _num_tot == "21")
|
|
{
|
|
set_row (_i,"@4gTotale delle partite straordinarie");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
set_row (_i,"@4gRisultato prima delle imposte");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
_risimp_fatto = FALSE;
|
|
}
|
|
}
|
|
}
|
|
|
|
_cont_gcs = 0;
|
|
}
|
|
if (_numr_da_stamp!=_numr_tot)
|
|
{
|
|
totale_numero_arabo();
|
|
totale_numero_romano();
|
|
_cont_gcs = 0;
|
|
_cont_num = 0;
|
|
}
|
|
if (_let_da_stamp!=_let_tot)
|
|
{
|
|
if (_sez_stamp == '9')
|
|
{
|
|
TString16 classe;
|
|
|
|
classe.format("%c%c%8s%2s",_sez_stamp,_let_stamp,(const char*)_numr_stamp,(const char*)_num_stamp);
|
|
|
|
totale_numero_arabo();
|
|
totale_numero_romano();
|
|
|
|
if (_cont_numr != 0)//(_cont_numr >= 2)
|
|
{
|
|
//Fai il totale della lettera e stampalo
|
|
if (_let_stamp == 'D')
|
|
set_row (_i,"@4gTotale delle rettifiche");
|
|
else
|
|
if (_let != ' ')
|
|
if (_sez_stamp == '9' && _let_stamp != 'E')
|
|
set_row (_i,"@3gTotale@10g%c@12g)", _let);
|
|
else
|
|
if (_sez_stamp != '9')
|
|
set_row (_i,"@3gTotale@10g%c@12g)", _let);
|
|
if (_let != ' ')
|
|
{
|
|
if (_sez_stamp == '9' && _let_stamp != 'E')
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
else
|
|
if (_sez_stamp != '9')
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
|
|
if (classe > diff_prod && _diffprod_fatto)
|
|
{
|
|
if (_let_tot == 'A' || _let_tot == 'B') //Solo se esiste una delle due lettere
|
|
{
|
|
set_row (_i++,"@4gDifferenza tra valore e costi della produzione@86g%s", (const char*) _totale);
|
|
_diffprod_fatto = FALSE;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
totale_numero_arabo();
|
|
totale_numero_romano();
|
|
totale_lettera();
|
|
}
|
|
|
|
_cont_gcs = 0;
|
|
_cont_num = 0;
|
|
_cont_numr = 0;
|
|
}
|
|
if (_sez_da_stamp != _sez_tot)
|
|
{
|
|
totale_numero_arabo();
|
|
totale_numero_romano();
|
|
|
|
if (_cont_numr != 0)//(_cont_numr >= 2)
|
|
{
|
|
//Fai il totale della lettera e stampalo
|
|
if (_let != ' ')
|
|
{
|
|
if (_sez_stamp == '9' && _let_stamp != 'E')
|
|
{
|
|
set_row (_i,"@3gTotale@10g%c@12g)", _let);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
else
|
|
if (_sez_stamp != '9')
|
|
{
|
|
set_row (_i,"@3gTotale@10g%c@12g)", _let);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
}
|
|
if (_sez_stamp == '1')
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gTOTALE ATTIVO");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
|
|
if (_sez_stamp == '2') //&& (_let_stamp != 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gTOTALE PASSIVO");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
|
|
if (_sez_stamp == '2')
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gSALDO STATO PATRIMONIALE");
|
|
set_row (_i,"@0gSBILANCIO (ATTIVO - PASSIVO)");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
|
|
if (_sez_stamp == '9')
|
|
{
|
|
if (_tabivd->eof())
|
|
{
|
|
if ((_let_stamp == 'A' || _let_stamp == 'B') && _diffprod_fatto)//Solo se esiste una delle due lettere
|
|
{
|
|
set_row (_i++,"@4gDifferenza tra valore e costi della produzione@86g%s", (const char*) _totale);
|
|
_diffprod_fatto = FALSE;
|
|
}
|
|
if (_risimp_fatto)
|
|
{
|
|
set_row (_i,"@4gRisultato prima delle imposte");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gRISULTATO CONTO ECONOMICO");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
_cont_gcs = 0;
|
|
_cont_num = 0;
|
|
_cont_numr = 0;
|
|
_cont_let = 0;
|
|
}
|
|
}
|
|
|
|
void BA3800_application::stampa_totali_ditta()
|
|
{
|
|
bool gia_stampato_conto_ord = FALSE;
|
|
TString16 diff_prod;
|
|
TString16 ris_imp;
|
|
|
|
diff_prod.format("%c%c",'9','B');
|
|
ris_imp.format ("%c%c%8s%2s",'9','E',"","21");
|
|
|
|
_num = atoi(_num_tot);
|
|
_numr = _numr_tot;
|
|
_let = _let_tot;
|
|
|
|
if (_buff == NULL)
|
|
{
|
|
_num_tot = "";
|
|
_numr_tot = "";
|
|
_let_tot = ' ';
|
|
_sez_tot = ' ';
|
|
}
|
|
|
|
if ((_sez_stamp == '1' || _sez_stamp == '2') && _let_stamp != 'Z')
|
|
_attivo_o_passivo = TRUE;
|
|
|
|
if (_num_da_stamp!=_num_tot)
|
|
{
|
|
if (_let_stamp != 'Z')
|
|
{
|
|
if (_sez_stamp != '5')
|
|
if (_cont_gcs != 0)//(_cont_gcs >= 2)
|
|
{
|
|
//Fai il totale del numero arabo e stampalo
|
|
if (_num != 0)
|
|
{
|
|
set_row (_i,"@18gTotale@25g%2d@27g)", _num);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
}
|
|
if (_sez_stamp == '9')
|
|
{
|
|
TString16 classe;
|
|
|
|
classe.format("%c%c%8s%2s", _sez_da_stamp,_let_da_stamp,(const char*)_numr_da_stamp,(const char*)_num_da_stamp);
|
|
|
|
if (classe > ris_imp && _risimp_fatto)
|
|
{
|
|
if (_num_tot == "20" || _num_tot == "21")
|
|
{
|
|
set_row (_i,"@4gTotale delle partite straordinarie");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
set_row (_i,"@4gRisultato prima delle imposte");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
_risimp_fatto = FALSE;
|
|
}
|
|
}
|
|
}
|
|
|
|
_cont_gcs = 0;
|
|
}
|
|
if (_numr_da_stamp!=_numr_tot)
|
|
{
|
|
if (_let_stamp != 'Z')
|
|
{
|
|
if (_sez_stamp != '5')
|
|
{
|
|
if (_cont_gcs != 0)//(_cont_gcs >= 2)
|
|
{
|
|
//Fai il totale del numero arabo e stampalo
|
|
if (_num != 0)
|
|
{
|
|
set_row (_i,"@18gTotale@25g%2d@27g)", _num);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
if (_cont_num != 0)//(_cont_num >= 2)
|
|
{
|
|
//Fai il totale del numero romano e stampalo
|
|
int numeror = atoi(_numr);
|
|
TString numrom = itor(numeror);
|
|
if (numrom != "")
|
|
{
|
|
set_row (_i,"@14gTotale@21g%s", (const char*) numrom);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
_cont_gcs = 0;
|
|
_cont_num = 0;
|
|
}
|
|
if (_let_da_stamp!=_let_tot)
|
|
{
|
|
if (_sez_stamp == '9')
|
|
{
|
|
TString16 classe;
|
|
|
|
classe.format("%c%c%8s%2s",_sez_stamp,_let_stamp,(const char*)_numr_stamp,(const char*)_num_stamp);
|
|
|
|
if (_cont_gcs != 0)//(_cont_gcs >= 2)
|
|
{
|
|
//Fai il totale del numero arabo e stampalo
|
|
if (_num != 0)
|
|
{
|
|
set_row (_i,"@18gTotale@25g%2d@27g)", _num);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
if (_cont_num != 0)//(_cont_num >= 2)
|
|
{
|
|
//Fai il totale del numero romano e stampalo
|
|
int numeror = atoi(_numr);
|
|
TString numrom = itor(numeror);
|
|
if (numrom != "")
|
|
{
|
|
set_row (_i,"@14gTotale@21g%s", (const char*) numrom);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
if (_cont_numr != 0)//(_cont_numr >= 2)
|
|
{
|
|
//Fai il totale della lettera e stampalo
|
|
if (_let_stamp == 'D')
|
|
set_row (_i,"@4gTotale delle rettifiche");
|
|
else
|
|
if (_let != ' ')
|
|
if (_sez_stamp == '9' && _let_stamp != 'E')
|
|
set_row (_i,"@3gTotale@10g%c@12g)", _let);
|
|
else
|
|
if (_sez_stamp != '9')
|
|
set_row (_i,"@3gTotale@10g%c@12g)", _let);
|
|
if (_let != ' ')
|
|
{
|
|
if (_sez_stamp == '9' && _let_stamp != 'E')
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
else
|
|
if (_sez_stamp != '9')
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
|
|
if (classe > diff_prod && _diffprod_fatto)
|
|
{
|
|
if (_let_tot == 'A' || _let_tot == 'B') //Solo se esiste una delle due lettere
|
|
{
|
|
set_row (_i++,"@4gDifferenza tra valore e costi della produzione@86g%s", (const char*)_totale);
|
|
_diffprod_fatto = FALSE;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (_let_stamp != 'Z')
|
|
{
|
|
if (_sez_stamp != '5')
|
|
{
|
|
if (_cont_gcs != 0)//(_cont_gcs >= 2)
|
|
{
|
|
//Fai il totale del numero arabo e stampalo
|
|
if (_num != 0)
|
|
{
|
|
set_row (_i,"@18gTotale@25g%2d@27g)", _num);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
if (_cont_num != 0)//(_cont_num >= 2)
|
|
{
|
|
//Fai il totale del numero romano e stampalo
|
|
int numeror = atoi(_numr);
|
|
TString numrom = itor(numeror);
|
|
if (numrom != "")
|
|
{
|
|
set_row (_i,"@14gTotale@21g%s", (const char*) numrom);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
if (_cont_numr != 0)//(_cont_numr >= 2)
|
|
{
|
|
//Fai il totale della lettera e stampalo
|
|
if (_let != ' ')
|
|
{
|
|
set_row (_i,"@3gTotale@10g%c@12g)", _let);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if ((_sez_stamp == '1')&&(_let_da_stamp == 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gTOTALE ATTIVO");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
_totale_attivita_gia_stampato = TRUE;
|
|
}
|
|
|
|
if ((_sez_stamp == '2')&&(_let_da_stamp == 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gTOTALE PASSIVO");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
_totale_passivita_gia_stampato = TRUE;
|
|
}
|
|
|
|
if ((_sez_stamp == '1')&&(_let_stamp == 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gTOTALE CONTI D' ORDINE ATTIVI");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
gia_stampato_conto_ord = TRUE;
|
|
}
|
|
|
|
if ((_sez_stamp == '2')&&(_let_stamp == 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gTOTALE CONTI D' ORDINE PASSIVI");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
_i++;
|
|
gia_stampato_conto_ord = TRUE;
|
|
if (!_attivo_o_passivo)
|
|
{
|
|
set_row (_i++,"@0gSALDO CONTI D' ORDINE");
|
|
set_row (_i,"@0gSBILANCIO");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
_sbilancio_ordine = TRUE;
|
|
_sbilancio_patr_gia_stampato = TRUE;
|
|
}
|
|
}
|
|
}
|
|
_cont_gcs = 0;
|
|
_cont_num = 0;
|
|
_cont_numr = 0;
|
|
}
|
|
if (_sez_da_stamp != _sez_tot)
|
|
{
|
|
if (_let_stamp != 'Z')
|
|
{
|
|
if (_sez_stamp != '5')
|
|
{
|
|
if (_cont_gcs != 0)//(_cont_gcs >= 2)
|
|
{
|
|
//Fai il totale del numero arabo e stampalo
|
|
if (_num != 0)
|
|
{
|
|
set_row (_i,"@18gTotale@25g%2d@27g)", _num);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
if (_cont_num != 0)//(_cont_num >= 2)
|
|
{
|
|
//Fai il totale del numero romano e stampalo
|
|
int numeror = atoi(_numr);
|
|
TString numrom = itor(numeror);
|
|
if (numrom != "")
|
|
{
|
|
set_row (_i,"@14gTotale@21g%s", (const char*) numrom);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
if (_cont_numr != 0)//(_cont_numr >= 2)
|
|
{
|
|
//Fai il totale della lettera e stampalo
|
|
if (_let != ' ')
|
|
{
|
|
if (_sez_stamp == '9' && _let_stamp != 'E')
|
|
{
|
|
set_row (_i,"@3gTotale@10g%c@12g)", _let);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
else
|
|
if (_sez_stamp != '9')
|
|
{
|
|
set_row (_i,"@3gTotale@10g%c@12g)", _let);
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!_totale_attivita_gia_stampato)
|
|
if ((_sez_stamp == '1') && (_let_stamp != 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gTOTALE ATTIVO");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
|
|
if (!_totale_passivita_gia_stampato)
|
|
if ((_sez_stamp == '2') && (_let_stamp != 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gTOTALE PASSIVO");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
|
|
if (!gia_stampato_conto_ord)
|
|
{
|
|
if (_sez_stamp == '2')
|
|
{
|
|
if (!_sbilancio_patr_gia_stampato)
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gSALDO STATO PATRIMONIALE");
|
|
set_row (_i,"@0gSBILANCIO (ATTIVO - PASSIVO)");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
_sbilancio_patr_gia_stampato = TRUE;
|
|
}
|
|
}
|
|
if ((_sez_stamp == '1')&&(_let_stamp == 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gTOTALE CONTI D' ORDINE ATTIVI");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
|
|
if ((_sez_stamp == '2')&&(_let_stamp == 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gTOTALE CONTI D' ORDINE PASSIVI");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
_i++;
|
|
if (!_sbilancio_ordine)
|
|
{
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gSALDO CONTI D' ORDINE");
|
|
set_row (_i,"@0gSBILANCIO");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
_sbilancio_ordine = TRUE;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (_sez_stamp == '2')
|
|
{
|
|
char app = ' ';
|
|
if (!_sbilancio_patr_gia_stampato)
|
|
{
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gSALDO STATO PATRIMONIALE");
|
|
set_row (_i,"@0gSBILANCIO (ATTIVO - PASSIVO)");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
if (!_sbilancio_ordine)
|
|
{
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gSALDO CONTI D' ORDINE");
|
|
set_row (_i,"@0gSBILANCIO");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
if (_sez_stamp == '5')
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gTOTALE CONTI D' ORDINE");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
if (_sez_stamp == '9')
|
|
{
|
|
if (_tabivd->eof())
|
|
{
|
|
if ((_let_stamp == 'A' || _let_stamp == 'B') && _diffprod_fatto)//Solo se esiste una delle due lettere
|
|
{
|
|
set_row (_i++,"@4gDifferenza tra valore e costi della produzione@86g%s", (const char*) _totale);
|
|
_diffprod_fatto = FALSE;
|
|
}
|
|
if (_risimp_fatto)
|
|
{
|
|
set_row (_i,"@4gRisultato prima delle imposte");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
}
|
|
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i,"@0gRISULTATO CONTO ECONOMICO");
|
|
set_row (_i++,"@86g%s", (const char*) _totale);
|
|
}
|
|
_cont_gcs = 0;
|
|
_cont_num = 0;
|
|
_cont_numr = 0;
|
|
_cont_let = 0;
|
|
}
|
|
}
|
|
|
|
print_action BA3800_application::postprocess_page(int file, int counter)
|
|
{
|
|
if (_liv == 'S')
|
|
{
|
|
if (_sez_da_stamp != _sez_stamp)
|
|
{
|
|
if (_sez_da_stamp == '9')
|
|
{
|
|
reset_print();
|
|
_i = 1;
|
|
setta_righe_studio("CONTO ECONOMICO");
|
|
_reset_righe_stampa = FALSE;
|
|
}
|
|
}
|
|
|
|
set_auto_ff(FALSE);
|
|
|
|
if (_tabivd->eof())
|
|
return NEXT_PAGE;
|
|
}
|
|
else
|
|
if (_liv == 'D')
|
|
{
|
|
struct bil_ivd* bil = (struct bil_ivd*) _buff;
|
|
|
|
bil = (struct bil_ivd*) _buff;
|
|
|
|
if (_sez_da_stamp != _sez_stamp)
|
|
{
|
|
if (_sez_da_stamp == '5')
|
|
{
|
|
reset_print();
|
|
_i = 1;
|
|
setta_righe_ditta("CONTI D' ORDINE");
|
|
_reset_righe_stampa = FALSE;
|
|
}
|
|
if (_sez_da_stamp == '9')
|
|
{
|
|
reset_print();
|
|
_i = 1;
|
|
setta_righe_ditta("CONTO ECONOMICO");
|
|
_reset_righe_stampa = FALSE;
|
|
}
|
|
}
|
|
|
|
set_auto_ff(FALSE);
|
|
|
|
if (_buff == NULL)
|
|
return NEXT_PAGE;
|
|
}
|
|
|
|
return REPEAT_PAGE;
|
|
}
|
|
|
|
bool BA3800_application::preprocess_page(int file, int counter)
|
|
{
|
|
if (_liv == 'S')
|
|
{
|
|
if (preprocess_studio(counter))
|
|
return TRUE;
|
|
else
|
|
return FALSE;
|
|
}
|
|
else if (_liv == 'D')
|
|
{
|
|
if (preprocess_ditta(counter))
|
|
return TRUE;
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
bool BA3800_application::preprocess_studio(int counter)
|
|
{
|
|
bool fai = TRUE;
|
|
TString saldostr,saldo_rafstr;
|
|
bool conto_dettagliato = TRUE;
|
|
|
|
if (counter == 0)
|
|
{
|
|
_tabivd->setkey(1);
|
|
_tabivd->zero();
|
|
_tabivd->first();
|
|
reset_print();
|
|
_i = 1;
|
|
}
|
|
else
|
|
_tabivd->next();
|
|
|
|
if (_reset_righe_stampa)
|
|
{
|
|
reset_print();
|
|
_i = 1;
|
|
}
|
|
else
|
|
_reset_righe_stampa = TRUE;
|
|
|
|
if (counter)
|
|
{
|
|
_sez_stamp = _sez_da_stamp;
|
|
_let_stamp = _let_da_stamp;
|
|
_numr_stamp = _numr_da_stamp;
|
|
_num_stamp = _num_da_stamp;
|
|
_sez_tot = _sez_da_stamp;
|
|
_let_tot = _let_da_stamp;
|
|
_numr_tot = _numr_da_stamp;
|
|
_num_tot = _num_da_stamp;
|
|
}
|
|
|
|
if (_tabivd->eof())
|
|
{
|
|
stampa_totali_studio();
|
|
_sez_da_stamp = ' ';
|
|
_sez_stamp = ' ';
|
|
return TRUE;
|
|
}
|
|
|
|
if (!_tabivd->eof())
|
|
{
|
|
TString16 codtab;
|
|
|
|
// _classe_da_stampare = format ("%1c%1c%8s%2d",bil->sez,bil->let,(const char*) bil->numr,bil->num);
|
|
|
|
codtab = _tabivd->get("CODTAB");
|
|
_sez_da_stamp = codtab[0];
|
|
_let_da_stamp = codtab[1];
|
|
_numr_da_stamp = codtab.mid(2,4);
|
|
_numr_da_stamp.ltrim();
|
|
_num_da_stamp = codtab.mid(6,2);
|
|
_num_da_stamp.ltrim();
|
|
|
|
if (counter)
|
|
stampa_totali_studio();
|
|
|
|
return TRUE;
|
|
}
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
bool BA3800_application::preprocess_ditta(int counter)
|
|
{
|
|
struct bil_ivd* bil = (struct bil_ivd*) _buff;
|
|
int g,c;
|
|
long s;
|
|
bool conto_dettagliato = TRUE;
|
|
|
|
if (!counter)
|
|
{
|
|
reset_print();
|
|
_i = 1;
|
|
}
|
|
|
|
if (_reset_righe_stampa)
|
|
{
|
|
reset_print();
|
|
_i = 1;
|
|
}
|
|
else
|
|
_reset_righe_stampa = TRUE;
|
|
|
|
if (counter)
|
|
{
|
|
_sez_stamp = bil->sez;
|
|
_let_stamp = bil->let;
|
|
_numr_stamp = bil->numr;
|
|
_numr_stamp.ltrim();
|
|
_num_stamp = bil->num;
|
|
_num_stamp.ltrim();
|
|
_sez_tot = bil->sez;
|
|
_let_tot = bil->let;
|
|
_numr_tot = bil->numr;
|
|
_numr_tot.ltrim();
|
|
_num_tot = bil->num;
|
|
_num_tot.ltrim();
|
|
}
|
|
|
|
_buff = _sort->retrieve();
|
|
|
|
if (_buff == NULL)
|
|
{
|
|
stampa_totali_ditta();
|
|
_sez_da_stamp = ' ';
|
|
_sez_stamp = ' ';
|
|
return TRUE;
|
|
}
|
|
|
|
if (_buff != NULL)
|
|
{
|
|
bil = (struct bil_ivd*) _buff;
|
|
_sez_da_stamp = bil->sez;
|
|
_let_da_stamp = bil->let;
|
|
_numr_da_stamp = bil->numr;
|
|
_numr_da_stamp.ltrim();
|
|
_num_da_stamp = bil->num;
|
|
_num_da_stamp.ltrim();
|
|
g = atoi(bil->gruppo);
|
|
c = atoi(bil->conto);
|
|
s = atol(bil->sottoc);
|
|
|
|
if (counter)
|
|
stampa_totali_ditta();
|
|
|
|
return TRUE;
|
|
}
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
void BA3800_application::set_page(int file, int counter)
|
|
{
|
|
if (_liv == 'S')
|
|
{
|
|
if (_sez_da_stamp != _sez_stamp)
|
|
{
|
|
if ((_sez_da_stamp=='1')||((_sez_da_stamp=='2')&&(_statopatr_no_stamp)))
|
|
{
|
|
setta_righe_studio ("STATO PATRIMONIALE");
|
|
_statopatr_no_stamp = FALSE;
|
|
}
|
|
if (_sez_da_stamp == '2')
|
|
setta_righe_studio("");
|
|
if (_sez_da_stamp == '9')
|
|
set_auto_ff(TRUE);
|
|
}
|
|
else
|
|
{
|
|
if (!_tabivd->eof())
|
|
setta_righe_studio("");
|
|
}
|
|
}
|
|
else if (_liv == 'D')
|
|
{
|
|
if (_sez_da_stamp != _sez_stamp)
|
|
{
|
|
if ((_sez_da_stamp=='1')||((_sez_da_stamp=='2')&&(_statopatr_no_stamp)))
|
|
{
|
|
setta_righe_ditta ("STATO PATRIMONIALE");
|
|
_statopatr_no_stamp = FALSE;
|
|
}
|
|
if (_sez_da_stamp == '2')
|
|
setta_righe_ditta("");
|
|
if ((_sez_da_stamp == '5') || (_sez_da_stamp == '9'))
|
|
set_auto_ff(TRUE);
|
|
}
|
|
else
|
|
{
|
|
if (_buff != NULL)
|
|
setta_righe_ditta("");
|
|
}
|
|
}
|
|
}
|
|
|
|
void BA3800_application::setta_righe_studio(const char * titolo)
|
|
{
|
|
int numeror, numero;
|
|
TString numrom;
|
|
TString descr_let,descr_numr,descr_num;
|
|
bool stampa_classe = TRUE;
|
|
TString lettera = "@1g)@3g%s";
|
|
TString lettera2 = "@3g%s";
|
|
TString numr = "@12g-@14g%s";
|
|
TString numr2 = "@14g%s";
|
|
TString num = "@15g)@18g%s";
|
|
TString num2 = "@18g%s";
|
|
numeror = atoi(_numr_da_stamp);
|
|
numrom = itor(numeror);
|
|
numero = atoi(_num_da_stamp);
|
|
|
|
|
|
descr_let = descrizione_lettera(_sez_da_stamp,_let_da_stamp);
|
|
descr_numr = descrizione_numeroromano(_sez_da_stamp,_let_da_stamp,numeror);
|
|
descr_num = descrizione_numero(_sez_da_stamp,_let_da_stamp,numeror,numero);
|
|
|
|
//Se la classe prelevata dal record corrente del sort e' diversa dalla classe
|
|
//prelevata dal record precedente, allora stampo la nuova classe con i relativi
|
|
//sottoconti. In caso contrario continuo a stampare solo i sottoconti.
|
|
|
|
if (_sez_da_stamp != _sez_stamp)
|
|
{
|
|
set_row (_i++,"@0g%s", titolo);
|
|
char app = ' ';
|
|
set_row(_i++,"@0g%c", app);
|
|
|
|
if (_sez_da_stamp == '1')
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gATTIVO");
|
|
set_row (_i++,"@0g%c", app);
|
|
}
|
|
else
|
|
if (_sez_da_stamp == '2')
|
|
{
|
|
char app = ' ';
|
|
set_row(_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gPASSIVO");
|
|
set_row(_i++,"@0g%c", app);
|
|
}
|
|
|
|
if (stampa_classe)
|
|
{
|
|
if ((_sez_da_stamp=='1')||(_sez_da_stamp=='2')||(_sez_da_stamp== '9'))
|
|
{
|
|
_cont_let = 1;
|
|
_cont_numr = 1;
|
|
_cont_num = 1;
|
|
_cont_gcs = 1;
|
|
|
|
if (_let_da_stamp != ' ')
|
|
{
|
|
set_row(_i,"@0g%c", _let_da_stamp);
|
|
_descr = (const char*) descr_let;
|
|
setta_righe_descr(_descr,lettera,lettera2);
|
|
// set_row(_i++,"@1g)@3g%s", (const char*) descr_let);
|
|
}
|
|
if (numrom != "")
|
|
{
|
|
set_row(_i,"@3g%8s", (const char*) numrom);
|
|
_descr = (const char*) descr_numr;
|
|
setta_righe_descr(_descr,numr,numr2);
|
|
// set_row(_i++,"@12g-@14g%s", (const char*) descr_numr);
|
|
}
|
|
if (numero != 0)
|
|
{
|
|
set_row(_i,"@13g%s", (const char*) _num_da_stamp);
|
|
_descr = (const char*) descr_num;
|
|
setta_righe_descr(_descr,num,num2);
|
|
// set_row(_i++,"@15g)@18g%s", (const char*) descr_num);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
if ((_let_da_stamp!=_let_stamp)&&(_sez_da_stamp==_sez_stamp))
|
|
{
|
|
if (stampa_classe)
|
|
{
|
|
if ((_sez_da_stamp=='1')||(_sez_da_stamp=='2')||(_sez_da_stamp=='9'))
|
|
{
|
|
_cont_numr = 1;
|
|
_cont_num = 1;
|
|
_cont_gcs = 1;
|
|
if (_let_da_stamp != ' ')
|
|
{
|
|
set_row(_i,"@0g%c", _let_da_stamp);
|
|
_descr = (const char*) descr_let;
|
|
setta_righe_descr(_descr,lettera,lettera2);
|
|
// set_row(_i++,"@1g)@3g%s", (const char*) descr_let);
|
|
}
|
|
if (numrom != "")
|
|
{
|
|
set_row(_i,"@3g%8s", (const char*) numrom);
|
|
_descr = (const char*) descr_numr;
|
|
setta_righe_descr(_descr,numr,numr2);
|
|
//set_row(_i++,"@12g-@14g%s", (const char*) descr_numr);
|
|
}
|
|
if (numero != 0)
|
|
{
|
|
set_row(_i,"@13g%s", (const char*) _num_da_stamp);
|
|
_descr = (const char*) descr_num;
|
|
setta_righe_descr(_descr,num,num2);
|
|
//set_row(_i++,"@15g)@18g%s", (const char*) descr_num);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
if ((_numr_da_stamp!=_numr_stamp)&&(_sez_da_stamp==_sez_stamp)&&(_let_da_stamp==_let_stamp))
|
|
{
|
|
if ((_sez_da_stamp=='1')||(_sez_da_stamp=='2')||(_sez_da_stamp=='9'))
|
|
{
|
|
_cont_num = 1;
|
|
_cont_gcs = 1;
|
|
if (numrom != "")
|
|
{
|
|
set_row(_i,"@3g%8s", (const char*) numrom);
|
|
_descr = (const char*) descr_numr;
|
|
setta_righe_descr(_descr,numr,numr2);
|
|
//set_row(_i++,"@12g-@14g%s", (const char*) descr_numr);
|
|
}
|
|
if (numero != 0)
|
|
{
|
|
set_row(_i,"@13g%s", (const char*) _num_da_stamp);
|
|
_descr = (const char*) descr_num;
|
|
setta_righe_descr(_descr,num,num2);
|
|
//set_row(_i++,"@15g)@18g%s", (const char*) descr_num);
|
|
}
|
|
}
|
|
}
|
|
else
|
|
if ((_num_da_stamp!=_num_stamp)&&(_sez_da_stamp==_sez_stamp)&&(_let_da_stamp==_let_stamp)&&(_numr_da_stamp==_numr_stamp))
|
|
{
|
|
if ((_sez_da_stamp=='1')||(_sez_da_stamp=='2')||(_sez_da_stamp=='9'))
|
|
{
|
|
set_row(_i,"@13g%s", (const char*) _num_da_stamp);
|
|
_descr = (const char*) descr_num;
|
|
setta_righe_descr(_descr,num,num2);
|
|
//set_row(_i++,"@15g)@18g%s", (const char*) descr_num);
|
|
_cont_gcs = 1;
|
|
}
|
|
}
|
|
}
|
|
|
|
void BA3800_application::setta_righe_ditta(const char* titolo)
|
|
{
|
|
struct bil_ivd* bil = (struct bil_ivd*) _buff;
|
|
int numeror, numero, gruppo, conto;
|
|
char sezione,lettera;
|
|
long sottoc;
|
|
TString numrom,numr;
|
|
TString descr_let,descr_numr,descr_num,descr_sottoc,descr_classe;
|
|
bool stampa_classe = TRUE;
|
|
TString lettera1 = "@1g)@3g%s";
|
|
TString lettera2 = "@3g%s";
|
|
TString numr1 = "@12g-@14g%s";
|
|
TString numr2 = "@14g%s";
|
|
TString num = "@15g)@18g%s";
|
|
TString num2 = "@18g%s";
|
|
|
|
sezione = bil->sez;
|
|
lettera = bil->let;
|
|
numr = bil->numr;
|
|
// numr.ltrim();
|
|
numeror = atoi(bil->numr);
|
|
numrom = itor(numeror);
|
|
numero = atoi(bil->num);
|
|
// num = bil->num;
|
|
gruppo = atoi(bil->gruppo);
|
|
conto = atoi(bil->conto);
|
|
sottoc = atoi(bil->sottoc);
|
|
descr_let = descrizione_lettera(sezione,lettera);
|
|
descr_numr = descrizione_numeroromano(sezione,lettera,numeror);
|
|
descr_num = descrizione_numero(sezione,lettera,numeror,numero);
|
|
descr_sottoc = descrizione_sottoconto(gruppo,conto,sottoc);
|
|
|
|
//Se la classe prelevata dal record corrente del sort e' diversa dalla classe
|
|
//prelevata dal record precedente, allora stampo la nuova classe con i relativi
|
|
//sottoconti. In caso contrario continuo a stampare solo i sottoconti.
|
|
|
|
if (_sez_da_stamp != _sez_stamp)
|
|
{
|
|
set_row (_i++,"@0g%s", titolo);
|
|
char app = ' ';
|
|
set_row(_i++,"@0g%c", app);
|
|
|
|
if ((_sez_da_stamp == '1')&&(_let_da_stamp == 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gCONTI D' ORDINE ATTIVI");
|
|
set_row (_i++,"@0g%c", app);
|
|
stampa_classe = FALSE;
|
|
}
|
|
else
|
|
if ((_sez_da_stamp == '1')&&(_let_da_stamp != 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gATTIVO");
|
|
set_row (_i++,"@0g%c", app);
|
|
}
|
|
|
|
if ((_sez_da_stamp == '2')&&(_let_da_stamp == 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row(_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gCONTI D' ORDINE PASSIVI");
|
|
set_row(_i++,"@0g%c", app);
|
|
stampa_classe = FALSE;
|
|
}
|
|
else
|
|
if ((_sez_da_stamp == '2')&&(_let_da_stamp != 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row(_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gPASSIVO");
|
|
set_row(_i++,"@0g%c", app);
|
|
}
|
|
|
|
if (stampa_classe)
|
|
{
|
|
if ((_sez_da_stamp=='1')||(_sez_da_stamp=='2')||(_sez_da_stamp== '9'))
|
|
{
|
|
//set_row(_i++,"@0g%s", (const char*) _descr_sez);
|
|
_cont_let = 1;
|
|
_cont_numr = 1;
|
|
_cont_num = 1;
|
|
_cont_gcs = 1;
|
|
|
|
if (lettera != ' ')
|
|
{
|
|
set_row(_i,"@0g%c", bil->let);
|
|
_descr = (const char*) descr_let;
|
|
setta_righe_descr(_descr,lettera1,lettera2);
|
|
//set_row(_i++,"@1g)@3g%s", (const char*) descr_let);
|
|
}
|
|
if (numrom != "")
|
|
{
|
|
set_row(_i,"@3g%8s", (const char*) numrom);
|
|
_descr = (const char*) descr_numr;
|
|
setta_righe_descr(_descr,numr1,numr2);
|
|
//set_row(_i++,"@12g-@14g%s", (const char*) descr_numr);
|
|
}
|
|
if (numero != 0)
|
|
{
|
|
set_row(_i,"@13g%s", bil->num);
|
|
_descr = (const char*) descr_num;
|
|
setta_righe_descr(_descr,num,num2);
|
|
//set_row(_i++,"@15g)@18g%s", (const char*) descr_num);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
if ((_let_da_stamp!=_let_stamp)&&(_sez_da_stamp==_sez_stamp))
|
|
{
|
|
if ((_sez_da_stamp == '1')&&(_let_da_stamp == 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row (_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gCONTI D' ORDINE ATTIVI");
|
|
set_row (_i++,"@0g%c", app);
|
|
stampa_classe = FALSE;
|
|
}
|
|
if ((_sez_da_stamp == '2')&&(_let_da_stamp == 'Z'))
|
|
{
|
|
char app = ' ';
|
|
set_row(_i++,"@0g%c", app);
|
|
set_row (_i++,"@0gCONTI D' ORDINE PASSIVI");
|
|
set_row(_i++,"@0g%c", app);
|
|
stampa_classe = FALSE;
|
|
}
|
|
if (stampa_classe)
|
|
{
|
|
if ((_sez_da_stamp=='1')||(_sez_da_stamp=='2')||(_sez_da_stamp=='9'))
|
|
{
|
|
set_row(_i,"@0g%c", bil->let);
|
|
_descr = (const char*) descr_let;
|
|
setta_righe_descr(_descr,lettera1,lettera2);
|
|
//set_row(_i++,"@1g)@3g%s", (const char*) descr_let);
|
|
//_cont_let += 1;
|
|
_cont_numr = 1;
|
|
_cont_num = 1;
|
|
_cont_gcs = 1;
|
|
|
|
if (numrom != "")
|
|
{
|
|
set_row(_i,"@3g%8s", (const char*) numrom);
|
|
_descr = (const char*) descr_numr;
|
|
setta_righe_descr(_descr,numr1,numr2);
|
|
//set_row(_i++,"@12g-@14g%s", (const char*) descr_numr);
|
|
}
|
|
if (numero != 0)
|
|
{
|
|
set_row(_i,"@13g%s", bil->num);
|
|
_descr = (const char*) descr_num;
|
|
setta_righe_descr(_descr,num,num2);
|
|
//set_row(_i++,"@15g)@18g%s", (const char*) descr_num);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
if ((_numr_da_stamp!=_numr_stamp)&&(_sez_da_stamp==_sez_stamp)&&(_let_da_stamp==_let_stamp))
|
|
{
|
|
if ((_sez_da_stamp=='1')||(_sez_da_stamp=='2')||(_sez_da_stamp=='9'))
|
|
{
|
|
set_row(_i,"@3g%8s", (const char*) numrom);
|
|
_descr = (const char*) descr_numr;
|
|
setta_righe_descr(_descr,numr1,numr2);
|
|
//set_row(_i++,"@12g-@14g%s", (const char*) descr_numr);
|
|
//_cont_numr += 1;
|
|
//_cont_numr = 1;
|
|
_cont_num = 1;
|
|
_cont_gcs = 1;
|
|
|
|
if (numero != 0)
|
|
{
|
|
set_row(_i,"@13g%s", bil->num);
|
|
_descr = (const char*) descr_num;
|
|
setta_righe_descr(_descr,num,num2);
|
|
//set_row(_i++,"@15g)@18g%s", (const char*) descr_num);
|
|
}
|
|
}
|
|
}
|
|
else
|
|
if ((_num_da_stamp!=_num_stamp)&&(_sez_da_stamp==_sez_stamp)&&(_let_da_stamp==_let_stamp)&&(_numr_da_stamp==_numr_stamp))
|
|
{
|
|
if ((_sez_da_stamp=='1')||(_sez_da_stamp=='2')||(_sez_da_stamp=='9'))
|
|
{
|
|
set_row(_i,"@13g%s", bil->num);
|
|
_descr = (const char*) descr_num;
|
|
setta_righe_descr(_descr,num,num2);
|
|
//set_row(_i++,"@15g)@18g%s", (const char*) descr_num);
|
|
//_cont_num += 1;
|
|
_cont_gcs = 1;
|
|
}
|
|
}
|
|
if (bil->gruppo[0] != 'Z')
|
|
{
|
|
_cont_gcs += 1;
|
|
set_row (_i,"@18g%s", bil->gruppo);
|
|
set_row (_i,"@22g%s", bil->conto);
|
|
set_row (_i,"@26g%s", bil->sottoc);
|
|
set_row (_i,"@33g%s", (const char*) descr_sottoc);
|
|
set_row (_i,"@86g%s", (const char*) _totale);
|
|
_i++;
|
|
}
|
|
}
|
|
|
|
void BA3800_application::setta_righe_descr(TParagraph_string& str,const TString& formato,const TString& formato2)
|
|
{
|
|
const char* r;
|
|
int i = 1;
|
|
|
|
while ((r = str.get()) != NULL)
|
|
{
|
|
if (i == 1)
|
|
set_row (_i,formato, r);
|
|
else
|
|
if (i > 1)
|
|
set_row (_i,formato2,r);
|
|
_i++;
|
|
i++;
|
|
}
|
|
}
|
|
|
|
void BA3800_application::intestazione_ditta()
|
|
{
|
|
TString datastampastr;
|
|
TString sep(132),sep1(147);
|
|
|
|
TString app(8);
|
|
TLocalisamfile nditte (LF_NDITTE);
|
|
TLocalisamfile comuni (LF_COMUNI);
|
|
TLocalisamfile unloc (LF_UNLOC);
|
|
TLocalisamfile anag (LF_ANAG);
|
|
TString codice_ditta,ragsoc,indulc,civulc,capulc,com,prov,comulc;
|
|
TString cofi,paiv,tipoa,codanagr;
|
|
|
|
reset_header();
|
|
|
|
nditte.setkey(1);
|
|
codice_ditta << get_firm();
|
|
nditte.zero();
|
|
nditte.put(NDT_CODDITTA,codice_ditta);
|
|
nditte.read();
|
|
app = nditte.get(NDT_CODDITTA);
|
|
ragsoc = nditte.get(NDT_RAGSOC);
|
|
tipoa = nditte.get(NDT_TIPOA);
|
|
codanagr = nditte.get(NDT_CODANAGR);
|
|
|
|
unloc.setkey(1);
|
|
unloc.zero();
|
|
unloc.put(ULC_CODDITTA,app);
|
|
unloc.put(ULC_CODULC,"1");
|
|
unloc.read();
|
|
indulc = unloc.get(ULC_INDULC);
|
|
civulc = unloc.get(ULC_CIVULC);
|
|
capulc = unloc.get(ULC_CAPULC);
|
|
comulc = unloc.get(ULC_COMULC);
|
|
|
|
comuni.setkey(1);
|
|
comuni.zero();
|
|
comuni.put(COM_COM,comulc);
|
|
comuni.read();
|
|
com = comuni.get(COM_DENCOM);
|
|
prov = comuni.get(COM_PROVCOM);
|
|
|
|
anag.setkey(1);
|
|
anag.zero();
|
|
anag.put(ANA_TIPOA,tipoa);
|
|
anag.put(ANA_CODANAGR,codanagr);
|
|
anag.read();
|
|
cofi = anag.curr().get(ANA_COFI);
|
|
paiv = anag.curr().get(ANA_PAIV);
|
|
|
|
set_header (1, "@0gDITTA@6g%-5s", (const char*) codice_ditta);
|
|
set_header (1, "@12g%-45s", (const char*) ragsoc);
|
|
set_header (1, "@59g%-25s", (const char*) indulc);
|
|
set_header (1, "@86g%-9s", (const char*) civulc);
|
|
set_header (1, "@97g%-5s", (const char*) capulc);
|
|
set_header (1, "@103g%-25s", (const char*) com);
|
|
set_header (1, "@129g%-3s", (const char*) prov);
|
|
|
|
sep << "Pag. @#";
|
|
sep.right_just(132);
|
|
set_header(2,(const char*) sep);
|
|
|
|
datastampastr = _datastampa.string();
|
|
|
|
set_header (2,"@0gPartita iva@12g%-11s", (const char*) paiv);
|
|
set_header (2,"@30gCodice fiscale@45g%-16s", (const char*) cofi);
|
|
set_header (2,"@105gData@110g%s",(const char*) datastampastr);
|
|
set_header (3,"@0gSTAMPA TABELLA IV DIRETTIVA");
|
|
|
|
sep.fill('-'); //Stampa 132 - (sep(132))
|
|
set_header (4, (const char *) sep);
|
|
}
|
|
|
|
void BA3800_application::intestazione_studio()
|
|
{
|
|
TString sep(132);
|
|
TString datastampastr;
|
|
|
|
reset_header();
|
|
|
|
sep << "Pag. @#";
|
|
sep.right_just(132);
|
|
set_header(1,(const char*) sep);
|
|
|
|
set_header (1,"@0gStudio");
|
|
//set_header (1,"Nome dello studio");
|
|
|
|
datastampastr = _datastampa.string();
|
|
|
|
set_header (1,"@105gData@110g%s",(const char*) datastampastr);
|
|
set_header (2,"@0gSTAMPA TABELLA IV DIRETTIVA");
|
|
|
|
sep.fill('-'); //Stampa 132 - (sep(132))
|
|
set_header (3, (const char *) sep);
|
|
}
|
|
|
|
const char* BA3800_application::descrizione_lettera(char sezione, char lettera)
|
|
{
|
|
TTable tabivd(TAB_IVD);
|
|
TString dep, dep2;
|
|
|
|
tabivd.zero();
|
|
dep = format("%1c%1c", sezione, lettera);
|
|
tabivd.put("CODTAB", dep);
|
|
tabivd.read();
|
|
dep2 = tabivd.get("CODTAB");
|
|
if (dep == dep2)
|
|
tmp = tabivd.get("S0");
|
|
else
|
|
tmp = "";
|
|
return tmp;
|
|
}
|
|
|
|
const char* BA3800_application::descrizione_numeroromano(char sezione, char lettera, int numr)
|
|
{
|
|
TTable tabivd(TAB_IVD);
|
|
TString dep, dep2;
|
|
|
|
tabivd.zero();
|
|
if (numr != 0)
|
|
dep = format("%1c%1c%04d", sezione, lettera, numr);
|
|
else
|
|
dep = format("%c%c ", sezione, lettera);
|
|
|
|
tabivd.put("CODTAB", dep);
|
|
tabivd.read();
|
|
dep2 = tabivd.get("CODTAB");
|
|
if (dep == dep2)
|
|
tmp = tabivd.get("S0");
|
|
else
|
|
tmp = "";
|
|
return tmp;
|
|
}
|
|
|
|
const char* BA3800_application::descrizione_numero(char sezione, char lettera, int numr, int numero)
|
|
{
|
|
TTable tabivd(TAB_IVD);
|
|
TString dep,dep2;
|
|
|
|
tabivd.zero();
|
|
if (numr != 0)
|
|
dep = format("%1c%1c%04d%02d",sezione, lettera, numr, numero);
|
|
else
|
|
dep = format("%c%c %02d",sezione,lettera,numero);
|
|
tabivd.put("CODTAB", dep);
|
|
tabivd.read();
|
|
dep2 = tabivd.get("CODTAB");
|
|
if (dep == dep2)
|
|
tmp = tabivd.get("S0");
|
|
else
|
|
tmp = "";
|
|
return tmp;
|
|
}
|
|
|
|
const char* BA3800_application::descrizione_sottoconto(int gruppo, int conto, long sottoc)
|
|
{
|
|
TLocalisamfile pconti (LF_PCON);
|
|
|
|
pconti.zero();
|
|
pconti.put(PCN_GRUPPO , gruppo);
|
|
if (conto != 0)
|
|
pconti.put(PCN_CONTO , conto );
|
|
if (sottoc != 0)
|
|
pconti.put(PCN_SOTTOCONTO, sottoc);
|
|
pconti.read();
|
|
if (pconti.bad())
|
|
pconti.zero();
|
|
tmp = pconti.get(PCN_DESCR);
|
|
return tmp;
|
|
}
|
|
|
|
void BA3800_application::init_sort()
|
|
{
|
|
_bil = new bil_ivd;
|
|
_sort = new TSort (sizeof(bil_ivd));
|
|
|
|
_sort -> addsortkey ((char*)&(_bil->sez) - (char*)&(_bil->sez),1);
|
|
_sort -> addsortkey ((char*)&(_bil->let) - (char*)&(_bil->sez),1);
|
|
_sort -> addsortkey ((char*)&(_bil->numr) - (char*)&(_bil->sez),4);
|
|
_sort -> addsortkey ((char*)&(_bil->num) - (char*)&(_bil->sez),2);
|
|
_sort -> addsortkey ((char*)&(_bil->gruppo) - (char*)&(_bil->sez),3);
|
|
_sort -> addsortkey ((char*)&(_bil->conto) - (char*)&(_bil->sez),3);
|
|
_sort -> addsortkey ((char*)&(_bil->sottoc) - (char*)&(_bil->sez),6);
|
|
_sort->init();
|
|
}
|
|
|
|
bool BA3800_application::user_create()
|
|
{
|
|
_nditte = new TLocalisamfile (LF_NDITTE);
|
|
_comuni = new TLocalisamfile (LF_COMUNI);
|
|
_unloc = new TLocalisamfile (LF_UNLOC);
|
|
_anag = new TLocalisamfile (LF_ANAG);
|
|
_pconti = new TLocalisamfile (LF_PCON);
|
|
_clifo = new TLocalisamfile (LF_CLIFO);
|
|
|
|
_tabivd = new TTable (TAB_IVD);
|
|
return TRUE;
|
|
}
|
|
|
|
bool BA3800_application::user_destroy()
|
|
{
|
|
delete _tabivd;
|
|
delete _nditte;
|
|
delete _comuni;
|
|
delete _unloc;
|
|
delete _anag;
|
|
delete _pconti;
|
|
delete _clifo;
|
|
return TRUE;
|
|
}
|
|
|
|
int ba3800 (int argc, char* argv[])
|
|
{
|
|
|
|
BA3800_application a(*argv[2]);
|
|
|
|
a.run(argc, argv, "Stampa Tabella IV Direttiva CEE");
|
|
return 0;
|
|
}
|
|
|