// 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