campo-sirio/db/db0500c.uml

#include "db0500a.h"

PAGE "Esplosione" -1 -1 66 12

RADIOBUTTON F_MATBASE 1 31
BEGIN
  PROMPT 1 1 "Tipo"
  ITEM " |Scalare"   	        MESSAGE CLEAR,F_STOPPROD
  ITEM "X|Materiali di base"  MESSAGE ENABLE,F_STOPPROD
END

GROUPBOX DLG_NULL 32 7
BEGIN
  PROMPT 33 1 "Visualizza"
END

BOOLEAN F_ARTICOLI
BEGIN
  PROMPT 34 2 "Articoli"
END

BOOLEAN F_LAVORAZIONI
BEGIN
  PROMPT 34 3 "Lavorazioni"
END

BOOLEAN F_VIRTUALI
BEGIN
  PROMPT 34 4 "Distinte virtuali"
  MESSAGE TRUE ENABLE,F_GHOST
  MESSAGE FALSE CLEAR,F_GHOST
END

BOOLEAN F_GHOST
BEGIN
 PROMPT 34 5 "Distinte non di produzione"
END

BOOLEAN F_STOPPROD
BEGIN
 PROMPT 34 6 "Articoli di produzione"
END

NUMBER F_MAXDEPTH 3
BEGIN
  PROMPT 2 5 "Profondita' "
  FLAGS "U"
END

NUMBER F_SORT 1
BEGIN
  PROMPT 2 8 "Ordina "
  USE ORD
  INPUT CODTAB F_SORT
  DISPLAY "Codice ordinamento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_SORT CODTAB
  OUTPUT F_SORTDESC S0
  CHECKTYPE NORMAL
  FLAGS "U"
  MESSAGE EMPTY "Immissione",F_SORTDESC
END

STRING F_SORTDESC 50
BEGIN
  PROMPT 14 8 ""
  FLAGS "D"
END

LIST F_GROUPMODE 1 48
BEGIN
  PROMPT 2 9 "Raggruppa   "
  ITEM "0|Nessun raggruppamento"
  ITEM "1|Raggruppa per unita' di misura"
  ITEM "2|Converti nell'unita' principale"
  ITEM "3|Raggruppa all'unita' di misura principale"
  ITEM "4|Converti nell'unita' di misura di distinta"
  ITEM "5|Raggruppa all'unita' di misura di distinta"
END

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

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

ENDMASK