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

Corretto ordinamento righe IVA, selezione documento da contabilizzare.

Browse Source 
Corretta anche la selezione sulle righe di descrizione.


git-svn-id: svn://10.65.10.50/trunk@3841 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-10-29 10:21:25 +00:00
parent 3507f88800
commit c5ca0a32d4
1 changed files with 64 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
ve/ve6100.cpp
View File

@ -1237,7 +1237,7 @@ void TContabilizzazione_app::calculate_spese(real& spese, real& sp_iva, int ndec
gr = zio.gruppo();
co = zio.conto();
so = zio.sottoconto();
key.format("%-4s|%c|%3d|%3d|%6ld",(const char*)sp_cod.codice(),tipo,gr,co,so);
key.format("5|%-4s|%c|%3d|%3d|%6ld",(const char*)sp_cod.codice(),tipo,gr,co,so);
const bool exists = _righe_iva.is_key(key);
TIVA_element& el = (exists ? (TIVA_element&)_righe_iva[key] : el_tmp);
el.imp() = spese;
@ -1278,7 +1278,31 @@ error_type TContabilizzazione_app::add_iva_row(const TBill& conto, const TRiga_d
const int co = conto.conto();
const long so = conto.sottoconto();
TString key;
key.format("%-4s|%c|%3d|%3d|%6ld",(const char*)cod,tipo,gr,co,so);
const char tipo_r = r.tipo().tipo();
int ord=0;
// Ordine con cui vengono immesse le righe IVA:
// merce, omaggi, prestazioni, spese, bolli/spese d'incasso, sconti.
switch (tipo_r)
{
case 'M':
ord = 1;
break;
case 'O':
ord = 2;
break;
case 'P':
ord = 3;
break;
case 'S':
ord = 4;
break;
case 'C':
ord = 6;
break;
default: break;
}
key.format("%d|%-4s|%c|%3d|%3d|%6ld",ord,(const char*)cod,tipo,gr,co,so);
const bool exists = _righe_iva.is_key(key);
TIVA_element& el = (exists ? (TIVA_element&)_righe_iva[key] : el_tmp);
el += r;
@ -1290,12 +1314,12 @@ error_type TContabilizzazione_app::create_iva_rows()
{
const int items = _righe_iva.items();
const bool in_valuta = _doc->in_valuta();
TIVA_element* cur = (TIVA_element*)_righe_iva.first_item();
TRectype& head = _movimento->lfile().curr();
int gr,co;
long so;
char tipo;
TToken_string key;
TString_array key_arr;
TString16 codiva;
TBill conto;
@ -1303,24 +1327,31 @@ error_type TContabilizzazione_app::create_iva_rows()
const long numreg = head.get_long(MOV_NUMREG);
real cambio = head.get_real(MOV_CAMBIO);
real imponibile,imposta;
for (int i = 0; i<items && cur != NULL;i++)
_righe_iva.get_keys(key_arr);
key_arr.sort();
//TIVA_element* cur = (TIVA_element*)_righe_iva.first_item();
TIVA_element cur;
for (int i = 0; i<items/* && cur != NULL*/;i++)
{
key =_righe_iva.get_hashobj()->key();
codiva = key.get(0);
tipo = key.get_char(1);
gr = key.get_int(2);
co = key.get_int(3);
so = atol(key.get(4));
//key =_righe_iva.get_hashobj()->key();
key = key_arr.row(i);
cur = (TIVA_element&) _righe_iva[key];
codiva = key.get(1);
tipo = key.get_char(2);
gr = key.get_int(3);
co = key.get_int(4);
so = atol(key.get(5));
conto.set(gr,co,so,tipo);
imponibile = cur->imp();
conto.find();
imponibile = cur.imp();
if (in_valuta)
{
imponibile = cur->imp() * cambio; // imponibile in lire
imposta = (imponibile * cur->ali()) / 100.0; // questa e' l'imposta ricalcolata
imponibile = cur.imp() * cambio; // imponibile in lire
imposta = (imponibile * cur.ali()) / 100.0; // questa e' l'imposta ricalcolata
}
else
imposta = cur->iva();
imposta = cur.iva();
// In contabilita' abbiamo 2 decimali...
imponibile.ceil(2);
imposta.ceil(2);
@ -1337,7 +1368,7 @@ error_type TContabilizzazione_app::create_iva_rows()
rec_iva.put(RMI_GRUPPO,conto.gruppo());
rec_iva.put(RMI_CONTO,conto.conto());
rec_iva.put(RMI_SOTTOCONTO,conto.sottoconto());
cur = (TIVA_element*)_righe_iva.succ_item();
//cur = (TIVA_element*)_righe_iva.succ_item();
}
return _error;
}
@ -1422,9 +1453,13 @@ error_type TContabilizzazione_app::compile_rows_mov()
if (_tri->read() == NOERR) // controlla l'esistenza della riga
{
TBill conto;
search_costo_ricavo(conto,r); // l'errore eventuale viene settato qui dentro
if (good())
add_iva_row(conto,r);
const char tipo = r.tipo().tipo();
if (tipo != 'D')
{
search_costo_ricavo(conto,r); // l'errore eventuale viene settato qui dentro
if (good())
add_iva_row(conto,r);
}
}
else
_error = row_type_error;
@ -1742,23 +1777,23 @@ void TContabilizzazione_app::contabilize()
int year_from = _data_ini.year();
int year_to = _data_fine.year();
TString16 codnum;
TString msg;
TString msg,filt_expr;
_total_docs = 0;
da.put("DATADOC",_data_ini);
da.put("PROVV","D");
da.put("ANNO",year_from);
a.put("DATADOC",_data_fine);
a.put("PROVV","D");
a.put("ANNO",year_to);
for (long i=0L; i<items;i++) // Scorre per tutte le numerazioni dello sheet
if (_num_sheet->checked(i)) // Se la numerazione corrente e' stata selezionata
{ // istanzia un cursore per la numerazione corrente, con i limiti di data
codnum = _num_sheet->row(i).get(1);
da.put("DATADOC",_data_ini);
da.put("PROVV","D");
da.put("ANNO",year_from);
da.put("CODNUM",codnum);
a.put("DATADOC",_data_fine);
a.put("PROVV","D");
a.put("ANNO",year_to);
a.put("CODNUM",codnum);
TCursor doc_cur(&doc_rel,"",3,&da,&a);
filt_expr = "CODNUM=\"";
filt_expr << codnum << "\"";
TCursor doc_cur(&doc_rel,filt_expr,3,&da,&a);
const long cur_items = doc_cur.items(); // Scorre tutti i documenti che rientrano nell'intervallo selezionato
if (cur_items == 0)
{