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

Patch level : 12.0 938

Browse Source 
Files correlati     : cg5.exe cg5500b.msk cg5500c.msk
Commento            :

Attivati acconto e interessi con ricalcolo nei trimestrali.

Aggiunta 13 nei trimestrali e sistemata la visualizzazione dei trimestrali.
This commit is contained in:
Alessandro Bonazzi 2020-02-06 22:45:08 +01:00
parent ea58af15c7
commit c386fb1262
5 changed files with 300 additions and 241 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

166
src/cg/cg5500.cpp
View File

@ -382,19 +382,22 @@ bool Visliq_app::print_handler(TMask_field& f, KEY k)
bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k) bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k)
{ {
if (k != K_SPACE) return true; if (k == K_SPACE)
{
TMask& m = *(app().get_main_mask()); TMask& m = *(app().get_main_mask());
TSheet_field& sh = m.sfield(F_VISLIQ1); TSheet_field& sh = m.sfield(F_VISLIQ1);
TSheet_field& sv = m.sfield(F_VISLIQ2); TSheet_field& sv = m.sfield(F_VISLIQ2);
int sel = sh.selected(); int sel = sh.selected();
int month = sh.selected()+1; int month = sh.selected() + 1;
TToken_string& tt = sh.row(sh.selected()); TToken_string& tt = sh.row(sh.selected());
TMask& sm = sh.sheet_mask(); TMask& sm = sh.sheet_mask();
if (sh.items() == 4) if (sh.items() == 5)
month *= 3; month *= 3;
if (month >13)
month = 13;
if (sm.is_running() && !sm.stop_run(K_ENTER)) if (sm.is_running() && !sm.stop_run(K_ENTER))
return true; return true;
@ -424,7 +427,7 @@ bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k)
{ {
// TBC controllare se sono i dati giusti in tt // TBC controllare se sono i dati giusti in tt
sm.field(S_RISULTATO).set(tt.get(cid2index(S_RISULTATO))); sm.field(S_RISULTATO).set(tt.get(cid2index(S_RISULTATO)));
sm.field(S_DEBCRED1 ).set(tt.get(cid2index(S_DEBCRED1))); sm.field(S_DEBCRED1).set(tt.get(cid2index(S_DEBCRED1)));
sm.field(S_RIMBORSO).set(tt.get(cid2index(S_RIMBORSO))); sm.field(S_RIMBORSO).set(tt.get(cid2index(S_RIMBORSO)));
sm.field(S_RETTIFICHE).set(tt.get(cid2index(S_RETTIFICHE))); sm.field(S_RETTIFICHE).set(tt.get(cid2index(S_RETTIFICHE)));
sm.field(S_DEBCRED2).set(tt.get(cid2index(S_DEBCRED2))); sm.field(S_DEBCRED2).set(tt.get(cid2index(S_DEBCRED2)));
@ -434,18 +437,18 @@ bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k)
sh.force_update(sel); sh.force_update(sel);
if (app().look_del(month,1)) if (app().look_del(month, 1))
{ {
const int nrow = sel == (sh.items() - 1) ? sel - 1 : sel; const int nrow = sel == (sh.items() - 1) ? sel - 1 : sel;
sv.set_row_cell(S_DATA, app().del()->get("D0"), nrow); sv.set_row_cell(S_DATA, app().del()->get("D0"), nrow);
sv.set_row_cell(S_ABI, app().del()->get("S7"), nrow); sv.set_row_cell(S_ABI, app().del()->get("S7"), nrow);
sv.set_row_cell(S_CAB, app().del()->get("S8"),nrow); sv.set_row_cell(S_CAB, app().del()->get("S8"), nrow);
sv.set_row_cell(S_CONC, app().del()->get("S9"),nrow); sv.set_row_cell(S_CONC, app().del()->get("S9"), nrow);
sv.set_row_cell(S_VERSAMENTO, app().del()->get("R0"), nrow); sv.set_row_cell(S_VERSAMENTO, app().del()->get("R0"), nrow);
sv.force_update(nrow); sv.force_update(nrow);
} }
}
return true; return true;
} }
@ -471,9 +474,17 @@ bool Visliq_app::check_date(TMask_field& f, KEY k)
if (d.year() != app().year()) if (d.year() != app().year())
return f.error_box(FR("L'anno deve essere %d"), app().year()); return f.error_box(FR("L'anno deve essere %d"), app().year());
if (app()._freqviva == "M")
{
if (d.month() != row + 1) if (d.month() != row + 1)
return f.error_box(FR("Il mese deve essere %s"), itom(row + 1)); return f.error_box(FR("Il mese deve essere %s"), itom(row + 1));
} }
else
{
if (d.month() != (row + 1) * 3)
return f.error_box(FR("Il mese deve essere %s"), itom((row + 1) * 3));
}
}
return true; return true;
} }
@ -487,12 +498,11 @@ bool Visliq_app::sel_mese_sh2 (TMask_field& f, KEY k)
int month = sh.selected()+1; int month = sh.selected()+1;
if (sh.items() < 12) if (sh.items() < 12)
month *= 3; month *= 3;
if (month > 13)
month = 13;
TMask& sv = sh.sheet_mask(); TMask& sv = sh.sheet_mask();
// click su acconto
if (month > 12) return true;
if (sv.is_running() && !sv.stop_run(K_ENTER)) if (sv.is_running() && !sv.stop_run(K_ENTER))
return true; return true;
@ -1557,7 +1567,7 @@ void Visliq_app::write_liq()
_lim->rewrite(); _lim->rewrite();
} }
void Visliq_app::write_del(const real& v) void Visliq_app::write_del(const real& v, const real& i, bool stampato)
{ {
bool wasdel = false; bool wasdel = false;
@ -1570,31 +1580,26 @@ void Visliq_app::write_del(const real& v)
if (vers == ZERO) if (vers == ZERO)
vers = _lim->get_real("R8"); vers = _lim->get_real("R8");
real intr(_lim->get_real("R10")); if (vers == ZERO && (wasdel = look_del(month,1)))
if (vers.is_zero() && (wasdel = look_del(month,1)))
{ {
_del->remove(); _del->remove();
//_del->rewrite(); // ???
return; return;
} }
if (!wasdel) if (!wasdel)
look_del(month,1,true); // Crea delega look_del(month,1,true); // Crea delega
real inter; real inter = i;
if (!intr.is_zero()) if (i == ZERO)
{ {
real percint = _lim->get_real("R10");
// riapplica il tasso di interesse // riapplica il tasso di interesse
// se trimestrale e' stato scorporato rispetto all'eventuale input utente // se trimestrale e' stato scorporato rispetto all'eventuale input utente
TExchange c; inter = vers - (vers * CENTO / (percint + CENTO));
real vers_netto = vers * CENTO / (intr + CENTO);
vers_netto.round(c.decimals());
inter = vers - vers_netto;
round_imposta(inter); round_imposta(inter);
vers = vers_netto + inter;
} }
_del->put("R0",vers); _del->put("R0",vers);
@ -1603,7 +1608,7 @@ void Visliq_app::write_del(const real& v)
_del->put("S7",abi); _del->put("S7",abi);
_del->put("S8",cab); _del->put("S8",cab);
_del->put("S9",con); _del->put("S9",con);
_del->put("B0", true); // Preimposta flag di stampato, altrimenti viene ignorato dalla liquidazione 04-12-2014 _del->put("B0", stampato); // Preimposta flag di stampato, altrimenti viene ignorato dalla liquidazione 04-12-2014
const int ctri = _freqviva == "M" ? 6000 + month : 6030 + (month/3); const int ctri = _freqviva == "M" ? 6000 + month : 6030 + (month/3);
_del->put("S6", ctri); _del->put("S6", ctri);
@ -1636,13 +1641,17 @@ void Visliq_app::read_general(TMask& m)
cr_res -= cr_util; cr_res -= cr_util;
int last_month = freq_ver_IVA() == "M" ? 14 : 16;
// set sheet // set sheet
for (int i = step; i < 13; i+=step) for (int i = step; i < last_month; i+=step)
{ {
if (is_month_ok(i)) int m = (i > 12) ? 13 : i;
if (is_month_ok(m) || m == 13)
{ {
const int row = (i/step) - 1; const int row = (i/step) - 1;
if (!look_lim(i)) if (!look_lim(m))
{ {
sh.set_row_cell(S_MESE, itoname(i), row); sh.set_row_cell(S_MESE, itoname(i), row);
sh.disable_cell(row, -1); sh.disable_cell(row, -1);
@ -1658,7 +1667,7 @@ void Visliq_app::read_general(TMask& m)
real r0 = _lim->get_real("R0"); real r0 = _lim->get_real("R0");
const TString debcred3 = r0 == ZERO ? "" : (r0 > ZERO ? "D" : "C"); const TString debcred3 = r0 == ZERO ? "" : (r0 > ZERO ? "D" : "C");
sh.set_row_cell(S_MESE, itoname(i), row); sh.set_row_cell(S_MESE, itoname(m), row);
sh.set_row_cell(S_IVA, abs(r0), row); sh.set_row_cell(S_IVA, abs(r0), row);
sh.set_row_cell(S_DEBCRED3, debcred3, row); sh.set_row_cell(S_DEBCRED3, debcred3, row);
sh.set_row_cell(S_RISULTATO, abs(ris), row); sh.set_row_cell(S_RISULTATO, abs(ris), row);
@ -1713,6 +1722,7 @@ void Visliq_app::read_general(TMask& m)
real interessi[13]; real interessi[13];
TDate date[13]; TDate date[13];
TToken_string banche[13]; TToken_string banche[13];
bool stampato[13];
for (_del->first(); !_del->eof(); _del->next()) for (_del->first(); !_del->eof(); _del->next())
{ {
@ -1738,6 +1748,7 @@ void Visliq_app::read_general(TMask& m)
b.add(_del->get("S7"), 0); b.add(_del->get("S7"), 0);
b.add(_del->get("S8"), 1); b.add(_del->get("S8"), 1);
b.add(_del->get("S9"), 2); b.add(_del->get("S9"), 2);
stampato[m - 1] = _del->get_bool("B0");
} }
} }
} }
@ -1764,9 +1775,10 @@ void Visliq_app::read_general(TMask& m)
sv.set_row_cell(S_CONC, banche[i - 1].get(2), row); // concessionaria sv.set_row_cell(S_CONC, banche[i - 1].get(2), row); // concessionaria
sv.set_row_cell(S_VERSAMENTO, versamenti[i - 1], row);// versamenti sv.set_row_cell(S_VERSAMENTO, versamenti[i - 1], row);// versamenti
sv.set_row_cell(S_INTERESSI, interessi[i - 1], row);// interessi sv.set_row_cell(S_INTERESSI, interessi[i - 1], row);// interessi
sv.set_row_cell(S_STAMPATO, stampato[i - 1], row);// stampato
if (i == 12) // if (i == 12)
sv.disable_cell(sv.items() - 1, -1); // sv.disable_cell(11, cid2index(S_INTERESSI));
} }
sv.force_update(); sv.force_update();
@ -1802,14 +1814,17 @@ void Visliq_app::write_general(TMask& m)
else else
cr_res = rstart; cr_res = rstart;
const int row_acc = freq_ver_IVA() == "M" ? 11 : 3;
// indicatore ricalcolo crediti e debiti OK // indicatore ricalcolo crediti e debiti OK
int step = _freqviva == "M" ? 1 : 3; int step = freq_ver_IVA() == "M" ? 1 : 3;
bool carry = true; bool carry = true;
bool was_lim; bool was_lim;
TMask& shm = sh.sheet_mask(); TMask& shm = sh.sheet_mask();
TMask& svm = sv.sheet_mask(); TMask& svm = sv.sheet_mask();
int last_month = freq_ver_IVA() == "M" ? 14 : 16;
for (int i = step; i < 13; i += step) for (int i = step; i < last_month; i += step)
{ {
// this is a true bordel // this is a true bordel
const int row = (i/step) - 1; const int row = (i/step) - 1;
@ -1826,8 +1841,9 @@ void Visliq_app::write_general(TMask& m)
sh.set_row_cell(101 + i, shm.get(101+i), row); sh.set_row_cell(101 + i, shm.get(101+i), row);
// saltare una riga se dicembre (riga 11 == acconto) // saltare una riga se dicembre (riga 11 == acconto)
TToken_string& tt_vo = (TToken_string&)_vers_rows[i == 12 ? row + 1 : row]; // int sv_row = i == 12 ? row + 1 : row;
TToken_string& tt_vn = sv.row(i == 12 ? row + 1 : row); TToken_string& tt_vo = (TToken_string&)_vers_rows[row];
TToken_string& tt_vn = sv.row(row);
if (vfrommask) if (vfrommask)
{ {
@ -1850,6 +1866,8 @@ void Visliq_app::write_general(TMask& m)
real overs(tt_vo.get(cid2index(S_VERSAMENTO))); real overs(tt_vo.get(cid2index(S_VERSAMENTO)));
real nvers(sv.get_real_row_cell(row, S_VERSAMENTO)); real nvers(sv.get_real_row_cell(row, S_VERSAMENTO));
real oint(tt_vo.get(cid2index(S_INTERESSI)));
real nint(sv.get_real_row_cell(row, S_INTERESSI));
TDate odate(tt_vo.get(cid2index(S_DATA))); TDate odate(tt_vo.get(cid2index(S_DATA)));
TDate ndate(sv.get_date_row_cell(row, S_DATA)); TDate ndate(sv.get_date_row_cell(row, S_DATA));
TString8 oabi(tt_vo.get(cid2index(S_ABI))); TString8 oabi(tt_vo.get(cid2index(S_ABI)));
@ -1858,45 +1876,45 @@ void Visliq_app::write_general(TMask& m)
TString8 ncab(sv.get_str_row_cell(row, S_CAB)); TString8 ncab(sv.get_str_row_cell(row, S_CAB));
TString ocon(tt_vo.get(cid2index(S_CONC))); TString ocon(tt_vo.get(cid2index(S_CONC)));
TString ncon(sv.get_str_row_cell(row, S_CONC)); TString ncon(sv.get_str_row_cell(row, S_CONC));
bool osta(tt_vo.get_bool(cid2index(S_STAMPATO)));
bool nsta(sv.get_bool_row_cell(row, S_STAMPATO));
if (odbcr == "C") orett = -orett; if (odbcr == "C") orett = -orett;
if (ndbcr == "C") nrett = -nrett; if (ndbcr == "C") nrett = -nrett;
// acconto (si considererà solo a dicembre) // acconto (si considererà solo a dicembre)
TToken_string& vo = (TToken_string&)_vers_rows[_freqviva == "M" ? 11 : 3];
const int row_acc = _freqviva == "M" ? 11 : 3;
real oacct(tt_vo.get(cid2index(S_VERSAMENTO)));
real nacct(sv.get_real_row_cell(row_acc, S_VERSAMENTO));
TDate aodate(tt_vo.get(cid2index(S_DATA)));
TDate andate(sv.get_date_row_cell(row_acc, S_DATA));
TString8 aoabi(tt_vo.get(cid2index(S_ABI)));
TString8 anabi(sv.get_str_row_cell(row_acc, S_ABI));
TString8 aocab(tt_vo.get(cid2index(S_CAB)));
TString8 ancab(sv.get_str_row_cell(row_acc, S_CAB));
TString aocon(tt_vo.get(cid2index(S_CONC)));
TString ancon(sv.get_str_row_cell(row_acc, S_CONC));
was_lim = look_lim(i); was_lim = look_lim(i);
if (!was_lim) if (!was_lim)
carry = false; // blocca riporto crediti e debiti carry = false; // blocca riporto crediti e debiti
// ricalcola crediti e debiti se non ci sono // ricalcola crediti e debiti se non ci sono
// liquidazioni non calcolate in mezzo // non calcolate in mezzo
if (carry) if (carry)
{ {
bool rt_mod = false, rm_mod = false, vr_mod = false;
real risl = _lim->get_real("R0"); real risl = _lim->get_real("R0");
real vers = _lim->get_real("R8"); real vers = _lim->get_real("R8");
real risc = _lim->get_real("R12"); real risc = _lim->get_real("R12");
real risd = _lim->get_real("R13"); real risd = _lim->get_real("R13");
if (row == row_acc)
{
// ricalcola acconto se occorre // ricalcola acconto se occorre
// e crea/aggiorna la delega // e crea/aggiorna la delega
if (i == 12) TToken_string& vo = (TToken_string&)_vers_rows[_freqviva == "M" ? 11 : 3];
{ real oacct(vo.get(cid2index(S_VERSAMENTO)));
bool ac_mod = false; real nacct(sv.get_real_row_cell(row_acc, S_VERSAMENTO));
TDate aodate(vo.get(cid2index(S_DATA)));
TDate andate(sv.get_date_row_cell(row_acc, S_DATA));
TString8 aoabi(vo.get(cid2index(S_ABI)));
TString8 anabi(sv.get_str_row_cell(row_acc, S_ABI));
TString8 aocab(vo.get(cid2index(S_CAB)));
TString8 ancab(sv.get_str_row_cell(row_acc, S_CAB));
TString aocon(vo.get(cid2index(S_CONC)));
TString ancon(sv.get_str_row_cell(row_acc, S_CONC));
bool aosta(vo.get_bool(cid2index(S_STAMPATO)));
bool ansta(sv.get_bool_row_cell(row_acc, S_STAMPATO));
if (oacct != nacct) if (oacct != nacct)
{ {
risc -= oacct; risc -= oacct;
@ -1904,38 +1922,42 @@ void Visliq_app::write_general(TMask& m)
risl += oacct; risl += oacct;
risl -= nacct; risl -= nacct;
_lim->put("R11", nacct); _lim->put("R11", nacct);
ac_mod = true;
} }
if (ndate != odate || anabi != aoabi || ancab != aocab || ancon != aocon) if (oacct != nacct || nint != oint || ndate != odate || anabi != aoabi || ancab != aocab || ancon != aocon || aosta != ansta)
ac_mod = true;
// write delega acconto
if (ac_mod)
{ {
look_del(12,7,true); look_del(12, 7, true);
_del->put("R0",nacct); _del->put("D0", andate);
_del->put("R1",""); _del->put("B0", ansta);
_del->put("S7",anabi); _del->put("R0", nacct);
_del->put("S8",ancab); _del->zero("R1");
_del->put("S9",ancon); _del->put("S7", anabi);
_del->put("S6","6013"); _del->put("S8", ancab);
_del->put("S9", ancon);
_del->put("S6", "6013");
_del->put("R1", nint);
_del->put("B0", nsta);
_del->rewrite(); _del->rewrite();
} }
} }
else
{
// ricalcola versamenti se occorre // ricalcola versamenti se occorre
// e crea/aggiorna le deleghe // e crea/aggiorna le deleghe
if (nvers != overs)
vr_mod = true;
if (vr_mod || ndate != odate || nabi != oabi || ncab != ocab || ncon != ocon) if (nvers != overs || nint != oint|| ndate != odate || nabi != oabi || ncab != ocab || ncon != ocon || osta != nsta)
{ {
_lim->put("R8", nvers); _lim->put("R8", nvers);
real percint = (nint / (nvers - nint)) * CENTO;
percint.round(2);
_lim->put("R10", percint);
_lim->put("D0", ndate); _lim->put("D0", ndate);
_lim->put("S4", nabi); _lim->put("S4", nabi);
_lim->put("S5", ncab); _lim->put("S5", ncab);
_lim->put("S6", ncon); _lim->put("S6", ncon);
write_del(nvers); write_del(nvers, nint, nsta);
vr_mod = true; }
} }
// se modificate rettifiche // se modificate rettifiche

4
src/cg/cg5500.h
View File

@ -68,6 +68,7 @@ protected:
static bool sheet_action(TSheet_field& s, int r, KEY k); static bool sheet_action(TSheet_field& s, int r, KEY k);
static bool vers_action(TSheet_field& s, int r, KEY k); static bool vers_action(TSheet_field& s, int r, KEY k);
virtual void print(); virtual void print();
public: public:
@ -86,10 +87,11 @@ public:
void read_general(TMask& m); void read_general(TMask& m);
void write_general(TMask& m); void write_general(TMask& m);
void write_liq(); void write_liq();
void write_del(const real &v = ZERO); void write_del(const real &v = ZERO, const real &i = ZERO, bool stampato = false);
void set_freqviva(); void set_freqviva();
void set_freqviva(const char* f) { _freqviva = f; } void set_freqviva(const char* f) { _freqviva = f; }
const TString & freq_ver_IVA() const { return _freqviva; }
void set_mask_freq(TMask&); void set_mask_freq(TMask&);
void set_year(const char* y) { _year = atoi(y); } void set_year(const char* y) { _year = atoi(y); }
void set_year(int y) { _year = y; } void set_year(int y) { _year = y; }

1
src/cg/cg5500a.h
View File

@ -56,3 +56,4 @@
#define S_CONC 105 #define S_CONC 105
#define S_VERSAMENTO 106 #define S_VERSAMENTO 106
#define S_INTERESSI 107 #define S_INTERESSI 107
#define S_STAMPATO 108

79
src/cg/cg5500b.uml
View File

@ -109,6 +109,7 @@ BEGIN
ITEM "Conc.@5" ITEM "Conc.@5"
ITEM "Versamenti@15" ITEM "Versamenti@15"
ITEM "Interessi@15" ITEM "Interessi@15"
ITEM "Stampato"
END END
ENDPAGE ENDPAGE
@ -120,7 +121,7 @@ TOOLBAR "topbar" 0 0 0 2
ENDPAGE ENDPAGE
PAGE "Prospetto mensile" -1 -1 75 22 PAGE "Prospetto mensile" -1 -1 -1 -1
STRING S_MESE 20 STRING S_MESE 20
BEGIN BEGIN
@ -129,13 +130,13 @@ BEGIN
END END
CURRENCY S_RISULTATO 15 CURRENCY S_IVA 15
BEGIN BEGIN
PROMPT 1 2 "Risultato " PROMPT 1 2 "IVA dovuta o credito "
FLAGS "D" FLAGS "D"
END END
LIST S_DEBCRED1 1 10 LIST S_DEBCRED3 1 10
BEGIN BEGIN
PROMPT 57 2 "" PROMPT 57 2 ""
ITEM " | " ITEM " | "
@ -144,22 +145,37 @@ BEGIN
FLAGS "DU" FLAGS "DU"
END END
CURRENCY S_RISULTATO 15
BEGIN
PROMPT 1 3 "Risultato "
FLAGS "D"
END
LIST S_DEBCRED1 1 10
BEGIN
PROMPT 57 3 ""
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
FLAGS "DU"
END
CURRENCY S_RIMBORSO 15 CURRENCY S_RIMBORSO 15
BEGIN BEGIN
PROMPT 1 3 "IVA rimborso " PROMPT 1 4 "IVA rimborso "
PICTURE "." PICTURE "."
GROUP 11 GROUP 11
END END
CURRENCY S_RETTIFICHE 15 CURRENCY S_RETTIFICHE 15
BEGIN BEGIN
PROMPT 1 4 "IVA rettifiche " PROMPT 1 5 "IVA rettifiche "
GROUP 11 GROUP 11
END END
LIST S_DEBCRED2 1 10 LIST S_DEBCRED2 1 10
BEGIN BEGIN
PROMPT 57 4 "" PROMPT 57 5 ""
ITEM " | " ITEM " | "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
@ -169,28 +185,28 @@ END
CURRENCY S_CREDIVA 15 CURRENCY S_CREDIVA 15
BEGIN BEGIN
PROMPT 1 5 "Credito utilizzato IVA " PROMPT 1 6 "Credito utilizzato IVA "
FLAGS "D" FLAGS "D"
GROUP 12 GROUP 12
END END
CURRENCY S_CREDF24PRE 15 CURRENCY S_CREDF24PRE 15
BEGIN BEGIN
PROMPT 1 6 "Credito utilizzato F24 anno precedente " PROMPT 1 7 "Credito utilizzato F24 anno precedente "
GROUP 12 GROUP 12
FLAGS "D" FLAGS "D"
END END
CURRENCY S_CREDF24 15 CURRENCY S_CREDF24 15
BEGIN BEGIN
PROMPT 1 7 "Credito autorizzato F24 anno in corso " PROMPT 1 8 "Credito autorizzato F24 anno in corso "
GROUP 12 GROUP 12
FLAGS "D" FLAGS "D"
END END
DATE S_DATAAUT DATE S_DATAAUT
BEGIN BEGIN
PROMPT 1 8 "Data di autorizzazione " PROMPT 1 9 "Data di autorizzazione "
GROUP 12 GROUP 12
CHECTYPE REQUIRED CHECTYPE REQUIRED
WARNING "La data è obbligatoria" WARNING "La data è obbligatoria"
@ -199,27 +215,11 @@ END
CURRENCY S_CREDRES 15 CURRENCY S_CREDRES 15
BEGIN BEGIN
PROMPT 1 9 "Credito IVA residuo " PROMPT 1 10 "Credito IVA residuo "
FLAGS "D" FLAGS "D"
GROUP 12 GROUP 12
END END
CURRENCY S_IVA 15
BEGIN
PROMPT 1 10 "IVA dovuta o credito "
FLAGS "D"
GROUP 12
END
LIST S_DEBCRED3 1 10
BEGIN
PROMPT 57 10 ""
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
FLAGS "UD"
GROUP 11
END
STRING S_DESCR 50 35 STRING S_DESCR 50 35
BEGIN BEGIN
@ -230,7 +230,7 @@ END
BUTTON 100 10 2 BUTTON 100 10 2
BEGIN BEGIN
PROMPT -11 -1 "Dettaglio" PROMPT -11 -2 "<D>ettaglio"
END END
ENDPAGE ENDPAGE
@ -242,7 +242,7 @@ TOOLBAR "topbar" 0 0 0 2
ENDPAGE ENDPAGE
PAGE "Prospetto versamenti" -1 -1 50 12 PAGE "Prospetto versamenti" -1 -1 -1 -1
STRING S_MESE 20 STRING S_MESE 20
BEGIN BEGIN
@ -314,12 +314,27 @@ END
CURRENCY S_INTERESSI 15 CURRENCY S_INTERESSI 15
BEGIN BEGIN
PROMPT 1 7 "Interessi " PROMPT 1 7 "Interessi "
FLAGS "RD" FLAGS "R"
END
BOOLEAN S_STAMPATO
BEGIN
PROMPT 1 8 "Stampato"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -2 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -2 ""
END END
BUTTON 100 10 2 BUTTON 100 10 2
BEGIN BEGIN
PROMPT -11 -1 "Dettaglio" PROMPT -11 -2 "<D>ettaglio"
END END
ENDPAGE ENDPAGE

113
src/cg/cg5500c.uml
View File

@ -58,10 +58,12 @@ BEGIN
PROMPT 1 6 "Credito utilizzato a Gennaio " PROMPT 1 6 "Credito utilizzato a Gennaio "
END END
SPREADSHEET F_VISLIQ1 -2 7 SPREADSHEET F_VISLIQ1 -2 -1
BEGIN BEGIN
PROMPT 0 7 "Liquidazione" PROMPT 0 7 "Liquidazione"
ITEM "Mese@10" ITEM "Mese@10"
ITEM "IVA dovuta o\na credito@15"
ITEM "D/C@3"
ITEM "Risultato@15" ITEM "Risultato@15"
ITEM "D/C@3" ITEM "D/C@3"
ITEM "IVA rimborso@15" ITEM "IVA rimborso@15"
@ -78,56 +80,72 @@ END
SPREADSHEET F_VISLIQ2 -2 7 SPREADSHEET F_VISLIQ2 -2 7
BEGIN BEGIN
PROMPT 0 16 "Versamenti" PROMPT 0 16 "Versamenti"
ITEM "Mese@10" ITEM "Mese@15"
ITEM "Data@10" ITEM "Data@10"
ITEM "ABI@5" ITEM "ABI@5"
ITEM "CAB@5" ITEM "CAB@5"
ITEM "Conc.@5" ITEM "Conc.@5"
ITEM "Versamenti@15" ITEM "Versamenti@15"
ITEM "Interessi@15" ITEM "Interessi@15"
ITEM "Stampato"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto mensile" -1 -1 50 10 PAGE "Prospetto mensile" -1 -1 -1 -1
STRING 101 20 STRING S_MESE 20
BEGIN BEGIN
PROMPT 1 1 "Mese " PROMPT 1 1 "Mese "
FLAGS "D" FLAGS "D"
END END
CURRENCY 102 15 CURRENCY S_IVA 15
BEGIN BEGIN
PROMPT 1 2 "Risultato " PROMPT 1 2 "IVA dovuta o credito "
FLAGS "D" FLAGS "D"
END END
LIST 103 1 10 LIST S_DEBCRED3 1 10
BEGIN BEGIN
PROMPT 35 2 "" PROMPT 57 2 ""
ITEM " | " ITEM " | "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
FLAGS "DU" FLAGS "DU"
END END
CURRENCY 104 15 CURRENCY S_RISULTATO 15
BEGIN BEGIN
PROMPT 1 3 "IVA rimborso " PROMPT 1 3 "Risultato "
FLAGS "D"
END
LIST S_DEBCRED1 1 10
BEGIN
PROMPT 57 3 ""
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
FLAGS "DU"
END
CURRENCY S_RIMBORSO 15
BEGIN
PROMPT 1 4 "IVA rimborso "
GROUP 11 GROUP 11
END END
CURRENCY 105 15 CURRENCY S_RETTIFICHE 15
BEGIN BEGIN
PROMPT 1 4 "IVA rettifiche " PROMPT 1 5 "IVA rettifiche "
GROUP 11 GROUP 11
END END
LIST 106 1 10 LIST S_DEBCRED2 1 10
BEGIN BEGIN
PROMPT 35 4 "" PROMPT 57 5 ""
ITEM " | " ITEM " | "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
@ -135,80 +153,80 @@ BEGIN
GROUP 11 GROUP 11
END END
CURRENCY 107 15 CURRENCY S_CREDIVA 15
BEGIN BEGIN
PROMPT 1 3 "Credito utilizzato IVA " PROMPT 1 6 "Credito utilizzato IVA "
FLAGS "D" FLAGS "D"
GROUP 12 GROUP 12
END END
CURRENCY 108 15 CURRENCY S_CREDF24PRE 15
BEGIN BEGIN
PROMPT 1 4 "Credito utilizzato F24 " PROMPT 1 7 "Credito utilizzato F24 "
GROUP 12 GROUP 12
END END
CURRENCY 109 15 CURRENCY S_CREDF24 15
BEGIN BEGIN
PROMPT 1 7 "Credito autorizzato F24 anno in corso " PROMPT 1 8 "Credito autorizzato F24 anno in corso "
GROUP 12 GROUP 12
FLAGS "D" FLAGS "D"
END END
DATE 110 DATE S_DATAAUT
BEGIN BEGIN
PROMPT 1 8 "Data di autorizzazione " PROMPT 1 9 "Data di autorizzazione "
GROUP 12 GROUP 12
CHECTYPE REQUIRED CHECTYPE REQUIRED
WARNING "La data è obbligatoria" WARNING "La data è obbligatoria"
FLAGS "D" FLAGS "D"
END END
CURRENCY 111 15 CURRENCY S_CREDRES 15
BEGIN BEGIN
PROMPT 1 5 "Credito IVA residuo " PROMPT 1 10 "Credito IVA residuo "
FLAGS "D" FLAGS "D"
GROUP 12 GROUP 12
END END
STRING 112 50 35 STRING S_DESCR 50 35
BEGIN BEGIN
PROMPT 1 6 "Descr. " PROMPT 1 11 "Descr. "
GROUP 12 GROUP 12
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -2 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -2 ""
END END
BUTTON 100 10 2 BUTTON 100 10 2
BEGIN BEGIN
PROMPT -33 -1 "Dettaglio" PROMPT -33 -2 "<D>ettaglio"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto versamenti" -1 -1 50 12 PAGE "Prospetto versamenti" -1 -1 -1 -1
STRING 101 20 STRING S_MESE 20
BEGIN BEGIN
PROMPT 1 1 "Mese " PROMPT 1 1 "Mese "
FLAGS "D" FLAGS "D"
END END
DATE 102 DATE S_DATA
BEGIN BEGIN
PROMPT 1 2 "Data " PROMPT 1 2 "Data "
END END
NUMBER 103 5 NUMBER S_ABI 5
BEGIN BEGIN
PROMPT 1 3 "Codice ABI " PROMPT 1 3 "Codice ABI "
HELP "Codice ABI banca di appoggio" HELP "Codice ABI banca di appoggio"
@ -224,8 +242,7 @@ BEGIN
WARNING "Codice ABI assente" WARNING "Codice ABI assente"
END END
NUMBER S_CAB 5
NUMBER 104 5
BEGIN BEGIN
PROMPT 1 4 "Codice CAB " PROMPT 1 4 "Codice CAB "
HELP "Codice CAB banca di appoggio" HELP "Codice CAB banca di appoggio"
@ -244,42 +261,44 @@ BEGIN
WARNING "Banca assente" WARNING "Banca assente"
END END
NUMBER S_CONC 3
NUMBER 105 3
BEGIN BEGIN
PROMPT 1 5 "Concessione " PROMPT 1 5 "Concessione "
HELP "Codice Concessione del Comune di residenza fiscale" HELP "Codice Concessione del Comune di residenza fiscale"
// FIELD S9
FLAGS "RZ" FLAGS "RZ"
END END
CURRENCY S_VERSAMENTO 15
CURRENCY 106 15
BEGIN BEGIN
PROMPT 1 6 "Versamenti " PROMPT 1 6 "Versamenti "
FLAGS "R" FLAGS "R"
END END
CURRENCY 107 15 CURRENCY S_INTERESSI 15
BEGIN BEGIN
PROMPT 1 6 "Interessi " PROMPT 1 7 "Interessi "
FLAGS "RD" FLAGS "R"
END
BOOLEAN S_STAMPATO
BEGIN
PROMPT 1 8 "Stampato"
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -2 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -2 ""
END END
BUTTON 100 10 2 BUTTON 100 10 2
BEGIN BEGIN
PROMPT -33 -1 "Dettaglio" PROMPT -33 -2 "<D>ettaglio"
// FLAGS "H"
END END
ENDPAGE ENDPAGE