Corrette alcune posizioni di stampa, aggiunto posizionamento, cambiato

il font di stampa, aggiunti 4 campi di testo fisso, personalizzabili.


git-svn-id: svn://10.65.10.50/trunk@2030 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-10-27 08:36:27 +00:00
parent 6a7c0e673a
commit 6cc23436a3
2 changed files with 121 additions and 46 deletions

View File

@ -4,7 +4,7 @@ JOIN %BAN ALIAS 1 INTO CODTAB=S7+S8
JOIN 13 TO 1@ ALIAS 11 INTO COM=S5
JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 6 ALIAS 12 INTO COM==COMRF
JOIN 13 TO 8 ALIAS 13 INTO COM=COMNASC
@ -27,11 +27,11 @@ END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
FONT "Roman 17cpi"
SIZE 12
END
SECTION BODY ODD 66
SECTION BODY ODD 72
STRINGA 1
BEGIN
@ -50,7 +50,7 @@ END
STRINGA 3
BEGIN
KEY "Provincia Banca"
PROMPT 129 12 ""
PROMPT 125 12 ""
FIELD 11@->PROVCOM
END
@ -72,9 +72,9 @@ END
LISTA 6
BEGIN
KEY "Sesso"
PROMPT 34 19 ""
PROMPT 30 19 ""
GROUP 1
FIELD 8->SESSO
FIELD 18@->SESSO
ITEM "M|X " MESSAGE SHOW,3@|HIDE,4@
ITEM "F| X" MESSAGE SHOW,4@|HIDE,3@
END
@ -129,7 +129,7 @@ BEGIN
PROMPT 5 20 ""
GROUP 1
PICTURE "@ @"
FIELD 8->DATANASC[1,2]
FIELD 18@->DATANASC[1,2]
END
NUMERO 14
@ -138,7 +138,7 @@ BEGIN
PROMPT 12 20 ""
GROUP 1
PICTURE "@ @"
FIELD 8->DATANASC[4,5]
FIELD 18@->DATANASC[4,5]
END
NUMERO 15
@ -147,13 +147,13 @@ BEGIN
PROMPT 19 20 ""
GROUP 1
PICTURE "@ @"
FIELD 8->DATANASC[9,10]
FIELD 18@->DATANASC[9,10]
END
STRINGA 16
BEGIN
KEY "Comune di nascita"
PROMPT 53 20 ""
PROMPT 46 20 ""
GROUP 1
FIELD 13@->DENCOM
END
@ -161,7 +161,7 @@ END
STRINGA 17
BEGIN
KEY "Provincia di nascita"
PROMPT 130 20 ""
PROMPT 126 20 ""
GROUP 1
PICTURE "# #"
FIELD 13@->PROVCOM
@ -197,6 +197,7 @@ BEGIN
FLAGS "H"
MESSAGE COPY,527
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA 22
@ -205,6 +206,7 @@ BEGIN
FLAGS "H"
MESSAGE APPEND,527
FIELD 6->CIVRF
FIELD 6->CIVRES
END
STRINGA 527 35
@ -216,9 +218,10 @@ END
STRINGA 24
BEGIN
KEY "CAP fiscale"
PROMPT 74 28 ""
PROMPT 72 28 ""
PICTURE "# # # # #"
FIELD 6->CAPRF
FIELD 6->CAPRES
END
STRINGA 25
@ -240,32 +243,32 @@ STRINGA 27
BEGIN
KEY "Partita IVA"
PROMPT 24 33 ""
PICTURE "# # # # # # # ^ ^ ^ #"
PICTURE "# # # # # # # # # # #"
FIELD 6->PAIV
END
STRINGA 28
BEGIN
KEY "Codice fiscale (P.IVA Persone giuridiche)"
PROMPT 79 33 ""
PROMPT 77 33 ""
GROUP 2
PICTURE "# # # # # # # # # # #"
PICTURE "# # # # # # # # # # #"
FIELD 6->COFI
END
STRINGA 29
BEGIN
KEY "Codice fiscale (Persone fisiche)"
PROMPT 79 33 ""
PROMPT 77 33 ""
GROUP 1
PICTURE "# # # # # # # # # # # # # # # #"
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 6->COFI
END
NUMERO 29
STRINGA 29
BEGIN
KEY "Anno di versamento"
PROMPT 79 40 ""
PROMPT 76 40 ""
PICTURE "^ ^ @ @"
FIELD CODTAB[6,9]
END
@ -295,7 +298,7 @@ BEGIN
KEY "X sul mese"
PROMPT 64 46 ""
GROUP 6
FIELD CODTAB[10,11]
FIELD S6
ITEM "01|X"
ITEM "02| X"
ITEM "03| X"
@ -308,7 +311,12 @@ BEGIN
ITEM "10| X"
ITEM "11| X"
ITEM "12| X"
ITEM "13| X"
ITEM "6013| X"
ITEM "6031|"
ITEM "6032|"
ITEM "6033|"
ITEM "6099|"
ITEM "6034|"
END
LISTA 32
@ -316,26 +324,31 @@ BEGIN
KEY "X sul trimestre"
PROMPT 9 46 ""
GROUP 6
FIELD CODTAB[10,11]
ITEM "01|X"
ITEM "02|X"
ITEM "03|X"
ITEM "04| X"
ITEM "05| X"
ITEM "06| X"
ITEM "07| X"
ITEM "08| X"
ITEM "09| X"
ITEM "10| X"
ITEM "11| X"
ITEM "12| X"
ITEM "13| X"
FIELD S6
ITEM "6031|X"
ITEM "6032| X"
ITEM "6033| X"
ITEM "6099| X"
ITEM "6034| X"
ITEM "01|"
ITEM "02|"
ITEM "03|"
ITEM "04|"
ITEM "05|"
ITEM "06|"
ITEM "07|"
ITEM "08|"
ITEM "09|"
ITEM "10|"
ITEM "11|"
ITEM "12|"
ITEM "6013|"
END
NUMERO 33
BEGIN
KEY "Importo in cifre"
PROMPT 31 51 ""
PROMPT 29 51 ""
PICTURE "###.###.###^^^"
FIELD R0
END
@ -351,7 +364,7 @@ END
DATA 36
BEGIN
KEY "Data del versamento"
PROMPT 87 58 ""
PROMPT 85 58 ""
PICTURE "@ @^ @ @^ @ @"
FIELD D0
FORMAT "1442-"
@ -373,6 +386,36 @@ BEGIN
FIELD 1@->I0
END
STRINGA 40 40 1
BEGIN
KEY "Testo Fisso (1)"
PROMPT 0 0 ""
END
STRINGA 41 40 1
BEGIN
KEY "Testo Fisso (2)"
PROMPT 0 0 ""
END
STRINGA 42 40 1
BEGIN
KEY "Testo Fisso (3)"
PROMPT 0 0 ""
END
STRINGA 43 40 1
BEGIN
KEY "Testo Fisso (4)"
PROMPT 0 0 ""
END
STRINGA 44 40 1
BEGIN
KEY "Testo Fisso (5)"
PROMPT 0 0 ""
END
END
END

View File

@ -29,8 +29,10 @@ END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
FONT "Roman 17cpi"
SIZE 12
CARTATTERE "X"
INIZIALE 1 1
END
SECTION BODY ODD 73
@ -214,7 +216,7 @@ BEGIN
FIELD S6
END
NUMERO 17
STRINGA 17
BEGIN
KEY "ANNO"
PROMPT 26 51 ""
@ -225,7 +227,7 @@ END
NUMERO 18
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 49 51 ""
PROMPT 47 51 ""
MESSAGE COPY,10@
PICTURE "###.###.###^^^"
FIELD R0
@ -234,7 +236,7 @@ END
NUMERO 19
BEGIN
KEY "INTERESSI"
PROMPT 75 51 ""
PROMPT 73 51 ""
MESSAGE ADD,10@
PICTURE "###.###.###^^^"
FIELD R1
@ -243,7 +245,7 @@ END
NUMERO 20
BEGIN
KEY "TOTALE"
PROMPT 113 51 ""
PROMPT 111 51 ""
GROUP 10
PICTURE "###.###.###^^^"
END
@ -259,7 +261,7 @@ END
NUMERO 22
BEGIN
KEY "TOTALE (in cifre)"
PROMPT 113 55 ""
PROMPT 111 55 ""
GROUP 10
PICTURE "###.###.###^^^"
END
@ -267,7 +269,7 @@ END
DATA 23
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 80 60 ""
PROMPT 78 60 ""
PICTURE "@ @^ @ @^ ^^@ @"
FIELD D0
FORMAT "1444-"
@ -287,6 +289,36 @@ BEGIN
FIELD S8
END
STRINGA 28 40 1
BEGIN
KEY "Testo Fisso (1)"
PROMPT 0 0 ""
END
STRINGA 29 40 1
BEGIN
KEY "Testo Fisso (2)"
PROMPT 0 0 ""
END
STRINGA 30 40 1
BEGIN
KEY "Testo Fisso (3)"
PROMPT 0 0 ""
END
STRINGA 31 40 1
BEGIN
KEY "Testo Fisso (4)"
PROMPT 0 0 ""
END
STRINGA 32 40 1
BEGIN
KEY "Testo Fisso (5)"
PROMPT 0 0 ""
END
END
END