Patch level : 12.0 906

Files correlati     : bacnv.exe bamenu.men
Commento            :

Conversione righe CONAI
This commit is contained in:
Alessandro Bonazzi 2019-12-06 12:59:24 +01:00
parent e871f306b8
commit cda3e5af69
2 changed files with 40 additions and 119 deletions

View File

@ -200,9 +200,7 @@ public:
void convert_pcon_ivd();
void convert_profile(const char * profile_name);
//roba per conai
void convert_conai_anamag();
void convert_conai_rdoc();
void convert_conai_righe();
void convert_CONAI_righe();
//roba per il file della rilevazione ore
void convert_rilore();
void convert_CONAI();
@ -373,7 +371,7 @@ bool TConversione_archivi::menu(MENU_TAG)
convert_profile(argv(2));
break;
case 24:
convert_conai_righe();
convert_CONAI_righe();
break;
case 25:
convert_rilore();
@ -2135,7 +2133,6 @@ bool TConversione_archivi::to_be_converted(TFilename& name) const
return false;
}
void TConversione_archivi::convert_profile(const char* profile_name)
{
TArray_sheet elenco(-1, -1, -4, -6,
@ -2209,133 +2206,57 @@ void TConversione_archivi::convert_profile(const char* profile_name)
//////////////////////////////////////////////////////////////////////////////
// Converte le righe documento e anamag in modo da riassegnare i campi CONAI
// Converte le righe documento in modo da riassegnare i campi CONAI
//////////////////////////////////////////////////////////////////////////////
void TConversione_archivi::convert_conai_anamag()
void TConversione_archivi::convert_CONAI_righe()
{
TConfig ditta(CONFIG_DITTA, "ve");
TString_array conai_default_vals;
const char* conai_default_names[CONAI_CLASSES] = {"CONAI_DEFAULT_ACC", "CONAI_DEFAULT_ALL", "CONAI_DEFAULT_CAR",
"CONAI_DEFAULT_LEG", "CONAI_DEFAULT_PLA", "CONAI_DEFAULT_VET"};
const char* conai_default_values[CONAI_CLASSES] = {"AC99", "AL99", "CA40", "LE99", "PL12", "VE99"};
const char* const old_conai_cod[CONAI_CLASSES] = { "CONSCACC", "CONSCALL", "CONSCCAR", "CONSCPLA", "CONSCLEG", "CONSCVET" };
const char* const old_conai_peso[CONAI_CLASSES] = { "CONPUACC", "CONPUALL", "CONPUCAR", "CONPUPLA", "CONPULEG", "CONPUVET" };
TFast_isamfile f(LF_RIGHEDOC);
TCursor c(new TRelation(LF_DOC));
c.relation()->lfile().set_curr(new TDocumento);
FOR_EACH_CONAI_CLASS(cc)
{
const TString& conai_cat = ditta.get(conai_default_names[cc], NULL, -1, conai_default_values[cc]);
conai_default_vals.add(conai_cat);
}
const long items = c.items();
TProgind pi(items, TR("Conversione righe documento..."), false);
//prende solo le righe che hanno un peso conai di carta e/o plastica
TISAM_recordset anamag("USE ANAMAG\nSELECT (CONCAR>0)||(CONPLA>0)\n");
const long anamag_items = anamag.items();
TProgind pi(anamag_items, "Gestione anagrafica articoli...", false);
for (bool ok = anamag.move_first(); ok; ok = anamag.move_next())
{
if (!pi.addstatus(1))
break;
//prende i pesi conai su ciascuna riga
FOR_EACH_CONAI_CLASS(cc)
{
const char* peso_name = conai_peso_name(cc);
const real peso = anamag.get(peso_name).as_real();
//se peso conai > 0, deve scrivere il codice conai nel campo CONAISC
if (peso > ZERO)
{
const char* sottocat = conai_sottocat_name(cc);
TFieldref fr(sottocat, LF_ANAMAG);
fr.write(conai_default_vals.row(cc), anamag.cursor()->curr());
}
}
anamag.cursor()->relation()->rewrite();
}
}
void TConversione_archivi::convert_conai_rdoc()
{
TFast_isamfile f(LF_RIGHEDOC);
//deve considerare tutte le righe documento che abbiano almeno uno tra codagg1 e codagg2 compilato
TString query;
query << "USE RDOC\n";
query << "SELECT (BETWEEN(CODAGG1,\"AC\",\"VE\"))||(BETWEEN(CODAGG2,\"AC01\",\"VE99\"))";
TISAM_recordset righedoc(query);
const long righedoc_items = righedoc.items();
TProgind pi(righedoc_items, TR("Ricostruzione righe documento..."), false);
//ci vuole un TVariable_rectype perchè il TRectype non ha campi virtuali!
TVariable_rectype rdoc(LF_RIGHEDOC);
rdoc.set_memo_fld(RDOC_RG1);
for (bool ok = righedoc.move_first(); ok; ok = righedoc.move_next())
for (c = 0L; c.pos() < items; ++c)
{
//deve prendere dalla riga il valore di codagg2 e confrontarlo con una delle nuove sottocategorie conai
if (!pi.addstatus(1))
break;
rdoc = righedoc.cursor()->curr();
TString4 codagg1 = rdoc.get(RDOC_CODAGG1);
TString4 codagg2 = rdoc.get(RDOC_CODAGG2);
if (codagg1.full() || codagg2.full())
{
//se codagg2 non è 4 caratteri o è cazzato (<4) oppure non c'entra un cavolo (>4); quindi deve considerare..
//..codagg1; se codagg1 è lungo 2 va bene lui
if (codagg2.len() < 4 && codagg1.len() == 2)
{
codagg2 = codagg1;
codagg2 << "99";
}
//per prima cosa sistema i codici categoria
//quale è la classe conai? (plastica,carta,vetro,ecc.??)
const TCONAI_class cc = conai_str2class(codagg2);
//come si chiama il campo virtuale su rdoc in cui anrà inserito il codice categoria?
const char* csn = conai_sottocat_name(cc);
//noto il campo di destinazione ci mette il codice corretto
rdoc.put(csn, codagg2);
rdoc.zero(RDOC_CODAGG1);
rdoc.zero(RDOC_CODAGG2);
TDocumento & doc = (TDocumento &)c.curr();
const int rows = doc.physical_rows();
//adesso tocca ai pesi conai
const real qtagg1 = rdoc.get_real(RDOC_QTAGG1);
if (!qtagg1.is_zero())
{
//la classe è sempre quella di prima;il campo virtuale no
const char* cpn = conai_peso_name(cc);
//noto il campo di destinazione ci mette il peso conai
rdoc.put(cpn, qtagg1);
rdoc.zero(RDOC_QTAGG1);
}
}
for (int i = 1; i <= rows; i++)
{
TRiga_documento & r = doc[i];
const real qtagg3 = rdoc.get(RDOC_QTAGG3);
if (!qtagg3.is_zero())
{
rdoc.put("NUMFOGLI", qtagg3);
rdoc.zero(RDOC_QTAGG3);
}
if (r.is_merce() || r.is_omaggio())
{
int pos = 1;
//scrittura finale del record
int err = rdoc.rewrite(f);
if (err != NOERR)
{
cantwrite_box(f.description());
break;
}
}
for (int j = 0; j < CONAI_CLASSES; j++)
{
const TString & cat = r.get(old_conai_cod[j]);
if (cat.full())
{
r.put(conai_sottocat_name(pos), cat);
r.put(conai_peso_name(pos++), r.get_real(old_conai_peso[j]));
}
r.zero(old_conai_cod[j]);
r.zero(old_conai_peso[j]);
}
if (r.rewrite(f) != NOERR)
cantwrite_box(f.description());
}
}
}
}
void TConversione_archivi::convert_conai_righe()
{
//gestione del file anamag
convert_conai_anamag();
//gestione delle righedoc
convert_conai_rdoc();
}
/////////////////////////////////////////////////////////////////////////////////////
// Converte i dati del file LF_RILORE ($125) in base al nuovo e più logico tracciato
/////////////////////////////////////////////////////////////////////////////////////

View File

@ -131,7 +131,7 @@ Flags = ""
Item_01 = "Riattribuzione codice allegato", "bacnv 21", ""
Item_02 = "Aggiornamento IV direttiva CEE", "bacnv 22", ""
Item_03 = "Aggiornamento profili documento personalizzati", "bacnv 23", ""
Item_04 = "Riattribuzione campi CONAI", "bacnv 24", ""
Item_04 = "Conversione documenti CONAI", "bacnv 24", ""
Item_05 = "Gestione attivazione licenze", "ba2 -7", ""
Item_06 = "Aggiornamento Nazioni ISO 2017" "ba7 -4", ""