campo-sirio/mr/mr2200f.uml

#include "mr2200a.h" 
#define G_ORDINI   1
#define G_CRP      2
#define G_EXCEPT   3
PAGE "Stampa Planning"  -1 -1 60 15
STRING DLG_PROFILE 50
BEGIN
  PROMPT 2 2 ""
  FLAGS "HG"
  PSELECT
END
                         
RADIO S_PRINTTYPE 40
BEGIN
  PROMPT 2 1 "Stampa"
  ITEM "E|Tabulato eccezioni"
  MESSAGE HIDE,G_ORDINI@|HIDE,G_CRP@|SHOW,G_EXCEPT@
  ITEM "O|Proposte d'ordine"
  MESSAGE HIDE,G_EXCEPT@|HIDE,G_CRP@|SHOW,G_ORDINI@
  ITEM "C|Capacity review"
  MESSAGE HIDE,G_EXCEPT@|HIDE,G_ORDINI@|SHOW,G_CRP@
  DEFAULT NONE
END

BOOL S_INTERLINEA
BEGIN
  PROMPT 2 6 "Interlinea tra le righe d'ordine"
  FLAGS "H"
END

BOOL S_DELAY_EXCEPT
BEGIN
  PROMPT 2 6 "Proposte di dilazione"
  GROUP G_EXCEPT
END

BOOL S_HURRYUP_EXCEPT
BEGIN
  PROMPT 2 7 "Proposte di anticipo"
  GROUP G_EXCEPT
END

BOOL S_EXTRA_EXCEPT
BEGIN
  PROMPT 2 8 "Proposte di disdetta"
  GROUP G_EXCEPT
END

BOOL S_STOCKBRK_EXCEPT
BEGIN
  PROMPT 2 10 "Sotto scorta"
  GROUP G_EXCEPT
END

BOOL S_CODEMISS_EXCEPT
BEGIN
  PROMPT 2 11 "Codici fornitore/cliente mancanti"
  GROUP G_EXCEPT
END


LIST F_MSP_SORT 23
BEGIN
  GROUP G_ORDINI
  PROMPT 2 6 "Ordinamento "
  ITEM " | "
  ITEM "1|*Cliente+Articolo+Linea"
  ITEM "2|*Cliente+Linea+Articolo"
  ITEM "3|*Articolo+Linea+Cliente"
  ITEM "4|*Articolo+Cliente+Linea"
  ITEM "5|*Linea+Articolo+Cliente"
  ITEM "6|*Linea+Cliente+Articolo"
  ITEM "8|*Articolo+Cliente"
  ITEM "9|*Cliente+Articolo"
  ITEM "17|Cliente+Articolo+Linea"
  ITEM "18|Cliente+Linea+Articolo"
  ITEM "19|Articolo+Linea+Cliente"
  ITEM "20|Articolo+Cliente+Linea"
  ITEM "21|Linea+Articolo+Cliente"
  ITEM "22|Linea+Cliente+Articolo"
  ITEM "24|Articolo+Cliente"
  ITEM "25|Cliente+Articolo"
  DEFAULT NONE
END

NUMBER F_PRINT_FROM_COL 1
BEGIN
  GROUP G_ORDINI
  PROMPT 2 8 "Dalla colonna     "
END

NUMBER F_PRINT_NUM_COL 2
BEGIN
  GROUP G_ORDINI
  PROMPT 24 8 "Numero di colonne "
END

LIST F_PRINT_ROW_FILTER 36
BEGIN
  GROUP G_ORDINI
  PROMPT 2 10 "Filtro di stampa  "
  ITEM "RCG|tutte il prospetto"
  ITEM "R|solo le righe di pianificazione"
END

BOOL F_MSP_SORT_ORDER
BEGIN
  GROUP G_ORDINI
  PROMPT 42 6 "inverso"
  DEFAULT NONE
END

BUTTON F_MSP_RESORT 10 1
BEGIN
  GROUP G_ORDINI
  PROMPT 26 7 "Riordina"
END

// -----------------------------

LIST F_LOADTYPE 20
BEGIN
  GROUP G_CRP
  PROMPT 2 6 ""
  ITEM "M|Carico macchina"
  ITEM "H|Carico uomo"
  ITEM "P|Numero pezzi"
  ITEM "$|Costo standard"
  DEFAULT NONE
END

BOOL F_SHOWDETAILS
BEGIN
  GROUP G_CRP
  PROMPT 2 7 "Mostra dettaglio"
  DEFAULT NONE
END
BOOL F_SHOWPERC
BEGIN
  GROUP G_CRP
  PROMPT 30 7 "Mostra percentuali"
  DEFAULT NONE
END


BOOL F_USENONSTDLIN_CRP
BEGIN
  GROUP G_CRP
  PROMPT 2 8 "Linee non standard"
  FLAGS "D"
  DEFAULT NONE
END
BOOL F_USEEXTRAHRS_CRP
BEGIN
  GROUP G_CRP
  PROMPT 30 8 "Turni straordinari"
  FLAGS "D"
  DEFAULT NONE
END

LIST F_CRP_SORT 23
BEGIN
//GROUP G_CRP
  FLAGS "HD"
  PROMPT 2 7 "Ordina per "
  ITEM "ILA|Impianto+Linea+Articolo"
  ITEM "AIL|Articolo+Impianto+Linea"
  ITEM "IAL|Impianto+Articolo+Linea"
  DEFAULT NONE
END

BOOL F_CRP_SORT_ORDER
BEGIN
//GROUP G_CRP
  FLAGS "HD"
  PROMPT 42 7 "inverso"
  DEFAULT NONE
END

BUTTON F_CRP_RESORT 9 1
BEGIN
//GROUP G_CRP
  FLAGS "HD"
  PROMPT 64 7 "Riordina"
END



BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -12 -1 "~Stampa"
  PICTURE BMP_PRINT
END

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

ENDPAGE

ENDMASK