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
226 lines
4.0 KiB
Plaintext
Executable File
226 lines
4.0 KiB
Plaintext
Executable File
#include "ps0430200a.h"
|
|
|
|
TOOLBAR "" 0 -3 0 3
|
|
|
|
BUTTON DLG_SAVEREC 11 2
|
|
BEGIN
|
|
PROMPT -12 -11 ""
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 11 2
|
|
BEGIN
|
|
PROMPT -22 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Configurazione campi per utente" 0 0 0 -3
|
|
|
|
STRING F_USER 8
|
|
BEGIN
|
|
PROMPT 2 2 "Utente "
|
|
FLAGS "U"
|
|
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
|
|
END
|
|
|
|
STRING F_DUSER 50
|
|
BEGIN
|
|
PROMPT 29 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_GRMERC 3
|
|
BEGIN
|
|
PROMPT 2 4 "Gruppo merc. "
|
|
FLAG "U"
|
|
USE GMC KEY 1 SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_GRMERC
|
|
DISPLAY "Codice" CODTAB[1,3]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_GRMERC CODTAB[1,3]
|
|
OUTPUT F_DGRMERC S0
|
|
CHECKTYPE SEARCH
|
|
FIELD OR14_GRM
|
|
END
|
|
|
|
STRING F_DGRMERC 50
|
|
BEGIN
|
|
PROMPT 29 4 ""
|
|
USE GMC KEY 2 SELECT CODTAB[4,5]==""
|
|
INPUT S0 F_DGRMERC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_GRMERC CODTAB[1,3]
|
|
OUTPUT F_DGRMERC S0
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_SGRMERC 2
|
|
BEGIN
|
|
PROMPT 2 6 "Sottogr.merc ."
|
|
FLAG "U"
|
|
USE GMC
|
|
INPUT CODTAB[1,3] F_GRMERC
|
|
INPUT CODTAB[4,5] F_SGRMERC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_GRMERC CODTAB[1,3]
|
|
OUTPUT F_SGRMERC CODTAB[4,5]
|
|
OUTPUT F_DSGRMERC S0
|
|
CHECKTYPE NORMAL
|
|
FIELD OR14_SGR
|
|
END
|
|
|
|
STRING F_DSGRMERC 50
|
|
BEGIN
|
|
PROMPT 29 6 ""
|
|
USE GMC KEY 2 SELECT CODTAB[4,5] != ""
|
|
INPUT S0 F_DSGRMERC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_SGRMERC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CDCT 20
|
|
BEGIN
|
|
PROMPT 2 8 "CDC/Commessa "
|
|
FLAGS "UZ"
|
|
USE CMS
|
|
INPUT CODTAB F_CDCT
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@70" S0
|
|
OUTPUT F_CDCT CODTAB
|
|
FILED OR14_CDCT
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_FSCT 10
|
|
BEGIN
|
|
PROMPT 45 8 "Fase "
|
|
FLAGS "UZ"
|
|
USE FSC
|
|
INPUT CODTAB F_FSCT
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@70" S0
|
|
OUTPUT F_FSCT CODTAB
|
|
FIELD OR14_FSCT
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODNUM 4
|
|
BEGIN
|
|
PROMPT 2 10 "Numerazione "
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM CODTAB
|
|
OUTPUT F_DESNUM S0
|
|
FLAG "UG"
|
|
CHECKTYPE NORMAL
|
|
FIELD OR14_NUM
|
|
END
|
|
|
|
STRING F_DESNUM 50
|
|
BEGIN
|
|
PROMPT 29 10 ""
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESNUM
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODNUM
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 2 12 "Tipo "
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC CODTAB
|
|
OUTPUT F_DESTIPODOC S0
|
|
CHECKTYPE NORMAL
|
|
FLAG "UG"
|
|
FIELD OR14_TIP
|
|
END
|
|
|
|
STRING F_DESTIPODOC 50
|
|
BEGIN
|
|
PROMPT 29 12 ""
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESTIPODOC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_MAG 3
|
|
BEGIN
|
|
PROMPT 2 14 "Magazzino "
|
|
FLAGS "UG"
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_MAG
|
|
DISPLAY "Codice " CODTAB[1,3]
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_MAG CODTAB[1,3]
|
|
OUTPUT F_DESMAG S0
|
|
CHECKTYPE NORMAL
|
|
FIELD OR14_MAG
|
|
END
|
|
|
|
STRING F_DESMAG 50
|
|
BEGIN
|
|
PROMPT 29 14 ""
|
|
USE MAG KEY 2 SELECT CODTAB[4,5]==""
|
|
INPUT S0 F_DESMAG
|
|
DISPLAY "Denominazione magazzino@50" S0
|
|
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
|
DISPLAY "Cod. deposito" CODTAB[4,5]
|
|
COPY OUTPUT F_MAG
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_DEP 2
|
|
BEGIN
|
|
PROMPT 2 16 "Deposito "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]!=""
|
|
INPUT CODTAB[1,3] F_MAG
|
|
INPUT CODTAB[4,5] F_DEP
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Denominazione dep.@50 " S0
|
|
OUTPUT F_MAG CODTAB[1,3]
|
|
OUTPUT F_DEP CODTAB[4,5]
|
|
CHECKTYPE SEARCH
|
|
FIELD OR14_DEP
|
|
END
|
|
|
|
STRING F_DESDEP 50
|
|
BEGIN
|
|
PROMPT 29 16 ""
|
|
USE MAG KEY 2 SELECT CODTAB[4,5]!=""
|
|
INPUT S0 F_DESDEP
|
|
COPY DISPLAY F_DESMAG
|
|
OUTPUT F_DEP CODTAB[4,5]
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|