#include "db2400a.h"

TOOLBAR "" 0 -2 0 2

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

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

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

ENDPAGE

PAGE "Valorizzazione" 0 0 80 19

GROUPBOX DLG_NULL 34 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

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

LIST F_TIPO 1 22
BEGIN
  PROMPT 2 7 "Tipo    "
  ITEM "0|Ultimo costo"
  MESSAGE HIDE,G_LISTINO@
  ITEM "1|Media costi"
  MESSAGE HIDE,G_LISTINO@
  ITEM "2|Prezzo listino"
  MESSAGE SHOW,G_LISTINO@
  ITEM "3|Costo standard"
  MESSAGE HIDE,G_LISTINO@
  ITEM "4|Costo medio"
  MESSAGE HIDE,G_LISTINO@
  ITEM "5|Costo medio ponderato"
  MESSAGE HIDE,G_LISTINO@
  ITEM "6|LIFO annuale"
  MESSAGE HIDE,G_LISTINO@
  ITEM "7|FIFO annuale"
  MESSAGE HIDE,G_LISTINO@
  ITEM "8|LIFO"
  MESSAGE HIDE,G_LISTINO@
  ITEM "9|FIFO"
  MESSAGE HIDE,G_LISTINO@
END

STRING F_CATVEN_LIST 2
BEGIN
  PROMPT 2 9 "Cat.ven. "
  USE CVE
  INPUT CODTAB F_CATVEN_LIST
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  DISPLAY "Provvigione" R0
  DISPLAY "Gruppo" I1
  DISPLAY "Conto"  I2
  OUTPUT F_CATVEN_LIST CODTAB
  GROUP G_LISTINO
END

STRING F_CODLIST 3
BEGIN
  PROMPT 16 9 "Cod. Listino "
  USE LF_CONDV SELECT TIPO=="L"
  INPUT TIPO "L"
  INPUT CATVEN F_CATVEN_LIST
  INPUT COD F_CODLIST
  DISPLAY "Cat. vendita" CATVEN
  DISPLAY "Listino"COD
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Inizio validita" VALIN
  DISPLAY "Fine validita" VALFIN
  OUTPUT F_CATVEN_LIST CATVEN
  OUTPUT F_CODLIST COD
  GROUP G_LISTINO
END


NUMBER F_ANNOES 4
BEGIN
  PROMPT 2 8 "Anno esercizio            "
  FLAGS "Z"
  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

GROUPBOX DLG_NULL 34 4
BEGIN
  PROMPT 1 11 "@bParametri in uscita"
END

LIST F_VALORIZZA 1 16
BEGIN
  PROMPT 2 12 "Valorizza     "
  ITEM "0|Costo standard"
  ITEM "1|Ultimo costo"
END

DATE F_DATA
BEGIN
  PROMPT 2 13 "Data elaborazione   "
  FLAGS "A"
END

BROWSEFILE F_PREVIEW 42 -1
BEGIN
  PROMPT 36 1 ""
END

ENDMASK