Esportazione per paghe ed Excel della rilevazione ore

git-svn-id: svn://10.65.10.50/branches/R_10_00@23052 c028cbd2-c16b-5b4b-a496-9718f37d4682

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");
+  TCodice_con conto = roa.get("S1").left(20); // in S1 poi ci sono anche commessa e cantiere!
-  if (conto.blank())
+  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,11 +1262,13 @@ 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();
 
@@ -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,6 +1739,8 @@ TConsuntivazione_msk::TConsuntivazione_msk() : _locked(false)
 	}
 
   // Sistema nome del campo CODCMS
+  if (_scms_lid > 0)
+  {
     for (short id = _scms_lid; id >= _scms_sid; id--)
     {
       TEdit_field& ef = sm.efield(id);
@@ -1741,6 +1748,7 @@ TConsuntivazione_msk::TConsuntivazione_msk() : _locked(false)
       if (fr != NULL)
         fr->set_name(RILORE_CODCMS);
     }
+  }
 
 
   for (short id = S_CDC12 + 100; id >= S_CDC1 + 100; id--)

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

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

ci/ci2400e.uml

@@ -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    "
+  PROMPT 21 2 "Tipo 9    "
-  DRIVENBY 101 102 103 104 105 106 107 108 109
+END
-  NUM_CALC #101+#102+#103+#104+#105+#106+#107+#108+#109
+
+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
 

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
 

ci/f125.dir

@@ -1,3 +1,3 @@
 125
 0
-$rilore|0|0|214|0|Rilevamento Ore|||
+$rilore|0|0|215|0|Rilevamento Ore|||

ci/f125.trr

@@ -1,5 +1,5 @@
 125
-22
+23
 TIPO|1|1|0|<D>efault <P>reventivo <C>onsuntivo
 ID|3|8|0|Id del record
 TIPORA|1|1|0|<R>isorsa <A>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