campo-sirio/ba/batbois.uml

#include "batbois.h"

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

PAGE "Vecchi codici attivita'" -1 -1 78 7

STRING FLD_TABOIS_CODTAB 4
BEGIN
  PROMPT 2 1 "Codice      "
  FIELD CODTAB[1,4]
  HELP "Codice del vecchio codice attivita'"
  USE %OIS
  INPUT CODTAB[1,4] FLD_TABOIS_CODTAB
  INPUT CODTAB[5,] FLD_TABOIS_ADD
  DISPLAY "Codice" CODTAB[1,4]
  DISPLAY "Subcodice" CODTAB[5,]
  DISPLAY "Descrizione@40" S0
  OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
  OUTPUT FLD_TABOIS_ADD CODTAB[5,]
  OUTPUT FLD_TABOIS_S0 S0
  KEY 1
  FLAGS "RZ"   
  CHECKTYPE REQUIRED
END

STRING FLD_TABOIS_ADD 1
BEGIN
  PROMPT 22 1 "Subcodice   "
  HELP "Subcodice del vecchio codice attivita'"
  FIELD CODTAB[5,]
  COPY ALL FLD_TABOIS_CODTAB
  KEY 1
  FLAGS "U"
//  VALIDATE AUTOEXIT_FUNC 1 FLD_TABOIS_CODTAB
END

STRING FLD_TABOIS_S0 40
BEGIN
  PROMPT 2 3 "Descrizione "
  FIELD S0
  HELP "Descrizione del vecchio codice attivita' "
  USE %OIS KEY 2
  CHECKTYPE REQUIRED
  INPUT S0 FLD_TABOIS_S0
  DISPLAY "Descrizione@40" S0
  DISPLAY "Codice" CODTAB[1,4]
  DISPLAY "Subcodice" CODTAB[5,]
  OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
  OUTPUT FLD_TABOIS_ADD CODTAB[5,]
  OUTPUT FLD_TABOIS_S0 S0
  KEY 2
END

ENDPAGE
ENDMASK