campo-sirio/in/in0200a.uml

#include "in0200a.h"

PAGE "Generazione Dischetti INTRA" -1 -1 40 9

LIST F_TIPO 1 10
BEGIN
  PROMPT 1 1 "Tipo riepilogo "
  ITEM "A|Acquisti"
  ITEM "C|Cessioni"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 30 1 "Anno "
  FLAGS "AU"
END

LIST F_PERIODO_M 2 17
BEGIN
  PROMPT 1 2 "Periodo "
  FLAGS "AM"
  FIELD PERIODO
END

LIST F_PERIODO_T 2 17
BEGIN
  PROMPT 1 2 "Periodo "
  ITEM "01|Gennaio-Marzo"
    MESSAGE COPY,F_PERIODO_M
  ITEM "02|Aprile-Giugno"
    MESSAGE COPY,F_PERIODO_M
  ITEM "03|Luglio-Settembre"
    MESSAGE COPY,F_PERIODO_M
  ITEM "04|Ottobre-Dicembre"
    MESSAGE COPY,F_PERIODO_M
END

LIST F_PERIODO_A 2 17
BEGIN
  PROMPT 1 2 "Periodo "
  ITEM "01|Annuale"
    MESSAGE COPY,F_PERIODO_M
END

NUMBER F_NUMERO 6
BEGIN
  PROMPT 1 3 "Dischetto   "
  CHECKTYPE REQUIRED
END

NUMBER F_LAST 6
BEGIN
  PROMPT 26 3 "Ultimo "
  FLAGS "D"
END

LIST F_DISCO 2 
BEGIN
  PROMPT 1 4 "Disco destinazione "
  ITEM "A:|A:" MESSAGE CLEAR,F_PATH
  ITEM "B:|B:" MESSAGE CLEAR,F_PATH
  ITEM "C:|C:" MESSAGE ENABLE,F_PATH
END

STRING F_PATH 50 29
BEGIN
  PROMPT 1 5 "Cartella "
END

BUTTON F_RIEPILOGHI 26 1
BEGIN
  PROMPT -11 -3 "~Generazione Riepiloghi"
END

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

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

ENDPAGE

ENDMASK