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

Corretta gestione DNINST

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22849 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2013-05-06 08:51:47 +00:00
parent 2c144f4dac
commit 5f21b8706a
3 changed files with 54 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ba/ba2400.cpp
View File

@ -144,25 +144,24 @@ public:
bool TForm_printer::create()
{
TString16 cod_prof;
TApplication::create();
if (argc() < 3)
return error_box("Specificare il nome del profilo di stampa");
TFilename form(argv(2)); form.ext("frm");form.upper();
TFilename form(argv(2)); form.ext("frm"); form.lower();
long code=0;
if (argc() == 4)
code = atol(argv(3));
if (!fexist(form))
return error_box(FR("Il profilo %s non esiste"), (const char*)form);
return cantread_box(form);
form.ext("");
_tabcom = new TLocalisamfile(LF_TABCOM);
cod_prof.format("%05ld",code);
TString8 cod_prof; cod_prof.format("%05ld",code);
TTab_form f(form, (code != 0) ? cod_prof : "");
f.print();
stop_run();
return TRUE;
return true;
}
bool TForm_printer::destroy()

6
ba/ba2800a.uml
View File

@ -152,7 +152,7 @@ ENDPAGE
ENDMASK
PAGE "Informazioni" -1 -1 60 10
PAGE "Informazioni" -1 -1 62 10
NUMBER F_NUMBER 5
BEGIN
@ -253,12 +253,12 @@ END
DATE F_ATACCESS
BEGIN
PROMPT 28 6 "Ultimo aggiornamento "
PROMPT 27 6 "Ultimo aggiornamento "
END
NUMBER F_ATYEAR 4
BEGIN
PROMPT 2 7 "Numero versione "
PROMPT 1 8 "Anno "
END
ENDPAGE

74
ba/bacnv.cpp
View File

@ -2239,6 +2239,8 @@ void TConversione_archivi::convert_conai_anamag()
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";
@ -2246,7 +2248,7 @@ void TConversione_archivi::convert_conai_rdoc()
TISAM_recordset righedoc(query);
const long righedoc_items = righedoc.items();
TProgind pi(righedoc_items, "Ricostruzione righe documento...", false);
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);
@ -2257,36 +2259,54 @@ void TConversione_archivi::convert_conai_rdoc()
if (!pi.addstatus(1))
break;
rdoc = righedoc.cursor()->curr();
TString4 codagg2 = rdoc.get(RDOC_CODAGG2);
TString4 codagg1 = rdoc.get(RDOC_CODAGG1);
//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);
//adesso tocca ai pesi conai
real qtagg1 = rdoc.get_real(RDOC_QTAGG1);
//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);
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);
//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);
}
}
const real qtagg3 = rdoc.get(RDOC_QTAGG3);
if (!qtagg3.is_zero())
{
rdoc.put("NUMFOGLI", qtagg3);
rdoc.zero(RDOC_QTAGG3);
}
//scrittura finale del record
TLocalisamfile f(LF_RIGHEDOC);
int err = rdoc.rewrite(f);
if (err != NOERR)
{
cantwrite_box(f.description());
break;
}
}
}