#include "in0100a.h"

PAGE "Stampa Riepiloghi" -1 -1 32 6

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

NUMBER R_ANNO 4
BEGIN
  PROMPT 1 2 "Anno    "
  FLAGS "AU"
END

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

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

LIST R_PERIODO_A 2 17
BEGIN
  PROMPT 1 3 "Periodo "
  ITEM "01|Annuale"
    MESSAGE COPY,R_PERIODO_M
END

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

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

ENDPAGE

ENDMASK