campo-sirio/db/db0500b.uml

#include "db0500a.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Distinta" -1 -1 80 20

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

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


LIST F_TIPO 1 12
BEGIN
  PROMPT 54 1 "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 7
BEGIN
  PROMPT 1 2 ""
END

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

ZOOM F_NOTE 50
BEGIN
  PROMPT 2 4 "Annotazioni "
  FIELD NOTE
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 18
BEGIN
  PROMPT 2 6 "Costo "
  FIELD PREZZO
  GROUP 1
  FLAGS "DU"
END

STRING F_UM 2
BEGIN
  PROMPT 27 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

BUTTON F_SORTA 15
BEGIN
  PROMPT 60 7 "Ordina per codice"
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,11@|HIDE,12@|HIDE,13@|HIDE,14@|ENABLE,F_UMEXPR|ENABLE,11@|DISABLE,12@|DISABLE,13@|DISABLE,14@
  ITEM "L|Lavorazione"
    MESSAGE HIDE,11@|SHOW,12@|HIDE,13@|HIDE,14@|DISABLE,F_UMEXPR|DISABLE,11@|ENABLE,12@|DISABLE,13@|DISABLE,14@
  ITEM "D|Distinta"
    MESSAGE HIDE,11@|HIDE,12@|SHOW,13@|HIDE,14@|ENABLE,F_UMEXPR|DISABLE,11@|DISABLE,12@|ENABLE,13@|DISABLE,14@
  ITEM "V|Variabile"
    MESSAGE HIDE,11@|HIDE,12@|HIDE,13@|SHOW,14@|CLEAR,F_UMEXPR|DISABLE,11@|DISABLE,12@|DISABLE,13@|ENABLE,14@
  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
  OUTPUT F_DESCOMP DESCR
  CHECKTYPE REQUIRED
  ADD RUN ve2 -3
  FIELD CODCOMP
  FLAGS "U"
  GROUP 11
END

STRING F_CODLAV 20
BEGIN
  PROMPT 30 2 "Codice      "
  USE LAV
  INPUT CODTAB F_CODLAV
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODLAV CODTAB
  OUTPUT F_DESLAV S0
  CHECKTYPE REQUIRED
	FIELD CODCOMP
	FLAGS "UHD"
  GROUP 12
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
  OUTPUT F_DESDIS DESCR
  CHECKTYPE REQUIRED
	FIELD CODCOMP
  FLAGS "UHD"
  GROUP 13
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
  OUTPUT F_DESVAR S0
  CHECKTYPE REQUIRED
  FIELD CODCOMP
  FLAGS "UHD"
  GROUP 14
END

STRING F_DESCOMP 50
BEGIN
  PROMPT 2 3 "Descrizione "
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DESCOMP
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT F_CODART
  FIELD DESCR
  GROUP 11
END

STRING F_DESLAV 50
BEGIN
  PROMPT 2 3 "Descrizione "
  USE LAV KEY 2
  INPUT S0 F_DESLAV
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  COPY OUTPUT F_CODLAV
  FIELD DESCR
  FLAGS "HD"
  GROUP 12
END

STRING F_DESDIS 50
BEGIN
  PROMPT 2 3 "Descrizione "
  USE LF_DIST KEY 2 SELECT VIRTUALE=="X"
  INPUT DESCR F_DESDIS 
  DISPLAY "Desrizione@50" DESCR
  DISPLAY "Codice@20" CODDIST
  COPY OUTPUT F_CODDIS
  FIELD DESCR
  FLAGS "HD"
  GROUP 13
END

STRING F_DESVAR 50
BEGIN
  PROMPT 2 3 "Descrizione "
  USE VAR KEY 2
  INPUT S0 F_DESVAR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  COPY OUTPUT F_CODVAR
  FIELD DESCR
  FLAGS "HD"
  GROUP 14
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

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

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

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

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

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

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