Ristrutturazione visualizzazione con ricalcoli a oltranza e mezza

tonnellata di lazzi e frizzi


git-svn-id: svn://10.65.10.50/trunk@1085 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-03-09 08:47:36 +00:00
parent e7f4592b94
commit e8d676588d
7 changed files with 888 additions and 503 deletions

View File

@ -1050,7 +1050,7 @@ void TLiquidazione_app::set_grand(_DescrItem& d)
real& interesse = d._r11;
if (rettifiche.sign() > 0) rett_debt = rettifiche;
if (rettifiche.sign() < 0) rett_cred = rettifiche;
if (rettifiche.sign() < 0) rett_cred = -rettifiche;
set_row(1,""); set_row(2,""); set_row(3,""); set_row(4,"");
set_row(5,"@11g@bCALCOLO LIQUIDAZIONE D'IMPOSTA@r");

File diff suppressed because it is too large Load Diff

View File

@ -2,6 +2,10 @@
#include <mask.h>
#include <tabutil.h>
// IVA a debito da riportare al mese successivo
#define IVA_DA_RIPORTARE real(50000)
class TSheet_field;
class Visliq_app : public TApplication
@ -15,10 +19,12 @@ class Visliq_app : public TApplication
TArray _nomiditte;
TTable* _lim;
TTable* _lam;
TTable* _lia;
TTable* _del;
TRectype* _lim_r;
TRectype* _lam_r;
TRectype* _del_r;
TRecfield* _del_ditta;
TRecfield* _del_anno;
@ -26,10 +32,11 @@ class Visliq_app : public TApplication
TRecfield* _del_tipo;
TRecfield* _lim_anno;
TRecfield* _lim_mese;
TRecfield* _lam_anno;
TRecfield* _lam_mese;
TSheet_field* _vers_sheet, *_liq_sheet;
TArray _vers_rows, _liq_rows;
TMask* _mask;
const char* itoname(int m);
@ -37,8 +44,6 @@ class Visliq_app : public TApplication
bool is_trim(int x);
bool is_month_ok(int x, int month = -1);
void set_risultato(TViswin*, long, real&);
protected:
virtual bool menu(MENU_TAG);
@ -69,6 +74,12 @@ public:
bool look_lim(int m);
bool look_del(int month, int type, bool create = FALSE);
void read_general(TMask& m);
void write_general(TMask& m);
void write_liq();
void write_del();
void set_freqviva();
void set_freqviva(const char* f) { _freqviva = f; }
void set_mask_freq(TMask&);
@ -78,7 +89,14 @@ public:
// 2 palle
TMask* get_main_mask() { return _mask; }
void update_sheet_row(TToken_string& t);
// riaggiusta la liquidazione del mese dato
void recalc_liq_data(TViswin* v, real& rimb, real& rett, real& vers,
real& acc, TString& d1, TString& d2, TDate& date, TString&
abi, TString& cab, TString& con);
// riaggiusta le liquidazioni successive se serve
void recalc_next_liq(int start_month, TSheet_field* sl, TSheet_field* sv);
// workhorses
bool vis_liq();

View File

@ -14,7 +14,7 @@ END
BUTTON F_SELECT 2 1
BEGIN
PROMPT 19 1 "*"
PROMPT 20 1 "*"
PICTURE 109
MESSAGE EXIT,DLG_SELECT
END

View File

@ -120,6 +120,7 @@ END
LIST 104 1 8
BEGIN
PROMPT 1 4 "Importo a "
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
INPUT 105
@ -144,6 +145,7 @@ END
LIST 107 1 8
BEGIN
PROMPT 1 7 "Importo a "
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
INPUT 105
@ -231,6 +233,7 @@ END
LIST 108 1 8
BEGIN
PROMPT 1 9 "Importo a "
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
INPUT 105

View File

@ -98,6 +98,7 @@ END
LIST 104 1 8
BEGIN
PROMPT 1 4 "Importo a "
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
INPUT 105
@ -122,6 +123,7 @@ END
LIST 107 1 8
BEGIN
PROMPT 1 7 "Importo a "
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
INPUT 105

View File

@ -9,8 +9,14 @@ bool Visliq_app::look_lim(int m)
(*_lim_anno) = _year;
(*_lim_mese) = format("%02d",m);
_lim->read();
return _lim->good();
if (_lim->read() == NOERR)
{
_lam_r->zero();
(*_lam_anno) = _year;
(*_lam_mese) = format("%02d",m);
_lam->read();
}
return _lim->good() && _lam->good();
}
bool Visliq_app::look_del(int month, int type, bool create)