From c386fb1262cf6a730edbdc8febcf4f51e66200bc Mon Sep 17 00:00:00 2001 From: Alessandro Bonazzi Date: Thu, 6 Feb 2020 22:45:08 +0100 Subject: [PATCH] Patch level : 12.0 938 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. --- src/cg/cg5500.cpp | 332 ++++++++++++++++++++++++--------------------- src/cg/cg5500.h | 6 +- src/cg/cg5500a.h | 1 + src/cg/cg5500b.uml | 87 +++++++----- src/cg/cg5500c.uml | 115 +++++++++------- 5 files changed, 300 insertions(+), 241 deletions(-) diff --git a/src/cg/cg5500.cpp b/src/cg/cg5500.cpp index 1d2a3cd18..9c340935a 100755 --- a/src/cg/cg5500.cpp +++ b/src/cg/cg5500.cpp @@ -382,70 +382,73 @@ bool Visliq_app::print_handler(TMask_field& f, KEY k) bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k) { - if (k != K_SPACE) return true; - - TMask& m = *(app().get_main_mask()); - TSheet_field& sh = m.sfield(F_VISLIQ1); - TSheet_field& sv = m.sfield(F_VISLIQ2); - int sel = sh.selected(); - int month = sh.selected()+1; - TToken_string& tt = sh.row(sh.selected()); - TMask& sm = sh.sheet_mask(); + if (k == K_SPACE) + { + TMask& m = *(app().get_main_mask()); + TSheet_field& sh = m.sfield(F_VISLIQ1); + TSheet_field& sv = m.sfield(F_VISLIQ2); + int sel = sh.selected(); + int month = sh.selected() + 1; + TToken_string& tt = sh.row(sh.selected()); + TMask& sm = sh.sheet_mask(); - if (sh.items() == 4) - month *= 3; - - if (sm.is_running() && !sm.stop_run(K_ENTER)) - return true; - - bool ok = true; - - //if (m.dirty() || sh.sheet_mask().dirty()) - if (m.field(F_CREDPREC).dirty() || app()._sh_dirty || app()._sv_dirty || sm.dirty()) - { - KEY k = yesnocancel_box(TR("Registrare le modifiche effettuate?")); - if (k == K_YES) - app().write_general(m); - else if (k == K_NO) - app().read_general(m); - ok = (k == K_YES || k == K_NO); - } + if (sh.items() == 5) + month *= 3; + + if (month >13) + month = 13; + + if (sm.is_running() && !sm.stop_run(K_ENTER)) + return true; + + bool ok = true; + + //if (m.dirty() || sh.sheet_mask().dirty()) + if (m.field(F_CREDPREC).dirty() || app()._sh_dirty || app()._sv_dirty || sm.dirty()) + { + KEY k = yesnocancel_box(TR("Registrare le modifiche effettuate?")); + if (k == K_YES) + app().write_general(m); + else if (k == K_NO) + app().read_general(m); + ok = (k == K_YES || k == K_NO); + } - if (ok) - { - app().vis_one(month); - app().read_general(m); - } - - app().set_liq_rows(sh); - - if (sm.is_running()) - { - // TBC controllare se sono i dati giusti in tt - sm.field(S_RISULTATO).set(tt.get(cid2index(S_RISULTATO))); - sm.field(S_DEBCRED1 ).set(tt.get(cid2index(S_DEBCRED1))); - sm.field(S_RIMBORSO).set(tt.get(cid2index(S_RIMBORSO))); - sm.field(S_RETTIFICHE).set(tt.get(cid2index(S_RETTIFICHE))); - sm.field(S_DEBCRED2).set(tt.get(cid2index(S_DEBCRED2))); - } - - sh.row(sel) = tt; - - sh.force_update(sel); + if (ok) + { + app().vis_one(month); + app().read_general(m); + } - if (app().look_del(month,1)) - { - const int nrow = sel == (sh.items() - 1) ? sel - 1 : sel; + app().set_liq_rows(sh); - 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_CAB, app().del()->get("S8"),nrow); - sv.set_row_cell(S_CONC, app().del()->get("S9"),nrow); - sv.set_row_cell(S_VERSAMENTO, app().del()->get("R0"), nrow); - sv.force_update(nrow); - } - + if (sm.is_running()) + { + // TBC controllare se sono i dati giusti in tt + sm.field(S_RISULTATO).set(tt.get(cid2index(S_RISULTATO))); + sm.field(S_DEBCRED1).set(tt.get(cid2index(S_DEBCRED1))); + sm.field(S_RIMBORSO).set(tt.get(cid2index(S_RIMBORSO))); + sm.field(S_RETTIFICHE).set(tt.get(cid2index(S_RETTIFICHE))); + sm.field(S_DEBCRED2).set(tt.get(cid2index(S_DEBCRED2))); + } + + sh.row(sel) = tt; + + sh.force_update(sel); + + if (app().look_del(month, 1)) + { + 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_ABI, app().del()->get("S7"), 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_VERSAMENTO, app().del()->get("R0"), nrow); + sv.force_update(nrow); + } + } return true; } @@ -471,8 +474,16 @@ bool Visliq_app::check_date(TMask_field& f, KEY k) if (d.year() != app().year()) return f.error_box(FR("L'anno deve essere %d"), app().year()); - if (d.month() != row + 1) - return f.error_box(FR("Il mese deve essere %s"), itom(row + 1)); + if (app()._freqviva == "M") + { + if (d.month() != 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; } @@ -487,12 +498,11 @@ bool Visliq_app::sel_mese_sh2 (TMask_field& f, KEY k) int month = sh.selected()+1; if (sh.items() < 12) month *= 3; + if (month > 13) + month = 13; TMask& sv = sh.sheet_mask(); - // click su acconto - if (month > 12) return true; - if (sv.is_running() && !sv.stop_run(K_ENTER)) return true; @@ -1557,7 +1567,7 @@ void Visliq_app::write_liq() _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; @@ -1568,33 +1578,28 @@ void Visliq_app::write_del(const real& v) TDate date(_lim->get("D0")); real vers = v; - if (vers == ZERO) - vers = _lim->get_real("R8"); - real intr(_lim->get_real("R10")); - - if (vers.is_zero() && (wasdel = look_del(month,1))) + if (vers == ZERO) + vers = _lim->get_real("R8"); + if (vers == ZERO && (wasdel = look_del(month,1))) { _del->remove(); - //_del->rewrite(); // ??? return; } if (!wasdel) look_del(month,1,true); // Crea delega - real inter; + real inter = i; - if (!intr.is_zero()) + if (i == ZERO) { - // riapplica il tasso di interesse - // se trimestrale e' stato scorporato rispetto all'eventuale input utente - TExchange c; - real vers_netto = vers * CENTO / (intr + CENTO); + real percint = _lim->get_real("R10"); + + // riapplica il tasso di interesse + // se trimestrale e' stato scorporato rispetto all'eventuale input utente + inter = vers - (vers * CENTO / (percint + CENTO)); - vers_netto.round(c.decimals()); - inter = vers - vers_netto; round_imposta(inter); - vers = vers_netto + inter; } _del->put("R0",vers); @@ -1603,7 +1608,7 @@ void Visliq_app::write_del(const real& v) _del->put("S7",abi); _del->put("S8",cab); _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); _del->put("S6", ctri); @@ -1636,13 +1641,17 @@ void Visliq_app::read_general(TMask& m) cr_res -= cr_util; + int last_month = freq_ver_IVA() == "M" ? 14 : 16; + // set sheet - for (int i = step; i < 13; i+=step) - { - if (is_month_ok(i)) + for (int i = step; i < last_month; i+=step) + { + int m = (i > 12) ? 13 : i; + + if (is_month_ok(m) || m == 13) { const int row = (i/step) - 1; - if (!look_lim(i)) + if (!look_lim(m)) { sh.set_row_cell(S_MESE, itoname(i), row); sh.disable_cell(row, -1); @@ -1658,7 +1667,7 @@ void Visliq_app::read_general(TMask& m) real r0 = _lim->get_real("R0"); 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_DEBCRED3, debcred3, row); sh.set_row_cell(S_RISULTATO, abs(ris), row); @@ -1713,7 +1722,8 @@ void Visliq_app::read_general(TMask& m) real interessi[13]; TDate date[13]; TToken_string banche[13]; - + bool stampato[13]; + for (_del->first(); !_del->eof(); _del->next()) { if (atol(*_del_ditta) == get_firm() && atoi(*_del_anno) == _year) @@ -1738,6 +1748,7 @@ void Visliq_app::read_general(TMask& m) b.add(_del->get("S7"), 0); b.add(_del->get("S8"), 1); 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_VERSAMENTO, versamenti[i - 1], row);// versamenti 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) - sv.disable_cell(sv.items() - 1, -1); +// if (i == 12) +// sv.disable_cell(11, cid2index(S_INTERESSI)); } sv.force_update(); @@ -1802,14 +1814,17 @@ void Visliq_app::write_general(TMask& m) else cr_res = rstart; - // indicatore ricalcolo crediti e debiti OK - int step = _freqviva == "M" ? 1 : 3; + const int row_acc = freq_ver_IVA() == "M" ? 11 : 3; + + // indicatore ricalcolo crediti e debiti OK + int step = freq_ver_IVA() == "M" ? 1 : 3; bool carry = true; bool was_lim; TMask& shm = sh.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 const int row = (i/step) - 1; @@ -1825,9 +1840,10 @@ void Visliq_app::write_general(TMask& m) for (int i = 1; i <= 13; i++) sh.set_row_cell(101 + i, shm.get(101+i), row); - // saltare una riga se dicembre (riga 11 == acconto) - TToken_string& tt_vo = (TToken_string&)_vers_rows[i == 12 ? row + 1 : row]; - TToken_string& tt_vn = sv.row(i == 12 ? row + 1 : row); + // saltare una riga se dicembre (riga 11 == acconto) + // int 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) { @@ -1850,6 +1866,8 @@ void Visliq_app::write_general(TMask& m) real overs(tt_vo.get(cid2index(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 ndate(sv.get_date_row_cell(row, S_DATA)); TString8 oabi(tt_vo.get(cid2index(S_ABI))); @@ -1858,85 +1876,89 @@ void Visliq_app::write_general(TMask& m) TString8 ncab(sv.get_str_row_cell(row, S_CAB)); TString ocon(tt_vo.get(cid2index(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 (ndbcr == "C") nrett = -nrett; // 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); if (!was_lim) carry = false; // blocca riporto crediti e debiti // ricalcola crediti e debiti se non ci sono - // liquidazioni non calcolate in mezzo + // non calcolate in mezzo if (carry) { - bool rt_mod = false, rm_mod = false, vr_mod = false; - real risl = _lim->get_real("R0"); real vers = _lim->get_real("R8"); real risc = _lim->get_real("R12"); real risd = _lim->get_real("R13"); - // ricalcola acconto se occorre - // e crea/aggiorna la delega - if (i == 12) - { - bool ac_mod = false; - if (oacct != nacct) - { - risc -= oacct; - risc += nacct; - risl += oacct; - risl -= nacct; - _lim->put("R11", nacct); - ac_mod = true; - } - if (ndate != odate || anabi != aoabi || ancab != aocab || ancon != aocon) - ac_mod = true; - // write delega acconto - if (ac_mod) - { - look_del(12,7,true); - _del->put("R0",nacct); - _del->put("R1",""); - _del->put("S7",anabi); - _del->put("S8",ancab); - _del->put("S9",ancon); - _del->put("S6","6013"); - _del->rewrite(); - } - } - - // ricalcola versamenti se occorre - // e crea/aggiorna le deleghe - if (nvers != overs) - vr_mod = true; + if (row == row_acc) + { + // ricalcola acconto se occorre + // e crea/aggiorna la delega + TToken_string& vo = (TToken_string&)_vers_rows[_freqviva == "M" ? 11 : 3]; + real oacct(vo.get(cid2index(S_VERSAMENTO))); + 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 (vr_mod || ndate != odate || nabi != oabi || ncab != ocab || ncon != ocon) - { - _lim->put("R8", nvers); - _lim->put("D0", ndate); - _lim->put("S4", nabi); - _lim->put("S5", ncab); - _lim->put("S6", ncon); - write_del(nvers); - vr_mod = true; - } + if (oacct != nacct) + { + risc -= oacct; + risc += nacct; + risl += oacct; + risl -= nacct; + _lim->put("R11", nacct); + } + if (oacct != nacct || nint != oint || ndate != odate || anabi != aoabi || ancab != aocab || ancon != aocon || aosta != ansta) + { + look_del(12, 7, true); + _del->put("D0", andate); + _del->put("B0", ansta); + _del->put("R0", nacct); + _del->zero("R1"); + _del->put("S7", anabi); + _del->put("S8", ancab); + _del->put("S9", ancon); + _del->put("S6", "6013"); + _del->put("R1", nint); + _del->put("B0", nsta); + _del->rewrite(); + } + } + else + { + // ricalcola versamenti se occorre + // e crea/aggiorna le deleghe + + if (nvers != overs || nint != oint|| ndate != odate || nabi != oabi || ncab != ocab || ncon != ocon || osta != nsta) + { + _lim->put("R8", nvers); + real percint = (nint / (nvers - nint)) * CENTO; + + percint.round(2); + _lim->put("R10", percint); + _lim->put("D0", ndate); + _lim->put("S4", nabi); + _lim->put("S5", ncab); + _lim->put("S6", ncon); + write_del(nvers, nint, nsta); + } + + } // se modificate rettifiche // sistemare diff --git a/src/cg/cg5500.h b/src/cg/cg5500.h index ea310a9b3..3018fc5de 100755 --- a/src/cg/cg5500.h +++ b/src/cg/cg5500.h @@ -68,6 +68,7 @@ protected: static bool sheet_action(TSheet_field& s, int r, KEY k); static bool vers_action(TSheet_field& s, int r, KEY k); + virtual void print(); public: @@ -86,11 +87,12 @@ public: void read_general(TMask& m); void write_general(TMask& m); 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(const char* f) { _freqviva = f; } - void set_mask_freq(TMask&); + const TString & freq_ver_IVA() const { return _freqviva; } + void set_mask_freq(TMask&); void set_year(const char* y) { _year = atoi(y); } void set_year(int y) { _year = y; } void reset_fields(); diff --git a/src/cg/cg5500a.h b/src/cg/cg5500a.h index d213d4576..0e16ffd4b 100755 --- a/src/cg/cg5500a.h +++ b/src/cg/cg5500a.h @@ -56,3 +56,4 @@ #define S_CONC 105 #define S_VERSAMENTO 106 #define S_INTERESSI 107 +#define S_STAMPATO 108 diff --git a/src/cg/cg5500b.uml b/src/cg/cg5500b.uml index 2b2b566ef..705935412 100755 --- a/src/cg/cg5500b.uml +++ b/src/cg/cg5500b.uml @@ -63,8 +63,8 @@ SPREADSHEET F_VISLIQ1 -2 -1 BEGIN PROMPT 0 7 "Liquidazione" ITEM "Mese@10" - ITEM "IVA dovuta o\na credito@15" - ITEM "D/C@3" + ITEM "IVA dovuta o\na credito@15" + ITEM "D/C@3" ITEM "Risultato@15" ITEM "D/C@3" ITEM "IVA rimborso@15" @@ -108,7 +108,8 @@ BEGIN ITEM "CAB@5" ITEM "Conc.@5" ITEM "Versamenti@15" - ITEM "Interessi@15" + ITEM "Interessi@15" + ITEM "Stampato" END ENDPAGE @@ -120,7 +121,7 @@ TOOLBAR "topbar" 0 0 0 2 ENDPAGE -PAGE "Prospetto mensile" -1 -1 75 22 +PAGE "Prospetto mensile" -1 -1 -1 -1 STRING S_MESE 20 BEGIN @@ -129,13 +130,13 @@ BEGIN END -CURRENCY S_RISULTATO 15 +CURRENCY S_IVA 15 BEGIN - PROMPT 1 2 "Risultato " + PROMPT 1 2 "IVA dovuta o credito " FLAGS "D" END -LIST S_DEBCRED1 1 10 +LIST S_DEBCRED3 1 10 BEGIN PROMPT 57 2 "" ITEM " | " @@ -144,22 +145,37 @@ BEGIN FLAGS "DU" 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 BEGIN - PROMPT 1 3 "IVA rimborso " + PROMPT 1 4 "IVA rimborso " PICTURE "." GROUP 11 END CURRENCY S_RETTIFICHE 15 BEGIN - PROMPT 1 4 "IVA rettifiche " + PROMPT 1 5 "IVA rettifiche " GROUP 11 END LIST S_DEBCRED2 1 10 BEGIN - PROMPT 57 4 "" + PROMPT 57 5 "" ITEM " | " ITEM "D|Debito" ITEM "C|Credito" @@ -169,28 +185,28 @@ END CURRENCY S_CREDIVA 15 BEGIN - PROMPT 1 5 "Credito utilizzato IVA " + PROMPT 1 6 "Credito utilizzato IVA " FLAGS "D" GROUP 12 END CURRENCY S_CREDF24PRE 15 BEGIN - PROMPT 1 6 "Credito utilizzato F24 anno precedente " + PROMPT 1 7 "Credito utilizzato F24 anno precedente " GROUP 12 FLAGS "D" END CURRENCY S_CREDF24 15 BEGIN - PROMPT 1 7 "Credito autorizzato F24 anno in corso " + PROMPT 1 8 "Credito autorizzato F24 anno in corso " GROUP 12 FLAGS "D" END DATE S_DATAAUT BEGIN - PROMPT 1 8 "Data di autorizzazione " + PROMPT 1 9 "Data di autorizzazione " GROUP 12 CHECTYPE REQUIRED WARNING "La data è obbligatoria" @@ -199,27 +215,11 @@ END CURRENCY S_CREDRES 15 BEGIN - PROMPT 1 9 "Credito IVA residuo " - FLAGS "D" + PROMPT 1 10 "Credito IVA residuo " + FLAGS "D" GROUP 12 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 BEGIN @@ -230,7 +230,7 @@ END BUTTON 100 10 2 BEGIN - PROMPT -11 -1 "Dettaglio" + PROMPT -11 -2 "ettaglio" END ENDPAGE @@ -242,7 +242,7 @@ TOOLBAR "topbar" 0 0 0 2 ENDPAGE -PAGE "Prospetto versamenti" -1 -1 50 12 +PAGE "Prospetto versamenti" -1 -1 -1 -1 STRING S_MESE 20 BEGIN @@ -314,12 +314,27 @@ END CURRENCY S_INTERESSI 15 BEGIN 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 BUTTON 100 10 2 BEGIN - PROMPT -11 -1 "Dettaglio" + PROMPT -11 -2 "ettaglio" END ENDPAGE diff --git a/src/cg/cg5500c.uml b/src/cg/cg5500c.uml index 04fe5c445..56becf80c 100755 --- a/src/cg/cg5500c.uml +++ b/src/cg/cg5500c.uml @@ -58,10 +58,12 @@ BEGIN PROMPT 1 6 "Credito utilizzato a Gennaio " END -SPREADSHEET F_VISLIQ1 -2 7 +SPREADSHEET F_VISLIQ1 -2 -1 BEGIN PROMPT 0 7 "Liquidazione" ITEM "Mese@10" + ITEM "IVA dovuta o\na credito@15" + ITEM "D/C@3" ITEM "Risultato@15" ITEM "D/C@3" ITEM "IVA rimborso@15" @@ -78,56 +80,72 @@ END SPREADSHEET F_VISLIQ2 -2 7 BEGIN PROMPT 0 16 "Versamenti" - ITEM "Mese@10" + ITEM "Mese@15" ITEM "Data@10" ITEM "ABI@5" ITEM "CAB@5" ITEM "Conc.@5" ITEM "Versamenti@15" - ITEM "Interessi@15" + ITEM "Interessi@15" + ITEM "Stampato" END ENDPAGE ENDMASK -PAGE "Prospetto mensile" -1 -1 50 10 +PAGE "Prospetto mensile" -1 -1 -1 -1 -STRING 101 20 +STRING S_MESE 20 BEGIN PROMPT 1 1 "Mese " FLAGS "D" END -CURRENCY 102 15 +CURRENCY S_IVA 15 BEGIN - PROMPT 1 2 "Risultato " + PROMPT 1 2 "IVA dovuta o credito " FLAGS "D" END -LIST 103 1 10 +LIST S_DEBCRED3 1 10 BEGIN - PROMPT 35 2 "" + PROMPT 57 2 "" ITEM " | " ITEM "D|Debito" ITEM "C|Credito" FLAGS "DU" END -CURRENCY 104 15 +CURRENCY S_RISULTATO 15 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 END -CURRENCY 105 15 +CURRENCY S_RETTIFICHE 15 BEGIN - PROMPT 1 4 "IVA rettifiche " + PROMPT 1 5 "IVA rettifiche " GROUP 11 END -LIST 106 1 10 +LIST S_DEBCRED2 1 10 BEGIN - PROMPT 35 4 "" + PROMPT 57 5 "" ITEM " | " ITEM "D|Debito" ITEM "C|Credito" @@ -135,80 +153,80 @@ BEGIN GROUP 11 END -CURRENCY 107 15 +CURRENCY S_CREDIVA 15 BEGIN - PROMPT 1 3 "Credito utilizzato IVA " + PROMPT 1 6 "Credito utilizzato IVA " FLAGS "D" GROUP 12 END -CURRENCY 108 15 +CURRENCY S_CREDF24PRE 15 BEGIN - PROMPT 1 4 "Credito utilizzato F24 " + PROMPT 1 7 "Credito utilizzato F24 " GROUP 12 END -CURRENCY 109 15 +CURRENCY S_CREDF24 15 BEGIN - PROMPT 1 7 "Credito autorizzato F24 anno in corso " + PROMPT 1 8 "Credito autorizzato F24 anno in corso " GROUP 12 FLAGS "D" END -DATE 110 +DATE S_DATAAUT BEGIN - PROMPT 1 8 "Data di autorizzazione " + PROMPT 1 9 "Data di autorizzazione " GROUP 12 CHECTYPE REQUIRED WARNING "La data è obbligatoria" FLAGS "D" END -CURRENCY 111 15 +CURRENCY S_CREDRES 15 BEGIN - PROMPT 1 5 "Credito IVA residuo " + PROMPT 1 10 "Credito IVA residuo " FLAGS "D" GROUP 12 END -STRING 112 50 35 +STRING S_DESCR 50 35 BEGIN - PROMPT 1 6 "Descr. " + PROMPT 1 11 "Descr. " GROUP 12 END BUTTON DLG_OK 10 2 BEGIN - PROMPT -13 -1 "" + PROMPT -13 -2 "" END BUTTON DLG_CANCEL 10 2 BEGIN - PROMPT -23 -1 "" + PROMPT -23 -2 "" END BUTTON 100 10 2 BEGIN - PROMPT -33 -1 "Dettaglio" + PROMPT -33 -2 "ettaglio" END ENDPAGE ENDMASK -PAGE "Prospetto versamenti" -1 -1 50 12 +PAGE "Prospetto versamenti" -1 -1 -1 -1 -STRING 101 20 +STRING S_MESE 20 BEGIN PROMPT 1 1 "Mese " FLAGS "D" END -DATE 102 +DATE S_DATA BEGIN PROMPT 1 2 "Data " END -NUMBER 103 5 +NUMBER S_ABI 5 BEGIN PROMPT 1 3 "Codice ABI " HELP "Codice ABI banca di appoggio" @@ -224,8 +242,7 @@ BEGIN WARNING "Codice ABI assente" END - -NUMBER 104 5 +NUMBER S_CAB 5 BEGIN PROMPT 1 4 "Codice CAB " HELP "Codice CAB banca di appoggio" @@ -244,42 +261,44 @@ BEGIN WARNING "Banca assente" END - -NUMBER 105 3 +NUMBER S_CONC 3 BEGIN PROMPT 1 5 "Concessione " HELP "Codice Concessione del Comune di residenza fiscale" -// FIELD S9 FLAGS "RZ" END - -CURRENCY 106 15 +CURRENCY S_VERSAMENTO 15 BEGIN PROMPT 1 6 "Versamenti " FLAGS "R" END -CURRENCY 107 15 +CURRENCY S_INTERESSI 15 BEGIN - PROMPT 1 6 "Interessi " - FLAGS "RD" + PROMPT 1 7 "Interessi " + FLAGS "R" +END + +BOOLEAN S_STAMPATO +BEGIN + PROMPT 1 8 "Stampato" END BUTTON DLG_OK 10 2 BEGIN - PROMPT -13 -1 "" + PROMPT -13 -2 "" END BUTTON DLG_CANCEL 10 2 BEGIN - PROMPT -23 -1 "" + PROMPT -23 -2 "" END BUTTON 100 10 2 BEGIN - PROMPT -33 -1 "Dettaglio" -// FLAGS "H" + PROMPT -33 -2 "ettaglio" + END ENDPAGE