campo-sirio/ab/abtbpdb.uml

#include "abtbpdb.h"

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

PAGE "Tabella periodi di bilancio" 0 2 0 0

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

STRING F_CODTAB 2
BEGIN
  PROMPT 2 2 "Codice periodo "
  HELP "Inserire il codice identificativo del periodo prescelto"
  FLAS "UZ"
  FIELD CODTAB
  KEY 1
  USE %PDB KEY 1 
  INPUT CODTAB F_CODTAB
  DISPLAY "Codice@3" CODTAB
  DISPLAY "Descrizione@40" S0
  DISPLAY "gg.inizio@3" I0
  DISPLAY "mm.inizio@3" I1
  DISPLAY "gg.fine@3" I2
  DISPLAY "mm.fine@3" I3
  DISPLAY "Numero anni@3" I4
  OUTPUT F_CODTAB CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
END

STRING F_DESCR 70 40
BEGIN
  PROMPT 2 4 "Descrizione    "
  HELP "Descrizione del codice tabella periodi di bilancio"
  FIELD S0
  KEY 2
  USE %PDB KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@40" S0
  DISPLAY "Codice@3" CODTAB
  DISPLAY "gg.inizio@3" I0
  DISPLAY "mm.inizio@3" I1
  DISPLAY "gg.fine@3" I2
  DISPLAY "mm.fine@3" I3  
  DISPLAY "Numero anni@3" I4
  COPY OUTPUT F_CODTAB
  CHECKTYPE REQUIRED
END

NUMBER F_GIORNO_INI 2
BEGIN
  PROMPT 2 8 "Inizio periodo:  giorno "
  HELP "Inserire il giorno relativo al periodo di inizio"
  FIELD I0
  FLAGS "RU"
  CHECKTYPE REQUIRED
END

NUMBER F_MESE_INI 2
BEGIN
  PROMPT 32 8 "mese "
  HELP "Inserire il mese relativo al periodo di inizio"
  FIELD I1
  FLAGS "RU"
  CHECKTYPE REQUIRED
END                       

                
NUMBER F_GIORNO_FINE 2
BEGIN
  PROMPT 2 10 "Fine periodo:    giorno "
  HELP "Inserire il giorno relativo alla fine del periodo"
  FIELD I2
  FLAGS "RU"
  CHECKTYPE REQUIRED
END
                
NUMBER F_MESE_FINE 2
BEGIN
  PROMPT 32 10 "mese "
  HELP "Inserire il mese relativo alla fine del periodo"
  FIELD I3
  FLAGS "RU"
  CHECKTYPE REQUIRED
END

NUMBER F_NUM_ANNI 1
BEGIN
  PROMPT 2 12 "Numero di anni          "
  HELP "Inserire il numero di anni"
  FIELD I4
  FLAGS "RU"
  CHECKTYPE NORMAL
END

                
STRING F_DESCRAGG 70 30
BEGIN
  PROMPT 2 15 "Descrizione alternativa per stampa raffronti "
  FIELD S1
END

ENDPAGE

ENDMASK