#include "db1300a.h"

TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE    

PAGE "Implosione" 0 2 0 0

TEXT DLG_NULL
BEGIN
  PROMPT 1 0 "@bCodici da implodere"
END  

SPREADSHEET F_ARTS 78 7
BEGIN
  PROMPT 1 1 ""
  ITEM "Tipo@4"
  ITEM "Codice@20"
  ITEM "Descrizione@40"
  ITEM "Livello 1"
  ITEM "Livello 2"
  ITEM "Livello 3"
  ITEM "Livello 4"
END

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

SPREADSHEET F_VARS 78 5
BEGIN
  PROMPT 1 9 ""
  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 6
BEGIN
  PROMPT 1 15 "@bProdotti Finiti"
END

BOOLEAN F_FASTIMPLODE
BEGIN
  PROMPT 2 16 "Implosione rapida (senza articoli virtuali)"
  MESSAGE FALSE HIDE,F_ONLYONE
  MESSAGE TRUE SHOW,F_ONLYONE
END

BOOLEAN F_ONLYONE
BEGIN
  PROMPT 50 16 "Solo primo livello"
END

BOOLEAN F_DISPLAY_ZERO
BEGIN
  PROMPT 2 17 "Visualizza le quantitá a zero"
END

BOOLEAN F_USECATMER
BEGIN
  PROMPT 2 18 "Per categoria merceologica"
  MESSAGE FALSE HIDE,F_DA_CATMER|HIDE,F_A_CATMER
  MESSAGE TRUE  SHOW,F_DA_CATMER|SHOW,F_A_CATMER
END

STRING F_DA_CATMER 5
BEGIN
  PROMPT 42 18 "Da "
  FLAG "U"
  USE GMC
  INPUT CODTAB F_DA_CATMER
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DA_CATMER CODTAB
  CHECKTYPE NORMAL
END

STRING F_A_CATMER 5
BEGIN
  PROMPT 58 18 "A "
  FLAG "U"
  COPY USE F_DA_CATMER
  INPUT CODTAB F_A_CATMER
  COPY DISPLAY F_DA_CATMER
  OUTPUT F_A_CATMER CODTAB
  CHECKTYPE NORMAL
END

STRING F_DA_ARTICOLO 20
BEGIN
  PROMPT 2 19 "Dal "
  USE LF_ANAMAG
  INPUT CODART F_DA_ARTICOLO
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DA_ARTICOLO CODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAGS "U"
END

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

ENDPAGE

ENDMASK

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 ""
  PICTURE TOOL_DELREC
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

PAGE "Articoli" -1 -1 70 6

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

STRING F_ARTICOLO 20
BEGIN
  PROMPT 17 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 
BEGIN
  PROMPT 1 2 "Descrizione     "
  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 17 1 ""
  USE LF_DIST SELECT VIRTUALE="X"
  INPUT CODDIST F_DISTINTA
  DISPLAY "Codice@20" CODDIST
  DISPLAY "Desrizione@50" DESCR
  OUTPUT F_DISTINTA CODDIST
  OUTPUT F_DISDESCR DESCR
  CHECKTYPE REQUIRED
  ADD RUN db0 -4
  MESSAGE COPY,F_ARTICOLO
  FLAGS "U"
  GROUP 2
END

STRING F_DISDESCR 50
BEGIN
  PROMPT 1 2 "Descrizione     "
  COPY ALL F_DISTINTA
  ADD RUN db0 -4
  GROUP 2
END

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

STRING F_LAVDESCR 50
BEGIN
  PROMPT 1 2 "Descrizione     "
  USE LAV KEY 2
  INPUT S0 F_LAVDESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  COPY OUTPUT F_LAVORAZIONE
  CHECKTYPE REQUIRED
  GROUP 3
END

STRING F_LEV1 10
BEGIN
  FLAGS "U"
  PROMPT 1 3 "Livello 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
END

STRING F_LEV2 6
BEGIN
  FLAGS "U"
  PROMPT 30 3 "Livello 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
END

STRING F_LEV3 6
BEGIN
  FLAGS "U"
  PROMPT 1 4 "Livello 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
END

STRING F_LEV4 6
BEGIN
  FLAGS "U"
  PROMPT 30 4 "Livello 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
END

ENDPAGE

ENDMASK


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 ""
  PICTURE TOOL_DELREC
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

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

ENDPAGE

ENDMASK