campo-sirio/mg/mg3300.uml

#include "mg3300.h"
PAGE "Stampa Schede di magazzino" -1 -1 78 20

LISTBOX F_SCHEDA 30
BEGIN
  PROMPT 2 1 "Tipo scheda   "
  ITEM "G|Giacenza"
  ITEM "OF|Ordinato fornitori"
  ITEM "OC|Ordinato clienti"
  ITEM "ACL|A conto lavoro"
  ITEM "INCL|In conto lavoro"
  ITEM "PC|Componenti in produzione "
  ITEM "PF|Finiti in produzione "
END

LISTBOX F_ORDINE 12
BEGIN
  PROMPT 2 2 "Ordinamento   "
  ITEM "A|articoli"
  MESSAGE ENABLE,F_ORDINEART
  MESSAGE HIDE,F_DETTAGLIOMAG|HIDE,F_DETTAGLIODEP
  MESSAGE SHOW,F_SUDDIV_MAGAZZINI|SHOW,F_SUDDIV_DEPOSITI
  ITEM "M|magazzini"
  MESSAGE "C",F_ORDINEART|K_SPACE,F_ORDINEART|DISABLE,F_ORDINEART|SHOW,G_CODART@|HIDE,G_DESART@
  MESSAGE SHOW,F_DETTAGLIOMAG|SHOW,F_DETTAGLIODEP
  MESSAGE HIDE,F_SUDDIV_MAGAZZINI|HIDE,F_SUDDIV_DEPOSITI
  
END


LISTBOX F_ORDINEART 14
BEGIN
  FLAGS "G"
  PROMPT 42 2 "sotto-ordinamento "
  ITEM "C|codice"
  MESSAGE HIDE,G_CATMER@|SHOW,G_CODART@|HIDE,G_DESART@
  ITEM "D|descrizione"
  MESSAGE HIDE,G_CATMER@|HIDE,G_CODART@|SHOW,G_DESART@
  ITEM "M|gruppo merc."
  MESSAGE SHOW,G_CATMER@|SHOW,G_CODART@|HIDE,G_DESART@
END

NUMBER F_ANNOES 4
BEGIN
  FLAGS "A"
  PROMPT 2 3 "Codice es.    "
  USE ESC
  INPUT CODTAB F_ANNOES
  DISPLAY "Esercizio" CODTAB
  DISPLAY "Dal@12" D0
  DISPLAY "Al@12" D0
  OUTPUT F_ANNOES CODTAB
  CHECKTYPE REQUIRED
END


LISTBOX F_FILTRO 10
BEGIN
  FLAGS "G"
  PROMPT 53 3 "Filtro "
  ITEM "T|tutto"
  ITEM "N|negativi"
END

DATE F_DADATA
BEGIN
  PROMPT 2 5  "Dalla data "
END

DATE F_ADATA 
BEGIN
  PROMPT 2 6   " alla data "
  STR_EXPR ANSI(#F_ADATA)>=ANSI(#F_DADATA)||(#F_ADATA=="")
  WARNING "Il secondo estremo deve essere superiore al primo"
END

STRING F_DAART 20
BEGIN
  PROMPT 28 5 "Dall'articolo "
  FLAGS "U"
  USE LF_ANAMAG 
  INPUT CODART F_DAART
  DISPLAY "Codice" CODART
  DISPLAY "Descr@50" DESCR
  OUTPUT F_DAART CODART
  GROUP G_CODART
END
STRING F_AART 20
BEGIN
  PROMPT 28 6 " all'articolo "
  FLAGS "U"
  COPY USE F_DAART
  INPUT CODART F_AART
  COPY DISPLAY F_DAART
  OUTPUT F_AART CODART
  GROUP G_CODART
  STR_EXPR (#F_AART>=#F_DAART)||(#F_AART=="")
  WARNING "Il secondo estremo deve essere superiore al primo"
END

STRING F_DADES 50 30
BEGIN
  PROMPT 28 5 "Dall'articolo "
  FLAGS "U"
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DADES
  DISPLAY "Descr@50" DESCR
  DISPLAY "Codice" CODART
  OUTPUT F_DADES DESCR
  GROUP G_DESART
END
STRING F_ADES 50 30
BEGIN
  PROMPT 28 6 " all'articolo "
  FLAGS "U"
  COPY USE F_DADES
  INPUT DESCR F_ADES
  COPY DISPLAY F_DADES
  OUTPUT F_ADES DESCR
  GROUP G_DESART
  STR_EXPR (#F_ADES>=#F_DADES)||(#F_ADES=="")
  WARNING "Il secondo estremo deve essere superiore al primo"
END

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

STRING F_AMAG 3
BEGIN
  PROMPT 2 9 " al magazzino "
  FLAGS "U"
  COPY USE F_DAMAG
  INPUT CODTAB F_AMAG
  COPY DISPLAY F_DAMAG
  OUTPUT F_AMAG CODTAB
  STR_EXPR (#F_AMAG>=#F_DAMAG)||(#F_AMAG=="")
  WARNING "Il secondo estremo deve essere superiore al primo"
END


STRING F_DACATMER 3 
BEGIN
  PROMPT 2 11 "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 12 " 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
  STR_EXPR (#F_ACATMER>=#F_DACATMER)||(#F_ACATMER=="")
  WARNING "Il secondo estremo deve essere superiore al primo"
END

BOOL F_DETTAGLIOMAG 
BEGIN
  PROMPT 2 11 "Suddivido per depositi"
  MESSAGE TRUE  ENABLE,F_DETTAGLIODEP
  MESSAGE FALSE  CLEAR,F_DETTAGLIODEP
END

BOOL F_DETTAGLIODEP
BEGIN
  FLAGS "D"
  PROMPT 2 12 "Dettaglio i depositi"
END


LIST F_ENABLER 30
BEGIN
  PROMPT 2 14 ""
  ITEM "|Nessun raggruppamento"
  MESSAGE ENABLE,F_SUDDIV_MAGAZZINI
  MESSAGE RESET,F_TOLIVELLOGIAC|RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|HIDE,F_TOLIVELLOGIAC

  ITEM "1|Raggruppa gli articoli"
  MESSAGE RESET,F_TOLIVELLOGIAC|HIDE,F_TOLIVELLOGIAC|SHOW,F_TOLIVELLOART|CHECK,F_TOLIVELLOART

  ITEM "2|Raggruppa le giacenze"
  MESSAGE RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|SHOW,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
  
END

NUMBER F_TOLIVELLOART 1
BEGIN
  PROMPT 42 14 "Fino al livello "
  USE FCA
  INPUT CODTAB F_TOLIVELLOART
  DISPLAY "Num." CODTAB 
  DISPLAY "Descr@50" S0
  OUTPUT F_TOLIVELLOART CODTAB 
  //MESSAGE EMPTY ENABLE,F_SUDDIV_MAGAZZINI
  //MESSAGE CLEAR,F_SUDDIV_MAGAZZINI|K_SPACE,F_SUDDIV_MAGAZZINI

  CHECKTYPE NORMAL
  WARNING "Livello finale non ammissibile"
END

NUMBER F_TOLIVELLOGIAC 1
BEGIN
  PROMPT 42 14 "Fino al livello "
  USE FCG
  INPUT CODTAB F_TOLIVELLOGIAC
  DISPLAY "Num." CODTAB 
  DISPLAY "Descr@50" S0
  OUTPUT F_TOLIVELLOGIAC CODTAB 
  //MESSAGE EMPTY ENABLE,F_SUDDIV_MAGAZZINI
  //MESSAGE CLEAR,F_SUDDIV_MAGAZZINI|K_SPACE,F_SUDDIV_MAGAZZINI

  CHECKTYPE NORMAL
  WARNING "Livello finale non ammissibile"
END
               
               
BOOL F_SUDDIV_MAGAZZINI 
BEGIN
  PROMPT 2 16 "Suddivido per magazzini"
  MESSAGE TRUE  ENABLE,F_SUDDIV_DEPOSITI
  MESSAGE FALSE  CLEAR,F_SUDDIV_DEPOSITI|K_SPACE,F_SUDDIV_DEPOSITI
END

BOOL F_SUDDIV_DEPOSITI 
BEGIN
  FLAGS "D"
    PROMPT 2 17 "Suddivido per depositi"
END


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

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

ENDPAGE
ENDMASK