campo-sirio/ba/batbucs.uml

#include "batbucs.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Centri servizio" -1 -1 78 18

NUMBER FLD_TABUCS_CODTAB 3
BEGIN
  PROMPT 1 1 "Codice         "
  FIELD %UCS->CODTAB
  FLAGS "RZ"
  KEY 1
  USE %UCS
  INPUT CODTAB FLD_TABUCS_CODTAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT FLD_TABUCS_CODTAB CODTAB
  OUTPUT FLD_TABUCS_S0 S0
  HELP "Codice del centro servizio"
  CHECKTYPE REQUIRED
END

STRING FLD_TABUCS_S0 40
BEGIN
  PROMPT 1 3 "Descrizione    "
  FIELD %UCS->S0
  KEY 2
  USE %UCS KEY 2
  INPUT S0 FLD_TABUCS_S0
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT FLD_TABUCS_CODTAB CODTAB
  OUTPUT FLD_TABUCS_S0 S0
  HELP "Descrizione del centro servizio"
  CHECKTYPE REQUIRED
END

STRING FLD_TABUCS_S1 35
BEGIN
  PROMPT 1 5 "Indirizzo      "
  FIELD %UCS->S1
  HELP "Indirizzo della sede del centro"
END

STRING FLD_TABUCS_S3 10
BEGIN
  PROMPT 54 5 "N."
  FIELD %UCS->S3
  HELP "Numero civico della sede"
END

STRING FLD_TABUCS_S6 4
BEGIN
  PROMPT 1 7 "Comune         "
  FIELD %UCS->S6
	FLAGS "U"
  USE LF_COMUNI KEY 1
  INPUT STATO ""
  INPUT COM FLD_TABUCS_S6
#include <comdcod.h>
  OUTPUT FLD_TABUCS_S6 COM
  OUTPUT FLD_TABUCS_S6_COMUNI_DENCOM DENCOM
  OUTPUT FLD_TABUCS_S6_COMUNI_PROVCOM PROVCOM
  OUTPUT FLD_TABUCS_S7_CAP CAPCOM
  HELP "Codice del comune della sede"
  CHECKTYPE REQUIRED
  WARNING "Comune non presente"
  ADD RUN ba4 -0
END

STRING FLD_TABUCS_S6_COMUNI_DENCOM 50
BEGIN
  PROMPT 1 9 "Denominazione  "
  USE LF_COMUNI KEY 2
  INPUT DENCOM FLD_TABUCS_S6_COMUNI_DENCOM
#include <comdden.h>
	COPY OUTPUT FLD_TABUCS_S6
  HELP ""
END

STRING FLD_TABUCS_S6_COMUNI_PROVCOM 2
BEGIN
  PROMPT 1 11 "Provincia      "
  FLAGS "D"
  HELP ""
END

STRING FLD_TABUCS_S7_CAP 5
BEGIN
  PROMPT 54 11 "CAP    "
  FIELD %UCS->S7
  HELP "CAP del comune della sede"
END

STRING FLD_TABUCS_S4 8
BEGIN
  PROMPT 1 13 "C.Corr.Postale "
  FIELD %UCS->S4
  HELP "Numero di conto corrente postale del centro"
END

ENDPAGE

ENDMASK