Corretto form deleghe iva
git-svn-id: svn://10.65.10.50/trunk@1375 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
7de0af8f44
commit
6eee573e2e
380
cg/deltitcf.frm
380
cg/deltitcf.frm
@ -1,190 +1,190 @@
|
||||
USE %DEL
|
||||
JOIN 9 INTO CODDITTA=CODTAB[1,5]
|
||||
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 9 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
||||
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
||||
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
|
||||
|
||||
SECTION BODY 0 66 0 0
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "CONCESSIONE DI"
|
||||
PROMPT 36 5 ""
|
||||
FIELD 14@->S0
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "COD. CONCESS."
|
||||
PROMPT 9 11 ""
|
||||
FIELD 14@->CODTAB
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 15 11 ""
|
||||
FIELD 6->COFI
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
|
||||
PROMPT 2 15 ""
|
||||
FIELD 6->RAGSOC[1,30]
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 54 15 ""
|
||||
FIELD 6->RAGSOC[31,-1]
|
||||
END
|
||||
|
||||
LISTA
|
||||
BEGIN
|
||||
KEY "Tipo anagrafica"
|
||||
FIELD 6->TIPOA
|
||||
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
||||
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
||||
END
|
||||
|
||||
GRUPPO
|
||||
BEGIN
|
||||
KEY "Persone fisiche"
|
||||
PROMPT 0 0 ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
DATA
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 2 17 ""
|
||||
GROUP 1
|
||||
PICTURE "# # ~ # # ~ ~ # # #"
|
||||
FIELD 8->DATANASC
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "SESSO (M o F)"
|
||||
PROMPT 19 17 ""
|
||||
GROUP 1
|
||||
FIELD 8->SESSO
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "COMUNE (o Stato estero) DI NASCITA"
|
||||
PROMPT 24 17 ""
|
||||
GROUP 1
|
||||
FIELD 113@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA (sigla)"
|
||||
PROMPT 68 17 ""
|
||||
GROUP 1
|
||||
FIELD 113@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: COMUNE"
|
||||
PROMPT 8 19 ""
|
||||
FIELD 213@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
||||
PROMPT 36 19 ""
|
||||
FIELD 213@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: VIA"
|
||||
PROMPT 41 19 ""
|
||||
FIELD 6->INDRF
|
||||
FIELD 6->INDRES
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
||||
PROMPT 70 19 ""
|
||||
FIELD 6->CIVRF
|
||||
FIELD 6->CIVRES
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "PARTITA IVA"
|
||||
PROMPT 12 47 ""
|
||||
FIELD 6->PAIV
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "ANNO"
|
||||
PROMPT 14 51 ""
|
||||
PICTURE "~~@@"
|
||||
FIELD CODTAB[6,9]
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "IMPORTO TRIBUTO"
|
||||
PROMPT 20 51 ""
|
||||
MESSAGE COPY,10@
|
||||
PICTURE "###.###.###~~~"
|
||||
FIELD R0
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 40 51 ""
|
||||
MESSAGE ADD,10@
|
||||
PICTURE "###.###.###~~~"
|
||||
FIELD R1
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "TOTALE"
|
||||
PROMPT 54 51 ""
|
||||
GROUP 10
|
||||
PICTURE "###.###.###~~~"
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "TOTALE (in lettere)"
|
||||
PROMPT 5 55 ""
|
||||
GROUP 10
|
||||
PICTURE "LETTERE"
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "TOTALE (in cifre)"
|
||||
PROMPT 54 55 ""
|
||||
GROUP 10
|
||||
PICTURE "###.###.###~~~"
|
||||
END
|
||||
|
||||
DATA
|
||||
BEGIN
|
||||
KEY "DATA: giorno - mese - anno"
|
||||
PROMPT 12 60 ""
|
||||
PICTURE "@@ ~ @@~~~@@"
|
||||
FIELD D0
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
USE %DEL
|
||||
JOIN 9 INTO CODDITTA=CODTAB[1,5]
|
||||
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 9 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
||||
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
||||
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
|
||||
|
||||
SECTION BODY 0 66 0 0
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "CONCESSIONE DI"
|
||||
PROMPT 36 5 ""
|
||||
FIELD 14@->S0
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "COD. CONCESS."
|
||||
PROMPT 9 11 ""
|
||||
FIELD 14@->CODTAB
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 15 11 ""
|
||||
FIELD 6->COFI
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
|
||||
PROMPT 2 15 ""
|
||||
FIELD 6->RAGSOC[1,30]
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 54 15 ""
|
||||
FIELD 6->RAGSOC[31,-1]
|
||||
END
|
||||
|
||||
LISTA
|
||||
BEGIN
|
||||
KEY "Tipo anagrafica"
|
||||
FIELD 6->TIPOA
|
||||
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
||||
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
||||
END
|
||||
|
||||
GRUPPO
|
||||
BEGIN
|
||||
KEY "Persone fisiche"
|
||||
PROMPT 0 0 ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
DATA
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 2 17 ""
|
||||
GROUP 1
|
||||
PICTURE "# # ~ # # ~ ~ # # #"
|
||||
FIELD 8->DATANASC
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "SESSO (M o F)"
|
||||
PROMPT 19 17 ""
|
||||
GROUP 1
|
||||
FIELD 8->SESSO
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "COMUNE (o Stato estero) DI NASCITA"
|
||||
PROMPT 24 17 ""
|
||||
GROUP 1
|
||||
FIELD 113@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA (sigla)"
|
||||
PROMPT 68 17 ""
|
||||
GROUP 1
|
||||
FIELD 113@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: COMUNE"
|
||||
PROMPT 8 19 ""
|
||||
FIELD 213@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
||||
PROMPT 36 19 ""
|
||||
FIELD 213@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: VIA"
|
||||
PROMPT 41 19 ""
|
||||
FIELD 6->INDRF
|
||||
FIELD 6->INDRES
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
||||
PROMPT 70 19 ""
|
||||
FIELD 6->CIVRF
|
||||
FIELD 6->CIVRES
|
||||
END
|
||||
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "PARTITA IVA"
|
||||
PROMPT 12 47 ""
|
||||
FIELD 6->PAIV
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "ANNO"
|
||||
PROMPT 14 51 ""
|
||||
PICTURE "~~@@"
|
||||
FIELD CODTAB[6,9]
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "IMPORTO TRIBUTO"
|
||||
PROMPT 20 51 ""
|
||||
MESSAGE COPY,10@
|
||||
PICTURE "###.###.###~~~"
|
||||
FIELD R0
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 40 51 ""
|
||||
MESSAGE ADD,10@
|
||||
PICTURE "###.###.###~~~"
|
||||
FIELD R1
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "TOTALE"
|
||||
PROMPT 54 51 ""
|
||||
GROUP 10
|
||||
PICTURE "###.###.###~~~"
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "TOTALE (in lettere)"
|
||||
PROMPT 5 55 ""
|
||||
GROUP 10
|
||||
PICTURE "LETTERE"
|
||||
END
|
||||
|
||||
NUMERO
|
||||
BEGIN
|
||||
KEY "TOTALE (in cifre)"
|
||||
PROMPT 54 55 ""
|
||||
GROUP 10
|
||||
PICTURE "###.###.###~~~"
|
||||
END
|
||||
|
||||
DATA
|
||||
BEGIN
|
||||
KEY "DATA: giorno - mese - anno"
|
||||
PROMPT 12 60 ""
|
||||
PICTURE "@@ ~ @@~~~@@"
|
||||
FIELD D0
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user