diff --git a/cg/cg2100k.uml b/cg/cg2100k.uml index 556cf4a61..198ae6009 100755 --- a/cg/cg2100k.uml +++ b/cg/cg2100k.uml @@ -50,4 +50,6 @@ END ENDPAGE -ENDMASK \ No newline at end of file +ENDMASK + + diff --git a/cg/cg2102.cpp b/cg/cg2102.cpp index 935330291..4d8cc0f93 100755 --- a/cg/cg2102.cpp +++ b/cg/cg2102.cpp @@ -822,7 +822,7 @@ void TPrimanota_application::generazione_righe_cg(int r) int TPrimanota_application::crea_somma_spese(TImporto& imp) { - TConto cassa; causale().bill(2, cassa); + TBill cassa; causale().bill(2, cassa); const TString desc(causale().desc_agg(2)); imp.swap_section(); imp.normalize(); const int r = set_cgs_row(-1, imp, cassa, desc, 'L'); diff --git a/cg/cg2105.cpp b/cg/cg2105.cpp index 8fd6780e5..3af77ae4e 100755 --- a/cg/cg2105.cpp +++ b/cg/cg2105.cpp @@ -849,11 +849,10 @@ bool TGame_mask::partite_notify(TSheet_field& partite, int r, KEY k) const bool changing_row = gm._riga_partite != r; if (!changing_row) return TRUE; - - main_app().begin_wait(); - gm._riga_partite = r; + TWait_cursor hourglass; + TSheet_field& sheet = gm.scadenze(); sheet.destroy(-1, FALSE); // Azzera righe @@ -1024,7 +1023,7 @@ bool TGame_mask::partite_notify(TSheet_field& partite, int r, KEY k) tot_val += sl; } } - } + } // Fine ciclo sulle rate della fattura } TRecord_array& unas = game->unassigned(); @@ -1100,9 +1099,7 @@ bool TGame_mask::partite_notify(TSheet_field& partite, int r, KEY k) if (sheet.items() > 0) sheet.select(0, TRUE); else - sheet.force_update(); - - main_app().end_wait(); + sheet.force_update(); } if (k == K_INS) diff --git a/cg/cg4301.cpp b/cg/cg4301.cpp index 9f08980ea..8dcbae972 100755 --- a/cg/cg4301.cpp +++ b/cg/cg4301.cpp @@ -1375,16 +1375,16 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt) // art 40 c. 5/6/8 per VA7. real i,v; TToken_string kr(tab->get("S0"),'!'); - i = kr.get(0) + va7i; - v = kr.get(1) + va7v; + i = real(kr.get(0)) + va7i; + v = real(kr.get(1)) + va7v; kr.add(i.string(), 0); kr.add(v.string(), 1); tab->put("S0",kr); // fatture in ritardo TToken_string fr(tab->get("S1"),'!'); - i = fr.get(0) + rti; - v = fr.get(1) + rtv; + i = real(fr.get(0)) + rti; + v = real(fr.get(1)) + rtv; fr.add(i.string(), 0); fr.add(v.string(), 1); tab->put("S1",fr); @@ -1393,8 +1393,8 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt) // non cannare la stampa dei registri; contengono anche // tutti i non incassati (vedi definizione di bool nonimp) TToken_string cs(tab->get("S2"),'!'); - i = cs.get(0) + csi; - v = cs.get(1) + csv; + i = real(cs.get(0)) + csi; + v = real(cs.get(1)) + csv; cs.add(i.string(), 0); cs.add(v.string(), 1); tab->put("S2",cs); @@ -1479,7 +1479,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt) const real& previous = _prorata.previous(); bool b = TRUE; - if (!_prorata.flag() || (previous == current && _prorata.flag())) // Se le percentuali sono uguali + if (!_prorata.previous_ok() || (previous == current && _prorata.previous_ok())) // Se le percentuali sono uguali b = FALSE; // o non esiste la tabella prec. // considera tutto sull'anno corrente @@ -1568,7 +1568,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt) _plm->put("R12", _prorata.current()); // per comodita' in stampa _plm->put("B0", "X"); // calcolato (invalidato dalla primanota) // Setta il flag di stampa errore: se siamo oltre 1997 e non esiste tabella anno prec e vi sono docs con tale riferimento - _plm->put("B1", !_prorata.flag() && acquisti_iva_annoprec != ZERO && year_int > 1997); + _plm->put("B1", !_prorata.previous_ok() && acquisti_iva_annoprec != ZERO && year_int > 1997); _pom->put("R9", acq_ies); _pom->put("R10", acq_ies_iva); _pum->put("R8", acq_pint); diff --git a/cg/cg4400.cpp b/cg/cg4400.cpp index b3f59f993..f0f51c366 100755 --- a/cg/cg4400.cpp +++ b/cg/cg4400.cpp @@ -812,7 +812,7 @@ bool TStampa_registri_app::mask_data (TMask_field& f, KEY k) return FALSE; } if (f.dlg() == A_DATA) - if (data.ok) + if (data.ok()) { if ( data.day() == 31 && data.month() == 12 ) f.mask().show (TIPO_RIEPILOGATIVO); @@ -3495,6 +3495,7 @@ bool TStampa_registri_app::stampa_riepilogo(int m) if (vect.items() > 0) { stampato = TRUE; + TPrintrow row; row.reset(); printer().print(row); row.put("Registro iva:", 0); diff --git a/cg/cg4600.cpp b/cg/cg4600.cpp index b218d355d..d825962f2 100755 --- a/cg/cg4600.cpp +++ b/cg/cg4600.cpp @@ -333,45 +333,40 @@ bool TApertura_chiusura::mask_dataap (TMask_field& f, KEY k) bool TApertura_chiusura::mask_distinti (TMask_field& f, KEY k) { - int idg,idc,ids,idg1,idc1,ids1; - if (k == K_ENTER) { - idg = 108; - idc = 109; - ids = 110; + const TMask& m = f.mask(); + short idg = 108; + short idc = 109; + short ids = 110; for (int i = 0; i < 7; i++) { - int g = f.mask().get_int(idg); - int c = f.mask().get_int(idc); - long s = f.mask().get_long(ids); + const int g = m.get_int(idg); + const int c = m.get_int(idc); + const long s = m.get_long(ids); - idg1 = idg; - idc1 = idc; - ids1 = ids; + short idg1 = idg; + short idc1 = idc; + short ids1 = ids; for (int j = i+1; j < 7; j++) { - idg1 = idg1 + 3; - idc1 = idc1 + 3; - ids1 = ids1 + 3; + idg1 += 3; + idc1 += 3; + ids1 += 3; - int gruppo = f.mask().get_int(idg1); - int conto = f.mask().get_int(idc1); - long sottoc = f.mask().get_long(ids1); + int gruppo = m.get_int(idg1); + int conto = m.get_int(idc1); + long sottoc = m.get_long(ids1); if ((g == gruppo)&&(c == conto)&&(s == sottoc)) - { - f.warning_box("Nessun sottoconto puo' essere ripetuto!"); - return FALSE; - } + return f.error_box("Il sottoconto della riga %d e' ripetuto alla riga %d.", i+1, j+1); } - idg = idg + 3; - idc = idc + 3; - ids = ids + 3; - + idg += 3; + idc += 3; + ids += 3; } } return TRUE; diff --git a/cg/cg4600a.uml b/cg/cg4600a.uml index 42510be83..723c57345 100755 --- a/cg/cg4600a.uml +++ b/cg/cg4600a.uml @@ -32,7 +32,8 @@ BEGIN DISPLAY "Descrizione @50" DESCR OUTPUT F_CHIUSURA CODCAUS INPUT CODCAUS F_CHIUSURA - CHECKTYPE REQUIRED + CHECKTYPE REQUIRED + ADD RUN CG0 -4 END STRING F_APERTURA 3 @@ -41,9 +42,10 @@ BEGIN HELP "Codice causale che genera il movimento di apertura" USE LF_CAUSALI KEY 1 SELECT MOVAP="A" FLAGS "UZ" + INPUT CODCAUS F_APERTURA COPY DISPLAY F_CHIUSURA OUTPUT F_APERTURA CODCAUS - INPUT CODCAUS F_APERTURA + ADD RUN CG0 -4 END DATE F_DATAAP