campo-sirio/mg/mg1100a.uml

TOOLBAR "" 0 0 0 2

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

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

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

ENDPAGE

PAGE "Righe movimenti" 0 0 0 0

STRING F_AUTOMATICA 1
BEGIN
  PROMPT 2 1 "Tipo riga       "
  FIELD AUTOMATICA
  FLAGS "D"
END

STRING F_CODART 20
BEGIN
  PROMPT 2 2 "Codice articolo "
  FIELD CODART
  FLAGS "UG"
  USE LF_ANAMAG
  JOIN LF_UMART INTO CODART==CODART NRIGA==1
  INPUT CODART F_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESART DESCR
  OUTPUT F_UM LF_UMART->UM
  CHECKTYPE SEARCH
  ADD RUN ve2 -3
  MESSAGE CHECK,F_GIAC
END

STRING F_DESART 50 
BEGIN
  PROMPT 2 3 "Descrizione     "
  FLAGS "U"
  USE LF_ANAMAG KEY 2
  JOIN LF_UMART INTO CODART==CODART NRIGA==1
  INPUT DESCR F_DESART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT F_CODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
END

STRING F_CODMAG 3
BEGIN
  PROMPT 2 5 "Magazzino  "
  FLAGS "UG"
  FIELD CODMAG[1,3]
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_CODMAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_DESMAG S0
  OUTPUT H_DESMAG S0
  OUTPUT H_GESTGIA B0
//  OUTPUT F_CODDEP CODTAB[4,5]
  CHECKTYPE REQUIRED
  MESSAGE CHECK,F_GIAC
END

STRING F_DESMAG 50
BEGIN
  PROMPT 22 5 ""
  USE MAG KEY 2 SELECT CODTAB[4,5]==""
  INPUT S0 F_DESMAG
  DISPLAY "Denominazione mag.@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  OUTPUT F_CODMAG CODTAB[1,3]
  CHECKTYPE NORMAL
  MESSAGE EMPTY CHECK,F_CODMAG
// GUIDO!!!!!!!!!!!!!!!!! in che ordine vengono eseguiti gli output
//          a cascata??? perchè mi ritrovo il coddep cancellato???
END


STRING F_CODDEP 2
BEGIN
  PROMPT 2 6 "Deposito   "
  FLAGS "U"
  FIELD CODMAG[4,5]
  USE MAG SELECT CODTAB[4,5]!=""
  INPUT CODTAB[1,3] F_CODMAG SELECT 
  INPUT CODTAB[4,5] F_CODDEP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_CODDEP CODTAB[4,5]
  OUTPUT F_DESDEP S0
  OUTPUT F_CODMAG CODTAB[1,3]
  CHECKTYPE NORMAL
  WARNING "Indicare il deposito"
  MESSAGE CHECK,F_GIAC
END

STRING F_DESDEP 50
BEGIN
  PROMPT 22 6 ""
  FLAGS "H"
  USE MAG KEY 2 SELECT (CODTAB[4,5]!="")&&(CODTAB[1,3]==#F_CODMAG)
  INPUT S0 F_DESDEP
  COPY DISPLAY F_DESMAG
  OUTPUT F_CODDEP CODTAB[4,5]
  OUTPUT F_DESDEP S0
  CHECKTYPE NORMAL
  MESSAGE EMPTY CHECK,F_CODDEP
END


STRING H_DESMAG 50
BEGIN
  PROMPT 22 5 ""
  FLAGS "DH"
END

//Abilitazione/disabil. dei campi relativi al deposito
BOOLEAN H_GESTGIA
BEGIN
  PROMPT 1 1 ""
  FLAGS "HG"
//  MESSAGE TRUE ENABLE,F_CODDEP|CHECK,F_CODDEP|SHOW,F_DESDEP
  MESSAGE TRUE ENABLE,F_CODDEP|SHOW,F_DESDEP
  MESSAGE FALSE RESET,F_CODDEP|RESET,F_DESDEP|DISABLE,F_CODDEP|HIDE,F_DESDEP
END

//Livelli giacenza
STRING F_LIV1 15
BEGIN
  PROMPT 2 8 "Livello giacenza 1 "
  FLAGS "U"
  USE GCG 
  JOIN FCG ALIAS ALIAS_FCG INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "1" 
  INPUT CODTAB[2,16] F_LIV1
//  DISPLAY "Livello@20" ALIAS_FCG@->S0
  DISPLAY "Gruppo@20" CODTAB[2,20]
  DISPLAY "Descr.@30" S0
  OUTPUT F_LIV1 CODTAB[2,16] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CHECK,F_GIAC|CLEAR,F_LIV2|CHECK,F_LIV2
  MESSAGE CHECK,F_GIAC|ENABLE,F_LIV2
END

STRING F_LIV2 15
BEGIN
  FLAGS "U"
  PROMPT  40 8 "Livello giacenza 2 "
  // Non mettere  FLAGS "D" perchè disabiliterebbe tutta la colonna
  COPY USE F_LIV1 
  INPUT CODTAB[1,1] "2" 
  INPUT CODTAB[2,16] F_LIV2
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV2 CODTAB[2,16] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CHECK,F_GIAC|CLEAR,F_LIV3|CHECK,F_LIV3
  MESSAGE CHECK,F_GIAC|ENABLE,F_LIV3
END

STRING F_LIV3 15
BEGIN
  FLAGS "U"
  PROMPT 2 9 "Livello giacenza 3 "
  COPY USE F_LIV1 
  INPUT CODTAB[1,1] "3" 
  INPUT CODTAB[2,16] F_LIV3
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV3 CODTAB[2,16] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CHECK,F_GIAC|CLEAR,F_LIV4|CHECK,F_LIV4
  MESSAGE CHECK,F_GIAC|ENABLE,F_LIV4
END

STRING F_LIV4 15
BEGIN
  FLAGS "U"
  PROMPT 40 9 "Livello giacenza 4 "
  COPY USE F_LIV1 
  INPUT CODTAB[1,1] "4" 
  INPUT CODTAB[2,16] F_LIV4
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV4 CODTAB[2,16] 
  CHECKTYPE NORMAL
  MESSAGE CHECK,F_GIAC
END

STRING F_UM 2
BEGIN
  FLAGS "UG"
  PROMPT 2 11 "Unita' di misura "
  FIELD UM
  USE LF_UMART KEY 2 SELECT CODART==#F_CODART
  INPUT CODART F_CODART SELECT
  INPUT UM F_UM
  DISPLAY "Codice Articolo@25" CODART
  DISPLAY "U.M.@10" UM
  DISPLAY "F.C.@10" FC
  OUTPUT F_CODART CODART 
  OUTPUT F_UM UM 
  OUTPUT F_UMFC FC
  CHECKTYPE REQUIRED  
END

NUMBER F_QUANT 15 5
BEGIN
  PROMPT 2 13 "Quantita'        "
  FIELD QUANT
  CHECKTYPE REQUIRED  
  WARNING "Indicare la quantità"
  MESSAGE CHECK,F_VALORE
END

CURRENCY F_PREZZO 18
BEGIN
  PROMPT 2 14 "Prezzo           "
  FLAG "U"
  FIELD PREZZO
  MESSAGE CHECK,F_VALORE
END

CURRENCY F_VALORE 18
BEGIN
  FLAGS "D"
  PROMPT 42 14 "Valore totale    "
  NUM_CALC #F_PREZZO*#F_QUANT 
END

STRING F_CAUSRIG 5
BEGIN
  PROMPT 2 16 "Codice causale   "
  FIELD CAUS
  USE %CAU
  FLAGS "U"
  INPUT CODTAB  F_CAUSRIG
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CAUSRIG CODTAB
  OUTPUT F_DESCAUSRIG S0
  MESSAGE EMPTY RESET,F_DESCAUSRIG 
  ADD RUN MG0 -0 %CAU  
END

STRING F_DESCAUSRIG 50 30
BEGIN
  FLAGS "D"
  PROMPT 42 16 ""
END

NUMBER F_GIAC 15 5
BEGIN
  FLAGS "DG"
  PROMPT 42 13 "Giacenza attuale "
END

BOOL F_ESPLOSA
BEGIN
  FLAGS "GH"
  FIELD ESPLOSA
  PROMPT 2 18 ""
END

STRING F_IMPIANTO 5
BEGIN
  FLAGS "D"
  PROMPT 2 18 "Impianto  "
  FIELD IMPIANTO
END

STRING F_LINEA 5
BEGIN
  FLAGS "D"
  PROMPT 42 18 "Linea    "
  FIELD LINEA
END


NUMBER F_UMFC 15 5
BEGIN
  FLAGS "GH"
  PROMPT 42 13 "Giacenza attuale "
END



ENDPAGE

ENDMASK