83b38cb5cd
Aggiunta visualizzazione del codice ufficio unico sulla anagrafica persone git-svn-id: svn://10.65.10.50/trunk@5555 c028cbd2-c16b-5b4b-a496-9718f37d4682
89 lines
1.2 KiB
Plaintext
Executable File
89 lines
1.2 KiB
Plaintext
Executable File
#include "batbuue.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Uffici unici entrate" -1 -1 78 19
|
|
|
|
NUMBER F_CODICE 3
|
|
BEGIN
|
|
PROMPT 3 1 "Codice "
|
|
FIELD CODTAB
|
|
FLAGS "Z"
|
|
KEY 1
|
|
USE %UUE
|
|
INPUT CODTAB F_CODICE
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Dizione@50" S0
|
|
OUTPUT F_CODICE CODTAB
|
|
OUTPUT F_DIZIONE S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DIZIONE 30
|
|
BEGIN
|
|
PROMPT 3 3 "Dizione "
|
|
FIELD S0
|
|
KEY 2
|
|
USE %UUE KEY 2
|
|
INPUT S0 F_DIZIONE
|
|
DISPLAY "Dizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
OUTPUT F_CODICE CODTAB
|
|
OUTPUT F_DIZIONE S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_INDIRIZZO 35
|
|
BEGIN
|
|
PROMPT 3 5 "Indirizzo "
|
|
FIELD S1
|
|
END
|
|
|
|
STRING F_CIV 5
|
|
BEGIN
|
|
PROMPT 56 5 "N."
|
|
FIELD S3
|
|
END
|
|
|
|
STRING F_CODCOM 4
|
|
BEGIN
|
|
PROMPT 3 7 "Codice comune "
|
|
FIELD S6
|
|
FLAGS "U"
|
|
USE LF_COMUNI KEY 1
|
|
INPUT STATO ""
|
|
INPUT COM F_CODCOM
|
|
#include <comdcod.h>
|
|
OUTPUT F_CODCOM COM
|
|
OUTPUT F_DENCOM DENCOM
|
|
OUTPUT F_PROVCOM PROVCOM
|
|
OUTPUT F_CAP CAPCOM
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Comune non presente"
|
|
END
|
|
|
|
STRING F_DENCOM 50
|
|
BEGIN
|
|
PROMPT 3 9 "Denominazione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PROVCOM 2
|
|
BEGIN
|
|
PROMPT 3 11 "Provincia "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAP 5
|
|
BEGIN
|
|
PROMPT 56 11 "CAP "
|
|
FIELD S7
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|