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

Patch level : 10.0 912

Browse Source 
Files correlati     : tc1.exe
Ricompilazione Demo : [ ]
Commento            :

Trasferimento Zucchetti gestiti i flag Tipo soggetto e San Marino


git-svn-id: svn://10.65.10.50/branches/R_10_00@21605 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2011-02-08 21:20:40 +00:00
parent fe0adb0ae3
commit 7b54bcbb0c
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tc/tc1100.cpp
View File

@ -311,6 +311,21 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
}
}
}
else if (code == "_TIPOSOG")
{
if (cur.curr().get_int(CLI_ALLEG) == 6)
valore = "P";
else
valore = "S";
}
else if (code == "_FLSMR")
{
if (cur.curr().get(CLI_STATOPAIV) == "SM")
valore = "S";
else
valore = " ";
}
else if (code == "_ATTIVITA")
{
int att = atoi(cur.file("REG").get("S8"));

3
tc/tc1100a.ini
View File

@ -288,12 +288,13 @@ NAME(10) = TIPO SOGGETTO
TYPE(10) = STRINGA
POSITION(10) = 86
LENGTH(10) = 1
FIELD(10) = 20->TIPOPERS
MESSAGE(10)=_TIPOSOG
NAME(11) = FLAG SAN MARINO
TYPE(11) = STRINGA
POSITION(11) = 87
LENGTH(11) = 1
MESSAGE(11)=_FLSMR
NAME(12) = BOLLA DOGANALE
TYPE(12) = STRINGA