campo-sirio/src/cg/cg0700a.uml

#include "cg0700a.h"

TOOLBAR "topbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE


PAGE "Clienti/Fornitori occasionali" 0 0 0 0

GROUPBOX DLG_NULL 71 5
BEGIN
  PROMPT 1 0 ""
END

STRING O_CODICE 16
BEGIN
  PROMPT 2 1 "Codice          "
  FLAGS "U"
  USE LF_OCCAS
  INPUT CFPI O_CODICE
  DISPLAY "Codice@16" CFPI
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT O_CODICE CFPI
  OUTPUT O_RAGSOC RAGSOC
  FIELD CFPI
  VALIDATE NOT_EMPTY_FUNC
  KEY 1
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
  VALIDATE NOT_EMPTY_FUNC
  KEY 2
END

STRING O_COFI 16
BEGIN
  PROMPT 2 3 "Codice fiscale  "
  FIELD COFI
  FLAGS "U"
  VALIDATE XTZCF_FUNC O_STATONAS O_SESSO O_DATANAS O_COMUNENAS
END

STRING O_STATOPAIV 2
BEGIN
  PROMPT 37 3 "Partita IVA  "
  FIELD STATOPAIV
  HELP "Codice ISO dello stato"
  FLAGS "U"
  USE %SCE
  INPUT CODTAB O_STATOPAIV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT O_STATOPAIV CODTAB
  //CHECKTYPE NORMAL
END

STRING O_PAIV 12
BEGIN
  PROMPT 56 3 ""
  FIELD PAIV
  VALIDATE PI_FUNC O_STATOPAIV
END

GROUPBOX DLG_NULL 71 5
BEGIN
  PROMPT 1 5 "@bDati residenza"
END

STRING O_INDIRIZZO 40
BEGIN
  PROMPT 2 6 "Indirizzo "
  FIELD INDIR
END

STRING O_NUMERO 6
BEGIN
  PROMPT 55 6 "Numero "
  FIELD CIV
END

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

STRING O_COMUNE 4
BEGIN
  PROMPT 27 7 "Comune "
  FIELD COM
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO O_STATO
  INPUT COM O_COMUNE
  DISPLAY "Stato" STATO
  DISPLAY "Codice" COM
  DISPLAY "Denominazione@50" DENCOM
  OUTPUT O_STATO STATO
  OUTPUT O_COMUNE COM
  OUTPUT O_DENCOM DENCOM
  OUTPUT O_CAP CAPCOM
  //CHECKTYPE NORMAL
  ADD RUN ba4 -0
END

NUMBER O_CAP 5
BEGIN
  PROMPT 56 7 "C.A.P. "
  HELP "CAP della residenza della persona"
  FIELD CAP
  FLAGS "ZF"
END

STRING O_DENCOM 50
BEGIN
  PROMPT 2 8 "Denominazione   "
  HELP "Nome del comune di residenza della persona"
  USE LF_COMUNI KEY 2
  INPUT STATO O_STATO
  INPUT DENCOM O_DENCOM
  DISPLAY "Denominazione@50" DENCOM
  DISPLAY "Stato" STATO
  DISPLAY "Codice@10" COM
  COPY OUTPUT O_COMUNE
  //CHECKTYPE NORMAL
  ADD RUN ba4 -0
END

GROUPBOX DLG_NULL 71 4
BEGIN
  PROMPT 1 10 "@bDati nascita"
END

LIST O_SESSO 1 7
BEGIN
  PROMPT 2 11 "Sesso "
  ITEM "M|Maschio"
  ITEM "F|Femmina"
  FIELD SESSO
END

DATE O_DATANAS
BEGIN
  PROMPT 23 11 "Data "
  FIELD DNASC
END

STRING O_STATONAS 3
BEGIN
  PROMPT 41 11 "Stato "
  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 57 11 "Comune "
  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 "Denominazione   "
  COPY USE O_DENCOM
  INPUT DENCOM O_DENCOMNAS
  COPY DISPLAY O_DENCOM
  COPY OUTPUT O_COMUNENAS
  //CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK