campo-sirio/ve/ve0100o.uml

#include "ve0100O.h"

PAGE "Dati cliente/fornitore occasionale" -1 -1 72 16

STRING O_CODICE 16
BEGIN
  PROMPT 2 1 "Codice fiscale / Partita IVA / Codice progressivo "
  USE LF_OCCAS
  INPUT CFPI O_CODICE
  DISPLAY "Codice@16" CFPI
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT O_CODICE CFPI
  OUTPUT O_RAGSOC RAGSOC
  WARNING "Codice obbligatorio"
  HELP "Codice fiscale o Partita IVA o altro codice che identifichi univocamente la persona"
  FIELD CFPI
  VALIDATE NOT_EMPTY_FUNC
END

STRING O_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FIELD RAGSOC
  USE LF_OCCAS KEY 2
  INPUT RAGSOC O_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice@16" CFPI
  OUTPUT O_CODICE CFPI
  OUTPUT O_RAGSOC RAGSOC
  HELP "Ragione sociale o Nome della persona"
  WARNING "Ragione sociale obbligatoria"
  VALIDATE NOT_EMPTY_FUNC
END

GROUPBOX DLG_NULL 70 6
BEGIN
  PROMPT 1 3 "Dati residenza"
END

STRING O_INDIRIZZO 40
BEGIN
  PROMPT 2 4 "Indirizzo "
  HELP "Indirizzo di residenza della persona"
  FIELD INDIR
END

STRING O_NUMERO 6
BEGIN
  PROMPT 55 4 "Numero "
  HELP "Numero civico della residenza della persona"
  FIELD CIV
END

STRING O_LOCALITA 35
BEGIN
  PROMPT 2 5 "Localita  "
  FIELD LOCALITA
END

NUMBER O_CAP 5
BEGIN
  PROMPT 55 6 "C.A.P. "
  FIELD CAP
END

STRING O_STATO 3
BEGIN
  PROMPT 2 6 "Stato     "
  HELP "Stato di residenza della persona"
  FIELD STATO
  FLAGS "U"
  USE %STA
  INPUT CODTAB O_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione" S0
  OUTPUT O_STATO CODTAB
  CHECKTYPE NORMAL
END

STRING O_COMUNE 4
BEGIN
  PROMPT 27 6 "Comune "
  HELP "Codice del comune di residenza della persona"
  FIELD COM
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO O_STATO
  INPUT COM O_COMUNE
  DISPLAY "Codice" COM
  DISPLAY "Denominazione@50" DENCOM
  OUTPUT O_COMUNE COM
  OUTPUT O_DENCOM DENCOM
  OUTPUT O_CAP CAPCOM
  CHECKTYPE NORMAL
END

STRING O_DENCOM 50
BEGIN
  PROMPT 2 7 "          "
  HELP "Nome del comune di residenza della persona"
  USE LF_COMUNI KEY 2
  INPUT DENCOM O_DENCOM
  DISPLAY "Denominazione@50" DENCOM
  DISPLAY "Codice" COM
  COPY OUTPUT O_COMUNE
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 70 5
BEGIN
  PROMPT 1 9 "Dati nascita"
END

DATE O_DATANAS
BEGIN
  PROMPT 2 10 "Data      "
  HELP "Data di nascita della persona"
  FIELD DNASC
END

STRING O_STATONAS 3
BEGIN
  PROMPT 2 11 "Stato     "
  HELP "Codice dello stato di nascita della persona"
  FIELD STATONASC
  FLAGS "U"
  COPY USE O_STATO
  INPUT CODTAB O_STATONAS
  COPY DISPLAY O_STATO
  OUTPUT O_STATONAS CODTAB
  CHECKTYPE NORMAL
END

STRING O_COMUNENAS 4
BEGIN
  PROMPT 27 11 "Comune "
  HELP "Codice del comune di nascita della persona"
  FIELD COMNASC
  FLAGS "U"
  COPY USE O_COMUNE
  INPUT STATO O_STATONAS
  INPUT COM O_COMUNENAS
  COPY DISPLAY O_COMUNE
  OUTPUT O_COMUNENAS COM
  OUTPUT O_DENCOMNAS DENCOM
  CHECKTYPE NORMAL
END

STRING O_DENCOMNAS 50
BEGIN
  PROMPT 2 12  "          "
  HELP "Nome del comune di nascita della persona"
  COPY USE O_DENCOM
  INPUT DENCOM O_DENCOMNAS
  COPY DISPLAY O_DENCOM
  COPY OUTPUT O_COMUNENAS
  CHECKTYPE NORMAL
END

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

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK