ab57d73bc0
Files correlati : Ricompilazione Demo : [ ] Commento :aggiunti sorgenti di programmi personalizzati sul main_trunk git-svn-id: svn://10.65.10.50/trunk@15931 c028cbd2-c16b-5b4b-a496-9718f37d4682
116 lines
1.6 KiB
Plaintext
Executable File
116 lines
1.6 KiB
Plaintext
Executable File
#include "ps0430100a.h"
|
|
|
|
TOOLBAR "" 0 -2 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Relazioni utenti Articoli" -1 -1 80 20
|
|
|
|
LIST F_COD 5
|
|
BEGIN
|
|
PROMPT 50 50 ""
|
|
ITEM "ATM|ATM"
|
|
FIELD COD
|
|
FLAGS "H"
|
|
KEY 1
|
|
END
|
|
|
|
NUMBER F_CODTAB 3
|
|
BEGIN
|
|
PROMPT 50 50 ""
|
|
USE LF_MULTIREL
|
|
INPUT COD F_COD SELECT
|
|
INPUT FIRST F_CODTAB
|
|
DISPLAY "Codice" FIRST
|
|
DISPLAY "Descrizione@60" DATA
|
|
DISPLAY "Causale Collegata" SECOND
|
|
OUTPUT F_CODTAB FIRST
|
|
CHECKTYPE REQUIRED
|
|
FIELD FIRST
|
|
FLAGS "H"
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_USER 8
|
|
BEGIN
|
|
PROMPT 4 2 "Utente "
|
|
FLAGS "U"
|
|
// FIELD FIRST
|
|
KEY 1
|
|
USE LF_USER SELECT ISGROUP!="X"
|
|
INPUT USERNAME F_USER
|
|
DISPLAY "Utente@8" USERNAME
|
|
DISPLAY "Gruppo@8" GROUPNAME
|
|
DISPLAY "Descrizione@50" USERDESC
|
|
OUTPUT F_USER USERNAME
|
|
OUTPUT F_DUSER USERDESC
|
|
CHECKTYPE NORMAL
|
|
MESSAGE COPY,F_CODTAB
|
|
END
|
|
|
|
STRING F_DUSER 50
|
|
BEGIN
|
|
PROMPT 25 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_ARTICLES 85 -3
|
|
BEGIN
|
|
PROMPT 1 4 "Articoli"
|
|
ITEM "Codice@20"
|
|
ITEM "Descrizione@45"
|
|
ITEM "Attivo"
|
|
ITEM "Descrizione fornitore@45"
|
|
ITEM "Codice Fonitore"
|
|
ITEM "Ragione sociale@45"
|
|
END
|
|
|
|
BUTTON F_SET 10 2
|
|
BEGIN
|
|
PROMPT -11 -1 "~Tutti"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Righe" -1 -1 80 18
|
|
|
|
STRING F_CODART 20
|
|
BEGIN
|
|
PROMPT 1 2 "Codice "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESCR 50 45
|
|
BEGIN
|
|
PROMPT 42 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_ATTIVO
|
|
BEGIN
|
|
PROMPT 2 4 "Attivo per questo utente"
|
|
END
|
|
|
|
STRING F_DESCRAGG 50 45
|
|
BEGIN
|
|
PROMPT 2 6 " "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CODFORN 6
|
|
BEGIN
|
|
PROMPT 2 8 " "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_RAGSOC 50 45
|
|
BEGIN
|
|
PROMPT 2 10 " "
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |