campo-sirio/ca/catbauc.uml
luca aae3e6c958 Patch level :10.0
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
0001219: Selezione archivi per utente
Descrizione  La funzione "Selezione archivi per utente" praticamente non funziona.
Il filtro su utente nn visualizza alcun record e se immesso manualmente lo cancella.

fatta funzionare la scelta rchivi per utente, a quanto pare iniziata e mai usata da nessuno. non era meglio toglierla dal menu visto che non serve a un cazzo?

Sistemate anche le maschere in new look


git-svn-id: svn://10.65.10.50/trunk@18607 c028cbd2-c16b-5b4b-a496-9718f37d4682
2009-03-25 15:09:59 +00:00

101 lines
1.6 KiB
Plaintext
Executable File

#include "catbauc.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Selezione archivi per Utente" 0 0 0 2
STRING F_AUC_CODICE 16
BEGIN
PROMPT 2 2 "Utente "
USE %AUC
JOIN LF_USER INTO USERNAME==CODTAB
FIELD CODTAB
FLAGS "G"
KEY 1
INPUT CODTAB F_AUC_CODICE
DISPLAY "Utente@16" CODTAB
DISPLAY "Gruppo@16" LF_USER->GROUPNAME
DISPLAY "Descrizione@50" LF_USER->USERDESC
OUTPUT F_AUC_CODICE CODTAB
OUTPUT F_AUC_DESCR LF_USER->USERDESC
CHECKTYPE REQUIRED
END
STRING F_AUC_CODICE1 16
BEGIN
PROMPT 2 2 "Utente "
FIELD CODTAB
FLAGS "HG"
KEY 1
USE LF_USER
INPUT USERNAME F_AUC_CODICE1
DISPLAY "Utente@16" USERNAME
DISPLAY "Gruppo@16" GROUPNAME
DISPLAY "Descrizione@50" USERDESC
OUTPUT F_AUC_CODICE1 USERNAME
OUTPUT F_AUC_DESCR USERDESC
CHECKTYPE REQUIRED
MESSAGE COPY,F_AUC_CODICE
END
STRING F_AUC_DESCR 50
BEGIN
PROMPT 2 3 "Nome "
FLAGS "D"
END
STRING F_AUC_COMMESSE 70 50
BEGIN
PROMPT 2 4 "Filtro commesse "
FIELD S0
END
STRING F_AUC_CDC 70 50
BEGIN
PROMPT 2 5 "Filtro C.D.C "
FIELD S1
END
STRING F_AUC_FASI 70 50
BEGIN
PROMPT 2 6 "Filtro Fasi "
FIELD S2
END
TEXT -1
BEGIN
PROMPT 2 8 "I campi soprastanti sono di tipo formula. Si usano per indicare Commesse, Fasi,"
END
TEXT -1
BEGIN
PROMPT 2 9 "e CdC che l'utente selezionato è autorizzato o meno a consultare/modificare."
END
TEXT -1
BEGIN
PROMPT 2 10 "Esempi"
END
TEXT -1
BEGIN
PROMPT 2 11 "CODCMS=codicecommessa"
END
TEXT -1
BEGIN
PROMPT 2 12 "CODCOSTO=codicecdc"
END
TEXT -1
BEGIN
PROMPT 2 13 "CODFASE=codicefase"
END
ENDPAGE
ENDMASK