#include "pd0300100a.h"

TOOLBAR "" 0 -2 0 2

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -14 -11 "~Elabora"
  PICTURE BMP_ELABORA 
END

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -24 -11 "~Registra"
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -34 -11 ""
  FLAGS "D"
  GROUP 4  
END

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

ENDPAGE

PAGE "Valorizzazione" 0 0 80 19

GROUPBOX DLG_NULL 74 4
BEGIN
  PROMPT 1 1 "@bSelezione"
END

STRING F_DIST_FROM 20
BEGIN
  PROMPT 2 2 "Da codice "
  FLAGS "U"
  USE LF_DIST
  JOIN LF_ANAMAG INTO CODART==CODDIST
  INPUT CODDIST F_DIST_FROM
  DISPLAY "Codice@20" CODDIST
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  OUTPUT F_DIST_FROM CODDIST 
  CHECKTYPE SEARCH
  ADD RUN DB0 -4
END

STRING F_DIST_TO 20
BEGIN
  PROMPT 2 3 "A codice  "
  FLAGS "U"
  USE LF_DIST
  JOIN LF_ANAMAG INTO CODART==CODDIST
  INPUT CODDIST F_DIST_TO
  DISPLAY "Codice@20" CODDIST
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  OUTPUT F_DIST_TO CODDIST 
  CHECKTYPE SEARCH
  ADD RUN DB0 -4
END

STRING F_CODMAG 3
BEGIN
  FLAGS "U"
  PROMPT 38 2  "Magazzino "
  USE MAG SELECT CODTAB[4,5]=""
  INPUT CODTAB F_CODMAG
  DISPLAY "Magazzino" CODTAB 
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODMAG CODTAB
  CHECKTYPE NORMAL
END

STRING F_CODDEP 2
BEGIN
  FLAGS "U"
  PROMPT 38 3 "Deposito  "
  USE MAG 
  INPUT CODTAB[1,3] F_CODMAG
  INPUT CODTAB[4,5] F_CODDEP
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Deposito" CODTAB[4,5] 
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODMAG CODTAB[1,3] 
  OUTPUT F_CODDEP CODTAB[4,5]
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 34 4
BEGIN
  PROMPT 1 5 "@bParametri in ingresso"
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 2 6 "Anno esercizio            "
  FLAGS "ZA"
  USE ESC
  INPUT CODTAB F_ANNOES
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Inizio esercizio" D0
  DISPLAY "Fine esercizio" D1
  OUTPUT F_ANNOES CODTAB
  CHECKTYPE NORMAL
END

NUMBER F_SCONTO 6 3
BEGIN
  PROMPT 2 7 "Sconto                    "
  WARNING "Indicare lo sconto "
END

GROUPBOX DLG_NULL 34 4
BEGIN
  PROMPT 41 5 "@bParametri in uscita"
END

LIST F_VALORIZZA 1 16
BEGIN
  PROMPT 42 6 "Valorizza     "
  ITEM "0|Costo standard"
  ITEM "1|Ultimo costo"
  ITEM "2|Prezzo vendita"
END

DATE F_DATA
BEGIN
  PROMPT 42 7 "Data elaborazione   "
  FLAGS "A"
END

BROWSEFILE F_PREVIEW 0 -1
BEGIN
  PROMPT 0 8 ""
END

ENDMASK