campo-sirio/db/db2400a.uml

#include "db2400a.h"

TOOLBAR "" 0 19 0 0

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 -0
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 -0
END

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

LIST F_TIPO 1 22
BEGIN
  PROMPT 2 7 "Tipo    "
  ITEM "0|Ultimo costo"
  ITEM "1|Media costi"
  ITEM "2|Prezzo listino"
  ITEM "3|Costo standard"
  ITEM "4|Costo medio"
  ITEM "5|Costo medio ponderato"
  ITEM "6|LIFO annuale"
  ITEM "7|FIFO annuale"
  ITEM "8|LIFO"
  ITEM "9|FIFO"
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