166 lines
3.0 KiB
Plaintext
Executable File
166 lines
3.0 KiB
Plaintext
Executable File
|
|
// SHEET 2 (codici alternativi) DI VE2400
|
|
|
|
PAGE "Pagina 1" 5 5 75 15
|
|
|
|
STRING FS_CODARTALT 20
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 3 2 "Codice alternativo "
|
|
FIELD CODARTALT
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Codice alternativo obbligatorio"
|
|
END
|
|
|
|
LISTBOX FS_TIPO 10
|
|
BEGIN
|
|
PROMPT 2 4 "Tipo di codice "
|
|
FIELD TIPO
|
|
ITEM "N|Normale"
|
|
ITEM "8|EAN8 "
|
|
ITEM "1|EA13 "
|
|
ITEM "3|3/9 "
|
|
ITEM "C|Codabar"
|
|
END
|
|
|
|
STRING FS_CODUMCORR 2
|
|
BEGIN
|
|
PROMPT 2 6 "Unità di misura "
|
|
FIELD UM
|
|
FLAG "U"
|
|
USE %UMS
|
|
INPUT CODTAB FS_CODUMCORR
|
|
DISPLAY "U.M. " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FS_CODUMCORR CODTAB
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Unita' di misura errata"
|
|
END
|
|
|
|
//Livelli giacenza
|
|
STRING FS_LIV1 10
|
|
BEGIN
|
|
// Non mettere FLAGS "D" perché disabiliterebbe tutta la colonna
|
|
FLAGS "U"
|
|
PROMPT 2 8 "Livello 1 "
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] "1"
|
|
INPUT CODTAB[2,11] FS_LIV1
|
|
DISPLAY "Livello@20" 500@->S0
|
|
DISPLAY "Gruppo@10" CODTAB[2,20]
|
|
DISPLAY "Descr.@30" S0
|
|
OUTPUT FS_LIV1 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,FS_LIV2|CLEAR,FS_LIV3|CLEAR,FS_LIV4
|
|
MESSAGE ENABLE,FS_LIV2
|
|
FIELD LIV1
|
|
END
|
|
|
|
STRING FS_LIV2 10
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 40 8 "Livello 2 "
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] "2"
|
|
INPUT CODTAB[2,12] FS_LIV2
|
|
COPY DISPLAY FS_LIV1
|
|
OUTPUT FS_LIV2 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,FS_LIV3|CLEAR,FS_LIV4
|
|
MESSAGE ENABLE,FS_LIV3
|
|
FIELD LIV2
|
|
END
|
|
|
|
STRING FS_LIV3 10
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 9 "Livello 3 "
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] "3"
|
|
INPUT CODTAB[2,12] FS_LIV3
|
|
COPY DISPLAY FS_LIV1
|
|
OUTPUT FS_LIV3 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,FS_LIV4
|
|
MESSAGE ENABLE,FS_LIV4
|
|
FIELD LIV3
|
|
END
|
|
|
|
STRING FS_LIV4 10
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 40 9 "Livello 4 "
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] "4"
|
|
INPUT CODTAB[2,12] FS_LIV4
|
|
COPY DISPLAY FS_LIV1
|
|
OUTPUT FS_LIV4 CODTAB[2,12]
|
|
CHECKTYPE NORMAL
|
|
FIELD LIV4
|
|
END
|
|
|
|
LISTBOX FS_TIPOCF 10
|
|
BEGIN
|
|
PROMPT 2 10 "Tipo "
|
|
FIELD TIPOCF
|
|
ITEM " |Nessuno" MESSAGE CLEAR,1@
|
|
ITEM "C|Cliente" MESSAGE ENABLE,1@
|
|
ITEM "F|Fornitore" MESSAGE ENABLE,1@
|
|
END
|
|
|
|
NUMBER FS_CODCF 6
|
|
BEGIN
|
|
PROMPT 2 11 "Codice "
|
|
FIELD CODCF
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF FS_TIPOCF SELECT
|
|
INPUT CODCF FS_CODCF
|
|
DISPLAY "Codice " CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA" PAIV
|
|
OUTPUT FS_CODCF CODCF
|
|
OUTPUT FS_RAGCF RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
GROUP 1
|
|
END
|
|
|
|
STRING FS_RAGCF 50
|
|
BEGIN
|
|
PROMPT 2 12 "Ragione sociale "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF FS_TIPOCF SELECT
|
|
INPUT RAGSOC FS_RAGCF
|
|
COPY DISPLAY FS_CODCF
|
|
COPY OUTPUT FS_CODCF
|
|
GROUP 1
|
|
END
|
|
|
|
STRING FS_DESCRC 50
|
|
BEGIN
|
|
PROMPT 2 13 "Descrizione "
|
|
FIELD DESCR
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |