Patch level : 10.0
Files correlati : lv0.exe Ricompilazione Demo : [ ] Commento : Migliorate segnalazioni in cancellazione righe contratto con articoli ancora da evadere git-svn-id: svn://10.65.10.50/branches/R_10_00@22595 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
adfea52a8d
commit
bb79968dc6
@ -355,6 +355,13 @@ void TContratti_msk::on_idle()
|
||||
}
|
||||
}
|
||||
|
||||
static const TString& doc_rif(const TRecordset& rdoc)
|
||||
{
|
||||
TString& tmp = get_tmp_string();
|
||||
tmp << rdoc.get(RDOC_CODNUM) << ' ' << rdoc.get(RDOC_ANNO) << '/' << rdoc.get(RDOC_NDOC);
|
||||
return tmp;
|
||||
}
|
||||
|
||||
//ON_FIELD_EVENT: definizione del metodo che setta i comportamenti dei vari campi della mashera
|
||||
bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly)
|
||||
{
|
||||
@ -434,10 +441,7 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
|
||||
{
|
||||
const long dotin = row.get_long(ss.cid2index(S_DOTIN));
|
||||
if (dotin > 0)
|
||||
{
|
||||
warning_box("Impossibile cancellare l'articolo %s perchè ha una dotazione iniziale non nulla", (const char*) codart);
|
||||
return false;
|
||||
}
|
||||
return error_box("Impossibile cancellare l'articolo %s perchè ha una dotazione iniziale non nulla", (const char*) codart);
|
||||
|
||||
const TDate oggi(TODAY);
|
||||
const int danno = oggi.year() - 1;
|
||||
@ -459,13 +463,13 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
|
||||
|
||||
TISAM_recordset bcon(query);
|
||||
|
||||
if(bcon.items() > 0)
|
||||
if(bcon.move_first())
|
||||
{
|
||||
TString str;
|
||||
str << "Non è possibile cancellare dal contratto l'articolo " << codart
|
||||
<< "in quanto è presente su " << bcon.items() << " ancora da fatturare";
|
||||
warning_box(str);
|
||||
return false;
|
||||
<< "in quanto è presente su " << bcon.items() << " buoni di consegna ancora da fatturare\n"
|
||||
<< doc_rif(bcon);
|
||||
return error_box(str);
|
||||
}
|
||||
|
||||
//controllo articolo in buoni di ritiro
|
||||
@ -482,13 +486,13 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
|
||||
|
||||
TISAM_recordset brit(query);
|
||||
|
||||
if(brit.items() > 0)
|
||||
if(brit.move_first())
|
||||
{
|
||||
TString str;
|
||||
str << "Non è possibile cancellare dal contratto l'articolo " << codart
|
||||
<< "in quanto è presente su " << brit.items() << " ancora da evadere";
|
||||
warning_box(str);
|
||||
return false;
|
||||
<< "in quanto è presente su " << brit.items() << " buoni di ritiro ancora da evadere\n"
|
||||
<< doc_rif(brit);
|
||||
return error_box(str);
|
||||
}
|
||||
|
||||
//controllo articolo in buoni di prelievo
|
||||
@ -504,14 +508,13 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
|
||||
<< "TO CODART=\"" << codart << "\" ANNO=" << danno << "CODNUM=\"" << codnumbp << "\"\n";
|
||||
|
||||
TISAM_recordset bpre(query);
|
||||
|
||||
if(bpre.items() > 0)
|
||||
if(bpre.move_first())
|
||||
{
|
||||
TString str;
|
||||
str << "Non è possibile cancellare dal contratto l'articolo " << codart
|
||||
<< "in quanto è presente su " << bpre.items() << " ancora da evadere";
|
||||
warning_box(str);
|
||||
return false;
|
||||
<< "in quanto è presente su " << bpre.items() << " buoni di prelievo ancora da evadere\n"
|
||||
<< doc_rif(bpre);
|
||||
return error_box(str);
|
||||
}
|
||||
|
||||
if (!noyes_box("Si desidera veramente cancellare l'articolo %s",(const char*) codart))
|
||||
|
Loading…
x
Reference in New Issue
Block a user