173 lines
3.1 KiB
Plaintext
Executable File
173 lines
3.1 KiB
Plaintext
Executable File
#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
|