campo-sirio/cg/cg4500b.uml

#include "cg4500b.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Apertura 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
  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 
  VALIDATE FIXLEN_FUNC 4
END

LIST F_FREQUENZA 1 16
BEGIN
  PROMPT 2 5 "Frequenza versamenti       "
  ITEM "M|Mensile"
  ITEM "T|Trimestrale"
  FLAGS "U"
  HELP "Indicare la frequenza delle liquidazioni IVA per il nuovo esercizio"
END

ENDPAGE

ENDMASK