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 1995-05-18 14:16:01 +00:00
parent 7de0af8f44
commit 6eee573e2e

View File

@ -1,190 +1,190 @@
USE %DEL USE %DEL
JOIN 9 INTO CODDITTA=CODTAB[1,5] JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 9 INTO CODANAGR=CODANAGR JOIN 8 TO 9 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES) JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
SECTION BODY 0 66 0 0 SECTION BODY 0 66 0 0
STRINGA STRINGA
BEGIN BEGIN
KEY "CONCESSIONE DI" KEY "CONCESSIONE DI"
PROMPT 36 5 "" PROMPT 36 5 ""
FIELD 14@->S0 FIELD 14@->S0
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "COD. CONCESS." KEY "COD. CONCESS."
PROMPT 9 11 "" PROMPT 9 11 ""
FIELD 14@->CODTAB FIELD 14@->CODTAB
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 15 11 "" PROMPT 15 11 ""
FIELD 6->COFI FIELD 6->COFI
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE" KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
PROMPT 2 15 "" PROMPT 2 15 ""
FIELD 6->RAGSOC[1,30] FIELD 6->RAGSOC[1,30]
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 54 15 "" PROMPT 54 15 ""
FIELD 6->RAGSOC[31,-1] FIELD 6->RAGSOC[31,-1]
END END
LISTA LISTA
BEGIN BEGIN
KEY "Tipo anagrafica" KEY "Tipo anagrafica"
FIELD 6->TIPOA FIELD 6->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@ ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@ ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END END
GRUPPO GRUPPO
BEGIN BEGIN
KEY "Persone fisiche" KEY "Persone fisiche"
PROMPT 0 0 "" PROMPT 0 0 ""
GROUP 1 GROUP 1
END END
DATA DATA
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 2 17 "" PROMPT 2 17 ""
GROUP 1 GROUP 1
PICTURE "# # ~ # # ~ ~ # # #" PICTURE "# # ~ # # ~ ~ # # #"
FIELD 8->DATANASC FIELD 8->DATANASC
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "SESSO (M o F)" KEY "SESSO (M o F)"
PROMPT 19 17 "" PROMPT 19 17 ""
GROUP 1 GROUP 1
FIELD 8->SESSO FIELD 8->SESSO
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA" KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 24 17 "" PROMPT 24 17 ""
GROUP 1 GROUP 1
FIELD 113@->DENCOM FIELD 113@->DENCOM
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "PROV. DI NASCITA (sigla)" KEY "PROV. DI NASCITA (sigla)"
PROMPT 68 17 "" PROMPT 68 17 ""
GROUP 1 GROUP 1
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "DOMICILIO FISCALE: COMUNE" KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 8 19 "" PROMPT 8 19 ""
FIELD 213@->DENCOM FIELD 213@->DENCOM
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "DOMICILIO FISCALE: PROV. (sigla)" KEY "DOMICILIO FISCALE: PROV. (sigla)"
PROMPT 36 19 "" PROMPT 36 19 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "DOMICILIO FISCALE: VIA" KEY "DOMICILIO FISCALE: VIA"
PROMPT 41 19 "" PROMPT 41 19 ""
FIELD 6->INDRF FIELD 6->INDRF
FIELD 6->INDRES FIELD 6->INDRES
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO" KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 70 19 "" PROMPT 70 19 ""
FIELD 6->CIVRF FIELD 6->CIVRF
FIELD 6->CIVRES FIELD 6->CIVRES
END END
STRINGA STRINGA
BEGIN BEGIN
KEY "PARTITA IVA" KEY "PARTITA IVA"
PROMPT 12 47 "" PROMPT 12 47 ""
FIELD 6->PAIV FIELD 6->PAIV
END END
NUMERO NUMERO
BEGIN BEGIN
KEY "ANNO" KEY "ANNO"
PROMPT 14 51 "" PROMPT 14 51 ""
PICTURE "~~@@" PICTURE "~~@@"
FIELD CODTAB[6,9] FIELD CODTAB[6,9]
END END
NUMERO NUMERO
BEGIN BEGIN
KEY "IMPORTO TRIBUTO" KEY "IMPORTO TRIBUTO"
PROMPT 20 51 "" PROMPT 20 51 ""
MESSAGE COPY,10@ MESSAGE COPY,10@
PICTURE "###.###.###~~~" PICTURE "###.###.###~~~"
FIELD R0 FIELD R0
END END
NUMERO NUMERO
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 40 51 "" PROMPT 40 51 ""
MESSAGE ADD,10@ MESSAGE ADD,10@
PICTURE "###.###.###~~~" PICTURE "###.###.###~~~"
FIELD R1 FIELD R1
END END
NUMERO NUMERO
BEGIN BEGIN
KEY "TOTALE" KEY "TOTALE"
PROMPT 54 51 "" PROMPT 54 51 ""
GROUP 10 GROUP 10
PICTURE "###.###.###~~~" PICTURE "###.###.###~~~"
END END
NUMERO NUMERO
BEGIN BEGIN
KEY "TOTALE (in lettere)" KEY "TOTALE (in lettere)"
PROMPT 5 55 "" PROMPT 5 55 ""
GROUP 10 GROUP 10
PICTURE "LETTERE" PICTURE "LETTERE"
END END
NUMERO NUMERO
BEGIN BEGIN
KEY "TOTALE (in cifre)" KEY "TOTALE (in cifre)"
PROMPT 54 55 "" PROMPT 54 55 ""
GROUP 10 GROUP 10
PICTURE "###.###.###~~~" PICTURE "###.###.###~~~"
END END
DATA DATA
BEGIN BEGIN
KEY "DATA: giorno - mese - anno" KEY "DATA: giorno - mese - anno"
PROMPT 12 60 "" PROMPT 12 60 ""
PICTURE "@@ ~ @@~~~@@" PICTURE "@@ ~ @@~~~@@"
FIELD D0 FIELD D0
END END
END END
END END