campo-sirio/mr/mr2200e.uml

#include "mr2200a.h"

PAGE "Opzioni di salvataggio"  -1 -1 66 16

TEXT DLG_NULL
BEGIN
  PROMPT 2 1  "Numera gli ordini per:"
  FLAGS "D"
END

BOOLEAN F_NUMBERBYCLI
BEGIN
  PROMPT 36 1  "cliente"
  FLAGS "D"
  DEFAULT NONE
END

BOOLEAN F_NUMBERBYWEEK
BEGIN
  PROMPT 50 1  "settimana"
  FLAGS "D"
  DEFAULT NONE
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 2  "Suddividi gli ordini per:"
END

BOOLEAN F_DIVIDEBYART
BEGIN
  PROMPT 36 2  "articolo"
  FLAGS "D"
  DEFAULT NONE
END

BOOLEAN F_DIVIDEBYDATE
BEGIN
  PROMPT 50 2  "scadenza"
  FLAGS "D"
  DEFAULT NONE
END

SPREADSHEET F_SAVE_OPT -1 9
BEGIN
  PROMPT 2 3 ""
  ITEM " "
  ITEM "Numeraz."
  ITEM "Tipo Doc."
  ITEM "Tipo riga"
  ITEM "Da Impianto"
  ITEM "A Impianto" 
  ITEM "Da Linea"
  ITEM "A Linea" 
  ITEM "Da Magazzino"
  ITEM "A Magazzino"
END


BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -12 -1 ""
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 "~Annulla"
  PICTURE BMP_CANCEL
END

ENDPAGE
ENDMASK

PAGE "Opzioni di salvataggio" -1 -1 74 15

BOOL F_SEL4SAVE
BEGIN
  PROMPT 4 1 "Includi nel salvataggio "
END

STRING F_NUM_PLAN 4
BEGIN
  PROMPT 4 3 "Codice numerazione da generare    "
  FLAGS "UD"
  USE %NUM
  INPUT CODTAB F_NUM_PLAN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_NUM_PLAN CODTAB
  CHECKTYPE REQUIRED
//  GROUP G_PREPROCESS
  ADD NONE
END

STRING F_TIPO_PLAN 4
BEGIN
  PROMPT 4 4 "Tipo documento da generare        "
  FLAGS "UD"
  USE %TIP
  INPUT CODTAB F_TIPO_PLAN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_TIPO_PLAN CODTAB
  CHECKTYPE REQUIRED
//  GROUP G_PREPROCESS
  ADD NONE
END

STRING F_RIGA_PLAN 4
BEGIN
  PROMPT 4 5 "Tipo riga da generare             "
  FLAGS "UD"
  USE %TRI SELECT S7=="M"
  INPUT CODTAB F_RIGA_PLAN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_RIGA_PLAN CODTAB
  CHECKTYPE REQUIRED
//  GROUP G_PREPROCESS
  ADD NONE
END

STRING F_DA_IMPIANTO 5
BEGIN
  FLAGS "UD"
  PROMPT 2 7 "Da impianto  "
  USE IMP
  INPUT CODTAB F_DA_IMPIANTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DA_IMPIANTO CODTAB
  CHECKTYPE NORMAL
END
STRING F_A_IMPIANTO 5
BEGIN
  FLAGS "UD"
  PROMPT 25 7 " a "
  COPY USE F_DA_IMPIANTO
  INPUT CODTAB F_A_IMPIANTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_A_IMPIANTO CODTAB
  CHECKTYPE NORMAL
END

STRING F_DA_LINEA 5
BEGIN
  FLAGS "UD"
  PROMPT 2 8 "Da linea    "
  USE IMP
  INPUT CODTAB F_DA_IMPIANTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DA_IMPIANTO CODTAB
  CHECKTYPE NORMAL
END
STRING F_A_LINEA 5
BEGIN
  FLAGS "UD"
  PROMPT 25 8 " a "
  COPY USE F_DA_IMPIANTO
  INPUT CODTAB F_A_IMPIANTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_A_IMPIANTO CODTAB
  CHECKTYPE NORMAL
END

STRING F_DA_MAGAZZ 3
BEGIN
  FLAGS "UD"
  PROMPT 2 9 "Da magazzino "
  USE MAG SELECT CODTAB[4,5]=""
  INPUT CODTAB F_DA_MAGAZZ
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DA_MAGAZZ CODTAB
  CHECKTYPE NORMAL
END
STRING F_A_MAGAZZ 3
BEGIN
  FLAGS "UD"
  PROMPT 25 9 " a "
  COPY USE F_DA_MAGAZZ
  INPUT CODTAB F_A_MAGAZZ
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_A_MAGAZZ CODTAB
  CHECKTYPE NORMAL
END

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

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

ENDPAGE

ENDMASK