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

Aggiunta conversione Quadro L nel livello 11.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3631 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-09-19 10:59:07 +00:00
parent 9351353bc3
commit 0f8ba96bbb
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ba/bacnv.cpp
View File

@ -179,7 +179,7 @@ public:
void convert_forms() const;
void sort_sal(int year) const;
void convert_saldi() const;
void convert_ca7() const;
void convert_ca7_ql() const;
void convert_tabiva() const;
TConversione_archivi() : _oldditta(0), _codditta(0), _error(0) {}
@ -287,7 +287,7 @@ bool TConversione_archivi::menu(MENU_TAG)
break;
case 11:
if (_codditta == 0)
convert_ca7();
convert_ca7_ql();
break;
case 12:
if (_codditta == 0)
@ -1052,8 +1052,8 @@ void TConversione_archivi::build_ver_table() const
if (ver.write() != NOERR) ver.rewrite();
}
void TConversione_archivi::convert_ca7() const
// Converte la tabella %CA7
void TConversione_archivi::convert_ca7_ql() const
// Converte la tabella %CA7 e QUADROL
{
TTable ca7("%CA7");
@ -1069,6 +1069,21 @@ void TConversione_archivi::convert_ca7() const
ca7.put("S3","F");
ca7.rewrite();
}
// Ora converte il quadro L
TLocalisamfile quadrol(LF_QUAL);
TString serie,numero;
for (quadrol.first(); quadrol.good(); quadrol.next())
if (quadrol.get_char("QLTV") == 'B')
{
TRectype com_rec(quadrol.curr());
serie.format("%05ld",quadrol.get_long("QLSERIE"));
numero.format("%05ld",quadrol.get_long("QLNUMERO"));
com_rec.put("QLSERIE",serie);
com_rec.put("QLNUMERO",numero);
quadrol.write(com_rec);
quadrol.remove();
}
}
void TConversione_archivi::convert_tabiva() const