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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Corretta importazione clienti e fornitori da 36


git-svn-id: svn://10.65.10.50/trunk@6951 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1998-08-11 13:33:40 +00:00
parent 1e0ec20f1b
commit 7e6e33cc8f
2 changed files with 325 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

222
ibm36/ibm36100.cpp
View File

@ -11,8 +11,13 @@
#include "ibm36.h" #include "ibm36.h"
#include <comuni.h> #include <comuni.h>
#include <cfven.h>
#include <clifo.h> #include <clifo.h>
///////////////////////////////////////////////////////////
// TMask36 Maschera principale di selezione
///////////////////////////////////////////////////////////
class TMask36 : public TAutomask class TMask36 : public TAutomask
{ {
protected: protected:
@ -28,8 +33,55 @@ bool TMask36::on_field_event(TOperable_field& o, TField_event e, long jolly)
return TRUE; return TRUE;
} }
///////////////////////////////////////////////////////////
// TBankitalia
///////////////////////////////////////////////////////////
class TBankitalia : public TObject
{
TAssoc_array _bank;
public:
const TString* codban2abicab(const char* codban);
void update();
TBankitalia() { }
virtual ~TBankitalia() { }
};
void TBankitalia::update()
{
TTable ban("%BAN");
const TRectype& curban = ban.curr();
_bank.destroy();
for (int err = ban.first(); err == NOERR; err = ban.next())
{
TString16 codban = curban.get("S9");
if (codban.not_empty())
{
const TString& abicab = curban.get("CODTAB");
_bank.add(codban, abicab);
}
}
}
const TString* TBankitalia::codban2abicab(const char* cod)
{
if (_bank.items() == 0)
update();
const TString* abicab = (const TString*)_bank.objptr(cod);
return abicab;
}
///////////////////////////////////////////////////////////
// TTrasfer36 Applicazione di importazione dati da 36
///////////////////////////////////////////////////////////
class TTrasfer36 : public TSkeleton_application class TTrasfer36 : public TSkeleton_application
{ {
TBankitalia _bankitalia;
protected: protected:
virtual void main_loop(); virtual void main_loop();
virtual const char* extra_modules() const { return "*"; } // Non e' un modulo normale virtual const char* extra_modules() const { return "*"; } // Non e' un modulo normale
@ -37,6 +89,9 @@ protected:
public: public:
const TString& cap2com(const TString& cap, const TString& name) const; const TString& cap2com(const TString& cap, const TString& name) const;
void split_indir(const TString& indir, TString& via, TString& civ) const; void split_indir(const TString& indir, TString& via, TString& civ) const;
void mettilavirgola(TFile_text& file, TRecord_text& curr, const char* field, int len, int comma);
void permille(TFile_text& file, TRecord_text& curr, const char* field);
void machedata(TFile_text& file, TRecord_text& curr, const char* field);
void import_tables(const TFilename& name, TBrowsefile_field& bf); void import_tables(const TFilename& name, TBrowsefile_field& bf);
void import_clifo(const TFilename& name, TBrowsefile_field& bf); void import_clifo(const TFilename& name, TBrowsefile_field& bf);
}; };
@ -159,15 +214,29 @@ void TTrasfer36::import_tables(const TFilename& name, TBrowsefile_field& bf)
TString16 cab = file.get_field(curr, "CAB"); TString16 cab = file.get_field(curr, "CAB");
if (abi.empty() || cab.empty()) if (abi.empty() || cab.empty())
{ {
if (abi.empty()) abi = "99999"; if (abi.empty())
if (cab.empty()) { cab = cod; cab.right_just(5, '0'); } abi = "99999";
if (cab.empty())
msg = "! La banca "; {
msg << cod << " non dispone di un codice ABI/CAB valido"; const TString* abicab = _bankitalia.codban2abicab(cod);
bf.add_line(msg); if (abicab != NULL)
msg = "- Verra' creata la banca fittizia "; {
msg << abi << ' ' << cab; abi = abicab->left(5);
bf.add_line(msg); cab = abicab->mid(5);
}
else
{
ban.last();
const TString16 abicab = ban.get("CODTAB");
if (abicab.left(5) == "99999")
{
long numcab = atol(abicab.mid(5)) + 1;
cab.format("%05ld", numcab);
}
else
cab = "00001";
}
}
} }
abi.right_just(5, '0'); abi.right_just(5, '0');
cab.right_just(5, '0'); cab.right_just(5, '0');
@ -189,14 +258,21 @@ void TTrasfer36::import_tables(const TFilename& name, TBrowsefile_field& bf)
ban.put("CODTAB", codtab); ban.put("CODTAB", codtab);
if (ban.read() == NOERR) if (ban.read() == NOERR)
{ {
ban.put("I14", cod); ban.put("S9", cod);
ban.rewrite(); ban.rewrite();
} }
else else
{ {
msg = "! La banca ";
msg << cod << " non dispone di un codice ABI/CAB valido";
bf.add_line(msg);
msg = "- Verra' creata la banca fittizia ";
msg << abi << ' ' << cab;
bf.add_line(msg);
ban.put("CODTAB", codtab); ban.put("CODTAB", codtab);
ban.put("S0", file.get_field(curr, "RAGSOC")); ban.put("S0", file.get_field(curr, "RAGSOC"));
ban.put("I14", cod); ban.put("S9", cod);
const TString& cap = file.get_field(curr, "CAP"); const TString& cap = file.get_field(curr, "CAP");
ban.put("S3", cap); ban.put("S3", cap);
@ -219,12 +295,69 @@ void TTrasfer36::import_tables(const TFilename& name, TBrowsefile_field& bf)
} }
} }
_bankitalia.update();
msg = "Record importati: "; msg = "Record importati: ";
msg << valid; msg << valid;
bf.add_line(msg); bf.add_line(msg);
bf.add_line(""); bf.add_line("");
} }
void TTrasfer36::mettilavirgola(TFile_text& file, TRecord_text& curr, const char* field, int len, int comma)
{
TString80 num = file.get_field(curr, field);
if (!real::is_null(num))
{
num.right_just(len, '0');
num.insert(".", len - comma);
file.add_field(curr, field, num);
}
}
void TTrasfer36::permille(TFile_text& file, TRecord_text& curr, const char* field)
{
TString80 num = file.get_field(curr, field);
if (!real::is_null(num))
{
num << "000";
file.add_field(curr, field, num);
}
}
void TTrasfer36::machedata(TFile_text& file, TRecord_text& curr, const char* field)
{
TString80 num = file.get_field(curr, field);
if (!real::is_null(num))
{
switch (num.len())
{
case 6:
{
num.insert("19", 0);
const TDate data(atol(num));
file.add_field(curr, field, data.string());
}
break;
case 7:
{
const int secolo = num[0] - '0';
long ansidata = atol(num.mid(1));
ansidata += (19 + secolo) * 1000000L;
const TDate data(ansidata);
file.add_field(curr, field, data.string());
}
break;
case 8:
num.insert("-", 4);
num.insert("-", 2);
file.add_field(curr, field, num);
break;
default:
break;
}
}
}
void TTrasfer36::import_clifo(const TFilename& name, TBrowsefile_field& bf) void TTrasfer36::import_clifo(const TFilename& name, TBrowsefile_field& bf)
{ {
TAssoc_array missing_firm; TAssoc_array missing_firm;
@ -276,6 +409,9 @@ void TTrasfer36::import_clifo(const TFilename& name, TBrowsefile_field& bf)
const char* tipocf = (tipo_record & 0x1) ? "C" : "F"; const char* tipocf = (tipo_record & 0x1) ? "C" : "F";
const long codcf = atol(file.get_field(curr, "CODCF")); const long codcf = atol(file.get_field(curr, "CODCF"));
TString16 extcf;
extcf << (*tipocf == 'C' ? "cliente" : "fornitore") << ' ' << codcf;
TLocalisamfile& clifo = rel.lfile(); TLocalisamfile& clifo = rel.lfile();
clifo.put(CLI_TIPOCF, tipocf); clifo.put(CLI_TIPOCF, tipocf);
clifo.put(CLI_CODCF, codcf); clifo.put(CLI_CODCF, codcf);
@ -292,7 +428,7 @@ void TTrasfer36::import_clifo(const TFilename& name, TBrowsefile_field& bf)
if (err != NOERR) if (err != NOERR)
{ {
msg = "! Non esiste il "; msg = "! Non esiste il ";
msg << (*tipocf == 'C' ? "cliente" : "fornitore") << ' ' << codcf; msg << extcf;
bf.add_line(msg); bf.add_line(msg);
msg = "- Inserimento di "; msg = "- Inserimento di ";
msg << file.get_field(curr, "COGNOME") << file.get_field(curr, "NOME"); msg << file.get_field(curr, "COGNOME") << file.get_field(curr, "NOME");
@ -311,6 +447,45 @@ void TTrasfer36::import_clifo(const TFilename& name, TBrowsefile_field& bf)
case 3: case 3:
if (err == NOERR) if (err == NOERR)
{ {
TString cod = file.get_field(curr, "CODICE BANCA D'APPOGGIO");
if (!cod.blank())
{
const TString* abicab = _bankitalia.codban2abicab(cod);
if (abicab)
{
rel.curr().put(CLI_CODABI, abicab->left(5));
rel.curr().put(CLI_CODCAB, abicab->mid(5));
}
else
{
msg = "Ipossibile determinare l'ABI/CAB della banca d'appoggio ";
msg << cod << " del " << extcf;
bf.add_line(msg);
}
}
cod = file.get_field(curr, "CODICE BANCA PRESENTAZIONE EFFETTI");
if (!cod.blank())
{
const TString* abicab = _bankitalia.codban2abicab(cod);
if (abicab)
{
rel.curr(LF_CFVEN).put(CFV_CODABIPR, abicab->left(5));
rel.curr(LF_CFVEN).put(CFV_CODCABPR, abicab->mid(5));
}
else
{
msg = "Ipossibile determinare l'ABI/CAB della banca di presentazione ";
msg << cod << " del " << extcf;
bf.add_line(msg);
}
}
mettilavirgola(file, curr, "PROVVIGIONE AGENTE", 5, 2);
permille(file, curr, "IMPORTO MINIMO EFFETTI");
machedata(file, curr, "DATA INIZIO RID");
machedata(file, curr, "DATA REVOCA RID");
rel.write_enable(LF_CFVEN); rel.write_enable(LF_CFVEN);
const int err = file.autosave(rel, curr); const int err = file.autosave(rel, curr);
if (err != NOERR) if (err != NOERR)
@ -323,10 +498,27 @@ void TTrasfer36::import_clifo(const TFilename& name, TBrowsefile_field& bf)
valid++; valid++;
} }
break; break;
case 4: case 5:
// Ignored if (err != NOERR)
{
machedata(file, curr, "DATA INVIO ULTIMO ESTRATTO CONTO");
machedata(file, curr, "DATA INVIO ULTIMO SOLLECITO");
permille(file, curr, "FIDO");
rel.write_enable(LF_CFVEN);
const int err = file.autosave(rel, curr);
if (err != NOERR)
{
msg = "! Errore di scrittura sul file LF_CFVEN: ";
msg << err;
bf.add_line(msg);
}
else
valid++;
}
break; break;
default: break; default: break;// Ignored
} }
} }
} }

161
ibm36/ibm36cf.ini
View File

@ -95,15 +95,15 @@ LENGTH(40) = 1
LENGTH(41) = 7 LENGTH(41) = 7
LENGTH(42) = 7 LENGTH(42) = 7
LENGTH(43) = 1 LENGTH(43) = 1
LENGTH(44) = 1 LENGTH(44) = 5
LENGTH(45) = 5 LENGTH(45) = 4
LENGTH(46) = 4 LENGTH(46) = 4
LENGTH(47) = 4 LENGTH(47) = 4
LENGTH(48) = 4 LENGTH(48) = 1
LENGTH(49) = 1 LENGTH(49) = 1
LENGTH(50) = 1 LENGTH(50) = 1
LENGTH(51) = 1 LENGTH(51) = 1
LENGTH(52) = 1 LENGTH(52) = 12
LENGTH(53) = 12 LENGTH(53) = 12
NAME(0) = ANNULLATO NAME(0) = ANNULLATO
@ -151,7 +151,7 @@ NAME(41) = DATA INIZIO RID
NAME(42) = DATA REVOCA RID NAME(42) = DATA REVOCA RID
NAME(43) = FILLER NAME(43) = FILLER
NAME(44) = EMISSIONE EFFETTI A RICHIESTA NAME(44) = EMISSIONE EFFETTI A RICHIESTA
NAME(45) = IMPORTO MINIMO EFFETTI/1000 NAME(45) = IMPORTO MINIMO EFFETTI
NAME(46) = GGMM INIZIO NON ACCETTAZIONE EFFETtI NAME(46) = GGMM INIZIO NON ACCETTAZIONE EFFETtI
NAME(47) = GGMM FINE NON ACCETTAZIONE EFFETtI NAME(47) = GGMM FINE NON ACCETTAZIONE EFFETtI
NAME(48) = GGMM SCADENZA EFFETTI DEI PERIODI NON ACCETTATI NAME(48) = GGMM SCADENZA EFFETTI DEI PERIODI NON ACCETTATI
@ -177,44 +177,44 @@ POSITION(12) = 33
POSITION(13) = 35 POSITION(13) = 35
POSITION(14) = 45 POSITION(14) = 45
POSITION(15) = 47 POSITION(15) = 47
POSITION(16) = 50 POSITION(16) = 52
POSITION(17) = 51 POSITION(17) = 53
POSITION(18) = 52 POSITION(18) = 54
POSITION(19) = 55 POSITION(19) = 57
POSITION(20) = 57 POSITION(20) = 59
POSITION(21) = 59 POSITION(21) = 61
POSITION(22) = 61 POSITION(22) = 63
POSITION(23) = 63 POSITION(23) = 65
POSITION(24) = 66 POSITION(24) = 68
POSITION(25) = 69 POSITION(25) = 71
POSITION(26) = 72 POSITION(26) = 74
POSITION(27) = 73 POSITION(27) = 75
POSITION(28) = 74 POSITION(28) = 76
POSITION(29) = 80 POSITION(29) = 82
POSITION(30) = 82 POSITION(30) = 84
POSITION(31) = 83 POSITION(31) = 85
POSITION(32) = 89 POSITION(32) = 91
POSITION(33) = 95 POSITION(33) = 97
POSITION(34) = 101 POSITION(34) = 103
POSITION(35) = 107 POSITION(35) = 109
POSITION(36) = 108 POSITION(36) = 110
POSITION(37) = 110 POSITION(37) = 112
POSITION(38) = 113 POSITION(38) = 115
POSITION(39) = 116 POSITION(39) = 118
POSITION(40) = 119 POSITION(40) = 121
POSITION(41) = 120 POSITION(41) = 122
POSITION(42) = 124 POSITION(42) = 129
POSITION(43) = 128 POSITION(43) = 136
POSITION(44) = 129 POSITION(44) = 137
POSITION(45) = 130 POSITION(45) = 142
POSITION(46) = 133 POSITION(46) = 150
POSITION(47) = 141 POSITION(47) = 158
POSITION(48) = 149 POSITION(48) = 166
POSITION(49) = 157 POSITION(49) = 167
POSITION(50) = 158 POSITION(50) = 168
POSITION(51) = 159 POSITION(51) = 169
POSITION(52) = 160 POSITION(52) = 170
POSITION(53) = 161 POSITION(53) = 182
FIELD(1) = TIPOCF FIELD(1) = TIPOCF
FIELD(3) = CODCF FIELD(3) = CODCF
@ -276,16 +276,91 @@ LENGTH(0) = 1
LENGTH(1) = 1 LENGTH(1) = 1
LENGTH(2) = 4 LENGTH(2) = 4
LENGTH(3) = 6 LENGTH(3) = 6
LENGTH(4) = 2
LENGTH(5) = 1
LENGTH(6) = 2
LENGTH(7) = 2
LENGTH(8) = 5
LENGTH(9) = 3
LENGTH(10) = 1
LENGTH(11) = 3
LENGTH(12) = 2
LENGTH(13) = 1
LENGTH(14) = 6
LENGTH(15) = 6
LENGTH(16) = 9
LENGTH(17) = 5
LENGTH(18) = 51
LENGTH(19) = 2
LENGTH(20) = 30
LENGTH(21) = 8
LENGTH(22) = 20
LENGTH(23) = 2
LENGTH(24) = 3
NAME(0) = ANNULLATO NAME(0) = ANNULLATO
NAME(1) = TIPOCF NAME(1) = TIPOCF
NAME(2) = DITTA NAME(2) = DITTA
NAME(3) = CODCF NAME(3) = CODCF
NAME(4) = CODICE CATEGORIA VENDITE
NAME(5) = FLAG GESTIONE CONTRATTO
NAME(6) = CODICE LISTINO
NAME(7) = CODICE TABELLA SCONTO INCONDIZIONATO
NAME(8) = PERCENTUALE SCONTO CLIENTE
NAME(9) = CODICE MAGAZZINO
NAME(10) = CODICE DEPOSITO
NAME(11) = CODICI SPESE DA ADDEBITARE
NAME(12) = CODICE PROFILO SOLLECITO
NAME(13) = NUMERO MASSIMO SOLLECITO
NAME(14) = DATA INVIO ESTRATTO CONTO
NAME(15) = DATA INVIO ULTIMO SOLLECITO
NAME(16) = FIDO
NAME(17) = PERCENTUALE SCONTO RIGA
NAME(19) = TITOLO ONORIFICO
NAME(21) = DATA DI NASCITA
NAME(22) = LUOGO DI NASCITA
NAME(23) = PROVINCIA DI NASCITA
NAME(24) = NAZIONE DI NASCITA
POSITION(0) = 0 POSITION(0) = 0
POSITION(1) = 1 POSITION(1) = 1
POSITION(2) = 2 POSITION(2) = 2
POSITION(3) = 6 POSITION(3) = 6
POSITION(4) = 0
POSITION(5) = 14
POSITION(6) = 15
POSITION(7) = 17
POSITION(8) = 19
POSITION(9) = 22
POSITION(10) = 25
POSITION(11) = 26
POSITION(12) = 38
POSITION(13) = 40
POSITION(14) = 41
POSITION(15) = 47
POSITION(16) = 53
POSITION(17) = 58
POSITION(18) = 61
POSITION(19) = 112
POSITION(20) = 114
POSITION(21) = 144
POSITION(22) = 152
POSITION(23) = 172
POSITION(24) = 174
FIELD(1) = TIPOCF FIELD(1) = TIPOCF
FIELD(3) = CODCF FIELD(3) = CODCF
FIELD(5) = 17->GESCONTR
FIELD(6) = 17->CODLIS
FIELD(7) = 17->CODSCC
FIELD(8) = 17->SCONTO
FIELD(9) = 17->CODMAG
FIELD(10) = 17->CODDEP
FIELD(12) = 17->PROFSOLL
FIELD(13) = 17->MAXSOLL
FIELD(14) = 17->DATAESC
FIELD(15) = 17->DATASOLL
FIELD(16) = 17->FIDO
[RECORD 6] [RECORD 6]
LENGTH(0) = 1 LENGTH(0) = 1