#include "cg5400.h"

PAGE "Ripristino stampa indici libro unico" -1 -1 76 9

NUMBER F_YEAR 4
BEGIN
  PROMPT 4 1 "Anno        "
  FLAGS "AR"
  CHECKTYPE REQUIRED
  HELP "Anno IVA"
  WARNING "L'anno deve essere specificato"
END

STRING F_REG 3
BEGIN
  PROMPT 4 3 "Libro unico "
  FLAGS "UZ"
  USE %LBU
  INPUT CODTAB[1,4] F_YEAR
  INPUT CODTAB[5,7] F_REG
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Descrizione @50" S0
  OUTPUT F_YEAR CODTAB[1,4]
  OUTPUT F_REG CODTAB[5,7]
  OUTPUT F_DREG S0
  CHECKTYPE REQUIRED  
  HELP "Codice del libro unico di cui ripristinare la stampa"
  WARNING "Libro unico assente"
END

STRING F_DREG 50
BEGIN
  PROMPT 22 3 ""
  USE %LBU KEY 2
  INPUT S0 F_DREG
  DISPLAY "Descrizione @50" S0
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  COPY OUTPUT F_REG
  CHECKTYPE NORMAL
  HELP "Denominazione del libro di cui ripristinare la stampa"
  WARNING "Libro unico assente"
END

LIST F_MESE 10
BEGIN
  PROMPT 4 5 "Mese        "
  FLAGS "M"
  HELP "Mese da cui ripristinare la stampa degli indici"
END

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

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
  MESSAGE EXIT,K_QUIT
END

ENDPAGE

ENDMASK