campo-sirio/mg/mg0400a.uml

#include "mg0400a.h"

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

PAGE "Giacenze per Cliente/Fornitore" 0 2 0 0
GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 "@bCliente/Fornitore"
END

LIST F_TIPOCF 1 11
BEGIN
  PROMPT 1 1 "Tipo "
  FLAGS "PG"
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
  FIELD TIPOCF
  KEY 1 2
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 22 1 "Codice "
  FLAGS "R"
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_TIPOCF TIPOCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC[1,30]
  FIELD CODCF
  KEY 1 2
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 30 28
BEGIN
  PROMPT 40 1 "Descr. "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC[1,30] F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice@R" CODCF
  COPY OUTPUT F_CODCF
END

NUMBER F_INDSPED 3
BEGIN
  PROMPT 1 2 "Codice indirizzo spedizione "
  USE LF_INDSP KEY 1 
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF SELECT
  INPUT CODIND F_INDSPED
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Cod.Ind.Sped." CODIND
  DISPLAY "Indirizzo@30" INDIR
  DISPLAY "C.A.P." CAP
  OUTPUT F_INDSPED CODIND
  FIELD INDSPED
  CHECKTYPE SEARCH
END

STRING F_CODART 20
BEGIN
  PROMPT 1 4 "Articolo "
  FLAG "UG"
  USE LF_ANAMAG
  INPUT CODART F_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESART DESCR
  FIELD CODART
  KEY 1 2
  CHECKTYPE REQUIRED
END

STRING F_DESART 50 41
BEGIN
  PROMPT 34 4 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DESART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESART DESCR
END

STRING F_ANNOES 4
BEGIN
  PROMPT 1 5 "Esercizio "
  FLAGS  "UPZ"
  USE LF_CLIFOGIAC
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
  JOIN LF_ANAMAG INTO CODART==CODART
  INPUT ANNOES F_ANNOES SELECT
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF SELECT
  INPUT INDSPED F_INDSPED
  INPUT CODART F_CODART
  DISPLAY "Anno@4" ANNOES
  DISPLAY "Tipo@4" TIPOCF
  DISPLAY "Codice@7" CODCF
  DISPLAY "Ragione Sociale@50" 20->RAGSOC
  DISPLAY "Codice articolo@20" CODART
  DISPLAY "Descrizione@50" 47->DESCR
  OUTPUT F_ANNOES ANNOES 
  OUTPUT F_TIPOCF TIPOCF 
  OUTPUT F_CODCF CODCF
  OUTPUT F_INDSPED INDSPED
  OUTPUT F_CODART CODART
  FIELD ANNOES
  KEY 1 2
  CHECKTYPE REQUIRED                   
  ADD RUN cg0 -5 ESC
END

SPREADSHEET F_SHEETGIAC 0 -2
BEGIN
  PROMPT 0 6 "Giacenze"
  FLAGS "A"
  USE LF_CLIFOGIAC KEY NRIGA
  INPUT TIPOCF F_TIPOCF
  INPUT CODCF F_CODCF
  INPUT ANNOES F_ANNOES
  INPUT CODART F_CODART
  INPUT INDSPED F_INDSPED
  // la sequenza delle colonne livelliX <20> usata per ottenere 
  // un ordinamento delle righe dello sheet: NON cambiarla
  ITEM "Liv1@10"
  ITEM "Liv2@10"
  ITEM "Liv3@10"
  ITEM "Liv4@10"
  ITEM "Data rif.@10"
  ITEM "Ubicazione"
  ITEM "Livello rior.@10"
  ITEM "Scorta min.@10"
  ITEM "Lotto rior.@10"
  ITEM "Lotto incr.@10"
  ITEM "Giorni rior.@10"
  ITEM "Giacenza @10"
  ITEM "Val.Giac @12"
  ITEM "Rim.Iniz.@10"
  ITEM "V.Rim.Iniz.@12"
  ITEM "Acq.@10"
  ITEM "V.Acq.@12"
  ITEM "Entr.@10"
  ITEM "V.Entr.@12"
  ITEM "Ven.@10"
  ITEM "V.Ven.@12"
  ITEM "Uscito@10"
  ITEM "V.Uscito@12"
  ITEM "Ord.For.@10"
  ITEM "V.Ord.For.@12"
  ITEM "Ord.Cli.@10"
  ITEM "V.Ord.Cli.@12"
  ITEM "Scarti@10"
  ITEM "V.Scarti@12"
  ITEM "In Prod.Comp.@10"
  ITEM "In Prod.Fin.@10"
  ITEM "A conto L.@10"
  ITEM "In conto L.@10"
  ITEM "Etichette@10"
  ITEM "N.dist."
END

ENDPAGE

ENDMASK

//////////////////////////////////
// SHEET
//////////////////////////////////

TOOLBAR "" 0 -2 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 "Elimina"
  MESSAGE EXIT,K_DEL
END

ENDPAGE

PAGE "Giacenze" -1 -1 80 23

STRING F_CODARTR 20
BEGIN
  PROMPT 2 1 "Articolo "
  FLAGS "UD"
END

STRING F_DESCRR 50 45
BEGIN
  PROMPT 33 1 ""
  FLAGS "D"
END

//Livelli giacenza
STRING F_LIV1 10
BEGIN
  // Non mettere  FLAGS "D" perch<63> disabiliterebbe tutta la colonna
  FLAGS "U"
  PROMPT 2 2 "Livello 1  "
  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
  FLAGS "U"
  PROMPT  40 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 CLEAR,F_LIV3|CLEAR,F_LIV4
  MESSAGE ENABLE,F_LIV3
END

STRING F_LIV3 10
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 CLEAR,F_LIV4
  MESSAGE ENABLE,F_LIV4
END

STRING F_LIV4 10
BEGIN
  FLAGS "U"
  PROMPT 40 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

//ubicazione introdotta da tabella ubicazioni (accensione/spegnimento gestito da programma)
STRING F_UBICAZ 3
BEGIN
  PROMPT 2 4 "Ubicazione "
  USE UBI 
  INPUT CODTAB F_UBICAZ
  DISPLAY "Codice" CODTAB
  DISPLAY "Ubicazione@50 " S0
  OUTPUT F_UBICAZ CODTAB
  OUTPUT F_UBICAZD S0
  CHECKTYPE NORMAL
  FLAGS "Z"
  FIELD UBICAZ
END

STRING F_UBICAZD 20
BEGIN
  PROMPT 27 4  ""
  FLAGS "D"
END

DATE F_DATARIF
BEGIN
  PROMPT 52 4 "Data rif. "
  FIELD DATARIF
END

NUMBER F_LIVRIOR  10 3
BEGIN
  PROMPT 2 5 "Livello di riordino "
  FIELD LIVRIOR
END   

NUMBER F_SCORTAMIN  10  3
BEGIN
  PROMPT 35 5 "Scorta minima "
  FIELD SCORTAMIN
END

NUMBER F_LOTTORIOR  10 3
BEGIN
  PROMPT 2 6  "Lotto minimo        "
  FIELD LOTTORIOR
END

NUMBER F_LOTTOIRIOR  10 3
BEGIN
  PROMPT 35 6 "Lotto increm. "
  FLAGS "U"
  FIELD LOTTOIRIOR
END

NUMBER F_GIORNIRIOR 3
BEGIN
  PROMPT 62 6 "Giorni "
  FLAGS "U"
  FIELD GIORNIRIOR
END

NUMBER F_GIAC   15 5
BEGIN
  PROMPT 2 7 "Giacenza attuale           "
  FIELD GIAC
  MESSAGE CHECK,F_VALGIAC
END

CURRENCY F_VALGIAC 15
BEGIN
  FLAG "DG"
  PROMPT 46 7 "Costo m.p."
END

NUMBER F_RIM  15 5
BEGIN
  PROMPT 2 8 "Rimanenze iniziali         "
  FIELD RIM
  MESSAGE CHECK,F_VALGIAC
END

CURRENCY F_VRIM 18
BEGIN
  PROMPT 46 8 "Valore "
  FIELD VALRIM
  MESSAGE CHECK,F_VALGIAC
END

NUMBER F_ACQ  15 5
BEGIN
  PROMPT 2 9 "Acquistato                 "
  FIELD ACQ
  MESSAGE CHECK,F_VALGIAC
END

CURRENCY F_VACQ 18
BEGIN
  PROMPT 46 9 "Valore "
  FIELD VALACQ
  MESSAGE CHECK,F_VALGIAC
END

NUMBER F_ENTR 15 5
BEGIN
  PROMPT 2 10 "Entrato                    " 
  FIELD ENT
END

CURRENCY F_VENTR 18
BEGIN
  PROMPT 46 10 "Valore "
  FIELD VALENT
END

NUMBER F_VEN  15 5
BEGIN
  PROMPT 2 11  "Venduto                    "
  FIELD VEN
END

CURRENCY F_VVEN 18
BEGIN
  PROMPT 46 11 "Valore " 
  FIELD VALVEN
END

NUMBER F_USC  15 5
BEGIN
  PROMPT 2  12 "Uscito                     "
  FIELD USC
END

CURRENCY F_VUSC 18
BEGIN
  PROMPT 46 12 "Valore "
  FIELD VALUSC
END

NUMBER F_ORDF 15 5
BEGIN
  PROMPT 2 13  "Ordinato fornitori         "
  FIELD ORDF
END

CURRENCY F_VORDF 18
BEGIN
  PROMPT 46 13 "Valore "
  FIELD VALORDF
END

NUMBER F_ORDC 15 5
BEGIN
  PROMPT 2 14 "Ordinato clienti           "
  FIELD ORDC
END

CURRENCY F_VORDC 18
BEGIN
  PROMPT 46 14 "Valore "
  FIELD VALORDC
END

NUMBER F_SCARTI 15 5
BEGIN
  PROMPT 2 15 "Scarti                     "
  FIELD SCARTI
END

CURRENCY F_VSCARTI 18
BEGIN
  PROMPT 46 15 "Valore "
  FIELD VALSCARTI
END

NUMBER F_INPRODC  15 5
BEGIN
  PROMPT 2 16 "In produzione (componenti) "
  FIELD PRODCOMP
END

NUMBER F_INPRODF  15 5
BEGIN
  PROMPT 2 17 "In produzione (finiti)     "
  FIELD PRODFIN
END

NUMBER F_ACL  15 5
BEGIN
  PROMPT 2  18 "A conto lavorazione        "
  FIELD ACL
END
  
NUMBER F_INCL 15 5
BEGIN
  PROMPT 2 19 "In conto lavorazione       "
  FIELD INCL
END

NUMBER F_LABELS 10
BEGIN
  PROMPT 2 20  "Etichette da stampare      "
  FIELD NLABEL
  FLAGS "D"
END

NUMBER F_NDIST  15 5
BEGIN
  PROMPT 42 20  "Distinte "
  FIELD NDIST
END

ENDPAGE

ENDMASK