Patch level : 10.0 patch 226

Files correlati     : lv2
Ricompilazione Demo : [ ]
Commento            :
0001143: Errore di scrittura (224) in gestione manuale giri.
Descrizione: Dopo aver cancellato il giro completo del mese gi gennaio per il cliente 1 appare il messaggio in oggetto. Dopo aver premuto il tasto fine.
Dopo patch 210


git-svn-id: svn://10.65.10.50/trunk@18181 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2009-02-03 08:54:02 +00:00
parent 891b8f3683
commit 7e114ad9e0

View File

@ -181,6 +181,7 @@ void TGestione_planning_mask::aggiorna_plan()
//variabili che mi premettono di lavorare sullo sheet
TSheet_field& sheet = sfield(F_PLAN);
TToken_string& rigamodificata = sheet.row(sheet.selected()); //metto in una stringa la riga che sto analizzando
//instanzio un isam file sulla tabella dei planning
@ -209,7 +210,7 @@ void TGestione_planning_mask::aggiorna_plan()
rplan.read();
}
//se ho modificato la data di una riga esistente, o se se ho creata una nuova, allora
//se ho modificato la data di una riga esistente o se se ho creata una nuova, allora
if (changed(_rigaoriginale,rigamodificata,F_S_DATA) || codrigaor <= 0)
{
//se esiste una riga sul file, la rimuovo
@ -269,8 +270,6 @@ void TGestione_planning_mask::aggiorna_plan()
if (rplan.rewrite() != NOERR)
warning_box (TR("Errore di scrittura."));
bool cazzone = _rigaoriginale.not_empty();
if (updatecar && _rigaoriginale.not_empty())
rewrite_all(rigamodificata, data, codplan);
}
@ -378,6 +377,7 @@ bool TGestione_planning_mask::richiesta_modifica()
{
//variabili che mi premettono di lavorare sullo sheet
TSheet_field& sheet = sfield(F_PLAN);
TToken_string& rigamodificata = sheet.row(sheet.selected()); //metto in una stringa la riga che sto analizzando
if (!changed(_rigaoriginale,rigamodificata,F_S_DATA) && !changed(_rigaoriginale,rigamodificata,F_S_ITI) && !changed(_rigaoriginale,rigamodificata,F_S_CODCF) && !changed(_rigaoriginale,rigamodificata,F_S_CODCONT))
@ -425,17 +425,9 @@ bool TGestione_planning_mask::on_field_event(TOperable_field& o, TField_event e,
}
break;
case DLG_QUIT:
if (e == fe_button && !richiesta_modifica())
{
fill_sheet();
break;
}
else
{
if (e == fe_button && sfield(F_PLAN).items() > 0)
aggiorna_plan();
fill_sheet();
break;
}
break;
//se questi campi vengono riempiti, allora riempi lo sheet opportunamante
case F_DADATA: