campo-sirio/ri/ritbper.uml

#include "ritbper.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 &PER KEY 1 
  INPUT CODTAB F_CODTAB
  DISPLAY "Codice@3" CODTAB
  DISPLAY "Descrizione@40" S0
  DISPLAY "Giorni" I0
  DISPLAY "Settimane" I1
  DISPLAY "Mesi" I2
  DISPLAY "Anni" I3  
  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 &PER KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@40" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Giorni" I0
  DISPLAY "Settimane" I1
  DISPLAY "Mesi" I2
  DISPLAY "Anni" I3  
  COPY OUTPUT F_CODTAB
  CHECKTYPE REQUIRED
END

NUMBER F_LUNGH_GG 2
BEGIN
  PROMPT 2 8 "Lunghezza :  giorni    "
  HELP "Inserire la durata in giorni"
  FIELD I0
  MESSAGE CLEAR,F_LUNGH_SET
  MESSAGE EMPTY ENABLE,F_LUNGH_SET
END

NUMBER F_LUNGH_SET 1
BEGIN
  PROMPT 2 9 "          :  settimane "
  HELP "Inserire la durata in settimane"
  FIELD I1
  MESSAGE CLEAR,F_LUNGH_GG
  MESSAGE EMPTY ENABLE,F_LUNGH_GG
END                       

NUMBER F_LUNGH_MESI 2
BEGIN
  PROMPT 2 10 "          :  mesi      "
  HELP "Inserire la durata in mesi"
  FIELD I2
END                       

NUMBER F_LUNGH_ANNI 2
BEGIN
  PROMPT 2 11 "          :  anni      "
  HELP "Inserire la durata in anni"
  FIELD I3
END                       

ENDPAGE

ENDMASK