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

Patch level : 10.0

Browse Source 
Files correlati     : ef0
Ricompilazione Demo : [ ]
Commento            :
ritocchi stilistici ad emissione effetti


git-svn-id: svn://10.65.10.50/trunk@19735 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2009-12-09 11:12:17 +00:00
parent db98a19488
commit 6b0f9067aa
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
ef/ef0500.cpp
View File

@ -252,51 +252,50 @@ void TEmissione::floppy()
ribaini = "riba.ini"; // utilizzo quello generico
if (!ribaini.custom_path()) // se non esiste ancora!
{
error_box(FR("Impossibile leggere il file %s"), (const char*)ribaini);
cantread_box(ribaini);
return;
}
_trasfile = new TRiba_file(RIBAFILENAME, ribaini);
TTracciato_record * rb = _trasfile->t_rec("RB");
TTracciato_record* rb = _trasfile->t_rec("RB");
if (rb != NULL)
{
TTracciato_record * ib = new TTracciato_record(*rb);
TTracciato_record* ib = new TTracciato_record(*rb);
ib->set_type("IB");
_trasfile->tracciati().add("IB", ib);
}
inizializza_file();
const bool condition = ok_write();
TString_array keys ;
_trasfile->tracciati().get_keys(keys);
keys.sort();
const int items = keys.items();
if (!condition)
error_box(TR("Impossibile scrivere sull'unita' di destinazione"));
else
if (condition)
{
const TRecnotype n_eff = _cur->items();
if (n_eff > 0)
{
TProgind pi(n_eff,TR("Emissione Ri.Ba. su file..."),FALSE,TRUE);
TString_array keys ;
_trasfile->tracciati().get_keys(keys);
keys.sort();
TProgind pi(n_eff, TR("Emissione Ri.Ba. su file..."), true, true);
TAssoc_array& tracciati = _trasfile->tracciati();
header_rb();//intestazione flusso effetti
//scandisco tutti gli effetti della distinta selezionata
for (*_cur = 0; _cur->pos() < n_eff; ++(*_cur))
{
pi.addstatus(1L);
if (!pi.addstatus(1))
break;
save_data_emis();
//scandisco tutti i record di un effetto
for (int i = 0; i < items; i++)
record((const TString &)keys[i]);//emetto il record
FOR_EACH_ARRAY_ROW(keys, i, rec)
record(*rec);//emetto il record
}
footer_ef(); //chiusura flusso effetti
}
message_box("Effetti emessi: %d", n_eff);
message_box(FR("Effetti emessi: %d"), n_eff);
}
else
error_box(TR("Impossibile scrivere sull'unita' di destinazione"));
_trasfile->close();
delete _trasfile;
_trasfile = NULL;