campo-sirio/ba/ba4700a.uml

#include "ba4700a.h"

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

PAGE "Ufficio" -1 -1 77 20

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 0 "@bContatto"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 1 "@bCodice"
END

NUMBER F_CONTACT 6
BEGIN
  PROMPT 2 2 ""
  USE LF_CONTACT
  INPUT CONTACT F_CONTACT
  DISPLAY "Codice" CONTACT
  DISPLAY "Cognome@50" COGNOME
  DISPLAY "Nome@50" NOME
  DISPLAY "Alternativo@20" CODALT
  OUTPUT F_CONTACT CONTACT
  OUTPUT F_COGNOME COGNOME
  OUTPUT F_NOME NOME
  OUTPUT F_TIPOCF TIPOCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_CODALT CODALT
  CHECKTYPE REQUIRED
  FIELD CONTACT
  KEY 1
END

STRING F_TITOLO 20
BEGIN
  PROMPT 15 1 "Titolo  "
  FIELD TITOLO
END
                    
STRING F_COGNOME 50
BEGIN
  PROMPT 15 2 "Cognome "
  USE LF_CONTACT KEY 2
  INPUT COGNOME F_COGNOME
  INPUT NOME F_NOME
  DISPLAY "Cognome@50" COGNOME
  DISPLAY "Nome@50" NOME
  DISPLAY "Codice" CONTACT
  DISPLAY "Alternativo@20" CODALT
  COPY OUTPUT F_CONTACT
  CHECKTYPE REQUIRED
  FIELD COGNOME
  KEY 2
END

STRING F_NOME 50
BEGIN
  PROMPT 15 3 "Nome    "
  COPY ALL F_COGNOME
  CHECKTYPE REQUIRED
  FIELD NOME
  KEY 2
END

STRING F_CODALT 20
BEGIN
  PROMPT 2 4 "Codice alternativo   "
  FLAGS "U"
  USE LF_CONTACT KEY 4
  INPUT CODALT F_CODALT
  DISPLAY "Cod. Alt.@15" RICALT
  DISPLAY "Titolo@10" TITOLO
  DISPLAY "Cognome@50" COGNOME
  DISPLAY "Nome@50" NOME
  DISPLAY "Codice" CONTACT
  COPY OUTPUT F_CONTACT
  CHECKTYPE NORMAL
  KEY 4
  FIELD CODALT
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 6 "@bCliente/Fornitore"
END

LIST F_TIPOCF 1 10
BEGIN
  PROMPT 2 7 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FIELD TIPOCF
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 16 7 ""
  USE LF_CLIFO 
  INPUT TIPOCF F_TIPOCF SELECT
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Cod. Alt.@15" RICALT
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FIELD CODCF
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 8 "Ragione sociale      "
  USE LF_CLIFO KEY 2
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Cod. Alt.@15" RICALT
  DISPLAY "Codice" CODCF
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
END

STRING F_QUALIFICA 20
BEGIN
  PROMPT 45 7 "Qualifica "
  FIELD QUALIFICA
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 10 "@bUfficio"
END

STRING F_MAIL 60 30
BEGIN
  PROMPT 2 11 "Mail "
  FIELD MAIL
END

STRING F_NUMTEL 30
BEGIN
  PROMPT 40 11 "Tel. "
  FIELD NUMTEL
END

STRING F_NUMFAX 30
BEGIN
  PROMPT 2 12 "FAX  "
  FIELD NUMFAX
END

STRING F_NUMCEL 30
BEGIN
  PROMPT 40 12 "Cell."
  FIELD NUMCEL
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 14 "@bIndirizzo"
END

NUMBER F_STATO 3
BEGIN
  PROMPT 2 15 "Stato "
  USE %STA
  INPUT CODTAB F_STATO 
  DISPLAY "Codice " CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT F_STATO CODTAB
  CHECKTYPE NORMAL
  FIELD STATO
END

STRING F_COMUNE 4 
BEGIN
  PROMPT 16 15 "Comune "
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO F_STATO
  INPUT COM F_COMUNE
  DISPLAY "Stato" STATO
  DISPLAY "Codice" COM
  DISPLAY "Denominazione@50" DENCOM
  OUTPUT F_STATO STATO
  OUTPUT F_COMUNE COM
  OUTPUT F_DENCOM DENCOM
  CHECKTYPE NORMAL
  FIELD CODCOM
END

STRING F_DENCOM 50
BEGIN
  PROMPT 2 16 "Denominazione        "
  USE LF_COMUNI KEY 2
  INPUT STATO F_STATO
  INPUT DENCOM F_COMUNE
  DISPLAY "Denominazione@50" DENCOM
  DISPLAY "Stato" STATO
  DISPLAY "Codice" COM
  COPY OUTPUT F_COMUNE
  CHECKTYPE NORMAL
END

STRING F_INDIRIZZO 50
BEGIN
  PROMPT 2 17 "Indirizzo            "
  FIELD INDIR
END

NUMER F_CAP 5
BEGIN
  PROMPT 2 18 "C.A.P. "
  FIELD CAP
END

STRING F_LOCALITA 30
BEGIN
  PROMPT 34 18 "Localit<69> "
  FIELD LOCALITA
END

ENDPAGE

PAGE "Casa" -1 -1 77 20

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 1 "@bCasa"
END

STRING F_MAIL2 60 30
BEGIN
  PROMPT 2 2 "Mail "
  FIELD MAIL2
END

STRING F_NUMTEL2 30
BEGIN
  PROMPT 40 2 "Tel. "
  FIELD NUMTEL2
END

STRING F_NUMFAX2 30
BEGIN
  PROMPT 2 3 "FAX  "
  FIELD NUMFAX2
END

STRING F_NUMCEL2 30
BEGIN
  PROMPT 40 3 "Cell."
  FIELD NUMCEL2
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 5 "@bIndirizzo di casa"
END

NUMBER F_STATO2 3
BEGIN
  PROMPT 2 6 "Stato "
  USE %STA
  INPUT CODTAB F_STATO2
  COPY DISPLAY F_STATO
  OUTPUT F_STATO2 CODTAB
  CHECKTYPE NORMAL
  FIELD STATO2
END

STRING F_COMUNE2 4 
BEGIN
  PROMPT 16 6 "Comune "
  FLAGS "U"
  COPY USE F_COMUNE
  INPUT STATO F_STATO2
  INPUT COM F_COMUNE2
  COPY DISPLAY F_COMUNE
  OUTPUT F_STATO2 STATO
  OUTPUT F_COMUNE2 COM
  OUTPUT F_DENCOM2 DENCOM
  CHECKTYPE NORMAL
  FIELD CODCOM2
END

STRING F_DENCOM2 50
BEGIN
  PROMPT 2 7 "Denominazione        "
  COPY USE F_DENCOM
  INPUT DENCOM F_COMUNE2
  COPY DISPLAY F_DENCOM
  COPY OUTPUT F_COMUNE2
  CHECKTYPE NORMAL
END

STRING F_INDIRIZZO2 50
BEGIN
  PROMPT 2 8 "Indirizzo            "
  FIELD INDIR2
END

NUMER F_CAP2 5
BEGIN
  PROMPT 2 9 "C.A.P. "
  FIELD CAP2
END

STRING F_LOCALITA2 30
BEGIN
  PROMPT 34 9 "Localit<69> "
  FIELD LOCALITA2
END

ENDPAGE 

ENDMASK