campo-sirio/db/db0500b.uml

#include "db0500a.h"

TOOLBAR "" 0 19 0 0

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -16 -11 "~Registra"
  MESSAGE EXIT,K_SAVE
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
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 DLG_FINDREC 10 2
BEGIN
  PROMPT -46 -11 "Ri~cerca"
  MESSAGE EXIT,K_F9
  PICTURE 126
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -56 -11 "~Annulla"
  MESSAGE EXIT,K_ESC
  PICTURE 102
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" -1 -1 80 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "Distinta"
END

STRING F_CODICE 20
BEGIN
  PROMPT 2 2 "Codice      "
  FLAGS "GUD"
  KEY 1
  FIELD CODDIST
END

LIST F_TIPO 1 12
BEGIN
  PROMPT 54 2 "Tipo "
  ITEM "A|Articolo"
    MESSAGE "",F_VIRTUALE
  ITEM "L|Lavorazione"
    MESSAGE "",F_VIRTUALE
  ITEM "V|Virtuale"
    MESSAGE "X",F_VIRTUALE
  FLAGS "DG"
END

BOOLEAN F_VIRTUALE
BEGIN
  PROMPT 50 50 "Virtuale"
  MESSAGE FALSE DISABLE,1@
  MESSAGE TRUE ENABLE,1@
  FLAGS "DG"
  FIELD VIRTUALE
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 3 ""
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 4 "Descrizione "
  FIELD DESCR
  GROUP 1
  FLAGS "D"
END

BOOLEAN F_ARTPROD
BEGIN
  PROMPT 2 5 "Articolo di produzione"
  FIELD ARTPROD
  GROUP 1
  FLAGS "D"
END

NUMBER F_PREZZO 15
BEGIN
  PROMPT 2 6 "Costo       "
  PICTURE "."
  FIELD PREZZO
  GROUP 1
  FLAGS "D"
END

STRING F_UM 3
BEGIN
  PROMPT 42 6 "Unita' di misura          "
  USE %UMS
  INPUT CODTAB F_UM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_UM CODTAB
  FIELD UM
  GROUP 1
  FLAGS "D"
END

NUMBER F_PESO 15 5
BEGIN
  PROMPT 2 7 "Peso        "
  FIELD PESO
  GROUP 1
  FLAGS "D"
END

STRING F_UMP 3
BEGIN
  PROMPT 42 7 "Unita' di misura del peso "
  COPY USE F_UM
  INPUT CODTAB F_UMP
  COPY DISPLAY F_UM
  OUTPUT F_UMP CODTAB
  FIELD UMP
  GROUP 1
  FLAGS "D"
END

NUMBER F_SORT 1
BEGIN
  PROMPT 2 9 "Cambia ordinamento "
  USE ORD
  INPUT CODTAB F_SORT
  DISPLAY "Codice ordinamento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_SORT CODTAB
  OUTPUT F_SORTDESC S0
  CHECKTYPE NORMAL
  FLAGS "U"
  MESSAGE EMPTY "Immissione",F_SORTDESC
END

STRING F_SORTDESC 50
BEGIN
  PROMPT 28 9 ""
  FLAGS "D"
END

SPREADSHEET F_SHEET
BEGIN
  PROMPT 0 10 ""
  ITEM "Tipo@4"
  ITEM "Codice@20"
  ITEM "Liv1"
  ITEM "Liv2"
  ITEM "Liv3"
  ITEM "Liv4"
  ITEM "UM@3"
  ITEM "Espressione@30"
  ITEM "Descrizione@50"
  ITEM "Ord1"
  ITEM "Ord2"
  ITEM "Ord3"
  ITEM "Ord4"
  ITEM "Ord5"
  ITEM "Immiss."
  USE LF_RDIST KEY NRIG
  INPUT CODDIST F_CODICE
  FLAGS "A"
END

ENDPAGE

PAGE "Parametri" -1 -1 80 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "Distinta"
END

STRING F_CODICEQ 20
BEGIN
  PROMPT 2 2 "Codice      "
  FLAGS "D"
  FIELD CODDIST
END

SPREADSHEET F_PARAMS
BEGIN
  PROMPT 0 4 ""
  ITEM "Variabile@20"
  ITEM "Valore@70"
END

ENDPAGE

ENDMASK

PAGE "Distinta" -1 -1 68 14

GROUPBOX DLG_NULL 66 6
BEGIN
  PROMPT 1 0 "Componente"
END

LIST F_TIPOCOMP 1 12
BEGIN
  PROMPT 2 1 "Tipo        "
  ITEM "A|Articolo"
    MESSAGE SHOW,F_CODART|HIDE,F_CODLAV|HIDE,F_CODDIS|HIDE,F_CODVAR|ENABLE,F_UMEXPR
  ITEM "L|Lavorazione"
    MESSAGE HIDE,F_CODART|SHOW,F_CODLAV|HIDE,F_CODDIS|HIDE,F_CODVAR|DISABLE,F_UMEXPR
  ITEM "D|Distinta"
    MESSAGE HIDE,F_CODART|HIDE,F_CODLAV|SHOW,F_CODDIS|HIDE,F_CODVAR|DISABLE,F_UMEXPR
  ITEM "V|Variabile"
    MESSAGE HIDE,F_CODART|HIDE,F_CODLAV|HIDE,F_CODDIS|SHOW,F_CODVAR|CLEAR,F_UMEXPR
  FIELD TIPO
END

STRING F_CODART 20
BEGIN
  PROMPT 35 1 "Codice "
  USE LF_ANAMAG
  INPUT CODART F_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  CHECKTYPE REQUIRED
  ADD RUN ve2 -3
  FIELD CODCOMP
  FLAGS "U"
END

STRING F_CODLAV 20
BEGIN
  PROMPT 35 1 "Codice "
  USE LAV
  INPUT CODTAB F_CODLAV
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODLAV CODTAB
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_CODART
  FLAGS "U"
END

STRING F_CODDIS 20
BEGIN
  PROMPT 35 1 "Codice "
  USE LF_DIST SELECT VIRTUALE=="X"
  INPUT CODDIST F_CODDIS 
  DISPLAY "Codice@20" CODDIST
  DISPLAY "Desrizione@50" DESCR
  OUTPUT F_CODDIS CODDIST
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_CODART
  FLAGS "U"
END

STRING F_CODVAR 20
BEGIN
  PROMPT 35 1 "Codice "
  USE VAR
  INPUT CODTAB F_CODVAR
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODVAR CODTAB
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_CODART
  FLAGS "U"
END

STRING F_LIV1 10
BEGIN
  PROMPT 2 2 "Livello 1   "
  FLAGS "U"
  USE GCG
  INPUT CODTAB[1,1] "1" 
  INPUT CODTAB[2,11] F_LIV1
  DISPLAY "Gruppo@10" CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_LIV1 CODTAB[2,12] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY RESET,F_LIV2|RESET,F_LIV3|RESET,F_LIV4
END

STRING F_LIV2 6
BEGIN
  FLAGS "U"
  PROMPT 36 2 "Livello 2   "
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "2" 
  INPUT CODTAB[2,12] F_LIV2
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV2 CODTAB[2,12] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY RESET,F_LIV3|RESET,F_LIV4
END

STRING F_LIV3 6
BEGIN
  FLAGS "U"
  PROMPT 2 3 "Livello 3   "
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "3" 
  INPUT CODTAB[2,12] F_LIV3
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV3 CODTAB[2,12] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY RESET,F_LIV4
END

STRING F_LIV4 6
BEGIN
  FLAGS "U"
  PROMPT 36 3 "Livello 4   "
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "4" 
  INPUT CODTAB[2,12] F_LIV4
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV4 CODTAB[2,12] 
  CHECKTYPE NORMAL
END

STRING F_DESCOMP 50
BEGIN
  PROMPT 2 4 "Descrizione "
  FLAGS "D"
END

GROUPBOX DLG_NULL 66 4
BEGIN
  PROMPT 1 6 "Formula"
END

STRING F_UMEXPR 2
BEGIN
  PROMPT 2 7 "Unita' di misura "
  USE LF_UMART KEY 2
  JOIN LF_ANAMAG INTO CODART==CODART
  INPUT CODART F_CODART SELECT
  INPUT UM F_UMEXPR
  DISPLAY "Unita'" UM
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione Articolo@50" LF_ANAMAG->DESCR
  OUTPUT F_UMEXPR UM
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FIELD UM
  FLAGS "U"
END

STRING F_EXPR 50 62
BEGIN
  PROMPT 2 8 ""
  FIELD EXPR
  FLAGS "U"
END

GROUPBOX DLG_NULL 66 3
BEGIN
  PROMPT 1 10 "Criteri d'ordinamento"
END

NUMBER F_SORT1 8
BEGIN
  PROMPT 2 11 "1 "
  FIELD SORT1
  FLAGS "U"
END

NUMBER F_SORT2 8
BEGIN
  PROMPT 15 11 "2 "
  FIELD SORT2
  FLAGS "U"
END

NUMBER F_SORT3 8
BEGIN
  PROMPT 28 11 "3 "
  FIELD SORT3
  FLAGS "U"
END

NUMBER F_SORT4 8
BEGIN
  PROMPT 41 11 "4 "
  FIELD SORT4
  FLAGS "U"
END

NUMBER F_SORT5 8
BEGIN
  PROMPT 54 11 "5 "
  FIELD SORT5
  FLAGS "U"
END

NUMBER F_SORT0 8
BEGIN
  PROMPT 80 11 "0 "
  FLAGS "DU"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK

PAGE "Variabili" -1 -1 64 5

STRING F_PARAM 20
BEGIN
  PROMPT 1 1 "Variabile "
  USE VAR
  INPUT CODTAB F_PARAM
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Numerico@B" B0
  DISPLAY "Descrizione@50" S0
  OUTPUT F_PARAM CODTAB
  CHECKTYPE REQUIRED
  FLAGS "U"
END

STRING F_VALUE 70 50
BEGIN
  PROMPT 1 2 "Valore    "
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK