campo-sirio/ba/batbcrs.uml

#include "batbcrs.h"

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

PAGE "Cariche sociali" -1 -1 78 7

STRING FLD_TABCRS_CODTAB 2
BEGIN
  PROMPT 3 1 "Codice    "
  HELP "Codice della carica sociale"
  FIELD LF_TABCOM->CODTAB
  KEY 1
  USE %CRS
  INPUT CODTAB FLD_TABCRS_CODTAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Carica@25" S0
  OUTPUT FLD_TABCRS_CODTAB CODTAB
  OUTPUT FLD_TABCRS_S0 S0
  CHECKTYPE REQUIRED
  FLAGS "Z" 
END

STRING FLD_TABCRS_S0 25
BEGIN
  PROMPT 3 3 "Carica    "
  FIELD LF_TABCOM->S0
  KEY 2
  USE %CRS KEY 2
  INPUT S0 FLD_TABCRS_S0
  DISPLAY "Carica@30" S0
  DISPLAY "Codice" CODTAB
  OUTPUT FLD_TABCRS_CODTAB CODTAB
  OUTPUT FLD_TABCRS_S0 S0
  HELP "Descrizione della carica sociale"
  CHECKTYPE REQUIRED
END

BOOLEAN CHK_TABCRS_S6
BEGIN
  PROMPT 3 5 "Stampa modulo RAD"
  FIELD LF_TABCOM->S6
  HELP "Indicare se la carica viene stampata su modulo RAD"
END

ENDPAGE

ENDMASK