#include "db0500a.h"

TOOLBAR "" 0 19 0 0

BUTTON DLG_SELECT 10 2
BEGIN
  PROMPT -16 -11 "~Selezione"
  MESSAGE EXIT,K_ENTER
  PICTURE BMP_SELECT
END

BUTTON DLG_NEWREC 10 2
BEGIN
  PROMPT -26 -11 "~Nuovo"
  MESSAGE EXIT,K_INS
  PICTURE BMP_NEWREC
  PICTURE BMP_NEWRECDN
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -36 -11 "~Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE BMP_DELREC
  PICTURE BMP_DELRECDN
END

BUTTON F_COPY 10 2
BEGIN
  PROMPT -46 -11 "~Copia"
END

BUTTON F_EXPLODE 10 2
BEGIN
  PROMPT -56 -11 "E~splodi"
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -66 -11 "~Fine"
  MESSAGE EXIT,K_QUIT
  PICTURE BMP_QUIT
  PICTURE BMP_QUITDN
END

ENDPAGE

PAGE "Distinta base" -1 -1 80 20

STRING DLG_PROFILE 30
BEGIN
  FLAGS "H"
  PROMPT 1 1 ""
  PSELECT
END

STRING F_CODICE 20
BEGIN
  PROMPT 2 1 "Cerca    "
  FLAGS "GU"
  USE LF_DIST
  JOIN LF_ANAMAG INTO CODART==CODDIST
  INPUT CODDIST F_CODICE
  DISPLAY "Codice@20" CODDIST
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  OUTPUT F_CODICE CODDIST 
  CHECKTYPE REQUIRED
  FIELD CODDIST
  DEFAULT NONE
END

STRING F_CODICEQ 20
BEGIN
  PROMPT 2 2 "Articolo "
  FIELD CODDIST
  KEY 1
  USE LF_ANAMAG
  JOIN LF_UMART INTO CODART=CODART NRIGA=1
  INPUT CODART F_CODICEQ
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODICEQ CODART
  CHECKTYPE REQUIRED
  ADD RUN ve2 -3
  MESSAGE COPY,F_CODICE
  FLAGS "U"
  DEFAULT NONE
END

STRING F_DESCR 50 40
BEGIN
  KEY 2
  PROMPT 34 2 ""
  USE LF_ANAMAG KEY 2
  JOIN LF_UMART INTO CODART=CODART NRIGA=1
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  OUTPUT F_CODICEQ CODART
  OUTPUT F_CODICE CODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAGS "U"
  DEFAULT NONE
END

STRING F_VAR_IMPIANTO 5
BEGIN
  FLAGS "UF"
  PROMPT 2 3 "Impianto "
  USE IMP
  INPUT CODTAB F_VAR_IMPIANTO
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUPUT F_VAR_IMPIANTO CODTAB
  MESSAGE CHECK, F_VAR_LINEA
  CHECKTYPE FORCED
END

STRING F_VAR_LINEA 5
BEGIN
  FLAGS "UF"
  PROMPT 20 3 "Linea "
  USE LNP
  INPUT CODTAB F_VAR_LINEA
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Impianto" S6
  OUPUT F_VAR_LINEA CODTAB
  OUPUT F_VAR_IMPIANTO S6
  CHECKTYPE FORCED
END

NUMBER F_SORT 1
BEGIN
  PROMPT 2 4 "Ordinamento "
  USE ORD
  INPUT CODTAB F_SORT
  DISPLAY "Codice ordinamento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_SORT CODTAB
  OUTPUT F_SORTDESC S0
  CHECKTYPE FORCED
  FLAGS "U"
  MESSAGE EMPTY "Immissione",F_SORTDESC
  DEFAULT NONE
END

STRING F_SORTDESC 50
BEGIN
  PROMPT 24 4 ""
  FLAGS "D"
  DEFAULT NONE
END

BOOL F_HIDE_GHOST 
BEGIN
  FLAGS "Fh"
  PROMPT 2 5 "Nascondi le distinte virtuali non di produzione"
  DEFAULT NONE
END

TREE F_TREE -3 -1
BEGIN
  PROMPT 0 5 ""
END

ENDPAGE

ENDMASK