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

31
ef/ef0500.cpp
View File

@ -252,7 +252,7 @@ void TEmissione::floppy()
ribaini = "riba.ini"; // utilizzo quello generico ribaini = "riba.ini"; // utilizzo quello generico
if (!ribaini.custom_path()) // se non esiste ancora! if (!ribaini.custom_path()) // se non esiste ancora!
{ {
error_box(FR("Impossibile leggere il file %s"), (const char*)ribaini); cantread_box(ribaini);
return; return;
} }
@ -267,36 +267,35 @@ void TEmissione::floppy()
inizializza_file(); inizializza_file();
const bool condition = ok_write(); const bool condition = ok_write();
TString_array keys ; if (condition)
_trasfile->tracciati().get_keys(keys);
keys.sort();
const int items = keys.items();
if (!condition)
error_box(TR("Impossibile scrivere sull'unita' di destinazione"));
else
{ {
const TRecnotype n_eff = _cur->items(); const TRecnotype n_eff = _cur->items();
if (n_eff > 0) 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 header_rb();//intestazione flusso effetti
//scandisco tutti gli effetti della distinta selezionata //scandisco tutti gli effetti della distinta selezionata
for (*_cur = 0; _cur->pos() < n_eff; ++(*_cur)) for (*_cur = 0; _cur->pos() < n_eff; ++(*_cur))
{ {
pi.addstatus(1L); if (!pi.addstatus(1))
break;
save_data_emis(); save_data_emis();
//scandisco tutti i record di un effetto //scandisco tutti i record di un effetto
for (int i = 0; i < items; i++) FOR_EACH_ARRAY_ROW(keys, i, rec)
record((const TString &)keys[i]);//emetto il record record(*rec);//emetto il record
} }
footer_ef(); //chiusura flusso effetti 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(); _trasfile->close();
delete _trasfile; delete _trasfile;
_trasfile = NULL; _trasfile = NULL;