Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :continua la contabilizzazione cespiti


git-svn-id: svn://10.65.10.50/trunk@15966 c028cbd2-c16b-5b4b-a496-9718f37d4682

ce/ce0100.cpp

@@ -350,12 +350,14 @@ void TCEtables::show_hide_ccc_cat(TMask& m, const bool hide_cac)
   if (hide_cac)
   {
     m.hide(F_CODCAT_IN);
+    m.disable(F_CODCAT_IN);
     m.show(F_CODCAT);
   }
   else
   {
     m.hide(F_CODCAT);
     m.show(F_CODCAT_IN);
+    m.enable(F_CODCAT_IN);
   }
 }
 

ce/ce4400.cpp

@@ -182,29 +182,20 @@ int TSaldo_per_codice::compila_rmov(const int tipo, const int riga_nor, TArray&
   if (quota <= ZERO)
     return -1;
 
-  const TRectype& rec_cac = categoria();
+  const TRectype& rec_ccc = categoria();
-  const TString& stringona = rec_cac.get(field);
+  const TString& stringona = rec_ccc.get(field);
   TBill zio;
   if (!str2bill(stringona, pos, zio))
   {
-    //if (tipo < 4)
+    pos = 24;
-    //{
+    if (tipo == 1 || !str2bill(stringona, pos, zio))
-      pos = 24;
-      if (tipo == 1 || !str2bill(stringona, pos, zio))
-      {
-        TString msg;
-        msg << TR("Manca il conto per le quote ammortamento normali della categoria ") << rec_cac.get("CODTAB");
-        log.log(2, msg);
-        return -1;
-      }
-    //}
-/*    else
     {
       TString msg;
-      msg << TR("Manca il conto per le quote perse della categoria ") << rec_cac.get("CODTAB");
+      msg << TR("Manca il conto per le quote ammortamento normali della categoria ") 
+          << _grp << " " << _spc << " " << _cat;
       log.log(2, msg);
       return -1;
-    }*/
+    }
   }
 
   if (pos == 24 && riga_nor >= 0)
@@ -221,7 +212,7 @@ int TSaldo_per_codice::compila_rmov(const int tipo, const int riga_nor, TArray&
   switch (movdett)
   {
   case 0:   //dettaglio per categoria
-    rmov->put(RMV_DESCR, rec_cac.get("S0"));
+    rmov->put(RMV_DESCR, rmov->descr_categoria());
     break;
   case 1:   //dettaglio per cespite
     {
@@ -492,6 +483,7 @@ void TTrasf_mov_ce_cg::elabora()
 
   //report con log errori
   TLog_report cont_cesp_log(TR("Contabilizzazione cespiti"));
+  cont_cesp_log.kill_duplicates();
 
   //Legge un po' di parametri dal ditta.ini che servono al tipo di calcolo
   TConfig config_ditta_ce(CONFIG_DITTA, "ce");

ce/celib.cpp

@@ -222,7 +222,7 @@ bool TDitta_cespiti::legge_223_06() const
 const TRectype& TDitta_cespiti::categoria(int gr, const char* sp, int ca, const bool ccc) const
 {
   TString8 key;
-  if (ca >= 41)
+  if (ca >= 41 && !ccc)
     key.format("      %02d", ca);    
   else
   {

ce/cemenu.men

@@ -63,7 +63,6 @@ Item_02 = "Localizzazioni", "ce0 -0 loc", ""
 Item_03 = "Impianti", "ce0 -0 cim" , ""
 Item_04 = "Esercizi", "ce0 -0 cce", "F"
 Item_05 = "Esercizi contabili", "cg0 -5 esc", "F"
-Item_06 = "Categorie Collegamento Contabilita'", "ce0 -0 ccc", "F"
 
 [CEMENU_007]
 Caption = "Stampa tabelle ditta"
@@ -80,7 +79,8 @@ Caption = "Collegamenti contabili"
 Picture = <ce00>
 Module = 11
 Flags = ""
-Item_01 = "Trasferimento movimenti", "ce4 -3", "F"
+Item_01 = "Categorie Collegamento Contabilita'", "ce0 -0 ccc", "F"
+Item_02 = "Trasferimento movimenti", "ce4 -3", "F"
 
 [CEMENU_009]
 Caption = "Operazioni giornaliere e fine esercizio"

ce/cetbccc.uml

@@ -69,28 +69,30 @@ BEGIN
   FIELD CODTAB[7,8]
   FLAGS "UZ"
   KEY 1
-  USE %CCC
+  USE CCC
+  JOIN %CAC ALIAS 400 INTO CODTAB==CODTAB
   INPUT CODTAB[1,2] F_CODGR
   INPUT CODTAB[3,6] F_CODSP
   INPUT CODTAB[7,8] F_CODCAT
   DISPLAY "Gruppo" CODTAB[1,2]
   DISPLAY "Specie" CODTAB[3,6]
   DISPLAY "Categoria" CODTAB[7,8]
-  DISPLAY "Descrizione@50" S0
+  DISPLAY "Descrizione@50" 400@->S0
   OUTPUT F_CODGR CODTAB[1,2]
   OUTPUT F_CODSP CODTAB[3,6]
   OUTPUT F_CODCAT CODTAB[7,8]
-  OUTPUT F_DESCCAT S0
+  OUTPUT F_DESCCAT 400@->S0
   CHECKTYPE REQUIRED
 END
 
 NUMBER F_CODCAT_IN 2
 BEGIN
   PROMPT 2 4 "Categoria "
-  FLAGS "BZ"
+  FLAGS "BUZDH"
   KEY 1
   DRIVENBY F_CODGR
   DRIVENBY F_CODSP
+  MESSAGE EMPTY COPY,F_CODCAT_IN
   MESSAGE COPY,F_CODCAT
   CHECKTYPE REQUIRED
 END
@@ -98,7 +100,7 @@ END
 STRING F_DESCCAT 60 50
 BEGIN
   PROMPT 20 4 ""
-  FLAGS "BD"
+  FLAGS "D"
 END
 
 GROUPBOX DLG_NULL 74 8