Disabilitata la manutenzione agli utenti normali (non PRASSI)
git-svn-id: svn://10.65.10.50/trunk@760 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
2fc59ad363
commit
7ff4447e1a
27
ba/ba0.cpp
27
ba/ba0.cpp
@ -295,10 +295,16 @@ void TMenu_application::load_menu()
|
|||||||
if (atoi(action) > 0)
|
if (atoi(action) > 0)
|
||||||
{
|
{
|
||||||
TToken_string list(ts->get(), ',');
|
TToken_string list(ts->get(), ',');
|
||||||
int module = list.get_int();
|
const TString& mod = list.get();
|
||||||
|
int module = atoi(mod);
|
||||||
|
|
||||||
if (module == 0)
|
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)
|
while(!_enabled[last] && module > 0)
|
||||||
{
|
{
|
||||||
if (has_module(module))
|
if (has_module(module))
|
||||||
@ -403,9 +409,10 @@ int TMenu_application::do_level()
|
|||||||
TString80 item(row.get(1));
|
TString80 item(row.get(1));
|
||||||
if (isdigit(*row.get())) item << "...";
|
if (isdigit(*row.get())) item << "...";
|
||||||
menu.add_static(-1, 0, item, x+4, y);
|
menu.add_static(-1, 0, item, x+4, y);
|
||||||
menu.add_button(100+y, 0, t, x, y, 1, 1);
|
const short id = 100+y;
|
||||||
menu.set_handler(100+y, menu_item_handler);
|
menu.add_button(id, 0, t, x, y, 1, 1);
|
||||||
if (!_enabled[i]) menu.disable(100 + y);
|
menu.set_handler(id, menu_item_handler);
|
||||||
|
if (!_enabled[i]) menu.disable(id);
|
||||||
}
|
}
|
||||||
menu.add_static(-1, 0, "Cerca", 1,-3);
|
menu.add_static(-1, 0, "Cerca", 1,-3);
|
||||||
menu.add_string(99, 0, "", -12, -3, 50, "", bwidth+1);
|
menu.add_string(99, 0, "", -12, -3, 50, "", bwidth+1);
|
||||||
@ -519,15 +526,15 @@ bool TMenu_application::create()
|
|||||||
if (!check_user()) return FALSE;
|
if (!check_user()) return FALSE;
|
||||||
set_perms();
|
set_perms();
|
||||||
test_temp();
|
test_temp();
|
||||||
{
|
|
||||||
TScanner scanner("prassi.aut");
|
TScanner scanner("prassi.aut");
|
||||||
|
|
||||||
for (int aut = 0; scanner.line() != ""; aut++)
|
for (int aut = 0; scanner.line() != ""; aut++)
|
||||||
_modules.add(scanner.token());
|
_modules.add(scanner.token());
|
||||||
}
|
|
||||||
load_menu();
|
load_menu();
|
||||||
dispatch_e_menu(BAR_ITEM(1));
|
dispatch_e_menu(BAR_ITEM(1));
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
90
ba/bastclr.uml
Executable file
90
ba/bastclr.uml
Executable file
@ -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
|
11
ba/batbclr.rpt
Executable file
11
ba/batbclr.rpt
Executable file
@ -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
|
||||||
|
|
@ -24,6 +24,7 @@ BEGIN
|
|||||||
ITEM "6|Lettera di accredito"
|
ITEM "6|Lettera di accredito"
|
||||||
ITEM "7|Tratta accettata"
|
ITEM "7|Tratta accettata"
|
||||||
ITEM "8|Altro pagamento"
|
ITEM "8|Altro pagamento"
|
||||||
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODICEALFA 1
|
STRING F_CODICEALFA 1
|
||||||
|
@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2
|
|||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Esercizio contabili" -1 -1 78 16
|
PAGE "Esercizi contabili" -1 -1 78 16
|
||||||
|
|
||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
|
Loading…
x
Reference in New Issue
Block a user