Corretti errori di Virgilio and Red Mountain
git-svn-id: svn://10.65.10.50/trunk@3338 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
edf7cbf467
commit
ce6869e681
352
m770/77busta.frm
Executable file
352
m770/77busta.frm
Executable 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
113
m770/77qa.frm
@ -1,11 +1,12 @@
|
||||
USE 44
|
||||
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 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||
JOIN 36 INTO CODDITTA=CODDITTA
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
@ -240,35 +241,36 @@ END
|
||||
STRINGA 12
|
||||
BEGIN
|
||||
KEY "QUALIFICA"
|
||||
PROMPT 17 5 ""
|
||||
PROMPT 22 5 ""
|
||||
FIELD 45->QUALIFICA
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
BEGIN
|
||||
KEY "AREA ATTIVITA'"
|
||||
PROMPT 30 5 ""
|
||||
PROMPT 31 5 ""
|
||||
FIELD 44->AREAATT
|
||||
END
|
||||
|
||||
STRINGA 14
|
||||
BEGIN
|
||||
KEY "TIPO"
|
||||
PROMPT 36 5 ""
|
||||
PROMPT 38 5 ""
|
||||
FIELD 44->TIPO
|
||||
END
|
||||
|
||||
NUMERO 15
|
||||
BEGIN
|
||||
KEY "NUMERO GIORNI"
|
||||
PROMPT 44 5 ""
|
||||
PROMPT 46 5 ""
|
||||
FIELD 44->NUMGIO
|
||||
PICTURE "###"
|
||||
END
|
||||
|
||||
DATA 16
|
||||
BEGIN
|
||||
KEY "DATA FINE RAPPORTO"
|
||||
PROMPT 63 5 ""
|
||||
PROMPT 62 5 ""
|
||||
FORMAT "1444-"
|
||||
PICTURE "## ^ ##^^^^^"
|
||||
FIELD 44->DATAFR
|
||||
@ -278,7 +280,8 @@ NUMERO 17
|
||||
BEGIN
|
||||
KEY "GIORNI DETRAZ. LAV. DIP."
|
||||
PROMPT 80 5 ""
|
||||
FIELD 44->NORIT
|
||||
FIELD 44->NUMGIODET
|
||||
PICTURE "###"
|
||||
END
|
||||
|
||||
STRINGA 18
|
||||
@ -325,7 +328,7 @@ END
|
||||
NUMERO 23
|
||||
BEGIN
|
||||
KEY "COMPENSI NETTI"
|
||||
PROMPT 54 7 ""
|
||||
PROMPT 55 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->23
|
||||
FIELD 44->COMPNETTI
|
||||
@ -334,7 +337,7 @@ END
|
||||
NUMERO 24
|
||||
BEGIN
|
||||
KEY "AMMONTARE LORDO"
|
||||
PROMPT 69 7 ""
|
||||
PROMPT 70 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->24
|
||||
FIELD 44->AMMLORDO
|
||||
@ -397,7 +400,7 @@ END
|
||||
NUMERO 31
|
||||
BEGIN
|
||||
KEY "IMPOSTA CORRISPONDENTE"
|
||||
PROMPT 54 9 ""
|
||||
PROMPT 55 9 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->31
|
||||
FIELD 44->ICTOTIMP
|
||||
@ -406,7 +409,7 @@ END
|
||||
NUMERO 32
|
||||
BEGIN
|
||||
KEY "DETRAZIONE PER CONIUGE A CARICO"
|
||||
PROMPT 69 9 ""
|
||||
PROMPT 70 9 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->32
|
||||
FIELD 44->DETCC
|
||||
@ -469,7 +472,7 @@ END
|
||||
NUMERO 39
|
||||
BEGIN
|
||||
KEY "RITENUTE OPERATE DA TERZI"
|
||||
PROMPT 54 11 ""
|
||||
PROMPT 55 11 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->39
|
||||
FIELD 44->AMRIOT
|
||||
@ -478,7 +481,7 @@ END
|
||||
NUMERO 40
|
||||
BEGIN
|
||||
KEY "RITENUTE OPERATE DAL DATORE DI LAVORO"
|
||||
PROMPT 69 11 ""
|
||||
PROMPT 70 11 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->40
|
||||
FIELD 44->AMRIODL
|
||||
@ -541,7 +544,7 @@ END
|
||||
NUMERO 47
|
||||
BEGIN
|
||||
KEY "AMMONTARE IMPONIBILE"
|
||||
PROMPT 54 13 ""
|
||||
PROMPT 55 13 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->47
|
||||
FIELD 44->AMMIMP
|
||||
@ -550,7 +553,7 @@ END
|
||||
NUMERO 48
|
||||
BEGIN
|
||||
KEY "DETRAZIONI D'IMPOSTA"
|
||||
PROMPT 69 13 ""
|
||||
PROMPT 70 13 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->48
|
||||
FIELD 44->DETIMPOS
|
||||
@ -587,16 +590,16 @@ STRINGA 52
|
||||
BEGIN
|
||||
KEY "CONGUAGLI NON EFFETTUATI"
|
||||
PROMPT 13 15 ""
|
||||
FIELD 44->CNEFF
|
||||
FIELD 44->CONEFF
|
||||
END
|
||||
|
||||
NUMERO 53
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 19 15 ""
|
||||
PROMPT 20 15 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->53
|
||||
FIELD 44->IMPVER
|
||||
FIELD 44->IMPVERS
|
||||
END
|
||||
|
||||
NUMERO 54
|
||||
@ -614,13 +617,13 @@ BEGIN
|
||||
PROMPT 45 15 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->55
|
||||
FIELD 44->IMPVER2
|
||||
FIELD 44->CSSN95CV
|
||||
END
|
||||
|
||||
NUMERO 56
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 59 15 ""
|
||||
PROMPT 57 15 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->56
|
||||
FIELD 44->INTERE2
|
||||
@ -629,14 +632,14 @@ END
|
||||
STRINGA 57
|
||||
BEGIN
|
||||
KEY "CONGUAGLI NON EFFETTUATI"
|
||||
PROMPT 72 15 ""
|
||||
PROMPT 73 15 ""
|
||||
FIELD 44->CNEFF
|
||||
END
|
||||
|
||||
STRINGA 58
|
||||
BEGIN
|
||||
KEY "RETTIFICA CONGUAGLIO"
|
||||
PROMPT 80 15 ""
|
||||
PROMPT 81 15 ""
|
||||
FIELD 44->RETCON
|
||||
END
|
||||
|
||||
@ -670,7 +673,7 @@ END
|
||||
NUMERO 62
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 11 17 ""
|
||||
PROMPT 13 17 ""
|
||||
PICTURE "###.###^^^"
|
||||
MESSAGE ADD,FL->62
|
||||
FIELD 44->IMPVER2
|
||||
@ -679,7 +682,7 @@ END
|
||||
NUMERO 63
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 23 17 ""
|
||||
PROMPT 24 17 ""
|
||||
PICTURE "###.###^^^"
|
||||
MESSAGE ADD,FL->63
|
||||
FIELD 44->INTER
|
||||
@ -688,7 +691,7 @@ END
|
||||
NUMERO 64
|
||||
BEGIN
|
||||
KEY "SOPPRATTASSA SU IRPEF"
|
||||
PROMPT 33 17 ""
|
||||
PROMPT 36 17 ""
|
||||
PICTURE "###.###^^^"
|
||||
MESSAGE ADD,FL->64
|
||||
FIELD 44->STSIRPEF
|
||||
@ -697,7 +700,7 @@ END
|
||||
NUMERO 65
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO A RIMBORSO"
|
||||
PROMPT 44 17 ""
|
||||
PROMPT 45 17 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->65
|
||||
FIELD 44->CONRIMB
|
||||
@ -706,7 +709,7 @@ END
|
||||
NUMERO 66
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 58 17 ""
|
||||
PROMPT 59 17 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->66
|
||||
FIELD 44->CONVER
|
||||
@ -715,7 +718,7 @@ END
|
||||
NUMERO 67
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 72 17 ""
|
||||
PROMPT 73 17 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->67
|
||||
FIELD 44->INTER2
|
||||
@ -724,7 +727,7 @@ END
|
||||
NUMERO 68
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 85 17 ""
|
||||
PROMPT 86 17 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->68
|
||||
FIELD 44->CONVER2
|
||||
@ -772,8 +775,9 @@ END
|
||||
NUMERO 74
|
||||
BEGIN
|
||||
KEY "NUMERO ISCRIZIONE ALBO"
|
||||
PROMPT 120 19 ""
|
||||
PROMPT 122 19 ""
|
||||
FIELD 104@->I1
|
||||
PICTURE "#####"
|
||||
END
|
||||
|
||||
END
|
||||
@ -804,14 +808,14 @@ END
|
||||
NUMERO 23
|
||||
BEGIN
|
||||
KEY "COMPENSI NETTI"
|
||||
PROMPT 54 1 ""
|
||||
PROMPT 55 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 24
|
||||
BEGIN
|
||||
KEY "AMMONTARE LORDO"
|
||||
PROMPT 69 1 ""
|
||||
PROMPT 70 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
@ -860,14 +864,14 @@ END
|
||||
NUMERO 31
|
||||
BEGIN
|
||||
KEY "IMPOSTA CORRISPONDENTE"
|
||||
PROMPT 54 3 ""
|
||||
PROMPT 55 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 32
|
||||
BEGIN
|
||||
KEY "DETRAZIONE PER CONIUGE A CARICO"
|
||||
PROMPT 69 3 ""
|
||||
PROMPT 70 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
@ -916,14 +920,14 @@ END
|
||||
NUMERO 39
|
||||
BEGIN
|
||||
KEY "RITENUTE OPERATE DA TERZI"
|
||||
PROMPT 54 5 ""
|
||||
PROMPT 55 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 40
|
||||
BEGIN
|
||||
KEY "RITENUTE OPERATE DAL DATORE DI LAVORO"
|
||||
PROMPT 69 5 ""
|
||||
PROMPT 70 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
@ -972,14 +976,14 @@ END
|
||||
NUMERO 47
|
||||
BEGIN
|
||||
KEY "AMMONTARE IMPONIBILE"
|
||||
PROMPT 54 7 ""
|
||||
PROMPT 55 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 48
|
||||
BEGIN
|
||||
KEY "DETRAZIONI D'IMPOSTA"
|
||||
PROMPT 69 7 ""
|
||||
PROMPT 70 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
@ -1007,7 +1011,7 @@ END
|
||||
NUMERO 53
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 19 9 ""
|
||||
PROMPT 20 9 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
@ -1028,7 +1032,7 @@ END
|
||||
NUMERO 56
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 59 9 ""
|
||||
PROMPT 57 9 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
@ -1056,49 +1060,49 @@ END
|
||||
NUMERO 62
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 11 11 ""
|
||||
PROMPT 13 11 ""
|
||||
PICTURE "###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 63
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 23 11 ""
|
||||
PROMPT 24 11 ""
|
||||
PICTURE "###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 64
|
||||
BEGIN
|
||||
KEY "SOPPRATTASSA SU IRPEF"
|
||||
PROMPT 33 11 ""
|
||||
PROMPT 36 11 ""
|
||||
PICTURE "###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 65
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO A RIMBORSO"
|
||||
PROMPT 44 11 ""
|
||||
PROMPT 45 11 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 66
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 58 11 ""
|
||||
PROMPT 59 11 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 67
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 72 11 ""
|
||||
PROMPT 73 11 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 68
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 85 11 ""
|
||||
PROMPT 86 11 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
@ -1116,6 +1120,21 @@ BEGIN
|
||||
PICTURE "###.###.###^^^"
|
||||
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
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
USE 56
|
||||
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 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||
@ -212,7 +212,7 @@ END
|
||||
NUMERO 8
|
||||
BEGIN
|
||||
KEY "MESE DI RIFERIMENTO"
|
||||
PROMPT 11 5 ""
|
||||
PROMPT 13 5 ""
|
||||
FIELD 56->MESERIF
|
||||
END
|
||||
|
||||
@ -327,14 +327,14 @@ END
|
||||
STRINGA 21
|
||||
BEGIN
|
||||
KEY "CONGUAGLI NON EFFETTUATI"
|
||||
PROMPT 122 7 ""
|
||||
PROMPT 121 7 ""
|
||||
FIELD 56->CONNEFF21
|
||||
END
|
||||
|
||||
STRINGA 22
|
||||
BEGIN
|
||||
KEY "TIPO CONGUAGLIO"
|
||||
PROMPT 129 7 ""
|
||||
PROMPT 128 7 ""
|
||||
FIELD 56->TIPOCONG22
|
||||
END
|
||||
|
||||
@ -355,7 +355,8 @@ END
|
||||
NUMERO 25
|
||||
BEGIN
|
||||
KEY "NUMERO ISCRIZIONE ALBO"
|
||||
PROMPT 101 9 ""
|
||||
PROMPT 100 9 ""
|
||||
PICTURE "#####"
|
||||
FIELD 104@->I1
|
||||
END
|
||||
|
||||
@ -456,6 +457,13 @@ BEGIN
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "FIRMA"
|
||||
PROMPT 83 5 ""
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
USE 57
|
||||
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 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||
JOIN 36 INTO CODDITTA=CODDITTA
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
@ -205,7 +206,7 @@ END
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 51 3 ""
|
||||
PROMPT 48 3 ""
|
||||
FIELD 45->PROVNA
|
||||
END
|
||||
|
||||
@ -447,4 +448,21 @@ BEGIN
|
||||
PICTURE "###.###.###.###^^^"
|
||||
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
|
||||
|
||||
136
m770/77qa3.frm
136
m770/77qa3.frm
@ -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 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||
|
||||
JOIN 37 INTO CODDITTA=CODDITTA
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
58->* "Quadro A3 770"
|
||||
@ -38,6 +39,7 @@ BEGIN
|
||||
FLAGS "H"
|
||||
ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@
|
||||
ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@
|
||||
FIELD 58->NPROG
|
||||
END
|
||||
|
||||
LISTA 1
|
||||
@ -45,8 +47,9 @@ 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@
|
||||
ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@
|
||||
ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
@ -61,63 +64,56 @@ STRINGA 3
|
||||
BEGIN
|
||||
KEY "RAGIONE SOCIALE"
|
||||
PROMPT 40 13 ""
|
||||
GROUP 2
|
||||
FIELD 106@->RAGSOC
|
||||
GROUP 10
|
||||
GROUP 10 12
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 40 13 ""
|
||||
GROUP 1
|
||||
FIELD 106@->RAGSOC[1,30]
|
||||
GROUP 10
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 15 ""
|
||||
GROUP 1
|
||||
FIELD 106@->RAGSOC[31,50]
|
||||
GROUP 10
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 59 15 ""
|
||||
GROUP 1
|
||||
FIELD 108@->SESSO
|
||||
GROUP 10
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 67 15 ""
|
||||
GROUP 1
|
||||
FIELD 108@->DATANASC
|
||||
GROUP 10
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 15 ""
|
||||
GROUP 1
|
||||
FIELD 113@->DENCOM
|
||||
GROUP 10
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 126 15 ""
|
||||
GROUP 1
|
||||
FIELD 113@->PROVCOM
|
||||
GROUP 10
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 10
|
||||
@ -163,16 +159,14 @@ BEGIN
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
LISTA 101
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
||||
PROMPT 87 20 ""
|
||||
END
|
||||
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
KEY "NUM. FOGLIO"
|
||||
PROMPT 125 25 ""
|
||||
KEY "Tipo anagrafica"
|
||||
FLAGS "H"
|
||||
FIELD 106@->TIPOA
|
||||
ITEM "F|Fisica" MESSAGE SHOW,21@|HIDE,22@
|
||||
ITEM "G|Giuridica" MESSAGE SHOW,22@|HIDE,21@
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 102
|
||||
@ -187,63 +181,56 @@ STRINGA 103
|
||||
BEGIN
|
||||
KEY "RAGIONE SOCIALE"
|
||||
PROMPT 39 12 ""
|
||||
GROUP 2
|
||||
FIELD 102->DENOMIN
|
||||
GROUP 20
|
||||
GROUP 20 22
|
||||
END
|
||||
|
||||
STRINGA 104
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 39 12 ""
|
||||
GROUP 1
|
||||
FIELD 102->DENOMIN
|
||||
GROUP 20
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 105
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 14 ""
|
||||
GROUP 1
|
||||
FIELD 102->NOME
|
||||
GROUP 20
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 106
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 58 14 ""
|
||||
GROUP 1
|
||||
FIELD 102->SESSO
|
||||
GROUP 20
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 107
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 67 14 ""
|
||||
GROUP 1
|
||||
FIELD 102->DATANAS
|
||||
GROUP 20
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 108
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 14 ""
|
||||
GROUP 1
|
||||
FIELD 102->COMNAS
|
||||
GROUP 20
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 109
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 125 14 ""
|
||||
GROUP 1
|
||||
FIELD 102->PROVNAS
|
||||
GROUP 20
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 110
|
||||
@ -270,6 +257,52 @@ BEGIN
|
||||
GROUP 20
|
||||
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
|
||||
|
||||
SECTION BODY ODD 6
|
||||
@ -336,14 +369,15 @@ END
|
||||
NUMERO 9
|
||||
BEGIN
|
||||
KEY "NUMERO GIORNI IN INCREMENTO"
|
||||
PROMPT 30 5 ""
|
||||
PROMPT 35 5 ""
|
||||
PICTURE "######"
|
||||
FIELD 58->NGINC15
|
||||
END
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 42 5 ""
|
||||
PROMPT 43 5 ""
|
||||
MESSAGE ADD,FL->10
|
||||
PICTURE "###.###.###.###^^^"
|
||||
FIELD 58->REDCOR16
|
||||
@ -352,14 +386,15 @@ END
|
||||
NUMERO 11
|
||||
BEGIN
|
||||
KEY "NUMERO GIORNI IN INCREMENTO"
|
||||
PROMPT 64 5 ""
|
||||
PROMPT 69 5 ""
|
||||
PICTURE "######"
|
||||
FIELD 58->NGINC17
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 76 5 ""
|
||||
PROMPT 77 5 ""
|
||||
MESSAGE ADD,FL->12
|
||||
PICTURE "###.###.###.###^^^"
|
||||
FIELD 58->REDCOR18
|
||||
@ -372,17 +407,26 @@ SECTION FOOTER LAST 2
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 42 5 ""
|
||||
PROMPT 43 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 76 5 ""
|
||||
PROMPT 77 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "FIRMA"
|
||||
PROMPT 83 8 ""
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
@ -674,6 +674,13 @@ BEGIN
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "FIRMA"
|
||||
PROMPT 83 23 ""
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
152
m770/77stq.cpp
152
m770/77stq.cpp
@ -136,9 +136,6 @@ class TDicForm : public TForm
|
||||
int _RigaCorr; // contatore riga corrente
|
||||
TString16 _quadro; // codice quadro in stampa
|
||||
|
||||
virtual TCursor* cursor() const { return _cur; }
|
||||
virtual TRelation* relation() const { return _cur->relation(); }
|
||||
|
||||
void stampa_testata(TPrinter& pr);
|
||||
virtual void stampa_totali(TPrinter& pr);
|
||||
// virtual void aggiorna_totali(const char tipo);
|
||||
@ -153,6 +150,8 @@ class TDicForm : public TForm
|
||||
virtual bool InitPrint(const long codditta);
|
||||
|
||||
public:
|
||||
virtual TCursor* cursor() const { return _cur; }
|
||||
virtual TRelation* relation() const { return _cur->relation(); }
|
||||
|
||||
virtual long filtra(const long codditta);
|
||||
|
||||
@ -201,6 +200,7 @@ TCursor& TDicForm::cur()
|
||||
|
||||
void TDicForm::set_cursor(TCursor* cur)
|
||||
{
|
||||
CHECK(cur, "NULL cursor in TDicForm");
|
||||
_cur = cur;
|
||||
}
|
||||
|
||||
@ -1553,6 +1553,8 @@ protected:
|
||||
bool singola_ditta() const { return _livello == 'D'; }
|
||||
const TString& quadro() const { return _quadro; }
|
||||
|
||||
void set_taitol(const char* t) { _title = t; }
|
||||
|
||||
TStampaQuadro(const char* quad, char liv);
|
||||
|
||||
public:
|
||||
@ -3854,6 +3856,10 @@ public:
|
||||
void reset_deceduto() { _codice_deceduto = -_codice_deceduto; }
|
||||
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);
|
||||
virtual ~TDipendente() { }
|
||||
};
|
||||
@ -3889,9 +3895,6 @@ TDipendente::TDipendente(const TCursor& cur)
|
||||
|
||||
if (_rettifica_conguaglio == 'B' || !_fine_rapporto.ok())
|
||||
_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)
|
||||
{
|
||||
bool stampero_ultimo = stampato_ultimo == FALSE;
|
||||
bool stampero_ultimo = (stampato_ultimo == FALSE);
|
||||
if (stampero_ultimo)
|
||||
{
|
||||
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;
|
||||
}
|
||||
|
||||
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)
|
||||
{
|
||||
case PRIMA:
|
||||
@ -4194,8 +4216,8 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
|
||||
class TStampaQuadroA : public TStampaQuadro
|
||||
{
|
||||
protected:
|
||||
TQuadroA* _form;
|
||||
TSorted_cursor* _cur;
|
||||
TDicForm* _form;
|
||||
TCursor* _cur;
|
||||
|
||||
protected:
|
||||
virtual bool user_create();
|
||||
@ -4223,7 +4245,10 @@ bool TStampaQuadroA::user_create()
|
||||
|
||||
bool TStampaQuadroA::user_destroy()
|
||||
{
|
||||
if (_cur)
|
||||
delete _cur;
|
||||
|
||||
if (_form)
|
||||
delete _form;
|
||||
|
||||
return TRUE;
|
||||
@ -4429,6 +4454,109 @@ bool TStampaQuadroB::user_create()
|
||||
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
|
||||
/////////////////////////////////////////////////////////////////////////////////
|
||||
@ -5220,7 +5348,11 @@ int stampa_quadro(int argc, char* argv[])
|
||||
}
|
||||
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")
|
||||
{
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user