campo-sirio/mg/mg3400.uml

#include "mg3400.h"
PAGE "Stampa giacenze e prezzi" -1 -1 78 20

LISTBOX F_ORDINE 10
BEGIN
  PROMPT 2 1 "Ordinamento   "
  ITEM "A|articoli"
  MESSAGE ENABLE,F_ORDINEART
  ITEM "M|magazzini"
  MESSAGE "C",F_ORDINEART|K_SPACE,F_ORDINEART|DISABLE,F_ORDINEART|SHOW,G_CODART@|HIDE,G_DESART@
END


LISTBOX F_ORDINEART 20
BEGIN
  FLAGS "G"
  PROMPT 34 1 "sotto-ordinamento "
  ITEM "C|codice"
  MESSAGE HIDE,G_CATMER@|ENABLE,G_CODART@|HIDE,G_DESART@
  ITEM "D|descrizione"
  MESSAGE HIDE,G_CATMER@|DISABLE,G_CODART@|SHOW,G_DESART@
  ITEM "M|gruppo merc./codice"
  MESSAGE SHOW,G_CATMER@|ENABLE,G_CODART@|HIDE,G_DESART@
END

NUMBER F_ANNOES 4
BEGIN
  FLAGS "AZ"
  PROMPT 2 2 "Codice es.    "
END

STRING F_DAART 20
BEGIN
  PROMPT 2 4 "Dall'articolo "
  FLAGS "U"
  USE LF_ANAMAG 
  INPUT CODART F_DAART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descr@50" DESCR
  OUTPUT F_DAART CODART
  GROUP G_CODART
END
STRING F_AART 20
BEGIN
  PROMPT 2 5 " all'articolo "
  FLAGS "U"
  COPY USE F_DAART
  INPUT CODART F_AART
  COPY DISPLAY F_DAART
  OUTPUT F_AART CODART
  GROUP G_CODART
END

STRING F_DADES 50
BEGIN
  PROMPT 2 4 "Dall'articolo "
  FLAGS "U"
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DADES
  DISPLAY "Descr@50" DESCR
  DISPLAY "Codice@20" CODART
  OUTPUT F_DADES DESCR
  GROUP G_DESART
END
STRING F_ADES 50
BEGIN
  PROMPT 2 5 " all'articolo "
  FLAGS "U"
  COPY USE F_DADES
  INPUT DESCR F_ADES
  COPY DISPLAY F_DADES
  OUTPUT F_ADES DESCR
  GROUP G_DESART
END


STRING F_DAMAG 3 
BEGIN
  PROMPT 2 7 "Dal magazzino "
  FLAGS "U"
  USE MAG SELECT CODTAB[4,5]=="" && CODTAB[1,3]!="" 
  INPUT CODTAB F_DAMAG
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descr@50" S0
  OUTPUT F_DAMAG CODTAB
END

STRING F_AMAG 3
BEGIN
  PROMPT 2 8 " al magazzino "
  FLAGS "U"
  COPY USE F_DAMAG
  INPUT CODTAB F_AMAG
  COPY DISPLAY F_DAMAG
  OUTPUT F_AMAG CODTAB
END

STRING F_DACATMER 3 
BEGIN
  PROMPT 2 10 "Dal gruppo   "
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5]==""
  INPUT CODTAB F_DACATMER
  DISPLAY "Codice" CODTAB
  DISPLAY "Descr@50" S0
  OUTPUT F_DACATMER CODTAB[1,3]
  GROUP G_CATMER
END


STRING F_ACATMER 3
BEGIN
  PROMPT 2 11 " al gruppo   "
  FLAGS "U"
  COPY USE F_DACATMER
  INPUT CODTAB F_ACATMER
  COPY DISPLAY F_DACATMER
  OUTPUT F_ACATMER CODTAB[1,3]
  GROUP G_CATMER
END

BOOL F_DIM_E_NOTE
BEGIN
  PROMPT 2 13 "Stampo dimensioni e note articolo"
END


BOOLEAN F_RAGGCODICE
BEGIN
  PROMPT 2 14 "Raggruppo gli articoli"
  MESSAGE FALSE CLEAR,F_FROMLIVELLOART|CLEAR,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
  MESSAGE TRUE ENABLE,F_FROMLIVELLOART|ENABLE,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
END

NUMBER F_FROMLIVELLOART 1
BEGIN
  FLAGS "G"
  PROMPT 42 14 "da "
  USE FCA
  INPUT CODTAB F_FROMLIVELLOART
  DISPLAY "Num." CODTAB 
  DISPLAY "Descr@50" S0
  OUTPUT F_FROMLIVELLOART CODTAB 
  NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#F_TOLIVELLOART=0))&&((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0)
  CHECKTYPE NORMAL
  WARNING "Livello iniziale non ammissibile"
END

NUMBER F_TOLIVELLOART 1
BEGIN
  PROMPT 52 14 "a "
  USE FCA
  INPUT CODTAB F_TOLIVELLOART
  DISPLAY "Num." CODTAB 
  DISPLAY "Descr@50" S0
  OUTPUT F_TOLIVELLOART CODTAB 
  CHECKTYPE NORMAL
  NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#F_TOLIVELLOART=0))&&(((#F_TOLIVELLOGIAC+#F_FROMLIVELLOGIAC)*#F_TOLIVELLOART)=0)
  WARNING "Livello finale non ammissibile"
END

BOOL F_RAGGLIVGIAC
BEGIN
  PROMPT 2 15 "Raggruppo le giacenze"
  MESSAGE FALSE CLEAR,F_FROMLIVELLOGIAC|CLEAR,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
  MESSAGE TRUE ENABLE,F_FROMLIVELLOGIAC|ENABLE,F_TOLIVELLOGIAC
END

NUMBER F_FROMLIVELLOGIAC 1
BEGIN
  FLAG "D"
  PROMPT 42 15 "da "
  USE FCG
  INPUT CODTAB F_FROMLIVELLOGIAC
  DISPLAY "Num." CODTAB 
  DISPLAY "Descr@50" S0
  OUTPUT F_FROMLIVELLOGIAC CODTAB 
  CHECKTYPE NORMAL
  NUM_EXPR ((#F_FROMLIVELLOGIAC*(#F_FROMLIVELLOART+#F_TOLIVELLOART))=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0))

  WARNING "Livello iniziale non ammissibile"
END

NUMBER F_TOLIVELLOGIAC 1
BEGIN
  FLAG "D"
  PROMPT 52 15 "a "
  USE FCG
  INPUT CODTAB F_TOLIVELLOGIAC
  DISPLAY "Num." CODTAB 
  DISPLAY "Descr@50" S0
  OUTPUT F_TOLIVELLOGIAC CODTAB 
  NUM_EXPR ((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0))&&((#F_TOLIVELLOGIAC*#F_TOLIVELLOART)=0)
  WARNING "Livello finale non ammissibile"
  CHECKTYPE NORMAL
END


BOOL F_TOTALIMAGAZZINI
BEGIN
  PROMPT 2 16 "Stampo i totali di magazzino"
  MESSAGE TRUE ENABLE,F_DETTAGLIOMAG
  MESSAGE FALSE CLEAR,F_DETTAGLIOMAG|K_SPACE,F_DETTAGLIOMAG
END

BOOL F_DETTAGLIOMAG
BEGIN
  PROMPT 42 16 "Stampa il dettaglio magazzini"
  MESSAGE TRUE ENABLE,F_TOTALIDEPOSITI
  MESSAGE FALSE CLEAR,F_TOTALIDEPOSITI|K_SPACE,F_TOTALIDEPOSITI
END

BOOL F_TOTALIDEPOSITI
BEGIN
  PROMPT 2 17 "Stampo i totali di deposito"
  MESSAGE TRUE ENABLE,F_DETTAGLIODEP
  MESSAGE FALSE CLEAR,F_DETTAGLIODEP|K_SPACE,F_DETTAGLIODEP
END

BOOL F_DETTAGLIODEP
BEGIN
  PROMPT 42 17 "Stampa il dettaglio depositi"
END


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

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

ENDPAGE
ENDMASK