Tolta la necessita di specificare il numero romano nella abella %IVD
git-svn-id: svn://10.65.10.50/trunk@128 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
9f5167b2f5
commit
c9d6658992
831
ba/ba4100a.uml
831
ba/ba4100a.uml
@ -1,417 +1,416 @@
|
|||||||
#include "ba4100.h"
|
#include "ba4100.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 0 2
|
TOOLBAR "" 0 20 0 2
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Tabella Comuni 1/2" -1 -1 77 16
|
PAGE "Tabella Comuni 1/2" -1 -1 77 16
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 75 4
|
GROUPBOX DLG_NULL 75 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 0 ""
|
PROMPT 1 0 ""
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM1_STATO 3
|
NUMBER FLD_CM1_STATO 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 1 "Stato "
|
PROMPT 3 1 "Stato "
|
||||||
FIELD LF_COMUNI->STATO
|
FIELD LF_COMUNI->STATO
|
||||||
FLAGS "RZG"
|
FLAGS "RZG"
|
||||||
USE %STA
|
USE %STA
|
||||||
INPUT CODTAB FLD_CM1_STATO
|
INPUT CODTAB FLD_CM1_STATO
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Nome@50" S0
|
DISPLAY "Nome@50" S0
|
||||||
OUTPUT FLD_CM1_STATO CODTAB
|
OUTPUT FLD_CM1_STATO CODTAB
|
||||||
OUTPUT FLD_CM1_DENSTA S0
|
OUTPUT FLD_CM1_DENSTA S0
|
||||||
HELP "Inserire lo stato"
|
HELP "Inserire lo stato"
|
||||||
MESSAGE COPY,FLD_CM2_STATO
|
MESSAGE COPY,FLD_CM2_STATO
|
||||||
WARNING "Stato non presente"
|
WARNING "Stato non presente"
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM1_DENSTA 50
|
STRING FLD_CM1_DENSTA 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 20 1 ""
|
PROMPT 20 1 ""
|
||||||
USE %STA KEY 2
|
USE %STA KEY 2
|
||||||
INPUT S0 FLD_CM1_DENSTA
|
INPUT S0 FLD_CM1_DENSTA
|
||||||
DISPLAY "Nome@50" S0
|
DISPLAY "Nome@50" S0
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
OUTPUT FLD_CM1_STATO CODTAB
|
OUTPUT FLD_CM1_STATO CODTAB
|
||||||
OUTPUT FLD_CM1_DENSTA S0
|
OUTPUT FLD_CM1_DENSTA S0
|
||||||
HELP "Inserire la denominazione dello stato"
|
HELP "Inserire la denominazione dello stato"
|
||||||
MESSAGE COPY,FLD_CM2_DENSTA
|
MESSAGE COPY,FLD_CM2_DENSTA
|
||||||
FLAGS "G"
|
FLAGS "G"
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM1_COM 4
|
STRING FLD_CM1_COM 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 2 "Comune "
|
PROMPT 3 2 "Comune "
|
||||||
FIELD LF_COMUNI->COM
|
FIELD LF_COMUNI->COM
|
||||||
FLAGS "UG"
|
FLAGS "UG"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_COMUNI
|
USE LF_COMUNI
|
||||||
INPUT STATO FLD_CM1_STATO
|
INPUT STATO FLD_CM1_STATO
|
||||||
INPUT COM FLD_CM1_COM
|
INPUT COM FLD_CM1_COM
|
||||||
#include <comdcod.h>
|
#include <comdcod.h>
|
||||||
OUTPUT FLD_CM1_STATO STATO
|
OUTPUT FLD_CM1_STATO STATO
|
||||||
OUTPUT FLD_CM1_COM COM
|
OUTPUT FLD_CM1_COM COM
|
||||||
OUTPUT FLD_CM1_DENCOM DENCOM
|
OUTPUT FLD_CM1_DENCOM DENCOM
|
||||||
HELP "Inserire il comune"
|
HELP "Inserire il comune"
|
||||||
MESSAGE COPY,FLD_CM2_COM
|
MESSAGE COPY,FLD_CM2_COM
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
VALIDATE FIXLEN_FUNC 4
|
VALIDATE FIXLEN_FUNC 4
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM1_DENCOM 50
|
STRING FLD_CM1_DENCOM 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 20 2 ""
|
PROMPT 20 2 ""
|
||||||
FIELD LF_COMUNI->DENCOM
|
FIELD LF_COMUNI->DENCOM
|
||||||
USE LF_COMUNI KEY 2
|
USE LF_COMUNI KEY 2
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT DENCOM FLD_CM1_DENCOM
|
INPUT DENCOM FLD_CM1_DENCOM
|
||||||
#include <comdden.h>
|
#include <comdden.h>
|
||||||
OUTPUT FLD_CM1_STATO STATO
|
OUTPUT FLD_CM1_STATO STATO
|
||||||
OUTPUT FLD_CM1_COM COM
|
OUTPUT FLD_CM1_COM COM
|
||||||
OUTPUT FLD_CM1_DENCOM DENCOM
|
OUTPUT FLD_CM1_DENCOM DENCOM
|
||||||
HELP "Inserire la denominazione del comune"
|
HELP "Inserire la denominazione del comune"
|
||||||
MESSAGE COPY,FLD_CM2_DENCOM
|
MESSAGE COPY,FLD_CM2_DENCOM
|
||||||
FLAGS "G"
|
FLAGS "G"
|
||||||
KEY 2
|
KEY 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM1_PROVCOM 5
|
STRING FLD_CM1_PROVCOM 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 4 "Provincia "
|
PROMPT 3 4 "Provincia "
|
||||||
FIELD LF_COMUNI->PROVCOM
|
FIELD LF_COMUNI->PROVCOM
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Inserire la provincia del comune"
|
HELP "Inserire la provincia del comune"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM1_CAPCOM 5
|
STRING FLD_CM1_CAPCOM 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 29 4 "CAP "
|
PROMPT 29 4 "CAP "
|
||||||
FIELD LF_COMUNI->CAPCOM
|
FIELD LF_COMUNI->CAPCOM
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Inserire il Codice di Avviamento Postale"
|
HELP "Inserire il Codice di Avviamento Postale"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM1_CODISTAT 6
|
NUMBER FLD_CM1_CODISTAT 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 51 4 "Codice ISTAT "
|
PROMPT 51 4 "Codice ISTAT "
|
||||||
FIELD LF_COMUNI->CODISTAT
|
FIELD LF_COMUNI->CODISTAT
|
||||||
HELP "Inserire il codice ISTAT del comune"
|
HELP "Inserire il codice ISTAT del comune"
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 75 5
|
GROUPBOX DLG_NULL 75 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 5 "Uffici II.DD."
|
PROMPT 1 5 "Uffici II.DD."
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM1_UFIIDD1 3
|
NUMBER FLD_CM1_UFIIDD1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 6 "Ufficio 1 "
|
PROMPT 3 6 "Ufficio 1 "
|
||||||
FIELD LF_COMUNI->UFFIIDD1
|
FIELD LF_COMUNI->UFFIIDD1
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
USE %UID
|
USE %UID
|
||||||
INPUT CODTAB FLD_CM1_UFIIDD1
|
INPUT CODTAB FLD_CM1_UFIIDD1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Denominazione@50" S0
|
DISPLAY "Denominazione@50" S0
|
||||||
OUTPUT FLD_CM1_UFIIDD1 CODTAB
|
OUTPUT FLD_CM1_UFIIDD1 CODTAB
|
||||||
OUTPUT FLD_CM1_DUFIIDD1 S0
|
OUTPUT FLD_CM1_DUFIIDD1 S0
|
||||||
HELP "Inserire il codice ufficio imposte dirette"
|
HELP "Inserire il codice ufficio imposte dirette"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
WARNING "Ufficio assente"
|
WARNING "Ufficio assente"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM1_DUFIIDD1 50
|
STRING FLD_CM1_DUFIIDD1 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 20 6 ""
|
PROMPT 20 6 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM1_UFIIDD2 3
|
NUMBER FLD_CM1_UFIIDD2 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 7 "Ufficio 2 "
|
PROMPT 3 7 "Ufficio 2 "
|
||||||
FIELD LF_COMUNI->UFFIIDD2
|
FIELD LF_COMUNI->UFFIIDD2
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Inserire il codice ufficio imposte dirette"
|
HELP "Inserire il codice ufficio imposte dirette"
|
||||||
COPY USE FLD_CM1_UFIIDD1
|
COPY USE FLD_CM1_UFIIDD1
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
INPUT CODTAB FLD_CM1_UFIIDD2
|
INPUT CODTAB FLD_CM1_UFIIDD2
|
||||||
COPY DISPLAY FLD_CM1_UFIIDD1
|
COPY DISPLAY FLD_CM1_UFIIDD1
|
||||||
OUTPUT FLD_CM1_UFIIDD2 CODTAB
|
OUTPUT FLD_CM1_UFIIDD2 CODTAB
|
||||||
OUTPUT FLD_CM1_DUFIIDD2 S0
|
OUTPUT FLD_CM1_DUFIIDD2 S0
|
||||||
WARNING "Ufficio assente"
|
WARNING "Ufficio assente"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM1_DUFIIDD2 50
|
STRING FLD_CM1_DUFIIDD2 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 20 7 ""
|
PROMPT 20 7 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM1_UFIIDD3 3
|
NUMBER FLD_CM1_UFIIDD3 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 8 "Ufficio 3 "
|
PROMPT 3 8 "Ufficio 3 "
|
||||||
FIELD LF_COMUNI->UFFIIDD3
|
FIELD LF_COMUNI->UFFIIDD3
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Inserire il codice ufficio imposte dirette"
|
HELP "Inserire il codice ufficio imposte dirette"
|
||||||
COPY USE FLD_CM1_UFIIDD1
|
COPY USE FLD_CM1_UFIIDD1
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
INPUT CODTAB FLD_CM1_UFIIDD3
|
INPUT CODTAB FLD_CM1_UFIIDD3
|
||||||
COPY DISPLAY FLD_CM1_UFIIDD1
|
COPY DISPLAY FLD_CM1_UFIIDD1
|
||||||
OUTPUT FLD_CM1_UFIIDD3 CODTAB
|
OUTPUT FLD_CM1_UFIIDD3 CODTAB
|
||||||
OUTPUT FLD_CM1_DUFIIDD3 S0
|
OUTPUT FLD_CM1_DUFIIDD3 S0
|
||||||
WARNING "Ufficio assente"
|
WARNING "Ufficio assente"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM1_DUFIIDD3 50
|
STRING FLD_CM1_DUFIIDD3 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 20 8 ""
|
PROMPT 20 8 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 75 5
|
GROUPBOX DLG_NULL 75 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 10 "Uffici IVA"
|
PROMPT 1 10 "Uffici IVA"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM1_UFFIVA1 3
|
NUMBER FLD_CM1_UFFIVA1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 11 "Ufficio 1 "
|
PROMPT 3 11 "Ufficio 1 "
|
||||||
FIELD LF_COMUNI->UFFIVA1
|
FIELD LF_COMUNI->UFFIVA1
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
USE %UIV
|
USE %UIV
|
||||||
INPUT CODTAB FLD_CM1_UFFIVA1
|
INPUT CODTAB FLD_CM1_UFFIVA1
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Denominazione@50" S0
|
DISPLAY "Denominazione@50" S0
|
||||||
OUTPUT FLD_CM1_UFFIVA1 CODTAB
|
OUTPUT FLD_CM1_UFFIVA1 CODTAB
|
||||||
OUTPUT FLD_CM1_DUFFIVA1 S0
|
OUTPUT FLD_CM1_DUFFIVA1 S0
|
||||||
HELP "Inserire il codice ufficio iva"
|
HELP "Inserire il codice ufficio iva"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
WARNING "Ufficio assente"
|
WARNING "Ufficio assente"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM1_DUFFIVA1 50
|
STRING FLD_CM1_DUFFIVA1 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 20 11 ""
|
PROMPT 20 11 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM1_UFFIVA2 3
|
NUMBER FLD_CM1_UFFIVA2 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 12 "Ufficio 2 "
|
PROMPT 3 12 "Ufficio 2 "
|
||||||
FIELD LF_COMUNI->UFFIVA2
|
FIELD LF_COMUNI->UFFIVA2
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Inserire il codice ufficio iva"
|
HELP "Inserire il codice ufficio iva"
|
||||||
COPY USE FLD_CM1_UFFIVA1
|
COPY USE FLD_CM1_UFFIVA1
|
||||||
INPUT CODTAB FLD_CM1_UFFIVA2
|
INPUT CODTAB FLD_CM1_UFFIVA2
|
||||||
COPY DISPLAY FLD_CM1_UFFIVA1
|
COPY DISPLAY FLD_CM1_UFFIVA1
|
||||||
OUTPUT FLD_CM1_UFFIVA2 CODTAB
|
OUTPUT FLD_CM1_UFFIVA2 CODTAB
|
||||||
OUTPUT FLD_CM1_DUFFIVA2 S0
|
OUTPUT FLD_CM1_DUFFIVA2 S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
WARNING "Ufficio assente"
|
WARNING "Ufficio assente"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM1_DUFFIVA2 50
|
STRING FLD_CM1_DUFFIVA2 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 20 12 ""
|
PROMPT 20 12 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM1_UFFIVA3 3
|
NUMBER FLD_CM1_UFFIVA3 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 13 "Ufficio 3 "
|
PROMPT 3 13 "Ufficio 3 "
|
||||||
FIELD LF_COMUNI->UFFIVA3
|
FIELD LF_COMUNI->UFFIVA3
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Inserire il codice ufficio iva"
|
HELP "Inserire il codice ufficio iva"
|
||||||
COPY USE FLD_CM1_UFFIVA1
|
COPY USE FLD_CM1_UFFIVA1
|
||||||
INPUT CODTAB FLD_CM1_UFFIVA3
|
INPUT CODTAB FLD_CM1_UFFIVA3
|
||||||
COPY DISPLAY FLD_CM1_UFFIVA1
|
COPY DISPLAY FLD_CM1_UFFIVA1
|
||||||
OUTPUT FLD_CM1_UFFIVA3 CODTAB
|
OUTPUT FLD_CM1_UFFIVA3 CODTAB
|
||||||
OUTPUT FLD_CM1_DUFFIVA3 S0
|
OUTPUT FLD_CM1_DUFFIVA3 S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
WARNING "Ufficio assente"
|
WARNING "Ufficio assente"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM1_DUFFIVA3 50
|
STRING FLD_CM1_DUFFIVA3 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 20 13 ""
|
PROMPT 20 13 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Tabella Comuni 2/2" -1 -1 77 16
|
PAGE "Tabella Comuni 2/2" -1 -1 77 16
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 75 4
|
GROUPBOX DLG_NULL 75 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 0 ""
|
PROMPT 1 0 ""
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM2_STATO 3
|
NUMBER FLD_CM2_STATO 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 1 "Stato "
|
PROMPT 3 1 "Stato "
|
||||||
FLAGS "RZD"
|
FLAGS "RZD"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM2_DENSTA 50
|
STRING FLD_CM2_DENSTA 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 20 1 ""
|
PROMPT 20 1 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM2_COM 4
|
STRING FLD_CM2_COM 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 2 "Comune "
|
PROMPT 3 2 "Comune "
|
||||||
FLAGS "UD"
|
FLAGS "UD"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM2_DENCOM 50
|
STRING FLD_CM2_DENCOM 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 20 2 ""
|
PROMPT 20 2 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 75 5
|
GROUPBOX DLG_NULL 75 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 5 "Uffici Vari"
|
PROMPT 1 5 "Uffici Vari"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM2_UFFREG 3
|
STRING FLD_CM2_UFFREG 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Registro "
|
PROMPT 2 6 "Registro "
|
||||||
FIELD LF_COMUNI->UFFREG
|
FIELD LF_COMUNI->UFFREG
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE %URE
|
USE %URE
|
||||||
INPUT CODTAB FLD_CM2_UFFREG
|
INPUT CODTAB FLD_CM2_UFFREG
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Denominazione@50" S0
|
DISPLAY "Denominazione@50" S0
|
||||||
OUTPUT FLD_CM2_UFFREG CODTAB
|
OUTPUT FLD_CM2_UFFREG CODTAB
|
||||||
OUTPUT FLD_CM2_DUFFREG S0
|
OUTPUT FLD_CM2_DUFFREG S0
|
||||||
HELP "Inserire il codice ufficio del registro"
|
HELP "Inserire il codice ufficio del registro"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
WARNING "Ufficio assente"
|
WARNING "Ufficio assente"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM2_DUFFREG 50
|
STRING FLD_CM2_DUFFREG 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 6 ""
|
PROMPT 23 6 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM2_UFFCONC 3
|
NUMBER FLD_CM2_UFFCONC 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Concessioni "
|
PROMPT 2 7 "Concessioni "
|
||||||
FIELD LF_COMUNI->UFFCONC
|
FIELD LF_COMUNI->UFFCONC
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
USE %UCC
|
USE %UCC
|
||||||
INPUT CODTAB FLD_CM2_UFFCONC
|
INPUT CODTAB FLD_CM2_UFFCONC
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Denominazione@50" S0
|
DISPLAY "Denominazione@50" S0
|
||||||
OUTPUT FLD_CM2_UFFCONC CODTAB
|
OUTPUT FLD_CM2_UFFCONC CODTAB
|
||||||
OUTPUT FLD_CM2_DUFFCONC S0
|
OUTPUT FLD_CM2_DUFFCONC S0
|
||||||
HELP "Inserire il codice ufficio concessioni"
|
HELP "Inserire il codice ufficio concessioni"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
WARNING "Ufficio assente"
|
WARNING "Ufficio assente"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM2_DUFFCONC 50
|
STRING FLD_CM2_DUFFCONC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 7 ""
|
PROMPT 23 7 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM2_UFFCSERV 3
|
NUMBER FLD_CM2_UFFCSERV 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Centro Servizi "
|
PROMPT 2 8 "Centro Servizi "
|
||||||
FIELD LF_COMUNI->UFFCSERV
|
FIELD LF_COMUNI->UFFCSERV
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
USE %UCS
|
USE %UCS
|
||||||
INPUT CODTAB FLD_CM2_UFFCSERV
|
INPUT CODTAB FLD_CM2_UFFCSERV
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Denominazione@50" S0
|
DISPLAY "Denominazione@50" S0
|
||||||
OUTPUT FLD_CM2_UFFCSERV CODTAB
|
OUTPUT FLD_CM2_UFFCSERV CODTAB
|
||||||
OUTPUT FLD_CM2_DUFFCSERV S0
|
OUTPUT FLD_CM2_DUFFCSERV S0
|
||||||
HELP "Inserire il codice del centro servizi"
|
HELP "Inserire il codice del centro servizi"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
WARNING "Ufficio assente"
|
WARNING "Ufficio assente"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_CM2_DUFFCSERV 50
|
STRING FLD_CM2_DUFFCSERV 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 8 ""
|
PROMPT 23 8 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 23 4
|
GROUPBOX DLG_NULL 23 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 10 "Esattorie"
|
PROMPT 1 10 "Esattorie"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM2_UFFESPROV 3
|
NUMBER FLD_CM2_UFFESPROV 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 11 "Provinciale "
|
PROMPT 2 11 "Provinciale "
|
||||||
FIELD LF_COMUNI->UFFESPROV
|
FIELD LF_COMUNI->UFFESPROV
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Inserire il codice esattoria provinciale"
|
HELP "Inserire il codice esattoria provinciale"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM2_UFFESCOM 3
|
NUMBER FLD_CM2_UFFESCOM 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Comunale "
|
PROMPT 2 12 "Comunale "
|
||||||
FIELD LF_COMUNI->UFFESCOM
|
FIELD LF_COMUNI->UFFESCOM
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Inserire il codice esattoria comunale"
|
HELP "Inserire il codice esattoria comunale"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_CM2_ALIQICI 6 3
|
NUMBER FLD_CM2_ALIQICI 6 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 11 "Aliquota ICI "
|
PROMPT 46 11 "Aliquota ICI "
|
||||||
FIELD LF_COMUNI->ALIQICI
|
FIELD LF_COMUNI->ALIQICI
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire aliquota ICI"
|
HELP "Inserire aliquota ICI"
|
||||||
WARNING "Aliquota I.C.I. errata"
|
WARNING "Aliquota I.C.I. errata"
|
||||||
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<
|
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<100)}
|
||||||
100)}
|
END
|
||||||
END
|
|
||||||
|
LIST FLD_CM2_TERRMON 3
|
||||||
LIST FLD_CM2_TERRMON 3
|
BEGIN
|
||||||
BEGIN
|
PROMPT 46 12 "Territorio montano "
|
||||||
PROMPT 46 12 "Territorio montano "
|
FIELD LF_COMUNI->TERRMON
|
||||||
FIELD LF_COMUNI->TERRMON
|
ITEMS " | "
|
||||||
ITEMS " | "
|
// ITEMS "0|0"
|
||||||
ITEMS "0|0"
|
ITEMS "1|1"
|
||||||
ITEMS "1|1"
|
ITEMS "2|2"
|
||||||
ITEMS "2|2"
|
END
|
||||||
END
|
|
||||||
|
STRING FLD_CM2_COMAGG 4
|
||||||
STRING FLD_CM2_COMAGG 4
|
BEGIN
|
||||||
BEGIN
|
PROMPT 2 14 "Comune aggr. "
|
||||||
PROMPT 2 14 "Comune aggr. "
|
FIELD LF_COMUNI->COMAGG
|
||||||
FIELD LF_COMUNI->COMAGG
|
FLAGS "U"
|
||||||
FLAGS "U"
|
USE LF_COMUNI
|
||||||
USE LF_COMUNI
|
INPUT STATO ""
|
||||||
INPUT STATO ""
|
INPUT COM FLD_CM2_COMAGG
|
||||||
INPUT COM FLD_CM2_COMAGG
|
COPY DISPLAY FLD_CM1_COM
|
||||||
COPY DISPLAY FLD_CM1_COM
|
OUTPUT FLD_CM2_COMAGG COM
|
||||||
OUTPUT FLD_CM2_COMAGG COM
|
OUTPUT FLD_CM2_DENCOMAGG DENCOM
|
||||||
OUTPUT FLD_CM2_DENCOMAGG DENCOM
|
CHECKTYPE NORMAL
|
||||||
CHECKTYPE NORMAL
|
VALIDATE FIXLEN_FUNC 4
|
||||||
VALIDATE FIXLEN_FUNC 4
|
END
|
||||||
END
|
|
||||||
|
STRING FLD_CM2_DENCOMAGG 50
|
||||||
STRING FLD_CM2_DENCOMAGG 50
|
BEGIN
|
||||||
BEGIN
|
PROMPT 23 14 ""
|
||||||
PROMPT 23 14 ""
|
USE LF_COMUNI KEY 2 SELECT STATO=""
|
||||||
USE LF_COMUNI KEY 2 SELECT STATO=""
|
INPUT DENCOM FLD_CM2_DENCOMAGG
|
||||||
INPUT DENCOM FLD_CM2_DENCOMAGG
|
COPY DISPLAY FLD_CM1_DENCOM
|
||||||
COPY DISPLAY FLD_CM1_DENCOM
|
OUTPUT FLD_CM2_COMAGG COM
|
||||||
OUTPUT FLD_CM2_COMAGG COM
|
OUTPUT FLD_CM2_DENCOMAGG DENCOM
|
||||||
OUTPUT FLD_CM2_DENCOMAGG DENCOM
|
END
|
||||||
END
|
|
||||||
|
ENDPAGE
|
||||||
ENDPAGE
|
ENDMASK
|
||||||
ENDMASK
|
|
||||||
|
|||||||
@ -61,7 +61,8 @@ BEGIN
|
|||||||
KEY 1
|
KEY 1
|
||||||
COPY ALL F_LETT
|
COPY ALL F_LETT
|
||||||
HELP "Numero (arabo) secondo la IV dir. CEE"
|
HELP "Numero (arabo) secondo la IV dir. CEE"
|
||||||
VALIDATE AUTOEXIT_FUNC 3 F_LETT F_CLASSE F_NUM
|
// VALIDATE AUTOEXIT_FUNC 3 F_LETT F_CLASSE F_NUM
|
||||||
|
VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCR 50
|
STRING F_DESCR 50
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user