Modifica inerente il codice ditta che veniva troncato e alla localita' dei c/f che non veniva inviata nell' invio a sistema

git-svn-id: svn://10.65.10.50/trunk@2903 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-05-24 10:21:52 +00:00
parent a1790f54ab
commit 4aaf60f0c9
2 changed files with 195 additions and 4 deletions

View File

@ -1,3 +1,175 @@
<<<<<<< cg6900.h
// Invio contabilita'
#define STRICT
#include <windows.h>
#include <direct.h>
#include <colors.h>
#include <isam.h>
#include <math.h>
#include <applicat.h>
#include <mask.h>
#include <relation.h>
#include <tabutil.h>
#include <utility.h>
#include <config.h>
#include <urldefid.h>
#include <prefix.h>
#include <lffiles.h>
#include <progind.h>
#include <execp.h>
#include <mailbox.h>
#include <archives.h>
#include <nditte.h>
#include <mov.h>
#include <rmov.h>
#include <rmoviva.h>
#include <causali.h>
#include <rcausali.h>
#include <clifo.h>
#include <pconti.h>
#include <comuni.h>
#include <occas.h>
#include "cg6901.h"
#include "cg6903.h"
#include "cglib04.h"
class TInv_cont : public TApplication
{
enum { BUFSIZE = 4096 };
TTransfer_file _tras_file;
TProgind* _prog;
TLocalisamfile* _caus;
TLocalisamfile* _rcaus;
TLocalisamfile* _clifo;
TLocalisamfile* _pcon;
TLocalisamfile* _mov;
TLocalisamfile* _rmov;
TLocalisamfile* _rmoviva;
TLocalisamfile* _occas;
TLocalisamfile* _part;
TIsamtempfile* _tcaus;
TIsamtempfile* _trcaus;
TIsamtempfile* _tclifo;
TIsamtempfile* _tpcon;
TIsamtempfile* _tmov;
TIsamtempfile* _trmov;
TIsamtempfile* _triva;
TIsamtempfile* _toccas;
TArchive _arc;
char _scelta;
TString _control_rec, _header, _trasf, _std, _stato, _marker, _nome_simbolico;
TString _files, _codcaus, _numdoc, _reg, _codpag, _tipodoc, _codcausm, _sigle;
TString _ocfpi, _ragsococc, _indocc, _capocc, _localocc, _provocc, _codvali;
bool _esiste_ditta, _esiste_record, _inviato, _flag_bollato;
long _ditta, _protiva, _uprotiva, _codcf, _numrec, _tot_rec;
long _dim_tot, _dim_disk,_dittaAS;
long _numrec_cau,_numrec_clifo,_numrec_pcon,_numrec_pn,_numrec_iva;
int _num,_annoes;
TDate _data, _datadoc, _data74ter,_datalimsk,_dataregiva,_datareg;
real _corrlire, _cambioi, _corrval;
public:
TString _titolo;
virtual bool create();
virtual bool destroy();
virtual bool menu(MENU_TAG m);
bool main_loop();
bool esiste_tabella_studio();
bool record_controllo();
bool esegui_controlli();
bool leggi_header();
bool controlli();
bool sub_controlli();
bool tabella_ditta();
bool controlla_stato_invio();
bool numero_data();
void leggi_record_controllo();
void codifica_ditta (TMask& m);
void testata_mov_PN ();
void testata_trasfer(long nreg, int nrig, TString& record);
void sola_iva(TString& record);
bool testata_mov_IVA(long numreg);
void cerca_occasionale();
void cerca_comune_occas(const TString& com);
void apri_file_temp();
void chiudi_file_temp();
void crea_marker(TMask& m);
void setta_parametri_record(TMask& m,const TString& flag);
void setta_tabella_studio(TMask& m, bool flag_ditta = TRUE);
void setta_tabella_ditta(TMask& m, const char* flag, bool comp = TRUE);
void crea_record_controllo(TMask& m);
bool invio_tempfile(TMask& m);
void causali2tempfile(TString& key,TMask& m);
void cancella_righe_causali(TString& codcaus);
void scrivi_righe_causali(TString& codcaus, char uselab);
void clifo2tempfile(TString& key,TMask& m);
void pcon2tempfile(TString& key,TMask& m);
void movPN2tempfile(TString& key,TMask& m);
void scrivi_righePN(long numreg);
void primanota_inviata(long numreg);
void movIVA2tempfile(TString& key,TMask& m);
bool occasionali(const TString& ocfpi);
void iva_inviata(long numreg);
bool invio_contabilita();
bool invio_tab_cau();
bool invio_clifo ();
bool invio_pcon ();
bool invio_mov_PN ();
bool invio_mov_IVA();
void aggiorna_header(TString& files);
void aggiorna_trasfer(TString& files);
void negPC2negAS(TString& numero);
void dec2integer(real& val, long dec);
void aggiorna_marker(TString& token, int pos);
void calcola_totale_record();
void scrivi_telefono(TString& app);
const char* cerca_provincia(const TString& comcf);
void cerca_dencom(TString& comcf,TString& dencom);
static bool setta_maschera_hnd(TMask_field& f, KEY k);
static bool messaggio_hnd (TMask_field& f, KEY k);
int calcola_numero_dischi(TMask& m);
FILE* chiedi_disco(const char* name, int disk, char floppy, bool lettura);
bool scrivi_disco(char floppy, int disk, const char* work, FILE* i, TProgind& w);
bool invio_contabilita_PC();
void invio_testata_causali();
void invio_righe_causali();
void invio_clienti_fornitori();
void invio_piano_conti();
void invio_testata_movimenti();
void invio_righe_contabili();
void invio_righe_IVA();
void invio_occasionali(TString& record, TString& ocfpi);
void tipodocumento(long nreg,TString& tipodoc);
TInv_cont(char mov);
};
HIDDEN TInv_cont& app() { return (TInv_cont &) main_app(); }
=======
// Invio contabilita'
#define STRICT
#include <windows.h>
@ -167,3 +339,4 @@ public:
HIDDEN TInv_cont& app() { return (TInv_cont &) main_app(); }
>>>>>>> 1.8

View File

@ -160,7 +160,7 @@ bool TInv_cont::invio_contabilita()
if (header)
{
TString dittaAS = _control_rec.sub(300,304);
TString dittaAS = _control_rec.sub(301,305);
TString app1 = _control_rec.mid(0,15);
TString app2 = _control_rec.mid(60,10);
@ -552,6 +552,19 @@ void TInv_cont::scrivi_telefono(TString& appoggio)
appoggio << tel;
}
void TInv_cont::cerca_dencom(TString& comcf,TString& dencom)
{
TLocalisamfile comuni(LF_COMUNI);
comuni.setkey(1);
comuni.zero();
comuni.put(COM_COM, comcf);
if (comuni.read() == NOERR)
dencom = comuni.get(COM_DENCOM);
else
dencom = "";
}
bool TInv_cont::invio_clifo()
{
int size = 256;
@ -631,12 +644,17 @@ bool TInv_cont::invio_clifo()
TString capcf = _tclifo->get(CLI_CAPCF);
str.format("%05s", (const char*) capcf);
record.overwrite(str,128); //Codice di avviamento postale
TString localita = _tclifo->get(CLI_LOCCF);
TString comcf = _tclifo->get(CLI_COMCF);
TString localita;
if (comcf.not_empty())
cerca_dencom(comcf,localita);
else
localita = _tclifo->get(CLI_LOCCF);
str.format("%-.20s", (const char*) localita);
record.overwrite(str,133); //Localita'
TString comcf = _tclifo->get(CLI_COMCF);
// TString comcf = _tclifo->get(CLI_COMCF);
TString provincia = "";
if (comcf.not_empty())
provincia = cerca_provincia(comcf);