This commit was generated by cvs2svn to compensate for changes in r6942,
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://10.65.10.50/trunk@6943 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
4eb7aec100
commit
a9a9ba67c5
15
ibm36/ibm36.cpp
Executable file
15
ibm36/ibm36.cpp
Executable file
@ -0,0 +1,15 @@
|
||||
#include <xvt.h>
|
||||
|
||||
#include "ibm36.h"
|
||||
|
||||
int main(int argc, char** argv)
|
||||
{
|
||||
int n = argc > 1 ? atoi(argv[1]+1) : 0;
|
||||
switch(n)
|
||||
{
|
||||
default:
|
||||
ibm36100(argc, argv); break;
|
||||
}
|
||||
exit(0);
|
||||
return 0;
|
||||
}
|
||||
1
ibm36/ibm36.h
Executable file
1
ibm36/ibm36.h
Executable file
@ -0,0 +1 @@
|
||||
int ibm36100(int argc, char* argv[]);
|
||||
2
ibm36/ibm36.url
Executable file
2
ibm36/ibm36.url
Executable file
@ -0,0 +1,2 @@
|
||||
#include <default.url>
|
||||
|
||||
370
ibm36/ibm36100.cpp
Executable file
370
ibm36/ibm36100.cpp
Executable file
@ -0,0 +1,370 @@
|
||||
#include <applicat.h>
|
||||
#include <automask.h>
|
||||
#include <browfile.h>
|
||||
#include <filetext.h>
|
||||
#include <prefix.h>
|
||||
#include <progind.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <viswin.h>
|
||||
|
||||
#include "ibm36.h"
|
||||
|
||||
#include <comuni.h>
|
||||
#include <clifo.h>
|
||||
|
||||
class TMask36 : public TAutomask
|
||||
{
|
||||
protected:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
|
||||
public:
|
||||
TMask36() : TAutomask("ibm36100") { }
|
||||
virtual ~TMask36() { }
|
||||
};
|
||||
|
||||
bool TMask36::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
class TTrasfer36 : public TSkeleton_application
|
||||
{
|
||||
protected:
|
||||
virtual void main_loop();
|
||||
virtual const char* extra_modules() const { return "*"; } // Non e' un modulo normale
|
||||
|
||||
public:
|
||||
const TString& cap2com(const TString& cap, const TString& name) const;
|
||||
void split_indir(const TString& indir, TString& via, TString& civ) const;
|
||||
void import_tables(const TFilename& name, TBrowsefile_field& bf);
|
||||
void import_clifo(const TFilename& name, TBrowsefile_field& bf);
|
||||
};
|
||||
|
||||
const TString& TTrasfer36::cap2com(const TString& cap, const TString& name) const
|
||||
{
|
||||
if (cap.not_empty())
|
||||
{
|
||||
TString16 str(cap); str.right_just(5, '0');
|
||||
if (str[2] == '1')
|
||||
str.overwrite("00", 3);
|
||||
|
||||
TRelation rel(LF_COMUNI);
|
||||
TRectype filter(LF_COMUNI); filter.put(COM_CAPCOM, cap);
|
||||
TCursor comuni(&rel, "", 3, &filter, &filter);
|
||||
const TRecnotype total = comuni.items();
|
||||
if (total > 0)
|
||||
{
|
||||
comuni = 0;
|
||||
if (total > 1)
|
||||
{
|
||||
TRecnotype bestpos = 0L;
|
||||
int bestlen = 0;
|
||||
comuni.freeze(TRUE);
|
||||
for (; comuni.pos() < total; ++comuni)
|
||||
{
|
||||
const TString& dencom = comuni.curr().get(COM_DENCOM);
|
||||
for (int l = 0; toupper(dencom[l]) == toupper(name[l]); l++);
|
||||
if (l > bestlen)
|
||||
{
|
||||
bestlen = l;
|
||||
bestpos = comuni.pos();
|
||||
}
|
||||
}
|
||||
comuni = bestpos;
|
||||
}
|
||||
return comuni.curr().get(COM_COM);
|
||||
}
|
||||
}
|
||||
return EMPTY_STRING;
|
||||
}
|
||||
|
||||
void TTrasfer36::split_indir(const TString& indir, TString& via, TString& civ) const
|
||||
{
|
||||
const int comma = indir.rfind(',');
|
||||
if (comma > 0)
|
||||
{
|
||||
via = indir.left(comma);
|
||||
civ = indir.mid(comma+1);
|
||||
}
|
||||
else
|
||||
{
|
||||
bool has_digit = FALSE;
|
||||
for (int i = indir.len()-1; i > 0; i--)
|
||||
{
|
||||
if (has_digit)
|
||||
{
|
||||
if (indir[i] == ' ')
|
||||
break;
|
||||
}
|
||||
else
|
||||
{
|
||||
if (isdigit(indir[i]))
|
||||
has_digit = TRUE;
|
||||
}
|
||||
}
|
||||
if (i > 0 && has_digit)
|
||||
{
|
||||
via = indir.left(i);
|
||||
civ = indir.mid(i+1);
|
||||
}
|
||||
}
|
||||
|
||||
if (via.empty())
|
||||
{
|
||||
via = indir;
|
||||
civ.cut(0);
|
||||
}
|
||||
|
||||
via.cut(35);
|
||||
civ.cut(10);
|
||||
}
|
||||
|
||||
void TTrasfer36::import_tables(const TFilename& name, TBrowsefile_field& bf)
|
||||
{
|
||||
TString msg;
|
||||
msg = "Importazione tabelle vendite";
|
||||
|
||||
TProgind pi(::fsize(name), msg, TRUE, TRUE);
|
||||
long valid = 0;
|
||||
|
||||
msg.insert("@b", 0);
|
||||
msg << " dal file " << name;
|
||||
bf.add_line(msg);
|
||||
bf.add_line("");
|
||||
|
||||
TFile_text file(name, "ibm36tab.ini");
|
||||
|
||||
TTable ban("%BAN");
|
||||
|
||||
TRecord_text curr;
|
||||
while (file.read(curr) == NOERR)
|
||||
{
|
||||
pi.setstatus(file.read_file()->tellg());
|
||||
if (pi.iscancelled())
|
||||
break;
|
||||
|
||||
const TString& type = curr.type();
|
||||
if (type == "A26")
|
||||
{
|
||||
const TString& ann = file.get_field(curr, "ANNULLATO");
|
||||
if (ann != "A")
|
||||
{
|
||||
msg = "Importazione tabelle vendite - Record validi: ";
|
||||
msg << ++valid;
|
||||
pi.set_text(msg);
|
||||
|
||||
TString16 cod = file.get_field(curr, "CODICE");
|
||||
TString16 abi = file.get_field(curr, "ABI");
|
||||
TString16 cab = file.get_field(curr, "CAB");
|
||||
if (abi.empty() || cab.empty())
|
||||
{
|
||||
if (abi.empty()) abi = "99999";
|
||||
if (cab.empty()) { cab = cod; cab.right_just(5, '0'); }
|
||||
|
||||
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);
|
||||
}
|
||||
abi.right_just(5, '0');
|
||||
cab.right_just(5, '0');
|
||||
|
||||
TString16 codtab = abi;
|
||||
ban.put("CODTAB", codtab);
|
||||
if (ban.read() != NOERR)
|
||||
{
|
||||
msg = "- Creazione dell'istituto fittizio ";
|
||||
msg << abi;
|
||||
bf.add_line(msg);
|
||||
|
||||
ban.put("CODTAB", codtab);
|
||||
ban.put("S0", "Banca per trasferimenti IBM36");
|
||||
ban.write();
|
||||
}
|
||||
|
||||
codtab << cab;
|
||||
ban.put("CODTAB", codtab);
|
||||
if (ban.read() == NOERR)
|
||||
{
|
||||
ban.put("I14", cod);
|
||||
ban.rewrite();
|
||||
}
|
||||
else
|
||||
{
|
||||
ban.put("CODTAB", codtab);
|
||||
ban.put("S0", file.get_field(curr, "RAGSOC"));
|
||||
ban.put("I14", cod);
|
||||
|
||||
const TString& cap = file.get_field(curr, "CAP");
|
||||
ban.put("S3", cap);
|
||||
|
||||
const TString& loc = file.get_field(curr, "LOCALITA");
|
||||
ban.put("S1", loc);
|
||||
|
||||
const TString& com = cap2com(cap, loc);
|
||||
ban.put("S5", com);
|
||||
|
||||
const TString& ind = file.get_field(curr, "INDIRIZZO");
|
||||
TString via, civ;
|
||||
split_indir(ind, via, civ);
|
||||
ban.put("S2", via);
|
||||
ban.put("S7", civ);
|
||||
|
||||
ban.write();
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
msg = "Record importati: ";
|
||||
msg << valid;
|
||||
bf.add_line(msg);
|
||||
bf.add_line("");
|
||||
}
|
||||
|
||||
void TTrasfer36::import_clifo(const TFilename& name, TBrowsefile_field& bf)
|
||||
{
|
||||
TAssoc_array missing_firm;
|
||||
TString msg;
|
||||
long valid = 0;
|
||||
|
||||
msg = "Importazione Clienti/Fornitori";
|
||||
TProgind pi(::fsize(name), msg, TRUE, TRUE);
|
||||
TFile_text file(name, "ibm36cf.ini");
|
||||
|
||||
msg.insert("@b", 0);
|
||||
bf.add_line(msg);
|
||||
bf.add_line("");
|
||||
|
||||
TRelation rel(LF_CLIFO); rel.add(LF_CFVEN, "TIPOCF=TIPOCF|CODCF=CODCF");
|
||||
|
||||
TRecord_text curr;
|
||||
while (file.read(curr) == NOERR)
|
||||
{
|
||||
pi.setstatus(file.read_file()->tellg());
|
||||
if (pi.iscancelled())
|
||||
break;
|
||||
|
||||
const int tipo_record = curr.type()[0] - '0';
|
||||
if (tipo_record >= 1 && tipo_record <= 6)
|
||||
{
|
||||
const char stato_record = file.get_field(curr, "ANNULLATO")[0];
|
||||
if (stato_record == 'A')
|
||||
continue;
|
||||
|
||||
const long ditta = atol(file.get_field(curr, "DITTA"));
|
||||
if (prefix().get_codditta() != ditta)
|
||||
{
|
||||
if (prefix().exist(ditta))
|
||||
prefix().set_codditta(ditta);
|
||||
else
|
||||
{
|
||||
msg.format("%ld", ditta);
|
||||
if (missing_firm.objptr(msg) == NULL)
|
||||
{
|
||||
missing_firm.add(msg, msg);
|
||||
msg.insert("Non esiste la ditta ", 0);
|
||||
msg << ": Effettuare il trasferimento della contabilita'";
|
||||
bf.add_line(msg);
|
||||
}
|
||||
continue;
|
||||
}
|
||||
}
|
||||
|
||||
const char* tipocf = (tipo_record & 0x1) ? "C" : "F";
|
||||
const long codcf = atol(file.get_field(curr, "CODCF"));
|
||||
TLocalisamfile& clifo = rel.lfile();
|
||||
clifo.put(CLI_TIPOCF, tipocf);
|
||||
clifo.put(CLI_CODCF, codcf);
|
||||
int err = clifo.read();
|
||||
if (err == NOERR)
|
||||
{
|
||||
file.add_field(curr, "TIPOCF", tipocf);
|
||||
}
|
||||
|
||||
switch(tipo_record)
|
||||
{
|
||||
case 1:
|
||||
case 2:
|
||||
if (err != NOERR)
|
||||
{
|
||||
msg = "! Non esiste il ";
|
||||
msg << (*tipocf == 'C' ? "cliente" : "fornitore") << ' ' << codcf;
|
||||
bf.add_line(msg);
|
||||
msg = "- Inserimento di ";
|
||||
msg << file.get_field(curr, "COGNOME") << file.get_field(curr, "NOME");
|
||||
bf.add_line(msg);
|
||||
|
||||
rel.write_enable(LF_CFVEN, FALSE);
|
||||
const int err = file.autosave(rel, curr);
|
||||
if (err != NOERR)
|
||||
{
|
||||
msg = "! Errore di scrittura sul file LF_CLIFO: ";
|
||||
msg << err;
|
||||
bf.add_line(msg);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 3:
|
||||
if (err == NOERR)
|
||||
{
|
||||
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;
|
||||
case 4:
|
||||
// Ignored
|
||||
break;
|
||||
default: break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
msg = "Record importati: ";
|
||||
msg << valid;
|
||||
bf.add_line(msg);
|
||||
bf.add_line("");
|
||||
}
|
||||
|
||||
void TTrasfer36::main_loop()
|
||||
{
|
||||
TMask36 m;
|
||||
TBrowsefile_field& bf = (TBrowsefile_field&)m.field(201);
|
||||
|
||||
TViswin& vw = bf.vis_win();
|
||||
vw.show_rulers(FALSE);
|
||||
|
||||
while (m.run() == K_ENTER)
|
||||
{
|
||||
vw.destroy_lines();
|
||||
TFilename name;
|
||||
|
||||
name = m.get(101);
|
||||
if (name.not_empty())
|
||||
import_tables(name, bf);
|
||||
|
||||
name = m.get(102);
|
||||
if (name.not_empty())
|
||||
import_clifo(name, bf);
|
||||
|
||||
vw.goto_top();
|
||||
}
|
||||
}
|
||||
|
||||
int ibm36100(int argc, char* argv[])
|
||||
{
|
||||
TTrasfer36 a;
|
||||
a.run(argc, argv, "Trasferimento IBM36");
|
||||
return 0;
|
||||
}
|
||||
38
ibm36/ibm36100.uml
Executable file
38
ibm36/ibm36100.uml
Executable file
@ -0,0 +1,38 @@
|
||||
TOOOLBAR "Toolbar" 0 19 0 0
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Trasferimento da IBM 36" -1 -1 68 8
|
||||
|
||||
STRING 101 50
|
||||
BEGIN
|
||||
PROMPT 1 1 "Tabelle "
|
||||
FSELECT ""
|
||||
END
|
||||
|
||||
STRING 102 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Cli/For "
|
||||
FSELECT ""
|
||||
END
|
||||
|
||||
BROWSEFILE 201 -3 -1
|
||||
BEGIN
|
||||
PROMPT 0 4 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
304
ibm36/ibm36cf.ini
Executable file
304
ibm36/ibm36cf.ini
Executable file
@ -0,0 +1,304 @@
|
||||
[MAIN]
|
||||
TYPEPOS = 1
|
||||
TYPELEN = 1
|
||||
|
||||
[RECORD 1]
|
||||
LENGTH(0) = 1
|
||||
LENGTH(1) = 1
|
||||
LENGTH(2) = 4
|
||||
LENGTH(3) = 6
|
||||
LENGTH(4) = 30
|
||||
LENGTH(5) = 20
|
||||
NAME(0) = ANNULLATO
|
||||
NAME(1) = TIPOCF
|
||||
NAME(2) = DITTA
|
||||
NAME(3) = CODCF
|
||||
NAME(4) = COGNOME
|
||||
NAME(5) = NOME
|
||||
POSITION(0) = 0
|
||||
POSITION(1) = 1
|
||||
POSITION(2) = 2
|
||||
POSITION(3) = 6
|
||||
POSITION(4) = 12
|
||||
POSITION(5) = 42
|
||||
FIELD(1) = TIPOCF
|
||||
FIELD(3) = CODCF
|
||||
FIELD(4) = RAGSOC[1,30]
|
||||
FIELD(5) = RAGSOC[31,50]
|
||||
|
||||
[RECORD 2]
|
||||
LENGTH(0) = 1
|
||||
LENGTH(1) = 1
|
||||
LENGTH(2) = 4
|
||||
LENGTH(3) = 6
|
||||
LENGTH(4) = 30
|
||||
LENGTH(5) = 20
|
||||
NAME(0) = ANNULLATO
|
||||
NAME(1) = TIPOCF
|
||||
NAME(2) = DITTA
|
||||
NAME(3) = CODCF
|
||||
NAME(4) = COGNOME
|
||||
NAME(5) = NOME
|
||||
POSITION(0) = 0
|
||||
POSITION(1) = 1
|
||||
POSITION(2) = 2
|
||||
POSITION(3) = 6
|
||||
POSITION(4) = 12
|
||||
POSITION(5) = 42
|
||||
FIELD(1) = TIPOCF
|
||||
FIELD(3) = CODCF
|
||||
FIELD(4) = RAGSOC[1,30]
|
||||
FIELD(5) = RAGSOC[31,50]
|
||||
|
||||
[RECORD 3]
|
||||
LENGTH(0) = 1
|
||||
LENGTH(1) = 1
|
||||
LENGTH(2) = 4
|
||||
LENGTH(3) = 6
|
||||
LENGTH(4) = 6
|
||||
LENGTH(5) = 2
|
||||
LENGTH(6) = 3
|
||||
LENGTH(7) = 1
|
||||
LENGTH(8) = 3
|
||||
LENGTH(9) = 2
|
||||
LENGTH(10) = 2
|
||||
LENGTH(11) = 2
|
||||
LENGTH(12) = 2
|
||||
LENGTH(13) = 10
|
||||
LENGTH(14) = 2
|
||||
LENGTH(15) = 5
|
||||
LENGTH(16) = 1
|
||||
LENGTH(17) = 1
|
||||
LENGTH(18) = 3
|
||||
LENGTH(19) = 2
|
||||
LENGTH(20) = 2
|
||||
LENGTH(21) = 2
|
||||
LENGTH(22) = 2
|
||||
LENGTH(23) = 3
|
||||
LENGTH(24) = 3
|
||||
LENGTH(25) = 3
|
||||
LENGTH(26) = 1
|
||||
LENGTH(27) = 1
|
||||
LENGTH(28) = 6
|
||||
LENGTH(29) = 2
|
||||
LENGTH(30) = 1
|
||||
LENGTH(31) = 6
|
||||
LENGTH(32) = 6
|
||||
LENGTH(33) = 6
|
||||
LENGTH(34) = 6
|
||||
LENGTH(35) = 1
|
||||
LENGTH(36) = 2
|
||||
LENGTH(37) = 3
|
||||
LENGTH(38) = 3
|
||||
LENGTH(39) = 3
|
||||
LENGTH(40) = 1
|
||||
LENGTH(41) = 7
|
||||
LENGTH(42) = 7
|
||||
LENGTH(43) = 1
|
||||
LENGTH(44) = 1
|
||||
LENGTH(45) = 5
|
||||
LENGTH(46) = 4
|
||||
LENGTH(47) = 4
|
||||
LENGTH(48) = 4
|
||||
LENGTH(49) = 1
|
||||
LENGTH(50) = 1
|
||||
LENGTH(51) = 1
|
||||
LENGTH(52) = 1
|
||||
LENGTH(53) = 12
|
||||
|
||||
NAME(0) = ANNULLATO
|
||||
NAME(1) = TIPOCF
|
||||
NAME(2) = DITTA
|
||||
NAME(3) = CODCF
|
||||
NAME(4) = CODICE PER COGE
|
||||
NAME(5) = NAZIONE
|
||||
NAME(6) = VALUTA
|
||||
NAME(7) = LINGUA
|
||||
NAME(8) = INDIRIZZO DOCUMENTO
|
||||
NAME(9) = NOTE ANAGRAFICHE
|
||||
NAME(10) = CODICE LEGALE
|
||||
NAME(11) = CATEGORIA CONTABILE
|
||||
NAME(12) = ZONA
|
||||
NAME(13) = CODICE MECCANOGRAFICO
|
||||
NAME(14) = CODICE AGENTE
|
||||
NAME(15) = PROVVIGIONE AGENTE
|
||||
NAME(16) = FLAG LIQUIDAZIONE PROVVIGIONI
|
||||
NAME(17) = LIVELLO DI FATTURAZIONE
|
||||
NAME(18) = CODICE INDIRIZZO DI SPEDIZIONE
|
||||
NAME(19) = PRIMO CODICE DOCUMENTO
|
||||
NAME(20) = SECONDO CODICE DOCUMENTO
|
||||
NAME(21) = CODICE MODALITA' SPEDIZIONE
|
||||
NAME(22) = MODALITA' CONSEGNA/PORTO
|
||||
NAME(23) = PRIMO CODICE VETTORE
|
||||
NAME(24) = SECONDO CODICE VETTORE
|
||||
NAME(25) = TERZO CODICE VETTORE
|
||||
NAME(26) = RAGGRUPPAMENTO DOCUMENTI
|
||||
NAME(27) = NUMERO COPIE DOCUMENTI
|
||||
NAME(28) = CODICE FORNITORE ASSOCIATO
|
||||
NAME(29) = CODICE ASSOGGETTAMENTO FISCALE
|
||||
NAME(30) = FLAG FATTURE IN SOSPENSIONE D'IMPOSTA
|
||||
NAME(31) = DATI LETTERA ESENZIONE VS. NUMERO PROT.
|
||||
NAME(32) = DATI LETTERA ESENZIONE VS. DATA REG.
|
||||
NAME(33) = DATI LETTERA ESENZIONE NS. NUMERO PROT.
|
||||
NAME(34) = DATI LETTERA ESENZIONE NS. DATA REG.
|
||||
NAME(35) = FLAG ADDEBITO BOLLO FISSO
|
||||
NAME(36) = CODICE CATEGORIA FINANZIARIA
|
||||
NAME(37) = CODICE BANCA D'APPOGGIO
|
||||
NAME(38) = CODICE BANCA PRESENTAZIONE EFFETTI
|
||||
NAME(39) = CODICE INDIRIZZO EFFETTI
|
||||
NAME(40) = GESTIONE CAUZIONI
|
||||
NAME(41) = DATA INIZIO RID
|
||||
NAME(42) = DATA REVOCA RID
|
||||
NAME(43) = FILLER
|
||||
NAME(44) = EMISSIONE EFFETTI A RICHIESTA
|
||||
NAME(45) = IMPORTO MINIMO EFFETTI/1000
|
||||
NAME(46) = GGMM INIZIO NON ACCETTAZIONE EFFETtI
|
||||
NAME(47) = GGMM FINE NON ACCETTAZIONE EFFETtI
|
||||
NAME(48) = GGMM SCADENZA EFFETTI DEI PERIODI NON ACCETTATI
|
||||
NAME(49) = FLAG ADDEBITO BOLLI RIBA
|
||||
NAME(50) = FLAG ADDEBITO BOLLI TRATTE
|
||||
NAME(51) = FLAG ADDEBITO BOLLI SPESE INCASSO
|
||||
NAME(52) = FLAG ALIQUOTA RIDOTTA
|
||||
NAME(53) = CONTO CORRENTE BANCA D'APPOGGIO
|
||||
|
||||
POSITION(0) = 0
|
||||
POSITION(1) = 1
|
||||
POSITION(2) = 2
|
||||
POSITION(3) = 6
|
||||
POSITION(4) = 12
|
||||
POSITION(5) = 18
|
||||
POSITION(6) = 20
|
||||
POSITION(7) = 23
|
||||
POSITION(8) = 24
|
||||
POSITION(9) = 27
|
||||
POSITION(10) = 29
|
||||
POSITION(11) = 31
|
||||
POSITION(12) = 33
|
||||
POSITION(13) = 35
|
||||
POSITION(14) = 45
|
||||
POSITION(15) = 47
|
||||
POSITION(16) = 50
|
||||
POSITION(17) = 51
|
||||
POSITION(18) = 52
|
||||
POSITION(19) = 55
|
||||
POSITION(20) = 57
|
||||
POSITION(21) = 59
|
||||
POSITION(22) = 61
|
||||
POSITION(23) = 63
|
||||
POSITION(24) = 66
|
||||
POSITION(25) = 69
|
||||
POSITION(26) = 72
|
||||
POSITION(27) = 73
|
||||
POSITION(28) = 74
|
||||
POSITION(29) = 80
|
||||
POSITION(30) = 82
|
||||
POSITION(31) = 83
|
||||
POSITION(32) = 89
|
||||
POSITION(33) = 95
|
||||
POSITION(34) = 101
|
||||
POSITION(35) = 107
|
||||
POSITION(36) = 108
|
||||
POSITION(37) = 110
|
||||
POSITION(38) = 113
|
||||
POSITION(39) = 116
|
||||
POSITION(40) = 119
|
||||
POSITION(41) = 120
|
||||
POSITION(42) = 124
|
||||
POSITION(43) = 128
|
||||
POSITION(44) = 129
|
||||
POSITION(45) = 130
|
||||
POSITION(46) = 133
|
||||
POSITION(47) = 141
|
||||
POSITION(48) = 149
|
||||
POSITION(49) = 157
|
||||
POSITION(50) = 158
|
||||
POSITION(51) = 159
|
||||
POSITION(52) = 160
|
||||
POSITION(53) = 161
|
||||
|
||||
FIELD(1) = TIPOCF
|
||||
FIELD(3) = CODCF
|
||||
FIELD(6) = CODVAL
|
||||
FIELD(7) = CODLIN
|
||||
FIELD(8) = 17->CODINDDOC
|
||||
FIELD(9) = 17->CODNOTE
|
||||
FIELD(10) = 17->CODLEG
|
||||
FIELD(11) = 17->CODCATC
|
||||
FIELD(12) = 17->CODZONA
|
||||
FIELD(13) = 17->CODPRCF
|
||||
FIELD(14) = 17->CODAG
|
||||
FIELD(15) = 17->PERCPROVV
|
||||
FIELD(16) = 17->LIQPAG
|
||||
FIELD(18) = 17->CODINDSP
|
||||
FIELD(19) = 17->CODNOTESP1
|
||||
FIELD(20) = 17->CODNOTESP2
|
||||
FIELD(21) = 17->CODSPMEZZO
|
||||
FIELD(22) = 17->CODPORTO
|
||||
FIELD(23) = 17->CODVETT1
|
||||
FIELD(24) = 17->CODVETT2
|
||||
FIELD(25) = 17->CODVETT3
|
||||
FIELD(26) = 17->RAGGDOC
|
||||
FIELD(28) = 17->CODCFASS
|
||||
FIELD(29) = 17->ASSFIS
|
||||
FIELD(30) = 17->FATTSOSP
|
||||
FIELD(31) = 17->VSNRPROT
|
||||
FIELD(32) = 17->VSDATAREG
|
||||
FIELD(33) = 17->NSNPROT
|
||||
FIELD(34) = 17->NSDATAREG
|
||||
FIELD(36) = 17->CATFIN
|
||||
FIELD(39) = 17->CODINDEFF
|
||||
FIELD(44) = 17->EMEFFRICH
|
||||
FIELD(45) = 17->IMPMINEFF
|
||||
FIELD(46) = 17->NONACCEFF
|
||||
FIELD(48) = 17->NONSCADEFF
|
||||
FIELD(49) = 17->ADDBOLLI
|
||||
FIELD(52) = 17->IVARID
|
||||
FIELD(53) = NUMCC
|
||||
|
||||
[RECORD 4]
|
||||
LENGTH(0) = 1
|
||||
LENGTH(1) = 1
|
||||
LENGTH(2) = 4
|
||||
LENGTH(3) = 6
|
||||
NAME(0) = ANNULLATO
|
||||
NAME(1) = TIPOCF
|
||||
NAME(2) = DITTA
|
||||
NAME(3) = CODCF
|
||||
POSITION(0) = 0
|
||||
POSITION(1) = 1
|
||||
POSITION(2) = 2
|
||||
POSITION(3) = 6
|
||||
FIELD(1) = TIPOCF
|
||||
FIELD(3) = CODCF
|
||||
|
||||
[RECORD 5]
|
||||
LENGTH(0) = 1
|
||||
LENGTH(1) = 1
|
||||
LENGTH(2) = 4
|
||||
LENGTH(3) = 6
|
||||
NAME(0) = ANNULLATO
|
||||
NAME(1) = TIPOCF
|
||||
NAME(2) = DITTA
|
||||
NAME(3) = CODCF
|
||||
POSITION(0) = 0
|
||||
POSITION(1) = 1
|
||||
POSITION(2) = 2
|
||||
POSITION(3) = 6
|
||||
FIELD(1) = TIPOCF
|
||||
FIELD(3) = CODCF
|
||||
|
||||
[RECORD 6]
|
||||
LENGTH(0) = 1
|
||||
LENGTH(1) = 1
|
||||
LENGTH(2) = 4
|
||||
LENGTH(3) = 6
|
||||
NAME(0) = ANNULLATO
|
||||
NAME(1) = TIPOCF
|
||||
NAME(2) = DITTA
|
||||
NAME(3) = CODCF
|
||||
POSITION(0) = 0
|
||||
POSITION(1) = 1
|
||||
POSITION(2) = 2
|
||||
POSITION(3) = 6
|
||||
FIELD(1) = TIPOCF
|
||||
FIELD(3) = CODCF
|
||||
46
ibm36/ibm36tab.ini
Executable file
46
ibm36/ibm36tab.ini
Executable file
@ -0,0 +1,46 @@
|
||||
[MAIN]
|
||||
FIELDSEP =
|
||||
RECORDSEP =
|
||||
RECORDSIZE =
|
||||
SKIPLINES = 0
|
||||
TYPEFIELD = 1
|
||||
TYPEPOS = 1
|
||||
TYPELEN = 3
|
||||
|
||||
[RECORD A26]
|
||||
FIELD(4) = S0
|
||||
LENGTH(0) = 1
|
||||
LENGTH(1) = 3
|
||||
LENGTH(2) = 3
|
||||
LENGTH(3) = 10
|
||||
LENGTH(4) = 50
|
||||
LENGTH(5) = 35
|
||||
LENGTH(6) = 5
|
||||
LENGTH(7) = 20
|
||||
LENGTH(8) = 2
|
||||
LENGTH(9) = 5
|
||||
LENGTH(10) = 5
|
||||
NAME(0) = ANNULLATO
|
||||
NAME(1) = TIPO
|
||||
NAME(2) = CODICE
|
||||
NAME(3) = FILLER
|
||||
NAME(4) = RAGSOC
|
||||
NAME(5) = INDIRIZZO
|
||||
NAME(6) = CAP
|
||||
NAME(7) = LOCALITA
|
||||
NAME(8) = PROVINCIA
|
||||
NAME(9) = ABI
|
||||
NAME(10) = CAB
|
||||
POSITION(0) = 0
|
||||
POSITION(1) = 1
|
||||
POSITION(2) = 4
|
||||
POSITION(3) = 7
|
||||
POSITION(4) = 17
|
||||
POSITION(5) = 67
|
||||
POSITION(6) = 102
|
||||
POSITION(7) = 107
|
||||
POSITION(8) = 127
|
||||
POSITION(9) = 129
|
||||
POSITION(10) = 134
|
||||
USE = %BAN
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user