#include "db1300a.h"

TOOLBAR "" 0 -3 0 3

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -11 ""
END

BUTTON F_RESETVARS 10 2
BEGIN
  PROMPT -23 -11 "~Azzera"
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -33 -11 ""
END

ENDPAGE    

PAGE "Implosione" -1 -1 60 20

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 "@bCodice da implodere"
END  

LIST F_DISTTYPE 1 12
BEGIN  
  PROMPT 2 1 ""
  ITEM "A|Articolo" 
    MESSAGE SHOW,1@|HIDE,2@|HIDE,3@|SHOW,4@
  ITEM "D|Distinta" 
    MESSAGE HIDE,1@|SHOW,2@|HIDE,3@|SHOW,4@
  ITEM "L|Lavorazione" 
    MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|HIDE,4@
END

STRING F_ARTICOLO 20
BEGIN
  PROMPT 18 1 ""
  USE LF_ANAMAG
  INPUT CODART F_ARTICOLO
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ARTICOLO CODART
  OUTPUT F_ARTDESCR DESCR
  CHECKTYPE REQUIRED
  ADD RUN ve2 -3
  FLAGS "U"
  GROUP 1
END

STRING F_ARTDESCR 50 32
BEGIN
  KEY 2
  PROMPT 44 1 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_ARTDESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT F_ARTICOLO
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAGS "U"
  GROUP 1
END

STRING F_DISTINTA 20
BEGIN
  PROMPT 18 1 ""
  USE LF_DIST SELECT VIRTUALE="X"
  INPUT CODDIST F_DISTINTA
  DISPLAY "Codice@20" CODDIST
  DISPLAY "Desrizione@50" DESCR
  OUTPUT F_DISTINTA CODDIST
  CHECKTYPE REQUIRED
  ADD RUN db0 -4
  MESSAGE COPY,F_ARTICOLO
  FLAGS "U"
  GROUP 2
END

STRING F_LAVORAZIONE 20
BEGIN
  PROMPT 18 1 ""
  USE LAV
  INPUT CODTAB F_LAVORAZIONE
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_LAVORAZIONE CODTAB
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_ARTICOLO
  FLAGS "U"
  GROUP 3
END

STRING F_LEV1 10
BEGIN
  FLAGS "U"
  PROMPT 2 2 "Liv. 1 "
  USE GCG
  INPUT CODTAB[1] "1"
  INPUT CODTAB[2,20] F_LEV1
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT F_LEV1 CODTAB[2,20]
  CHECKTYPE NORMAL
  GROUP 4
END

STRING F_LEV2 6
BEGIN
  FLAGS "U"
  PROMPT 25 2 "Liv. 2 "
  USE GCG
  INPUT CODTAB[1] "2"
  INPUT CODTAB[2,20] F_LEV2
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT F_LEV2 CODTAB[2,20]
  CHECKTYPE NORMAL
  GROUP 4
END

STRING F_LEV3 6
BEGIN
  FLAGS "U"
  PROMPT 44 2 "Liv. 3 "
  USE GCG
  INPUT CODTAB[1] "3"
  INPUT CODTAB[2,20] F_LEV3
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT F_LEV3 CODTAB[2,20]
  CHECKTYPE NORMAL
  GROUP 4
END

STRING F_LEV4 6
BEGIN
  FLAGS "U"
  PROMPT 63 2 "Liv. 4 "
  USE GCG
  INPUT CODTAB[1] "4"
  INPUT CODTAB[2,20] F_LEV4
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT F_LEV4 CODTAB[2,20]
  CHECKTYPE NORMAL
  GROUP 4
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 4 "@bVariabili d'ambiente"
END

SPREADSHEET F_VARS 78 8
BEGIN
  PROMPT 1 5 ""
  ITEM "Impianto"
  ITEM "Linea"
  ITEM "Magazzino"
  ITEM "Deposito"
  ITEM "Liv. 1@10"
  ITEM "Liv. 2@6"
  ITEM "Liv. 3@6"
  ITEM "Liv. 4@6"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 15 "@bProdotti Finiti"
END

BOOLEAN F_USECATMER
BEGIN
  PROMPT 2 16 "Per categoria merceologica"
  MESSAGE FALSE HIDE,F_CATMER
  MESSAGE TRUE  SHOW,F_CATMER
END

STRING F_CATMER 5
BEGIN
  PROMPT 34 16 ""
  FLAG "U"
  USE GMC
  INPUT CODTAB F_CATMER
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CATMER CODTAB
  CHECKTYPE NORMAL
END

STRING F_DA_ARTICOLO 20
BEGIN
  PROMPT 2 17 "Dal "
  COPY USE F_ARTICOLO
  INPUT CODART F_DA_ARTICOLO
  COPY DISPLAY F_ARTICOLO
  OUTPUT F_DA_ARTICOLO CODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAGS "U"
END

STRING F_AD_ARTICOLO 20
BEGIN
  PROMPT 42 17 "Al "
  COPY USE F_ARTICOLO
  INPUT CODART F_AD_ARTICOLO
  COPY DISPLAY F_ARTICOLO
  OUTPUT F_AD_ARTICOLO CODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAGS "U"
END

ENDPAGE

ENDMASK

PAGE "Variabili" -1 -1 60 8

STRING F_IMPIANTO 5
BEGIN
  FLAGS "UF"
  PROMPT 1 1 "Impianto  "
  USE IMP
  INPUT CODTAB F_IMPIANTO
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUPUT F_IMPIANTO CODTAB
  MESSAGE CHECK, F_LINEA
  CHECKTYPE NORMAL
END

STRING F_LINEA 5
BEGIN
  FLAGS "UF"
  PROMPT 36 1 "Linea     "
  USE LNP
  INPUT CODTAB F_LINEA
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Impianto" S6
  OUPUT F_LINEA CODTAB
  OUPUT F_IMPIANTO S6
  CHECKTYPE NORMAL
END

STRING F_MAGAZZINO 3
BEGIN 
  PROMPT 1 2 "Magazzino "
  USE MAG SELECT CODTAB[4,5]=""
  INPUT CODTAB F_MAGAZZINO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_MAGAZZINO CODTAB
  CHECKTYPE NORMAL
END

STRING F_DEPOSITO 2
BEGIN 
  PROMPT 36 2 "Deposito  "
  USE MAG SELECT CODTAB[4,5]!=""
  INPUT CODTAB[1,3] F_MAGAZZINO
  INPUT CODTAB[4,5] F_DEPOSITO
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Deposito" CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_MAGAZZINO CODTAB[1,3]
  OUTPUT F_DEPOSITO CODTAB[4,5]
  CHECKTYPE NORMAL
END

STRING 105 10
BEGIN
  FLAGS "U"
  PROMPT 1 3 "Liv. 1    "
  USE GCG
  INPUT CODTAB[1] "1"
  INPUT CODTAB[2,20] 105
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT 105 CODTAB[2,20]
  CHECKTYPE NORMAL
  GROUP 4
END

STRING 106 6
BEGIN
  FLAGS "U"
  PROMPT 36 3 "Liv. 2    "
  USE GCG
  INPUT CODTAB[1] "2"
  INPUT CODTAB[2,20] 106
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT 106 CODTAB[2,20]
  CHECKTYPE NORMAL
  GROUP 4
END

STRING 107 6
BEGIN
  FLAGS "U"
  PROMPT 1 4 "Liv. 3    "
  USE GCG
  INPUT CODTAB[1] "3"
  INPUT CODTAB[2,20] 107
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT 107 CODTAB[2,20]
  CHECKTYPE NORMAL
  GROUP 4
END

STRING 108 6
BEGIN
  FLAGS "U"
  PROMPT 36 4 "Liv. 4    "
  USE GCG
  INPUT CODTAB[1] "4"
  INPUT CODTAB[2,20] 108
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT 108 CODTAB[2,20]
  CHECKTYPE NORMAL
  GROUP 4
END

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