db5acc1fba
DISTITCF => DISIVACF DISSKX => DISGEN DISSD6 => DISIRG DELSII => DELIRF DELSDI => DELIIRCF DISSDI => DISIIRCF DELSDR => DELRITCF DISSDR => DISRITCF BOLTITCF => BOLIVACF git-svn-id: svn://10.65.10.50/trunk@1639 c028cbd2-c16b-5b4b-a496-9718f37d4682
386 lines
4.7 KiB
Plaintext
Executable File
386 lines
4.7 KiB
Plaintext
Executable File
// Delega di pagamento delle ritenute alla fonte e altri codici tributo
|
|
|
|
USE %SDR
|
|
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
|
|
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
|
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
|
JOIN %BAN ALIAS 14 INTO CODTAB=S7
|
|
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
|
|
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
|
|
|
|
END
|
|
|
|
SECTION BODY 0 66 0 0
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "Azienda di credito"
|
|
PROMPT 47 7 ""
|
|
FIELD 14@->S0
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "Dipendenza"
|
|
PROMPT 47 9 ""
|
|
FIELD 24@->S0
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "PROVINCIA Dipendenza"
|
|
PROMPT 78 9 ""
|
|
FIELD 313@->PROVCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "COD. CONCESS."
|
|
PROMPT 9 12 ""
|
|
FIELD S9
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 15 12 ""
|
|
FIELD 6->COFI
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
|
|
PROMPT 2 17 ""
|
|
FIELD 6->RAGSOC[1,30]
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 54 17 ""
|
|
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 19 ""
|
|
GROUP 1
|
|
PICTURE "# #^# #^^ # # #"
|
|
FIELD 8->DATANASC
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "SESSO (M o F)"
|
|
PROMPT 19 19 ""
|
|
GROUP 1
|
|
FIELD 8->SESSO
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "COMUNE (o Stato estero) DI NASCITA"
|
|
PROMPT 24 19 ""
|
|
GROUP 1
|
|
FIELD 113@->DENCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "PROV. DI NASCITA (sigla)"
|
|
PROMPT 68 19 ""
|
|
GROUP 1
|
|
FIELD 113@->PROVCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: COMUNE"
|
|
PROMPT 8 21 ""
|
|
FIELD 213@->DENCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
|
PROMPT 36 21 ""
|
|
FIELD 213@->PROVCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: VIA"
|
|
PROMPT 41 21 ""
|
|
FIELD 6->INDRF
|
|
FIELD 6->INDRES
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
|
PROMPT 70 21 ""
|
|
FIELD 6->CIVRF
|
|
FIELD 6->CIVRES
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "AL PERIODO DI RIFERIMENTO (mese o anno)"
|
|
PROMPT 30 28 ""
|
|
FIELD I0
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "AL PERIODO DI RIFERIMENTO (anno)"
|
|
PROMPT 34 28 ""
|
|
FIELD I1
|
|
END
|
|
|
|
DATA
|
|
BEGIN
|
|
KEY "OVVERO ALTRA DATA"
|
|
PROMPT 64 28 ""
|
|
PICTURE "# # ^ # #^^^# #"
|
|
FIELD D1
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 1001: IMPORTO"
|
|
PROMPT 14 33 ""
|
|
MESSAGE COPY,10@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R0
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 1001: INTERESSI"
|
|
PROMPT 36 33 ""
|
|
MESSAGE ADD,10@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 1001: TOTALE"
|
|
PROMPT 54 33 ""
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE COPY,9@
|
|
GROUP 10
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 1040: IMPORTO"
|
|
PROMPT 14 35 ""
|
|
MESSAGE COPY,11@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R1
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 1040: INTERESSI"
|
|
PROMPT 36 35 ""
|
|
MESSAGE ADD,11@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 1040: TOTALE"
|
|
PROMPT 54 35 ""
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,9@
|
|
GROUP 11
|
|
END
|
|
|
|
STRING
|
|
BEGIN
|
|
KEY "TRIBUTO 3: CODICE"
|
|
PROMPT 4 37 ""
|
|
FIELD S2
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 3: IMPORTO"
|
|
PROMPT 14 37 ""
|
|
MESSAGE COPY,12@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R2
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 3: INTERESSI"
|
|
PROMPT 36 37 ""
|
|
MESSAGE ADD,12@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R8
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 3: TOTALE"
|
|
PROMPT 54 37 ""
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,9@
|
|
GROUP 12
|
|
END
|
|
|
|
|
|
STRING
|
|
BEGIN
|
|
KEY "TRIBUTO 4: CODICE"
|
|
PROMPT 4 39 ""
|
|
FIELD S3
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 4: IMPORTO"
|
|
PROMPT 14 39 ""
|
|
MESSAGE COPY,13@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R3
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 4: INTERESSI"
|
|
PROMPT 36 39 ""
|
|
MESSAGE ADD,13@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R9
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 4: TOTALE"
|
|
PROMPT 54 39 ""
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,9@
|
|
GROUP 13
|
|
END
|
|
|
|
|
|
STRING
|
|
BEGIN
|
|
KEY "TRIBUTO 5: CODICE"
|
|
PROMPT 4 41 ""
|
|
FIELD S4
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 5: IMPORTO"
|
|
PROMPT 14 41 ""
|
|
MESSAGE COPY,14@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R4
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 5: INTERESSI"
|
|
PROMPT 36 41 ""
|
|
MESSAGE ADD,14@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R10
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 5: TOTALE"
|
|
PROMPT 54 41 ""
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,9@
|
|
GROUP 14
|
|
END
|
|
|
|
|
|
STRING
|
|
BEGIN
|
|
KEY "TRIBUTO 6: CODICE"
|
|
PROMPT 4 43 ""
|
|
FIELD S5
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 6: IMPORTO"
|
|
PROMPT 14 43 ""
|
|
MESSAGE COPY,15@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R5
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 6: INTERESSI"
|
|
PROMPT 36 43 ""
|
|
MESSAGE ADD,15@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R11
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 6: TOTALE"
|
|
PROMPT 54 43 ""
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,9@
|
|
GROUP 15
|
|
END
|
|
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TOTALE (in lettere)"
|
|
PROMPT 5 57 ""
|
|
GROUP 9
|
|
PICTURE "LETTERE"
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TOTALE (in cifre)"
|
|
PROMPT 60 57 ""
|
|
GROUP 9
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
DATA
|
|
BEGIN
|
|
KEY "DATA: giorno - mese - anno"
|
|
PROMPT 47 61 ""
|
|
PICTURE "@@ ^ @@^^^@@"
|
|
FIELD D0
|
|
END
|
|
|
|
END
|
|
|
|
END
|