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            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21141 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-11-16 15:12:49 +00:00
parent 289d0aac6c
commit ac1c8f5ad0
4 changed files with 110 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
ha/ha1100.cpp
View File

@ -60,10 +60,10 @@ protected:
const int logicnum, const TToken_string& key) const; const int logicnum, const TToken_string& key) const;
//metodi di alto livello //metodi di alto livello
void genera_cliente_txt(TConfig& ini); void genera_cliente_var_txt(TConfig& ini);
void genera_riga_listino_txt(TConfig& ini); void genera_riga_listino_var_txt(TConfig& ini);
void genera_prodotto_txt(TConfig& ini); void genera_prodotto_var_txt(TConfig& ini);
void genera_sospeso_txt(TConfig& ini, TString_array& ini_paragraphs); void genera_sospeso_var_txt(TConfig& ini, TString_array& ini_paragraphs);
virtual void main_loop(); virtual void main_loop();
@ -125,7 +125,7 @@ TString4 TIni2Txt::ricava_segno(TConfig& ini)
/////////////////////////////////////////////// ///////////////////////////////////////////////
// metodi di alto livello // metodi di alto livello
/////////////////////////////////////////////// ///////////////////////////////////////////////
void TIni2Txt::genera_cliente_txt(TConfig& ini) void TIni2Txt::genera_cliente_var_txt(TConfig& ini)
{ {
//recordset per i clienti //recordset per i clienti
TEsporta_clientiVAR_recordset clienti; TEsporta_clientiVAR_recordset clienti;
@ -150,6 +150,8 @@ void TIni2Txt::genera_cliente_txt(TConfig& ini)
TString80 indcf = ini.get(CLI_INDCF); TString80 indcf = ini.get(CLI_INDCF);
indcf << " " << ini.get(CLI_CIVCF); indcf << " " << ini.get(CLI_CIVCF);
clienti.set(CLI_INDCF, indcf); clienti.set(CLI_INDCF, indcf);
const TString80 localitacf = ini.get(CLI_LOCCF);
clienti.set("Localita", localitacf);
//panegirico per comune e provincia //panegirico per comune e provincia
const TString& statocf = ini.get(CLI_STATOCF); const TString& statocf = ini.get(CLI_STATOCF);
if (statocf.blank()) if (statocf.blank())
@ -159,9 +161,12 @@ void TIni2Txt::genera_cliente_txt(TConfig& ini)
key.add(statocf); key.add(statocf);
key.add(comcf); key.add(comcf);
const TRectype& rec_comuni = cache().get(LF_COMUNI, key); const TRectype& rec_comuni = cache().get(LF_COMUNI, key);
TString80 dencom = rec_comuni.get(COM_DENCOM); //se la località è vuota ci mettiamo la descrizione del comune
//dencom.cut(20); //il campo sul .txt è lungo 20! if (localitacf.blank())
clienti.set("Localita", dencom); {
TString80 dencom = rec_comuni.get(COM_DENCOM);
clienti.set("Localita", dencom);
}
const TString& provcf = rec_comuni.get(COM_PROVCOM); const TString& provcf = rec_comuni.get(COM_PROVCOM);
clienti.set("Provincia", provcf); clienti.set("Provincia", provcf);
} }
@ -172,8 +177,7 @@ void TIni2Txt::genera_cliente_txt(TConfig& ini)
//attenzione alla lunghezza del codpag //attenzione alla lunghezza del codpag
TString4 codpag = ini.get(CLI_CODPAG); TString4 codpag = ini.get(CLI_CODPAG);
//codpag.cut(2); //il campo sul .txt è lungo 2! clienti.set(CLI_CODPAG, codpag.right(2)); //il campo sul .txt è lungo 2 e vuole i caratteri a destra!
clienti.set(CLI_CODPAG, codpag);
TString query; TString query;
@ -189,12 +193,16 @@ void TIni2Txt::genera_cliente_txt(TConfig& ini)
clienti.set("CodiceListino", cod_contr); clienti.set("CodiceListino", cod_contr);
} }
//casotto sulla decodifica articoli
//"FlDecodArt"
//"DecodeCodCli"
TString16 ntel = ini.get(CLI_PTEL); TString16 ntel = ini.get(CLI_PTEL);
ntel << ini.get(CLI_TEL); ntel << ini.get(CLI_TEL);
//ntel.cut(10);
clienti.set(CLI_TEL, ntel); clienti.set(CLI_TEL, ntel);
clienti.set(CLI_CODCFFATT, ini.get(CLI_CODCFFATT)); clienti.set(CLI_CODCFFATT, ini.get(CLI_CODCFFATT));
clienti.set("TipoDoc", "F");
//panegirico del fido! //panegirico del fido!
//poichè il formato di output prevede comunque 2 decimali -> provvediamo a riempire eventuali buchi //poichè il formato di output prevede comunque 2 decimali -> provvediamo a riempire eventuali buchi
@ -203,9 +211,9 @@ void TIni2Txt::genera_cliente_txt(TConfig& ini)
fido.round(); fido.round();
clienti.set(CLI_FIDO, fido); clienti.set(CLI_FIDO, fido);
//no consegna = sospeso (forse) //no consegna = sospeso (forse, anzi NO! non ci va)
const TString& sospeso = ini.get_bool(CLI_SOSPESO) ? "S" : ""; //const TString& sospeso = ini.get_bool(CLI_SOSPESO) ? "S" : "";
clienti.set("NoConsegna", sospeso); //clienti.set("NoConsegna", sospeso);
clienti.set(CLI_COFI, ini.get(CLI_COFI)); clienti.set(CLI_COFI, ini.get(CLI_COFI));
@ -232,7 +240,7 @@ void TIni2Txt::genera_cliente_txt(TConfig& ini)
} }
void TIni2Txt::genera_riga_listino_txt(TConfig& ini) void TIni2Txt::genera_riga_listino_var_txt(TConfig& ini)
{ {
TEsporta_listiniVAR_recordset riga_listino; TEsporta_listiniVAR_recordset riga_listino;
@ -254,12 +262,11 @@ void TIni2Txt::genera_riga_listino_txt(TConfig& ini)
riga_listino.new_rec(""); riga_listino.new_rec("");
riga_listino.set("CodiceTerminale", 0L); //nel caso del listino non si sa come comportarsi riga_listino.set("CodiceTerminale", 0L); //nel caso del listino non ci va l'agente/terminale
riga_listino.set("Segno", segno); riga_listino.set("Segno", segno);
riga_listino.set(RCONDV_COD, ini.get(RCONDV_COD)); riga_listino.set(RCONDV_COD, ini.get(RCONDV_COD));
TString80 codart = ini.get(RCONDV_CODRIGA); TString80 codart = ini.get(RCONDV_CODRIGA);
//codart.cut(5); //il codart è lungo 5 sul txt!
riga_listino.set(RCONDV_CODRIGA, codart); riga_listino.set(RCONDV_CODRIGA, codart);
//prezzo //prezzo
@ -292,7 +299,7 @@ void TIni2Txt::genera_riga_listino_txt(TConfig& ini)
} }
void TIni2Txt::genera_prodotto_txt(TConfig& ini) void TIni2Txt::genera_prodotto_var_txt(TConfig& ini)
{ {
TEsporta_prodottiVAR_recordset prodotto; TEsporta_prodottiVAR_recordset prodotto;
prodotto.new_rec(""); prodotto.new_rec("");
@ -306,16 +313,15 @@ void TIni2Txt::genera_prodotto_txt(TConfig& ini)
prodotto.set("Segno", segno); prodotto.set("Segno", segno);
TString80 codart = ini.get(ANAMAG_CODART); TString80 codart = ini.get(ANAMAG_CODART);
//codart.cut(5); //solito problema della lunghezza ridotta
prodotto.set(ANAMAG_CODART, codart); prodotto.set(ANAMAG_CODART, codart);
TString80 descr = ini.get(ANAMAG_DESCR); TString80 descr = ini.get(ANAMAG_DESCR);
//descr.cut(30);
prodotto.set(ANAMAG_DESCR, descr); prodotto.set(ANAMAG_DESCR, descr);
TString4 codiva = ini.get(ANAMAG_CODIVA); const TString& codiva = ini.get(ANAMAG_CODIVA);
//codiva.cut(2); //solito problema della lungh ridotta //esportiamo un'aliquota, non un codice iva!
prodotto.set(ANAMAG_CODIVA, codiva); const real aliq_iva = cache().get("%IVA", codiva, "R0");
prodotto.set(ANAMAG_CODIVA, aliq_iva.integer());
//sconto //sconto
const TString& str_sconto = ini.get(ANAMAG_SCONTO); const TString& str_sconto = ini.get(ANAMAG_SCONTO);
@ -376,7 +382,7 @@ bool TIni2Txt::find_part_key(TConfig& ini, const TString_array& ini_paragraphs,
return false; return false;
} }
void TIni2Txt::genera_sospeso_txt(TConfig& ini, TString_array& ini_paragraphs) void TIni2Txt::genera_sospeso_var_txt(TConfig& ini, TString_array& ini_paragraphs)
{ {
TEsporta_sospesiVAR_recordset sospeso; TEsporta_sospesiVAR_recordset sospeso;
sospeso.new_rec(""); sospeso.new_rec("");
@ -407,10 +413,10 @@ void TIni2Txt::genera_sospeso_txt(TConfig& ini, TString_array& ini_paragraphs)
{ {
const int tipomov = ini.get_int(PART_TIPOMOV, *part_row); const int tipomov = ini.get_int(PART_TIPOMOV, *part_row);
const char tipocf = ini.get_char(PART_TIPOCF); const char tipocf = ini.get_char(PART_TIPOCF);
const TString8 codcf = ini.get(PART_SOTTOCONTO); const TString8 str_codcf = ini.get(PART_SOTTOCONTO);
const bool part_chiusa = ini.get_bool(PART_CHIUSA); const bool part_chiusa = ini.get_bool(PART_CHIUSA);
//cerca le partite, derivanti da fatture, dei soli clienti che ha nella lista clienti //cerca le partite, derivanti da fatture, dei soli clienti che ha nella lista clienti
if (!part_chiusa && tipomov == 1 && tipocf == 'C' && clienti.is_key(codcf)) if (!part_chiusa && tipomov == 1 && tipocf == 'C' && clienti.is_key(str_codcf))
{ {
TToken_string key; TToken_string key;
get_part_key(ini, key); get_part_key(ini, key);
@ -436,7 +442,9 @@ void TIni2Txt::genera_sospeso_txt(TConfig& ini, TString_array& ini_paragraphs)
real residuo = imp_rata - imp_pag; real residuo = imp_rata - imp_pag;
//riempie il record da esportare //riempie il record da esportare
sospeso.set("CodiceTerminale", 0L); const long codcf = ini.get_long(PART_SOTTOCONTO);
const TString& codage = find_codag(codcf);
sospeso.set("CodiceTerminale", codage);
sospeso.set("Segno", segno); sospeso.set("Segno", segno);
sospeso.set("CodiceCliente", codcf); sospeso.set("CodiceCliente", codcf);
sospeso.set("NumeroFattura", numfatt); sospeso.set("NumeroFattura", numfatt);
@ -484,19 +492,19 @@ void TIni2Txt::main_loop()
//clienti //clienti
if (ini_paragraphs.find("20") >= 0) if (ini_paragraphs.find("20") >= 0)
genera_cliente_txt(input_ini_file); genera_cliente_var_txt(input_ini_file);
//sospesi //sospesi
if (ini_paragraphs.find("28,1,1") >= 0) if (ini_paragraphs.find("28,1,1") >= 0)
genera_sospeso_txt(input_ini_file, ini_paragraphs); genera_sospeso_var_txt(input_ini_file, ini_paragraphs);
//listino //listino
if (ini_paragraphs.find("52") >= 0) if (ini_paragraphs.find("52") >= 0)
genera_riga_listino_txt(input_ini_file); genera_riga_listino_var_txt(input_ini_file);
//prodotti //prodotti
if (ini_paragraphs.find("47") >= 0) if (ini_paragraphs.find("47") >= 0)
genera_prodotto_txt(input_ini_file); genera_prodotto_var_txt(input_ini_file);
} }
} }

38
ha/ha1200.cpp
View File

@ -99,9 +99,9 @@ void TFile2Txt::genera_agenti_txt()
//riga dell'AS400 recset da riempire //riga dell'AS400 recset da riempire
agenti.new_rec(""); agenti.new_rec("");
agenti.set("CodiceTerminale", 0L);
TString8 codage = archivio_agenti.get(AGE_CODAGE).as_string(); TString8 codage = archivio_agenti.get(AGE_CODAGE).as_string();
codage = codage.right(3); codage = codage.right(3);
agenti.set("CodiceTerminale", codage);
agenti.set(AGE_CODAGE, codage); agenti.set(AGE_CODAGE, codage);
agenti.set(AGE_RAGSOC, archivio_agenti.get(AGE_RAGSOC)); agenti.set(AGE_RAGSOC, archivio_agenti.get(AGE_RAGSOC));
} }
@ -135,7 +135,7 @@ void TFile2Txt::genera_clienti_txt()
clienti.new_rec(""); clienti.new_rec("");
//il codice terminale è il codagente legato al cliente //il codice terminale è il codagente legato al cliente
TString8 codage = archivio_clienti.get(CFV_CODAG).as_string(); TString8 codage = archivio_clienti.get("CFVEN.CODAG").as_string();
codage = codage.right(3); codage = codage.right(3);
clienti.set("CodiceTerminale", codage); clienti.set("CodiceTerminale", codage);
@ -145,6 +145,8 @@ void TFile2Txt::genera_clienti_txt()
TString80 indcf = archivio_clienti.get(CLI_INDCF).as_string(); TString80 indcf = archivio_clienti.get(CLI_INDCF).as_string();
indcf << " " << archivio_clienti.get(CLI_CIVCF).as_string(); indcf << " " << archivio_clienti.get(CLI_CIVCF).as_string();
clienti.set(CLI_INDCF, indcf); clienti.set(CLI_INDCF, indcf);
const TString80 localitacf = archivio_clienti.get(CLI_LOCCF).as_string();
clienti.set("Localita", localitacf);
const TString& statocf = archivio_clienti.get(CLI_STATOCF).as_string(); const TString& statocf = archivio_clienti.get(CLI_STATOCF).as_string();
if (statocf.blank()) if (statocf.blank())
@ -154,8 +156,11 @@ void TFile2Txt::genera_clienti_txt()
key.add(statocf); key.add(statocf);
key.add(comcf); key.add(comcf);
const TRectype& rec_comuni = cache().get(LF_COMUNI, key); const TRectype& rec_comuni = cache().get(LF_COMUNI, key);
TString80 dencom = rec_comuni.get(COM_DENCOM); if (localitacf.blank())
clienti.set("Localita", dencom); {
TString80 dencom = rec_comuni.get(COM_DENCOM);
clienti.set("Localita", dencom);
}
const TString& provcf = rec_comuni.get(COM_PROVCOM); const TString& provcf = rec_comuni.get(COM_PROVCOM);
clienti.set("Provincia", provcf); clienti.set("Provincia", provcf);
} }
@ -165,7 +170,7 @@ void TFile2Txt::genera_clienti_txt()
clienti.set(CLI_PAIV, archivio_clienti.get(CLI_PAIV)); clienti.set(CLI_PAIV, archivio_clienti.get(CLI_PAIV));
TString4 codpag = archivio_clienti.get(CLI_CODPAG).as_string(); TString4 codpag = archivio_clienti.get(CLI_CODPAG).as_string();
clienti.set(CLI_CODPAG, codpag); clienti.set(CLI_CODPAG, codpag.right(2));
TString query; TString query;
query << "USE CONDV"; query << "USE CONDV";
@ -180,22 +185,27 @@ void TFile2Txt::genera_clienti_txt()
clienti.set("CodiceListino", cod_contr); clienti.set("CodiceListino", cod_contr);
} }
//casotto sulla decodifica articoli
//"FlDecodArt"
//"DecodeCodCli"
TString16 ntel = archivio_clienti.get(CLI_PTEL).as_string(); TString16 ntel = archivio_clienti.get(CLI_PTEL).as_string();
ntel << archivio_clienti.get(CLI_TEL).as_string(); ntel << archivio_clienti.get(CLI_TEL).as_string();
clienti.set(CLI_TEL, ntel); clienti.set(CLI_TEL, ntel);
clienti.set(CLI_CODCFFATT, archivio_clienti.get(CLI_CODCFFATT)); clienti.set(CLI_CODCFFATT, archivio_clienti.get(CLI_CODCFFATT));
clienti.set("TipoDoc", "F");
real fido = archivio_clienti.get(CLI_FIDO).as_real(); real fido = archivio_clienti.get(CLI_FIDO).as_real();
fido *= CENTO; fido *= CENTO;
fido.round(); fido.round();
clienti.set(CLI_FIDO, fido); clienti.set(CLI_FIDO, fido);
const bool sospeso = archivio_clienti.get(CLI_SOSPESO).as_bool(); /*const bool sospeso = archivio_clienti.get(CLI_SOSPESO).as_bool();
TString4 s; TString4 s;
if (sospeso) if (sospeso)
s='S'; s='S';
clienti.set("NoConsegna", TVariant(s)); clienti.set("NoConsegna", TVariant(s));*/
clienti.set(CLI_COFI, archivio_clienti.get(CLI_COFI)); clienti.set(CLI_COFI, archivio_clienti.get(CLI_COFI));
@ -230,8 +240,6 @@ void TFile2Txt::genera_sospesi_txt()
sospesi.new_rec(""); sospesi.new_rec("");
sospesi.set("CodiceTerminale", 0L);
//per riempire i campi è necessario un po' di casino sulla partita in esame //per riempire i campi è necessario un po' di casino sulla partita in esame
const TRectype& rec_part = archivio_part.cursor()->curr(); const TRectype& rec_part = archivio_part.cursor()->curr();
TPartita partita(rec_part); TPartita partita(rec_part);
@ -246,7 +254,9 @@ void TFile2Txt::genera_sospesi_txt()
const TDate datascad = scad.get_date(SCAD_DATASCAD); const TDate datascad = scad.get_date(SCAD_DATASCAD);
//e vai che riempiamo i campi //e vai che riempiamo i campi
const TString& codcf = rec_part.get(PART_SOTTOCONTO); const long codcf = rec_part.get_long(PART_SOTTOCONTO); //riprendiamo il codcf come long
const TString& codage = find_codag(codcf);
sospesi.set("CodiceTerminale", codage);
sospesi.set("CodiceCliente", codcf); sospesi.set("CodiceCliente", codcf);
const TString& ndoc = rec_part.get(PART_NUMDOC); const TString& ndoc = rec_part.get(PART_NUMDOC);
sospesi.set("NumeroFattura", ndoc); sospesi.set("NumeroFattura", ndoc);
@ -385,6 +395,7 @@ void TFile2Txt::genera_prodotti_txt()
TString query; TString query;
query << "USE ANAMAG"; query << "USE ANAMAG";
query << "\nSELECT USER1=\"X\"";
query << "\nJOIN UMART INTO CODART=CODART NRIGA=1"; query << "\nJOIN UMART INTO CODART=CODART NRIGA=1";
TISAM_recordset archivio_anamag(query); TISAM_recordset archivio_anamag(query);
@ -403,7 +414,12 @@ void TFile2Txt::genera_prodotti_txt()
prezzo *= 1000; prezzo *= 1000;
prezzo.round(); prezzo.round();
prodotti.set(UMART_PREZZO, prezzo.integer()); prodotti.set(UMART_PREZZO, prezzo.integer());
prodotti.set(ANAMAG_CODIVA, archivio_anamag.get(ANAMAG_CODIVA));
const TString& codiva = archivio_anamag.get(ANAMAG_CODIVA).as_string();
//esportiamo un'aliquota, non un codice iva!
const real aliq_iva = cache().get("%IVA", codiva, "R0");
prodotti.set(ANAMAG_CODIVA, aliq_iva.integer());
prodotti.set(UMART_UM, archivio_anamag.get("UMART.UM")); prodotti.set(UMART_UM, archivio_anamag.get("UMART.UM"));
const TString& str_sconto = archivio_anamag.get(ANAMAG_SCONTO).as_string(); const TString& str_sconto = archivio_anamag.get(ANAMAG_SCONTO).as_string();
prodotti.set(ANAMAG_SCONTO, find_sconto(str_sconto)); prodotti.set(ANAMAG_SCONTO, find_sconto(str_sconto));

41
ha/halib.cpp
View File

@ -45,6 +45,12 @@ TContratto_premi::TContratto_premi(const TRectype& rec_doc)
///////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////
// Recordset specifici per i dati da trasferire OUTPUT // Recordset specifici per i dati da trasferire OUTPUT
///////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////
//questo serve solo per l'ultima riga con il return (\r\n)
void THardy_recordset::add_eol_field()
{
create_field("ACapo", -1, 2, _alfafld, false, TVariant("\r\n"));
}
//questo è il metodo magico che vale per tutti //questo è il metodo magico che vale per tutti
void THardy_recordset::add_field(const char* name, const char* tipo, int pos, int len) void THardy_recordset::add_field(const char* name, const char* tipo, int pos, int len)
{ {
@ -103,7 +109,7 @@ TEsporta_clienti_recordset::TEsporta_clienti_recordset(int rec_length)
: THardy_recordset(rec_length) : THardy_recordset(rec_length)
{ {
add_field("CodiceTerminale", T_N, 1, 3); //x add_field("CodiceTerminale", T_N, 1, 3); //x
add_field(CLI_CODCF, T_X, 4, 6); //x add_field(CLI_CODCF, T_N, 4, 6); //x
add_field(CLI_RAGSOC, T_X, 10, 34); //x add_field(CLI_RAGSOC, T_X, 10, 34); //x
add_field(CLI_INDCF, T_X, 44, 34); //x add_field(CLI_INDCF, T_X, 44, 34); //x
add_field("Localita", T_X, 78, 20); //x add_field("Localita", T_X, 78, 20); //x
@ -125,7 +131,7 @@ TEsporta_clienti_recordset::TEsporta_clienti_recordset(int rec_length)
add_field("DecodeCodCli", T_X, 148, 6); add_field("DecodeCodCli", T_X, 148, 6);
add_field(CLI_TEL, T_X, 154, 10); //x add_field(CLI_TEL, T_X, 154, 10); //x
add_field(CFV_ASSFIS, T_X, 164, 2); //x add_field(CFV_ASSFIS, T_X, 164, 2); //x
add_field(CLI_CODCFFATT, T_X, 166, 6); //x add_field(CLI_CODCFFATT, T_N, 166, 6); //x
add_field("TipoDoc", T_X, 172, 1); add_field("TipoDoc", T_X, 172, 1);
add_field("NoConsegna", T_X, 173, 1); //x add_field("NoConsegna", T_X, 173, 1); //x
add_field("ScontoA", T_2N, 174, 2); add_field("ScontoA", T_2N, 174, 2);
@ -153,10 +159,11 @@ TEsporta_clienti_recordset::TEsporta_clienti_recordset(int rec_length)
add_field(CLI_COFI, T_X, 228, 16); //x add_field(CLI_COFI, T_X, 228, 16); //x
add_field("Giro4", T_N, 244, 6); add_field("Giro4", T_N, 244, 6);
add_field("FlPrezzoLibero", T_N, 250, 1); add_field("FlPrezzoLibero", T_N, 250, 1);
add_eol_field();
} }
//..e variazioni clienti //..e variazioni clienti
TEsporta_clientiVAR_recordset::TEsporta_clientiVAR_recordset() TEsporta_clientiVAR_recordset::TEsporta_clientiVAR_recordset()
: TEsporta_clienti_recordset(251) : TEsporta_clienti_recordset(253)
{ {
insert_field("Segno", T_X, 4, 1); //x insert_field("Segno", T_X, 4, 1); //x
} }
@ -168,7 +175,7 @@ TEsporta_sospesi_recordset::TEsporta_sospesi_recordset(int rec_length)
: THardy_recordset(rec_length) : THardy_recordset(rec_length)
{ {
add_field("CodiceTerminale", T_N, 1, 3); //x add_field("CodiceTerminale", T_N, 1, 3); //x
add_field("CodiceCliente", T_X, 4, 6); //x add_field("CodiceCliente", T_N, 4, 6); //x
add_field("NumeroFattura", T_X, 10, 12); //x add_field("NumeroFattura", T_X, 10, 12); //x
add_field("DataFattura", T_X, 22, 6); //x add_field("DataFattura", T_X, 22, 6); //x
add_field("ImportoResiduo", T_Nv2N, 28, 9); //x add_field("ImportoResiduo", T_Nv2N, 28, 9); //x
@ -176,10 +183,11 @@ TEsporta_sospesi_recordset::TEsporta_sospesi_recordset(int rec_length)
add_field("DataScadenza", T_X, 46, 6); //x add_field("DataScadenza", T_X, 46, 6); //x
add_field("Partita", T_X, 52, 15); //x add_field("Partita", T_X, 52, 15); //x
add_field("TipoDocumento", T_X, 67, 1); //x add_field("TipoDocumento", T_X, 67, 1); //x
add_eol_field();
} }
//..e variazioni sospesi //..e variazioni sospesi
TEsporta_sospesiVAR_recordset::TEsporta_sospesiVAR_recordset() TEsporta_sospesiVAR_recordset::TEsporta_sospesiVAR_recordset()
: TEsporta_sospesi_recordset(68) : TEsporta_sospesi_recordset(70)
{ {
insert_field("Segno", T_X, 4, 1); //x insert_field("Segno", T_X, 4, 1); //x
} }
@ -198,10 +206,11 @@ TEsporta_listini_recordset::TEsporta_listini_recordset(int rec_length)
add_field("Sconto2", T_2Nv2N,23, 4); add_field("Sconto2", T_2Nv2N,23, 4);
add_field("Sconto3", T_2Nv2N,27, 4); add_field("Sconto3", T_2Nv2N,27, 4);
add_field("CasaMandante", T_NS, 31, 6); add_field("CasaMandante", T_NS, 31, 6);
add_eol_field();
} }
//..e variazioni listini //..e variazioni listini
TEsporta_listiniVAR_recordset::TEsporta_listiniVAR_recordset() TEsporta_listiniVAR_recordset::TEsporta_listiniVAR_recordset()
: TEsporta_listini_recordset(37) : TEsporta_listini_recordset(39)
{ {
insert_field("Segno", T_X, 4, 1); //x insert_field("Segno", T_X, 4, 1); //x
} }
@ -212,7 +221,7 @@ TEsporta_contratti_recordset::TEsporta_contratti_recordset(int rec_length)
: THardy_recordset(rec_length) : THardy_recordset(rec_length)
{ {
add_field("CodiceTerminale", T_N, 1, 3); //x add_field("CodiceTerminale", T_N, 1, 3); //x
add_field(CONDV_CODCF, T_X, 4, 6); //x add_field(CONDV_CODCF, T_N, 4, 6); //x
add_field(RCONDV_CODRIGA, T_X, 10, 5); //x add_field(RCONDV_CODRIGA, T_X, 10, 5); //x
add_field(RCONDV_PREZZO, T_Nv3N, 15, 7); //x add_field(RCONDV_PREZZO, T_Nv3N, 15, 7); //x
add_field(RCONDV_SCONTO, T_2Nv2N,22, 4); //x add_field(RCONDV_SCONTO, T_2Nv2N,22, 4); //x
@ -220,6 +229,7 @@ TEsporta_contratti_recordset::TEsporta_contratti_recordset(int rec_length)
add_field("Sconto3", T_2Nv2N,30, 4); add_field("Sconto3", T_2Nv2N,30, 4);
add_field(CONDV_VALIN, T_X, 34, 8); //x add_field(CONDV_VALIN, T_X, 34, 8); //x
add_field(CONDV_VALFIN, T_X, 42, 8); //x add_field(CONDV_VALFIN, T_X, 42, 8); //x
add_eol_field();
} }
//Offerte //Offerte
@ -231,6 +241,7 @@ TEsporta_offerte_recordset::TEsporta_offerte_recordset(int rec_length)
add_field(CONDV_COD, T_X, 4, 3); add_field(CONDV_COD, T_X, 4, 3);
add_field(CONDV_VALIN, T_X, 7, 8); add_field(CONDV_VALIN, T_X, 7, 8);
add_field(CONDV_VALFIN, T_X, 15, 8); add_field(CONDV_VALFIN, T_X, 15, 8);
add_eol_field();
} }
//Prodotti //Prodotti
@ -248,10 +259,11 @@ TEsporta_prodotti_recordset::TEsporta_prodotti_recordset(int rec_length)
add_field("ScontoArt2", T_2Nv2N,52, 4); add_field("ScontoArt2", T_2Nv2N,52, 4);
add_field("Fascia", T_X, 56, 1); add_field("Fascia", T_X, 56, 1);
add_field("PrezzoMinimo", T_Nv3N, 57, 7); add_field("PrezzoMinimo", T_Nv3N, 57, 7);
add_eol_field();
} }
//..e variazioni prodottii //..e variazioni prodotti
TEsporta_prodottiVAR_recordset::TEsporta_prodottiVAR_recordset() TEsporta_prodottiVAR_recordset::TEsporta_prodottiVAR_recordset()
: TEsporta_prodotti_recordset(64) : TEsporta_prodotti_recordset(66)
{ {
insert_field("Segno", T_X, 1, 1); //x insert_field("Segno", T_X, 1, 1); //x
} }
@ -272,6 +284,7 @@ TEsporta_agenti_recordset::TEsporta_agenti_recordset(int rec_length)
add_field(AGE_RAGSOC, T_X, 36, 30); //x add_field(AGE_RAGSOC, T_X, 36, 30); //x
add_field("nORD", T_N, 66, 5); add_field("nORD", T_N, 66, 5);
add_field("nSAGIT", T_N, 71, 5); add_field("nSAGIT", T_N, 71, 5);
add_eol_field();
} }
@ -282,6 +295,7 @@ TEsporta_linee_recordset::TEsporta_linee_recordset(int rec_length)
{ {
add_field("Fascia", T_X, 1, 1); add_field("Fascia", T_X, 1, 1);
add_field("Descrizione", T_X, 2, 50); add_field("Descrizione", T_X, 2, 50);
add_eol_field();
} }
//Rdoc (Carico) è una riga di un documento //Rdoc (Carico) è una riga di un documento
@ -293,6 +307,7 @@ TEsporta_carico_recordset::TEsporta_carico_recordset(int rec_length)
add_field(RDOC_CODART, T_X, 4, 5); //x add_field(RDOC_CODART, T_X, 4, 5); //x
add_field(RDOC_QTA, T_Nv2N,9, 7); //x add_field(RDOC_QTA, T_Nv2N,9, 7); //x
add_field(RDOC_LIVELLO, T_X, 16, 10); add_field(RDOC_LIVELLO, T_X, 16, 10);
add_eol_field();
} }
@ -302,8 +317,9 @@ TEsporta_decodart_recordset::TEsporta_decodart_recordset(int rec_length)
: THardy_recordset(rec_length) : THardy_recordset(rec_length)
{ {
add_field(CODCORR_CODART, T_X, 1, 5); //x add_field(CODCORR_CODART, T_X, 1, 5); //x
add_field(CODCORR_CODCF, T_NS, 6, 6); //x add_field(CODCORR_CODCF, T_N, 6, 6); //x
add_field(CODCORR_CODARTALT, T_X, 12, 6); //x add_field(CODCORR_CODARTALT, T_X, 12, 6); //x
add_eol_field();
} }
@ -314,6 +330,7 @@ TEsporta_barcode_recordset::TEsporta_barcode_recordset(int rec_length)
{ {
add_field(CODCORR_CODARTALT, T_X, 1, 20); //x add_field(CODCORR_CODARTALT, T_X, 1, 20); //x
add_field(CODCORR_CODART, T_X, 21, 5); //x add_field(CODCORR_CODART, T_X, 21, 5); //x
add_eol_field();
} }
@ -323,12 +340,13 @@ TEsporta_attrezzature_recordset::TEsporta_attrezzature_recordset(int rec_length)
: THardy_recordset(rec_length) : THardy_recordset(rec_length)
{ {
add_field("CodiceTerminale", T_N, 1, 3); add_field("CodiceTerminale", T_N, 1, 3);
add_field("CodiceCliente", T_X, 4, 6); add_field("CodiceCliente", T_N, 4, 6);
add_field("CodiceArticolo", T_X, 10, 5); add_field("CodiceArticolo", T_X, 10, 5);
add_field("MatricolaAttrezz", T_X, 15, 12); add_field("MatricolaAttrezz", T_X, 15, 12);
add_field("DescrAttrezz", T_X, 27, 30); add_field("DescrAttrezz", T_X, 27, 30);
add_field("DataConsegna", T_X, 57, 6); add_field("DataConsegna", T_X, 57, 6);
add_field("Quantita", T_N, 63, 7); add_field("Quantita", T_N, 63, 7);
add_eol_field();
} }
@ -340,6 +358,7 @@ TEsporta_pagamenti_recordset::TEsporta_pagamenti_recordset(int rec_length)
add_field("CodicePagamento", T_X, 1, 2); //x add_field("CodicePagamento", T_X, 1, 2); //x
add_field("DescrPagamento", T_X, 3, 20); //x add_field("DescrPagamento", T_X, 3, 20); //x
add_field("GiorniScadenza", T_N, 23, 3); //x add_field("GiorniScadenza", T_N, 23, 3); //x
add_eol_field();
} }

27
ha/halib.h
View File

@ -68,6 +68,7 @@ protected:
//esportazione //esportazione
void add_field(const char* name, const char* tipo, int pos, int len); void add_field(const char* name, const char* tipo, int pos, int len);
void insert_field(const char* name, const char* tipo, int pos, int len); void insert_field(const char* name, const char* tipo, int pos, int len);
void add_eol_field();
//importazione //importazione
void add_trc_field(const char* tr, const char* name, const char* tipo, int pos, int len); void add_trc_field(const char* tr, const char* name, const char* tipo, int pos, int len);
@ -81,7 +82,7 @@ public:
class TEsporta_agenti_recordset : public THardy_recordset class TEsporta_agenti_recordset : public THardy_recordset
{ {
public: public:
TEsporta_agenti_recordset(int rec_length = 75); TEsporta_agenti_recordset(int rec_length = 77);
}; };
@ -90,7 +91,7 @@ public:
class TEsporta_clienti_recordset : public THardy_recordset class TEsporta_clienti_recordset : public THardy_recordset
{ {
public: public:
TEsporta_clienti_recordset(int rec_length = 250); TEsporta_clienti_recordset(int rec_length = 252);
}; };
//..e variazioni clienti! //..e variazioni clienti!
class TEsporta_clientiVAR_recordset : public TEsporta_clienti_recordset class TEsporta_clientiVAR_recordset : public TEsporta_clienti_recordset
@ -105,7 +106,7 @@ public:
class TEsporta_sospesi_recordset : public THardy_recordset class TEsporta_sospesi_recordset : public THardy_recordset
{ {
public: public:
TEsporta_sospesi_recordset(int rec_length = 67); TEsporta_sospesi_recordset(int rec_length = 69);
}; };
//..e variazioni sospesi! //..e variazioni sospesi!
class TEsporta_sospesiVAR_recordset : public TEsporta_sospesi_recordset class TEsporta_sospesiVAR_recordset : public TEsporta_sospesi_recordset
@ -119,7 +120,7 @@ public:
class TEsporta_listini_recordset : public THardy_recordset class TEsporta_listini_recordset : public THardy_recordset
{ {
public: public:
TEsporta_listini_recordset(int rec_length = 36); TEsporta_listini_recordset(int rec_length = 38);
}; };
//..e variazioni listini //..e variazioni listini
class TEsporta_listiniVAR_recordset : public TEsporta_listini_recordset class TEsporta_listiniVAR_recordset : public TEsporta_listini_recordset
@ -133,7 +134,7 @@ public:
class TEsporta_contratti_recordset : public THardy_recordset class TEsporta_contratti_recordset : public THardy_recordset
{ {
public: public:
TEsporta_contratti_recordset(int rec_length = 49); TEsporta_contratti_recordset(int rec_length = 51);
}; };
//Offerte (Promo) (condv + rcondv) //Offerte (Promo) (condv + rcondv)
@ -141,7 +142,7 @@ public:
class TEsporta_offerte_recordset : public THardy_recordset class TEsporta_offerte_recordset : public THardy_recordset
{ {
public: public:
TEsporta_offerte_recordset(int rec_length = 22); TEsporta_offerte_recordset(int rec_length = 24);
}; };
//Prodotti (anamag + umart) //Prodotti (anamag + umart)
@ -149,7 +150,7 @@ public:
class TEsporta_prodotti_recordset : public THardy_recordset class TEsporta_prodotti_recordset : public THardy_recordset
{ {
public: public:
TEsporta_prodotti_recordset(int rec_length = 63); TEsporta_prodotti_recordset(int rec_length = 65);
}; };
//..e variazioni prodotti //..e variazioni prodotti
class TEsporta_prodottiVAR_recordset : public TEsporta_prodotti_recordset class TEsporta_prodottiVAR_recordset : public TEsporta_prodotti_recordset
@ -164,7 +165,7 @@ public:
class TEsporta_linee_recordset : public THardy_recordset class TEsporta_linee_recordset : public THardy_recordset
{ {
public: public:
TEsporta_linee_recordset(int rec_length = 51); TEsporta_linee_recordset(int rec_length = 53);
}; };
@ -173,7 +174,7 @@ public:
class TEsporta_carico_recordset : public THardy_recordset class TEsporta_carico_recordset : public THardy_recordset
{ {
public: public:
TEsporta_carico_recordset(int rec_length = 25); TEsporta_carico_recordset(int rec_length = 27);
}; };
@ -182,7 +183,7 @@ public:
class TEsporta_decodart_recordset : public THardy_recordset class TEsporta_decodart_recordset : public THardy_recordset
{ {
public: public:
TEsporta_decodart_recordset(int rec_length = 17); TEsporta_decodart_recordset(int rec_length = 19);
}; };
//Barcode () //Barcode ()
@ -190,7 +191,7 @@ public:
class TEsporta_barcode_recordset : public THardy_recordset class TEsporta_barcode_recordset : public THardy_recordset
{ {
public: public:
TEsporta_barcode_recordset(int rec_length = 25); TEsporta_barcode_recordset(int rec_length = 27);
}; };
//Attrezzature () //Attrezzature ()
@ -198,7 +199,7 @@ public:
class TEsporta_attrezzature_recordset : public THardy_recordset class TEsporta_attrezzature_recordset : public THardy_recordset
{ {
public: public:
TEsporta_attrezzature_recordset(int rec_length = 69); TEsporta_attrezzature_recordset(int rec_length = 71);
}; };
//Pagamenti () //Pagamenti ()
@ -206,7 +207,7 @@ public:
class TEsporta_pagamenti_recordset : public THardy_recordset class TEsporta_pagamenti_recordset : public THardy_recordset
{ {
public: public:
TEsporta_pagamenti_recordset(int rec_length = 25); TEsporta_pagamenti_recordset(int rec_length = 27);
}; };