Patch level : 10.0 patch 543

Files correlati     : lv3
Ricompilazione Demo : [ ]
Commento            :
Modifiche per leggere correttamente il campo chiave documento; adesso bisogna scrivere *ANNONDOC*


git-svn-id: svn://10.65.10.50/trunk@19753 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2009-12-11 10:55:37 +00:00
parent 4f618ddc38
commit 5c6d656833

View File

@ -907,12 +907,12 @@ bool TEvasione_ter_msk::on_field_event(TOperable_field& f, TField_event e, long
{
if (e == fe_modify)
{
TDoc_key kdoc(TToken_string(f.get(),'.'));
TString kdoc = f.get();
int cazzone = 1;
if (kdoc.ndoc() > 0)
if (kdoc.full())
{
set(F_TANNO, kdoc.anno());
set(F_TNDOC, kdoc.ndoc());
set(F_TANNO, kdoc.mid(1,4));
set(F_TNDOC, atol(kdoc.mid(4)));
field(F_TNDOC).check();
if(!precarica_righe())
@ -948,7 +948,38 @@ bool TEvasione_ter_msk::on_field_event(TOperable_field& f, TField_event e, long
case F_TNDOC:
{
if (e == fe_modify)
if (f.get_long() == 0)
if (f.get_long() != 0 && get(F_TCHIAVE).empty())
{
field(F_TNDOC).check();
if(!precarica_righe())
return false;
hide(F_TCODNUM);
hide(F_TTPDOC);
hide(F_TDESCR);
hide(F_TANNO);
hide(F_TDATAPRCO);
hide(F_TCHIAVE);
show(F_TCODCF);
show(F_TRAGSOC);
show(F_TBARCODE);
show(F_TPACCHI);
show(F_TQTAPACCO);
show(F_TQTACON);
show(F_TQTADACON);
enable(DLG_SELECT);
enable(DLG_PREVIEW);
enable(DLG_ELABORA);
enable(DLG_SAVEREC);
enable(DLG_CANCEL);
_autoselect = 1;
field(F_TBARCODE).set_focus();
}
else
{
show(F_TCHIAVE);
show(F_TCODNUM);