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
  FLAGS "A"
  PROMPT 2 1 "Codice es.    "
  USE ESC
  INPUT CODTAB F_ANNOES
  DISPLAY "Esercizio" CODTAB
  DISPLAY "Dal@12" D0
  DISPLAY "Al@12" D1
  OUTPUT F_ANNOES CODTAB
  ADD NONE
  CHECKTYPE NORMAL
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
	COPY DISPLAY F_ANNOES
	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
	MESSAGE FALSE ENABLE,F_CLASSEFISART
	GROUP G_OPZ
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

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

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

ENDPAGE
ENDMASK