b2c68e593c
Files correlati : Ricompilazione Demo : [ ] Commento : Modificati quadri per gestire trasferimenti (aggiunto uno SPECIAL) Aggiunto programma 777 di trasferimento 770 git-svn-id: svn://10.65.10.50/trunk@6908 c028cbd2-c16b-5b4b-a496-9718f37d4682
388 lines
5.7 KiB
Plaintext
Executable File
388 lines
5.7 KiB
Plaintext
Executable File
USE 65
|
|
JOIN 9 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 6 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 218@ ALIAS 313 INTO STATO=="" COM==COMNASC
|
|
JOIN 13 TO 216@ ALIAS 413 INTO STATO==STATORES COM==COMRES
|
|
JOIN 13 TO 216@ ALIAS 513 INTO STATO=="" COM==COMRF
|
|
JOIN 89 ALIAS 189 INTO CODDITTA==CODDITTA CODCAUS=="C"
|
|
JOIN 89 ALIAS 289 INTO CODDITTA==CODDITTA CODCAUS=="D"
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
65->* "Quadro SQ 770 ex E1"
|
|
9->* "Ditte"
|
|
6->* "Anagrafica persone fisiche e giuridiche"
|
|
8->* "Anagrafica persone fisiche"
|
|
216@->* "Anagrafica persone fisiche e giuridiche"
|
|
218@->* "Anagrafica persone fisiche"
|
|
313@->* "Comune nascita"
|
|
413@->* "Comune residenza"
|
|
189->* "Riga 1 del prospetto e1"
|
|
289->* "Riga 2 del prospetto e1"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 17cpi"
|
|
SIZE 12
|
|
CA "X"
|
|
IN 3 3
|
|
FI 130
|
|
END
|
|
|
|
SECTION GRAPHICS FIRST 66
|
|
|
|
FIGURA 1 130 61
|
|
BEGIN
|
|
PROMPT 1 5 "770_E1_1.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS EVEN 66
|
|
|
|
FIGURA 1 130 58
|
|
BEGIN
|
|
PROMPT 1 3 "770_E1_2.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS ODD 66
|
|
|
|
FIGURA 1 130 58
|
|
BEGIN
|
|
PROMPT 1 3 "770_E1_3.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS LAST 66
|
|
|
|
FIGURA 1 130 58
|
|
BEGIN
|
|
PROMPT 1 3 "770_E1_4.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER FIRST 18
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 55 8 ""
|
|
FIELD 106@->COFI
|
|
SPECIAL STRING "TRASFER" "SQ0101" ""
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "CODICE FISCALE DICHIARANTE"
|
|
PROMPT 88 8 ""
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "NUM. FOGLIO"
|
|
PROMPT 123 8 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER ODD 5
|
|
// Header pagina 2 e successive
|
|
END
|
|
|
|
|
|
SECTION BODY ODD 8
|
|
|
|
LISTA 99
|
|
BEGIN
|
|
KEY "Tipo anagrafica"
|
|
PROMPT 1 1 ""
|
|
FIELD TIPOA
|
|
ITEM "F| " MESSAGE SHOW,1@|HIDE,2@
|
|
ITEM "G| " MESSAGE SHOW,2@|HIDE,1@
|
|
END
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "COD.FIS"
|
|
PROMPT 9 1 ""
|
|
FIELD 216@->COFI
|
|
SPECIAL STRING "TRASFER" "SQ0201" ""
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 42 1 ""
|
|
FIELD 216@->RAGSOC[1,30]
|
|
GROUP 1
|
|
SPECIAL STRING "TRASFER" "SQ0202" ""
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 21 3 ""
|
|
FIELD 216@->RAGSOC[31,50]
|
|
GROUP 1
|
|
SPECIAL STRING "TRASFER" "SQ0203" ""
|
|
END
|
|
|
|
STRINGA 102
|
|
BEGIN
|
|
KEY "RAGSOC GIURIDICHE"
|
|
PROMPT 42 1 ""
|
|
FIELD 216@->RAGSOC
|
|
GROUP 2
|
|
SPECIAL STRING "TRASFER" "SQ0202" ""
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "SESSO"
|
|
PROMPT 57 3 ""
|
|
FIELD 218@->SESSO
|
|
GROUP 1
|
|
SPECIAL STRING "TRASFER" "SQ0204" ""
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "DATA NASCITA"
|
|
PROMPT 63 3 ""
|
|
FIELD 218@->DATANASC
|
|
PICTURE "##^ ##^ ####"
|
|
GROUP 1
|
|
SPECIAL STRING "TRASFER" "SQ0205" ""
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "COMUNE DI NASCITA"
|
|
PROMPT 79 3 ""
|
|
FIELD 313@->DENCOM
|
|
GROUP 1
|
|
SPECIAL STRING "TRASFER" "SQ0206" ""
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "PROV DI NASCITA"
|
|
PROMPT 126 3 ""
|
|
FIELD 313@->PROVCOM
|
|
GROUP 1
|
|
SPECIAL STRING "TRASFER" "SQ0207" ""
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "COMUNE DI RESIDENZA FISCALE"
|
|
PROMPT 24 5 ""
|
|
FIELD 513@->DENCOM
|
|
MESSAGE EMPTY SHOW,3@|HIDE,4@
|
|
MESSAGE SHOW,4@|HIDE,3@
|
|
SPECIAL STRING "TRASFER" "SQ0208" ""
|
|
END
|
|
|
|
STRINGA 80
|
|
BEGIN
|
|
KEY "COMUNE DI RESIDENZA"
|
|
PROMPT 24 5 ""
|
|
FIELD 413@->DENCOM
|
|
GROUP 3
|
|
SPECIAL STRING "TRASFER" "SQ0208" ""
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "PROV. RESIDENZA"
|
|
PROMPT 72 5 ""
|
|
FIELD 513@->PROVCOM
|
|
FIELD 413@->PROVCOM
|
|
SPECIAL STRING "TRASFER" "SQ0209" ""
|
|
END
|
|
|
|
STRINGA 101
|
|
BEGIN
|
|
KEY "VIA RES."
|
|
FIELD 216@->INDRES[1,35]
|
|
FLAGS "H"
|
|
MESSAGE COPY,10
|
|
END
|
|
|
|
STRINGA 102
|
|
BEGIN
|
|
KEY "NUM.CIV DI RESIDENZA"
|
|
FLAGS "H"
|
|
FIELD 216@->CIVRES
|
|
MESSAGE APPEND,10
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "VIA RES. + NUMCIVRES"
|
|
PROMPT 78 5 ""
|
|
GROUP 3
|
|
SPECIAL STRING "TRASFER" "SQ0210" ""
|
|
END
|
|
|
|
STRINGA 103
|
|
BEGIN
|
|
KEY "VIA RES."
|
|
FIELD 216@->INDRF[1,35]
|
|
FLAGS "H"
|
|
MESSAGE COPY,100
|
|
END
|
|
|
|
STRINGA 104
|
|
BEGIN
|
|
KEY "NUM.CIV DI RESIDENZA"
|
|
FLAGS "H"
|
|
FIELD 216@->CIVRF
|
|
MESSAGE APPEND,100
|
|
END
|
|
|
|
STRINGA 100
|
|
BEGIN
|
|
KEY "VIA RF + NUMCIVRF"
|
|
PROMPT 78 5 ""
|
|
GROUP 4
|
|
SPECIAL STRING "TRASFER" "SQ0210" ""
|
|
END
|
|
|
|
STRING 11
|
|
BEGIN
|
|
KEY "CAUSALE"
|
|
PROMPT 13 7 ""
|
|
FIELD CAUSALE
|
|
SPECIAL STRING "TRASFER" "SQ0211" ""
|
|
END
|
|
|
|
NUMBER 12
|
|
BEGIN
|
|
KEY "Somme"
|
|
PROMPT 33 7 ""
|
|
FIELD SOMME
|
|
PICTURE "###.###.###^^^"
|
|
SPECIAL STRING "TRASFER" "SQ0212" ""
|
|
END
|
|
|
|
NUMBER 13
|
|
BEGIN
|
|
KEY "Ammontare"
|
|
PROMPT 56 7 ""
|
|
FIELD AMMONTARE
|
|
PICTURE "###.###.###^^^"
|
|
SPECIAL STRING "TRASFER" "SQ0213" ""
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "ALIQUOTA"
|
|
PROMPT 71 7 ""
|
|
FIELD PERC
|
|
PICTURE "##@,@@"
|
|
SPECIAL STRING "TRASFER" "SQ0214" ""
|
|
END
|
|
|
|
NUMBER 15
|
|
BEGIN
|
|
KEY "Importo"
|
|
PROMPT 95 7 ""
|
|
FIELD IMPORTO
|
|
PICTURE "###.###.###^^^"
|
|
SPECIAL STRING "TRASFER" "SQ0215" ""
|
|
END
|
|
|
|
NUMBER 16
|
|
BEGIN
|
|
KEY "Netto"
|
|
PROMPT 119 7 ""
|
|
FIELD NETTO
|
|
PICTURE "###.###.###^^^"
|
|
SPECIAL STRING "TRASFER" "SQ0216" ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 15
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "CAUSALE"
|
|
PROMPT 13 8 ""
|
|
FIELD 189@->CODCAUS
|
|
END
|
|
|
|
NUMERO 12
|
|
BEGIN
|
|
KEY "AMMONTARE COMPLESSIVO"
|
|
PROMPT 36 8 ""
|
|
FIELD 189@->COMPENSO
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 13
|
|
BEGIN
|
|
KEY "IMPONIBILE"
|
|
PROMPT 76 8 ""
|
|
FIELD 189@->IMPONIBILE
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 14
|
|
BEGIN
|
|
KEY "RITENUTE OPERATE"
|
|
PROMPT 116 8 ""
|
|
FIELD 189@->RITENUTA
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 21
|
|
BEGIN
|
|
KEY "CAUSALE"
|
|
PROMPT 13 10 ""
|
|
FIELD 289@->CODCAUS
|
|
END
|
|
|
|
NUMERO 22
|
|
BEGIN
|
|
KEY "AMMONTARE COMPLESSIVO"
|
|
PROMPT 36 10 ""
|
|
FIELD 289@->COMPENSO
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 23
|
|
BEGIN
|
|
KEY "IMPONIBILE"
|
|
PROMPT 76 10 ""
|
|
FIELD 289@->IMPONIBILE
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 24
|
|
BEGIN
|
|
KEY "RITENUTE OPERATE"
|
|
PROMPT 116 10 ""
|
|
FIELD 289@->RITENUTA
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 83 15 ""
|
|
FIELD 106@->RAGSOC
|
|
END
|
|
|
|
END
|