campo-sirio/mg/mg3300.uml

#include "mg3300.h"

TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE


PAGE "Stampa Schede di magazzino" 0 0 0 0

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 SHOW,F_SUBORDINE
  MESSAGE HIDE,F_DETTAGLIOMAG|"X",F_DETTAGLIODEP
  MESSAGE SHOW,F_SUDDIV_MAGAZZINI|SHOW,F_SUDDIV_DEPOSITI
  ITEM "M|Magazzini"
  MESSAGE HIDE,F_SUBORDINE|SHOW,G_CODART@|
  MESSAGE SHOW,F_DETTAGLIOMAG|"X",F_DETTAGLIODEP
  MESSAGE HIDE,F_SUDDIV_MAGAZZINI|HIDE,F_SUDDIV_DEPOSITI
END

LISTBOX F_SUBORDINE 20
BEGIN
  FLAGS "G"
  PROMPT 32 2 "sotto-ordinamento "
  ITEM "C|Codice"
  MESSAGE HIDE,G_CATMER@|ENABLE,G_CODART@|ENABLE,G_LIVELLI@|HIDE,G_USER@|ENABLE,G_DESART@
  ITEM "D|Descrizione"
  MESSAGE HIDE,G_CATMER@|DISABLE,G_CODART@|"AC",F_ENABLER|"0",F_TOLIVELLOART|DISABLE,G_LIVELLI@|HIDE,G_USER@|ENABLE,G_DESART@
  ITEM "M|Gruppo merc."
  MESSAGE SHOW,G_CATMER@|ENABLE,G_CODART@|ENABLE,G_LIVELLI@|HIDE,G_USER@|ENABLE,G_DESART@
  ITEM "P|Personalizzato"
  MESSAGE HIDE,G_CATMER@|CLEAR,G_CODART@|ENABLE,G_LIVELLI@|SHOW,G_USER@|CLEAR,G_DESART@
END

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

LISTBOX F_FILTRO 10
BEGIN
  FLAGS "G"
  PROMPT 34 3 "Filtro          "
  ITEM "T|Tutti"
  ITEM "N|Negativi"
END

DATE F_DADATA
BEGIN
  PROMPT 2 4  "Dalla data    "
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 16 5 "@bDall'articolo "
END

TEXT DLG_NULL
BEGIN
  PROMPT 50 5 "@ball'articolo "
END

STRING F_DAART 20
BEGIN
  PROMPT 2 6 "Codice        "
  FLAGS "U"
  USE LF_ANAMAG 
  INPUT CODART F_DAART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descr@50" DESCR
  OUTPUT F_DAART CODART
  OUTPUT F_DADES DESCR
  OUTPUT F_AART CODART
  OTPUT F_ADESC DESCR
  GROUP G_CODART
  CHECKTYPE SEARCH
END

STRING F_DADES 50 28
BEGIN
  PROMPT 2 7 "Descrizione   "
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DADES
  DISPLAY "Descr@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT F_DAART
  GROUP G_DESART
END

STRING F_DAUSR 40 30
BEGIN
  PROMPT 2 8 "Personalizz.  "
  FLAGS "UH"
  GROUP G_USER
END

STRING F_AART 20
BEGIN
  PROMPT 50 6 ""
  FLAGS "U"
  COPY USE F_DAART
  INPUT CODART F_AART
  COPY DISPLAY F_DAART
  OUTPUT F_AART CODART
  OUTPUT F_ADES DESCR
  FIELD ANTIOUTPUT
  GROUP G_CODART
  STR_EXPR (#F_AART>=#F_DAART)||(#F_AART=="")
  WARNING "Il secondo estremo deve essere superiore al primo"
  CHECKTYPE SEARCH
END

STRING F_ADES 50 28
BEGIN
  PROMPT 50 7 ""
  COPY USE F_DADES
  INPUT DESCR F_ADES
  COPY DISPLAY F_DADES
  COPY OUTPUT F_AART
  GROUP G_DESART
END

STRING F_AUSR 40 30
BEGIN
  PROMPT 50 8 ""
  FLAGS "UH"
  GROUP G_USER
END

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

STRING F_AMAG 3
BEGIN
  PROMPT 2 10 " 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_DADEP 3 
BEGIN
  PROMPT 37 9 "Dal deposito "
  FLAGS "U"
  USE MAG SELECT CODTAB[4,5]!=""
  INPUT CODTAB[1,3] F_DAMAG SELECT
  INPUT CODTAB[4,5] F_DADEP
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Deposito" CODTAB[4,5]
  DISPLAY "Descr@50" S0
  OUTPUT F_DADEP CODTAB[4,5]
END

STRING F_ADEP 3
BEGIN
  PROMPT 37 10 "Al deposito  "
  FLAGS "U"
  COPY USE F_DADEP
  INPUT CODTAB[1,3] F_AMAG SELECT
  INPUT CODTAB[4,5] F_ADEP
  COPY DISPLAY F_DADEP
  OUTPUT F_ADEP CODTAB[4,5]
  STR_EXPR (#F_ADEP>=#F_DADEP)||(#F_ADEP=="")
  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 12 "Suddivido per depositi"
END

BOOL F_DETTAGLIODEP
BEGIN
  FLAGS "DH"
  PROMPT 42 12 "Dettaglio i depositi"
END

LIST F_ENABLER 30
BEGIN
  PROMPT 2 14 "Livello di dettaglio "
  ITEM "AC|fino ai singoli articoli"
  MESSAGE RESET,F_TOLIVELLOGIAC|HIDE,F_TOLIVELLOGIAC|RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART
  ITEM "AL|fino al livello"
  MESSAGE RESET,F_TOLIVELLOGIAC|HIDE,F_TOLIVELLOGIAC|SHOW,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
  ITEM "GC|fino al livello di giacenza"
  MESSAGE RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|SHOW,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
  ITEM "|massimo"
  MESSAGE ENABLE,F_SUDDIV_MAGAZZINI
  MESSAGE RESET,F_TOLIVELLOGIAC|RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|HIDE,F_TOLIVELLOGIAC
  GROUP G_LIVELLI
END

NUMBER F_TOLIVELLOART 1
BEGIN
  PROMPT 57 14 ""
  USE FCA
  INPUT CODTAB F_TOLIVELLOART
  DISPLAY "Num." CODTAB 
  DISPLAY "Descr@50" S0
  OUTPUT F_TOLIVELLOART CODTAB 
  CHECKTYPE NORMAL
  GROUP G_LIVELLI
  WARNING "Livello finale non ammissibile"
END

NUMBER F_TOLIVELLOGIAC 1
BEGIN
  PROMPT 57 14 ""
  USE FCG
  INPUT CODTAB F_TOLIVELLOGIAC
  DISPLAY "Num." CODTAB 
  DISPLAY "Descr@50" S0
  OUTPUT F_TOLIVELLOGIAC CODTAB 
  CHECKTYPE NORMAL
  GROUP G_LIVELLI
  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
  PROMPT 2 17 "Suddivido per depositi"
END

BOOL F_NO_VALORI
BEGIN
  PROMPT 2 18 "Non stampare i valori"
END

BOOL F_NO_FF
BEGIN
  PROMPT 42 16 "Senza salto pagina"
END

BOOL F_SINTETICA
BEGIN
  PROMPT 42 17 "Stampa sintetica"
END

ENDPAGE

ENDMASK