root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0 patch 543

Browse Source 
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
1 changed files with 36 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
lv/lv3400.cpp
View File

@ -907,12 +907,12 @@ bool TEvasione_ter_msk::on_field_event(TOperable_field& f, TField_event e, long
{ {
if (e == fe_modify) if (e == fe_modify)
{ {
TDoc_key kdoc(TToken_string(f.get(),'.')); TString kdoc = f.get();
int cazzone = 1; int cazzone = 1;
if (kdoc.ndoc() > 0) if (kdoc.full())
{ {
set(F_TANNO, kdoc.anno()); set(F_TANNO, kdoc.mid(1,4));
set(F_TNDOC, kdoc.ndoc()); set(F_TNDOC, atol(kdoc.mid(4)));
field(F_TNDOC).check(); field(F_TNDOC).check();
if(!precarica_righe()) if(!precarica_righe())
@ -948,7 +948,38 @@ bool TEvasione_ter_msk::on_field_event(TOperable_field& f, TField_event e, long
case F_TNDOC: case F_TNDOC:
{ {
if (e == fe_modify) 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_TCHIAVE);
show(F_TCODNUM); show(F_TCODNUM);