Patch level :
Files correlati : ha1, ha2 Ricompilazione Demo : [ ] Commento : Corretto invio Esselunga git-svn-id: svn://10.65.10.50/branches/R_10_00@22481 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
50fb6aef88
commit
4332bbd94a
@ -435,18 +435,18 @@ bool TFile2Txt::genera_righelistini_txt()
|
||||
|
||||
TISAM_recordset agenti("USE AGENTI");
|
||||
const long agenti_items = agenti.items();
|
||||
|
||||
TString query;
|
||||
query << "USE RCONDV";
|
||||
query << "\nFROM TIPO=L";
|
||||
query << "\nTO TIPO=L";
|
||||
|
||||
TISAM_recordset archivio_rcondv(query);
|
||||
const long archivio_rcondv_items = archivio_rcondv.items();
|
||||
|
||||
for (bool ok = agenti.move_first(); ok; ok = agenti.move_next())
|
||||
{
|
||||
const TString4 codage = agenti.get(AGE_CODAGE).as_string().right(3);
|
||||
|
||||
TString query;
|
||||
query << "USE RCONDV";
|
||||
query << "\nFROM TIPO=L";
|
||||
query << "\nTO TIPO=L";
|
||||
|
||||
TISAM_recordset archivio_rcondv(query);
|
||||
const long archivio_rcondv_items = archivio_rcondv.items();
|
||||
|
||||
TProgind progind(archivio_rcondv_items, "Listini...", false, true);
|
||||
for (bool ok = archivio_rcondv.move_first(); ok; ok = archivio_rcondv.move_next())
|
||||
{
|
||||
@ -521,6 +521,7 @@ bool TFile2Txt::genera_contratti_txt()
|
||||
const TDate dataini = archivio_rcondv.get("CONDV.VALIN").as_date();
|
||||
righe_contratti.set(CONDV_VALIN, hd_format_date8(dataini));
|
||||
righe_contratti.set(CONDV_VALFIN, hd_format_date8(datafine));
|
||||
righe_contratti.duplica_capi_zona();
|
||||
}
|
||||
|
||||
return salva_recordset(righe_contratti, "particolari");
|
||||
@ -588,7 +589,7 @@ bool TFile2Txt::genera_prodotti_txt()
|
||||
prodotti.set(ANAMAG_SCONTO, hd_find_sconto(str_sconto));
|
||||
|
||||
// Flag di prodotto in omaggio da controllare
|
||||
prodotti.set("Fascia", archivio_anamag.get(ANAMAG_USER4).as_string().left(1));
|
||||
prodotti.set("Fascia", archivio_anamag.get(ANAMAG_USER4).as_string().left(1));
|
||||
}
|
||||
|
||||
return salva_recordset(prodotti, "prodotti");
|
||||
@ -611,6 +612,7 @@ bool TFile2Txt::genera_barcode_txt()
|
||||
barcode.new_rec("");
|
||||
barcode.set(CODCORR_CODARTALT, archivio_codcorr.get(CODCORR_CODARTALT));
|
||||
barcode.set(CODCORR_CODART, archivio_codcorr.get(CODCORR_CODART));
|
||||
barcode.duplica_capi_zona();
|
||||
}
|
||||
|
||||
return salva_recordset(barcode, "barcode");
|
||||
@ -637,6 +639,7 @@ bool TFile2Txt::genera_decodart_txt()
|
||||
const TString& data = archivio_codcorr.get(MULTI_DATA).as_string();
|
||||
decodart.set(CODCORR_CODARTALT, data.left(6));
|
||||
decodart.set(CODCORR_DESCR, data.mid(6, 30));
|
||||
decodart.duplica_capi_zona();
|
||||
}
|
||||
|
||||
return salva_recordset(decodart, "decodart");
|
||||
@ -677,6 +680,7 @@ bool TFile2Txt::genera_attrezzature_txt()
|
||||
attrezzature.set("DataAssegnamento", hd_format_date8(data_ass));
|
||||
TDate data_fabb = archivio_attr.get("D1").as_date();
|
||||
attrezzature.set("DataFabbricazione", hd_format_date8(data_fabb));
|
||||
attrezzature.duplica_capi_zona();
|
||||
}
|
||||
|
||||
salva_recordset(attrezzature, "attrezzature");
|
||||
@ -722,6 +726,7 @@ bool TFile2Txt::genera_attrezzature_txt()
|
||||
importo.round();
|
||||
storico.set("Importo", importo);
|
||||
storico.set("ChiusuraComodato", archivio_storico.get("B0"));
|
||||
storico.duplica_capi_zona();
|
||||
}
|
||||
|
||||
return salva_recordset(storico, "storico");
|
||||
@ -752,6 +757,7 @@ bool TFile2Txt::genera_tabpag_txt()
|
||||
if (giorni <= 0)
|
||||
giorni = archivio_pagamenti.get("I3").as_int();
|
||||
tabpag.set("GiorniScadenza", giorni);
|
||||
tabpag.duplica_capi_zona();
|
||||
}
|
||||
|
||||
return salva_recordset(tabpag, "tabpag");
|
||||
|
||||
@ -461,7 +461,6 @@ bool TUpload2Campo::genera_incasso(TPartita& game, int nriga, int nrata,
|
||||
msg.insert(TR("Non esiste la rata"));
|
||||
msg << " Creazione pagamento non assegnato.";
|
||||
log.log(1, msg);
|
||||
//return false;
|
||||
nriga = nrata = game.UNASSIGNED;
|
||||
}
|
||||
|
||||
@ -582,16 +581,6 @@ void TUpload2Campo::elabora_VC(THardy_upload_recordset& recset, TLog_report& log
|
||||
log.log(0, msg);
|
||||
return;
|
||||
}
|
||||
|
||||
/*}
|
||||
else
|
||||
{
|
||||
_can_write = false;
|
||||
TString msg;
|
||||
msg << "Annullata importazione cliente " << codcf;
|
||||
log.log(2, msg);
|
||||
codcf = 0L;
|
||||
}*/
|
||||
} //if(codcf<=0)...
|
||||
|
||||
|
||||
|
||||
@ -9,7 +9,7 @@
|
||||
|
||||
#include <doc.h>
|
||||
#include <rdoc.h>
|
||||
#include "../mg/codcorr.h"
|
||||
//#include "../mg/codcorr.h"
|
||||
#include "../cg/cglib01.h"
|
||||
#include "../ve/velib.h"
|
||||
|
||||
@ -18,8 +18,6 @@
|
||||
#include "ha2.h"
|
||||
#include "ha2100a.h"
|
||||
|
||||
const char* const APPNAME = TR("Esselunga: generazione file Privat");
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TAutomask
|
||||
///////////////////////////////////////////////////////////
|
||||
@ -204,17 +202,21 @@ void THardy_esselunga::elabora(const TMask& mask)
|
||||
numdoc = numdoc.right(12);
|
||||
FOR_EACH_PHYSICAL_RDOC(*doc, r, rigadoc)
|
||||
{
|
||||
const TString80& codart_esselunga = cache_ca.decode(rigadoc->get(RDOC_CODART));
|
||||
privat.new_rec("");
|
||||
privat.set("CDC", TVariant(codcf_esselunga));
|
||||
privat.set("CODART", codart_esselunga);
|
||||
privat.set("NUMBOLLA", numdoc);
|
||||
privat.set("DATABOLLA", recset.get(DOC_DATADOC));
|
||||
real qta = rigadoc->get_real(RDOC_QTA);
|
||||
TString16 qtastr = qta.string(8,2,'0');
|
||||
qtastr.strip(".");
|
||||
privat.set("QTACONS", qtastr);
|
||||
privat.set("QTARESA", "0000000");
|
||||
const TString& codart = rigadoc->get(RDOC_CODART);
|
||||
const TString& codart_esselunga = cache_ca.decode(codart);
|
||||
if (codart_esselunga.full())
|
||||
{
|
||||
privat.new_rec("");
|
||||
privat.set("CDC", TVariant(codcf_esselunga));
|
||||
privat.set("CODART", codart_esselunga);
|
||||
privat.set("NUMBOLLA", numdoc);
|
||||
privat.set("DATABOLLA", recset.get(DOC_DATADOC));
|
||||
real qta = rigadoc->get_real(RDOC_QTA);
|
||||
TString16 qtastr = qta.string(8,2,'0');
|
||||
qtastr.strip(".");
|
||||
privat.set("QTACONS", qtastr);
|
||||
privat.set("QTARESA", "0000000");
|
||||
}
|
||||
} //FOR_EACH...
|
||||
} // if check_cliente...
|
||||
} //for (bool ok = recset.move_first()...
|
||||
@ -235,9 +237,8 @@ void THardy_esselunga::elabora(const TMask& mask)
|
||||
long THardy_esselunga::check_cliente(const long codcf, const TString4 dipendenza)
|
||||
{
|
||||
long codcf_hardy = -1;
|
||||
TString key;
|
||||
key.format("%ld", codcf);
|
||||
const TRectype rec_cliente = cache().get("&CEL", key);
|
||||
TString8 key; key << codcf;
|
||||
const TRectype& rec_cliente = cache().get("&CEL", key);
|
||||
const bool invio = rec_cliente.get_bool("B0");
|
||||
if (invio)
|
||||
{
|
||||
@ -264,6 +265,6 @@ bool THardy_esselunga::create()
|
||||
int ha2100 (int argc, char* argv[])
|
||||
{
|
||||
THardy_esselunga elabapp;
|
||||
elabapp.run(argc, argv, APPNAME);
|
||||
elabapp.run(argc, argv, TR("Esselunga: generazione file Privat"));
|
||||
return 0;
|
||||
}
|
||||
@ -554,8 +554,11 @@ void THardy_esselunga_fat::add_recs_dettaglio(TFatture_recordset& fat, TDocument
|
||||
TCodArtEsselunga_cache cache_ca;
|
||||
FOR_EACH_PHYSICAL_RDOC(doc, r, rigadoc)
|
||||
{
|
||||
const TString80& codart_esselunga = cache_ca.decode(rigadoc->get(RDOC_CODART));
|
||||
const TRectype& rec_anamag = cache().get(LF_ANAMAG, rigadoc->get(RDOC_CODART));
|
||||
const TString16 codart = rigadoc->get(RDOC_CODART);
|
||||
const TString& codart_esselunga = cache_ca.decode(codart);
|
||||
if (codart_esselunga.blank())
|
||||
continue;
|
||||
const TRectype& rec_anamag = cache().get(LF_ANAMAG, codart);
|
||||
fat.new_rec("DET");
|
||||
long rl(r);
|
||||
fat.set("DET.NUMRIGA", TVariant(rl));
|
||||
|
||||
@ -60,13 +60,9 @@ TObject* TCodArtEsselunga_cache::key2obj(const char* key)
|
||||
TISAM_recordset codcorr("USE CODCORR\nSELECT CODCF=#CODCF\nFROM CODART=#COD\nTO CODART=#COD");
|
||||
codcorr.set_var("#COD", TVariant(codart));
|
||||
codcorr.set_var("#CODCF", TVariant(codcf));
|
||||
if (codcorr.items()>0)
|
||||
{
|
||||
codcorr.move_first();
|
||||
if (codcorr.move_first())
|
||||
return new TString80(codcorr.get(CODCORR_CODARTALT).as_string());
|
||||
}
|
||||
else
|
||||
return new TString80(codart);
|
||||
return new TString4;
|
||||
}
|
||||
|
||||
const TString& TCodArtEsselunga_cache::decode(const TString& codart)
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user