121 lines
2.7 KiB
C++
Executable File
121 lines
2.7 KiB
C++
Executable File
// cg4401.cpp
|
|
//
|
|
|
|
#include <applicat.h>
|
|
#include <isam.h>
|
|
#include <strings.h>
|
|
#include <lffiles.h>
|
|
#include <utility.h>
|
|
|
|
#include <nditte.h>
|
|
#include <anagr.h>
|
|
#include <comuni.h>
|
|
|
|
#include "cg4400.h"
|
|
|
|
|
|
TRectype& TDati_ditta::look_com(const char * cod)
|
|
{
|
|
_comuni->zero();
|
|
_comuni->put(COM_COM,cod);
|
|
_comuni->read();
|
|
if (_comuni->bad()) _comuni->zero();
|
|
return _comuni->curr();
|
|
}
|
|
|
|
TDati_ditta::TDati_ditta(long cod_ditta, int stampa_width)
|
|
{
|
|
_stampa_width = stampa_width;
|
|
_codditta = cod_ditta;
|
|
_nditte = new TLocalisamfile(LF_NDITTE);
|
|
_anag = new TLocalisamfile(LF_ANAG);
|
|
_comuni = new TLocalisamfile(LF_COMUNI);
|
|
}
|
|
|
|
TDati_ditta::~TDati_ditta()
|
|
{
|
|
delete _anag; delete _nditte; delete _comuni;
|
|
}
|
|
|
|
void TDati_ditta::get_dati_ditta ()
|
|
{
|
|
TString codanagr;
|
|
TString tipoa;
|
|
|
|
_nditte->zero();
|
|
_nditte->put(NDT_CODDITTA, _codditta);
|
|
_nditte->read();
|
|
|
|
if (_nditte->bad()) _nditte->zero();
|
|
|
|
_ragsoc = _nditte->get(NDT_RAGSOC);
|
|
codanagr = _nditte->curr().get(NDT_CODANAGR);
|
|
tipoa = _nditte->curr().get(NDT_TIPOA);
|
|
|
|
_anag->setkey(1);
|
|
_anag->zero();
|
|
_anag->put (ANA_TIPOA, tipoa);
|
|
_anag->put (ANA_CODANAGR, codanagr);
|
|
_anag->read();
|
|
if (_anag->bad()) _anag->zero();
|
|
|
|
_cofi = _anag->get(ANA_COFI);
|
|
_paiva = _anag->get(ANA_PAIV);
|
|
_comunefis = _anag->get(ANA_COMRF);
|
|
|
|
if (_comunefis.trim().empty())
|
|
_comunefis = _anag->get(ANA_COMRES);
|
|
|
|
TRectype dep = look_com (_comunefis);
|
|
|
|
_comunefis = dep.get(COM_DENCOM);
|
|
_provfis = dep.get(COM_PROVCOM);
|
|
_cap = dep.get(COM_CAPCOM);
|
|
if (_comunefis.trim().empty())
|
|
{
|
|
_viafis = _anag->get(ANA_INDRF);
|
|
_viafis.rtrim();
|
|
_viafis << " " << _anag->curr().get (ANA_CIVRF);
|
|
}
|
|
else
|
|
{
|
|
_viafis = _anag->get(ANA_INDRES);
|
|
_viafis.rtrim();
|
|
_viafis << " " << _anag->get (ANA_CIVRES);
|
|
}
|
|
}
|
|
|
|
const char * TDati_ditta::prima_riga()
|
|
{
|
|
//TString riga(_stampa_width);
|
|
//tmp = "";
|
|
TString tmp(132);
|
|
get_dati_ditta();
|
|
|
|
/*
|
|
riga.format("Ditta %d %s Via %s %s %s %s", _codditta,
|
|
(const char *)_ragsoc,(const char *)_viafis, (const char *)_cap,
|
|
(const char *)_comunefis, (const char *)_provfis);
|
|
*/
|
|
tmp.format("Ditta %ld ", _codditta);
|
|
tmp << format("%s %s %s %s %s",
|
|
(const char *)_ragsoc,(const char *)_viafis, (const char *)_cap,
|
|
(const char *)_comunefis, (const char *)_provfis);
|
|
//tmp = riga;
|
|
return tmp;
|
|
}
|
|
|
|
const char * TDati_ditta::seconda_riga()
|
|
{
|
|
//TString riga(_stampa_width);
|
|
//tmp = "";
|
|
TString tmp(132);
|
|
tmp = "Data @<";
|
|
tmp.right_just(_stampa_width-15);
|
|
tmp.overwrite (format ("Partita iva %s @26gCodice fiscale %s",
|
|
(const char*)_paiva, (const char*)_cofi));
|
|
//tmp = riga;
|
|
return tmp;
|
|
}
|
|
|