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

Aggiunta possibilita' di scelta numero protocllo IVA.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4207 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-03-15 11:04:26 +00:00
parent 5b47b3d967
commit 258b268e94
3 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ve/ve6100.cpp
View File

@ -476,6 +476,7 @@ class TContabilizzazione_app : public TApplication
bool _sc_enabled; // se TRUE il saldaconto di ditta e' abilitato
bool _can_write; // se TRUE e' abilitata la scrittura. Non appena rileva un errore rimane a FALSE for this instance
bool _nump_cfg; // se TRUE prende il numero rif. partita dal numero protocollo
byte _nump_iva; // se 1 prende il numero protocollo da registro iva, se 2 prende il numero protocollo dal numero doc.
TMask *_msk; // maschera di selezione dati
TRelation *_clifo; // relazione dei clienti e fornitori + cfven
TLocalisamfile *_attiv, // file delle attivita' (per far funzionare TRegistro)
@ -863,6 +864,7 @@ bool TContabilizzazione_app::menu(MENU_TAG mt)
_data_fine = _msk->get_date(F_DATA_FIN);
_data_reg = _msk->get_date(F_DATA_REG);
_auto_data = _msk->get_bool(F_DATA_AUTO);
_nump_iva = _msk->get_int(F_SELPROT);
//_data_fine++;
contabilize();
}
@ -1109,14 +1111,18 @@ error_type TContabilizzazione_app::compile_head_mov()
return _error;
}
// Reperisce l'ultimo numero di protocollo
long ult_prot = registro.protocol() +1;
long ult_prot;
if (_nump_iva == 1) // Reperisce l'ultimo numero di protocollo dal registro IVA
{
ult_prot = registro.protocol() +1;
if (ult_prot < 1)
{
_error = ultprot_error;
return _error;
}
}
else // oppure dal numero di documento
ult_prot = _doc->numero();
// Reperisce la valuta
TDate datacam(_doc->get_date("DATACAMBIO"));
TString codval(_doc->valuta());
@ -1256,13 +1262,13 @@ error_type TContabilizzazione_app::add_spese_inbo()
// Aggiunge le spese d'incasso
tot_netto = _doc->totale_netto();
sp_incasso = _doc->spese_incasso(tot_netto,ndec, TRUE);
sp_incasso = _doc->spese_incasso(tot_netto,ndec,_netto/*TRUE*/);
if (sp_incasso != 0.0)
calculate_spese(sp_incasso,iva_sp_incasso,ndec,TRUE);
calculate_spese(sp_incasso,iva_sp_incasso,ndec,_netto/*TRUE*/);
// Aggiunge le spese bolli
tot_netto += sp_incasso + iva_sp_incasso;
sp_bolli = _doc->bolli(tot_netto,ndec, TRUE);
sp_bolli = _doc->bolli(tot_netto,ndec, _netto/*TRUE*/);
if (sp_bolli != 0)
calculate_spese(sp_bolli,iva_sp_bolli,ndec,FALSE);

1
ve/ve6100a.h
View File

@ -6,4 +6,5 @@
#define F_DATA_FIN 104
#define F_DATA_AUTO 105
#define F_DATA_REG 106
#define F_SELPROT 107

9
ve/ve6100a.uml
View File

@ -1,6 +1,6 @@
#include "ve6100a.h"
PAGE "Contabilizzazione documenti" -1 -1 78 12
PAGE "Contabilizzazione documenti" -1 -1 78 14
STRING F_CODICE_ELAB 8
BEGIN
@ -60,6 +60,13 @@ BEGIN
WARNING "La data registrazione e' obbligatoria"
END
RADIOBUTTON F_SELPROT 1 32
BEGIN
PROMPT 1 8 "Selezione numero protocollo"
ITEM "1|Da registro IVA"
ITEM "2|Da numero documento"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""