Disabilitata la manutenzione agli utenti normali (non PRASSI)

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

ba/ba0.cpp

@@ -295,10 +295,16 @@ void TMenu_application::load_menu()
     if (atoi(action) > 0)
     {
       TToken_string list(ts->get(), ',');
-      int module = list.get_int(); 
+      const TString& mod = list.get();
+      int module = atoi(mod); 
 
       if (module == 0) 
-        _enabled.set(last);
+      {
+        bool on = TRUE;
+        if (mod[0] == 'P')
+          on = user() == "PRASSI";
+        _enabled.set(last, on);
+      }  
       while(!_enabled[last] && module > 0)
       {
         if (has_module(module))
@@ -403,9 +409,10 @@ int TMenu_application::do_level()
     TString80 item(row.get(1));
     if (isdigit(*row.get())) item << "...";
     menu.add_static(-1, 0, item, x+4, y);
-    menu.add_button(100+y, 0, t, x, y, 1, 1);
-    menu.set_handler(100+y, menu_item_handler);
-    if (!_enabled[i]) menu.disable(100 + y);
+    const short id = 100+y;
+    menu.add_button(id, 0, t, x, y, 1, 1);
+    menu.set_handler(id, menu_item_handler);
+    if (!_enabled[i]) menu.disable(id);
   }
   menu.add_static(-1, 0, "Cerca", 1,-3);
   menu.add_string(99, 0, "", -12, -3, 50, "", bwidth+1);
@@ -519,15 +526,15 @@ bool TMenu_application::create()
   if (!check_user()) return FALSE;
   set_perms();
   test_temp();
-{
+
   TScanner scanner("prassi.aut");
   
   for (int aut = 0; scanner.line() != ""; aut++)
     _modules.add(scanner.token());
-}
-load_menu();
-dispatch_e_menu(BAR_ITEM(1));
-return TRUE;
+
+  load_menu();
+  dispatch_e_menu(BAR_ITEM(1));
+  return TRUE;
 }
 
 

ba/bastclr.uml

@@ -0,0 +1,90 @@
+#include "ba3200.h"
+
+PAGE "Stampa classificazione rate" -1 -1 50 8
+
+STRING F_INIZIO1 1
+BEGIN
+  PROMPT 4 1 "Da Codice  "
+  HELP "Codice della rata dell'ulteriore classificazione"
+  FIELD CODTAB[1,1]
+  SHEET "Cod|Descrizione@60"
+  INPUT F_INIZIO1
+  OUTPUT F_INIZIO1
+  ITEM " |Tutte"
+  ITEM "1|Rimessa diretta o contanti"
+  ITEM "2|Tratta"
+  ITEM "3|Ricevuta Bancaria"
+  ITEM "4|Cessione"
+  ITEM "5|Paghero'"
+  ITEM "6|Lettera di accredito"
+  ITEM "7|Tratta accettata"
+  ITEM "8|Altro pagamento"
+  GROUP 1
+END 
+
+STRING F_INIZIO2 1
+BEGIN
+  PROMPT 20 1 ""
+  FIELD CODTAB[2,2]
+  KEY 1
+  USE %CLR
+  INPUT CODTAB[1,1] F_INIZIO1
+  INPUT CODTAB[2,2] F_INIZIO2
+  DISPLAY "Tipo pagamento" CODTAB[1,1]
+  DISPLAY "Classificazione" CODTAB[2,2]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_INIZIO1 CODTAB[1,1]
+  OUTPUT F_INIZIO2 CODTAB[2,2]
+  HELP "Codice dell' ulteriore classificazione"
+  GROUP 1
+END
+
+STRING F_FINE1 1
+BEGIN
+  PROMPT 4 3 "Da Codice  "
+  HELP "Codice della rata dell'ulteriore classificazione"
+  FIELD CODTAB[1,1]
+  SHEET "Cod|Descrizione@60"
+  INPUT F_FINE1
+  OUTPUT F_FINE1
+  ITEM " |Tutte"
+  ITEM "1|Rimessa diretta o contanti"
+  ITEM "2|Tratta"
+  ITEM "3|Ricevuta Bancaria"
+  ITEM "4|Cessione"
+  ITEM "5|Paghero'"
+  ITEM "6|Lettera di accredito"
+  ITEM "7|Tratta accettata"
+  ITEM "8|Altro pagamento"
+  GROUP 2
+END 
+
+STRING F_FINE2 1
+BEGIN
+  PROMPT 20 3 ""
+  FIELD CODTAB[2,2]
+  KEY 1
+  COPY USE F_INIZIO2
+  INPUT CODTAB[1,1] F_FINE1
+  INPUT CODTAB[2,2] F_FINE2
+  DISPLAY "Tipo pagamento" CODTAB[1,1]
+  DISPLAY "Classificazione" CODTAB[2,2]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_FINE1 CODTAB[1,1]
+  OUTPUT F_FINE2 CODTAB[2,2]
+  HELP "Codice dell' ulteriore classificazione"
+  GROUP 2
+END
+
+BUTTON DLG_OK 8 2
+BEGIN
+	PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 8 2
+BEGIN
+	PROMPT -22 -1 ""
+END
+
+ENDPAGE
+ENDMASK

ba/batbclr.rpt

@@ -0,0 +1,11 @@
+[Headers]
+80
+Tabella Classificazione rate
+1|@3g%s|Codice
+1|@14g%s|Descrizione
+
+[Rows]
+1|CODTAB[1,1]|@3g@1,ls
+1|CODTAB[2,2]|@5g@1,ls
+1|S0|@14g@50,ls
+

ba/batbclr.uml

@@ -24,6 +24,7 @@ BEGIN
   ITEM "6|Lettera di accredito"
   ITEM "7|Tratta accettata"
   ITEM "8|Altro pagamento"
+  KEY 1
 END 
 
 STRING F_CODICEALFA 1

ba/batbesc.uml

@@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2
 
 ENDPAGE
 
-PAGE "Esercizio contabili" -1 -1 78 16
+PAGE "Esercizi contabili" -1 -1 78 16
 
 NUMBER F_CODDITTA 5
 BEGIN