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

Aggiunta conversione 12 per i profili di stampa.

Browse Source 
Aggiunta conversione per i codici IVA. (solo la funzione, che non e' ancora
associata a nessun livello e pertanto non viene chiamata).


git-svn-id: svn://10.65.10.50/trunk@3500 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-09-04 07:02:00 +00:00
parent 0778c8e6d6
commit 129b8baee9
1 changed files with 56 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
ba/bacnv.cpp
View File

@ -23,7 +23,7 @@
#include <causali.h>
#include <rmov.h>
#define usage "Errore - uso : bacnv [1|2|3|4|5|6|7|8|9|10|11] ditta"
#define usage "Errore - uso : bacnv [1|2|3|4|5|6|7|8|9|10|11|12] ditta"
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Applicazione di conversione archivi XBase, valida per tutti e 4 i tipi di DLL
@ -172,6 +172,8 @@ public:
void convert_lia_pim() const;
void build_ver_table() const;
void convert_ca7() const;
void convert_tabiva() const;
void convert_forms() const;
TConversione_archivi() : _oldditta(0), _codditta(0), _error(0) {}
};
@ -280,6 +282,9 @@ bool TConversione_archivi::menu(MENU_TAG)
if (_codditta == 0)
convert_ca7();
break;
case 12:
if (_codditta == 0)
convert_forms();
default:
break;
}
@ -1056,6 +1061,55 @@ void TConversione_archivi::convert_ca7() const
}
}
void TConversione_archivi::convert_tabiva() const
// Converte la tabella %IVA
{
TTable iva("%IVA");
TString w_str;
for (iva.first(); iva.good(); iva.next())
{
const int w_int = (int)iva.get_long("I3");
if (w_int == 1) iva.put("S2","B1");
else if (w_int == 2) iva.put("S2","B2");
else if (w_int == 3) iva.put("S2","B3");
w_str = iva.get("I4");
iva.put("S9",w_str);
}
}
void TConversione_archivi::convert_forms() const
// Converte i profili, aggiungendo il valore dell'offset verticale. Solo
// per i forms != PEC
{
TLocalisamfile rform(LF_RFORM),form(LF_FORM);
TString nome,nomeprec,cod,codprec;
int y,ipy;
TProgind p(5,"Conversione profili in corso...",FALSE,FALSE);
for (form.first();form.good();form.next())
{
nome = form.get("TIPOPROF");
cod = form.get("CODPROF");
ipy = form.get_int("IPY");
if (nome == "PEC" || ipy == 0) continue;
rform.put("TIPOPROF",nome);
rform.put("CODPROF",cod);
for (rform.read(_isgteq);rform.good();rform.next())
{
nomeprec = rform.get("TIPOPROF");
codprec = rform.get("CODPROF");
if (nomeprec != nome || codprec != cod) break;
y = rform.get_int("Y");
if (y > 0)
{
y += ipy;
rform.put("Y",y);
rform.rewrite();
}
}
}
}
///////////////////////////////////////////////////////////
// Programma di conversione archivi speciale
///////////////////////////////////////////////////////////
@ -1064,7 +1118,7 @@ int main(int argc,char** argv)
{
const int r = (argc > 1) ? atoi(argv[1]) : 0;
if (r < 0 || r > 11)
if (r < 0 || r > 12)
{
error_box(usage);
return 100;