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

Stampa base

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3640 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-09-23 07:05:55 +00:00
parent 529b2e2e0f
commit 35cab21772
12 changed files with 1577 additions and 1576 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
m770/771230f.uml
View File

@ -143,7 +143,7 @@ BEGIN
FIELD LF_QUAC->CONTSSN FIELD LF_QUAC->CONTSSN
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
// MESSAGE K_TAB,F_IMPONIBILE|K_TAB,F_RITENUTE|K_TAB,F_NETTO MESSAGE K_TAB,F_IMPONIBILE|K_TAB,F_RITENUTE|K_TAB,F_NETTO
END END
TEXT DLG_NULL TEXT DLG_NULL

3
m770/771300a.uml
View File

@ -654,11 +654,12 @@ BEGIN
FLAGS "R" FLAGS "R"
END END
NUMBER F_C0CRIMPRAS 5 NUMBER F_C0CRIMPRAS 15
BEGIN BEGIN
PROMPT 41 11 "Cred.imp.pre.assun. " PROMPT 41 11 "Cred.imp.pre.assun. "
HELP "Credito d'imposta premio d'assunzione" HELP "Credito d'imposta premio d'assunzione"
FIELD LF_BASE->C0CRIMPRAS FIELD LF_BASE->C0CRIMPRAS
PICTURE "."
FLAGS "R" FLAGS "R"
END END

8
m770/774200.cpp
View File

@ -709,12 +709,12 @@ void TRiporti::calcola_riporti_A(TCursor* cur, const long dich)
long dipendenti,num_rec; long dipendenti,num_rec;
real a0cobb,a0cnet,a0eprev,a0iitra,a0cter,a0timp,a0ilor,a0tdet,a0rter,a0rdat; real a0cobb,a0cnet,a0eprev,a0iitra,a0cter,a0timp,a0ilor,a0tdet,a0rter,a0rdat;
real a0erit,a0carr,a0aarr,a0darr,a0rarr,a0cinps,a0ciiaut,a0crimpras; real a0erit,a0carr,a0aarr,a0darr,a0rarr,a0cinps,a0ciiaut,a0crimpras,a0incdet;
a0cobb = ZERO; a0cnet = ZERO; a0eprev = ZERO; a0iitra = ZERO; a0cter = ZERO; a0cobb = ZERO; a0cnet = ZERO; a0eprev = ZERO; a0iitra = ZERO; a0cter = ZERO;
a0timp = ZERO; a0ilor = ZERO; a0tdet = ZERO; a0rter = ZERO; a0rdat = ZERO; a0timp = ZERO; a0ilor = ZERO; a0tdet = ZERO; a0rter = ZERO; a0rdat = ZERO;
a0erit = ZERO; a0carr = ZERO; a0aarr = ZERO; a0darr = ZERO; a0rarr = ZERO; a0erit = ZERO; a0carr = ZERO; a0aarr = ZERO; a0darr = ZERO; a0rarr = ZERO;
a0cinps = ZERO; a0ciiaut = ZERO; a0crimpras = ZERO; a0cinps = ZERO; a0ciiaut = ZERO; a0crimpras = a0incdet = ZERO;
dipendenti = 0; dipendenti = 0;
num_rec = 0; num_rec = 0;
@ -777,10 +777,11 @@ void TRiporti::calcola_riporti_A(TCursor* cur, const long dich)
a0rter += cur->curr().get_real(QUA_AMRIOT); a0rter += cur->curr().get_real(QUA_AMRIOT);
a0rdat += cur->curr().get_real(QUA_AMRIODL); a0rdat += cur->curr().get_real(QUA_AMRIODL);
a0erit += cur->curr().get_real(QUA_ECCRITRIMB); a0erit += cur->curr().get_real(QUA_ECCRITRIMB);
a0carr += cur->curr().get_real(QUA_COBBDIP); a0carr += cur->curr().get_real("COBBDIP2"); // cas.46
a0aarr += cur->curr().get_real(QUA_AMMIMP); a0aarr += cur->curr().get_real(QUA_AMMIMP);
a0darr += cur->curr().get_real(QUA_DETIMPOS); a0darr += cur->curr().get_real(QUA_DETIMPOS);
a0rarr += cur->curr().get_real(QUA_RITESEG); a0rarr += cur->curr().get_real(QUA_RITESEG);
a0incdet += cur->curr().get_real("INCDETFC"); // cas.38
} }
} }
@ -816,6 +817,7 @@ void TRiporti::calcola_riporti_A(TCursor* cur, const long dich)
base.put(BSE_A0AARR, a0aarr); base.put(BSE_A0AARR, a0aarr);
base.put(BSE_A0DARR, a0darr); base.put(BSE_A0DARR, a0darr);
base.put(BSE_A0RARR, a0rarr); base.put(BSE_A0RARR, a0rarr);
base.put("A0INCDET", a0incdet);
base.rewrite(); base.rewrite();
TLocalisamfile basebis(LF_BASEBIS); TLocalisamfile basebis(LF_BASEBIS);
basebis.setkey(1); basebis.setkey(1);

188
m770/77base1.frm
View File

@ -7,11 +7,11 @@ JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES) JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 36 ALIAS 216 INTO CODANAGR=RAPPR JOIN 6 TO 36 ALIAS 216 INTO CODANAGR==RAPPR
JOIN 8 TO 6 ALIAS 218 INTO CODANAGR=CODANAGR JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR==CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC JOIN 13 TO 218@ ALIAS 313 INTO COM==COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES) JOIN 13 TO 216@ ALIAS 413 INTO COM==COMRF(COMRES)
JOIN 10 TO 9 INTO CODDITTA=CODDITTA CODATT=CODATTPREV JOIN 10 TO 9 INTO CODDITTA==CODDITTA CODATT==CODATTPREV
JOIN 6 TO 10 ALIAS 316 INTO TIPOA=TIPOADS CODANAGR=CODANGRDS JOIN 6 TO 10 ALIAS 316 INTO TIPOA=TIPOADS CODANAGR=CODANGRDS
JOIN 13 TO 10 ALIAS 513 INTO COM==COMCS JOIN 13 TO 10 ALIAS 513 INTO COM==COMCS
END END
@ -21,8 +21,9 @@ BEGIN
36->* "Base 770" 36->* "Base 770"
37->* "Basebis 770" 37->* "Basebis 770"
9->* "Ditte" 9->* "Ditte"
6->* "LF_ANAG Anagrafica persone fisiche e giuridiche" 6->* "LF_ANAG"
8->* "Anagrafica persone fisiche" 7->* "GIURIDICHE"
8->* "FISICHE"
10->* "ATTIV" 10->* "ATTIV"
116@->* "Comuni" 116@->* "Comuni"
118@->* "Comuni" 118@->* "Comuni"
@ -60,7 +61,7 @@ END
LISTA 3 LISTA 3
BEGIN BEGIN
KEY "REG.A.STATUTO.SPECIALE VA - SA -SI" KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
PROMPT 94 1 "" PROMPT 92 1 ""
ITEM "|" ITEM "|"
ITEM "1|X" ITEM "1|X"
ITEM "2|" ITEM "2|"
@ -72,7 +73,7 @@ END
LISTA 4 LISTA 4
BEGIN BEGIN
KEY "REG.A.STATUTO.SPECIALE VA - SA -SI" KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
PROMPT 102 1 "" PROMPT 100 1 ""
ITEM "|" ITEM "|"
ITEM "1|" ITEM "1|"
ITEM "2|X" ITEM "2|X"
@ -84,7 +85,7 @@ END
LISTA 5 LISTA 5
BEGIN BEGIN
KEY "REG.A.STATUTO.SPECIALE VA - SA -SI" KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
PROMPT 111 1 "" PROMPT 110 1 ""
ITEM "|" ITEM "|"
ITEM "1|" ITEM "1|"
ITEM "2|" ITEM "2|"
@ -120,7 +121,8 @@ END
LISTA 9 LISTA 9
BEGIN BEGIN
KEY "SESSO M" KEY "SESSO M"
PROMPT 122 3 "" PROMPT 120 3 ""
ITEM " | "
ITEM "M|X" ITEM "M|X"
ITEM "F|" ITEM "F|"
FIELD 118@->SESSO FIELD 118@->SESSO
@ -131,6 +133,7 @@ LISTA 10
BEGIN BEGIN
KEY "SESSO F" KEY "SESSO F"
PROMPT 130 3 "" PROMPT 130 3 ""
ITEM " | "
ITEM "M|" ITEM "M|"
ITEM "F|X" ITEM "F|X"
FIELD 118@->SESSO FIELD 118@->SESSO
@ -162,11 +165,15 @@ BEGIN
GROUP 1 GROUP 1
END END
STRINGA 14 LISTA 14
BEGIN BEGIN
KEY "EVENTI ECCEZIONALI" KEY "EVENTI ECCEZIONALI"
PROMPT 130 5 "" PROMPT 130 5 ""
FIELD 116@->EVECC FIELD 116@->EVECC
ITEM " | "
ITEM "1|X"
ITEM "2| "
ITEM "3|X"
GROUP 1 GROUP 1
END END
@ -181,7 +188,7 @@ END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "PROV DI RES.FISCALE" KEY "PROV DI RES.FISCALE"
PROMPT 102 7 "" PROMPT 103 7 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
GROUP 1 GROUP 1
END END
@ -210,26 +217,29 @@ BEGIN
PROMPT 82 9 "" PROMPT 82 9 ""
FIELD 116@->CIVRF FIELD 116@->CIVRF
FIELD 116@->CIVRES FIELD 116@->CIVRES
GROUP 1
END END
STRINGA 20 STRINGA 20
BEGIN BEGIN
KEY "TELEFONO - PREFISSO" KEY "TELEFONO - PREFISSO"
PROMPT 100 9 "" PROMPT 102 9 ""
FIELD 116@->PTELRF FIELD 116@->PTELRF
GROUP 1
END END
STRINGA 21 STRINGA 21
BEGIN BEGIN
KEY "TELEFONO - NUMERO" KEY "TELEFONO - NUMERO"
PROMPT 112 9 "" PROMPT 114 9 ""
FIELD 116@->TELRF FIELD 116@->TELRF
GROUP 1
END END
STRINGA 22 STRINGA 22
BEGIN BEGIN
KEY "GRUPPO 2 - ALTRI SOGGETTI - CODICE FISCALE" KEY "GRUPPO 2 - ALTRI SOGGETTI - CODICE FISCALE"
PROMPT 25 12 "" PROMPT 25 11 ""
FIELD 116@->COFI FIELD 116@->COFI
GROUP 2 GROUP 2
END END
@ -237,7 +247,7 @@ END
LISTA 23 LISTA 23
BEGIN BEGIN
KEY "REG.A.STATUTO.SPECIALE VA - SA -SI" KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
PROMPT 95 12 "" PROMPT 93 11 ""
ITEM "|" ITEM "|"
ITEM "1|X" ITEM "1|X"
ITEM "2|" ITEM "2|"
@ -249,7 +259,7 @@ END
LISTA 24 LISTA 24
BEGIN BEGIN
KEY "REG.A.STATUTO.SPECIALE VA - SA -SI" KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
PROMPT 103 12 "" PROMPT 101 11 ""
ITEM "|" ITEM "|"
ITEM "1|" ITEM "1|"
ITEM "2|X" ITEM "2|X"
@ -261,7 +271,7 @@ END
LISTA 25 LISTA 25
BEGIN BEGIN
KEY "REG.A.STATUTO.SPECIALE VA - SA -SI" KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
PROMPT 112 12 "" PROMPT 109 11 ""
ITEM "|" ITEM "|"
ITEM "1|" ITEM "1|"
ITEM "2|" ITEM "2|"
@ -273,7 +283,7 @@ END
STRINGA 26 STRINGA 26
BEGIN BEGIN
KEY "CODICE ATTIVITA" KEY "CODICE ATTIVITA"
PROMPT 121 12 "" PROMPT 121 11 ""
FIELD 9->CODATTPREV FIELD 9->CODATTPREV
GROUP 2 GROUP 2
END END
@ -281,16 +291,20 @@ END
STRINGA 27 STRINGA 27
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 25 14 "" PROMPT 25 13 ""
FIELD 116@->RAGSOC FIELD 116@->RAGSOC
GROUP 2 GROUP 2
END END
STRINGA 28 LISTA 28
BEGIN BEGIN
KEY "EVENTI ECCEZIONALI" KEY "EVENTI ECCEZIONALI"
PROMPT 128 14 "" PROMPT 130 13 ""
FIELD 116@->EVECC FIELD 116@->EVECC
ITEM " | "
ITEM "1|X"
ITEM "2| "
ITEM "3|X"
GROUP 2 GROUP 2
END END
@ -303,7 +317,7 @@ END
STRING 30 STRING 30
BEGIN BEGIN
KEY "COMUNE SEDE LEGALE " KEY "COMUNE SEDE LEGALE "
PROMPT 41 16 "" PROMPT 41 15 ""
FIELD 413@->DENCOM FIELD 413@->DENCOM
GROUP 2 GROUP 2
END END
@ -311,7 +325,7 @@ END
STRING 31 STRING 31
BEGIN BEGIN
KEY "PROV. SEDE LEGALE" KEY "PROV. SEDE LEGALE"
PROMPT 122 16 "" PROMPT 122 15 ""
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
GROUP 2 GROUP 2
END END
@ -319,9 +333,11 @@ END
STRING 32 STRING 32
BEGIN BEGIN
KEY "VIA SEDE LEGALE" KEY "VIA SEDE LEGALE"
PROMPT 39 19 "" PROMPT 41 17 ""
FIELD 216@->INDRES[1,18] FIELD 116@->INDRES[1,18]
MESSAGE COPY,35
FLAGS "H" FLAGS "H"
GROUP 2
END END
STRING 33 STRING 33
@ -329,30 +345,30 @@ BEGIN
KEY "NUM.CIV" KEY "NUM.CIV"
PROMPT 93 4 "" PROMPT 93 4 ""
FLAGS "H" FLAGS "H"
FIELD 216@->CIVRES FIELD 116@->CIVRES
MESSAGE APPEND,12 MESSAGE APPEND,35
END END
STRING 34 STRINGA 34
BEGIN BEGIN
KEY "VIA SEDE LEGALE" KEY "CAP SEDE LEGALE"
PROMPT 39 19 "" PROMPT 121 17 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
GROUP 2 GROUP 2
END END
STRINGA 35 STRING 35
BEGIN BEGIN
KEY "CAP" KEY "VIA SEDE LEGALE"
PROMPT 119 19 "" PROMPT 41 17 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
GROUP 2 GROUP 2
END END
STRING 36 STRING 36
BEGIN BEGIN
KEY "COMUNE DI RESIDENZA FISCALE" KEY "COMUNE DI RESIDENZA FISCALE"
PROMPT 41 20 "" PROMPT 41 19 ""
FIELD 413@->DENCOM FIELD 413@->DENCOM
GROUP 2 GROUP 2
END END
@ -360,7 +376,7 @@ END
STRING 37 STRING 37
BEGIN BEGIN
KEY "PROV. RESIDENZA FISCALE" KEY "PROV. RESIDENZA FISCALE"
PROMPT 121 20 "" PROMPT 122 19 ""
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
GROUP 2 GROUP 2
END END
@ -368,10 +384,10 @@ END
STRING 38 STRING 38
BEGIN BEGIN
KEY "VIA RESIDENZA FISCALE" KEY "VIA RESIDENZA FISCALE"
PROMPT 39 22 "" PROMPT 39 21 ""
FIELD 216@->INDRES[1,18] FIELD 116@->INDRF[1,18]
FLAGS "H" FLAGS "H"
MESSAGE COPY,12 MESSAGE COPY,40
END END
STRING 39 STRING 39
@ -379,21 +395,21 @@ BEGIN
KEY "NUM.CIV" KEY "NUM.CIV"
PROMPT 93 4 "" PROMPT 93 4 ""
FLAGS "H" FLAGS "H"
FIELD 216@->CIVRES FIELD 116@->CIVRF
MESSAGE APPEND,12 MESSAGE APPEND,40
END END
STRING 40 STRING 40
BEGIN BEGIN
KEY "VIA RES FISCALE" KEY "VIA RES FISCALE"
PROMPT 39 22 "" PROMPT 41 21 ""
GROUP 2 GROUP 2
END END
STRINGA 41 STRINGA 41
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 121 22 "" PROMPT 122 21 ""
FIELD 116@->CAPRF FIELD 116@->CAPRF
GROUP 2 GROUP 2
END END
@ -401,23 +417,25 @@ END
STRINGA 42 STRINGA 42
BEGIN BEGIN
KEY "DATA APP.BILANCIO gg-mm-aaa" KEY "DATA APP.BILANCIO gg-mm-aaa"
PROMPT 29 25 "" PROMPT 33 23 ""
PICTURE "## ^ ##^^###" PICTURE "## ^ ##^^###"
FIELD 7->DATAAPPBIL
GROUP 2 GROUP 2
END END
STRINGA 43 STRINGA 43
BEGIN BEGIN
KEY "Termine per APP.BILANCIO gg-mm-aaa" KEY "Termine per APP.BILANCIO gg-mm-aaa"
PROMPT 88 25 "" PROMPT 93 23 ""
PICTURE "## ^ ##^^###" PICTURE "## ^ ##^^###"
FIELD 7->DATATAPPBI
GROUP 2 GROUP 2
END END
STRINGA 48 STRINGA 48
BEGIN BEGIN
KEY "STATO" KEY "STATO"
PROMPT 31 26 "" PROMPT 31 25 ""
FIELD 7->STATOSOC FIELD 7->STATOSOC
GROUP 2 GROUP 2
END END
@ -425,30 +443,39 @@ END
STRINGA 49 STRINGA 49
BEGIN BEGIN
KEY "NAT.GIURIDICA" KEY "NAT.GIURIDICA"
PROMPT 51 26 "" PROMPT 53 25 ""
FIELD 7->NATGIU FIELD 7->NATGIU
GROUP 2 GROUP 2
END END
STRINGA 50 LISTAA 50
BEGIN BEGIN
KEY "SITUAZIONE" KEY "SITUAZIONE"
PROMPT 75 26 "" PROMPT 75 25 ""
FIELD 7->SITSOC FIELD 7->SITSOC
ITEM " | "
ITEM "1|1"
ITEM "2|2"
ITEM "3|3"
ITEM "4| "
ITEM "5|4"
ITEM "6|5"
GROUP 2 GROUP 2
END END
STRINGA 51 STRINGA 51
BEGIN BEGIN
KEY "TELEFONO - PREF" KEY "TELEFONO - PREF"
PROMPT 99 27 "" PROMPT 102 25 ""
FIELD 116@->PTELRF
GROUP 2 GROUP 2
END END
STRINGA 52 STRINGA 52
BEGIN BEGIN
KEY "TELEFONO - NUMERO" KEY "TELEFONO - NUMERO"
PROMPT 110 27 "" PROMPT 113 25 ""
FIELD 116@->TELRF
GROUP 2 GROUP 2
END END
@ -562,7 +589,7 @@ LISTA 63
BEGIN BEGIN
KEY "RAPP.SESSO" KEY "RAPP.SESSO"
PROMPT 121 31 "" PROMPT 121 31 ""
ITEM " |" ITEM " | "
ITEM "M|X" ITEM "M|X"
ITEM "F|" ITEM "F|"
FIELD 218@->SESSO FIELD 218@->SESSO
@ -572,7 +599,7 @@ LISTA 64
BEGIN BEGIN
KEY "RAPP.SESSO" KEY "RAPP.SESSO"
PROMPT 129 31 "" PROMPT 129 31 ""
ITEM " |" ITEM " | "
ITEM "M|" ITEM "M|"
ITEM "F|X" ITEM "F|X"
FIELD 218@->SESSO FIELD 218@->SESSO
@ -628,58 +655,75 @@ BEGIN
PROMPT 42 37 "" PROMPT 42 37 ""
FIELD 216@->INDRF FIELD 216@->INDRF
FIELD 216@->INDRES FIELD 216@->INDRES
FLAGS "H"
MESSAGE COPY,75
END END
STRINGA 74 STRING 74
BEGIN
KEY "NUM.CIV"
PROMPT 93 4 ""
FLAGS "H"
FIELD 216@->CIVRF
MESSAGE APPEND,75
END
STRINGA 75
BEGIN
KEY "IND RES"
PROMPT 42 37 ""
END
STRINGA 76
BEGIN BEGIN
KEY "TELEFONO PREFISSO" KEY "TELEFONO PREFISSO"
PROMPT 99 37 "" PROMPT 99 37 ""
FIELD 216@->PTELRF FIELD 216@->PTELRF
END END
STRINGA 75 STRINGA 77
BEGIN BEGIN
KEY "TELEFONO NUMERO" KEY "TELEFONO NUMERO"
PROMPT 111 37 "" PROMPT 113 37 ""
FIELD 216@->TELRF FIELD 216@->TELRF
END END
STRINGA 76 STRINGA 78
BEGIN BEGIN
KEY "LUOGO CONSERVAZIONE S.C. - NOME" KEY "LUOGO CONSERVAZIONE S.C. - NOME"
PROMPT 25 38 "" PROMPT 25 38 ""
FIELD 316@->RAGSOC FIELD 316@->RAGSOC
END END
STRINGA 77 STRINGA 79
BEGIN BEGIN
KEY "LUOGO CONSERVAZIONE S.C. - COM" KEY "LUOGO CONSERVAZIONE S.C. - COM"
PROMPT 25 39 "" PROMPT 25 39 ""
FIELD 513@->DENCOM FIELD 513@->DENCOM
END END
STRINGA 78 STRINGA 80
BEGIN BEGIN
KEY "LUOGO CONSERVAZIONE S.C. - PROV" KEY "LUOGO CONSERVAZIONE S.C. - PROV"
PROMPT 92 39 "" PROMPT 92 39 ""
FIELD 513@->PROVCOM FIELD 513@->PROVCOM
END END
STRINGA 79 STRINGA 81
BEGIN BEGIN
KEY "LUOGO CONSERVAZIONE S.C. - VIA" KEY "LUOGO CONSERVAZIONE S.C. - VIA"
PROMPT 25 40 "" PROMPT 25 40 ""
FIELD 10->INDCS FIELD 10->INDCS
END END
STRINGA 80 STRINGA 82
BEGIN BEGIN
KEY "LUOGO CONSERVAZIONE S.C. - CIV" KEY "LUOGO CONSERVAZIONE S.C. - CIV"
PROMPT 82 40 "" PROMPT 82 40 ""
FIELD 10->CIVCS FIELD 10->CIVCS
END END
STRINGA 81 STRINGA 83
BEGIN BEGIN
KEY "LUOGO CONSERVAZIONE S.C. - CAP" KEY "LUOGO CONSERVAZIONE S.C. - CAP"
PROMPT 112 40 "" PROMPT 112 40 ""
@ -693,43 +737,43 @@ SECTION FOOTER FIRST 4
STRINGA 82 STRINGA 82
BEGIN BEGIN
KEY "AMMIN. 1 NOME" KEY "AMMIN. 1 NOME"
PROMPT 25 1 "" PROMPT 24 1 ""
END END
STRINGA 83 STRINGA 83
BEGIN BEGIN
KEY "AMMIN. 1 SESSO" KEY "AMMIN. 1 SESSO"
PROMPT 52 1 "" PROMPT 54 1 ""
END END
STRINGA 84 STRINGA 84
BEGIN BEGIN
KEY "AMMIN. 1 COMUNENA" KEY "AMMIN. 1 COMUNENA"
PROMPT 56 1 "" PROMPT 58 1 ""
END END
STRINGA 85 STRINGA 85
BEGIN BEGIN
KEY "AMMIN. 1 PROVNA" KEY "AMMIN. 1 PROVNA"
PROMPT 81 1 "" PROMPT 83 1 ""
END END
STRINGA 86 STRINGA 86
BEGIN BEGIN
KEY "AMMIN. 1 DATANA" KEY "AMMIN. 1 DATANA"
PROMPT 87 1 "" PROMPT 89 1 ""
END END
STRINGA 87 STRINGA 87
BEGIN BEGIN
KEY "AMMIN. 1 CODFIS" KEY "AMMIN. 1 CODFIS"
PROMPT 100 1 "" PROMPT 102 1 ""
END END
STRINGA 88 STRINGA 88
BEGIN BEGIN
KEY "AMMIN. 1 QUALIFICA" KEY "AMMIN. 1 QUALIFICA"
PROMPT 127 1 "" PROMPT 130 1 ""
END END
END END

168
m770/77base2.frm
View File

@ -31,7 +31,7 @@ END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "I1-2" KEY "I1-2"
PROMPT 38 1 "" PROMPT 36 1 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 36->A0NLDIP FIELD 36->A0NLDIP
END END
@ -71,7 +71,7 @@ END
NUMERO 7 NUMERO 7
BEGIN BEGIN
KEY "I2-7 Compensi da terzi" KEY "I2-7 Compensi da terzi"
PROMPT 23 3 "" PROMPT 27 3 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->A0CTER FIELD 36->A0CTER
END END
@ -103,7 +103,7 @@ END
NUMERO 11 NUMERO 11
BEGIN BEGIN
KEY "I2-11 Incremento detrazioni" KEY "I2-11 Incremento detrazioni"
PROMPT 116 5 "" PROMPT 116 3 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->A0INCDET FIELD 36->A0INCDET
END END
@ -111,7 +111,7 @@ END
NUMERO 12 NUMERO 12
BEGIN BEGIN
KEY "I3-12 Ritenute da terzi" KEY "I3-12 Ritenute da terzi"
PROMPT 23 5 "" PROMPT 27 5 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->A0RTER FIELD 36->A0RTER
END END
@ -151,7 +151,7 @@ END
NUMERO 17 NUMERO 17
BEGIN BEGIN
KEY "I4-17 Detrazioni arretrati" KEY "I4-17 Detrazioni arretrati"
PROMPT 23 7 "" PROMPT 27 7 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->A0DARR FIELD 36->A0DARR
END END
@ -191,7 +191,7 @@ END
NUMERO 22 NUMERO 22
BEGIN BEGIN
KEY "I5-22 Rit.operate SI" KEY "I5-22 Rit.operate SI"
PROMPT 23 9 "" PROMPT 27 9 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->A0RITSI FIELD 36->A0RITSI
END END
@ -224,15 +224,15 @@ NUMERO 26
BEGIN BEGIN
KEY "I5-26 Num.assistiti da datore di lavoro" KEY "I5-26 Num.assistiti da datore di lavoro"
PROMPT 116 9 "" PROMPT 116 9 ""
PICTURE "###.###.###.###^^^" PICTURE "#.###"
FIELD 36->A0NADLAV FIELD 36->A0NADLAV
END END
NUMERO 27 NUMERO 27
BEGIN BEGIN
KEY "I6-27 Num.ass.CAAF" KEY "I6-27 Num.ass.CAAF"
PROMPT 23 11 "" PROMPT 27 11 ""
PICTURE "###.###.###.###^^^" PICTURE "#.###"
FIELD 36->A0NACAAF FIELD 36->A0NACAAF
END END
@ -247,7 +247,7 @@ END
NUMERO 29 NUMERO 29
BEGIN BEGIN
KEY "I7-2 N.percipienti" KEY "I7-2 N.percipienti"
PROMPT 38 13 "" PROMPT 36 13 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 36->A3NUMPER FIELD 36->A3NUMPER
END END
@ -279,7 +279,7 @@ END
NUMERO 33 NUMERO 33
BEGIN BEGIN
KEY "I8-2 N.dip." KEY "I8-2 N.dip."
PROMPT 38 15 "" PROMPT 36 15 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 36->B0NLDIP FIELD 36->B0NLDIP
END END
@ -319,7 +319,7 @@ END
NUMERO 38 NUMERO 38
BEGIN BEGIN
KEY "I9-7 Altr.ind.erog. 74-94" KEY "I9-7 Altr.ind.erog. 74-94"
PROMPT 23 17 "" PROMPT 27 17 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->B0AI7492 FIELD 36->B0AI7492
END END
@ -359,7 +359,7 @@ END
NUMERO 43 NUMERO 43
BEGIN BEGIN
KEY "I10-12 Ritenute operate SA" KEY "I10-12 Ritenute operate SA"
PROMPT 23 19 "" PROMPT 27 19 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->B0ROPESA FIELD 36->B0ROPESA
END END
@ -407,7 +407,7 @@ END
NUMERO 49 NUMERO 49
BEGIN BEGIN
KEY "I11-2 N.dip." KEY "I11-2 N.dip."
PROMPT 38 21 "" PROMPT 36 21 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 36->B1NPER FIELD 36->B1NPER
END END
@ -447,7 +447,7 @@ END
NUMERO 54 NUMERO 54
BEGIN BEGIN
KEY "I12-2 N.dip." KEY "I12-2 N.dip."
PROMPT 38 23 "" PROMPT 36 23 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 36->C0NLASS FIELD 36->C0NLASS
END END
@ -487,7 +487,7 @@ END
NUMERO 59 NUMERO 59
BEGIN BEGIN
KEY "I13-7 Cred.imp.impr.autot." KEY "I13-7 Cred.imp.impr.autot."
PROMPT 23 25 "" PROMPT 27 25 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->C0CIIAUT FIELD 36->C0CIIAUT
END END
@ -511,7 +511,7 @@ END
NUMERO 62 NUMERO 62
BEGIN BEGIN
KEY "I14-2 N.dip." KEY "I14-2 N.dip."
PROMPT 38 27 "" PROMPT 36 27 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 36->D0NLAUT FIELD 36->D0NLAUT
END END
@ -551,7 +551,7 @@ END
NUMERO 67 NUMERO 67
BEGIN BEGIN
KEY "I15-7 Cred.imp.pre.assun. " KEY "I15-7 Cred.imp.pre.assun. "
PROMPT 23 27 "" PROMPT 27 29 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->D0CRIMPRAS FIELD 36->D0CRIMPRAS
END END
@ -559,7 +559,7 @@ END
NUMERO 68 NUMERO 68
BEGIN BEGIN
KEY "I15-8 Cred.imp.ex L.85/95 " KEY "I15-8 Cred.imp.ex L.85/95 "
PROMPT 50 27 "" PROMPT 50 29 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->D0CRIMP85 FIELD 36->D0CRIMP85
END END
@ -567,7 +567,7 @@ END
NUMERO 69 NUMERO 69
BEGIN BEGIN
KEY "I16-1 N.fogli" KEY "I16-1 N.fogli"
PROMPT 23 29 "" PROMPT 23 31 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 36->D1NFCOM FIELD 36->D1NFCOM
END END
@ -575,7 +575,7 @@ END
NUMERO 70 NUMERO 70
BEGIN BEGIN
KEY "I16-2 N.dip." KEY "I16-2 N.dip."
PROMPT 38 29 "" PROMPT 36 31 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 36->D1NPER FIELD 36->D1NPER
END END
@ -583,7 +583,7 @@ END
NUMERO 71 NUMERO 71
BEGIN BEGIN
KEY "I16-3 Ammont.corris.totale" KEY "I16-3 Ammont.corris.totale"
PROMPT 50 29 "" PROMPT 50 31 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->D1TACOR FIELD 36->D1TACOR
END END
@ -591,7 +591,7 @@ END
NUMERO 72 NUMERO 72
BEGIN BEGIN
KEY "I16-4 Somme non sogg.rit. " KEY "I16-4 Somme non sogg.rit. "
PROMPT 72 29 "" PROMPT 72 31 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->D1SNSRIT FIELD 36->D1SNSRIT
END END
@ -599,7 +599,7 @@ END
NUMERO 73 NUMERO 73
BEGIN BEGIN
KEY "I16-5 Ritenute operate " KEY "I16-5 Ritenute operate "
PROMPT 94 29 "" PROMPT 94 31 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->D1ROPE FIELD 36->D1ROPE
END END
@ -607,7 +607,7 @@ END
NUMERO 74 NUMERO 74
BEGIN BEGIN
KEY "I16-6 Cred.imp.pre.assun. " KEY "I16-6 Cred.imp.pre.assun. "
PROMPT 116 29 "" PROMPT 116 31 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 36->D1CRIMPRAS FIELD 36->D1CRIMPRAS
END END
@ -615,7 +615,7 @@ END
NUMERO 75 NUMERO 75
BEGIN BEGIN
KEY "I17-1 N.fogli" KEY "I17-1 N.fogli"
PROMPT 23 31 "" PROMPT 23 33 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 37->E0NFCOM FIELD 37->E0NFCOM
END END
@ -623,7 +623,7 @@ END
NUMERO 76 NUMERO 76
BEGIN BEGIN
KEY "I17-2 N.dip." KEY "I17-2 N.dip."
PROMPT 38 31 "" PROMPT 36 33 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 37->E0NPER FIELD 37->E0NPER
END END
@ -631,7 +631,7 @@ END
NUMERO 77 NUMERO 77
BEGIN BEGIN
KEY "I17-3 Ammontare imponibile" KEY "I17-3 Ammontare imponibile"
PROMPT 50 31 "" PROMPT 50 33 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E0AIMP FIELD 37->E0AIMP
END END
@ -639,7 +639,7 @@ END
NUMERO 78 NUMERO 78
BEGIN BEGIN
KEY "I17-4 Ritenute operate " KEY "I17-4 Ritenute operate "
PROMPT 72 31 "" PROMPT 72 33 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E0ROPE FIELD 37->E0ROPE
END END
@ -647,7 +647,7 @@ END
NUMERO 79 NUMERO 79
BEGIN BEGIN
KEY "I17-5 Somme non sogg.rit. " KEY "I17-5 Somme non sogg.rit. "
PROMPT 94 31 "" PROMPT 94 33 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E0SNSRIT FIELD 37->E0SNSRIT
END END
@ -655,7 +655,7 @@ END
NUMERO 80 NUMERO 80
BEGIN BEGIN
KEY "I17-6 Cred.imp.pre.assun. " KEY "I17-6 Cred.imp.pre.assun. "
PROMPT 116 31 "" PROMPT 116 33 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E0CRIMPRAS FIELD 37->E0CRIMPRAS
END END
@ -663,7 +663,7 @@ END
NUMERO 81 NUMERO 81
BEGIN BEGIN
KEY "I18-1 N.fogli" KEY "I18-1 N.fogli"
PROMPT 23 33 "" PROMPT 23 35 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 37->E1NFCOM FIELD 37->E1NFCOM
END END
@ -671,7 +671,7 @@ END
NUMERO 82 NUMERO 82
BEGIN BEGIN
KEY "I18-2 N.dip." KEY "I18-2 N.dip."
PROMPT 38 33 "" PROMPT 36 35 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 37->E1NPER FIELD 37->E1NPER
END END
@ -679,7 +679,7 @@ END
NUMERO 83 NUMERO 83
BEGIN BEGIN
KEY "I18-3 Somme corrisposte " KEY "I18-3 Somme corrisposte "
PROMPT 50 33 "" PROMPT 50 35 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E1SCOR FIELD 37->E1SCOR
END END
@ -687,7 +687,7 @@ END
NUMERO 84 NUMERO 84
BEGIN BEGIN
KEY "I18-4 Base commisurazione " KEY "I18-4 Base commisurazione "
PROMPT 72 33 "" PROMPT 72 35 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E1BCOM FIELD 37->E1BCOM
END END
@ -695,7 +695,7 @@ END
NUMERO 85 NUMERO 85
BEGIN BEGIN
KEY "I18-5 Ritenute operate " KEY "I18-5 Ritenute operate "
PROMPT 94 33 "" PROMPT 94 35 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E1ROPE FIELD 37->E1ROPE
END END
@ -703,7 +703,7 @@ END
NUMERO 86 NUMERO 86
BEGIN BEGIN
KEY "I18-6 Ammontare compless. " KEY "I18-6 Ammontare compless. "
PROMPT 116 33 "" PROMPT 116 35 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E1ACOM FIELD 37->E1ACOM
END END
@ -711,7 +711,7 @@ END
NUMERO 87 NUMERO 87
BEGIN BEGIN
KEY "I19-7 Base commisurazione " KEY "I19-7 Base commisurazione "
PROMPT 23 35 "" PROMPT 27 37 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E1BCOM2 FIELD 37->E1BCOM2
END END
@ -719,7 +719,7 @@ END
NUMERO 88 NUMERO 88
BEGIN BEGIN
KEY "I19-8 Ritenute operate " KEY "I19-8 Ritenute operate "
PROMPT 50 35 "" PROMPT 50 37 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E1ROPE2 FIELD 37->E1ROPE2
END END
@ -727,7 +727,7 @@ END
NUMERO 89 NUMERO 89
BEGIN BEGIN
KEY "I19-9 Cred.imp.pre.assun. " KEY "I19-9 Cred.imp.pre.assun. "
PROMPT 72 35 "" PROMPT 72 37 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E1CRIMPRAS FIELD 37->E1CRIMPRAS
END END
@ -735,7 +735,7 @@ END
NUMERO 90 NUMERO 90
BEGIN BEGIN
KEY "I20-1 N.fogli" KEY "I20-1 N.fogli"
PROMPT 23 37 "" PROMPT 23 39 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 37->E2NFCOM FIELD 37->E2NFCOM
END END
@ -743,7 +743,7 @@ END
NUMERO 91 NUMERO 91
BEGIN BEGIN
KEY "I20-2 N.dip." KEY "I20-2 N.dip."
PROMPT 38 37 "" PROMPT 36 39 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 37->E2NPER FIELD 37->E2NPER
END END
@ -751,7 +751,7 @@ END
NUMERO 92 NUMERO 92
BEGIN BEGIN
KEY "I20-3 Somme sogg. ritenute " KEY "I20-3 Somme sogg. ritenute "
PROMPT 50 37 "" PROMPT 50 39 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E2SSRIT FIELD 37->E2SSRIT
END END
@ -759,7 +759,7 @@ END
NUMERO 93 NUMERO 93
BEGIN BEGIN
KEY "I20-4 Ritenute operate " KEY "I20-4 Ritenute operate "
PROMPT 72 37 "" PROMPT 72 39 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E2ROPE FIELD 37->E2ROPE
END END
@ -767,7 +767,7 @@ END
NUMERO 94 NUMERO 94
BEGIN BEGIN
KEY "I20-5 Cred.imp.pre.assun. " KEY "I20-5 Cred.imp.pre.assun. "
PROMPT 94 37 "" PROMPT 94 39 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->E2CRIMPRAS FIELD 37->E2CRIMPRAS
END END
@ -775,7 +775,7 @@ END
NUMERO 95 NUMERO 95
BEGIN BEGIN
KEY "I21-1 Som.sog.rit.(pros.A)" KEY "I21-1 Som.sog.rit.(pros.A)"
PROMPT 23 39 "" PROMPT 27 41 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F0SRITA FIELD 37->F0SRITA
END END
@ -783,7 +783,7 @@ END
NUMERO 96 NUMERO 96
BEGIN BEGIN
KEY "I21-2 Rit.operate(pros.A) " KEY "I21-2 Rit.operate(pros.A) "
PROMPT 50 39 "" PROMPT 50 41 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F0ROPEA FIELD 37->F0ROPEA
END END
@ -791,7 +791,7 @@ END
NUMERO 97 NUMERO 97
BEGIN BEGIN
KEY "I21-3 Tot.acconti (pros.A)" KEY "I21-3 Tot.acconti (pros.A)"
PROMPT 72 39 "" PROMPT 72 41 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F0TACCA FIELD 37->F0TACCA
END END
@ -799,7 +799,7 @@ END
NUMERO 98 NUMERO 98
BEGIN BEGIN
KEY "I21-4 Ecc.dim.acc.(pros.A)" KEY "I21-4 Ecc.dim.acc.(pros.A)"
PROMPT 94 39 "" PROMPT 94 41 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F0EDACCA FIELD 37->F0EDACCA
END END
@ -807,7 +807,7 @@ END
NUMERO 99 NUMERO 99
BEGIN BEGIN
KEY "I21-5 Ecc. rimbor.(pros.A)" KEY "I21-5 Ecc. rimbor.(pros.A)"
PROMPT 116 39 "" PROMPT 116 41 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F0ERIMA FIELD 37->F0ERIMA
END END
@ -815,7 +815,7 @@ END
NUMERO 100 NUMERO 100
BEGIN BEGIN
KEY "I22-6 Somme sog.VA(pros.A)" KEY "I22-6 Somme sog.VA(pros.A)"
PROMPT 23 41 "" PROMPT 27 43 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F0SSVA FIELD 37->F0SSVA
END END
@ -823,7 +823,7 @@ END
NUMERO 101 NUMERO 101
BEGIN BEGIN
KEY "I22-7 Rit.oper.VA (pros.A)" KEY "I22-7 Rit.oper.VA (pros.A)"
PROMPT 50 41 "" PROMPT 50 43 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F0ROPEVA FIELD 37->F0ROPEVA
END END
@ -831,7 +831,7 @@ END
NUMERO 102 NUMERO 102
BEGIN BEGIN
KEY "I22-8 Som.sogg.rit.(BCDEF)" KEY "I22-8 Som.sogg.rit.(BCDEF)"
PROMPT 72 41 "" PROMPT 72 43 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F0SSRITBF FIELD 37->F0SSRITBF
END END
@ -839,7 +839,7 @@ END
NUMERO 103 NUMERO 103
BEGIN BEGIN
KEY "I22-9 Rit.op.(p.B,C,D,E,F)" KEY "I22-9 Rit.op.(p.B,C,D,E,F)"
PROMPT 94 41 "" PROMPT 94 43 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F0ROPEBF FIELD 37->F0ROPEBF
END END
@ -847,7 +847,7 @@ END
NUMERO 104 NUMERO 104
BEGIN BEGIN
KEY "I22-10 Cred.imp.pre.assun. " KEY "I22-10 Cred.imp.pre.assun. "
PROMPT 116 41 "" PROMPT 116 43 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F0CRIMPRAS FIELD 37->F0CRIMPRAS
END END
@ -855,7 +855,7 @@ END
NUMERO 105 NUMERO 105
BEGIN BEGIN
KEY "I23-1 Som.sogg.rit.(p.A,B)" KEY "I23-1 Som.sogg.rit.(p.A,B)"
PROMPT 23 43 "" PROMPT 27 45 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F1SSRIT FIELD 37->F1SSRIT
END END
@ -863,7 +863,7 @@ END
NUMERO 106 NUMERO 106
BEGIN BEGIN
KEY "I23-2 Riten.operat.(p.A,B)" KEY "I23-2 Riten.operat.(p.A,B)"
PROMPT 50 43 "" PROMPT 50 45 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F1ROPE FIELD 37->F1ROPE
END END
@ -871,7 +871,7 @@ END
NUMERO 107 NUMERO 107
BEGIN BEGIN
KEY "I23-3 Cred.imp.pre.assun. " KEY "I23-3 Cred.imp.pre.assun. "
PROMPT 72 43 "" PROMPT 72 45 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F1CRIMPRAS FIELD 37->F1CRIMPRAS
END END
@ -879,7 +879,7 @@ END
NUMERO 108 NUMERO 108
BEGIN BEGIN
KEY "I24-1 Somme sogg. ritenute" KEY "I24-1 Somme sogg. ritenute"
PROMPT 23 45 "" PROMPT 27 47 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F2SSRIT FIELD 37->F2SSRIT
END END
@ -887,7 +887,7 @@ END
NUMERO 109 NUMERO 109
BEGIN BEGIN
KEY "I24-2 Ritenute operate " KEY "I24-2 Ritenute operate "
PROMPT 50 45 "" PROMPT 50 47 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F2ROPE FIELD 37->F2ROPE
END END
@ -895,7 +895,7 @@ END
NUMERO 110 NUMERO 110
BEGIN BEGIN
KEY "I24-3 Cred.imp.pre.assun. " KEY "I24-3 Cred.imp.pre.assun. "
PROMPT 72 45 "" PROMPT 72 47 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->F2CRIMPRAS FIELD 37->F2CRIMPRAS
END END
@ -903,7 +903,7 @@ END
NUMERO 111 NUMERO 111
BEGIN BEGIN
KEY "I25-1 N.fogli" KEY "I25-1 N.fogli"
PROMPT 23 47 "" PROMPT 23 49 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 37->G0NFCOM FIELD 37->G0NFCOM
END END
@ -911,7 +911,7 @@ END
NUMERO 112 NUMERO 112
BEGIN BEGIN
KEY "I125-2 N.dip." KEY "I125-2 N.dip."
PROMPT 38 47 "" PROMPT 36 49 ""
PICTURE "##.###" PICTURE "##.###"
FIELD 37->G0NPER FIELD 37->G0NPER
END END
@ -919,7 +919,7 @@ END
NUMERO 113 NUMERO 113
BEGIN BEGIN
KEY "I25-3 Utili spettanti " KEY "I25-3 Utili spettanti "
PROMPT 50 47 "" PROMPT 50 49 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0USPE FIELD 37->G0USPE
END END
@ -927,7 +927,7 @@ END
NUMERO 114 NUMERO 114
BEGIN BEGIN
KEY "I25-4 Rit.utili spettanti " KEY "I25-4 Rit.utili spettanti "
PROMPT 72 47 "" PROMPT 72 49 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0RITSPET FIELD 37->G0RITSPET
END END
@ -935,7 +935,7 @@ END
NUMERO 115 NUMERO 115
BEGIN BEGIN
KEY "I25-5 Utili pagati " KEY "I25-5 Utili pagati "
PROMPT 94 47 "" PROMPT 94 49 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0UPAG FIELD 37->G0UPAG
END END
@ -943,7 +943,7 @@ END
NUMERO 116 NUMERO 116
BEGIN BEGIN
KEY "I25-6 Rit. su utili pagati" KEY "I25-6 Rit. su utili pagati"
PROMPT 116 47 "" PROMPT 116 49 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0ROPE FIELD 37->G0ROPE
END END
@ -951,7 +951,7 @@ END
NUMERO 117 NUMERO 117
BEGIN BEGIN
KEY "I26-7 Azioni o quote(pr.1)" KEY "I26-7 Azioni o quote(pr.1)"
PROMPT 23 49 "" PROMPT 27 51 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0NAZI1 FIELD 37->G0NAZI1
END END
@ -959,7 +959,7 @@ END
NUMERO 118 NUMERO 118
BEGIN BEGIN
KEY "I26-8 Utili denaro (pr.1) " KEY "I26-8 Utili denaro (pr.1) "
PROMPT 50 49 "" PROMPT 50 51 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0UDEN1 FIELD 37->G0UDEN1
END END
@ -967,7 +967,7 @@ END
NUMERO 120 NUMERO 120
BEGIN BEGIN
KEY "I26-9 Utili natura (pr.1) " KEY "I26-9 Utili natura (pr.1) "
PROMPT 72 49 "" PROMPT 72 51 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0UNAT1 FIELD 37->G0UNAT1
END END
@ -975,7 +975,7 @@ END
NUMERO 121 NUMERO 121
BEGIN BEGIN
KEY "I26-10 Importo utili (pr.2)" KEY "I26-10 Importo utili (pr.2)"
PROMPT 94 49 "" PROMPT 94 51 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0IUTI2 FIELD 37->G0IUTI2
END END
@ -983,7 +983,7 @@ END
NUMERO 122 NUMERO 122
BEGIN BEGIN
KEY "I26-11 Util.sogg.rit.(pr.3)" KEY "I26-11 Util.sogg.rit.(pr.3)"
PROMPT 116 49 "" PROMPT 116 51 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0USRIT3 FIELD 37->G0USRIT3
END END
@ -991,7 +991,7 @@ END
NUMERO 123 NUMERO 123
BEGIN BEGIN
KEY "I27-12 Ritenuta acc.(pr.3) " KEY "I27-12 Ritenuta acc.(pr.3) "
PROMPT 23 49 "" PROMPT 23 53 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0RACC3 FIELD 37->G0RACC3
END END
@ -999,7 +999,7 @@ END
NUMERO 124 NUMERO 124
BEGIN BEGIN
KEY "I27-13 Riten. impos.(pr.3) " KEY "I27-13 Riten. impos.(pr.3) "
PROMPT 50 49 "" PROMPT 50 53 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0RIMP3 FIELD 37->G0RIMP3
END END
@ -1007,7 +1007,7 @@ END
NUMERO 125 NUMERO 125
BEGIN BEGIN
KEY "I27-14 Ut.non sogg.rit.(p3)" KEY "I27-14 Ut.non sogg.rit.(p3)"
PROMPT 72 49 "" PROMPT 72 53 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0UNSRIT3 FIELD 37->G0UNSRIT3
END END
@ -1015,7 +1015,7 @@ END
NUMERO 126 NUMERO 126
BEGIN BEGIN
KEY "I27-15 Cred.imp.pre.assun. " KEY "I27-15 Cred.imp.pre.assun. "
PROMPT 94 49 "" PROMPT 94 53 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0CRIMPRAS FIELD 37->G0CRIMPRAS
END END
@ -1023,7 +1023,7 @@ END
NUMERO 127 NUMERO 127
BEGIN BEGIN
KEY "I28-1 Utili corrisposti " KEY "I28-1 Utili corrisposti "
PROMPT 23 51 "" PROMPT 27 55 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G1UCOR FIELD 37->G1UCOR
END END
@ -1031,7 +1031,7 @@ END
NUMERO 128 NUMERO 128
BEGIN BEGIN
KEY "I28-2 Utili sogg. ritenute" KEY "I28-2 Utili sogg. ritenute"
PROMPT 50 51 "" PROMPT 50 55 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G1USRIT FIELD 37->G1USRIT
END END
@ -1039,7 +1039,7 @@ END
NUMERO 129 NUMERO 129
BEGIN BEGIN
KEY "I28-3 Ritenute di acconto " KEY "I28-3 Ritenute di acconto "
PROMPT 72 51 "" PROMPT 72 55 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G1RACC FIELD 37->G1RACC
END END
@ -1047,7 +1047,7 @@ END
NUMERO 130 NUMERO 130
BEGIN BEGIN
KEY "I28-4 Ritenute di imposta " KEY "I28-4 Ritenute di imposta "
PROMPT 94 51 "" PROMPT 94 55 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G1RIMP FIELD 37->G1RIMP
END END
@ -1055,7 +1055,7 @@ END
NUMERO 131 NUMERO 131
BEGIN BEGIN
KEY "I28-5 Utili non sogg.rit. " KEY "I28-5 Utili non sogg.rit. "
PROMPT 116 51 "" PROMPT 116 55 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G1UNSRIT FIELD 37->G1UNSRIT
END END
@ -1063,7 +1063,7 @@ END
NUMERO 132 NUMERO 132
BEGIN BEGIN
KEY "I29-6 Cred.imp.pre.assun. " KEY "I29-6 Cred.imp.pre.assun. "
PROMPT 23 53 "" PROMPT 27 57 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G1CRIMPRAS FIELD 37->G1CRIMPRAS
END END
@ -1071,7 +1071,7 @@ END
NUMERO 133 NUMERO 133
BEGIN BEGIN
KEY "I30-1 Cont.obb.car.dat.lav" KEY "I30-1 Cont.obb.car.dat.lav"
PROMPT 23 55 "" PROMPT 27 59 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->H0CODLAV FIELD 37->H0CODLAV
END END
@ -1079,7 +1079,7 @@ END
NUMERO 134 NUMERO 134
BEGIN BEGIN
KEY "I30-2 Cont.ob.car.lav.dip." KEY "I30-2 Cont.ob.car.lav.dip."
PROMPT 50 55 "" PROMPT 50 59 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->H0COLDIP FIELD 37->H0COLDIP
END END

9
m770/77base3.frm
View File

@ -115,14 +115,14 @@ END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "Luogo Vers." KEY "Luogo Vers."
PROMPT 28 3 "" PROMPT 26 3 ""
FIELD 42->QLLV FIELD 42->QLLV
END END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "Tipo Vers." KEY "Tipo Vers."
PROMPT 36 3 "" PROMPT 34 3 ""
FIELD 42->QLTV FIELD 42->QLTV
END END
@ -153,6 +153,7 @@ BEGIN
KEY "NUMERO" KEY "NUMERO"
PROMPT 99 3 "" PROMPT 99 3 ""
FIELD 42->QLNUMERO FIELD 42->QLNUMERO
PICTURE "#####^^^^^^"
END END
END END
@ -162,14 +163,14 @@ SECTION FOOTER LAST 2
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "Tot.rit.eff" KEY "Tot.rit.eff"
PROMPT 51 1 "" PROMPT 61 1 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "Tot.rit.ver" KEY "Tot.rit.ver"
PROMPT 102 1 "" PROMPT 112 1 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END

148
m770/77base4.frm
View File

@ -219,126 +219,54 @@ SECTION HEADER EVEN 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "P Imp.versata" KEY "PS Imp.versata"
PROMPT 24 1 "" PROMPT 24 1 ""
FIELD 73->IMPOSTA
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "P Inter.lav.dip" KEY "PS Inter.lav.dip"
PROMPT 41 1 "" PROMPT 41 1 ""
FIELD 73->INTERDIP
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "P Inter.dat.lav." KEY "PS Inter.dat.lav."
PROMPT 56 1 "" PROMPT 56 1 ""
FIELD 73->INTERDAT
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "P Modalita' vers" KEY "PS Modalita' vers"
PROMPT 76 1 "" PROMPT 76 1 ""
FIELD 73->TIPOVERS
END END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "P Cod.trib" KEY "PS Cod.trib"
PROMPT 82 1 "" PROMPT 82 1 ""
FIELD 73->CODTRIB
END END
STRINGA 6 DATA 6
BEGIN BEGIN
KEY "P DATA VERS." KEY "PS DATA VERS."
PROMPT 89 1 "" PROMPT 89 1 ""
FIELD 73->DATAVERS PICTURE " ## ^ ## ^####"
PICTURE "## ^ ## ^####"
END END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "P Serie" KEY "PS Serie"
PROMPT 108 1 "" PROMPT 108 1 ""
FIELD 73->SERIE
END END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "P Numero" KEY "PS Numero"
PROMPT 117 1 "" PROMPT 117 1 ""
FIELD 73->NUMERO
END
END
SECTION HEADER ODD 1
NUMERO 1
BEGIN
KEY "S Imp.versata"
PROMPT 24 1 ""
FIELD 76->IMPOSTA
PICTURE "###.###.###.###^^^"
END
NUMERO 2
BEGIN
KEY "S Inter.lav.dip"
PROMPT 41 1 ""
FIELD 76->INTERDIP
PICTURE "###.###.###.###^^^"
END
NUMERO 3
BEGIN
KEY "S Inter.dat.lav."
PROMPT 56 1 ""
FIELD 76->INTERDAT
PICTURE "###.###.###.###^^^"
END
STRINGA 4
BEGIN
KEY "S Modalita' vers"
PROMPT 76 1 ""
FIELD 73->TIPOVERS
END
STRINGA 5
BEGIN
KEY "S Cod.trib"
PROMPT 82 1 ""
FIELD 76->CODTRIB
END
STRINGA 6
BEGIN
KEY "S DATA VERS."
PROMPT 89 1 ""
FIELD 76->DATAVERS
PICTURE "## ^ ## ^####"
END
STRINGA 7
BEGIN
KEY "S Serie"
PROMPT 108 1 ""
FIELD 76->SERIE
END
STRINGA 8
BEGIN
KEY "S Numero"
PROMPT 117 1 ""
FIELD 76->NUMERO
END END
END END
@ -446,188 +374,188 @@ SECTION FOOTER FIRST 25
STRINGA 650 STRINGA 650
BEGIN BEGIN
KEY "Quadro A" KEY "Quadro A"
PROMPT 19 3 "" PROMPT 21 3 ""
FIELD 37->QCOMP[1,1] FIELD 37->QCOMP[1,1]
END END
STRINGA 653 STRINGA 653
BEGIN BEGIN
KEY "Quadro A3" KEY "Quadro A3"
PROMPT 24 3 "" PROMPT 26 3 ""
FIELD 37->QCOMP[4,4] FIELD 37->QCOMP[4,4]
END END
STRINGA 660 STRINGA 660
BEGIN BEGIN
KEY "Quadro B" KEY "Quadro B"
PROMPT 29 3 "" PROMPT 31 3 ""
FIELD 37->QCOMP[5,5] FIELD 37->QCOMP[5,5]
END END
STRINGA 661 STRINGA 661
BEGIN BEGIN
KEY "Quadro B1" KEY "Quadro B1"
PROMPT 34 3 "" PROMPT 36 3 ""
FIELD 37->QCOMP[6,6] FIELD 37->QCOMP[6,6]
END END
STRINGA 670 STRINGA 670
BEGIN BEGIN
KEY "Quadro C" KEY "Quadro C"
PROMPT 39 3 "" PROMPT 41 3 ""
FIELD 37->QCOMP[7,7] FIELD 37->QCOMP[7,7]
END END
STRINGA 680 STRINGA 680
BEGIN BEGIN
KEY "Quadro D" KEY "Quadro D"
PROMPT 44 3 "" PROMPT 46 3 ""
FIELD 37->QCOMP[8,8] FIELD 37->QCOMP[8,8]
END END
STRINGA 681 STRINGA 681
BEGIN BEGIN
KEY "Quadro D1" KEY "Quadro D1"
PROMPT 49 3 "" PROMPT 51 3 ""
FIELD 37->QCOMP[9,9] FIELD 37->QCOMP[9,9]
END END
STRINGA 690 STRINGA 690
BEGIN BEGIN
KEY "Quadro E" KEY "Quadro E"
PROMPT 54 3 "" PROMPT 56 3 ""
FIELD 37->QCOMP[10,10] FIELD 37->QCOMP[10,10]
END END
STRINGA 691 STRINGA 691
BEGIN BEGIN
KEY "Quadro E1" KEY "Quadro E1"
PROMPT 60 3 "" PROMPT 62 3 ""
FIELD 37->QCOMP[11,11] FIELD 37->QCOMP[11,11]
END END
STRINGA 692 STRINGA 692
BEGIN BEGIN
KEY "Quadro E2" KEY "Quadro E2"
PROMPT 65 3 "" PROMPT 67 3 ""
FIELD 37->QCOMP[12,12] FIELD 37->QCOMP[12,12]
END END
STRINGA 700 STRINGA 700
BEGIN BEGIN
KEY "Quadro F" KEY "Quadro F"
PROMPT 70 3 "" PROMPT 72 3 ""
FIELD 37->QCOMP[13,13] FIELD 37->QCOMP[13,13]
END END
STRINGA 701 STRINGA 701
BEGIN BEGIN
KEY "Quadro F1" KEY "Quadro F1"
PROMPT 75 3 "" PROMPT 77 3 ""
FIELD 37->QCOMP[14,14] FIELD 37->QCOMP[14,14]
END END
STRINGA 702 STRINGA 702
BEGIN BEGIN
KEY "Quadro F2" KEY "Quadro F2"
PROMPT 80 3 "" PROMPT 82 3 ""
FIELD 37->QCOMP[15,15] FIELD 37->QCOMP[15,15]
END END
STRINGA 710 STRINGA 710
BEGIN BEGIN
KEY "Quadro G" KEY "Quadro G"
PROMPT 85 3 "" PROMPT 87 3 ""
FIELD 37->QCOMP[16,16] FIELD 37->QCOMP[16,16]
END END
STRINGA 711 STRINGA 711
BEGIN BEGIN
KEY "Quadro G1" KEY "Quadro G1"
PROMPT 90 3 "" PROMPT 92 3 ""
FIELD 37->QCOMP[17,17] FIELD 37->QCOMP[17,17]
END END
STRINGA 720 STRINGA 720
BEGIN BEGIN
KEY "Quadro H" KEY "Quadro H"
PROMPT 95 3 "" PROMPT 97 3 ""
FIELD 37->QCOMP[18,18] FIELD 37->QCOMP[18,18]
END END
STRINGA 730 STRINGA 730
BEGIN BEGIN
KEY "Quadro I" KEY "Quadro I"
PROMPT 100 3 "" PROMPT 102 3 ""
FIELD 37->QCOMP[19,19] FIELD 37->QCOMP[19,19]
END END
STRINGA 651 STRINGA 651
BEGIN BEGIN
KEY "Quadro A1" KEY "Quadro A1"
PROMPT 19 7 "" PROMPT 21 7 ""
FIELD 37->QCOMP[2,2] FIELD 37->QCOMP[2,2]
END END
STRINGA 652 STRINGA 652
BEGIN BEGIN
KEY "Quadro A2" KEY "Quadro A2"
PROMPT 24 7 "" PROMPT 26 7 ""
FIELD 37->QCOMP[3,3] FIELD 37->QCOMP[3,3]
END END
STRINGA 760 STRINGA 760
BEGIN BEGIN
KEY "Quadro N" KEY "Quadro N"
PROMPT 29 7 "" PROMPT 31 7 ""
FIELD 37->QCOMP[20,20] FIELD 37->QCOMP[20,20]
END END
STRINGA 780 STRINGA 780
BEGIN BEGIN
KEY "Quadro P" KEY "Quadro P"
PROMPT 35 7 "" PROMPT 37 7 ""
FIELD 37->QCOMP[21,21] FIELD 37->QCOMP[21,21]
END END
STRINGA 790 STRINGA 790
BEGIN BEGIN
KEY "Quadro Q" KEY "Quadro Q"
PROMPT 40 7 "" PROMPT 42 7 ""
FIELD 37->QCOMP[22,22] FIELD 37->QCOMP[22,22]
END END
STRINGA 800 STRINGA 800
BEGIN BEGIN
KEY "Quadro R" KEY "Quadro R"
PROMPT 45 7 "" PROMPT 47 7 ""
FIELD 37->QCOMP[23,23] FIELD 37->QCOMP[23,23]
END END
STRINGA 810 STRINGA 810
BEGIN BEGIN
KEY "Quadro S" KEY "Quadro S"
PROMPT 50 7 "" PROMPT 52 7 ""
FIELD 37->QCOMP[24,24] FIELD 37->QCOMP[24,24]
END END
STRINGA 820 STRINGA 820
BEGIN BEGIN
KEY "Quadro T" KEY "Quadro T"
PROMPT 55 7 "" PROMPT 57 7 ""
FIELD 37->QCOMP[25,25] FIELD 37->QCOMP[25,25]
END END
STRINGA 821 STRINGA 821
BEGIN BEGIN
PROMPT 80 9 "" PROMPT 85 9 ""
KEY "Numero quadri aggiuntivi" KEY "Numero quadri aggiuntivi L P Q S T"
FIELD 37->H0NQLAGG FIELD 37->H0NQLAGG
END END
STRINGA 822 STRINGA 822
BEGIN BEGIN
PROMPT 72 11 "" PROMPT 75 11 ""
KEY "Numero quadri su supporto magnetico" KEY "Numero quadri su supporto magnetico"
FIELD 37->NSUPPM FIELD 37->NSUPPM
END END

56
m770/77stba.cpp
View File

@ -1,6 +1,7 @@
// Stampa base // Stampa base
#include "77stba.h" #include "77stba.h"
TBase1::TBase1(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) TBase1::TBase1(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro)
{ {
r = new TRelation(LF_SOCI); r = new TRelation(LF_SOCI);
@ -32,12 +33,13 @@ void TBase1::stampa_corpo(TPrinter& pr)
progind()->addstatus(1); progind()->addstatus(1);
} }
// accetta solo quelli con qualifica=A,B o C // accetta solo quelli ATTUALI E con qualifica=A,B o C
bool bFiltraSoci(const TRelation* rel) bool bFiltraSoci(const TRelation* rel)
{ {
TString sQual(3); TString sQual(3), sAttPrec(3);
sQual = rel->lfile().get("RICQUAL"); sQual = rel->lfile().get("RICQUAL");
return sQual=="A" || sQual=="B" || sQual=="C"; sAttPrec = rel->lfile().get("ATTPREC");
return (sAttPrec == "A") && (sQual=="A" || sQual=="B" || sQual=="C");
} }
long TBase1::iContaSoci() long TBase1::iContaSoci()
@ -50,6 +52,8 @@ long TBase1::iContaSoci()
return c->items(); return c->items();
} }
const int _INIZIO_SOCI=53;
void TBase1::stampa_soci(TPrinter& pr) void TBase1::stampa_soci(TPrinter& pr)
{ {
TPrint_section& fut = section('F', first_page); TPrint_section& fut = section('F', first_page);
@ -69,11 +73,17 @@ void TBase1::stampa_soci(TPrinter& pr)
{ {
int i=0; int i=0;
TString sRagsoc,sSesso,sComuneNa,sProvNa,sDataNa,sCodFis,sCodQua; TString sRagsoc,sSesso,sComuneNa,sProvNa,sDataNa,sCodFis,sCodQua;
TString sNome,sCognome;
for ((*c)=0L; c->pos() < c->items(); ++(*c)) for ((*c)=0L; c->pos() < c->items(); ++(*c))
{ {
TPrintrow& rg=fut.row(i++); TPrintrow& rg=fut.row(i++);
sCodQua=c->file().get("RICQUAL"); sCodQua=c->file().get("RICQUAL");
sRagsoc=c->file(LF_ANAG).get("RAGSOC"); sRagsoc=c->file(LF_ANAG).get("RAGSOC");
sNome=sRagsoc.mid(30,20);
sCognome=sRagsoc.mid(0,29);
sNome.trim();
sCognome.trim();
sRagsoc=sCognome; sRagsoc << " "; sRagsoc << sNome;
sCodFis=c->file(LF_ANAG).get("COFI"); sCodFis=c->file(LF_ANAG).get("COFI");
sDataNa=c->file(LF_ANAGFIS).get("DATANASC"); sDataNa=c->file(LF_ANAGFIS).get("DATANASC");
sSesso=c->file(LF_ANAGFIS).get("SESSO"); sSesso=c->file(LF_ANAGFIS).get("SESSO");
@ -413,9 +423,27 @@ TRigaPS::TRigaPS(const TLocalisamfile& qt)
_sNumero = rec.get("NUMERO"); _sNumero = rec.get("NUMERO");
} }
const char* TRigaPS::sImposta() const
{
__dep80=_rImp.string();
return __dep80;
}
const char* TRigaPS::sIntDip() const
{
return _rIntDip.string();
}
const char* TRigaPS::sIntDat() const
{
return _rIntDat.string();
}
int TRighePS::fill(const long codditta,TLocalisamfile& ps) int TRighePS::fill(const long codditta,TLocalisamfile& ps)
{ {
long ditta=0L; long ditta=0L;
_data.destroy();
// Si posiziona sul primo della ditta corrente // Si posiziona sul primo della ditta corrente
ps.zero(); ps.zero();
ps.put("CODDITTA",codditta); ps.put("CODDITTA",codditta);
@ -549,17 +577,22 @@ void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
{ {
const TRigaPS& rN = _righePS[num]; const TRigaPS& rN = _righePS[num];
if (i==start) if (i==start)
sVal=rN.sImposta(fi.picture()); sVal=rN.sImposta();
else if (i==start+1) else if (i==start+1)
sVal=rN.sIntDip(fi.picture()); sVal=rN.sIntDip();
else if (i==start+2) else if (i==start+2)
sVal=rN.sIntDat(fi.picture()); sVal=rN.sIntDat();
else if (i==start+3) else if (i==start+3)
sVal=rN.sTipoVers(); sVal=rN.sTipoVers();
else if (i==start+4) else if (i==start+4)
sVal=rN.sCodTrib(); sVal=rN.sCodTrib();
else if (i==start+5) else if (i==start+5)
sVal=rN.sDataVers(fi.picture()); {
TDate dat(rN.sDataVers());
TFormatted_date d(dat);
d.set_format(fi.picture());
sVal=d.string();
}
else if (i==start+6) else if (i==start+6)
sVal=rN.sSerie(); sVal=rN.sSerie();
else if (i==start+7) else if (i==start+7)
@ -568,8 +601,9 @@ void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
else else
sVal=""; sVal="";
fi.set(sVal); fi.set(sVal);
TPrintrow& row=sec.row(0); fi.update();
row.put(sVal,fi.x()-1); // TPrintrow& row=sec.row(0);
// row.put(sVal,fi.x()-1);
} }
} }
@ -586,7 +620,6 @@ void TBase4::stampa_P(TPrinter& pr)
bool FinitaSezione=FALSE; bool FinitaSezione=FALSE;
while (!FinitaSezione) while (!FinitaSezione)
{ {
// Stampa la parte sinistra (primi 4 campi)
fill_riga_PS(body,riga); fill_riga_PS(body,riga);
TPrintrow& rr=body.row(0); TPrintrow& rr=body.row(0);
pr.print(rr); pr.print(rr);
@ -603,7 +636,7 @@ void TBase4::stampa_P(TPrinter& pr)
void TBase4::stampa_S(TPrinter& pr) void TBase4::stampa_S(TPrinter& pr)
{ {
TPrint_section& body = section('H', odd_page); TPrint_section& body = section('H', even_page);
body.reset(); body.reset();
TLocalisamfile qp(LF_QUAS); TLocalisamfile qp(LF_QUAS);
_righePS.fill(_codditta,qp); _righePS.fill(_codditta,qp);
@ -613,7 +646,6 @@ void TBase4::stampa_S(TPrinter& pr)
bool FinitaSezione=FALSE; bool FinitaSezione=FALSE;
while (!FinitaSezione) while (!FinitaSezione)
{ {
// Stampa la parte sinistra (primi 4 campi)
fill_riga_PS(body,riga); fill_riga_PS(body,riga);
TPrintrow& rr=body.row(0); TPrintrow& rr=body.row(0);
pr.print(rr); pr.print(rr);

7
m770/77stba.h
View File

@ -36,8 +36,6 @@ class TBase1 : public TDicForm
virtual ~TBase1(); virtual ~TBase1();
}; };
const int _INIZIO_SOCI=56;
class TBase2 : public TDicForm class TBase2 : public TDicForm
{ {
private: private:
@ -161,7 +159,10 @@ class TRigaPS : public TSortable
virtual int compare(const TSortable& s) const; virtual int compare(const TSortable& s) const;
TRecnotype pos() const { return _pos; } TRecnotype pos() const { return _pos; }
TDate dDataVers() const { return _dDv; } TDate dDataVers() const { return _dDv; }
const char* sDataVers(const char* pic) const { return _dDv.string(); } const char* sDataVers() const { return _dDv.string(); }
const char* sImposta() const;
const char* sIntDip() const;
const char* sIntDat() const;
const char* sImposta(const char* pic) const { return _rImp.string(pic); } const char* sImposta(const char* pic) const { return _rImp.string(pic); }
const char* sIntDip(const char* pic) const { return _rIntDip.string(pic); } const char* sIntDip(const char* pic) const { return _rIntDip.string(pic); }
const char* sIntDat(const char* pic) const { return _rIntDat.string(pic); } const char* sIntDat(const char* pic) const { return _rIntDat.string(pic); }

31
m770/77stq.cpp
View File

@ -45,7 +45,7 @@ TDicForm::TDicForm(const char* form, const char* quadro)
{ {
_can_print_tot_fis = _can_print_tot_nofis = FALSE; _can_print_tot_fis = _can_print_tot_nofis = FALSE;
_GiaStampatiFis = _GiaStampatiNoFis = _GiaMessoStartDoc = FALSE; _GiaStampatiFis = _GiaStampatiNoFis = _GiaMessoStartDoc = FALSE;
_GiaPosizionato = _posiziona = _modulaser = FALSE; _GiaPosizionato = _modulaser = FALSE;
_LastDitta = _EndPrintDitta = _PaginaPosizionamento = FALSE; _LastDitta = _EndPrintDitta = _PaginaPosizionamento = FALSE;
ClearFlagModulaser(); ClearFlagModulaser();
} }
@ -67,25 +67,19 @@ bool TDicForm::InitPrint(const long codditta)
_RigaCorr = 0; _RigaCorr = 0;
TPrinter& pr = printer(); TPrinter& pr = printer();
pr.set_offset(offset_y(), offset_x()); /* pr.set_offset(offset_y(), offset_x());
pr.set_char_size(fontsize()); // Set font name and size pr.set_char_size(fontsize()); // Set font name and size
pr.set_fontname(fontname()); // according to current form pr.set_fontname(fontname()); // according to current form
*/
if (_posiziona && !_GiaPosizionato && pr.printtype() == winprinter) if (!_GiaPosizionato && pr.printtype() == winprinter)
{
posiziona(); posiziona();
#ifdef DBG
if (!yesno_box("Proseguire con la stampa ?"))
return FALSE;
#endif
}
const bool was_open = pr.isopen(); const bool was_open = pr.isopen();
if (!was_open && !pr.open()) if (!was_open && !pr.open())
return FALSE; return FALSE;
set_last_page(FALSE); set_last_page(FALSE);
set_background(1, TRUE); // set_background(1, TRUE);
set_curr_page(PRIMA); set_curr_page(PRIMA);
do_events(); do_events();
@ -215,7 +209,7 @@ bool TDicForm::print(const long codditta, const long NumFis, const long NumNoFis
if (_PaginaCorrente == SECONDA) if (_PaginaCorrente == SECONDA)
{ {
// Reset del flag di pagina con posiz. // Reset del flag di pagina con posiz.
if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE; if (_PaginaPosizionamento) _PaginaPosizionamento = FALSE;
for (int righe=0; righe < QD_RIGHE_SECONDA; righe++) for (int righe=0; righe < QD_RIGHE_SECONDA; righe++)
{ {
if (!righe) if (!righe)
@ -618,8 +612,7 @@ void TDicForm::stampa_testata(TPrinter& pr)
r.reset(); r.reset();
HEADER_PRIMA_NOPOS--; HEADER_PRIMA_NOPOS--;
} }
if (!PaginaPosizionamento()) if (!PaginaPosizionamento()) fill_page(pr, HEADER_PRIMA_NOPOS);
fill_page(pr, HEADER_PRIMA_NOPOS);
} }
pr.print(head.row(j)); pr.print(head.row(j));
@ -1006,7 +999,7 @@ bool TQuadroG::print(const long codditta, const long NumFis, const long NumNoFis
if (_PaginaCorrente == SECONDA) if (_PaginaCorrente == SECONDA)
{ {
// Reset del flag di pagina con posiz. // Reset del flag di pagina con posiz.
if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE; if (_PaginaPosizionamento) _PaginaPosizionamento = FALSE;
fill_page(pr, HEADER_SECONDA_G); fill_page(pr, HEADER_SECONDA_G);
stampa_prospetti3_4(pr); stampa_prospetti3_4(pr);
@ -1232,7 +1225,7 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
if (_PaginaCorrente == SECONDA) if (_PaginaCorrente == SECONDA)
{ {
// Reset del flag di pagina con posiz. // Reset del flag di pagina con posiz.
if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE; if (_PaginaPosizionamento) _PaginaPosizionamento = FALSE;
for (int righe=0; righe < QGD_RIGHE_SECONDA; righe++) for (int righe=0; righe < QGD_RIGHE_SECONDA; righe++)
{ {
if (!righe) if (!righe)
@ -1941,7 +1934,7 @@ bool TQuadroD::print(const long codditta, const long NumFis, const long NumNoFis
if (_PaginaCorrente == SECONDA) if (_PaginaCorrente == SECONDA)
{ {
// Reset del flag di pagina con posiz. // Reset del flag di pagina con posiz.
if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE; if (_PaginaPosizionamento) _PaginaPosizionamento = FALSE;
for (int righe=0; righe < QD_RIGHE_SECONDA; righe++) for (int righe=0; righe < QD_RIGHE_SECONDA; righe++)
{ {
stampa = TRUE; stampa = TRUE;
@ -2396,7 +2389,7 @@ bool TQuadroD1::print(const long codditta, const long NumFis, const long NumNoFi
if (_PaginaCorrente == SECONDA) if (_PaginaCorrente == SECONDA)
{ {
// Reset del flag di pagina con posiz. // Reset del flag di pagina con posiz.
if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE; if (_PaginaPosizionamento) _PaginaPosizionamento = FALSE;
for (int righe=0; righe < QD1_RIGHE_SECONDA; righe++) for (int righe=0; righe < QD1_RIGHE_SECONDA; righe++)
{ {
stampa = TRUE; stampa = TRUE;
@ -3327,7 +3320,7 @@ bool TQuadroF::print(const long codditta, const long numfis, const long numnofis
if (_PaginaCorrente == SECONDA) if (_PaginaCorrente == SECONDA)
{ {
// Reset del flag di pagina con posiz. // Reset del flag di pagina con posiz.
if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE; if (_PaginaPosizionamento) _PaginaPosizionamento = FALSE;
if (End_B && End_C && End_D) if (End_B && End_C && End_D)
break; break;

3
m770/77stq.h
View File

@ -109,7 +109,6 @@ class TDicForm : public TForm
virtual void inc_curr_page(); virtual void inc_curr_page();
virtual void next_page(TPrinter& pr); virtual void next_page(TPrinter& pr);
bool _modulaser; // se stampa per modulaser bool _modulaser; // se stampa per modulaser
bool _posiziona; // se deve fare posizionamento
TipoDitta _tipo_ditta; // tipo ditta: normale, estinto, dichiarante TipoDitta _tipo_ditta; // tipo ditta: normale, estinto, dichiarante
int _num_foglio; // numero foglio int _num_foglio; // numero foglio
TString _cofi_dic; // cod.fis. dichiarante TString _cofi_dic; // cod.fis. dichiarante
@ -147,7 +146,7 @@ class TDicForm : public TForm
long codditta() const { return _codditta; } long codditta() const { return _codditta; }
void set_codditta(const long ditta) { _codditta = ditta; } void set_codditta(const long ditta) { _codditta = ditta; }
void set_posiziona(const bool posiz) { _posiziona = posiz; _GiaPosizionato = FALSE; } void set_posiziona(const bool posiz) { _GiaPosizionato = FALSE; }
void can_print_tot_fis(const bool canpr) { _can_print_tot_fis = canpr; } void can_print_tot_fis(const bool canpr) { _can_print_tot_fis = canpr; }
void can_print_tot_nofis(const bool canpr) { _can_print_tot_nofis = canpr; } void can_print_tot_nofis(const bool canpr) { _can_print_tot_nofis = canpr; }
void set_last_ditta(const bool last) { _LastDitta = last; } void set_last_ditta(const bool last) { _LastDitta = last; }

2
m770/menu_st.uml
View File

@ -114,7 +114,7 @@ BUTTON B_BUST 1 1
BEGIN BEGIN
PROMPT 1 ROW6 "" PROMPT 1 ROW6 ""
PICTURE 123 PICTURE 123
MESSAGE RUN,772MOD,-4,Busta,S MESSAGE RUN,772MOD,-4,BU,S
GROUP 1 GROUP 1
END END
// Fine prima colonna // Fine prima colonna