campo-sirio/mg/mg4300.uml

#include "mg4300.h"
PAGE "Stampa giornale" -1 -1 78 20


NUMBER F_ANNO 4
BEGIN
  FLAGS "AH"
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 2 1 "Anno "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

STRING F_CODREG 3
BEGIN
  FLAGS "U"
  PROMPT 42 1 "Codice giornale "
  USE REG SELECT I0=9        
  INPUT CODTAB[1,4] F_ANNOES 
  INPUT CODTAB[5,7] F_CODREG
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,8]
  DISPLAY "Descrizione" S0
  OUTPUT F_ANNOES CODTAB[1,4]
  OUTPUT F_CODREG CODTAB[5,7]
  CHECKTYPE REQUIRED
  ADD NONE
END

LISTBOX F_DEFINITIVA 10
BEGIN
  PROMPT 2 3 "Si desidera la stampa "
  ITEM "P|di prova"
  ITEM "D|definitiva"
END

DATE F_DATAIN
BEGIN
  PROMPT 2 5 "Dalla data "
END

DATE F_DATAFIN
BEGIN
  PROMPT 42 5 "Alla data "
END

NUMBER F_FREQ 2
BEGIN
  FLAGS "U"
  PROMPT 2 7 "Frequenza di stampa   "
  NUM_EXPR #F_FREQ<=31
  WARNING "La frequenza di stampa pu<70> essere fino a 31 giorni"
END

BOOLEAN F_RAGG
BEGIN
  PROMPT 2 9 "Raggruppo"
  MESSAGE TRUE ENABLE,F_RAGGMAG|ENABLE,F_CLASSEFISART|ENABLE,F_RAGGARTICOLI|ENABLE,F_RAGGCAUS
  MESSAGE FALSE CLEAR,F_RAGGMAG|CLEAR,F_CLASSEFISART|CLEAR,F_RAGGARTICOLI|CLEAR,F_RAGGCAUS
  GROUP G_OPZ
END

BOOLEAN F_RAGGMAG
BEGIN
  FLAGS "D"
  PROMPT 2 11 "Raggruppo i magazzini"
  GROUP G_OPZ
END

BOOLEAN F_RAGGARTICOLI
BEGIN
  FLAGS "D"
  PROMPT 2 12 "Raggruppo le giacenze dello stesso articolo"
  MESSAGE TRUE CLEAR,F_CLASSEFISART|K_SPACE,F_CLASSEFISART|ENABLE,F_TOLIVELLOGIAC
  MESSAGE FALSE ENABLE,F_CLASSEFISART|DISABLE,F_TOLIVELLOGIAC
  GROUP G_OPZ
END

NUMBER F_TOLIVELLOGIAC 1
BEGIN
  PROMPT 52 12 "Livello dettaglio "
  FLAGS "D"
  USE FCG
  INPUT CODTAB F_TOLIVELLOGIAC
  DISPLAY "Num." CODTAB 
  DISPLAY "Descr@50" S0
  OUTPUT F_TOLIVELLOGIAC CODTAB 
  CHECKTYPE NORMAL
  WARNING "Livello finale non ammissibile"
END
               
BOOLEAN F_CLASSEFISART
BEGIN
  FLAGS "D"
  PROMPT 2 13 "Raggruppo gli articoli della stessa classe fiscale"
  MESSAGE FALSE CLEAR,F_RAGGFISART|K_SPACE,F_RAGGFISART|ENABLE,F_RAGGARTICOLI
  MESSAGE TRUE ENABLE,F_RAGGFISART|CLEAR,F_RAGGARTICOLI
  GROUP G_OPZ
END

BOOLEAN F_RAGGFISART
BEGIN
  FLAGS "D"
  PROMPT 2 14 "Raggruppo gli articoli dello stesso ragg. fiscale"
  GROUP G_OPZ
END

BOOLEAN F_RAGGCAUS
BEGIN
  FLAGS "D"
  PROMPT 2 15 "Raggruppo le causali"
  GROUP G_OPZ
END

NUMBER F_TOLIVELLOGIAC 1
BEGIN
  PROMPT 30 9 "Dettaglia le giacenze fino al livello "
  FLAGS "D"
  USE FCG
  INPUT CODTAB F_TOLIVELLOGIAC
  DISPLAY "Num." CODTAB 
  DISPLAY "Descr@50" S0
  OUTPUT F_TOLIVELLOGIAC CODTAB 
  CHECKTYPE NORMAL
  WARNING "Livello finale non ammissibile"
END
               
BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

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

ENDPAGE
ENDMASK