campo-sirio/db/db2400a.uml

#include "db2400a.h"

TOOLBAR "topbar" 0 0 0 2

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

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

#include <printbar.h>

ENDPAGE

PAGE "Valorizzazione" 0 2 0 0

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

STRING F_IMPIANTO 5
BEGIN
  FLAGS "UF"
  PROMPT 56 2  "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 56 3 "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


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

LIST F_TIPO 1 22
BEGIN
  PROMPT 2 6 "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

BOOELAN F_DETTAGLIATA
BEGIN
  PROMPT 2 7 "Dettagliata"
END

STRING F_CATVEN_LIST 2
BEGIN
  PROMPT 2 7 "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 7 "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 5
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 8 "Data elaborazione   "
  FLAGS "A"
END

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

ENDMASK