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

Aggiunta conversione tabella CA7 per 770.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2944 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-05-31 14:51:12 +00:00
parent 29005974b5
commit 3a17c99cef
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ba/bacnv.cpp
View File

@ -171,6 +171,7 @@ public:
void convert_codreg() const;
void convert_lia_pim() const;
void build_ver_table() const;
void convert_ca7() const;
TConversione_archivi() : _oldditta(0), _codditta(0), _error(0) {}
};
@ -275,6 +276,10 @@ bool TConversione_archivi::menu(MENU_TAG)
if (_codditta == 0)
build_ver_table();
break;
case 11:
if (_codditta == 0)
convert_ca7();
break;
default:
break;
}
@ -1032,6 +1037,25 @@ void TConversione_archivi::build_ver_table() const
if (ver.write() != NOERR) ver.rewrite();
}
void TConversione_archivi::convert_ca7() const
// Converte la tabella %CA7
{
TTable ca7("%CA7");
for (ca7.first(); ca7.good(); ca7.next())
{
TString s(ca7.get("S1"));
real i1(ca7.get("I1"));
ca7.put("R4",i1);
ca7.zero("I1");
if (ca7.get_bool("B1"))
ca7.put("S2","N");
if (!ca7.get_bool("B0") && s=="D1")
ca7.put("S3","F");
ca7.rewrite();
}
}
///////////////////////////////////////////////////////////
// Programma di conversione archivi speciale
///////////////////////////////////////////////////////////

2
ba/fconv.ini
View File

@ -16,5 +16,7 @@ ACNV(10)=bacnv 6
ACNV(13)=bacnv 9
[199509]
ACNV(5)=bacnv 10
[199510]
ACNV(4)=bacnv 11
[EOF]