campo-sirio/sc/sc3100a.uml

#include "../ba/bafrm.h"
#include "sc3100a.h"


PAGE "Scelta profilo" -1 -1 75 14

STRING F_BASE 8
BEGIN
  PROMPT 2 1 "Profilo base        "
  FLAGS "DP"
END

NUMBER F_CODE 4
BEGIN
  PROMPT 2 3 "Codice profilo      "
  FLAGS "Z"
  HELP "Codice del profilo"
  USE LF_FORM
  JOIN %LNG TO LF_FORM ALIAS 200 INTO CODTAB==CODPROF[5,5]
  INPUT TIPOPROF F_BASE SELECT
  INPUT CODPROF[1,4] F_CODE
  INPUT CODPROF[5,5] F_CODEL
  DISPLAY "Profilo base" TIPOPROF
  DISPLAY "Codice" CODPROF[1,4]
  DISPLAY "Lingua" CODPROF[5,5]
  DISPLAY "Descrizione@50" DESC
  DISPLAY "Desc. Lingua@50" -200->S0
  OUTPUT F_BASE TIPOPROF
  OUTPUT F_CODE CODPROF[1,4]
  OUTPUT F_CODEL CODPROF[5,5]
  OUTPUT F_DESC DESC
  // Simula relapp  
  KEY 1
  FIELD CODPROF[1,4]
END

STRING F_DESC 50
BEGIN
  PROMPT 2 5 "Descrizione profilo "
  HELP "Descrizione profilo utente"
  USE LF_FORM KEY 2
  JOIN %LNG TO LF_FORM ALIAS 200 INTO CODTAB==CODPROF[5,5]
  INPUT TIPOPROF F_BASE SELECT
  INPUT DESC F_DESC
  DISPLAY "Descrizione@50" DESC
  DISPLAY "Profilo base" TIPOPROF
  DISPLAY "Codice" CODPROF[1,4]
  DISPLAY "Lingua" CODPROF[5,5]
  DISPLAY "Desc. Lingua@50" -200->S0
  COPY OUTPUT F_CODE
  VALIDATE NOT_EMPTY_FUNC
  WARNING "La descrizione e' obbligatoria"
// Simula relapp  
  KEY 2
  FIELD S0
END

STRING F_CODEL 1
BEGIN
  PROMPT 2 7 "Codice lingua       "
  FLAGS "U"
  HELP "Codice lingua del profilo"
  USE %LNG
  INPUT CODTAB F_CODEL
  DISPLAY "Codice lingua" CODTAB
  DISPLAY "Decrizione@50" S0
  OUTPUT F_CODEL CODTAB
  OUTPUT F_DESL S0
  CHECKTYPE NORMAL
// Simula relapp  
  KEY 1
  FIELD CODPROF[5,5]
END

STRING F_DESL 50
BEGIN
  PROMPT 2 9 "Descrizione lingua  "
  USE %LNG KEY 2
  INPUT S0 F_DESL
  DISPLAY "Decrizione@50" S0
  DISPLAY "Codice lingua" CODTAB
  COPY OUTPUT F_CODEL
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -14 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -24 -1 ""
  MESSAGE EXIT,K_DEL
END

BUTTON  DLG_COPY 10 2
BEGIN
  PROMPT -34 -1 "C~opia..."
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -44 -1 ""
END

ENDPAGE
ENDMASK