diff --git a/ci/ci2400.cpp b/ci/ci2400.cpp index 3e17eeaa4..b5b96df4c 100644 --- a/ci/ci2400.cpp +++ b/ci/ci2400.cpp @@ -875,8 +875,9 @@ bool TConsuntivazione_msk::add_ril_to_mov(TRectype& rilore, TAnal_mov& mov, TLog const TString& codice_roa = rilore.get(RILORE_CODICE); const TRectype& roa = cache().get(tipo_roa == 'A' ? "ATR" : "RSS", codice_roa); - const TCodice_con conto = roa.get("S1"); - if (conto.blank()) + TCodice_con conto = roa.get("S1").left(20); // in S1 poi ci sono anche commessa e cantiere! + conto.trim(); + if (conto.empty()) { TString msg; msg << TR("Impossibile associare un conto analitico a ") << codice_roa; log.log(2, msg); @@ -1216,7 +1217,7 @@ bool TConsuntivazione_msk::contabilizza() log.log(0, msg); } else - log.log(1, TR("Nono sono stati generati documenti")); + log.log(1, TR("Non sono stati generati documenti")); log.preview(); @@ -1228,7 +1229,8 @@ bool TConsuntivazione_msk::esporta() { const int anno = get_int(F_ANNO); const int mese = get_int(F_MESE); - return esportazione_paghe(anno, mese); + const bool done = esportazione_paghe(anno, mese); + return done && load_sheet(); } bool TConsuntivazione_msk::cerca_disponibilita(int riga) const @@ -1260,13 +1262,15 @@ bool TConsuntivazione_msk::cerca_disponibilita(int riga) const int TConsuntivazione_msk::aggiungi_straordinario(int riga, const TString& tipo_ora, const real& prz, const real& add_qta) const { TSheet_field& s = sfield(F_SHEET); + const int col_dat = s.cid2index(S_DATA); const int col_att = s.cid2index(S_CODRIS); const int col_ora = s.cid2index(S_TPORA); const int col_cms = s.cid2index(S_CDC1); const TToken_string& r = s.row(riga); + TDate data; r.get(col_dat, data); TCodice_articolo cod_rss; r.get(col_att, cod_rss); cod_rss.trim(); - TCodice_cms cod_cms; r.get(col_cms, cod_cms); cod_cms.trim(); + TCodice_cms cod_cms; r.get(col_cms, cod_cms); cod_cms.trim(); int nr = -1; for (int i = riga-2; i <= riga+2; i++) if (i != riga) @@ -1274,10 +1278,11 @@ int TConsuntivazione_msk::aggiungi_straordinario(int riga, const TString& tipo_o if (i >= 0 && i < s.items()) { const TToken_string& ri = s.row(i); + TDate dt; ri.get(col_dat, dt); TCodice_articolo ca; ri.get(col_att, ca); ca.trim(); TString4 to; ri.get(col_ora, to); to.trim(); TCodice_cms cc; ri.get(col_cms, cc); cc.trim(); - if (ca == cod_rss && cc == cod_cms && to == tipo_ora) + if (dt == data && ca == cod_rss && cc == cod_cms && to == tipo_ora) { nr = i; break; @@ -1734,12 +1739,15 @@ TConsuntivazione_msk::TConsuntivazione_msk() : _locked(false) } // Sistema nome del campo CODCMS - for (short id = _scms_lid; id >= _scms_sid; id--) + if (_scms_lid > 0) { - TEdit_field& ef = sm.efield(id); - TFieldref* fr = (TFieldref*)ef.field(); - if (fr != NULL) - fr->set_name(RILORE_CODCMS); + for (short id = _scms_lid; id >= _scms_sid; id--) + { + TEdit_field& ef = sm.efield(id); + TFieldref* fr = (TFieldref*)ef.field(); + if (fr != NULL) + fr->set_name(RILORE_CODCMS); + } } diff --git a/ci/ci2400a.h b/ci/ci2400a.h index 772da6a02..efeb839b5 100644 --- a/ci/ci2400a.h +++ b/ci/ci2400a.h @@ -61,5 +61,6 @@ #define S_CUP 123 #define S_CIG 124 #define S_STATO 125 -#define S_ID 126 +#define S_INVPAG 126 +#define S_ID 127 #define S_CMSH 143 diff --git a/ci/ci2400a.uml b/ci/ci2400a.uml index 2aaab2b57..68f593b13 100644 --- a/ci/ci2400a.uml +++ b/ci/ci2400a.uml @@ -93,6 +93,7 @@ BEGIN DISPLAY "Descrizione@50" S0 OUTPUT F_TPORA CODTAB CHECKTYPE NORMAL + FLAGS "U" END BOOLEAN C_RISOATT @@ -198,6 +199,7 @@ BEGIN ITEM "CUP@15" ITEM "CIG@10" ITEM "Stato" + ITEM "Inviata\nPaghe@6" ITEM "ID@8" END @@ -222,6 +224,13 @@ BEGIN FLAGS "D" END +BOOELAN S_INVPAG +BEGIN + PROMPT 48 0 "Inv. paghe" + FIELD INVPAG + FLAGS "D" +END + NUMBER S_ID 8 BEGIN PROMPT 63 0 "ID " @@ -302,6 +311,7 @@ BEGIN OUTPUT S_TPORA CODTAB CHECKTYPE REQUIRED FIELD TPORA + FLAGS "U" END NUMBER S_QTAORE 7 2 diff --git a/ci/ci2400e.uml b/ci/ci2400e.uml index b5f5343ce..674e18fcb 100644 --- a/ci/ci2400e.uml +++ b/ci/ci2400e.uml @@ -24,7 +24,7 @@ END LIST F_MESE 2 12 BEGIN - PROMPT 32 0 "Mese " + PROMPT 32 0 "Mese " FLAGS "ADM" END @@ -40,9 +40,9 @@ BEGIN FLAGS "B" END -SPREADSHEET F_SHEET 78 +SPREADSHEET F_SHEET BEGIN - PROMPT 1 2 "" + PROMPT 0 2 "" ITEM "Ord.@5" ITEM "Tip1@5" ITEM "Tip2@5" @@ -52,6 +52,14 @@ BEGIN ITEM "Tip6@5" ITEM "Tip7@5" ITEM "Tip8@5" + ITEM "Tip9@5" + ITEM "Tip10@5" + ITEM "Tip11@5" + ITEM "Tip12@5" + ITEM "Tip13@5" + ITEM "Tip14@5" + ITEM "Tip15@5" + ITEM "Tip16@5" ITEM "Tot.@5" END @@ -59,7 +67,7 @@ ENDPAGE ENDMASK -PAGE "Riga consuntivo" -1 -1 42 6 +PAGE "Riga consuntivo" -1 -1 42 10 NUMBER 101 5 2 BEGIN @@ -88,29 +96,69 @@ END NUMBER 106 5 2 BEGIN - PROMPT 21 1 "Tipo 5 " + PROMPT 1 5 "Tipo 5 " END NUMBER 107 5 2 BEGIN - PROMPT 21 2 "Tipo 6 " + PROMPT 1 6 "Tipo 6 " END NUMBER 108 5 2 BEGIN - PROMPT 21 3 "Tipo 7 " + PROMPT 1 7 "Tipo 7 " END NUMBER 109 5 2 BEGIN - PROMPT 21 4 "Tipo 8 " + PROMPT 1 8 "Tipo 8 " END NUMBER 110 5 2 BEGIN - PROMPT 21 5 "@bTotale " - DRIVENBY 101 102 103 104 105 106 107 108 109 - NUM_CALC #101+#102+#103+#104+#105+#106+#107+#108+#109 + PROMPT 21 2 "Tipo 9 " +END + +NUMBER 111 5 2 +BEGIN + PROMPT 21 3 "Tipo 10 " +END + +NUMBER 112 5 2 +BEGIN + PROMPT 21 4 "Tipo 11 " +END + +NUMBER 113 5 2 +BEGIN + PROMPT 21 5 "Tipo 12 " +END + +NUMBER 114 5 2 +BEGIN + PROMPT 21 6 "Tipo 13 " +END + +NUMBER 115 5 2 +BEGIN + PROMPT 21 7 "Tipo 14 " +END + +NUMBER 116 5 2 +BEGIN + PROMPT 21 8 "Tipo 15 " +END + +NUMBER 117 5 2 +BEGIN + PROMPT 21 9 "Tipo 16 " +END + +NUMBER 118 5 2 +BEGIN + PROMPT 21 10 "@bTotale " + DRIVENBY 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 + NUM_CALC #101+#102+#103+#104+#105+#106+#107+#108+#109+#110+#111+#112+#113+#114+#115+#116+#117 FLAGS "DG" END diff --git a/ci/citbore.uml b/ci/citbore.uml index 1232c90cc..6382d53c5 100755 --- a/ci/citbore.uml +++ b/ci/citbore.uml @@ -53,7 +53,7 @@ END STRING F_COD_EST 10 BEGIN PROMPT 2 5 "Codice esterno " - FLAGS "U" + FLAGS "" FIELD S1 END diff --git a/ci/f125.dir b/ci/f125.dir index 5decb6611..91ead0bdd 100755 --- a/ci/f125.dir +++ b/ci/f125.dir @@ -1,3 +1,3 @@ 125 0 -$rilore|0|0|214|0|Rilevamento Ore||| +$rilore|0|0|215|0|Rilevamento Ore||| diff --git a/ci/f125.trr b/ci/f125.trr index 696ebee51..dc93fb6c3 100755 --- a/ci/f125.trr +++ b/ci/f125.trr @@ -1,5 +1,5 @@ 125 -22 +23 TIPO|1|1|0|efault

reventivo onsuntivo ID|3|8|0|Id del record TIPORA|1|1|0|isorsa ttrezzatura @@ -22,6 +22,7 @@ CUP|1|15|0|Codice Unico di Progetto CIG|1|10|0|Codice Identificativo di Gara RIMBORSO|8|1|0|Rimborso NOTE|1|50|0|Note +INVPAG|8|1|0|Inviata a paghe 5 TIPO+ID| TIPO+DADATA+TIPORA+CODICE+TPORA+CODCOSTO+CODCMS+CODFASE|X