campo-sirio/mr/mr2100c.uml

#include "mr2100c.h" 
#define G_RISALITA 1
#define G_EXCEPT   2
#define G_PROPOSE   3
PAGE "Stampa MRP"  -1 -1 60 15
STRING DLG_PROFILE 50
BEGIN
  PROMPT 2 2 ""
  FLAGS "HG"
END

RADIO S_PRINTTYPE 40
BEGIN
  PROMPT 2 1 "Stampa"
  ITEM "O|Proposte d'ordine"
  MESSAGE SHOW,G_PROPOSE|HIDE,G_EXCEPT@|SHOW,S_RISALITA 
  ITEM "E|Tabulato eccezioni"
  MESSAGE HIDE,G_PROPOSE|SHOW,G_EXCEPT@|HIDE,S_RISALITA|RESET,S_RISALITA  
  FLAGS "D"
  DEFAULT NONE
END

BOOL S_SELECTEDONLY
BEGIN
  PROMPT 2 5 "Stampa solo le righe selezionate"
  GROUP G_PROPOSE
END
BOOL S_INTERLINEA
BEGIN
  PROMPT 2 6 "Interlinea tra le righe d'ordine"
  GROUP G_PROPOSE
END

BOOL S_DELAY_EXCEPT
BEGIN
  PROMPT 2 5 "Stampa proposte di dilazione"
  GROUP G_EXCEPT
  FLAGS "H"
END

BOOL S_HURRYUP_EXCEPT
BEGIN
  PROMPT 2 6 "Stampa proposte di anticipo"
  GROUP G_EXCEPT
  FLAGS "H"
END

BOOL S_EXTRA_EXCEPT
BEGIN
  PROMPT 2 7 "Stampa proposte di annullamento"
  GROUP G_EXCEPT
  FLAGS "H"
END


BOOL S_RISALITA 
BEGIN
  PROMPT 2 7 "Aggiungi informazioni di risalita"
  MESSAGE TRUE SHOW,G_RISALITA@|"X",S_INTERLINEA|DISABLE,S_INTERLINEA
  MESSAGE FALSE HIDE,G_RISALITA@|ENABLE,S_INTERLINEA
END
 
NUMBER S_LIV_RISALITA 1
BEGIN
  PROMPT 2 8 "Risali fino al livello "
  GROUP G_RISALITA
END


BOOL S_DETT_ORDINI
BEGIN
  PROMPT 2 10 "Totali separati per ordini confermati e proposti"
  GROUP G_RISALITA
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -1 ""
  PICTURE BMP_PRINT
END

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

ENDPAGE

ENDMASK