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
103 lines
1.8 KiB
Plaintext
Executable File
103 lines
1.8 KiB
Plaintext
Executable File
#include "batbuid.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Uff.Imposte Dirette" -1 -1 78 18
|
|
|
|
NUMBER FLD_TABUID_CODTAB 3
|
|
BEGIN
|
|
PROMPT 3 1 "Codice "
|
|
FIELD %UID->CODTAB
|
|
FLAGS "RZ"
|
|
KEY 1
|
|
USE %UID
|
|
INPUT CODTAB FLD_TABUID_CODTAB
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FLD_TABUID_CODTAB CODTAB
|
|
HELP "Codice dell'ufficio IVA"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING FLD_TABUID_S0 50
|
|
BEGIN
|
|
PROMPT 3 3 "Descrizione "
|
|
FIELD %UID->S0
|
|
KEY 2
|
|
USE %UID KEY 2
|
|
INPUT S0 FLD_TABUID_S0
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
OUTPUT FLD_TABUID_CODTAB CODTAB
|
|
OUTPUT FLD_TABUID_S0 S0
|
|
HELP "Descrizione dell'ufficio IVA"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING FLD_TABUID_S1 35
|
|
BEGIN
|
|
PROMPT 3 5 "Indirizzo "
|
|
FIELD %UID->S1
|
|
HELP "Indirizzo della sede dell'ufficio"
|
|
END
|
|
|
|
STRING FLD_TABUID_S3 10
|
|
BEGIN
|
|
PROMPT 56 5 "N."
|
|
FIELD %UID->S3
|
|
HELP "Numero civico della sede dell'ufficio"
|
|
END
|
|
|
|
STRING FLD_TABUID_S6 4
|
|
BEGIN
|
|
PROMPT 3 7 "Comune "
|
|
FIELD %UID->S6
|
|
USE LF_COMUNI KEY 1
|
|
FLAGS "U"
|
|
INPUT STATO ""
|
|
INPUT COM FLD_TABUID_S6
|
|
#include <comdcod.h>
|
|
OUTPUT FLD_TABUID_S6 COM
|
|
OUTPUT FLD_TABUID_S6_COMUNI_DENCOM DENCOM
|
|
OUTPUT FLD_TABUID_S6_COMUNI_PROVCOM PROVCOM
|
|
OUTPUT FLD_TABUID_S7_CAP CAPCOM
|
|
HELP "Codice del comune dell'ufficio"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Comune non presente"
|
|
ADD MASK ba4100a
|
|
END
|
|
|
|
STRING FLD_TABUID_S6_COMUNI_DENCOM 50
|
|
BEGIN
|
|
PROMPT 3 9 "Nome "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FLD_TABUID_S6_COMUNI_PROVCOM 2
|
|
BEGIN
|
|
PROMPT 3 11 "Provincia "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FLD_TABUID_S7_CAP 5
|
|
BEGIN
|
|
PROMPT 47 11 "CAP "
|
|
FIELD %UID->S7
|
|
HELP "CAP del comune della sede dell'ufficio"
|
|
END
|
|
|
|
STRING FLD_TABUID_S4 8
|
|
BEGIN
|
|
PROMPT 3 13 "C.Corr.Postale "
|
|
FIELD %UID->S4
|
|
HELP "Numero di conto corrente postale dell'ufficio"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|