276 lines
6.1 KiB
C++
Executable File
276 lines
6.1 KiB
C++
Executable File
// 77g1.cpp - Quadro G1
|
|
#include <relapp.h>
|
|
#include <config.h>
|
|
#include <msksheet.h>
|
|
#include <sort.h>
|
|
#include <tabutil.h>
|
|
#include <execp.h>
|
|
#include <progind.h>
|
|
#include <defmask.h>
|
|
|
|
#include "quadrog1.h"
|
|
#include "77lib.h"
|
|
#include "774200.h"
|
|
#include "77g1a.h"
|
|
#include "771232.h"
|
|
|
|
HIDDEN const int RIGHE_PI = 11;
|
|
|
|
TQuadroG1::TQuadroG1()
|
|
{
|
|
_registra = FALSE;
|
|
_quadro = "G1";
|
|
_title = "Quadro G-1";
|
|
}
|
|
|
|
inline TQuadroG1& app() { return (TQuadroG1&) main_app(); }
|
|
|
|
void TQuadroG1::init_insert_mode (TMask& m)
|
|
{
|
|
fill_arr(m);
|
|
}
|
|
|
|
void TQuadroG1::init_modify_mode (TMask& m)
|
|
{
|
|
// init_mask(m);
|
|
m.disable(DLG_DELREC);
|
|
}
|
|
|
|
int TQuadroG1::read(TMask& m)
|
|
{
|
|
int err = TRelation_application::read(m);
|
|
if (err == NOERR)
|
|
fill_arr(m);
|
|
return err;
|
|
}
|
|
|
|
void TQuadroG1::init_query_mode (TMask& m)
|
|
{
|
|
TString16 codditta; codditta << _codditta;
|
|
if (codditta != "0")
|
|
{
|
|
m.field(F_CODDITTA).set(codditta);
|
|
m.field(F_CODDITTA).check();
|
|
}
|
|
m.send_key(K_AUTO_ENTER,0);
|
|
// init_mask(m);
|
|
}
|
|
|
|
//void TQuadroG1::init_mask (TMask& m){}
|
|
|
|
void TQuadroG1::update_totals(TSheet_field& f)
|
|
{
|
|
int i = 0;
|
|
real tcol2, tcol3, tcol5, tcol6, tcol7;
|
|
tcol2 = tcol3 = tcol5 = tcol6 = tcol7 = ZERO;
|
|
TSheet_field& pI = f;
|
|
// Calcolo il totale
|
|
for (i = 0; i < RIGHE_PI; i++)
|
|
{
|
|
TToken_string& r = pI.row(i);
|
|
real c2(r.get(1));
|
|
real c3(r.get(2));
|
|
real c5(r.get(4));
|
|
real c6(r.get(5));
|
|
real c7(r.get(6));
|
|
tcol2 += c2;
|
|
tcol3 += c3;
|
|
tcol5 += c5;
|
|
tcol6 += c6;
|
|
tcol7 += c7;
|
|
}
|
|
// Setto le celle di totale
|
|
TToken_string& row = pI.row(i);
|
|
row.add(tcol2.string(), 1);
|
|
row.add(tcol3.string(), 2);
|
|
row.add(tcol5.string(), 4);
|
|
row.add(tcol6.string(), 5);
|
|
row.add(tcol7.string(), 6);
|
|
pI.force_update(i);
|
|
}
|
|
|
|
bool TQuadroG1::user_create()
|
|
{
|
|
_msk = new TMask("77g1a");
|
|
_rel = new TRelation(LF_QUAG1);
|
|
_codditta = get_firm_770();
|
|
TSheet_field& p1 = (TSheet_field&) _msk->field(F_PI);
|
|
p1.set_notify(p1_notify);
|
|
return TRUE;
|
|
}
|
|
|
|
bool TQuadroG1::user_destroy()
|
|
{
|
|
delete _rel; delete _msk;
|
|
if (_registra)
|
|
_rip.set(_quadro);
|
|
return TRUE;
|
|
}
|
|
|
|
void TQuadroG1::arr2rel(const TMask& m)
|
|
{
|
|
TToken_string p3a;
|
|
TToken_string p3b;
|
|
TToken_string p3c;
|
|
TToken_string p3d;
|
|
TToken_string p3e;
|
|
TToken_string p3f;
|
|
TRectype& r = _rel->curr();
|
|
int dlg; dlg = 0;
|
|
|
|
// Prospetto 3 - Prospetto delle ritenute
|
|
TSheet_field& pI = (TSheet_field&)m.field(F_PI);
|
|
|
|
for (int i = 0; i < RIGHE_PI; i++)
|
|
{
|
|
TToken_string& r = pI.row(i);
|
|
TString ut94 (r.get(1)); // Salto data delibera che e' fisso
|
|
TString imp (r.get());
|
|
TString ali (r.get());
|
|
TString racc (r.get());
|
|
TString rimp (r.get());
|
|
TString utnsogg (r.get());
|
|
p3a.add(ut94);
|
|
p3b.add(imp);
|
|
p3c.add(ali);
|
|
p3d.add(racc);
|
|
p3e.add(rimp);
|
|
p3f.add(utnsogg);
|
|
}
|
|
r.put(QG1_P12, p3a);
|
|
r.put(QG1_P13, p3b);
|
|
r.put(QG1_P14, p3c);
|
|
r.put(QG1_P15, p3d);
|
|
r.put(QG1_P16, p3e);
|
|
r.put(QG1_P17, p3f);
|
|
// Salvo i totali che servono poi per i riporti (774200.cpp)
|
|
TToken_string& r_tot = pI.row(i);
|
|
real tot_col2(r_tot.get(1));
|
|
real tot_col3(r_tot.get(2));
|
|
real tot_col5(r_tot.get(4));
|
|
real tot_col6(r_tot.get(5));
|
|
real tot_col7(r_tot.get(6));
|
|
r.put(QG1_P12TOT, tot_col2);
|
|
r.put(QG1_P13TOT, tot_col3);
|
|
r.put(QG1_P15TOT, tot_col5);
|
|
r.put(QG1_P16TOT, tot_col6);
|
|
r.put(QG1_P17TOT, tot_col7);
|
|
}
|
|
|
|
void TQuadroG1::fill_arr(TMask& m)
|
|
{
|
|
TRectype& r = _rel->curr();
|
|
TToken_string p3a(r.get(QG1_P12));
|
|
TToken_string p3b(r.get(QG1_P13));
|
|
TToken_string p3c(r.get(QG1_P14));
|
|
TToken_string p3d(r.get(QG1_P15));
|
|
TToken_string p3e(r.get(QG1_P16));
|
|
TToken_string p3f(r.get(QG1_P17));
|
|
int dlg, j; dlg = j = 0;
|
|
|
|
const char* date_delib[20] =
|
|
{
|
|
"18-12-1977/31-12-1995",
|
|
"18-12-1977/31-12-1995",
|
|
"18-12-1977/31-12-1995",
|
|
"11-10-1976/17-12-1977",
|
|
"11-10-1976/17-12-1977",
|
|
"11-10-1976/17-12-1977",
|
|
"1-1-1974/10-10-1976",
|
|
"1-1-1974/10-10-1976",
|
|
"24-2-1964/31-12-1973",
|
|
"24-2-1964/31-12-1973",
|
|
"1-1-1963/23-2-1964"
|
|
};
|
|
|
|
const char* aliq[15] =
|
|
{
|
|
"10",
|
|
"12.5",
|
|
"30",
|
|
"10",
|
|
"30",
|
|
"50",
|
|
"10",
|
|
"30",
|
|
"5",
|
|
"30",
|
|
"15"
|
|
};
|
|
|
|
TSheet_field& pI = (TSheet_field&)m.field(F_PI);
|
|
const int COL_ALIQ = 3;
|
|
int ind_aliq = 0;
|
|
for (int i = 1; i <= RIGHE_PI; i++)
|
|
{
|
|
TRectype& r = _rel->curr();
|
|
TToken_string& row = pI.row(i-1);
|
|
row.add(date_delib[i-1]);
|
|
row.add(p3a.get(i-1));
|
|
row.add(p3b.get(i-1));
|
|
row.add(p3c.get(i-1));
|
|
row.add(p3d.get(i-1));
|
|
row.add(p3e.get(i-1));
|
|
row.add(p3f.get(i-1));
|
|
row.add(aliq[ind_aliq++], 3);
|
|
pI.disable_cell(i-1, COL_ALIQ);
|
|
}
|
|
|
|
if (m.mode() == MODE_MOD)
|
|
update_totals(pI);
|
|
else
|
|
{
|
|
// Aggiungo la riga per i totali
|
|
TToken_string& row = pI.row(i-1);
|
|
row.add("Totali", 0);
|
|
pI.disable_cell(i-1, -1);
|
|
pI.force_update();
|
|
}
|
|
}
|
|
|
|
int TQuadroG1::write(const TMask& m)
|
|
{
|
|
arr2rel(m);
|
|
int err = TRelation_application::write(m);
|
|
_registra = err == NOERR;
|
|
return err;
|
|
}
|
|
|
|
int TQuadroG1::rewrite(const TMask& m)
|
|
{
|
|
arr2rel(m);
|
|
int err = TRelation_application::rewrite(m);
|
|
_registra = err == NOERR;
|
|
return err;
|
|
}
|
|
|
|
bool TQuadroG1::remove()
|
|
{
|
|
const bool ok = TRelation_application::remove();
|
|
return ok;
|
|
}
|
|
|
|
bool TQuadroG1::p1_notify(TSheet_field& s, int r, KEY k)
|
|
{
|
|
switch(k)
|
|
{
|
|
case K_ENTER:
|
|
update_totals(s);
|
|
break;
|
|
case K_SPACE:
|
|
break;
|
|
// Rifiuta di entrare sull'ultima riga
|
|
case K_TAB:
|
|
return r < RIGHE_PI;
|
|
break;
|
|
case K_INS:
|
|
if (s.mask().is_running())
|
|
return FALSE; // rifiuta inserimento di nuove righe
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|