694 lines
11 KiB
Plaintext
Executable File
694 lines
11 KiB
Plaintext
Executable File
#include "db0500a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Distinta" -1 -1 80 20
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 0 "@bDistinta"
|
|
END
|
|
|
|
STRING F_CODICE 20
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FLAGS "GUD"
|
|
KEY 1
|
|
FIELD CODDIST
|
|
END
|
|
|
|
LIST F_TIPO 1 12
|
|
BEGIN
|
|
PROMPT 54 1 "Tipo "
|
|
ITEM "A|Articolo"
|
|
MESSAGE "",F_VIRTUALE|ENABLE,F_MASTER|ENABLE,F_ARTACQ|ENABLE,F_ARTPROD
|
|
ITEM "L|Lavorazione"
|
|
MESSAGE "",F_VIRTUALE|CLEAR,F_MASTER|CLEAR,F_ARTACQ|CLEAR,F_ARTPROD
|
|
ITEM "V|Virtuale"
|
|
MESSAGE "X",F_VIRTUALE|CLEAR,F_MASTER|CLEAR,F_ARTACQ|ENABLE,F_ARTPROD
|
|
FLAGS "DG"
|
|
END
|
|
|
|
BOOLEAN F_VIRTUALE
|
|
BEGIN
|
|
PROMPT 50 50 "Virtuale"
|
|
MESSAGE FALSE DISABLE,1@
|
|
MESSAGE TRUE ENABLE,1@
|
|
FLAGS "DG"
|
|
FIELD VIRTUALE
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 2 "Descrizione "
|
|
FIELD DESCR
|
|
// GROUP 1
|
|
// FLAGS "D"
|
|
END
|
|
|
|
ZOOM F_NOTE 50
|
|
BEGIN
|
|
PROMPT 2 3 "Annotazioni "
|
|
FIELD NOTE
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 4 ""
|
|
END
|
|
|
|
BOOLEAN F_ARTPROD
|
|
BEGIN
|
|
PROMPT 2 5 "Articolo di produzione"
|
|
FIELD ARTPROD
|
|
END
|
|
|
|
BOOLEAN F_ARTACQ
|
|
BEGIN
|
|
PROMPT 32 5 "Articolo di acquisto"
|
|
FIELD ARTACQ
|
|
END
|
|
|
|
BOOLEAN F_MASTER
|
|
BEGIN
|
|
PROMPT 60 5 "Articolo Master"
|
|
FIELD MASTER
|
|
END
|
|
|
|
CURRENCY F_PREZZO 18
|
|
BEGIN
|
|
PROMPT 2 6 "Costo "
|
|
FIELD PREZZO
|
|
GROUP 1
|
|
FLAGS "DU"
|
|
END
|
|
|
|
STRING F_UM 2
|
|
BEGIN
|
|
PROMPT 27 6 "Unita' di misura "
|
|
FLAGS "DG"
|
|
USE LF_UMART KEY 2
|
|
JOIN LF_UMART ALIAS 200 INTO CODART==CODART
|
|
INPUT CODART F_CODICE SELECT
|
|
INPUT UM F_UM
|
|
OUTPUT F_UM UM
|
|
OUTPUT F_FCUMART FC
|
|
OUTPUT F_UMART1ST 200@->UM
|
|
CHECKTYPE NORMAL
|
|
FIELD UM
|
|
END
|
|
|
|
NUMBER F_FCUMART 18 5
|
|
BEGIN
|
|
PROMPT 50 6 "= "
|
|
PICTURE "###.###.###,@@@@@"
|
|
FLAG "D"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_UMART1ST 2
|
|
BEGIN
|
|
PROMPT 74 6 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER F_PESO 15 5
|
|
BEGIN
|
|
PROMPT 2 7 "Peso "
|
|
FIELD PESO
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_UMP 2
|
|
BEGIN
|
|
PROMPT 26 7 "Unita' di misura del peso "
|
|
USE %UMS
|
|
INPUT CODTAB F_UMP
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_UMP CODTAB
|
|
FIELD UMP
|
|
GROUP 1
|
|
FLAGS "DU"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BUTTON F_SORTA 17
|
|
BEGIN
|
|
PROMPT 58 7 "Ordina per codice"
|
|
END
|
|
|
|
NUMBER F_SORT 1
|
|
BEGIN
|
|
PROMPT 2 9 "Cambia ordinamento "
|
|
USE ORD
|
|
INPUT CODTAB F_SORT
|
|
DISPLAY "Codice ordinamento" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_SORT CODTAB
|
|
OUTPUT F_SORTDESC S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "U"
|
|
MESSAGE EMPTY "Immissione",F_SORTDESC
|
|
END
|
|
|
|
STRING F_SORTDESC 50
|
|
BEGIN
|
|
PROMPT 28 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_SHEET
|
|
BEGIN
|
|
PROMPT 0 10 ""
|
|
ITEM "Tipo@4"
|
|
ITEM "Codice@20"
|
|
ITEM "Liv1"
|
|
ITEM "Tipo.L1"
|
|
ITEM "Liv2"
|
|
ITEM "Tipo.L2"
|
|
ITEM "Liv3"
|
|
ITEM "Tipo.L3"
|
|
ITEM "Liv4"
|
|
ITEM "Tipo.L4"
|
|
ITEM "UM@3"
|
|
ITEM "Espressione@30"
|
|
ITEM "Descrizione@50"
|
|
ITEM "Ord1"
|
|
ITEM "Ord2"
|
|
ITEM "Ord3"
|
|
ITEM "Ord4"
|
|
ITEM "Ord5"
|
|
ITEM "Immiss."
|
|
USE LF_RDIST KEY NRIG
|
|
INPUT CODDIST F_CODICE
|
|
FLAGS "A"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri" -1 -1 80 20
|
|
|
|
STRING F_CODICEQ 20
|
|
BEGIN
|
|
PROMPT 1 1 "Distinta "
|
|
FLAGS "D"
|
|
FIELD CODDIST
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 2 "@bUnita' di misura"
|
|
END
|
|
|
|
SPREADSHEET F_UNITA 0 5
|
|
BEGIN
|
|
PROMPT 0 3 ""
|
|
ITEM "Codice"
|
|
ITEM "Fatt. Convers.@18"
|
|
ITEM "Prezzo Netto@18"
|
|
ITEM "Unita' di riferimento"
|
|
ITEM "Descrizione@50"
|
|
USE LF_UMART KEY NRIGA
|
|
INPUT CODART F_CODICE
|
|
FLAGS "A"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 9 "@bElenco Variabili"
|
|
END
|
|
|
|
SPREADSHEET F_PARAMS
|
|
BEGIN
|
|
FLAGS "|"
|
|
PROMPT 0 10 ""
|
|
ITEM "Tipo"
|
|
ITEM "Variabile@20"
|
|
ITEM "Valore@120"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Distinta" -1 -1 74 18
|
|
|
|
GROUPBOX DLG_NULL 66 9
|
|
BEGIN
|
|
PROMPT 1 0 "Componente"
|
|
END
|
|
|
|
LIST F_TIPOCOMP 1 12
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo "
|
|
ITEM "A|Articolo"
|
|
MESSAGE SHOW,11@|HIDE,12@|HIDE,13@|HIDE,14@|ENABLE,F_UMEXPR|ENABLE,11@|DISABLE,12@|DISABLE,13@|DISABLE,14@
|
|
ITEM "L|Lavorazione"
|
|
MESSAGE HIDE,11@|SHOW,12@|HIDE,13@|HIDE,14@|DISABLE,F_UMEXPR|DISABLE,11@|ENABLE,12@|DISABLE,13@|DISABLE,14@
|
|
ITEM "D|Distinta"
|
|
MESSAGE HIDE,11@|HIDE,12@|SHOW,13@|HIDE,14@|ENABLE,F_UMEXPR|DISABLE,11@|DISABLE,12@|ENABLE,13@|DISABLE,14@
|
|
ITEM "V|Variabile"
|
|
MESSAGE HIDE,11@|HIDE,12@|HIDE,13@|SHOW,14@|CLEAR,F_UMEXPR|DISABLE,11@|DISABLE,12@|DISABLE,13@|ENABLE,14@
|
|
FIELD TIPO
|
|
END
|
|
|
|
STRING F_CODART 20
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_CODART
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_CODART CODART
|
|
OUTPUT F_DESCOMP DESCR
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN ve2 -3
|
|
FIELD CODCOMP
|
|
FLAGS "U"
|
|
GROUP 11
|
|
END
|
|
|
|
STRING F_CODLAV 20
|
|
BEGIN
|
|
PROMPT 30 2 "Codice "
|
|
USE LAV
|
|
INPUT CODTAB F_CODLAV
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODLAV CODTAB
|
|
OUTPUT F_DESLAV S0
|
|
CHECKTYPE REQUIRED
|
|
FIELD CODCOMP
|
|
FLAGS "UHD"
|
|
GROUP 12
|
|
END
|
|
|
|
STRING F_CODDIS 20
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
USE LF_DIST SELECT VIRTUALE=="X"
|
|
INPUT CODDIST F_CODDIS
|
|
DISPLAY "Codice@20" CODDIST
|
|
DISPLAY "Desrizione@50" DESCR
|
|
OUTPUT F_CODDIS CODDIST
|
|
OUTPUT F_DESDIS DESCR
|
|
CHECKTYPE REQUIRED
|
|
FIELD CODCOMP
|
|
FLAGS "UHD"
|
|
GROUP 13
|
|
END
|
|
|
|
STRING F_CODVAR 20
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
USE VAR
|
|
INPUT CODTAB F_CODVAR
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODVAR CODTAB
|
|
OUTPUT F_DESVAR S0
|
|
CHECKTYPE REQUIRED
|
|
FIELD CODCOMP
|
|
FLAGS "UHD"
|
|
GROUP 14
|
|
END
|
|
|
|
STRING F_DESCOMP 50
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT DESCR F_DESCOMP
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
COPY OUTPUT F_CODART
|
|
FIELD DESCR
|
|
GROUP 11
|
|
END
|
|
|
|
STRING F_DESLAV 50
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
USE LAV KEY 2
|
|
INPUT S0 F_DESLAV
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@20" CODTAB
|
|
COPY OUTPUT F_CODLAV
|
|
FIELD DESCR
|
|
FLAGS "HD"
|
|
GROUP 12
|
|
END
|
|
|
|
STRING F_DESDIS 50
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
USE LF_DIST KEY 2 SELECT VIRTUALE=="X"
|
|
INPUT DESCR F_DESDIS
|
|
DISPLAY "Desrizione@50" DESCR
|
|
DISPLAY "Codice@20" CODDIST
|
|
COPY OUTPUT F_CODDIS
|
|
FIELD DESCR
|
|
FLAGS "HD"
|
|
GROUP 13
|
|
END
|
|
|
|
STRING F_DESVAR 50
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
USE VAR KEY 2
|
|
INPUT S0 F_DESVAR
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@20" CODTAB
|
|
COPY OUTPUT F_CODVAR
|
|
FIELD DESCR
|
|
FLAGS "HD"
|
|
GROUP 14
|
|
END
|
|
|
|
LISTBOX F_TIPOLIV1 10
|
|
BEGIN
|
|
FIELD TIPO_LIV[1]
|
|
PROMPT 2 4 ""
|
|
ITEM " |Imposta"
|
|
MESSAGE ENABLE,F_LIV1
|
|
ITEM "E|Eredita"
|
|
MESSAGE CLEAR,F_LIV1
|
|
//TBI: ITEM "V|Variabile"
|
|
END
|
|
|
|
STRING F_LIV1 10
|
|
BEGIN
|
|
PROMPT 16 4 "Livello 1 "
|
|
FLAGS "U"
|
|
USE GCG
|
|
INPUT CODTAB[1,1] "1"
|
|
INPUT CODTAB[2,11] F_LIV1
|
|
DISPLAY "Gruppo@10" CODTAB[2,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_LIV1 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY RESET,F_LIV2|RESET,F_LIV3|RESET,F_LIV4
|
|
END
|
|
|
|
LISTBOX F_TIPOLIV2 10
|
|
BEGIN
|
|
FIELD TIPO_LIV[2]
|
|
PROMPT 2 5 ""
|
|
ITEM " |Imposta"
|
|
MESSAGE ENABLE,F_LIV2
|
|
ITEM "E|Eredita"
|
|
MESSAGE CLEAR,F_LIV2
|
|
END
|
|
|
|
STRING F_LIV2 6
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 16 5 "Livello 2 "
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] "2"
|
|
INPUT CODTAB[2,12] F_LIV2
|
|
COPY DISPLAY F_LIV1
|
|
OUTPUT F_LIV2 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY RESET,F_LIV3|RESET,F_LIV4
|
|
END
|
|
|
|
LISTBOX F_TIPOLIV3 10
|
|
BEGIN
|
|
FIELD TIPO_LIV[3]
|
|
PROMPT 2 6 ""
|
|
ITEM " |Imposta"
|
|
MESSAGE ENABLE,F_LIV3
|
|
ITEM "E|Eredita"
|
|
MESSAGE CLEAR,F_LIV3
|
|
END
|
|
|
|
STRING F_LIV3 6
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 16 6 "Livello 3 "
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] "3"
|
|
INPUT CODTAB[2,12] F_LIV3
|
|
COPY DISPLAY F_LIV1
|
|
OUTPUT F_LIV3 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY RESET,F_LIV4
|
|
END
|
|
|
|
LISTBOX F_TIPOLIV4 10
|
|
BEGIN
|
|
FIELD TIPO_LIV[4]
|
|
PROMPT 2 7 ""
|
|
ITEM " |Imposta"
|
|
MESSAGE ENABLE,F_LIV4
|
|
ITEM "E|Eredita"
|
|
MESSAGE CLEAR,F_LIV4
|
|
END
|
|
|
|
STRING F_LIV4 6
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 16 7 "Livello 4 "
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] "4"
|
|
INPUT CODTAB[2,12] F_LIV4
|
|
COPY DISPLAY F_LIV1
|
|
OUTPUT F_LIV4 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 66 4
|
|
BEGIN
|
|
PROMPT 1 9 "Formula"
|
|
END
|
|
|
|
STRING F_UMEXPR 2
|
|
BEGIN
|
|
PROMPT 2 10 "Unita' di misura "
|
|
USE LF_UMART KEY 2 SELECT CODART==#F_CODART
|
|
JOIN LF_ANAMAG INTO CODART==CODART
|
|
INPUT CODART F_CODART SELECT
|
|
INPUT UM F_UMEXPR
|
|
DISPLAY "Unita'" UM
|
|
DISPLAY "Articolo@20" CODART
|
|
DISPLAY "Descrizione Articolo@50" LF_ANAMAG->DESCR
|
|
OUTPUT F_UMEXPR UM
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FIELD UM
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_EXPR 50 62
|
|
BEGIN
|
|
PROMPT 2 11 ""
|
|
FIELD EXPR
|
|
FLAGS "U"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Necessario la quantita'"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 66 3
|
|
BEGIN
|
|
PROMPT 1 13 "Criteri d'ordinamento"
|
|
END
|
|
|
|
NUMBER F_SORT1 8
|
|
BEGIN
|
|
PROMPT 2 14 "1 "
|
|
FIELD SORT1
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER F_SORT2 8
|
|
BEGIN
|
|
PROMPT 15 14 "2 "
|
|
FIELD SORT2
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER F_SORT3 8
|
|
BEGIN
|
|
PROMPT 28 14 "3 "
|
|
FIELD SORT3
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER F_SORT4 8
|
|
BEGIN
|
|
PROMPT 41 14 "4 "
|
|
FIELD SORT4
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER F_SORT5 8
|
|
BEGIN
|
|
PROMPT 54 14 "5 "
|
|
FIELD SORT5
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER F_SORT0 8
|
|
BEGIN
|
|
PROMPT 80 14 "0 "
|
|
FLAGS "DU"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Unita'" -1 -1 66 7
|
|
|
|
STRING FU_UM 2
|
|
BEGIN
|
|
PROMPT 1 1 "Unita' "
|
|
FLAGS "U"
|
|
USE %UMS
|
|
INPUT CODTAB FU_UM
|
|
DISPLAY "Unita'" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FU_UM CODTAB
|
|
OUTPUT FU_DESC S0
|
|
CHECKTYPE REQUIRED
|
|
FILED UM
|
|
END
|
|
|
|
STRING FU_DESC 50
|
|
BEGIN
|
|
PROMPT 13 1 ""
|
|
USE %UMS KEY 2
|
|
INPUT S0 FU_DESC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Unita'@20" CODTAB
|
|
COPY OUTPUT FU_UM
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER FU_FC 18 5
|
|
BEGIN
|
|
PROMPT 1 2 "Fattore di conversione "
|
|
PICTURE ".5"
|
|
FIELD FC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
CURRENCY FU_PREZZO 18
|
|
BEGIN
|
|
PROMPT 1 3 "Prezzo Netto "
|
|
FLAGS "U"
|
|
FIELD PREZZO
|
|
END
|
|
|
|
BOOLEAN FU_RIF
|
|
BEGIN
|
|
PROMPT 1 4 "Unita' di riferimento per distinta"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Variabili" -1 -1 70 5
|
|
LIST FV_TYPE 7
|
|
BEGIN
|
|
PROMPT 1 1 "Variabile "
|
|
ITEM " |utente"
|
|
MESSAGE SHOW,FV_USERVAR|HIDE,FV_PARAM|"",FV_PARAM
|
|
ITEM "G|globale"
|
|
MESSAGE HIDE,FV_USERVAR|SHOW,FV_PARAM|"",FV_USERVAR
|
|
END
|
|
|
|
STRING FV_USERVAR 20
|
|
BEGIN
|
|
PROMPT 22 1 ""
|
|
USE VAR
|
|
INPUT CODTAB FV_USERVAR
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Numerico@B" B0
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FV_USERVAR CODTAB
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "U"
|
|
WARNING "Variabile utente inesistente"
|
|
END
|
|
STRING FV_PARAM 20
|
|
BEGIN
|
|
PROMPT 22 1 ""
|
|
FLAGS "U"
|
|
WARNING "Variabile globale inesistente"
|
|
END
|
|
|
|
STRING FV_VALUE 120 55
|
|
BEGIN
|
|
PROMPT 1 2 "Valore "
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|