#include "intbird.h"

TOOLBAR "relapbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Dati riassuntivi" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "@bDati Riassuntivi"
END

LIST F_TIPO 1 8
BEGIN
  PROMPT 2 2 "Tipo "
  ITEM "A|Acquisti"
  ITEM "C|Cessioni"
  FIELD CODTAB[1,1]
  KEY 1
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 35 2 "Anno "
  FLAGS "AZ"
  USE IRD         
  INPUT CODTAB[1,1] F_TIPO SELECT
  INPUT CODTAB[2,5] F_ANNO
  INPUT CODTAB[6,7] F_MESE
  DISPLAY "Tipo" CODTAB[1,1]
  DISPLAY "Anno@15" CODTAB[2,5]
  DISPLAY "Periodo@10" CODTAB[6,7]
  DISPLAY "N.dischetto@10" I0
  DISPLAY "Riepiloghi@10" I2
  DISPLAY "Rettifiche@10" I3
  OUTPUT F_ANNO CODTAB[2,5]
  OUTPUT F_MESE CODTAB[6,7]
  CHECKTYPE REQUIRED
  FIELD CODTAB[2,5]
  KEY 1
END

NUMBER F_MESE 2
BEGIN
  PROMPT 56 2 "Periodo "
  FLAGS "Z"
  COPY ALL F_ANNO
  FIELD CODTAB[6,7]
  KEY 1
END

NUMBER F_NDKT 4
BEGIN
  PROMPT 2 4 "Numero Dischetto "
  FIELD I0
END

NUMBER F_RIGHE 7
BEGIN
  PROMPT 2 6 "Righe riepilogo "
  FIELD I2
END

NUMBER F_RETT 7
BEGIN
  PROMPT 2 7 "Righe rettifica "
  FIELD I3
END


CURRENCY F_AMM_COMP 18
BEGIN
  PROMPT 36 6 "Ammontare Riepiloghi "
  FIELD R0
END

CURRENCY F_AMM_RETT 18
BEGIN
  PROMPT 36 7 "Ammontare Rettifiche "
  FIELD R1
END

ENDPAGE

ENDMASK