#include "pg0001400a.h"

PAGE "Stampa bollettini postali" -1 -1 76 15

LIST F_TIPODIST 18
BEGIN
  PROMPT 2 5 "Tipo Distinta   "
  KEY 4
  ITEM "I|All'incasso"
  ITEM "B|Salvo buon fine"
  ITEM "S|Allo sconto"
END

NUMBER F_NUMBER 5
BEGIN
  PROMPT 2 6 "Numero Distinta "
  KEY 4
  USE LF_EFFETTI KEY 4 SELECT (NRIGADIST=1)
  INPUT NDIST F_NUMBER
  INPUT TIPODIST F_TIPODIST
  INPUT NRIGADIST F_NUMBERRIGA
  DISPLAY "Tipo" TIPODIST
  DISPLAY "Nr. distinta" NDIST
  DISPLAY "Data@10" DATADIST
  DISPLAY "C/F" TIPOCF
  DISPLAY "ABI@5" CODABIP
  DISPLAY "CABI@5" CODCABP
  OUTPUT F_NUMBER NDIST
  OUTPUT F_TIPODIST TIPODIST
  OUTPUT F_NUMBERRIGA NRIGADIST
  CHECKTYPE NORMAL
  ADD RUN ef0 -2
END

/* CAMPO NASCOSTO CHE SERVE PER LA RICERCA */
LIST F_NUMBERRIGA 12
BEGIN
  PROMPT 1 60 "Numero Riga Distinta"
  KEY 4
  ITEM "1|PRIMA RIGA"
  FLAGS "D"
END

DATA F_DATAEMIS
BEGIN
  PROMPT 2 7 "Data Emissione  "
  FLAGS "A"
END

STRINFA F_CAUSALE 50
BEGIN
  PROMPT 2 9 " Causale        "
END

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

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

ENDPAGE
ENDMASK