d030bbabe2
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 766 git-svn-id: svn://10.65.10.50/trunk@14628 c028cbd2-c16b-5b4b-a496-9718f37d4682
124 lines
2.3 KiB
Plaintext
Executable File
124 lines
2.3 KiB
Plaintext
Executable File
|
|
// SHEET 2 (codici alternativi) DI VE2400
|
|
|
|
PAGE "Pagina 1" 8 5 65 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 "Unita' 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 8 "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
|
|
|
|
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 |