#include "cg4500b.h"

PAGE "Apertura nuovo esercizio IVA" -1 -1 73 10

NUMBER F_CODDITTA 5
BEGIN
	PROMPT 2 1 "Ditta             "
        FLAGS "FRD"
        USE LF_NDITTE KEY 1  
        CHECKTYPE REQUIRED
        INPUT CODDITTA F_CODDITTA
        DISPLAY "Codice" CODDITTA
	    DISPLAY "Ragione sociale @50" RAGSOC
	    OUTPUT F_CODDITTA CODDITTA 
        OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale   "
  FLAGS "D"
END

NUMBER F_ANNOIVA 4
BEGIN
  PROMPT 2 4 "Nuovo anno esercizio IVA   "
  HELP "Anno di cui si vuole aprire un nuovo esercizio IVA"
  CHECKTYPE REQUIRED
//FLAGS "A"
END

STRING F_FREQUENZA 1
BEGIN
  PROMPT 2 5 "Frequenza versamenti (M/T) "
  HELP "Indicare la frequenza delle liquidazioni IVA per il nuovo esercizio"
END

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

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK