57662b88e6
Files correlati : db0.exe db0500a.msk db0500b.msk db1.exe db1100a.msk Attivata la descrizione della distinta in immissione Copiato l’articolo nel codice distinta in ricerca Impostata l’unità di misura nella pagina disponibilità dell’esplosione Stampate la descrizione di distinta a e di riga nell’ esplosione git-svn-id: svn://10.65.10.50/branches/R_10_00@24001 c028cbd2-c16b-5b4b-a496-9718f37d4682
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
|