root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretti errori di Virgilio and Red Mountain

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3338 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-08-08 09:23:05 +00:00
parent edf7cbf467
commit ce6869e681
7 changed files with 3014 additions and 2434 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

352
m770/77busta.frm Executable file
View File

@ -0,0 +1,352 @@
USE 36
JOIN 37 INTO CODDITTA=CODDITTA
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 13 TO 106@ ALIAS 113 INTO COM==COMRF(COMRES)
JOIN %UCS TO 113@ ALIAS 104 INTO CODTAB=UFFCSERV
JOIN %UID TO 106@ ALIAS 204 INTO CODTAB=UFFIIDD
JOIN 13 TO 204@ ALIAS 213 INTO COM==S6
END
DESCRIPTION
BEGIN
58->* "Busta 770"
9->* "Ditte"
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 11
CARATTERE "X"
INIZIO_POS 3 2
FINE_POS 131
GRID "+++++++++-|"
END
SECTION BODY ODD 54
LISTA 1
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 48 11 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 22 14 ""
FIELD 106@->RAGSOC
END
STRINGA 6
BEGIN
KEY "VIA di RES."
PROMPT 22 17 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
STRINGA 7
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 17 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
STRINGA 8
BEGIN
KEY "CAP"
PROMPT 22 20 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
STRINGA 9
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 34 20 ""
FIELD 113@->DENCOM
END
STRINGA 10
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 116 20 ""
FIELD 113@->PROVCOM
END
STRINGA 650
BEGIN
KEY "Quadro A"
PROMPT 95 24 ""
FIELD 37->QCOMP[1,1]
END
STRINGA 651
BEGIN
KEY "Quadro A1"
PROMPT 100 24 ""
FIELD 37->QCOMP[2,2]
END
STRINGA 652
BEGIN
KEY "Quadro A2"
PROMPT 105 24 ""
FIELD 37->QCOMP[3,3]
END
STRINGA 653
BEGIN
KEY "Quadro A3"
PROMPT 110 24 ""
FIELD 37->QCOMP[4,4]
END
STRINGA 660
BEGIN
KEY "Quadro B"
PROMPT 116 24 ""
FIELD 37->QCOMP[5,5]
END
STRINGA 661
BEGIN
KEY "Quadro B1"
PROMPT 121 24 ""
FIELD 37->QCOMP[6,6]
END
STRINGA 670
BEGIN
KEY "Quadro C"
PROMPT 24 26 ""
FIELD 37->QCOMP[7,7]
END
STRINGA 680
BEGIN
KEY "Quadro D"
PROMPT 29 26 ""
FIELD 37->QCOMP[8,8]
END
STRINGA 681
BEGIN
KEY "Quadro D1"
PROMPT 34 26 ""
FIELD 37->QCOMP[9,9]
END
STRINGA 690
BEGIN
KEY "Quadro E"
PROMPT 39 26 ""
FIELD 37->QCOMP[10,10]
END
STRINGA 691
BEGIN
KEY "Quadro E1"
PROMPT 44 26 ""
FIELD 37->QCOMP[11,11]
END
STRINGA 692
BEGIN
KEY "Quadro E2"
PROMPT 49 26 ""
FIELD 37->QCOMP[12,12]
END
STRINGA 700
BEGIN
KEY "Quadro F"
PROMPT 54 26 ""
FIELD 37->QCOMP[13,13]
END
STRINGA 701
BEGIN
KEY "Quadro F1"
PROMPT 59 26 ""
FIELD 37->QCOMP[14,14]
END
STRINGA 702
BEGIN
KEY "Quadro F2"
PROMPT 64 26 ""
FIELD 37->QCOMP[15,15]
END
STRINGA 710
BEGIN
KEY "Quadro G"
PROMPT 70 26 ""
FIELD 37->QCOMP[16,16]
END
STRINGA 711
BEGIN
KEY "Quadro G1"
PROMPT 75 26 ""
FIELD 37->QCOMP[17,17]
END
STRINGA 720
BEGIN
KEY "Quadro H"
PROMPT 80 26 ""
FIELD 37->QCOMP[18,18]
END
STRINGA 730
BEGIN
KEY "Quadro I"
PROMPT 85 26 ""
FIELD 37->QCOMP[19,19]
END
STRINGA 740
BEGIN
KEY "Quadro L"
PROMPT 95 26 ""
END
STRINGA 760
BEGIN
KEY "Quadro N"
PROMPT 100 26 ""
FIELD 37->QCOMP[20,20]
END
STRINGA 780
BEGIN
KEY "Quadro P"
PROMPT 105 26 ""
FIELD 37->QCOMP[21,21]
END
STRINGA 790
BEGIN
KEY "Quadro Q"
PROMPT 110 26 ""
FIELD 37->QCOMP[22,22]
END
STRINGA 800
BEGIN
KEY "Quadro R"
PROMPT 116 26 ""
FIELD 37->QCOMP[23,23]
END
STRINGA 810
BEGIN
KEY "Quadro S"
PROMPT 121 26 ""
FIELD 37->QCOMP[24,24]
END
STRINGA 820
BEGIN
KEY "Quadro T"
PROMPT 126 26 ""
FIELD 37->QCOMP[25,25]
END
STRINGA 20
BEGIN
KEY "Allegati mod.730"
PROMPT 116 28 ""
END
STRINGA 21
BEGIN
KEY "Numero quadri su supporto magnetico"
FLAGS "H"
FIELD 37->NSUPPM
MESSAGE EMPTY RESET,22
MESSAGE "X",22
END
STRINGA 22
BEGIN
KEY "Dischiarazione su supporto magnetico"
PROMPT 116 30 ""
END
STRINGA 30
BEGIN
KEY "Codice centro di servizio"
FLAGS "H"
FIELD 113@->UFFCSERV
MESSAGE EMPTY ENABLE,10@|DISABLE,20@
MESSAGE ENABLE,20@|DISABLE,10@
END
STRINGA 31
BEGIN
KEY "Centro servizio"
PROMPT 142 41 "CENTRO SERVIZIO"
GROUP 10
END
STRINGA 32
BEGIN
KEY "C.A.P. Centro servizio"
PROMPT 138 46 ""
FIELD 104@->S7
GROUP 10
END
STRINGA 33
BEGIN
KEY "Comune Centro servizio"
PROMPT 170 46 ""
FIELD 104@->S0
GROUP 10
END
STRINGA 34
BEGIN
KEY "Ufficio distrettuale"
PROMPT 142 41 "UFFICIO DISTRETTUALE"
GROUP 20
END
STRINGA 35
BEGIN
KEY "C.A.P. Ufficio distrettuale"
PROMPT 138 46 ""
FIELD 204@->S7
FILED 213@->CAPCOM
GROUP 20
END
STRINGA 36
BEGIN
KEY "Comune Ufficio distrettuale"
PROMPT 170 46 ""
FIELD 204@->S0
GROUP 20
END
END
END

113
m770/77qa.frm
View File

@ -1,11 +1,12 @@
USE 44 USE 44
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB=CODCAAF JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
JOIN 9 INTO CODDITTA=CODDITTA JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES) JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
JOIN 36 INTO CODDITTA=CODDITTA
END END
DESCRIPTION DESCRIPTION
@ -240,35 +241,36 @@ END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "QUALIFICA" KEY "QUALIFICA"
PROMPT 17 5 "" PROMPT 22 5 ""
FIELD 45->QUALIFICA FIELD 45->QUALIFICA
END END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "AREA ATTIVITA'" KEY "AREA ATTIVITA'"
PROMPT 30 5 "" PROMPT 31 5 ""
FIELD 44->AREAATT FIELD 44->AREAATT
END END
STRINGA 14 STRINGA 14
BEGIN BEGIN
KEY "TIPO" KEY "TIPO"
PROMPT 36 5 "" PROMPT 38 5 ""
FIELD 44->TIPO FIELD 44->TIPO
END END
NUMERO 15 NUMERO 15
BEGIN BEGIN
KEY "NUMERO GIORNI" KEY "NUMERO GIORNI"
PROMPT 44 5 "" PROMPT 46 5 ""
FIELD 44->NUMGIO FIELD 44->NUMGIO
PICTURE "###"
END END
DATA 16 DATA 16
BEGIN BEGIN
KEY "DATA FINE RAPPORTO" KEY "DATA FINE RAPPORTO"
PROMPT 63 5 "" PROMPT 62 5 ""
FORMAT "1444-" FORMAT "1444-"
PICTURE "## ^ ##^^^^^" PICTURE "## ^ ##^^^^^"
FIELD 44->DATAFR FIELD 44->DATAFR
@ -278,7 +280,8 @@ NUMERO 17
BEGIN BEGIN
KEY "GIORNI DETRAZ. LAV. DIP." KEY "GIORNI DETRAZ. LAV. DIP."
PROMPT 80 5 "" PROMPT 80 5 ""
FIELD 44->NORIT FIELD 44->NUMGIODET
PICTURE "###"
END END
STRINGA 18 STRINGA 18
@ -325,7 +328,7 @@ END
NUMERO 23 NUMERO 23
BEGIN BEGIN
KEY "COMPENSI NETTI" KEY "COMPENSI NETTI"
PROMPT 54 7 "" PROMPT 55 7 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->23 MESSAGE ADD,FL->23
FIELD 44->COMPNETTI FIELD 44->COMPNETTI
@ -334,7 +337,7 @@ END
NUMERO 24 NUMERO 24
BEGIN BEGIN
KEY "AMMONTARE LORDO" KEY "AMMONTARE LORDO"
PROMPT 69 7 "" PROMPT 70 7 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->24 MESSAGE ADD,FL->24
FIELD 44->AMMLORDO FIELD 44->AMMLORDO
@ -397,7 +400,7 @@ END
NUMERO 31 NUMERO 31
BEGIN BEGIN
KEY "IMPOSTA CORRISPONDENTE" KEY "IMPOSTA CORRISPONDENTE"
PROMPT 54 9 "" PROMPT 55 9 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->31 MESSAGE ADD,FL->31
FIELD 44->ICTOTIMP FIELD 44->ICTOTIMP
@ -406,7 +409,7 @@ END
NUMERO 32 NUMERO 32
BEGIN BEGIN
KEY "DETRAZIONE PER CONIUGE A CARICO" KEY "DETRAZIONE PER CONIUGE A CARICO"
PROMPT 69 9 "" PROMPT 70 9 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->32 MESSAGE ADD,FL->32
FIELD 44->DETCC FIELD 44->DETCC
@ -469,7 +472,7 @@ END
NUMERO 39 NUMERO 39
BEGIN BEGIN
KEY "RITENUTE OPERATE DA TERZI" KEY "RITENUTE OPERATE DA TERZI"
PROMPT 54 11 "" PROMPT 55 11 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->39 MESSAGE ADD,FL->39
FIELD 44->AMRIOT FIELD 44->AMRIOT
@ -478,7 +481,7 @@ END
NUMERO 40 NUMERO 40
BEGIN BEGIN
KEY "RITENUTE OPERATE DAL DATORE DI LAVORO" KEY "RITENUTE OPERATE DAL DATORE DI LAVORO"
PROMPT 69 11 "" PROMPT 70 11 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->40 MESSAGE ADD,FL->40
FIELD 44->AMRIODL FIELD 44->AMRIODL
@ -541,7 +544,7 @@ END
NUMERO 47 NUMERO 47
BEGIN BEGIN
KEY "AMMONTARE IMPONIBILE" KEY "AMMONTARE IMPONIBILE"
PROMPT 54 13 "" PROMPT 55 13 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->47 MESSAGE ADD,FL->47
FIELD 44->AMMIMP FIELD 44->AMMIMP
@ -550,7 +553,7 @@ END
NUMERO 48 NUMERO 48
BEGIN BEGIN
KEY "DETRAZIONI D'IMPOSTA" KEY "DETRAZIONI D'IMPOSTA"
PROMPT 69 13 "" PROMPT 70 13 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->48 MESSAGE ADD,FL->48
FIELD 44->DETIMPOS FIELD 44->DETIMPOS
@ -587,16 +590,16 @@ STRINGA 52
BEGIN BEGIN
KEY "CONGUAGLI NON EFFETTUATI" KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 13 15 "" PROMPT 13 15 ""
FIELD 44->CNEFF FIELD 44->CONEFF
END END
NUMERO 53 NUMERO 53
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 19 15 "" PROMPT 20 15 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->53 MESSAGE ADD,FL->53
FIELD 44->IMPVER FIELD 44->IMPVERS
END END
NUMERO 54 NUMERO 54
@ -614,13 +617,13 @@ BEGIN
PROMPT 45 15 "" PROMPT 45 15 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->55 MESSAGE ADD,FL->55
FIELD 44->IMPVER2 FIELD 44->CSSN95CV
END END
NUMERO 56 NUMERO 56
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 59 15 "" PROMPT 57 15 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->56 MESSAGE ADD,FL->56
FIELD 44->INTERE2 FIELD 44->INTERE2
@ -629,14 +632,14 @@ END
STRINGA 57 STRINGA 57
BEGIN BEGIN
KEY "CONGUAGLI NON EFFETTUATI" KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 72 15 "" PROMPT 73 15 ""
FIELD 44->CNEFF FIELD 44->CNEFF
END END
STRINGA 58 STRINGA 58
BEGIN BEGIN
KEY "RETTIFICA CONGUAGLIO" KEY "RETTIFICA CONGUAGLIO"
PROMPT 80 15 "" PROMPT 81 15 ""
FIELD 44->RETCON FIELD 44->RETCON
END END
@ -670,7 +673,7 @@ END
NUMERO 62 NUMERO 62
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 11 17 "" PROMPT 13 17 ""
PICTURE "###.###^^^" PICTURE "###.###^^^"
MESSAGE ADD,FL->62 MESSAGE ADD,FL->62
FIELD 44->IMPVER2 FIELD 44->IMPVER2
@ -679,7 +682,7 @@ END
NUMERO 63 NUMERO 63
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 23 17 "" PROMPT 24 17 ""
PICTURE "###.###^^^" PICTURE "###.###^^^"
MESSAGE ADD,FL->63 MESSAGE ADD,FL->63
FIELD 44->INTER FIELD 44->INTER
@ -688,7 +691,7 @@ END
NUMERO 64 NUMERO 64
BEGIN BEGIN
KEY "SOPPRATTASSA SU IRPEF" KEY "SOPPRATTASSA SU IRPEF"
PROMPT 33 17 "" PROMPT 36 17 ""
PICTURE "###.###^^^" PICTURE "###.###^^^"
MESSAGE ADD,FL->64 MESSAGE ADD,FL->64
FIELD 44->STSIRPEF FIELD 44->STSIRPEF
@ -697,7 +700,7 @@ END
NUMERO 65 NUMERO 65
BEGIN BEGIN
KEY "CONTRIBUTO A RIMBORSO" KEY "CONTRIBUTO A RIMBORSO"
PROMPT 44 17 "" PROMPT 45 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->65 MESSAGE ADD,FL->65
FIELD 44->CONRIMB FIELD 44->CONRIMB
@ -706,7 +709,7 @@ END
NUMERO 66 NUMERO 66
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 58 17 "" PROMPT 59 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->66 MESSAGE ADD,FL->66
FIELD 44->CONVER FIELD 44->CONVER
@ -715,7 +718,7 @@ END
NUMERO 67 NUMERO 67
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 72 17 "" PROMPT 73 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->67 MESSAGE ADD,FL->67
FIELD 44->INTER2 FIELD 44->INTER2
@ -724,7 +727,7 @@ END
NUMERO 68 NUMERO 68
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 85 17 "" PROMPT 86 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->68 MESSAGE ADD,FL->68
FIELD 44->CONVER2 FIELD 44->CONVER2
@ -772,8 +775,9 @@ END
NUMERO 74 NUMERO 74
BEGIN BEGIN
KEY "NUMERO ISCRIZIONE ALBO" KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 120 19 "" PROMPT 122 19 ""
FIELD 104@->I1 FIELD 104@->I1
PICTURE "#####"
END END
END END
@ -804,14 +808,14 @@ END
NUMERO 23 NUMERO 23
BEGIN BEGIN
KEY "COMPENSI NETTI" KEY "COMPENSI NETTI"
PROMPT 54 1 "" PROMPT 55 1 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 24 NUMERO 24
BEGIN BEGIN
KEY "AMMONTARE LORDO" KEY "AMMONTARE LORDO"
PROMPT 69 1 "" PROMPT 70 1 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -860,14 +864,14 @@ END
NUMERO 31 NUMERO 31
BEGIN BEGIN
KEY "IMPOSTA CORRISPONDENTE" KEY "IMPOSTA CORRISPONDENTE"
PROMPT 54 3 "" PROMPT 55 3 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 32 NUMERO 32
BEGIN BEGIN
KEY "DETRAZIONE PER CONIUGE A CARICO" KEY "DETRAZIONE PER CONIUGE A CARICO"
PROMPT 69 3 "" PROMPT 70 3 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -916,14 +920,14 @@ END
NUMERO 39 NUMERO 39
BEGIN BEGIN
KEY "RITENUTE OPERATE DA TERZI" KEY "RITENUTE OPERATE DA TERZI"
PROMPT 54 5 "" PROMPT 55 5 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 40 NUMERO 40
BEGIN BEGIN
KEY "RITENUTE OPERATE DAL DATORE DI LAVORO" KEY "RITENUTE OPERATE DAL DATORE DI LAVORO"
PROMPT 69 5 "" PROMPT 70 5 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -972,14 +976,14 @@ END
NUMERO 47 NUMERO 47
BEGIN BEGIN
KEY "AMMONTARE IMPONIBILE" KEY "AMMONTARE IMPONIBILE"
PROMPT 54 7 "" PROMPT 55 7 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 48 NUMERO 48
BEGIN BEGIN
KEY "DETRAZIONI D'IMPOSTA" KEY "DETRAZIONI D'IMPOSTA"
PROMPT 69 7 "" PROMPT 70 7 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -1007,7 +1011,7 @@ END
NUMERO 53 NUMERO 53
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 19 9 "" PROMPT 20 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -1028,7 +1032,7 @@ END
NUMERO 56 NUMERO 56
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 59 9 "" PROMPT 57 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -1056,49 +1060,49 @@ END
NUMERO 62 NUMERO 62
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 11 11 "" PROMPT 13 11 ""
PICTURE "###.###^^^" PICTURE "###.###^^^"
END END
NUMERO 63 NUMERO 63
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 23 11 "" PROMPT 24 11 ""
PICTURE "###.###^^^" PICTURE "###.###^^^"
END END
NUMERO 64 NUMERO 64
BEGIN BEGIN
KEY "SOPPRATTASSA SU IRPEF" KEY "SOPPRATTASSA SU IRPEF"
PROMPT 33 11 "" PROMPT 36 11 ""
PICTURE "###.###^^^" PICTURE "###.###^^^"
END END
NUMERO 65 NUMERO 65
BEGIN BEGIN
KEY "CONTRIBUTO A RIMBORSO" KEY "CONTRIBUTO A RIMBORSO"
PROMPT 44 11 "" PROMPT 45 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMERO 66 NUMERO 66
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 58 11 "" PROMPT 59 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMERO 67 NUMERO 67
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 72 11 "" PROMPT 73 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMERO 68 NUMERO 68
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 85 11 "" PROMPT 86 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -1116,6 +1120,21 @@ BEGIN
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMERO 730
BEGIN
KEY "NUMERO MOD.730"
PROMPT 21 14 ""
FIELD 36->N730ALLA
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 18 ""
FIELD 106@->RAGSOC
END
END END
END END

18
m770/77qa1.frm
View File

@ -1,6 +1,6 @@
USE 56 USE 56
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB=CODCAAF JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
JOIN 9 INTO CODDITTA=CODDITTA JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
@ -212,7 +212,7 @@ END
NUMERO 8 NUMERO 8
BEGIN BEGIN
KEY "MESE DI RIFERIMENTO" KEY "MESE DI RIFERIMENTO"
PROMPT 11 5 "" PROMPT 13 5 ""
FIELD 56->MESERIF FIELD 56->MESERIF
END END
@ -327,14 +327,14 @@ END
STRINGA 21 STRINGA 21
BEGIN BEGIN
KEY "CONGUAGLI NON EFFETTUATI" KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 122 7 "" PROMPT 121 7 ""
FIELD 56->CONNEFF21 FIELD 56->CONNEFF21
END END
STRINGA 22 STRINGA 22
BEGIN BEGIN
KEY "TIPO CONGUAGLIO" KEY "TIPO CONGUAGLIO"
PROMPT 129 7 "" PROMPT 128 7 ""
FIELD 56->TIPOCONG22 FIELD 56->TIPOCONG22
END END
@ -355,7 +355,8 @@ END
NUMERO 25 NUMERO 25
BEGIN BEGIN
KEY "NUMERO ISCRIZIONE ALBO" KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 101 9 "" PROMPT 100 9 ""
PICTURE "#####"
FIELD 104@->I1 FIELD 104@->I1
END END
@ -456,6 +457,13 @@ BEGIN
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 5 ""
FIELD 106@->RAGSOC
END
END END
END END

22
m770/77qa2.frm
View File

@ -1,11 +1,12 @@
USE 57 USE 57
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB=CODCAAF JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
JOIN 9 INTO CODDITTA=CODDITTA JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES) JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
JOIN 36 INTO CODDITTA=CODDITTA
END END
DESCRIPTION DESCRIPTION
@ -205,7 +206,7 @@ END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 51 3 "" PROMPT 48 3 ""
FIELD 45->PROVNA FIELD 45->PROVNA
END END
@ -447,4 +448,21 @@ BEGIN
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 730
BEGIN
KEY "NUMERO MOD.730"
PROMPT 20 5 ""
PICTURE "######"
FIELD 36->N730ALLA2
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 9 ""
FIELD 106@->RAGSOC
END
END
END END

136
m770/77qa3.frm
View File

@ -6,8 +6,9 @@ JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES) JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
JOIN 37 INTO CODDITTA=CODDITTA
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
58->* "Quadro A3 770" 58->* "Quadro A3 770"
@ -38,6 +39,7 @@ BEGIN
FLAGS "H" FLAGS "H"
ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@ ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@
ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@ ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@
FIELD 58->NPROG
END END
LISTA 1 LISTA 1
@ -45,8 +47,9 @@ BEGIN
KEY "Tipo anagrafica" KEY "Tipo anagrafica"
FLAGS "H" FLAGS "H"
FIELD 106@->TIPOA FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@ ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@ ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@
GROUP 10
END END
STRINGA 2 STRINGA 2
@ -61,63 +64,56 @@ STRINGA 3
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 40 13 "" PROMPT 40 13 ""
GROUP 2
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
GROUP 10 GROUP 10 12
END END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 40 13 "" PROMPT 40 13 ""
GROUP 1
FIELD 106@->RAGSOC[1,30] FIELD 106@->RAGSOC[1,30]
GROUP 10 GROUP 10 11
END END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 15 "" PROMPT 17 15 ""
GROUP 1
FIELD 106@->RAGSOC[31,50] FIELD 106@->RAGSOC[31,50]
GROUP 10 GROUP 10 11
END END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 59 15 "" PROMPT 59 15 ""
GROUP 1
FIELD 108@->SESSO FIELD 108@->SESSO
GROUP 10 GROUP 10 11
END END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 67 15 "" PROMPT 67 15 ""
GROUP 1
FIELD 108@->DATANASC FIELD 108@->DATANASC
GROUP 10 GROUP 10 11
END END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 84 15 "" PROMPT 84 15 ""
GROUP 1
FIELD 113@->DENCOM FIELD 113@->DENCOM
GROUP 10 GROUP 10 11
END END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 126 15 "" PROMPT 126 15 ""
GROUP 1
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
GROUP 10 GROUP 10 11
END END
STRINGA 10 STRINGA 10
@ -163,16 +159,14 @@ BEGIN
GROUP 10 GROUP 10
END END
STRINGA 13 LISTA 101
BEGIN BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" KEY "Tipo anagrafica"
PROMPT 87 20 "" FLAGS "H"
END FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,21@|HIDE,22@
NUMERO 14 ITEM "G|Giuridica" MESSAGE SHOW,22@|HIDE,21@
BEGIN GROUP 20
KEY "NUM. FOGLIO"
PROMPT 125 25 ""
END END
STRINGA 102 STRINGA 102
@ -187,63 +181,56 @@ STRINGA 103
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 39 12 "" PROMPT 39 12 ""
GROUP 2
FIELD 102->DENOMIN FIELD 102->DENOMIN
GROUP 20 GROUP 20 22
END END
STRINGA 104 STRINGA 104
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 39 12 "" PROMPT 39 12 ""
GROUP 1
FIELD 102->DENOMIN FIELD 102->DENOMIN
GROUP 20 GROUP 20 21
END END
STRINGA 105 STRINGA 105
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 14 "" PROMPT 17 14 ""
GROUP 1
FIELD 102->NOME FIELD 102->NOME
GROUP 20 GROUP 20 21
END END
STRINGA 106 STRINGA 106
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 58 14 "" PROMPT 58 14 ""
GROUP 1
FIELD 102->SESSO FIELD 102->SESSO
GROUP 20 GROUP 20 21
END END
STRINGA 107 STRINGA 107
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 67 14 "" PROMPT 67 14 ""
GROUP 1
FIELD 102->DATANAS FIELD 102->DATANAS
GROUP 20 GROUP 20 21
END END
STRINGA 108 STRINGA 108
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 84 14 "" PROMPT 84 14 ""
GROUP 1
FIELD 102->COMNAS FIELD 102->COMNAS
GROUP 20 GROUP 20 21
END END
STRINGA 109 STRINGA 109
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 125 14 "" PROMPT 125 14 ""
GROUP 1
FIELD 102->PROVNAS FIELD 102->PROVNAS
GROUP 20 GROUP 20 21
END END
STRINGA 110 STRINGA 110
@ -270,6 +257,52 @@ BEGIN
GROUP 20 GROUP 20
END END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 ""
END
NUMERO 15
BEGIN
KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94"
PROMPT 56 22 ""
PICTURE "###.###"
FIELD 37->CONSBASOCC
END
NUMERO 16
BEGIN
KEY "LAVORATORI DIPENDENTI IN MOBILITA'"
PROMPT 56 23 ""
PICTURE "###.###"
FIELD 37->LAVDIPCIN
END
DATA 17
BEGIN
KEY "PERIODO D'IMPOSTA (DAL)"
PROMPT 96 23 ""
FORMAT "1442 "
FIELD 37->PIMPINI
END
DATA 18
BEGIN
KEY "PERIODO D'IMPOSTA (AL)"
PROMPT 117 23 ""
FORMAT "1442 "
FIELD 37->PIMPFINE
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 25 ""
END
END END
SECTION BODY ODD 6 SECTION BODY ODD 6
@ -336,14 +369,15 @@ END
NUMERO 9 NUMERO 9
BEGIN BEGIN
KEY "NUMERO GIORNI IN INCREMENTO" KEY "NUMERO GIORNI IN INCREMENTO"
PROMPT 30 5 "" PROMPT 35 5 ""
PICTURE "######"
FIELD 58->NGINC15 FIELD 58->NGINC15
END END
NUMERO 10 NUMERO 10
BEGIN BEGIN
KEY "REDDITO CORRISPOSTO" KEY "REDDITO CORRISPOSTO"
PROMPT 42 5 "" PROMPT 43 5 ""
MESSAGE ADD,FL->10 MESSAGE ADD,FL->10
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 58->REDCOR16 FIELD 58->REDCOR16
@ -352,14 +386,15 @@ END
NUMERO 11 NUMERO 11
BEGIN BEGIN
KEY "NUMERO GIORNI IN INCREMENTO" KEY "NUMERO GIORNI IN INCREMENTO"
PROMPT 64 5 "" PROMPT 69 5 ""
PICTURE "######"
FIELD 58->NGINC17 FIELD 58->NGINC17
END END
NUMERO 12 NUMERO 12
BEGIN BEGIN
KEY "REDDITO CORRISPOSTO" KEY "REDDITO CORRISPOSTO"
PROMPT 76 5 "" PROMPT 77 5 ""
MESSAGE ADD,FL->12 MESSAGE ADD,FL->12
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 58->REDCOR18 FIELD 58->REDCOR18
@ -372,17 +407,26 @@ SECTION FOOTER LAST 2
NUMERO 10 NUMERO 10
BEGIN BEGIN
KEY "REDDITO CORRISPOSTO" KEY "REDDITO CORRISPOSTO"
PROMPT 42 5 "" PROMPT 43 5 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 12 NUMERO 12
BEGIN BEGIN
KEY "REDDITO CORRISPOSTO" KEY "REDDITO CORRISPOSTO"
PROMPT 76 5 "" PROMPT 77 5 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 8 ""
FIELD 106@->RAGSOC
END
END END
END END

7
m770/77qb.frm
View File

@ -674,6 +674,13 @@ BEGIN
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 23 ""
FIELD 106@->RAGSOC
END
END END
END END

156
m770/77stq.cpp
View File

@ -136,9 +136,6 @@ class TDicForm : public TForm
int _RigaCorr; // contatore riga corrente int _RigaCorr; // contatore riga corrente
TString16 _quadro; // codice quadro in stampa TString16 _quadro; // codice quadro in stampa
virtual TCursor* cursor() const { return _cur; }
virtual TRelation* relation() const { return _cur->relation(); }
void stampa_testata(TPrinter& pr); void stampa_testata(TPrinter& pr);
virtual void stampa_totali(TPrinter& pr); virtual void stampa_totali(TPrinter& pr);
// virtual void aggiorna_totali(const char tipo); // virtual void aggiorna_totali(const char tipo);
@ -153,6 +150,8 @@ class TDicForm : public TForm
virtual bool InitPrint(const long codditta); virtual bool InitPrint(const long codditta);
public: public:
virtual TCursor* cursor() const { return _cur; }
virtual TRelation* relation() const { return _cur->relation(); }
virtual long filtra(const long codditta); virtual long filtra(const long codditta);
@ -201,6 +200,7 @@ TCursor& TDicForm::cur()
void TDicForm::set_cursor(TCursor* cur) void TDicForm::set_cursor(TCursor* cur)
{ {
CHECK(cur, "NULL cursor in TDicForm");
_cur = cur; _cur = cur;
} }
@ -1553,6 +1553,8 @@ protected:
bool singola_ditta() const { return _livello == 'D'; } bool singola_ditta() const { return _livello == 'D'; }
const TString& quadro() const { return _quadro; } const TString& quadro() const { return _quadro; }
void set_taitol(const char* t) { _title = t; }
TStampaQuadro(const char* quad, char liv); TStampaQuadro(const char* quad, char liv);
public: public:
@ -3854,6 +3856,10 @@ public:
void reset_deceduto() { _codice_deceduto = -_codice_deceduto; } void reset_deceduto() { _codice_deceduto = -_codice_deceduto; }
long codice() const { return _codice_dipendente; } long codice() const { return _codice_dipendente; }
int anno_fine_rapporto() const { return _fine_rapporto.year(); }
bool lavoro_precedente() const { return _lavoro_precedente; }
char rettifica_conguaglio() const { return _rettifica_conguaglio; }
TDipendente(const TCursor& cur); TDipendente(const TCursor& cur);
virtual ~TDipendente() { } virtual ~TDipendente() { }
}; };
@ -3889,9 +3895,6 @@ TDipendente::TDipendente(const TCursor& cur)
if (_rettifica_conguaglio == 'B' || !_fine_rapporto.ok()) if (_rettifica_conguaglio == 'B' || !_fine_rapporto.ok())
_fine_rapporto = eotime; _fine_rapporto = eotime;
else
if (_fine_rapporto.year() != 1995)
_pos = -1; // Non stampare anni diversi dal 1995
} }
@ -4098,7 +4101,7 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
while (!stampati_totali) while (!stampati_totali)
{ {
bool stampero_ultimo = stampato_ultimo == FALSE; bool stampero_ultimo = (stampato_ultimo == FALSE);
if (stampero_ultimo) if (stampero_ultimo)
{ {
if (indice.items() > 0) // Usa indice alternativo if (indice.items() > 0) // Usa indice alternativo
@ -4107,6 +4110,25 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
stampero_ultimo &= cur.pos() == cur.items()-1; stampero_ultimo &= cur.pos() == cur.items()-1;
} }
if (!stampato_ultimo)
{
if (quadro() == "A")
{
const TDipendente& dip = indice[pos];
const bool add = !dip.lavoro_precedente() && dip.rettifica_conguaglio() != 'B';
enable_message_add(add);
TForm_item& datafr = find_field('B', odd_page, 16);
datafr.enable(dip.anno_fine_rapporto() == 1995);
} else
if (quadro() == "A2")
{
const TRectype& rec = cur.curr();
const char retcon = rec.get_char("RETCON");
const bool add = retcon != 'B';
enable_message_add(add);
}
}
switch(_PaginaCorrente) switch(_PaginaCorrente)
{ {
case PRIMA: case PRIMA:
@ -4194,8 +4216,8 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
class TStampaQuadroA : public TStampaQuadro class TStampaQuadroA : public TStampaQuadro
{ {
protected: protected:
TQuadroA* _form; TDicForm* _form;
TSorted_cursor* _cur; TCursor* _cur;
protected: protected:
virtual bool user_create(); virtual bool user_create();
@ -4223,8 +4245,11 @@ bool TStampaQuadroA::user_create()
bool TStampaQuadroA::user_destroy() bool TStampaQuadroA::user_destroy()
{ {
delete _cur; if (_cur)
delete _form; delete _cur;
if (_form)
delete _form;
return TRUE; return TRUE;
} }
@ -4429,6 +4454,109 @@ bool TStampaQuadroB::user_create()
return TRUE; return TRUE;
} }
/////////////////////////////////////////////////////////////////////////////////
// Busta
/////////////////////////////////////////////////////////////////////////////////
class TBusta : public TDicForm
{
protected:
virtual bool print(const long codditta, const long, const long);
public:
TBusta(const char* form, const char* quadro) : TDicForm(form, quadro) { }
virtual ~TBusta() { }
};
bool TBusta::print(const long codditta, const long, const long)
{
const bool ok = InitPrint(codditta);
if (ok)
{
TForm_item& dietor = find_field('B', odd_page, 'L' * 10);
const int anno = anno_770();
const bool elle = esiste_record_L(codditta, anno);
dietor.set(elle ? "X" : "");
TForm::print(0);
}
return ok;
}
class TStampaBusta : public TStampaQuadro
{
TDicForm* _form;
protected: // TStampaQuadro
virtual bool user_create();
virtual bool user_destroy();
virtual bool conta_tipi_per() const { return FALSE; }
virtual TDicForm* get_form() const { return _form; }
virtual TCursor* get_cursor() const { return _form->TForm::cursor(); }
virtual bool print_quadro(const int OffsetDitta, const bool modulaser);
public:
TStampaBusta(const char* quadro, char livel);
virtual ~TStampaBusta() { }
};
TStampaBusta::TStampaBusta(const char* quadro, char livel)
: TStampaQuadro(quadro, livel), _form(NULL)
{
set_taitol("Stampa buste");
}
bool TStampaBusta::user_create()
{
_form = new TBusta("77Busta", quadro());
return TRUE;
}
bool TStampaBusta::user_destroy()
{
delete _form;
_form = NULL;
return TRUE;
}
bool TStampaBusta::print_quadro(const int OffsetDitta, const bool modulaser)
{
TDicForm* ff = get_form();
ff->set_cursor(get_cursor());
// Setta formlen prima di printer.open per avere la lunghezza giusta nel caso di stampa a video
printer().formlen(ff->height());
bool ok = printer().open();
ff->set_modulaser(modulaser);
ff->set_arrange(FALSE);
ff->set_posiziona(TRUE);
int start = 0, last = 0;
if (OffsetDitta >= 0)
{
start = OffsetDitta;
last = OffsetDitta;
}
else
last = ditte().items() - 1;
for (int i = start; i <= last; i++)
{
TToken_string& riga = ditte()[i];
const long codditta = riga.get_long(0);
const TipoDitta tipo = (TipoDitta)riga.get_int();
if (tipo != estinto)
ff->print(codditta, 0, 0);
}
printer().close();
return ok;
}
///////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////
// Quadro C // Quadro C
///////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////
@ -5220,7 +5348,11 @@ int stampa_quadro(int argc, char* argv[])
} }
else if (quadro[0] == 'B' && quadro[1] != 'a') else if (quadro[0] == 'B' && quadro[1] != 'a')
{ {
app = new TStampaQuadroB(quadro, livello); switch (quadro[1])
{
case 'U': app = new TStampaBusta(quadro, livello); break;
default : app = new TStampaQuadroB(quadro, livello); break;
}
} }
else if (quadro == "F") else if (quadro == "F")
{ {