diff --git a/ba/bacnv.cpp b/ba/bacnv.cpp index f2a5c2d62..52ba9c2e2 100755 --- a/ba/bacnv.cpp +++ b/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 /////////////////////////////////////////////////////////// diff --git a/ba/fconv.ini b/ba/fconv.ini index 480e17ab2..716c29e63 100755 --- a/ba/fconv.ini +++ b/ba/fconv.ini @@ -16,5 +16,7 @@ ACNV(10)=bacnv 6 ACNV(13)=bacnv 9 [199509] ACNV(5)=bacnv 10 +[199510] +ACNV(4)=bacnv 11 [EOF]