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:
parent
4f618ddc38
commit
5c6d656833
@ -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);
|
||||
|
Loading…
x
Reference in New Issue
Block a user