campo-sirio/db/db1100a.uml

#include "db1100a.h"

TOOLBAR "" 0 20 0 3

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Stampa esplosione" -1 -1 78 20

GROUPBOX DLG_NULL 76 8
BEGIN
  PROMPT 1 1 "Selezione documenti"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 2 "Anno             "
  FLAGS "A"
END

LIST F_PROVV 12
BEGIN
  PROMPT 2 3 "Tipo numerazione "
  ITEM "D|Definitiva"
  ITEM "P|Provvisoria"
  FLAGS "D"
END

RADIOBUTTON F_TIPOSEL 30
BEGIN
  PROMPT 2 4 "Tipo selezione"
  ITEM "0|Per numero"
    MESSAGE SHOW,GR_NUMDOC@|HIDE,GR_DATADOC@
  ITEM "1|Per data"
    MESSAGE HIDE,GR_NUMDOC@|SHOW,GR_DATADOC@
END

STRING F_NUMFROM 4
BEGIN
  PROMPT 37 2 "Da numerazione "
  FLAG "U"
  USE %NUM
  INPUT CODTAB F_NUMFROM
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUMFROM CODTAB
  CHECKTYPE NORMAL
END

NUMBER F_NDOCFROM 7
BEGIN
  PROMPT 60 2  "Dal "
  USE 33
  JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
  JOIN 13 TO 20 INTO COM=COMCF
  INPUT PROVV F_PROVV SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_NUMFROM SELECT
  INPUT NDOC F_NDOCFROM
  DISPLAY "Data@10" DATADOC
  DISPLAY "Numero@7" NDOC
  DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
  DISPLAY "Comune@20" 13->DENCOM
  OUTPUT F_NDOCFROM NDOC
  CHECKTYPE NORMAL
  GROUP GR_NUMDOC
END

DATE F_EMISFROM
BEGIN
  PROMPT 60 2 "Dal "
  GROUP GR_DATADOC
END

STRING F_NUMTO 4
BEGIN
  PROMPT 37 3 "A numerazione  "
  FLAG "U"
  USE %NUM
  INPUT CODTAB F_NUMTO
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUMTO CODTAB
  CHECKTYPE NORMAL
END

NUMBER F_NDOCTO 7
BEGIN
  PROMPT 60 3  "Al  "
  USE 33
  JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
  JOIN 13 TO 20 INTO COM=COMCF
  INPUT PROVV F_PROVV SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_NUMTO SELECT
  INPUT NDOC F_NDOCTO
  DISPLAY "Data@10" DATADOC
  DISPLAY "Numero@7" NDOC
  DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
  DISPLAY "Comune@20" 13->DENCOM
  OUTPUT F_NDOCTO NDOC
  GROUP GR_NUMDOC
  CHECKTYPE NORMAL
END

DATE F_EMISTO
BEGIN
  PROMPT 60 3 "Al  "
  GROUP GR_DATADOC
END

DATE F_DATAOBS
BEGIN
  PROMPT 37 5 "Data osservazione "
  CHECKTYPE REQUIRED
END

LISTBOX F_PERIODS 1
BEGIN
  PROMPT 37 6 "Numero periodi    "
  ITEM "1|1"
  ITEM "2|2"
  ITEM "3|3"
  ITEM "4|4"
  ITEM "5|5"
  ITEM "6|6"
END

LISTBOX F_STAMPA 18
BEGIN
  PROMPT 2 9 "Esplosione "
  ITEM "0|Materiali di base"
    MESSAGE ENABLE,F_LASTQTA|ENABLE,F_GROUPMODE
  ITEM "1|Scalare"
    MESSAGE CLEAR,F_LASTQTA|CLEAR,F_GROUPMODE
END

NUMBER F_DETTAGLIO 3
BEGIN
  PROMPT 37 9 "Livello dettaglio "
  FLAGS "U"
END

BOOLEAN F_LASTQTA
BEGIN
 PROMPT 2 10 "Disabilita ricalcolo quantita'"
END

BOOLEAN F_FABBISOGNO
BEGIN
 PROMPT 2 11 "Calcola disponibilita'"
 MESSAGE TRUE ENABLE,4@
 MESSAGE FALSE CLEAR,4@|CLEAR,6@
END

BOOLEAN F_SEPARATE
BEGIN
 PROMPT 2 12 "Separa distinte"
END

BOOLEAN F_SCMIN
BEGIN
 PROMPT 37 10 "Confronta su scorta minima"
 GROUP 4
END

LISTBOX F_VALORIZZAZIONE 22
BEGIN
  PROMPT 37 11 "Valorizzazione "
//  FLAGS "D"
  ITEM "0|Nessuna"
  ITEM "1|Ultimo costo"
  ITEM "2|Costo medio"
  ITEM "3|Costo medio ponderato"
  ITEM "4|Media ultimi 2 costi"
  ITEM "5|Costo standard"
  ITEM "6|LIFO annuale"
  ITEM "7|LIFO storico"
  ITEM "8|FIFO annuale"
  ITEM "9|FIFO storico"
//  GROUP 4
END

GROUPBOX DLG_NULL 40 6
BEGIN
  PROMPT 37 12 "Disponibilita' & Valorizzazione"
END

STRING F_SLMAG 3
BEGIN
  PROMPT 38 13 "Mag. semilavorati     "
  FLAGS "U"
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_SLMAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_SLMAG CODTAB[1,3]
  CHECKTYPE NORMAL
  GROUP 4
END

STRING F_SLDEP 2
BEGIN
  PROMPT 69 13 ""
  FLAGS "U"
  USE MAG SELECT (IF(#F_SLMAG!="";((CODTAB[1,3]==#F_SLMAG)&&(CODTAB[4,5]!=""));(CODTAB[4,5]!="")))
  INPUT CODTAB[1,3] F_SLMAG 
  INPUT CODTAB[4,5] F_SLDEP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_SLDEP CODTAB[4,5]
  OUTPUT F_SLMAG CODTAB[1,3]
  CHECKTYPE NORMAL
  GROUP 4 5
END

STRING F_MBMAG 3
BEGIN
  PROMPT 38 14 "Mag. materiali base   "
  FLAGS "U"
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_MBMAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_MBMAG CODTAB[1,3]
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,6@
  MESSAGE ENABLE, F_VALMAGMB
  GROUP 4
END

STRING F_MBDEP 2
BEGIN
  PROMPT 69 14 ""
  FLAGS "U"
  USE MAG SELECT (IF(#F_MBMAG!="";((CODTAB[1,3]==#F_MBMAG)&&(CODTAB[4,5]!=""));(CODTAB[4,5]!="")))
  INPUT CODTAB[1,3] F_MBMAG 
  INPUT CODTAB[4,5] F_MBDEP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_MBDEP CODTAB[4,5]
  OUTPUT F_MBMAG CODTAB[1,3]
  CHECKTYPE NORMAL
  GROUP 4 5
  MESSAGE EMPTY CLEAR, F_VALDEPMB
  MESSAGE ENABLE, F_VALDEPMB
END

BOOLEAN F_VALMAGMB
BEGIN
  PROMPT 38 15 "Usa magazzino in valorizzazione"
  GROUP 6
END

BOOLEAN F_VALDEPMB
BEGIN
  PROMPT 38 16 "Usa deposito in valorizzazione"
  GROUP 6
END

GROUPBOX DLG_NULL 30 5
BEGIN
  PROMPT 1 13 "Visualizza"
END

BOOLEAN F_ARTICOLI
BEGIN
  PROMPT 2 14 "Articoli"
END

BOOLEAN F_LAVORAZIONI
BEGIN
  PROMPT 2 15 "Lavorazioni"
END

BOOLEAN F_VIRTUALI
BEGIN
  PROMPT 2 16 "Distinte virtuali"
END

NUMBER F_SORT 1
BEGIN
  PROMPT 2 18 "Ordina    "
  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 17 18 ""
  FLAGS "D"
END

LIST F_GROUPMODE 1 53
BEGIN
  PROMPT 2 19 "Raggruppa "
  ITEM "0|Nessun raggruppamento"
  ITEM "1|Alla prima unita' di misura"
  ITEM "2|All'unita' di misura di riferimento"
  ITEM "3|Per unita' di misura"
END

ENDPAGE

PAGE "Articoli" -1 -1 78 20

SPREADSHEET F_SHEETART
BEGIN
  PROMPT 2 2 ""
  ITEM "Codice@20"
  ITEM "Liv1"
  ITEM "Liv2"
  ITEM "Liv3"
  ITEM "Liv4"
  ITEM "Mag."
  ITEM "Dep."
  ITEM "UM@3"
  ITEM "Qta@12"
  ITEM "Descrizione@50"
  ITEM "Data cons.@12"
  ITEM "Acquisto"
END

ENDPAGE

ENDMASK

PAGE "Articoli" -1 -1 68 14

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_DESCR DESCR
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_LIV1|CLEAR,F_LIV2|CLEAR,F_LIV3|CLEAR,F_LIV4
  MESSAGE ENABLE, F_LIV1
  FLAGS "U"
END

STRING F_LIV1 10
BEGIN
  PROMPT 2 4 "Livello 1   "
  FLAGS "U"
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "1" 
  INPUT CODTAB[2,11] F_LIV1
  DISPLAY "Livello@20" 500@->S0
  DISPLAY "Gruppo@10" CODTAB[2,20]
  DISPLAY "Descr.@30" S0
  OUTPUT F_LIV1 CODTAB[2,12] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_LIV2|CLEAR,F_LIV3|CLEAR,F_LIV4
  MESSAGE ENABLE,F_LIV2
END

STRING F_LIV2 10
BEGIN                   
  PROMPT 40 4 "Livello 2   "
  FLAGS "U"
  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 CLEAR,F_LIV3|CLEAR,F_LIV4
  MESSAGE ENABLE,F_LIV3
END

STRING F_LIV3 10
BEGIN
  PROMPT 2 5 "Livello 3   "
  FLAGS "U"
  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 CLEAR,F_LIV4
  MESSAGE ENABLE,F_LIV4
END

STRING F_LIV4 10
BEGIN
  PROMPT 40 5 "Livello 4   "
  FLAGS "U"
  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_MAG 3
BEGIN
  PROMPT 2 6 "Magazzino   "
  FLAGS "U"
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_MAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_MAG CODTAB[1,3]
  CHECKTYPE NORMAL
END

STRING F_DEP 2
BEGIN
  PROMPT 20 6 ""
  FLAGS "U"
  USE MAG SELECT (IF(#F_MAG!="";((CODTAB[1,3]==#F_MAG)&&(CODTAB[4,5]!=""));(CODTAB[4,5]!="")))
  INPUT CODTAB[1,3] F_MAG  
  INPUT CODTAB[4,5] F_DEP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_DEP CODTAB[4,5]
  OUTPUT F_MAG CODTAB[1,3]
  CHECKTYPE NORMAL
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_CODDIS SELECT
  INPUT UM F_UMEXPR
  DISPLAY "Unita'" UM
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione Articolo@50" LF_ANAMAG->DESCR
  OUTPUT F_UMEXPR UM
  CHECKTYPE REQUIRED
  ADD RUN ve2 -3
  FLAGS "U"
END

NUMBER F_QTA 12 5
BEGIN
  PROMPT 2 8 "Quantita'        "
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 3 "Descrizione "
  FLAGS "D"
END

DATE F_DATACONS
BEGIN
  PROMPT 2 9 "Data consegna    "
  CHECKTYPE REQUIRED
END

BOOLEAN F_ACQUISTO
BEGIN
  PROMPT 2 10 "Acquisto"
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