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

Patch level : 10.0

Browse Source 
Files correlati     : 777.exe 77qla.frm
Ricompilazione Demo : [ ]
Commento            :
Migliorata gestione province: azzera tutte le EE sul quadro ST


git-svn-id: svn://10.65.10.50/trunk@20420 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2010-05-04 09:11:39 +00:00
parent 276d4b8ac5
commit f600e45ad3
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
m770/777100.cpp
View File

@ -262,13 +262,21 @@ bool TForm770::validate(TForm_item &cf, TToken_string &s)
if (code == "_PERIODO_RIF") if (code == "_PERIODO_RIF")
{ {
const TRectype& curr = relation()->curr(); const TRectype& curr = relation()->curr();
int anno = curr.get_int("QLAP"); const int anno = curr.get_int("QLAP");
int mese = curr.get_int("QLMP"); const int mese = curr.get_int("QLMP");
TString8 str; TString8 str;
str.format("%02d%04d", mese, anno); str.format("%02d%04d", mese, anno);
cf.set(str); cf.set(str);
return true; return true;
} }
if (code == "_PROVINCIA")
{
const TString& prov = cf.get();
if (prov == "EE") // Il 770 non gradisce la provincia EE associata agli stati esteri
cf.set("");
return true;
}
return TForm::validate(cf, s); return TForm::validate(cf, s);
} }

2
m770/77qla.frm
View File

@ -90,6 +90,7 @@ BEGIN
PROMPT 126 3 "" PROMPT 126 3 ""
FIELD 313@->PROVCOM FIELD 313@->PROVCOM
SPECIAL STRING TRASFER "AU001007" "AN" SPECIAL STRING TRASFER "AU001007" "AN"
MESSAGE _PROVINCIA
END END
STRINGA 8 STRINGA 8
@ -110,6 +111,7 @@ BEGIN
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "AU001009" "AN" SPECIAL STRING TRASFER "AU001009" "AN"
MESSAGE _PROVINCIA
END END
NUMBER 10 NUMBER 10