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|ENABLE,F_MASTER|ENABLE,F_ARTACQ|ENABLE,F_ARTPROD
  ITEM "L|Lavorazione"
    MESSAGE "",F_VIRTUALE|CLEAR,F_MASTER|CLEAR,F_ARTACQ|CLEAR,F_ARTPROD
  ITEM "V|Virtuale"
    MESSAGE "X",F_VIRTUALE|CLEAR,F_MASTER|CLEAR,F_ARTACQ|ENABLE,F_ARTPROD
  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
END

BOOLEAN F_ARTACQ
BEGIN
  PROMPT 32 5 "Articolo di acquisto"
  FIELD ARTACQ
END

BOOLEAN F_MASTER
BEGIN
  PROMPT 60 5 "Articolo Master"
  FIELD MASTER
END

CURRENCY F_PREZZO 15
BEGIN
  PROMPT 2 6 "Costo "
  FIELD PREZZO
  GROUP 1
  FLAGS "DU"
END

STRING F_UM 2
BEGIN
  PROMPT 26 6 "Unita' di misura "
  FLAGS "DG"
  USE LF_UMART KEY 2
  JOIN LF_UMART ALIAS 200 INTO CODART==CODART
  INPUT CODART F_CODICE SELECT
  INPUT UM F_UM
  OUTPUT F_UM UM
  OUTPUT F_FCUMART FC
  OUTPUT F_UMART1ST 200@->UM
  CHECKTYPE NORMAL
  FIELD UM
END

NUMBER F_FCUMART 18 5
BEGIN
  PROMPT 50 6 "= "
  PICTURE "###.###.###,@@@@@"
  FLAG "D"
  CHECKTYPE REQUIRED
END

STRING F_UMART1ST 2
BEGIN
  PROMPT 74 6 ""
  FLAG "D"
END

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

STRING F_UMP 2
BEGIN
  PROMPT 26 7 "Unita' di misura del peso "
  USE %UMS
  INPUT CODTAB F_UMP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_UMP CODTAB
  FIELD UMP
  GROUP 1
  FLAGS "DU"
  CHECKTYPE NORMAL
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 "Tipo.L1"
  ITEM "Liv2"
  ITEM "Tipo.L2"
  ITEM "Liv3"
  ITEM "Tipo.L3"
  ITEM "Liv4"
  ITEM "Tipo.L4"
  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

STRING F_CODICEQ 20
BEGIN
  PROMPT 1 1 "Distinta       "
  FLAGS "D"
  FIELD CODDIST
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 2 "@bUnita' di misura"
END

SPREADSHEET F_UNITA 0 5
BEGIN
  PROMPT 0 3 ""
  ITEM "Codice"
  ITEM "Fatt. Convers.@18"
  ITEM "Prezzo Netto@18"
  ITEM "Unita' di riferimento"
  ITEM "Descrizione@50"
  USE LF_UMART KEY NRIGA
  INPUT CODART F_CODICE
  FLAGS "A"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "@bElenco Variabili"
END

SPREADSHEET F_PARAMS
BEGIN
  FLAGS "|"
  PROMPT 0 10 ""
  ITEM "Tipo"
  ITEM "Variabile@20"
  ITEM "Valore@120"
END

ENDPAGE

ENDMASK

PAGE "Distinta" -1 -1 74 18

GROUPBOX DLG_NULL 66 9
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|ENABLE,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 2 2 "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 2 2 "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 2 2 "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 2 2 "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_DESCOMP 50
BEGIN
  PROMPT 2 3 "Descrizione "
  FLAGS "D"
END

LISTBOX F_TIPOLIV1 10
BEGIN
  FIELD TIPO_LIV[1]
  PROMPT 2 4 ""
  ITEM " |Imposta"
  MESSAGE ENABLE,F_LIV1
  ITEM "E|Eredita"
  MESSAGE CLEAR,F_LIV1
//TBI:  ITEM "V|Variabile"
END

STRING F_LIV1 10
BEGIN
  PROMPT 16 4 "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

LISTBOX F_TIPOLIV2 10
BEGIN
  FIELD TIPO_LIV[2]
  PROMPT 2 5 ""
  ITEM " |Imposta"
  MESSAGE ENABLE,F_LIV2
  ITEM "E|Eredita"
  MESSAGE CLEAR,F_LIV2
END

STRING F_LIV2 6
BEGIN
  FLAGS "U"
  PROMPT 16 5 "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

LISTBOX F_TIPOLIV3 10
BEGIN
  FIELD TIPO_LIV[3]
  PROMPT 2 6 ""
  ITEM " |Imposta"
  MESSAGE ENABLE,F_LIV3
  ITEM "E|Eredita"
  MESSAGE CLEAR,F_LIV3
END

STRING F_LIV3 6
BEGIN
  FLAGS "U"
  PROMPT 16 6 "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

LISTBOX F_TIPOLIV4 10
BEGIN
  FIELD TIPO_LIV[4]
  PROMPT 2 7 ""
  ITEM " |Imposta"
  MESSAGE ENABLE,F_LIV4
  ITEM "E|Eredita"
  MESSAGE CLEAR,F_LIV4
END

STRING F_LIV4 6
BEGIN
  FLAGS "U"
  PROMPT 16 7 "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

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

STRING F_UMEXPR 2
BEGIN
  PROMPT 2 10 "Unita' di misura "
  USE LF_UMART KEY 2 SELECT CODART==#F_CODART
  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 11 ""
  FIELD EXPR
  FLAGS "U"
  CHECKTYPE REQUIRED
  WARNING "Necessario la quantita'"
END

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

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

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

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

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

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

NUMBER F_SORT0 8
BEGIN
  PROMPT 80 14 "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 "Unita'" -1 -1 66 7

STRING FU_UM 2
BEGIN
  PROMPT 1 1 "Unita' "
  FLAGS "U"
  USE %UMS
  INPUT CODTAB FU_UM
  DISPLAY "Unita'" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FU_UM CODTAB
  OUTPUT FU_DESC S0
  CHECKTYPE REQUIRED
  FILED UM
END

STRING FU_DESC 50
BEGIN
  PROMPT 13 1 "" 
  USE %UMS KEY 2
  INPUT S0 FU_DESC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Unita'@20" CODTAB
  COPY OUTPUT FU_UM
  CHECKTYPE REQUIRED
END

NUMBER FU_FC 18 5
BEGIN
  PROMPT 1 2 "Fattore di conversione "
  PICTURE ".5"
  FIELD FC
  CHECKTYPE REQUIRED
END

CURRENCY FU_PREZZO 18
BEGIN
  PROMPT 1 3 "Prezzo Netto           "
  FLAGS "U"
  FIELD PREZZO
END

BOOLEAN FU_RIF
BEGIN
  PROMPT 1 4 "Unita' di riferimento per distinta"
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 70 5
LIST FV_TYPE 7
BEGIN
  PROMPT 1 1 "Variabile "
  ITEM " |utente"
        MESSAGE SHOW,FV_USERVAR|HIDE,FV_PARAM|"",FV_PARAM
  ITEM "G|globale"
        MESSAGE HIDE,FV_USERVAR|SHOW,FV_PARAM|"",FV_USERVAR
END

STRING FV_USERVAR 20
BEGIN
  PROMPT 22 1 ""
  USE VAR
  INPUT CODTAB FV_USERVAR
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Numerico@B" B0
  DISPLAY "Descrizione@50" S0
  OUTPUT FV_USERVAR CODTAB
  CHECKTYPE REQUIRED
  FLAGS "U"
  WARNING "Variabile utente inesistente"
END
STRING FV_PARAM 20
BEGIN
  PROMPT 22 1 ""
  FLAGS "U"
  WARNING "Variabile globale inesistente"
END

STRING FV_VALUE 120 55
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