Aggiunta conversione tabella CA7 per 770.
git-svn-id: svn://10.65.10.50/trunk@2944 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
29005974b5
commit
3a17c99cef
24
ba/bacnv.cpp
24
ba/bacnv.cpp
@ -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
|
||||
///////////////////////////////////////////////////////////
|
||||
|
@ -16,5 +16,7 @@ ACNV(10)=bacnv 6
|
||||
ACNV(13)=bacnv 9
|
||||
[199509]
|
||||
ACNV(5)=bacnv 10
|
||||
[199510]
|
||||
ACNV(4)=bacnv 11
|
||||
[EOF]
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user