cb6165f09b
2475 2521 2493 2494 2559 2558 2556 2495 2487 2491 2470 2461 2568 2492 2587 2457 2458 2459 2460 2574 2582 2525 2526 2524 2523 2522 2531 2530 2529 2528 2527 2534 2533 2536 2537 2538 2510 2515 2585 2539 2570 2555 2584 2503 2500 2499 2543 2547 2569 2472 ???? git-svn-id: svn://10.65.10.50/trunk@702 c028cbd2-c16b-5b4b-a496-9718f37d4682
110 lines
2.1 KiB
Plaintext
Executable File
110 lines
2.1 KiB
Plaintext
Executable File
#include "batbuiv.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Uffici IVA" -1 -1 78 18
|
|
|
|
NUMBER FLD_TABUIV_CODTAB 3
|
|
BEGIN
|
|
PROMPT 3 1 "Codice "
|
|
FIELD %UIV->CODTAB
|
|
FLAGS "RZ"
|
|
KEY 1
|
|
USE %UIV
|
|
INPUT CODTAB FLD_TABUIV_CODTAB
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Dizione@40" S0
|
|
OUTPUT FLD_TABUIV_CODTAB CODTAB
|
|
HELP "Inserire il codice dell'ufficio IVA"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING FLD_TABUIV_S0 40
|
|
BEGIN
|
|
PROMPT 3 3 "Dizione "
|
|
FIELD %UIV->S0
|
|
KEY 2
|
|
USE %UIV KEY 2
|
|
INPUT S0 FLD_TABUIV_S0
|
|
DISPLAY "Dizione@40" S0
|
|
DISPLAY "Codice" CODTAB
|
|
OUTPUT FLD_TABUIV_CODTAB CODTAB
|
|
OUTPUT FLD_TABUIV_S0 S0
|
|
HELP "Inserire la descrizione dell'ufficio"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING FLD_TABUIV_S1 35
|
|
BEGIN
|
|
PROMPT 3 5 "Indirizzo "
|
|
FIELD %UIV->S1
|
|
HELP "Inserire l'indirizzo della sede dell'ufficio"
|
|
END
|
|
|
|
STRING FLD_TABUIV_S3 10
|
|
BEGIN
|
|
PROMPT 56 5 "N."
|
|
FIELD %UIV->S3
|
|
HELP "Inserire il numero civico della sede dell'ufficio"
|
|
END
|
|
|
|
STRING FLD_TABUIV_S6 4
|
|
BEGIN
|
|
PROMPT 3 7 "Comune "
|
|
FIELD %UIV->S6
|
|
USE LF_COMUNI KEY 1
|
|
FLAGS "U"
|
|
INPUT STATO ""
|
|
INPUT COM FLD_TABUIV_S6
|
|
#include <comdcod.h>
|
|
OUTPUT FLD_TABUIV_S6 COM
|
|
OUTPUT FLD_TABUIV_S6_COMUNI_DENCOM DENCOM
|
|
OUTPUT FLD_TABUIV_S6_COMUNI_PROVCOM PROVCOM
|
|
OUTPUT FLD_TABUIV_S7_CAP CAPCOM
|
|
HELP "Inserire il codice del comune dell'ufficio"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Comune non presente"
|
|
ADD MASK ba4100a
|
|
END
|
|
|
|
STRING FLD_TABUIV_S6_COMUNI_DENCOM 50
|
|
BEGIN
|
|
PROMPT 3 9 "Denominazione "
|
|
USE LF_COMUNI KEY 2 SELECT STATO==""
|
|
INPUT DENCOM FLD_TABUIV_S6_COMUNI_DENCOM
|
|
#include <comdcod.h>
|
|
COPY OUTPUT FLD_TABUIV_S6
|
|
HELP "Inserire il nome del comune dell'ufficio"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Comune non presente"
|
|
END
|
|
|
|
STRING FLD_TABUIV_S6_COMUNI_PROVCOM 2
|
|
BEGIN
|
|
PROMPT 3 11 "Provincia "
|
|
FLAGS "D"
|
|
HELP ""
|
|
END
|
|
|
|
STRING FLD_TABUIV_S7_CAP 5
|
|
BEGIN
|
|
PROMPT 47 11 "CAP "
|
|
FIELD %UIV->S7
|
|
HELP ""
|
|
END
|
|
|
|
STRING FLD_TABUIV_S4 8
|
|
BEGIN
|
|
PROMPT 3 13 "C.Corr.Postale "
|
|
FIELD %UIV->S4
|
|
HELP "Inserire il numero del conto corrente postale dell'ufficio"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|