From 8bc5cff872d25e5cca85ce7cd41b58a2f164f381 Mon Sep 17 00:00:00 2001 From: nik Date: Tue, 10 Sep 1996 08:32:13 +0000 Subject: [PATCH] Stampa base git-svn-id: svn://10.65.10.50/trunk@3562 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- m770/771200.cpp | 3 + m770/771400a.uml | 6 +- m770/77base1.frm | 18 +- m770/77base2.frm | 858 ++++++++++++++++- m770/77base3.frm | 181 ++++ m770/77base4.frm | 688 ++++++++++++++ m770/77busta.frm | 702 +++++++------- m770/77qa.frm | 2280 +++++++++++++++++++++++----------------------- m770/77qa1.frm | 938 +++++++++---------- m770/77qa2.frm | 936 +++++++++---------- m770/77qa3.frm | 864 +++++++++--------- m770/77qb.frm | 688 ++++++++++++++ m770/77qbb.uml | 1420 ++++++++++++++--------------- m770/menu_st.uml | 38 +- m770/menustq.uml | 4 +- 15 files changed, 5974 insertions(+), 3650 deletions(-) create mode 100755 m770/77base3.frm create mode 100755 m770/77base4.frm diff --git a/m770/771200.cpp b/m770/771200.cpp index 8faf7d583..35ef6f1e7 100755 --- a/m770/771200.cpp +++ b/m770/771200.cpp @@ -983,6 +983,9 @@ void TQuadroA::init_modify_mode(TMask& m) void TQuadroA::init_insert_mode(TMask& m) { + if (QuadroA1()) + m.set(QA1F_ANNORIF, _anno_dic); + if (QuadroA3()) { _codditta = m.get_long(QAF_CODDITTA); diff --git a/m770/771400a.uml b/m770/771400a.uml index ec7dc8a88..b5ad626c3 100755 --- a/m770/771400a.uml +++ b/m770/771400a.uml @@ -61,7 +61,6 @@ BEGIN FLAGS "D" KEY 1 FIELD LF_BASEBIS->TIPOQUA -// CHECKTYPE REQUIRED END @@ -97,7 +96,6 @@ BEGIN FIELD LF_BASEBIS->CRIMPDL PICTURE "." FLAGS "R" -// MESSAGE K_TAB,F_M6 END NUMBER F_M4 15 @@ -106,7 +104,7 @@ BEGIN FIELD LF_BASEBIS->CRIMPIVA PICTURE "." FLAGS "R" -// MESSAGE K_TAB,F_M6 + END NUMBER F_M5 15 @@ -115,7 +113,6 @@ BEGIN FIELD LF_BASEBIS->CRIMPRIT PICTURE "." FLAGS "R" -// MESSAGE K_TAB,F_M6 END NUMBER F_M6 15 @@ -124,7 +121,6 @@ BEGIN FIELD LF_BASEBIS->CRIMPRES PICTURE "." FLAGS "D" -// NUM_CALC {#F_M3-#F_M4-#F_M5} END ENDPAGE diff --git a/m770/77base1.frm b/m770/77base1.frm index 29195a530..2b9a67c32 100755 --- a/m770/77base1.frm +++ b/m770/77base1.frm @@ -36,9 +36,9 @@ BEGIN CA "X" IN 3 2 FI 131 -END +END -SECTION BODY FIRST 67 +SECTION BODY FIRST 40 LISTA 1 BEGIN @@ -693,43 +693,43 @@ SECTION FOOTER FIRST 4 STRINGA 82 BEGIN KEY "AMMIN. 1 NOME" - PROMPT 25 54 "" + PROMPT 25 1 "" END STRINGA 83 BEGIN KEY "AMMIN. 1 SESSO" - PROMPT 52 54 "" + PROMPT 52 1 "" END STRINGA 84 BEGIN KEY "AMMIN. 1 COMUNENA" - PROMPT 56 54 "" + PROMPT 56 1 "" END STRINGA 85 BEGIN KEY "AMMIN. 1 PROVNA" - PROMPT 81 54 "" + PROMPT 81 1 "" END STRINGA 86 BEGIN KEY "AMMIN. 1 DATANA" - PROMPT 87 54 "" + PROMPT 87 1 "" END STRINGA 87 BEGIN KEY "AMMIN. 1 CODFIS" - PROMPT 100 54 "" + PROMPT 100 1 "" END STRINGA 88 BEGIN KEY "AMMIN. 1 QUALIFICA" - PROMPT 127 54 "" + PROMPT 127 1 "" END END diff --git a/m770/77base2.frm b/m770/77base2.frm index e6088febb..2b773012a 100755 --- a/m770/77base2.frm +++ b/m770/77base2.frm @@ -18,7 +18,7 @@ BEGIN FI 131 END -SECTION BODY EVEN 73 +SECTION BODY EVEN 60 NUMERO 1 BEGIN @@ -31,7 +31,7 @@ END NUMERO 2 BEGIN KEY "I1-2" - PROMPT 41 1 "" + PROMPT 38 1 "" PICTURE "##.###" FIELD 36->A0NLDIP END @@ -39,7 +39,7 @@ END NUMERO 3 BEGIN KEY "I1-3" - PROMPT 55 1 "" + PROMPT 50 1 "" PICTURE "###.###.###.###^^^" FIELD 36->A0COBB END @@ -47,7 +47,7 @@ END NUMERO 4 BEGIN KEY "I1-4" - PROMPT 77 1 "" + PROMPT 72 1 "" PICTURE "###.###.###.###^^^" FIELD 36->A0CNET END @@ -55,7 +55,7 @@ END NUMERO 5 BEGIN KEY "I1-5" - PROMPT 99 1 "" + PROMPT 94 1 "" PICTURE "###.###.###.###^^^" FIELD 36->A0IITRA END @@ -63,7 +63,7 @@ END NUMERO 6 BEGIN KEY "I1-6" - PROMPT 121 1 "" + PROMPT 116 1 "" PICTURE "###.###.###.###^^^" FIELD 36->A0EPREV END @@ -79,7 +79,7 @@ END NUMERO 8 BEGIN KEY "I2-8 Tot. imponibile" - PROMPT 55 3 "" + PROMPT 50 3 "" PICTURE "###.###.###.###^^^" FIELD 36->A0TIMP END @@ -87,7 +87,7 @@ END NUMERO 9 BEGIN KEY "I2-9 Imposta lorda" - PROMPT 77 3 "" + PROMPT 72 3 "" PICTURE "###.###.###.###^^^" FIELD 36->A0ILOR END @@ -95,7 +95,7 @@ END NUMERO 10 BEGIN KEY "I2-10 Tot. detrazioni" - PROMPT 99 3 "" + PROMPT 94 3 "" PICTURE "###.###.###.###^^^" FIELD 36->A0TDET END @@ -103,7 +103,7 @@ END NUMERO 11 BEGIN KEY "I2-11 Incremento detrazioni" - PROMPT 121 5 "" + PROMPT 116 5 "" PICTURE "###.###.###.###^^^" FIELD 36->A0INCDET END @@ -119,7 +119,7 @@ END NUMERO 13 BEGIN KEY "I3-13 Rit.datore di lavoro" - PROMPT 55 5 "" + PROMPT 50 5 "" PICTURE "###.###.###.###^^^" FIELD 36->A0RDAT END @@ -127,7 +127,7 @@ END NUMERO 14 BEGIN KEY "I3-14 Eccedenza ritenute" - PROMPT 77 5 "" + PROMPT 72 5 "" PICTURE "###.###.###.###^^^" FIELD 36->A0ERIT END @@ -135,7 +135,7 @@ END NUMERO 15 BEGIN KEY "I3-15 Contrib.arretrati" - PROMPT 99 5 "" + PROMPT 94 5 "" PICTURE "###.###.###.###^^^" FIELD 36->A0CARR END @@ -143,7 +143,7 @@ END NUMERO 16 BEGIN KEY "I3-16 Ammontare arretrati" - PROMPT 121 5 "" + PROMPT 116 5 "" PICTURE "###.###.###.###^^^" FIELD 36->A0AARR END @@ -159,7 +159,7 @@ END NUMERO 18 BEGIN KEY "I4-18 Rit.arretrati" - PROMPT 55 7 "" + PROMPT 50 7 "" PICTURE "###.###.###.###^^^" FIELD 36->A0RARR END @@ -167,7 +167,7 @@ END NUMERO 19 BEGIN KEY "I4-19 Compensi ai fini contr.INPS" - PROMPT 77 7 "" + PROMPT 72 7 "" PICTURE "###.###.###.###^^^" FIELD 36->A0CINPS END @@ -175,7 +175,7 @@ END NUMERO 20 BEGIN KEY "I4-20 Rit.operate VA" - PROMPT 99 7 "" + PROMPT 94 7 "" PICTURE "###.###.###.###^^^" FIELD 36->A0RITOPEVA END @@ -183,7 +183,7 @@ END NUMERO 21 BEGIN KEY "I4-21 Ritenute operate SA" - PROMPT 121 7 "" + PROMPT 116 7 "" PICTURE "###.###.###.###^^^" FIELD 36->A0RITOPESA END @@ -199,7 +199,7 @@ END NUMERO 23 BEGIN KEY "I5-23 Credito d'imp.imprese d'autotrasporto" - PROMPT 55 9 "" + PROMPT 50 9 "" PICTURE "###.###.###.###^^^" FIELD 36->A0CIIAUT END @@ -207,7 +207,7 @@ END NUMERO 24 BEGIN KEY "I5-25 Credito d'imp.premio d'assun." - PROMPT 77 9 "" + PROMPT 72 9 "" PICTURE "###.###.###.###^^^" FIELD 36->A0CRIMPRAS END @@ -215,7 +215,7 @@ END NUMERO 25 BEGIN KEY "I5-25 Credito d'imp.L.85" - PROMPT 99 9 "" + PROMPT 94 9 "" PICTURE "###.###.###.###^^^" FIELD 36->A0CRIMP85 END @@ -223,7 +223,7 @@ END NUMERO 26 BEGIN KEY "I5-26 Num.assistiti da datore di lavoro" - PROMPT 121 9 "" + PROMPT 116 9 "" PICTURE "###.###.###.###^^^" FIELD 36->A0NADLAV END @@ -247,7 +247,7 @@ END NUMERO 29 BEGIN KEY "I7-2 N.percipienti" - PROMPT 41 13 "" + PROMPT 38 13 "" PICTURE "##.###" FIELD 36->A3NUMPER END @@ -255,7 +255,7 @@ END NUMERO 30 BEGIN KEY "I7-3 Reddito corrisp(p.10)" - PROMPT 55 13 "" + PROMPT 50 13 "" PICTURE "###.###.###.###^^^" FIELD 36->A3REPT10 END @@ -263,7 +263,7 @@ END NUMERO 31 BEGIN KEY "I7-4 Reddito corrisp(p.12)" - PROMPT 77 13 "" + PROMPT 72 13 "" PICTURE "###.###.###.###^^^" FIELD 36->A3REPT12 END @@ -273,47 +273,815 @@ BEGIN KEY "I8-1 N.fogli" PROMPT 23 15 "" PICTURE "##.###" - FIELD 36->A0NFCOM + FIELD 36->B0NFCOM END NUMERO 33 BEGIN - KEY "I1-2 N.dip." - PROMPT 41 15 "" + KEY "I8-2 N.dip." + PROMPT 38 15 "" PICTURE "##.###" - FIELD 36->A0NLDIP + FIELD 36->B0NLDIP END -NUMERO 3 +NUMERO 34 BEGIN - KEY "I1-3" - PROMPT 55 1 "" + KEY "I8-3 TFR corrisposto nel 95" + PROMPT 50 15 "" PICTURE "###.###.###.###^^^" - FIELD 36->A0COBB + FIELD 36->B0TFR93 END -NUMERO 4 +NUMERO 35 BEGIN - KEY "I1-4" - PROMPT 77 1 "" + KEY "I8-4 Altre indennità 95" + PROMPT 72 15 "" PICTURE "###.###.###.###^^^" - FIELD 36->A0CNET + FIELD 36->B0AI END -NUMERO 5 +NUMERO 36 BEGIN - KEY "I1-5" - PROMPT 99 1 "" + KEY "I8-5 Cont.obb.caric.lav." + PROMPT 94 15 "" PICTURE "###.###.###.###^^^" - FIELD 36->A0IITRA + FIELD 36->B0COLAV END -NUMERO 6 +NUMERO 37 BEGIN - KEY "I1-6" - PROMPT 121 1 "" + KEY "I8-6 T.F.R. erogato 74-94" + PROMPT 116 15 "" PICTURE "###.###.###.###^^^" - FIELD 36->A0EPREV + FIELD 36->B0TFR7492 +END + +NUMERO 38 +BEGIN + KEY "I9-7 Altr.ind.erog. 74-94" + PROMPT 23 17 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B0AI7492 +END + +NUMERO 39 +BEGIN + KEY "I9-8 Imponibile dell'anno" + PROMPT 50 17 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B0IMP +END + +NUMERO 40 +BEGIN + KEY "I9-9 Totale imponibile " + PROMPT 72 17 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B0TIMP +END + +NUMERO 41 +BEGIN + KEY "I9-10 Ritenute operate " + PROMPT 94 17 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B0ROP +END + +NUMERO 42 +BEGIN + KEY "I9-11 Alt.ind.fin.con.Inps" + PROMPT 116 17 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B0AIINPS +END + +NUMERO 43 +BEGIN + KEY "I10-12 Ritenute operate SA" + PROMPT 23 19 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B0ROPESA +END + +NUMERO 44 +BEGIN + KEY "I10-13 Ritenute operate SI " + PROMPT 50 19 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B0RITSI +END + +NUMERO 45 +BEGIN + KEY "I10-14 Cred.imp.impr.autot." + PROMPT 72 19 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B0CIIAUT +END + +NUMERO 46 +BEGIN + KEY "I10-15 Cred.imp.pre.assun. " + PROMPT 94 19 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B0CRIMPRAS +END + +NUMERO 47 +BEGIN + KEY "I10-16 Cred.imp.ex L.85/95 " + PROMPT 116 19 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B0CRIMP85 +END + +NUMERO 48 +BEGIN + KEY "I11-1 N.fogli" + PROMPT 23 21 "" + PICTURE "##.###" + FIELD 36->B1NFCOM +END + +NUMERO 49 +BEGIN + KEY "I11-2 N.dip." + PROMPT 38 21 "" + PICTURE "##.###" + FIELD 36->B1NPER +END + +NUMERO 50 +BEGIN + KEY "I11-3 Totale indennità " + PROMPT 50 21 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B1TIND +END + +NUMERO 51 +BEGIN + KEY "I11-4 Totale imponib. r.m." + PROMPT 72 21 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B1TIRM +END + +NUMERO 52 +BEGIN + KEY "I11-5 Tot.imp.complessivo " + PROMPT 94 21 "" + PICTURE "###.###.###.###^^^" + FIELD 36->B1TICOM +END + +NUMERO 53 +BEGIN + KEY "I12-1 N.fogli" + PROMPT 23 23 "" + PICTURE "##.###" + FIELD 36->C0NFCOM +END + +NUMERO 54 +BEGIN + KEY "I12-2 N.dip." + PROMPT 38 23 "" + PICTURE "##.###" + FIELD 36->C0NLASS +END + +NUMERO 55 +BEGIN + KEY "I12-3 Ammont.corris.totale" + PROMPT 50 23 "" + PICTURE "###.###.###.###^^^" + FIELD 36->C0ACTOT +END + +NUMERO 56 +BEGIN + KEY "I12-4 Contributi S.S.N. " + PROMPT 72 23 "" + PICTURE "###.###.###.###^^^" + FIELD 36->C0CONTSSN +END + +NUMERO 57 +BEGIN + KEY "I12-5 Somme non sogg.rit. " + PROMPT 94 23 "" + PICTURE "###.###.###.###^^^" + FIELD 36->C0SNSRIT +END + +NUMERO 58 +BEGIN + KEY "I12-6 Ritenute operate " + PROMPT 116 23 "" + PICTURE "###.###.###.###^^^" + FIELD 36->C0ROPE +END + +NUMERO 59 +BEGIN + KEY "I13-7 Cred.imp.impr.autot." + PROMPT 23 25 "" + PICTURE "###.###.###.###^^^" + FIELD 36->C0CIIAUT +END + +NUMERO 60 +BEGIN + KEY "I13-8 Cred.imp.pre.assun. " + PROMPT 50 25 "" + PICTURE "###.###.###.###^^^" + FIELD 36->C0CRIMPRAS +END + +NUMERO 61 +BEGIN + KEY "I14-1 N.fogli" + PROMPT 23 27 "" + PICTURE "##.###" + FIELD 36->D0NFCOM +END + +NUMERO 62 +BEGIN + KEY "I14-2 N.dip." + PROMPT 38 27 "" + PICTURE "##.###" + FIELD 36->D0NLAUT +END + +NUMERO 63 +BEGIN + KEY "I14-3 Ammont.corris.totale" + PROMPT 50 27 "" + PICTURE "###.###.###.###^^^" + FIELD 36->D0ACTOT +END + +NUMERO 64 +BEGIN + KEY "I14-4 Somme non sogg.rit. " + PROMPT 72 27 "" + PICTURE "###.###.###.###^^^" + FIELD 36->D0SNSRIT +END + +NUMERO 65 +BEGIN + KEY "I14-5 Ritenute operate " + PROMPT 94 27 "" + PICTURE "###.###.###.###^^^" + FIELD 36->D0ROPE +END + +NUMERO 66 +BEGIN + KEY "I14-6 Cred.imp.impr.autot." + PROMPT 116 27 "" + PICTURE "###.###.###.###^^^" + FIELD 36->D0CIIAUT +END + +NUMERO 67 +BEGIN + KEY "I15-7 Cred.imp.pre.assun. " + PROMPT 23 27 "" + PICTURE "###.###.###.###^^^" + FIELD 36->D0CRIMPRAS +END + +NUMERO 68 +BEGIN + KEY "I15-8 Cred.imp.ex L.85/95 " + PROMPT 50 27 "" + PICTURE "###.###.###.###^^^" + FIELD 36->D0CRIMP85 +END + +NUMERO 69 +BEGIN + KEY "I16-1 N.fogli" + PROMPT 23 29 "" + PICTURE "##.###" + FIELD 36->D1NFCOM +END + +NUMERO 70 +BEGIN + KEY "I16-2 N.dip." + PROMPT 38 29 "" + PICTURE "##.###" + FIELD 36->D1NPER +END + +NUMERO 71 +BEGIN + KEY "I16-3 Ammont.corris.totale" + PROMPT 50 29 "" + PICTURE "###.###.###.###^^^" + FIELD 36->D1TACOR +END + +NUMERO 72 +BEGIN + KEY "I16-4 Somme non sogg.rit. " + PROMPT 72 29 "" + PICTURE "###.###.###.###^^^" + FIELD 36->D1SNSRIT +END + +NUMERO 73 +BEGIN + KEY "I16-5 Ritenute operate " + PROMPT 94 29 "" + PICTURE "###.###.###.###^^^" + FIELD 36->D1ROPE +END + +NUMERO 74 +BEGIN + KEY "I16-6 Cred.imp.pre.assun. " + PROMPT 116 29 "" + PICTURE "###.###.###.###^^^" + FIELD 36->D1CRIMPRAS +END + +NUMERO 75 +BEGIN + KEY "I17-1 N.fogli" + PROMPT 23 31 "" + PICTURE "##.###" + FIELD 37->E0NFCOM +END + +NUMERO 76 +BEGIN + KEY "I17-2 N.dip." + PROMPT 38 31 "" + PICTURE "##.###" + FIELD 37->E0NPER +END + +NUMERO 77 +BEGIN + KEY "I17-3 Ammontare imponibile" + PROMPT 50 31 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E0AIMP +END + +NUMERO 78 +BEGIN + KEY "I17-4 Ritenute operate " + PROMPT 72 31 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E0ROPE +END + +NUMERO 79 +BEGIN + KEY "I17-5 Somme non sogg.rit. " + PROMPT 94 31 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E0SNSRIT +END + +NUMERO 80 +BEGIN + KEY "I17-6 Cred.imp.pre.assun. " + PROMPT 116 31 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E0CRIMPRAS +END + +NUMERO 81 +BEGIN + KEY "I18-1 N.fogli" + PROMPT 23 33 "" + PICTURE "##.###" + FIELD 37->E1NFCOM +END + +NUMERO 82 +BEGIN + KEY "I18-2 N.dip." + PROMPT 38 33 "" + PICTURE "##.###" + FIELD 37->E1NPER +END + +NUMERO 83 +BEGIN + KEY "I18-3 Somme corrisposte " + PROMPT 50 33 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E1SCOR +END + +NUMERO 84 +BEGIN + KEY "I18-4 Base commisurazione " + PROMPT 72 33 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E1BCOM +END + +NUMERO 85 +BEGIN + KEY "I18-5 Ritenute operate " + PROMPT 94 33 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E1ROPE +END + +NUMERO 86 +BEGIN + KEY "I18-6 Ammontare compless. " + PROMPT 116 33 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E1ACOM +END + +NUMERO 87 +BEGIN + KEY "I19-7 Base commisurazione " + PROMPT 23 35 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E1BCOM2 +END + +NUMERO 88 +BEGIN + KEY "I19-8 Ritenute operate " + PROMPT 50 35 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E1ROPE2 +END + +NUMERO 89 +BEGIN + KEY "I19-9 Cred.imp.pre.assun. " + PROMPT 72 35 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E1CRIMPRAS +END + +NUMERO 90 +BEGIN + KEY "I20-1 N.fogli" + PROMPT 23 37 "" + PICTURE "##.###" + FIELD 37->E2NFCOM +END + +NUMERO 91 +BEGIN + KEY "I20-2 N.dip." + PROMPT 38 37 "" + PICTURE "##.###" + FIELD 37->E2NPER +END + +NUMERO 92 +BEGIN + KEY "I20-3 Somme sogg. ritenute " + PROMPT 50 37 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E2SSRIT +END + +NUMERO 93 +BEGIN + KEY "I20-4 Ritenute operate " + PROMPT 72 37 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E2ROPE +END + +NUMERO 94 +BEGIN + KEY "I20-5 Cred.imp.pre.assun. " + PROMPT 94 37 "" + PICTURE "###.###.###.###^^^" + FIELD 37->E2CRIMPRAS +END + +NUMERO 95 +BEGIN + KEY "I21-1 Som.sog.rit.(pros.A)" + PROMPT 23 39 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F0SRITA +END + +NUMERO 96 +BEGIN + KEY "I21-2 Rit.operate(pros.A) " + PROMPT 50 39 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F0ROPEA +END + +NUMERO 97 +BEGIN + KEY "I21-3 Tot.acconti (pros.A)" + PROMPT 72 39 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F0TACCA +END + +NUMERO 98 +BEGIN + KEY "I21-4 Ecc.dim.acc.(pros.A)" + PROMPT 94 39 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F0EDACCA +END + +NUMERO 99 +BEGIN + KEY "I21-5 Ecc. rimbor.(pros.A)" + PROMPT 116 39 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F0ERIMA +END + +NUMERO 100 +BEGIN + KEY "I22-6 Somme sog.VA(pros.A)" + PROMPT 23 41 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F0SSVA +END + +NUMERO 101 +BEGIN + KEY "I22-7 Rit.oper.VA (pros.A)" + PROMPT 50 41 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F0ROPEVA +END + +NUMERO 102 +BEGIN + KEY "I22-8 Som.sogg.rit.(BCDEF)" + PROMPT 72 41 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F0SSRITBF +END + +NUMERO 103 +BEGIN + KEY "I22-9 Rit.op.(p.B,C,D,E,F)" + PROMPT 94 41 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F0ROPEBF +END + +NUMERO 104 +BEGIN + KEY "I22-10 Cred.imp.pre.assun. " + PROMPT 116 41 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F0CRIMPRAS +END + +NUMERO 105 +BEGIN + KEY "I23-1 Som.sogg.rit.(p.A,B)" + PROMPT 23 43 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F1SSRIT +END + +NUMERO 106 +BEGIN + KEY "I23-2 Riten.operat.(p.A,B)" + PROMPT 50 43 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F1ROPE +END + +NUMERO 107 +BEGIN + KEY "I23-3 Cred.imp.pre.assun. " + PROMPT 72 43 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F1CRIMPRAS +END + +NUMERO 108 +BEGIN + KEY "I24-1 Somme sogg. ritenute" + PROMPT 23 45 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F2SSRIT +END + +NUMERO 109 +BEGIN + KEY "I24-2 Ritenute operate " + PROMPT 50 45 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F2ROPE +END + +NUMERO 110 +BEGIN + KEY "I24-3 Cred.imp.pre.assun. " + PROMPT 72 45 "" + PICTURE "###.###.###.###^^^" + FIELD 37->F2CRIMPRAS +END + +NUMERO 111 +BEGIN + KEY "I25-1 N.fogli" + PROMPT 23 47 "" + PICTURE "##.###" + FIELD 37->G0NFCOM +END + +NUMERO 112 +BEGIN + KEY "I125-2 N.dip." + PROMPT 38 47 "" + PICTURE "##.###" + FIELD 37->G0NPER +END + +NUMERO 113 +BEGIN + KEY "I25-3 Utili spettanti " + PROMPT 50 47 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0USPE +END + +NUMERO 114 +BEGIN + KEY "I25-4 Rit.utili spettanti " + PROMPT 72 47 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0RITSPET +END + +NUMERO 115 +BEGIN + KEY "I25-5 Utili pagati " + PROMPT 94 47 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0UPAG +END + +NUMERO 116 +BEGIN + KEY "I25-6 Rit. su utili pagati" + PROMPT 116 47 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0ROPE +END + +NUMERO 117 +BEGIN + KEY "I26-7 Azioni o quote(pr.1)" + PROMPT 23 49 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0NAZI1 +END + +NUMERO 118 +BEGIN + KEY "I26-8 Utili denaro (pr.1) " + PROMPT 50 49 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0UDEN1 +END + +NUMERO 120 +BEGIN + KEY "I26-9 Utili natura (pr.1) " + PROMPT 72 49 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0UNAT1 +END + +NUMERO 121 +BEGIN + KEY "I26-10 Importo utili (pr.2)" + PROMPT 94 49 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0IUTI2 +END + +NUMERO 122 +BEGIN + KEY "I26-11 Util.sogg.rit.(pr.3)" + PROMPT 116 49 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0USRIT3 +END + +NUMERO 123 +BEGIN + KEY "I27-12 Ritenuta acc.(pr.3) " + PROMPT 23 49 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0RACC3 +END + +NUMERO 124 +BEGIN + KEY "I27-13 Riten. impos.(pr.3) " + PROMPT 50 49 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0RIMP3 +END + +NUMERO 125 +BEGIN + KEY "I27-14 Ut.non sogg.rit.(p3)" + PROMPT 72 49 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0UNSRIT3 +END + +NUMERO 126 +BEGIN + KEY "I27-15 Cred.imp.pre.assun. " + PROMPT 94 49 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G0CRIMPRAS +END + +NUMERO 127 +BEGIN + KEY "I28-1 Utili corrisposti " + PROMPT 23 51 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G1UCOR +END + +NUMERO 128 +BEGIN + KEY "I28-2 Utili sogg. ritenute" + PROMPT 50 51 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G1USRIT +END + +NUMERO 129 +BEGIN + KEY "I28-3 Ritenute di acconto " + PROMPT 72 51 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G1RACC +END + +NUMERO 130 +BEGIN + KEY "I28-4 Ritenute di imposta " + PROMPT 94 51 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G1RIMP +END + +NUMERO 131 +BEGIN + KEY "I28-5 Utili non sogg.rit. " + PROMPT 116 51 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G1UNSRIT +END + +NUMERO 132 +BEGIN + KEY "I29-6 Cred.imp.pre.assun. " + PROMPT 23 53 "" + PICTURE "###.###.###.###^^^" + FIELD 37->G1CRIMPRAS +END + +NUMERO 133 +BEGIN + KEY "I30-1 Cont.obb.car.dat.lav" + PROMPT 23 55 "" + PICTURE "###.###.###.###^^^" + FIELD 37->H0CODLAV +END + +NUMERO 134 +BEGIN + KEY "I30-2 Cont.ob.car.lav.dip." + PROMPT 50 55 "" + PICTURE "###.###.###.###^^^" + FIELD 37->H0COLDIP END END diff --git a/m770/77base3.frm b/m770/77base3.frm new file mode 100755 index 000000000..a61ea0256 --- /dev/null +++ b/m770/77base3.frm @@ -0,0 +1,181 @@ +USE 42 +JOIN 37 INTO CODDITTA=CODDITTA +END + +DESCRIPTION +BEGIN + 36->* "Base 770" + 37->* "Basebis 770" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier 17cpi" + SIZE 10 + CA "X" + IN 3 2 + FI 131 +END + +SECTION HEADER FIRST 2 + +STRINGA 1 +BEGIN + KEY "Cod.Conc.1" + PROMPT 41 1 "" + FIELD 37->L0CCONC1 +END + +STRINGA 2 +BEGIN + KEY "Cod.Conc.2" + PROMPT 53 1 "" + FIELD 37->L0CCONC2 +END + +STRINGA 3 +BEGIN + KEY "Cod.Conc.3" + PROMPT 63 1 "" + FIELD 37->L0CCONC3 +END + +NUMERO 4 +BEGIN + KEY "Cod.Tes.1" + PROMPT 102 1 "" + FIELD 37->L0CTES1 +END + +NUMERO 5 +BEGIN + KEY "Cod.Tes.2" + PROMPT 114 1 "" + FIELD 37->L0CTES2 +END + +NUMERO 6 +BEGIN + KEY "Cod.Tes.3" + PROMPT 126 1 "" + FIELD 37->L0CTES3 +END + +END + +SECTION BODY ODD 4 + +NUMERO 1 +BEGIN + KEY "Mese rif." + PROMPT 26 1 "" + FIELD 42->QLMP +END + +NUMERO 2 +BEGIN + KEY "Anno rif." + PROMPT 29 1 "" + FIELD 42->QLAP +END + +NUMERO 3 +BEGIN + KEY "Rit.eff" + PROMPT 48 1 "" + FIELD 42->QLRITEFF + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->1 +END + +NUMERO 4 +BEGIN + KEY "Rit.ver" + PROMPT 79 1 "" + FIELD 42->QLRITVER + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->2 +END + +NUMERO 5 +BEGIN + KEY "RSS" + PROMPT 100 1 "" + FIELD 42->QLRSS +END + +NUMERO 6 +BEGIN + KEY "Note" + PROMPT 111 1 "" + FIELD 42->QLNOTE +END + +STRINGA 7 +BEGIN + KEY "Luogo Vers." + PROMPT 28 3 "" + FIELD 42->QLLV +END + +STRINGA 8 +BEGIN + KEY "Tipo Vers." + PROMPT 36 3 "" + FIELD 42->QLTV +END + +STRINGA 9 +BEGIN + KEY "CodTrib" + PROMPT 47 3 "" + FIELD 42->QLCT +END + +STRINGA 11 +BEGIN + KEY "DATA VERS." + PROMPT 63 3 "" + FIELD 42->QLDV + PICTURE "## ^ ## ^####" +END + +STRINGA 12 +BEGIN + KEY "SERIE" + PROMPT 84 3 "" + FIELD 42->QLSERIE +END + +STRINGA 13 +BEGIN + KEY "NUMERO" + PROMPT 99 3 "" + FIELD 42->QLNUMERO +END + +END + +SECTION FOOTER LAST 2 + +NUMERO 1 +BEGIN + KEY "Tot.rit.eff" + PROMPT 51 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 2 +BEGIN + KEY "Tot.rit.ver" + PROMPT 102 1 "" + PICTURE "###.###.###.###^^^" +END + +END + +END + + + diff --git a/m770/77base4.frm b/m770/77base4.frm new file mode 100755 index 000000000..ad53fd9d2 --- /dev/null +++ b/m770/77base4.frm @@ -0,0 +1,688 @@ +USE 37 +JOIN 72 INTO CODDITTA=CODDITTA +JOIN 73 TO 37 INTO CODDITTA=CODDITTA +JOIN 74 TO 37 INTO CODDITTA=CODDITTA +JOIN 75 TO 37 INTO CODDITTA=CODDITTA +JOIN 76 TO 37 INTO CODDITTA=CODDITTA +JOIN 77 TO 37 INTO CODDITTA=CODDITTA +JOIN 36 TO 37 INTO CODDITTA=CODDITTA +JOIN %CAF TO 36 ALIAS 104 INTO CODTAB==CODCAAF +JOIN 9 TO 36 INTO CODDITTA=CODDITTA +JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR +JOIN 8 TO 36 ALIAS 108 INTO CODANAGR==CODPRO +JOIN 6 TO 8 ALIAS 106 INTO TIPOA="F" CODANAGR=CODANAGR +END + +DESCRIPTION +BEGIN + 36->* "Base 770" + 37->* "Basebis 770" + 72->* "Quadro N" + 73->* "Quadro P" + 74->* "Quadro Q" + 75->* "Quadro R" + 76->* "Quadro S" + 77->* "Quadro T" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier 17cpi" + SIZE 10 + CA "X" + IN 3 2 + FI 131 +END + +SECTION HEADER FIRST 7 + +NUMERO 1 +BEGIN + KEY "M1" + PROMPT 61 1 "" + FIELD 37->ECCRIT12 + PICTURE "###.###.###.###^^^" +END + +NUMERO 2 +BEGIN + KEY "M2" + PROMPT 117 1 "" + FIELD 37->ECCRIT23 + PICTURE "###.###.###.###^^^" +END + +NUMERO 3 +BEGIN + KEY "M3" + PROMPT 61 3 "" + FIELD 37->CRIMPDL + PICTURE "###.###.###.###^^^" +END + +NUMERO 4 +BEGIN + KEY "M4" + PROMPT 61 5 "" + FIELD 37->CRIMPIVA + PICTURE "###.###.###.###^^^" +END + +NUMERO 5 +BEGIN + KEY "M5" + PROMPT 117 3 "" + FIELD 37->CRIMPRIT + PICTURE "###.###.###.###^^^" +END + +NUMERO 6 +BEGIN + KEY "M6" + PROMPT 117 5 "" + FIELD 37->CRIMPRES + PICTURE "###.###.###.###^^^" +END + +END + +SECTION BODY ODD 1 + +NUMERO 1 +BEGIN + KEY "MeseRif" + PROMPT 27 1 "" + FIELD 72->MESERIF +END + +NUMERO 2 +BEGIN + KEY "AnnoRif" + PROMPT 31 1 "" + FIELD 72->ANNORIF +END + +NUMERO 3 +BEGIN + KEY "imp. rimb" + PROMPT 39 1 "" + FIELD 72->IMPOSTA + PICTURE "###.###.###.###^^^" +END + +NUMERO 4 +BEGIN + KEY "Compensi" + PROMPT 60 1 "" + FIELD 72->COMPENSI + PICTURE "###.###.###.###^^^" +END + +NUMERO 5 +BEGIN + KEY "MeseRif" + PROMPT 85 1 "" + FIELD 72->MESERIF +END + +NUMERO 6 +BEGIN + KEY "AnnoRif" + PROMPT 89 1 "" + FIELD 72->ANNORIF +END + +NUMERO 7 +BEGIN + KEY "imp. rimb" + PROMPT 99 1 "" + FIELD 72->IMPOSTA + PICTURE "###.###.###.###^^^" +END + +NUMERO 8 +BEGIN + KEY "Compensi" + PROMPT 119 1 "" + FIELD 72->COMPENSI + PICTURE "###.###.###.###^^^" +END + +END + +SECTION BODY EVEN 1 + +NUMERO 1 +BEGIN + KEY "R - MeseRif" + PROMPT 27 1 "" + FIELD 75->MESERIF +END + +NUMERO 2 +BEGIN + KEY "R - AnnoRif" + PROMPT 31 1 "" + FIELD 75->ANNORIF +END + +NUMERO 3 +BEGIN + KEY "R - imp. rimb" + PROMPT 41 1 "" + FIELD 75->IMPRIMB + PICTURE "###.###.###.###^^^" +END + +NUMERO 4 +BEGIN + KEY "R - Compensi" + PROMPT 62 1 "" + FIELD 75->COMPENSI + PICTURE "###.###.###.###^^^" +END + +NUMERO 5 +BEGIN + KEY "R - MeseRif" + PROMPT 85 1 "" + FIELD 75->MESERIF +END + +NUMERO 6 +BEGIN + KEY "R - AnnoRif" + PROMPT 89 1 "" + FIELD 75->ANNORIF +END + +NUMERO 7 +BEGIN + KEY "R - imp. rimb" + PROMPT 99 1 "" + FIELD 75->IMPRIMB + PICTURE "###.###.###.###^^^" +END + +NUMERO 8 +BEGIN + KEY "R - Compensi" + PROMPT 120 1 "" + FIELD 75->COMPENSI + PICTURE "###.###.###.###^^^" +END + +END + +SECTION HEADER EVEN 1 + +NUMERO 1 +BEGIN + KEY "P Imp.versata" + PROMPT 24 1 "" + FIELD 73->IMPOSTA + PICTURE "###.###.###.###^^^" +END + +NUMERO 2 +BEGIN + KEY "P Inter.lav.dip" + PROMPT 41 1 "" + FIELD 73->INTERDIP + PICTURE "###.###.###.###^^^" +END + +NUMERO 3 +BEGIN + KEY "P Inter.dat.lav." + PROMPT 56 1 "" + FIELD 73->INTERDAT + PICTURE "###.###.###.###^^^" +END + +STRINGA 4 +BEGIN + KEY "P Modalita' vers" + PROMPT 76 1 "" + FIELD 73->TIPOVERS +END + +STRINGA 5 +BEGIN + KEY "P Cod.trib" + PROMPT 82 1 "" + FIELD 73->CODTRIB +END + +STRINGA 6 +BEGIN + KEY "P DATA VERS." + PROMPT 89 1 "" + FIELD 73->DATAVERS + PICTURE "## ^ ## ^####" +END + +STRINGA 7 +BEGIN + KEY "P Serie" + PROMPT 108 1 "" + FIELD 73->SERIE +END + +STRINGA 8 +BEGIN + KEY "P Numero" + 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 + +SECTION FOOTER EVEN 1 + +NUMERO 1 +BEGIN + KEY "Q Mese paga" + PROMPT 27 1 "" + FIELD 74->MESEPAG +END + +NUMERO 2 +BEGIN + KEY "Q Anno paga" + PROMPT 32 1 "" + FIELD 74->ANNOPAG +END + +NUMERO 3 +BEGIN + KEY "Q Contr.versato" + PROMPT 41 1 "" + FIELD 74->CONTVERS + PICTURE "###.###.###.###^^^" +END + +NUMERO 4 +BEGIN + KEY "Q Contr.rimborsati" + PROMPT 65 1 "" + FIELD 74->CONTRIMB + PICTURE "###.###.###.###^^^" +END + +NUMERO 5 +BEGIN + KEY "Q Interes.e/o soprattasse" + PROMPT 94 1 "" + FIELD 74->INTERESSI + PICTURE "###.###.###.###^^^" +END + +STRINGA 6 +BEGIN + KEY "Q Cod.Reg" + PROMPT 123 1 "" + FIELD 74->CODREG +END + +END + +SECTION FOOTER ODD 1 + +NUMERO 1 +BEGIN + KEY "T Mese paga" + PROMPT 27 1 "" + FIELD 77->MESEPAG +END + +NUMERO 2 +BEGIN + KEY "T Anno paga" + PROMPT 32 1 "" + FIELD 77->ANNOPAG +END + +NUMERO 3 +BEGIN + KEY "T Contr.versato" + PROMPT 41 1 "" + FIELD 77->CONTVERS + PICTURE "###.###.###.###^^^" +END + +NUMERO 4 +BEGIN + KEY "T Contr.rimborsati" + PROMPT 65 1 "" + FIELD 77->CONTRIMB + PICTURE "###.###.###.###^^^" +END + +NUMERO 5 +BEGIN + KEY "T Interes.e/o soprattasse" + PROMPT 94 1 "" + FIELD 77->INTERESSI + PICTURE "###.###.###.###^^^" +END + +STRINGA 6 +BEGIN + KEY "T Cod.Reg" + PROMPT 123 1 "" + FIELD 77->CODREG +END + +END + +SECTION FOOTER FIRST 25 + +STRINGA 650 +BEGIN + KEY "Quadro A" + PROMPT 19 3 "" + FIELD 37->QCOMP[1,1] +END + +STRINGA 653 +BEGIN + KEY "Quadro A3" + PROMPT 24 3 "" + FIELD 37->QCOMP[4,4] +END + +STRINGA 660 +BEGIN + KEY "Quadro B" + PROMPT 29 3 "" + FIELD 37->QCOMP[5,5] +END + +STRINGA 661 +BEGIN + KEY "Quadro B1" + PROMPT 34 3 "" + FIELD 37->QCOMP[6,6] +END + +STRINGA 670 +BEGIN + KEY "Quadro C" + PROMPT 39 3 "" + FIELD 37->QCOMP[7,7] +END + +STRINGA 680 +BEGIN + KEY "Quadro D" + PROMPT 44 3 "" + FIELD 37->QCOMP[8,8] +END + +STRINGA 681 +BEGIN + KEY "Quadro D1" + PROMPT 49 3 "" + FIELD 37->QCOMP[9,9] +END + +STRINGA 690 +BEGIN + KEY "Quadro E" + PROMPT 54 3 "" + FIELD 37->QCOMP[10,10] +END + +STRINGA 691 +BEGIN + KEY "Quadro E1" + PROMPT 60 3 "" + FIELD 37->QCOMP[11,11] +END + +STRINGA 692 +BEGIN + KEY "Quadro E2" + PROMPT 65 3 "" + FIELD 37->QCOMP[12,12] +END + +STRINGA 700 +BEGIN + KEY "Quadro F" + PROMPT 70 3 "" + FIELD 37->QCOMP[13,13] +END + +STRINGA 701 +BEGIN + KEY "Quadro F1" + PROMPT 75 3 "" + FIELD 37->QCOMP[14,14] +END + +STRINGA 702 +BEGIN + KEY "Quadro F2" + PROMPT 80 3 "" + FIELD 37->QCOMP[15,15] +END + +STRINGA 710 +BEGIN + KEY "Quadro G" + PROMPT 85 3 "" + FIELD 37->QCOMP[16,16] +END + +STRINGA 711 +BEGIN + KEY "Quadro G1" + PROMPT 90 3 "" + FIELD 37->QCOMP[17,17] +END + +STRINGA 720 +BEGIN + KEY "Quadro H" + PROMPT 95 3 "" + FIELD 37->QCOMP[18,18] +END + +STRINGA 730 +BEGIN + KEY "Quadro I" + PROMPT 100 3 "" + FIELD 37->QCOMP[19,19] +END + +STRINGA 651 +BEGIN + KEY "Quadro A1" + PROMPT 19 7 "" + FIELD 37->QCOMP[2,2] +END + +STRINGA 652 +BEGIN + KEY "Quadro A2" + PROMPT 24 7 "" + FIELD 37->QCOMP[3,3] +END + +STRINGA 760 +BEGIN + KEY "Quadro N" + PROMPT 29 7 "" + FIELD 37->QCOMP[20,20] +END + +STRINGA 780 +BEGIN + KEY "Quadro P" + PROMPT 35 7 "" + FIELD 37->QCOMP[21,21] +END + +STRINGA 790 +BEGIN + KEY "Quadro Q" + PROMPT 40 7 "" + FIELD 37->QCOMP[22,22] +END + +STRINGA 800 +BEGIN + KEY "Quadro R" + PROMPT 45 7 "" + FIELD 37->QCOMP[23,23] +END + +STRINGA 810 +BEGIN + KEY "Quadro S" + PROMPT 50 7 "" + FIELD 37->QCOMP[24,24] +END + +STRINGA 820 +BEGIN + KEY "Quadro T" + PROMPT 55 7 "" + FIELD 37->QCOMP[25,25] +END + +STRINGA 821 +BEGIN + PROMPT 80 9 "" + KEY "Numero quadri aggiuntivi" + FIELD 37->H0NQLAGG +END + +STRINGA 822 +BEGIN + PROMPT 72 11 "" + KEY "Numero quadri su supporto magnetico" + FIELD 37->NSUPPM +END + +DATA 823 +BEGIN + KEY "Data" + PROMPT 29 16 "" +END + +STRINGA 824 +BEGIN + KEY "Presidente" + PROMPT 51 15 "" +END + +STRINGA 825 +BEGIN + KEY "Dichiarante" + PROMPT 95 15 "" + FIELD 6->RAGSOC +END + +STRINGA 826 +BEGIN + KEY "CODICE FISCALE CAAF" + PROMPT 48 18 "" + FIELD 104@->S1 +END + +NUMERO 827 +BEGIN + KEY "NUMERO ISCRIZIONE ALBO" + PROMPT 122 18 "" + FIELD 104@->I1 + PICTURE "#####" +END + +STRINGA 828 +BEGIN + KEY "CODICE FISCALE PROF." + PROMPT 92 20 "" + FIELD 106@->COFI +END + +STRINGA 829 +BEGIN + KEY "FIRMA" + PROMPT 84 25 "" + FIELD 106@->RAGSOC +END + +END + +END + + + diff --git a/m770/77busta.frm b/m770/77busta.frm index b3d971dc9..996e876fb 100755 --- a/m770/77busta.frm +++ b/m770/77busta.frm @@ -1,352 +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 - FIELD 213@->CAPCOM - GROUP 20 -END - -STRINGA 36 -BEGIN - KEY "Comune Ufficio distrettuale" - PROMPT 170 46 "" - FIELD 204@->S0 - GROUP 20 -END - -END - +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 + FIELD 213@->CAPCOM + GROUP 20 +END + +STRINGA 36 +BEGIN + KEY "Comune Ufficio distrettuale" + PROMPT 170 46 "" + FIELD 204@->S0 + GROUP 20 +END + +END + END \ No newline at end of file diff --git a/m770/77qa.frm b/m770/77qa.frm index 405d46de8..f1d894e6b 100755 --- a/m770/77qa.frm +++ b/m770/77qa.frm @@ -1,1140 +1,1140 @@ -USE 44 -JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP -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 -BEGIN - 44->* "Quadro A 770" - 45->* "Anagrafica dei dipendenti" - 104@->* "Tabella CAAF" - 9->* "Ditte" - 106@->* "Anagrafica persone fisiche e giuridiche (ditta)" - 108@->* "Anagrafica persone fisiche (ditta)" - 113@->* "Comuni DITTA (nascita)" - 213@->* "Comuni DITTA (residenza)" -END - -GENERAL -BEGIN - OFFSET 0 0 - FONT "Courier New" - SIZE 11 - CARATTERE "X" - INIZIO_POS 3 2 - FINE_POS 131 - GRID "+++++++++-|" -END - -SECTION HEADER FIRST 28 - -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 2 -BEGIN - KEY "CODICE FISCALE" - PROMPT 3 12 "" - FIELD 106@->COFI -END - -STRINGA 3 -BEGIN - KEY "RAGIONE SOCIALE" - PROMPT 39 12 "" - GROUP 2 - FIELD 106@->RAGSOC -END - -STRINGA 4 -BEGIN - KEY "COGNOME" - PROMPT 39 12 "" - GROUP 1 - FIELD 106@->RAGSOC[1,30] -END - -STRINGA 5 -BEGIN - KEY "NOME" - PROMPT 17 14 "" - GROUP 1 - FIELD 106@->RAGSOC[31,50] -END - -STRINGA 6 -BEGIN - KEY "SESSO" - PROMPT 58 14 "" - GROUP 1 - FIELD 108@->SESSO -END - -STRINGA 7 -BEGIN - KEY "DATA DI NASCITA" - PROMPT 67 14 "" - GROUP 1 - FIELD 108@->DATANASC -END - -STRINGA 8 -BEGIN - KEY "COMUNE DI NASCITA" - PROMPT 84 14 "" - GROUP 1 - FIELD 113@->DENCOM -END - -STRINGA 9 -BEGIN - KEY "PROV. DI NASCITA" - PROMPT 125 14 "" - GROUP 1 - FIELD 113@->PROVCOM -END - -STRINGA 10 -BEGIN - KEY "COMUNE DI RES.FISCALE" - PROMPT 17 16 "" - FIELD 213@->DENCOM -END - -STRINGA 11 -BEGIN - KEY "PROV DI RES.FISCALE" - PROMPT 59 16 "" - FIELD 213@->PROVCOM -END - -STRINGA 12 -BEGIN - KEY "VIA di RES." - PROMPT 66 16 "" - FIELD 106@->INDRF - FIELD 106@->INDRES -END - -STRINGA 15 -BEGIN - KEY "NUM. CIVICO di RES." - PROMPT 104 16 "" - FIELD 106@->CIVRF - FIELD 106@->CIVRES -END - -STRINGA 16 -BEGIN - KEY "CAP" - PROMPT 123 16 "" - FIELD 106@->CAPRF - FIELD 106@->CAPRES -END - -STRINGA 13 -BEGIN - KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" - PROMPT 85 19 "" -END - -NUMERO 14 -BEGIN - KEY "NUM. FOGLIO" - PROMPT 125 22 "" -END - -END - -SECTION BODY ODD 20 - -STRINGA 1 -BEGIN - KEY "COD.FIS" - PROMPT 11 1 "" - FIELD 45->CODFI -END - -STRINGA 2 -BEGIN - KEY "COGNOME" - PROMPT 44 1 "" - FIELD 45->COGNOME -END - -STRINGA 3 -BEGIN - KEY "NOME" - PROMPT 82 1 "" - FIELD 45->NOME -END - -DATA 4 -BEGIN - KEY "DATA NASCITA" - PROMPT 114 1 "" - FIELD 45->DATANA - FORMAT "1444-" -END - -STRINGA 5 -BEGIN - KEY "SESSO" - PROMPT 128 1 "" - FIELD 45->SESSO -END - -STRINGA 6 -BEGIN - KEY "COMUNE DI NASCITA" - PROMPT 11 3 "" - FIELD 45->COMUNENA -END - -STRINGA 7 -BEGIN - KEY "PROV DI NASCITA" - PROMPT 47 3 "" - FIELD 45->PROVNA -END - -STRINGA 8 -BEGIN - KEY "COMUNE DI RESIDENZA" - PROMPT 54 3 "" - FIELD 45->COMRES -END - -STRINGA 9 -BEGIN - KEY "PROV. RESIDENZA" - PROMPT 88 3 "" - FIELD 45->PROVRES -END - -STRINGA 10 -BEGIN - KEY "INDIRIZZO RES." - PROMPT 95 3 "" - FIELD 45->INDRES -END - -STRINGA 11 -BEGIN - KEY "STATO CIVILE" - PROMPT 13 5 "" - FIELD 45->STATOCIV -END - -STRINGA 12 -BEGIN - KEY "QUALIFICA" - PROMPT 22 5 "" - FIELD 45->QUALIFICA -END - -STRINGA 13 -BEGIN - KEY "AREA ATTIVITA'" - PROMPT 31 5 "" - FIELD 44->AREAATT -END - -STRINGA 14 -BEGIN - KEY "TIPO" - PROMPT 38 5 "" - FIELD 44->TIPO -END - -NUMERO 15 -BEGIN - KEY "NUMERO GIORNI" - PROMPT 46 5 "" - FIELD 44->NUMGIO - PICTURE "###" -END - -DATA 16 -BEGIN - KEY "DATA FINE RAPPORTO" - PROMPT 62 5 "" - FORMAT "1444-" - PICTURE "## ^ ##^^^^^" - FIELD 44->DATAFR -END - -NUMERO 17 -BEGIN - KEY "GIORNI DETRAZ. LAV. DIP." - PROMPT 80 5 "" - FIELD 44->NUMGIODET - PICTURE "###" -END - -STRINGA 18 -BEGIN - KEY "CF DATORE LAVORO PRECEDENTE" - PROMPT 98 5 "" - FIELD 44->CFDLPREC -END - -NUMERO 19 -BEGIN - KEY "CAUSA" - PROMPT 129 5 "" - FIELD 44->CAUSA -END - -NUMERO 20 -BEGIN - KEY "IN DENARO" - PROMPT 9 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->20 - FIELD 44->DENARO -END - -NUMERO 21 -BEGIN - KEY "IN NATURA" - PROMPT 24 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->21 - FIELD 44->NATURA -END - -NUMERO 22 -BEGIN - KEY "CONTRIBUTI OBBLIGATORI" - PROMPT 39 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->22 - FIELD 44->COBBDIP -END - -NUMERO 23 -BEGIN - KEY "COMPENSI NETTI" - PROMPT 55 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->23 - FIELD 44->COMPNETTI -END - -NUMERO 24 -BEGIN - KEY "AMMONTARE LORDO" - PROMPT 70 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->24 - FIELD 44->AMMLORDO -END - -NUMERO 25 -BEGIN - KEY "IND.ASS.CONTRIBUTI OBBLIGATORI" - PROMPT 85 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->25 - FIELD 44->IACOBBCD -END - -NUMERO 26 -BEGIN - KEY "SOMME NON ASSOG. A RITEN." - PROMPT 101 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->26 - FIELD 44->NORIT -END - -NUMERO 27 -BEGIN - KEY "TOTALE IMPONIBILE" - PROMPT 117 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->27 - FIELD 44->TOTIMP -END - -NUMERO 28 -BEGIN - KEY "ASSEGNI ED INDENNITA'" - PROMPT 9 9 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->28 - FIELD 44->AIENTIPREV -END - -NUMERO 29 -BEGIN - KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI" - PROMPT 24 9 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->29 - FIELD 44->CCTAMMCONT -END - -NUMERO 30 -BEGIN - KEY "TOTALE IMPONIBILE 2" - PROMPT 39 9 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->30 - FIELD 44->TOTIMP2 -END - -NUMERO 31 -BEGIN - KEY "IMPOSTA CORRISPONDENTE" - PROMPT 55 9 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->31 - FIELD 44->ICTOTIMP -END - -NUMERO 32 -BEGIN - KEY "DETRAZIONE PER CONIUGE A CARICO" - PROMPT 70 9 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->32 - FIELD 44->DETCC -END - -NUMERO 33 -BEGIN - KEY "DETRAZIONE PER FIGLI A CARICO" - PROMPT 85 9 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->33 - FIELD 44->DETFC -END - -NUMERO 34 -BEGIN - KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO" - PROMPT 101 9 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->34 - FIELD 44->DETAF -END - -NUMERO 35 -BEGIN - KEY "DETRAZIONE PER LAVORO DIPENDENTE" - PROMPT 117 9 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->35 - FIELD 44->DETLD -END - -NUMERO 36 -BEGIN - KEY "DETRAZIONE PER ONERI" - PROMPT 9 11 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->36 - FIELD 44->DETO -END - -NUMERO 37 -BEGIN - KEY "TOTALE DETRAZIONI" - PROMPT 24 11 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->37 - FIELD 44->TOTDET -END - -NUMERO 38 -BEGIN - KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO" - PROMPT 39 11 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->38 - FIELD 44->INCDETFC -END - -NUMERO 39 -BEGIN - KEY "RITENUTE OPERATE DA TERZI" - PROMPT 55 11 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->39 - FIELD 44->AMRIOT -END - -NUMERO 40 -BEGIN - KEY "RITENUTE OPERATE DAL DATORE DI LAVORO" - PROMPT 70 11 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->40 - FIELD 44->AMRIODL -END - -NUMERO 41 -BEGIN - KEY "ECCEDENZA RITENUTE RIMBORSATE" - PROMPT 85 11 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->41 - FIELD 44->ECCRITRIMB -END - -NUMERO 42 -BEGIN - KEY "AMMONTARE RITENUTE DOVUTE" - PROMPT 101 11 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->42 - FIELD 44->AMMRITDOV -END - -NUMERO 43 -BEGIN - KEY "EROGAZIONI PER SPESE SANITARIE" - PROMPT 117 11 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->43 - FIELD 44->ERSPSAN -END - -NUMERO 44 -BEGIN - KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI" - PROMPT 9 13 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->44 - FIELD 44->PRASSVI -END - -NUMERO 45 -BEGIN - KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE" - PROMPT 24 13 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->45 - FIELD 44->CONPRECO -END - -NUMERO 46 -BEGIN - KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE" - PROMPT 39 13 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->46 - FIELD 44->COBBDIP2 -END - -NUMERO 47 -BEGIN - KEY "AMMONTARE IMPONIBILE" - PROMPT 55 13 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->47 - FIELD 44->AMMIMP -END - -NUMERO 48 -BEGIN - KEY "DETRAZIONI D'IMPOSTA" - PROMPT 70 13 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->48 - FIELD 44->DETIMPOS -END - -NUMERO 49 -BEGIN - KEY "RITENUTA ESEGUITA" - PROMPT 85 13 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->49 - FIELD 44->RITESEG -END - -NUMERO 50 -BEGIN - KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA" - PROMPT 101 13 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->50 - FIELD 44->SVNASSRI -END - -NUMERO 51 -BEGIN - KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N." - PROMPT 117 13 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->51 - FIELD 44->AIFCSSN -END - -STRINGA 52 -BEGIN - KEY "CONGUAGLI NON EFFETTUATI" - PROMPT 13 15 "" - FIELD 44->CONEFF -END - -NUMERO 53 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 20 15 "" - PICTURE "###.###.###^^^" - MESSAGE ADD,FL->53 - FIELD 44->IMPVERS -END - -NUMERO 54 -BEGIN - KEY "INTERESSI" - PROMPT 32 15 "" - MESSAGE ADD,FL->54 - FIELD 44->INTERE - PICTURE "###.###.###^^^" -END - -NUMERO 55 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 45 15 "" - PICTURE "###.###.###^^^" - MESSAGE ADD,FL->55 - FIELD 44->CSSN95CV -END - -NUMERO 56 -BEGIN - KEY "INTERESSI" - PROMPT 57 15 "" - PICTURE "###.###.###^^^" - MESSAGE ADD,FL->56 - FIELD 44->INTERE2 -END - -STRINGA 57 -BEGIN - KEY "CONGUAGLI NON EFFETTUATI" - PROMPT 73 15 "" - FIELD 44->CNEFF -END - -STRINGA 58 -BEGIN - KEY "RETTIFICA CONGUAGLIO" - PROMPT 81 15 "" - FIELD 44->RETCON -END - -NUMERO 59 -BEGIN - KEY "IMPOSTA RIMBORSATA" - PROMPT 85 15 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->59 - FIELD 44->IMPRIMB -END - -NUMERO 60 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 101 15 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->60 - FIELD 44->IMPVER -END - -NUMERO 61 -BEGIN - KEY "INTERESSI" - PROMPT 117 15 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->61 - FIELD 44->INTIRPEF -END - -NUMERO 62 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 13 17 "" - PICTURE "###.###^^^" - MESSAGE ADD,FL->62 - FIELD 44->IMPVER2 -END - -NUMERO 63 -BEGIN - KEY "INTERESSI" - PROMPT 24 17 "" - PICTURE "###.###^^^" - MESSAGE ADD,FL->63 - FIELD 44->INTER -END - -NUMERO 64 -BEGIN - KEY "SOPPRATTASSA SU IRPEF" - PROMPT 36 17 "" - PICTURE "###.###^^^" - MESSAGE ADD,FL->64 - FIELD 44->STSIRPEF -END - -NUMERO 65 -BEGIN - KEY "CONTRIBUTO A RIMBORSO" - PROMPT 45 17 "" - PICTURE "###.###.###^^^" - MESSAGE ADD,FL->65 - FIELD 44->CONRIMB -END - -NUMERO 66 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 59 17 "" - PICTURE "###.###.###^^^" - MESSAGE ADD,FL->66 - FIELD 44->CONVER -END - -NUMERO 67 -BEGIN - KEY "INTERESSI" - PROMPT 73 17 "" - PICTURE "###.###.###^^^" - MESSAGE ADD,FL->67 - FIELD 44->INTER2 -END - -NUMERO 68 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 86 17 "" - PICTURE "###.###.###^^^" - MESSAGE ADD,FL->68 - FIELD 44->CONVER2 -END - -NUMERO 69 -BEGIN - KEY "INTERESSI" - PROMPT 100 17 "" - PICTURE "###.###.###^^^" - MESSAGE ADD,FL->69 - FIELD 44->INTER3 -END - -NUMERO 70 -BEGIN - KEY "SOPPRATTASE SU C.S.S.N." - PROMPT 114 17 "" - PICTURE "###.###.###^^^" - MESSAGE ADD,FL->70 - FIELD 44->STSCSSN70 -END - -STRINGA 71 -BEGIN - KEY "MODELLO 730 NON LIQUIDABILE" - PROMPT 129 17 "" - FIELD 44->M730NLIQ -END - -STRINGA 72 -BEGIN - KEY "CODICE FISCALE CAAF" - PROMPT 11 19 "" - FIELD 104@->S1 -END - -STRINGA 73 -BEGIN - KEY "DENOMINAZIONE CAAF" - PROMPT 42 19 "" - FIELD 104@->S0 -END - -NUMERO 74 -BEGIN - KEY "NUMERO ISCRIZIONE ALBO" - PROMPT 122 19 "" - FIELD 104@->I1 - PICTURE "#####" -END - -END - -SECTION FOOTER LAST 12 - -NUMERO 20 -BEGIN - KEY "IN DENARO" - PROMPT 9 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 21 -BEGIN - KEY "IN NATURA" - PROMPT 24 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 22 -BEGIN - KEY "CONTRIBUTI OBBLIGATORI" - PROMPT 39 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 23 -BEGIN - KEY "COMPENSI NETTI" - PROMPT 55 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 24 -BEGIN - KEY "AMMONTARE LORDO" - PROMPT 70 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 25 -BEGIN - KEY "IND.ASS.CONTRIBUTI OBBLIGATORI" - PROMPT 85 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 26 -BEGIN - KEY "SOMME NON ASSOG. A RITEN." - PROMPT 101 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 27 -BEGIN - KEY "TOTALE IMPONIBILE" - PROMPT 117 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 28 -BEGIN - KEY "ASSEGNI ED INDENNITA'" - PROMPT 9 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 29 -BEGIN - KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI" - PROMPT 24 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 30 -BEGIN - KEY "TOTALE IMPONIBILE 2" - PROMPT 39 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 31 -BEGIN - KEY "IMPOSTA CORRISPONDENTE" - PROMPT 55 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 32 -BEGIN - KEY "DETRAZIONE PER CONIUGE A CARICO" - PROMPT 70 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 33 -BEGIN - KEY "DETRAZIONE PER FIGLI A CARICO" - PROMPT 85 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 34 -BEGIN - KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO" - PROMPT 101 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 35 -BEGIN - KEY "DETRAZIONE PER LAVORO DIPENDENTE" - PROMPT 117 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 36 -BEGIN - KEY "DETRAZIONE PER ONERI" - PROMPT 9 5 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 37 -BEGIN - KEY "TOTALE DETRAZIONI" - PROMPT 24 5 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 38 -BEGIN - KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO" - PROMPT 39 5 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 39 -BEGIN - KEY "RITENUTE OPERATE DA TERZI" - PROMPT 55 5 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 40 -BEGIN - KEY "RITENUTE OPERATE DAL DATORE DI LAVORO" - PROMPT 70 5 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 41 -BEGIN - KEY "ECCEDENZA RITENUTE RIMBORSATE" - PROMPT 85 5 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 42 -BEGIN - KEY "AMMONTARE RITENUTE DOVUTE" - PROMPT 101 5 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 43 -BEGIN - KEY "EROGAZIONI PER SPESE SANITARIE" - PROMPT 117 5 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 44 -BEGIN - KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI" - PROMPT 9 7 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 45 -BEGIN - KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE" - PROMPT 24 7 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 46 -BEGIN - KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE" - PROMPT 39 7 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 47 -BEGIN - KEY "AMMONTARE IMPONIBILE" - PROMPT 55 7 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 48 -BEGIN - KEY "DETRAZIONI D'IMPOSTA" - PROMPT 70 7 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 49 -BEGIN - KEY "RITENUTA ESEGUITA" - PROMPT 85 7 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 50 -BEGIN - KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA" - PROMPT 101 7 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 51 -BEGIN - KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N." - PROMPT 117 7 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 53 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 20 9 "" - PICTURE "###.###.###^^^" -END - -NUMERO 54 -BEGIN - KEY "INTERESSI" - PROMPT 32 9 "" - PICTURE "###.###.###^^^" -END - -NUMERO 55 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 45 9 "" - PICTURE "###.###.###^^^" -END - -NUMERO 56 -BEGIN - KEY "INTERESSI" - PROMPT 57 9 "" - PICTURE "###.###.###^^^" -END - -NUMERO 59 -BEGIN - KEY "IMPOSTA RIMBORSATA" - PROMPT 85 9 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 60 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 101 9 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 61 -BEGIN - KEY "INTERESSI" - PROMPT 117 9 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 62 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 13 11 "" - PICTURE "###.###^^^" -END - -NUMERO 63 -BEGIN - KEY "INTERESSI" - PROMPT 24 11 "" - PICTURE "###.###^^^" -END - -NUMERO 64 -BEGIN - KEY "SOPPRATTASSA SU IRPEF" - PROMPT 36 11 "" - PICTURE "###.###^^^" -END - -NUMERO 65 -BEGIN - KEY "CONTRIBUTO A RIMBORSO" - PROMPT 45 11 "" - PICTURE "###.###.###^^^" -END - -NUMERO 66 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 59 11 "" - PICTURE "###.###.###^^^" -END - -NUMERO 67 -BEGIN - KEY "INTERESSI" - PROMPT 73 11 "" - PICTURE "###.###.###^^^" -END - -NUMERO 68 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 86 11 "" - PICTURE "###.###.###^^^" -END - -NUMERO 69 -BEGIN - KEY "INTERESSI" - PROMPT 100 11 "" - PICTURE "###.###.###^^^" -END - -NUMERO 70 -BEGIN - KEY "SOPPRATTASE SU C.S.S.N." - PROMPT 114 11 "" - 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 +USE 44 +JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP +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 +BEGIN + 44->* "Quadro A 770" + 45->* "Anagrafica dei dipendenti" + 104@->* "Tabella CAAF" + 9->* "Ditte" + 106@->* "Anagrafica persone fisiche e giuridiche (ditta)" + 108@->* "Anagrafica persone fisiche (ditta)" + 113@->* "Comuni DITTA (nascita)" + 213@->* "Comuni DITTA (residenza)" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 11 + CARATTERE "X" + INIZIO_POS 3 2 + FINE_POS 131 + GRID "+++++++++-|" +END + +SECTION HEADER FIRST 28 + +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 2 +BEGIN + KEY "CODICE FISCALE" + PROMPT 3 12 "" + FIELD 106@->COFI +END + +STRINGA 3 +BEGIN + KEY "RAGIONE SOCIALE" + PROMPT 39 12 "" + GROUP 2 + FIELD 106@->RAGSOC +END + +STRINGA 4 +BEGIN + KEY "COGNOME" + PROMPT 39 12 "" + GROUP 1 + FIELD 106@->RAGSOC[1,30] +END + +STRINGA 5 +BEGIN + KEY "NOME" + PROMPT 17 14 "" + GROUP 1 + FIELD 106@->RAGSOC[31,50] +END + +STRINGA 6 +BEGIN + KEY "SESSO" + PROMPT 58 14 "" + GROUP 1 + FIELD 108@->SESSO +END + +STRINGA 7 +BEGIN + KEY "DATA DI NASCITA" + PROMPT 67 14 "" + GROUP 1 + FIELD 108@->DATANASC +END + +STRINGA 8 +BEGIN + KEY "COMUNE DI NASCITA" + PROMPT 84 14 "" + GROUP 1 + FIELD 113@->DENCOM +END + +STRINGA 9 +BEGIN + KEY "PROV. DI NASCITA" + PROMPT 125 14 "" + GROUP 1 + FIELD 113@->PROVCOM +END + +STRINGA 10 +BEGIN + KEY "COMUNE DI RES.FISCALE" + PROMPT 17 16 "" + FIELD 213@->DENCOM +END + +STRINGA 11 +BEGIN + KEY "PROV DI RES.FISCALE" + PROMPT 59 16 "" + FIELD 213@->PROVCOM +END + +STRINGA 12 +BEGIN + KEY "VIA di RES." + PROMPT 66 16 "" + FIELD 106@->INDRF + FIELD 106@->INDRES +END + +STRINGA 15 +BEGIN + KEY "NUM. CIVICO di RES." + PROMPT 104 16 "" + FIELD 106@->CIVRF + FIELD 106@->CIVRES +END + +STRINGA 16 +BEGIN + KEY "CAP" + PROMPT 123 16 "" + FIELD 106@->CAPRF + FIELD 106@->CAPRES +END + +STRINGA 13 +BEGIN + KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" + PROMPT 85 19 "" +END + +NUMERO 14 +BEGIN + KEY "NUM. FOGLIO" + PROMPT 125 22 "" +END + +END + +SECTION BODY ODD 20 + +STRINGA 1 +BEGIN + KEY "COD.FIS" + PROMPT 11 1 "" + FIELD 45->CODFI +END + +STRINGA 2 +BEGIN + KEY "COGNOME" + PROMPT 44 1 "" + FIELD 45->COGNOME +END + +STRINGA 3 +BEGIN + KEY "NOME" + PROMPT 82 1 "" + FIELD 45->NOME +END + +DATA 4 +BEGIN + KEY "DATA NASCITA" + PROMPT 114 1 "" + FIELD 45->DATANA + FORMAT "1444-" +END + +STRINGA 5 +BEGIN + KEY "SESSO" + PROMPT 128 1 "" + FIELD 45->SESSO +END + +STRINGA 6 +BEGIN + KEY "COMUNE DI NASCITA" + PROMPT 11 3 "" + FIELD 45->COMUNENA +END + +STRINGA 7 +BEGIN + KEY "PROV DI NASCITA" + PROMPT 47 3 "" + FIELD 45->PROVNA +END + +STRINGA 8 +BEGIN + KEY "COMUNE DI RESIDENZA" + PROMPT 54 3 "" + FIELD 45->COMRES +END + +STRINGA 9 +BEGIN + KEY "PROV. RESIDENZA" + PROMPT 88 3 "" + FIELD 45->PROVRES +END + +STRINGA 10 +BEGIN + KEY "INDIRIZZO RES." + PROMPT 95 3 "" + FIELD 45->INDRES +END + +STRINGA 11 +BEGIN + KEY "STATO CIVILE" + PROMPT 13 5 "" + FIELD 45->STATOCIV +END + +STRINGA 12 +BEGIN + KEY "QUALIFICA" + PROMPT 22 5 "" + FIELD 45->QUALIFICA +END + +STRINGA 13 +BEGIN + KEY "AREA ATTIVITA'" + PROMPT 31 5 "" + FIELD 44->AREAATT +END + +STRINGA 14 +BEGIN + KEY "TIPO" + PROMPT 38 5 "" + FIELD 44->TIPO +END + +NUMERO 15 +BEGIN + KEY "NUMERO GIORNI" + PROMPT 46 5 "" + FIELD 44->NUMGIO + PICTURE "###" +END + +DATA 16 +BEGIN + KEY "DATA FINE RAPPORTO" + PROMPT 62 5 "" + FORMAT "1444-" + PICTURE "## ^ ##^^^^^" + FIELD 44->DATAFR +END + +NUMERO 17 +BEGIN + KEY "GIORNI DETRAZ. LAV. DIP." + PROMPT 80 5 "" + FIELD 44->NUMGIODET + PICTURE "###" +END + +STRINGA 18 +BEGIN + KEY "CF DATORE LAVORO PRECEDENTE" + PROMPT 98 5 "" + FIELD 44->CFDLPREC +END + +NUMERO 19 +BEGIN + KEY "CAUSA" + PROMPT 129 5 "" + FIELD 44->CAUSA +END + +NUMERO 20 +BEGIN + KEY "IN DENARO" + PROMPT 9 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->20 + FIELD 44->DENARO +END + +NUMERO 21 +BEGIN + KEY "IN NATURA" + PROMPT 24 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->21 + FIELD 44->NATURA +END + +NUMERO 22 +BEGIN + KEY "CONTRIBUTI OBBLIGATORI" + PROMPT 39 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->22 + FIELD 44->COBBDIP +END + +NUMERO 23 +BEGIN + KEY "COMPENSI NETTI" + PROMPT 55 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->23 + FIELD 44->COMPNETTI +END + +NUMERO 24 +BEGIN + KEY "AMMONTARE LORDO" + PROMPT 70 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->24 + FIELD 44->AMMLORDO +END + +NUMERO 25 +BEGIN + KEY "IND.ASS.CONTRIBUTI OBBLIGATORI" + PROMPT 85 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->25 + FIELD 44->IACOBBCD +END + +NUMERO 26 +BEGIN + KEY "SOMME NON ASSOG. A RITEN." + PROMPT 101 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->26 + FIELD 44->NORIT +END + +NUMERO 27 +BEGIN + KEY "TOTALE IMPONIBILE" + PROMPT 117 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->27 + FIELD 44->TOTIMP +END + +NUMERO 28 +BEGIN + KEY "ASSEGNI ED INDENNITA'" + PROMPT 9 9 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->28 + FIELD 44->AIENTIPREV +END + +NUMERO 29 +BEGIN + KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI" + PROMPT 24 9 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->29 + FIELD 44->CCTAMMCONT +END + +NUMERO 30 +BEGIN + KEY "TOTALE IMPONIBILE 2" + PROMPT 39 9 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->30 + FIELD 44->TOTIMP2 +END + +NUMERO 31 +BEGIN + KEY "IMPOSTA CORRISPONDENTE" + PROMPT 55 9 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->31 + FIELD 44->ICTOTIMP +END + +NUMERO 32 +BEGIN + KEY "DETRAZIONE PER CONIUGE A CARICO" + PROMPT 70 9 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->32 + FIELD 44->DETCC +END + +NUMERO 33 +BEGIN + KEY "DETRAZIONE PER FIGLI A CARICO" + PROMPT 85 9 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->33 + FIELD 44->DETFC +END + +NUMERO 34 +BEGIN + KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO" + PROMPT 101 9 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->34 + FIELD 44->DETAF +END + +NUMERO 35 +BEGIN + KEY "DETRAZIONE PER LAVORO DIPENDENTE" + PROMPT 117 9 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->35 + FIELD 44->DETLD +END + +NUMERO 36 +BEGIN + KEY "DETRAZIONE PER ONERI" + PROMPT 9 11 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->36 + FIELD 44->DETO +END + +NUMERO 37 +BEGIN + KEY "TOTALE DETRAZIONI" + PROMPT 24 11 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->37 + FIELD 44->TOTDET +END + +NUMERO 38 +BEGIN + KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO" + PROMPT 39 11 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->38 + FIELD 44->INCDETFC +END + +NUMERO 39 +BEGIN + KEY "RITENUTE OPERATE DA TERZI" + PROMPT 55 11 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->39 + FIELD 44->AMRIOT +END + +NUMERO 40 +BEGIN + KEY "RITENUTE OPERATE DAL DATORE DI LAVORO" + PROMPT 70 11 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->40 + FIELD 44->AMRIODL +END + +NUMERO 41 +BEGIN + KEY "ECCEDENZA RITENUTE RIMBORSATE" + PROMPT 85 11 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->41 + FIELD 44->ECCRITRIMB +END + +NUMERO 42 +BEGIN + KEY "AMMONTARE RITENUTE DOVUTE" + PROMPT 101 11 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->42 + FIELD 44->AMMRITDOV +END + +NUMERO 43 +BEGIN + KEY "EROGAZIONI PER SPESE SANITARIE" + PROMPT 117 11 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->43 + FIELD 44->ERSPSAN +END + +NUMERO 44 +BEGIN + KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI" + PROMPT 9 13 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->44 + FIELD 44->PRASSVI +END + +NUMERO 45 +BEGIN + KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE" + PROMPT 24 13 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->45 + FIELD 44->CONPRECO +END + +NUMERO 46 +BEGIN + KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE" + PROMPT 39 13 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->46 + FIELD 44->COBBDIP2 +END + +NUMERO 47 +BEGIN + KEY "AMMONTARE IMPONIBILE" + PROMPT 55 13 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->47 + FIELD 44->AMMIMP +END + +NUMERO 48 +BEGIN + KEY "DETRAZIONI D'IMPOSTA" + PROMPT 70 13 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->48 + FIELD 44->DETIMPOS +END + +NUMERO 49 +BEGIN + KEY "RITENUTA ESEGUITA" + PROMPT 85 13 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->49 + FIELD 44->RITESEG +END + +NUMERO 50 +BEGIN + KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA" + PROMPT 101 13 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->50 + FIELD 44->SVNASSRI +END + +NUMERO 51 +BEGIN + KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N." + PROMPT 117 13 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->51 + FIELD 44->AIFCSSN +END + +STRINGA 52 +BEGIN + KEY "CONGUAGLI NON EFFETTUATI" + PROMPT 13 15 "" + FIELD 44->CONEFF +END + +NUMERO 53 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 20 15 "" + PICTURE "###.###.###^^^" + MESSAGE ADD,FL->53 + FIELD 44->IMPVERS +END + +NUMERO 54 +BEGIN + KEY "INTERESSI" + PROMPT 32 15 "" + MESSAGE ADD,FL->54 + FIELD 44->INTERE + PICTURE "###.###.###^^^" +END + +NUMERO 55 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 45 15 "" + PICTURE "###.###.###^^^" + MESSAGE ADD,FL->55 + FIELD 44->CSSN95CV +END + +NUMERO 56 +BEGIN + KEY "INTERESSI" + PROMPT 57 15 "" + PICTURE "###.###.###^^^" + MESSAGE ADD,FL->56 + FIELD 44->INTERE2 +END + +STRINGA 57 +BEGIN + KEY "CONGUAGLI NON EFFETTUATI" + PROMPT 73 15 "" + FIELD 44->CNEFF +END + +STRINGA 58 +BEGIN + KEY "RETTIFICA CONGUAGLIO" + PROMPT 81 15 "" + FIELD 44->RETCON +END + +NUMERO 59 +BEGIN + KEY "IMPOSTA RIMBORSATA" + PROMPT 85 15 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->59 + FIELD 44->IMPRIMB +END + +NUMERO 60 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 101 15 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->60 + FIELD 44->IMPVER +END + +NUMERO 61 +BEGIN + KEY "INTERESSI" + PROMPT 117 15 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->61 + FIELD 44->INTIRPEF +END + +NUMERO 62 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 13 17 "" + PICTURE "###.###^^^" + MESSAGE ADD,FL->62 + FIELD 44->IMPVER2 +END + +NUMERO 63 +BEGIN + KEY "INTERESSI" + PROMPT 24 17 "" + PICTURE "###.###^^^" + MESSAGE ADD,FL->63 + FIELD 44->INTER +END + +NUMERO 64 +BEGIN + KEY "SOPPRATTASSA SU IRPEF" + PROMPT 36 17 "" + PICTURE "###.###^^^" + MESSAGE ADD,FL->64 + FIELD 44->STSIRPEF +END + +NUMERO 65 +BEGIN + KEY "CONTRIBUTO A RIMBORSO" + PROMPT 45 17 "" + PICTURE "###.###.###^^^" + MESSAGE ADD,FL->65 + FIELD 44->CONRIMB +END + +NUMERO 66 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 59 17 "" + PICTURE "###.###.###^^^" + MESSAGE ADD,FL->66 + FIELD 44->CONVER +END + +NUMERO 67 +BEGIN + KEY "INTERESSI" + PROMPT 73 17 "" + PICTURE "###.###.###^^^" + MESSAGE ADD,FL->67 + FIELD 44->INTER2 +END + +NUMERO 68 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 86 17 "" + PICTURE "###.###.###^^^" + MESSAGE ADD,FL->68 + FIELD 44->CONVER2 +END + +NUMERO 69 +BEGIN + KEY "INTERESSI" + PROMPT 100 17 "" + PICTURE "###.###.###^^^" + MESSAGE ADD,FL->69 + FIELD 44->INTER3 +END + +NUMERO 70 +BEGIN + KEY "SOPPRATTASE SU C.S.S.N." + PROMPT 114 17 "" + PICTURE "###.###.###^^^" + MESSAGE ADD,FL->70 + FIELD 44->STSCSSN70 +END + +STRINGA 71 +BEGIN + KEY "MODELLO 730 NON LIQUIDABILE" + PROMPT 129 17 "" + FIELD 44->M730NLIQ +END + +STRINGA 72 +BEGIN + KEY "CODICE FISCALE CAAF" + PROMPT 11 19 "" + FIELD 104@->S1 +END + +STRINGA 73 +BEGIN + KEY "DENOMINAZIONE CAAF" + PROMPT 42 19 "" + FIELD 104@->S0 +END + +NUMERO 74 +BEGIN + KEY "NUMERO ISCRIZIONE ALBO" + PROMPT 122 19 "" + FIELD 104@->I1 + PICTURE "#####" +END + +END + +SECTION FOOTER LAST 12 + +NUMERO 20 +BEGIN + KEY "IN DENARO" + PROMPT 9 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 21 +BEGIN + KEY "IN NATURA" + PROMPT 24 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 22 +BEGIN + KEY "CONTRIBUTI OBBLIGATORI" + PROMPT 39 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 23 +BEGIN + KEY "COMPENSI NETTI" + PROMPT 55 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 24 +BEGIN + KEY "AMMONTARE LORDO" + PROMPT 70 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 25 +BEGIN + KEY "IND.ASS.CONTRIBUTI OBBLIGATORI" + PROMPT 85 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 26 +BEGIN + KEY "SOMME NON ASSOG. A RITEN." + PROMPT 101 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 27 +BEGIN + KEY "TOTALE IMPONIBILE" + PROMPT 117 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 28 +BEGIN + KEY "ASSEGNI ED INDENNITA'" + PROMPT 9 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 29 +BEGIN + KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI" + PROMPT 24 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 30 +BEGIN + KEY "TOTALE IMPONIBILE 2" + PROMPT 39 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 31 +BEGIN + KEY "IMPOSTA CORRISPONDENTE" + PROMPT 55 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 32 +BEGIN + KEY "DETRAZIONE PER CONIUGE A CARICO" + PROMPT 70 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 33 +BEGIN + KEY "DETRAZIONE PER FIGLI A CARICO" + PROMPT 85 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 34 +BEGIN + KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO" + PROMPT 101 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 35 +BEGIN + KEY "DETRAZIONE PER LAVORO DIPENDENTE" + PROMPT 117 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 36 +BEGIN + KEY "DETRAZIONE PER ONERI" + PROMPT 9 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 37 +BEGIN + KEY "TOTALE DETRAZIONI" + PROMPT 24 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 38 +BEGIN + KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO" + PROMPT 39 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 39 +BEGIN + KEY "RITENUTE OPERATE DA TERZI" + PROMPT 55 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 40 +BEGIN + KEY "RITENUTE OPERATE DAL DATORE DI LAVORO" + PROMPT 70 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 41 +BEGIN + KEY "ECCEDENZA RITENUTE RIMBORSATE" + PROMPT 85 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 42 +BEGIN + KEY "AMMONTARE RITENUTE DOVUTE" + PROMPT 101 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 43 +BEGIN + KEY "EROGAZIONI PER SPESE SANITARIE" + PROMPT 117 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 44 +BEGIN + KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI" + PROMPT 9 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 45 +BEGIN + KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE" + PROMPT 24 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 46 +BEGIN + KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE" + PROMPT 39 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 47 +BEGIN + KEY "AMMONTARE IMPONIBILE" + PROMPT 55 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 48 +BEGIN + KEY "DETRAZIONI D'IMPOSTA" + PROMPT 70 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 49 +BEGIN + KEY "RITENUTA ESEGUITA" + PROMPT 85 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 50 +BEGIN + KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA" + PROMPT 101 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 51 +BEGIN + KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N." + PROMPT 117 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 53 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 20 9 "" + PICTURE "###.###.###^^^" +END + +NUMERO 54 +BEGIN + KEY "INTERESSI" + PROMPT 32 9 "" + PICTURE "###.###.###^^^" +END + +NUMERO 55 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 45 9 "" + PICTURE "###.###.###^^^" +END + +NUMERO 56 +BEGIN + KEY "INTERESSI" + PROMPT 57 9 "" + PICTURE "###.###.###^^^" +END + +NUMERO 59 +BEGIN + KEY "IMPOSTA RIMBORSATA" + PROMPT 85 9 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 60 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 101 9 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 61 +BEGIN + KEY "INTERESSI" + PROMPT 117 9 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 62 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 13 11 "" + PICTURE "###.###^^^" +END + +NUMERO 63 +BEGIN + KEY "INTERESSI" + PROMPT 24 11 "" + PICTURE "###.###^^^" +END + +NUMERO 64 +BEGIN + KEY "SOPPRATTASSA SU IRPEF" + PROMPT 36 11 "" + PICTURE "###.###^^^" +END + +NUMERO 65 +BEGIN + KEY "CONTRIBUTO A RIMBORSO" + PROMPT 45 11 "" + PICTURE "###.###.###^^^" +END + +NUMERO 66 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 59 11 "" + PICTURE "###.###.###^^^" +END + +NUMERO 67 +BEGIN + KEY "INTERESSI" + PROMPT 73 11 "" + PICTURE "###.###.###^^^" +END + +NUMERO 68 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 86 11 "" + PICTURE "###.###.###^^^" +END + +NUMERO 69 +BEGIN + KEY "INTERESSI" + PROMPT 100 11 "" + PICTURE "###.###.###^^^" +END + +NUMERO 70 +BEGIN + KEY "SOPPRATTASE SU C.S.S.N." + PROMPT 114 11 "" + 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 diff --git a/m770/77qa1.frm b/m770/77qa1.frm index f7d2ea5f5..c9bc088dd 100755 --- a/m770/77qa1.frm +++ b/m770/77qa1.frm @@ -1,469 +1,469 @@ -USE 56 -JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP -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) - -END -DESCRIPTION -BEGIN - 56->* "Quadro A1 770" - 45->* "Anagrafica dei dipendenti" - 104@->* "Tabella CAAF" - 9->* "Ditte" - 106@->* "Anagrafica persone fisiche e giuridiche (ditta)" - 108@->* "Anagrafica persone fisiche (ditta)" - 113@->* "Comuni DITTA (nascita)" - 213@->* "Comuni DITTA (residenza)" -END - -GENERAL -BEGIN - OFFSET 0 0 - FONT "Courier New" - SIZE 11 - CARATTERE "X" - INIZIO_POS 3 2 - FINE_POS 131 - GRID "+++++++++-|" -END - -SECTION HEADER FIRST 28 - -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 2 -BEGIN - KEY "CODICE FISCALE" - PROMPT 3 13 "" - FIELD 106@->COFI -END - -STRINGA 3 -BEGIN - KEY "RAGIONE SOCIALE" - PROMPT 40 13 "" - GROUP 2 - FIELD 106@->RAGSOC -END - -STRINGA 4 -BEGIN - KEY "COGNOME" - PROMPT 40 13 "" - GROUP 1 - FIELD 106@->RAGSOC[1,30] -END - -STRINGA 5 -BEGIN - KEY "NOME" - PROMPT 17 15 "" - GROUP 1 - FIELD 106@->RAGSOC[31,50] -END - -STRINGA 6 -BEGIN - KEY "SESSO" - PROMPT 58 15 "" - GROUP 1 - FIELD 108@->SESSO -END - -STRINGA 7 -BEGIN - KEY "DATA DI NASCITA" - PROMPT 67 15 "" - GROUP 1 - FIELD 108@->DATANASC -END - -STRINGA 8 -BEGIN - KEY "COMUNE DI NASCITA" - PROMPT 84 15 "" - GROUP 1 - FIELD 113@->DENCOM -END - -STRINGA 9 -BEGIN - KEY "PROV. DI NASCITA" - PROMPT 126 15 "" - GROUP 1 - FIELD 113@->PROVCOM -END - -STRINGA 10 -BEGIN - KEY "COMUNE DI RES.FISCALE" - PROMPT 17 17 "" - FIELD 213@->DENCOM -END - -STRINGA 11 -BEGIN - KEY "PROV DI RES.FISCALE" - PROMPT 59 17 "" - FIELD 213@->PROVCOM -END - -STRINGA 12 -BEGIN - KEY "VIA di RES." - PROMPT 66 17 "" - FIELD 106@->INDRF - FIELD 106@->INDRES -END - -STRINGA 15 -BEGIN - KEY "NUM. CIVICO di RES." - PROMPT 104 17 "" - FIELD 106@->CIVRF - FIELD 106@->CIVRES -END - -STRINGA 16 -BEGIN - KEY "CAP" - PROMPT 125 17 "" - FIELD 106@->CAPRF - FIELD 106@->CAPRES -END - -STRINGA 13 -BEGIN - KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" - PROMPT 87 20 "" -END - -NUMERO 14 -BEGIN - KEY "NUM. FOGLIO" - PROMPT 125 23 "" -END - -END - -SECTION BODY ODD 10 - -STRINGA 1 -BEGIN - KEY "COD.FIS" - PROMPT 11 1 "" - FIELD 45->CODFI -END - -STRINGA 2 -BEGIN - KEY "COGNOME" - PROMPT 43 1 "" - FIELD 45->COGNOME -END - -STRINGA 3 -BEGIN - KEY "NOME" - PROMPT 80 1 "" - FIELD 45->NOME -END - -DATA 4 -BEGIN - KEY "DATA NASCITA" - PROMPT 114 1 "" - FIELD 45->DATANA - FORMAT "1444-" -END - -STRINGA 5 -BEGIN - KEY "SESSO" - PROMPT 128 1 "" - FIELD 45->SESSO -END - -STRINGA 6 -BEGIN - KEY "COMUNE DI NASCITA" - PROMPT 11 3 "" - FIELD 45->COMUNENA -END - -STRINGA 7 -BEGIN - KEY "PROV DI NASCITA" - PROMPT 48 3 "" - FIELD 45->PROVNA -END - -NUMERO 8 -BEGIN - KEY "MESE DI RIFERIMENTO" - PROMPT 13 5 "" - FIELD 56->MESERIF -END - -NUMERO 9 -BEGIN - KEY "IMPOSTA RIMBORSATA" - PROMPT 25 5 "" - PICTURE "###.###.###.###^^^" - FIELD 56->IMPRIMB9 - MESSAGE ADD,FL->9 -END - -NUMERO 10 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 44 5 "" - PICTURE "###.###.###.###^^^" - FIELD 56->IMPVERS10 - MESSAGE ADD,FL->10 -END - -NUMERO 11 -BEGIN - KEY "INTERESSI" - PROMPT 63 5 "" - PICTURE "###.###.###.###^^^" - FIELD 56->INTER11 - MESSAGE ADD,FL->11 -END - -NUMERO 12 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 81 5 "" - PICTURE "###.###.###.###^^^" - FIELD 56->IMPVERS12 - MESSAGE ADD,FL->12 -END - -NUMERO 13 -BEGIN - KEY "INTERESSI" - PROMPT 100 5 "" - PICTURE "###.###.###.###^^^" - FIELD 56->INTER13 - MESSAGE ADD,FL->13 -END - -NUMERO 14 -BEGIN - KEY "SOPRATTASSA SU IRPEF" - PROMPT 116 5 "" - PICTURE "###.###.###.###^^^" - FIELD 56->STASSA14 - MESSAGE ADD,FL->14 -END - -NUMERO 15 -BEGIN - KEY "CONTRIBUTO A RIMBORSO" - PROMPT 11 7 "" - PICTURE "###.###.###.###^^^" - FIELD 56->CONTRIMB15 - MESSAGE ADD,FL->15 -END - -NUMERO 16 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 30 7 "" - PICTURE "###.###.###.###^^^" - FIELD 56->CONTVERS16 - MESSAGE ADD,FL->16 -END - -NUMERO 17 -BEGIN - KEY "INTERESSI" - PROMPT 49 7 "" - PICTURE "###.###.###.###^^^" - FIELD 56->INTER17 - MESSAGE ADD,FL->17 -END - -NUMERO 18 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 68 7 "" - PICTURE "###.###.###.###^^^" - FIELD 56->CONTVER18 - MESSAGE ADD,FL->18 -END - -NUMERO 19 -BEGIN - KEY "INTERESSI" - PROMPT 86 7 "" - PICTURE "###.###.###.###^^^" - FIELD 56->INTER19 - MESSAGE ADD,FL->19 -END - -NUMERO 20 -BEGIN - KEY "SOPRATTASSA SU IRPEF" - PROMPT 102 7 "" - PICTURE "###.###.###.###^^^" - FIELD 56->STASSA20 - MESSAGE ADD,FL->20 -END - -STRINGA 21 -BEGIN - KEY "CONGUAGLI NON EFFETTUATI" - PROMPT 121 7 "" - FIELD 56->CONNEFF21 -END - -STRINGA 22 -BEGIN - KEY "TIPO CONGUAGLIO" - PROMPT 128 7 "" - FIELD 56->TIPOCONG22 -END - -STRINGA 23 -BEGIN - KEY "CODICE FISCALE CAAF" - PROMPT 11 9 "" - FIELD 104@->S1 -END - -STRINGA 24 -BEGIN - KEY "DENOMINAZIONE CAAF" - PROMPT 43 9 "" - FIELD 104@->S0 -END - -NUMERO 25 -BEGIN - KEY "NUMERO ISCRIZIONE ALBO" - PROMPT 100 9 "" - PICTURE "#####" - FIELD 104@->I1 -END - -DATA 26 -BEGIN - KEY "DATA RICEZIONE MOD.730-5" - PROMPT 115 9 "" - FORMAT "1444-" - PICTURE "## ^ ##^^^^^" - FIELD 56->DATARIC26 -END - -END - -SECTION FOOTER LAST 4 - -NUMERO 9 -BEGIN - KEY "IMPOSTA RIMBORSATA" - PROMPT 25 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 10 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 44 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 11 -BEGIN - KEY "INTERESSI" - PROMPT 63 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 12 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 81 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 13 -BEGIN - KEY "INTERESSI" - PROMPT 100 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 14 -BEGIN - KEY "SOPRATTASSA SU IRPEF" - PROMPT 116 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 15 -BEGIN - KEY "CONTRIBUTO A RIMBORSO" - PROMPT 11 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 16 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 30 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 17 -BEGIN - KEY "INTERESSI" - PROMPT 49 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 18 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 68 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 19 -BEGIN - KEY "INTERESSI" - PROMPT 86 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 20 -BEGIN - KEY "SOPRATTASSA SU IRPEF" - PROMPT 102 3 "" - PICTURE "###.###.###.###^^^" -END - -STRINGA 2 -BEGIN - KEY "FIRMA" - PROMPT 83 5 "" - FIELD 106@->RAGSOC -END - -END - -END +USE 56 +JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP +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) + +END +DESCRIPTION +BEGIN + 56->* "Quadro A1 770" + 45->* "Anagrafica dei dipendenti" + 104@->* "Tabella CAAF" + 9->* "Ditte" + 106@->* "Anagrafica persone fisiche e giuridiche (ditta)" + 108@->* "Anagrafica persone fisiche (ditta)" + 113@->* "Comuni DITTA (nascita)" + 213@->* "Comuni DITTA (residenza)" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 11 + CARATTERE "X" + INIZIO_POS 3 2 + FINE_POS 131 + GRID "+++++++++-|" +END + +SECTION HEADER FIRST 28 + +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 2 +BEGIN + KEY "CODICE FISCALE" + PROMPT 3 13 "" + FIELD 106@->COFI +END + +STRINGA 3 +BEGIN + KEY "RAGIONE SOCIALE" + PROMPT 40 13 "" + GROUP 2 + FIELD 106@->RAGSOC +END + +STRINGA 4 +BEGIN + KEY "COGNOME" + PROMPT 40 13 "" + GROUP 1 + FIELD 106@->RAGSOC[1,30] +END + +STRINGA 5 +BEGIN + KEY "NOME" + PROMPT 17 15 "" + GROUP 1 + FIELD 106@->RAGSOC[31,50] +END + +STRINGA 6 +BEGIN + KEY "SESSO" + PROMPT 58 15 "" + GROUP 1 + FIELD 108@->SESSO +END + +STRINGA 7 +BEGIN + KEY "DATA DI NASCITA" + PROMPT 67 15 "" + GROUP 1 + FIELD 108@->DATANASC +END + +STRINGA 8 +BEGIN + KEY "COMUNE DI NASCITA" + PROMPT 84 15 "" + GROUP 1 + FIELD 113@->DENCOM +END + +STRINGA 9 +BEGIN + KEY "PROV. DI NASCITA" + PROMPT 126 15 "" + GROUP 1 + FIELD 113@->PROVCOM +END + +STRINGA 10 +BEGIN + KEY "COMUNE DI RES.FISCALE" + PROMPT 17 17 "" + FIELD 213@->DENCOM +END + +STRINGA 11 +BEGIN + KEY "PROV DI RES.FISCALE" + PROMPT 59 17 "" + FIELD 213@->PROVCOM +END + +STRINGA 12 +BEGIN + KEY "VIA di RES." + PROMPT 66 17 "" + FIELD 106@->INDRF + FIELD 106@->INDRES +END + +STRINGA 15 +BEGIN + KEY "NUM. CIVICO di RES." + PROMPT 104 17 "" + FIELD 106@->CIVRF + FIELD 106@->CIVRES +END + +STRINGA 16 +BEGIN + KEY "CAP" + PROMPT 125 17 "" + FIELD 106@->CAPRF + FIELD 106@->CAPRES +END + +STRINGA 13 +BEGIN + KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" + PROMPT 87 20 "" +END + +NUMERO 14 +BEGIN + KEY "NUM. FOGLIO" + PROMPT 125 23 "" +END + +END + +SECTION BODY ODD 10 + +STRINGA 1 +BEGIN + KEY "COD.FIS" + PROMPT 11 1 "" + FIELD 45->CODFI +END + +STRINGA 2 +BEGIN + KEY "COGNOME" + PROMPT 43 1 "" + FIELD 45->COGNOME +END + +STRINGA 3 +BEGIN + KEY "NOME" + PROMPT 80 1 "" + FIELD 45->NOME +END + +DATA 4 +BEGIN + KEY "DATA NASCITA" + PROMPT 114 1 "" + FIELD 45->DATANA + FORMAT "1444-" +END + +STRINGA 5 +BEGIN + KEY "SESSO" + PROMPT 128 1 "" + FIELD 45->SESSO +END + +STRINGA 6 +BEGIN + KEY "COMUNE DI NASCITA" + PROMPT 11 3 "" + FIELD 45->COMUNENA +END + +STRINGA 7 +BEGIN + KEY "PROV DI NASCITA" + PROMPT 48 3 "" + FIELD 45->PROVNA +END + +NUMERO 8 +BEGIN + KEY "MESE DI RIFERIMENTO" + PROMPT 13 5 "" + FIELD 56->MESERIF +END + +NUMERO 9 +BEGIN + KEY "IMPOSTA RIMBORSATA" + PROMPT 25 5 "" + PICTURE "###.###.###.###^^^" + FIELD 56->IMPRIMB9 + MESSAGE ADD,FL->9 +END + +NUMERO 10 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 44 5 "" + PICTURE "###.###.###.###^^^" + FIELD 56->IMPVERS10 + MESSAGE ADD,FL->10 +END + +NUMERO 11 +BEGIN + KEY "INTERESSI" + PROMPT 63 5 "" + PICTURE "###.###.###.###^^^" + FIELD 56->INTER11 + MESSAGE ADD,FL->11 +END + +NUMERO 12 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 81 5 "" + PICTURE "###.###.###.###^^^" + FIELD 56->IMPVERS12 + MESSAGE ADD,FL->12 +END + +NUMERO 13 +BEGIN + KEY "INTERESSI" + PROMPT 100 5 "" + PICTURE "###.###.###.###^^^" + FIELD 56->INTER13 + MESSAGE ADD,FL->13 +END + +NUMERO 14 +BEGIN + KEY "SOPRATTASSA SU IRPEF" + PROMPT 116 5 "" + PICTURE "###.###.###.###^^^" + FIELD 56->STASSA14 + MESSAGE ADD,FL->14 +END + +NUMERO 15 +BEGIN + KEY "CONTRIBUTO A RIMBORSO" + PROMPT 11 7 "" + PICTURE "###.###.###.###^^^" + FIELD 56->CONTRIMB15 + MESSAGE ADD,FL->15 +END + +NUMERO 16 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 30 7 "" + PICTURE "###.###.###.###^^^" + FIELD 56->CONTVERS16 + MESSAGE ADD,FL->16 +END + +NUMERO 17 +BEGIN + KEY "INTERESSI" + PROMPT 49 7 "" + PICTURE "###.###.###.###^^^" + FIELD 56->INTER17 + MESSAGE ADD,FL->17 +END + +NUMERO 18 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 68 7 "" + PICTURE "###.###.###.###^^^" + FIELD 56->CONTVER18 + MESSAGE ADD,FL->18 +END + +NUMERO 19 +BEGIN + KEY "INTERESSI" + PROMPT 86 7 "" + PICTURE "###.###.###.###^^^" + FIELD 56->INTER19 + MESSAGE ADD,FL->19 +END + +NUMERO 20 +BEGIN + KEY "SOPRATTASSA SU IRPEF" + PROMPT 102 7 "" + PICTURE "###.###.###.###^^^" + FIELD 56->STASSA20 + MESSAGE ADD,FL->20 +END + +STRINGA 21 +BEGIN + KEY "CONGUAGLI NON EFFETTUATI" + PROMPT 121 7 "" + FIELD 56->CONNEFF21 +END + +STRINGA 22 +BEGIN + KEY "TIPO CONGUAGLIO" + PROMPT 128 7 "" + FIELD 56->TIPOCONG22 +END + +STRINGA 23 +BEGIN + KEY "CODICE FISCALE CAAF" + PROMPT 11 9 "" + FIELD 104@->S1 +END + +STRINGA 24 +BEGIN + KEY "DENOMINAZIONE CAAF" + PROMPT 43 9 "" + FIELD 104@->S0 +END + +NUMERO 25 +BEGIN + KEY "NUMERO ISCRIZIONE ALBO" + PROMPT 100 9 "" + PICTURE "#####" + FIELD 104@->I1 +END + +DATA 26 +BEGIN + KEY "DATA RICEZIONE MOD.730-5" + PROMPT 115 9 "" + FORMAT "1444-" + PICTURE "## ^ ##^^^^^" + FIELD 56->DATARIC26 +END + +END + +SECTION FOOTER LAST 4 + +NUMERO 9 +BEGIN + KEY "IMPOSTA RIMBORSATA" + PROMPT 25 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 10 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 44 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 11 +BEGIN + KEY "INTERESSI" + PROMPT 63 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 12 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 81 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 13 +BEGIN + KEY "INTERESSI" + PROMPT 100 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 14 +BEGIN + KEY "SOPRATTASSA SU IRPEF" + PROMPT 116 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 15 +BEGIN + KEY "CONTRIBUTO A RIMBORSO" + PROMPT 11 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 16 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 30 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 17 +BEGIN + KEY "INTERESSI" + PROMPT 49 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 18 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 68 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 19 +BEGIN + KEY "INTERESSI" + PROMPT 86 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 20 +BEGIN + KEY "SOPRATTASSA SU IRPEF" + PROMPT 102 3 "" + PICTURE "###.###.###.###^^^" +END + +STRINGA 2 +BEGIN + KEY "FIRMA" + PROMPT 83 5 "" + FIELD 106@->RAGSOC +END + +END + +END diff --git a/m770/77qa2.frm b/m770/77qa2.frm index 223d97ac3..f09543ce4 100755 --- a/m770/77qa2.frm +++ b/m770/77qa2.frm @@ -1,468 +1,468 @@ -USE 57 -JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP -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 -BEGIN - 57->* "Quadro A2 770" - 45->* "Anagrafica dei dipendenti" - 104@->* "Tabella CAAF" - 9->* "Ditte" - 106@->* "Anagrafica persone fisiche e giuridiche (ditta)" - 108@->* "Anagrafica persone fisiche (ditta)" - 113@->* "Comuni DITTA (nascita)" - 213@->* "Comuni DITTA (residenza)" -END - -GENERAL -BEGIN - OFFSET 0 0 - FONT "Courier New" - SIZE 11 - CARATTERE "X" - INIZIO_POS 3 2 - FINE_POS 131 - GRID "+++++++++-|" -END - -SECTION HEADER FIRST 28 - -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 2 -BEGIN - KEY "CODICE FISCALE" - PROMPT 3 13 "" - FIELD 106@->COFI -END - -STRINGA 3 -BEGIN - KEY "RAGIONE SOCIALE" - PROMPT 40 13 "" - GROUP 2 - FIELD 106@->RAGSOC -END - -STRINGA 4 -BEGIN - KEY "COGNOME" - PROMPT 40 13 "" - GROUP 1 - FIELD 106@->RAGSOC[1,30] -END - -STRINGA 5 -BEGIN - KEY "NOME" - PROMPT 17 15 "" - GROUP 1 - FIELD 106@->RAGSOC[31,50] -END - -STRINGA 6 -BEGIN - KEY "SESSO" - PROMPT 59 15 "" - GROUP 1 - FIELD 108@->SESSO -END - -STRINGA 7 -BEGIN - KEY "DATA DI NASCITA" - PROMPT 67 15 "" - GROUP 1 - FIELD 108@->DATANASC -END - -STRINGA 8 -BEGIN - KEY "COMUNE DI NASCITA" - PROMPT 84 15 "" - GROUP 1 - FIELD 113@->DENCOM -END - -STRINGA 9 -BEGIN - KEY "PROV. DI NASCITA" - PROMPT 125 15 "" - GROUP 1 - FIELD 113@->PROVCOM -END - -STRINGA 10 -BEGIN - KEY "COMUNE DI RES.FISCALE" - PROMPT 17 17 "" - FIELD 213@->DENCOM -END - -STRINGA 11 -BEGIN - KEY "PROV DI RES.FISCALE" - PROMPT 59 17 "" - FIELD 213@->PROVCOM -END - -STRINGA 12 -BEGIN - KEY "VIA di RES." - PROMPT 66 17 "" - FIELD 106@->INDRF - FIELD 106@->INDRES -END - -STRINGA 15 -BEGIN - KEY "NUM. CIVICO di RES." - PROMPT 104 17 "" - FIELD 106@->CIVRF - FIELD 106@->CIVRES -END - -STRINGA 16 -BEGIN - KEY "CAP" - PROMPT 123 17 "" - FIELD 106@->CAPRF - FIELD 106@->CAPRES -END - -STRINGA 13 -BEGIN - KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" - PROMPT 87 20 "" -END - -NUMERO 14 -BEGIN - KEY "NUM. FOGLIO" - PROMPT 125 23 "" -END - -END - -SECTION BODY ODD 10 - -STRINGA 1 -BEGIN - KEY "COD.FIS" - PROMPT 11 1 "" - FIELD 45->CODFI -END - -STRINGA 2 -BEGIN - KEY "COGNOME" - PROMPT 43 1 "" - FIELD 45->COGNOME -END - -STRINGA 3 -BEGIN - KEY "NOME" - PROMPT 80 1 "" - FIELD 45->NOME -END - -DATA 4 -BEGIN - KEY "DATA NASCITA" - PROMPT 114 1 "" - FIELD 45->DATANA - FORMAT "1444-" -END - -STRINGA 5 -BEGIN - KEY "SESSO" - PROMPT 128 1 "" - FIELD 45->SESSO -END - -STRINGA 6 -BEGIN - KEY "COMUNE DI NASCITA" - PROMPT 11 3 "" - FIELD 45->COMUNENA -END - -STRINGA 7 -BEGIN - KEY "PROV. DI NASCITA" - PROMPT 48 3 "" - FIELD 45->PROVNA -END - -STRINGA 8 -BEGIN - KEY "CONGUAGLI NON EFFETTUATI" - PROMPT 16 5 "" - FIELD 57->CONEFF -END - -STRINGA 9 -BEGIN - KEY "RETTIFICA CONGUAGLIO" - PROMPT 31 5 "" - FIELD 57->RETCON -END - -NUMERO 10 -BEGIN - KEY "IMPOSTA RIMBORSATA" - PROMPT 39 5 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->10 - FIELD 57->SIRPEFRIMB -END - -NUMERO 11 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 54 5 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->11 - FIELD 57->VIRPEF -END - -NUMERO 12 -BEGIN - KEY "INTERESSI" - PROMPT 70 5 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->12 - FIELD 57->INTIRPEF -END - -NUMERO 13 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 85 5 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->13 - FIELD 57->AIRPEFIV -END - -NUMERO 14 -BEGIN - KEY "INTERESSI" - PROMPT 100 5 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->14 - FIELD 57->AIRPEFINT -END - -NUMERO 15 -BEGIN - KEY "SOPRATTASSA SU IRPEF" - PROMPT 115 5 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->15 - FIELD 57->STASSA15 -END - -NUMERO 16 -BEGIN - KEY "CONTRIBUTO A RIMBORSO" - PROMPT 8 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->16 - FIELD 57->CONTR16 -END - -NUMERO 17 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 23 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->17 - FIELD 57->CONTRVER -END - -NUMERO 18 -BEGIN - KEY "INTERESSI" - PROMPT 39 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->18 - FIELD 57->INTER18 -END - -NUMERO 19 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 54 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->19 - FIELD 57->CONTV19 -END - -NUMERO 20 -BEGIN - KEY "INTERESSI" - PROMPT 70 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->20 - FIELD 57->INTE20 -END - -NUMERO 21 -BEGIN - KEY "SOPRATTASSA SU CSSN" - PROMPT 85 7 "" - PICTURE "###.###.###.###^^^" - MESSAGE ADD,FL->21 - FIELD 57->SOPRAT21 -END - -NUMERO 22 -BEGIN - KEY "MOD. 730/95 NON LIQUIDABILE" - PROMPT 108 7 "" - FIELD 57->M730NLIQ -END - -STRINGA 23 -BEGIN - KEY "CODICE FISCALE CAAF" - PROMPT 11 9 "" - FIELD 104@->S1 -END - -STRINGA 24 -BEGIN - KEY "DENOMINAZIONE CAAF" - PROMPT 44 9 "" - FIELD 104@->S0 -END - -NUMERO 25 -BEGIN - KEY "NUMERO ISCRIZIONE ALBO" - PROMPT 119 9 "" - FIELD 104@->I1 -END - -END - -SECTION FOOTER LAST 4 - -NUMERO 10 -BEGIN - KEY "IMPOSTA RIMBORSATA" - PROMPT 39 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 11 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 54 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 12 -BEGIN - KEY "INTERESSI" - PROMPT 70 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 13 -BEGIN - KEY "IMPOSTA VERSATA" - PROMPT 85 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 14 -BEGIN - KEY "INTERESSI" - PROMPT 100 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 15 -BEGIN - KEY "SOPRATTASSA SU IRPEF" - PROMPT 115 1 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 16 -BEGIN - KEY "CONTRIBUTO A RIMBORSO" - PROMPT 8 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 17 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 23 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 18 -BEGIN - KEY "INTERESSI" - PROMPT 39 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 19 -BEGIN - KEY "CONTRIBUTO VERSATO" - PROMPT 54 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 20 -BEGIN - KEY "INTERESSI" - PROMPT 70 3 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 21 -BEGIN - KEY "SOPRATTASSA SU CSSN" - PROMPT 85 3 "" - 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 +USE 57 +JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP +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 +BEGIN + 57->* "Quadro A2 770" + 45->* "Anagrafica dei dipendenti" + 104@->* "Tabella CAAF" + 9->* "Ditte" + 106@->* "Anagrafica persone fisiche e giuridiche (ditta)" + 108@->* "Anagrafica persone fisiche (ditta)" + 113@->* "Comuni DITTA (nascita)" + 213@->* "Comuni DITTA (residenza)" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 11 + CARATTERE "X" + INIZIO_POS 3 2 + FINE_POS 131 + GRID "+++++++++-|" +END + +SECTION HEADER FIRST 28 + +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 2 +BEGIN + KEY "CODICE FISCALE" + PROMPT 3 13 "" + FIELD 106@->COFI +END + +STRINGA 3 +BEGIN + KEY "RAGIONE SOCIALE" + PROMPT 40 13 "" + GROUP 2 + FIELD 106@->RAGSOC +END + +STRINGA 4 +BEGIN + KEY "COGNOME" + PROMPT 40 13 "" + GROUP 1 + FIELD 106@->RAGSOC[1,30] +END + +STRINGA 5 +BEGIN + KEY "NOME" + PROMPT 17 15 "" + GROUP 1 + FIELD 106@->RAGSOC[31,50] +END + +STRINGA 6 +BEGIN + KEY "SESSO" + PROMPT 59 15 "" + GROUP 1 + FIELD 108@->SESSO +END + +STRINGA 7 +BEGIN + KEY "DATA DI NASCITA" + PROMPT 67 15 "" + GROUP 1 + FIELD 108@->DATANASC +END + +STRINGA 8 +BEGIN + KEY "COMUNE DI NASCITA" + PROMPT 84 15 "" + GROUP 1 + FIELD 113@->DENCOM +END + +STRINGA 9 +BEGIN + KEY "PROV. DI NASCITA" + PROMPT 125 15 "" + GROUP 1 + FIELD 113@->PROVCOM +END + +STRINGA 10 +BEGIN + KEY "COMUNE DI RES.FISCALE" + PROMPT 17 17 "" + FIELD 213@->DENCOM +END + +STRINGA 11 +BEGIN + KEY "PROV DI RES.FISCALE" + PROMPT 59 17 "" + FIELD 213@->PROVCOM +END + +STRINGA 12 +BEGIN + KEY "VIA di RES." + PROMPT 66 17 "" + FIELD 106@->INDRF + FIELD 106@->INDRES +END + +STRINGA 15 +BEGIN + KEY "NUM. CIVICO di RES." + PROMPT 104 17 "" + FIELD 106@->CIVRF + FIELD 106@->CIVRES +END + +STRINGA 16 +BEGIN + KEY "CAP" + PROMPT 123 17 "" + FIELD 106@->CAPRF + FIELD 106@->CAPRES +END + +STRINGA 13 +BEGIN + KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" + PROMPT 87 20 "" +END + +NUMERO 14 +BEGIN + KEY "NUM. FOGLIO" + PROMPT 125 23 "" +END + +END + +SECTION BODY ODD 10 + +STRINGA 1 +BEGIN + KEY "COD.FIS" + PROMPT 11 1 "" + FIELD 45->CODFI +END + +STRINGA 2 +BEGIN + KEY "COGNOME" + PROMPT 43 1 "" + FIELD 45->COGNOME +END + +STRINGA 3 +BEGIN + KEY "NOME" + PROMPT 80 1 "" + FIELD 45->NOME +END + +DATA 4 +BEGIN + KEY "DATA NASCITA" + PROMPT 114 1 "" + FIELD 45->DATANA + FORMAT "1444-" +END + +STRINGA 5 +BEGIN + KEY "SESSO" + PROMPT 128 1 "" + FIELD 45->SESSO +END + +STRINGA 6 +BEGIN + KEY "COMUNE DI NASCITA" + PROMPT 11 3 "" + FIELD 45->COMUNENA +END + +STRINGA 7 +BEGIN + KEY "PROV. DI NASCITA" + PROMPT 48 3 "" + FIELD 45->PROVNA +END + +STRINGA 8 +BEGIN + KEY "CONGUAGLI NON EFFETTUATI" + PROMPT 16 5 "" + FIELD 57->CONEFF +END + +STRINGA 9 +BEGIN + KEY "RETTIFICA CONGUAGLIO" + PROMPT 31 5 "" + FIELD 57->RETCON +END + +NUMERO 10 +BEGIN + KEY "IMPOSTA RIMBORSATA" + PROMPT 39 5 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->10 + FIELD 57->SIRPEFRIMB +END + +NUMERO 11 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 54 5 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->11 + FIELD 57->VIRPEF +END + +NUMERO 12 +BEGIN + KEY "INTERESSI" + PROMPT 70 5 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->12 + FIELD 57->INTIRPEF +END + +NUMERO 13 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 85 5 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->13 + FIELD 57->AIRPEFIV +END + +NUMERO 14 +BEGIN + KEY "INTERESSI" + PROMPT 100 5 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->14 + FIELD 57->AIRPEFINT +END + +NUMERO 15 +BEGIN + KEY "SOPRATTASSA SU IRPEF" + PROMPT 115 5 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->15 + FIELD 57->STASSA15 +END + +NUMERO 16 +BEGIN + KEY "CONTRIBUTO A RIMBORSO" + PROMPT 8 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->16 + FIELD 57->CONTR16 +END + +NUMERO 17 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 23 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->17 + FIELD 57->CONTRVER +END + +NUMERO 18 +BEGIN + KEY "INTERESSI" + PROMPT 39 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->18 + FIELD 57->INTER18 +END + +NUMERO 19 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 54 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->19 + FIELD 57->CONTV19 +END + +NUMERO 20 +BEGIN + KEY "INTERESSI" + PROMPT 70 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->20 + FIELD 57->INTE20 +END + +NUMERO 21 +BEGIN + KEY "SOPRATTASSA SU CSSN" + PROMPT 85 7 "" + PICTURE "###.###.###.###^^^" + MESSAGE ADD,FL->21 + FIELD 57->SOPRAT21 +END + +NUMERO 22 +BEGIN + KEY "MOD. 730/95 NON LIQUIDABILE" + PROMPT 108 7 "" + FIELD 57->M730NLIQ +END + +STRINGA 23 +BEGIN + KEY "CODICE FISCALE CAAF" + PROMPT 11 9 "" + FIELD 104@->S1 +END + +STRINGA 24 +BEGIN + KEY "DENOMINAZIONE CAAF" + PROMPT 44 9 "" + FIELD 104@->S0 +END + +NUMERO 25 +BEGIN + KEY "NUMERO ISCRIZIONE ALBO" + PROMPT 119 9 "" + FIELD 104@->I1 +END + +END + +SECTION FOOTER LAST 4 + +NUMERO 10 +BEGIN + KEY "IMPOSTA RIMBORSATA" + PROMPT 39 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 11 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 54 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 12 +BEGIN + KEY "INTERESSI" + PROMPT 70 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 13 +BEGIN + KEY "IMPOSTA VERSATA" + PROMPT 85 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 14 +BEGIN + KEY "INTERESSI" + PROMPT 100 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 15 +BEGIN + KEY "SOPRATTASSA SU IRPEF" + PROMPT 115 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 16 +BEGIN + KEY "CONTRIBUTO A RIMBORSO" + PROMPT 8 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 17 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 23 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 18 +BEGIN + KEY "INTERESSI" + PROMPT 39 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 19 +BEGIN + KEY "CONTRIBUTO VERSATO" + PROMPT 54 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 20 +BEGIN + KEY "INTERESSI" + PROMPT 70 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 21 +BEGIN + KEY "SOPRATTASSA SU CSSN" + PROMPT 85 3 "" + 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 diff --git a/m770/77qa3.frm b/m770/77qa3.frm index f80b423b5..1aa333ef3 100755 --- a/m770/77qa3.frm +++ b/m770/77qa3.frm @@ -1,432 +1,432 @@ -USE 58 -JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP -JOIN 9 INTO CODDITTA=CODDITTA -JOIN 102 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 37 INTO CODDITTA=CODDITTA -END - -DESCRIPTION -BEGIN - 58->* "Quadro A3 770" - 45->* "Anagrafica dei dipendenti" - 9->* "Ditte" - 106@->* "Anagrafica persone fisiche e giuridiche (ditta)" - 108@->* "Anagrafica persone fisiche (ditta)" - 113@->* "Comuni DITTA (nascita)" - 213@->* "Comuni DITTA (residenza)" -END - -GENERAL -BEGIN - OFFSET 0 0 - FONT "Courier New" - SIZE 11 - CARATTERE "X" - INIZIO_POS 3 2 - FINE_POS 131 - GRID "+++++++++-|" -END - -SECTION HEADER FIRST 28 - -LISTA 100 -BEGIN - KEY "Ditta trasformata" - FLAGS "H" - ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@ - ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@ - FIELD 58->NPROG -END - -LISTA 1 -BEGIN - KEY "Tipo anagrafica" - FLAGS "H" - FIELD 106@->TIPOA - ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@ - ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@ - GROUP 10 -END - -STRINGA 2 -BEGIN - KEY "CODICE FISCALE" - PROMPT 3 13 "" - FIELD 106@->COFI - GROUP 10 -END - -STRINGA 3 -BEGIN - KEY "RAGIONE SOCIALE" - PROMPT 40 13 "" - FIELD 106@->RAGSOC - GROUP 10 12 -END - -STRINGA 4 -BEGIN - KEY "COGNOME" - PROMPT 40 13 "" - FIELD 106@->RAGSOC[1,30] - GROUP 10 11 -END - -STRINGA 5 -BEGIN - KEY "NOME" - PROMPT 17 15 "" - FIELD 106@->RAGSOC[31,50] - GROUP 10 11 -END - -STRINGA 6 -BEGIN - KEY "SESSO" - PROMPT 59 15 "" - FIELD 108@->SESSO - GROUP 10 11 -END - -STRINGA 7 -BEGIN - KEY "DATA DI NASCITA" - PROMPT 67 15 "" - FIELD 108@->DATANASC - GROUP 10 11 -END - -STRINGA 8 -BEGIN - KEY "COMUNE DI NASCITA" - PROMPT 84 15 "" - FIELD 113@->DENCOM - GROUP 10 11 -END - -STRINGA 9 -BEGIN - KEY "PROV. DI NASCITA" - PROMPT 126 15 "" - FIELD 113@->PROVCOM - GROUP 10 11 -END - -STRINGA 10 -BEGIN - KEY "COMUNE DI RES.FISCALE" - PROMPT 17 17 "" - FIELD 213@->DENCOM - GROUP 10 -END - -STRINGA 11 -BEGIN - KEY "PROV DI RES.FISCALE" - PROMPT 59 17 "" - FIELD 213@->PROVCOM - GROUP 10 -END - -STRINGA 12 -BEGIN - KEY "VIA di RES." - PROMPT 67 17 "" - FIELD 106@->INDRF - FIELD 106@->INDRES - GROUP 10 -END - -STRINGA 15 -BEGIN - KEY "NUM. CIVICO di RES." - PROMPT 104 17 "" - FIELD 106@->CIVRF - FIELD 106@->CIVRES - GROUP 10 -END - -STRINGA 16 -BEGIN - KEY "CAP" - PROMPT 123 17 "" - FIELD 106@->CAPRF - FIELD 106@->CAPRES - GROUP 10 -END - -LISTA 101 -BEGIN - 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 -BEGIN - KEY "CODICE FISCALE" - PROMPT 3 12 "" - FIELD 102->CODFISC - GROUP 20 -END - -STRINGA 103 -BEGIN - KEY "RAGIONE SOCIALE" - PROMPT 39 12 "" - FIELD 102->DENOMIN - GROUP 20 22 -END - -STRINGA 104 -BEGIN - KEY "COGNOME" - PROMPT 39 12 "" - FIELD 102->DENOMIN - GROUP 20 21 -END - -STRINGA 105 -BEGIN - KEY "NOME" - PROMPT 17 14 "" - FIELD 102->NOME - GROUP 20 21 -END - -STRINGA 106 -BEGIN - KEY "SESSO" - PROMPT 58 14 "" - FIELD 102->SESSO - GROUP 20 21 -END - -STRINGA 107 -BEGIN - KEY "DATA DI NASCITA" - PROMPT 67 14 "" - FIELD 102->DATANAS - GROUP 20 21 -END - -STRINGA 108 -BEGIN - KEY "COMUNE DI NASCITA" - PROMPT 84 14 "" - FIELD 102->COMNAS - GROUP 20 21 -END - -STRINGA 109 -BEGIN - KEY "PROV. DI NASCITA" - PROMPT 125 14 "" - FIELD 102->PROVNAS - GROUP 20 21 -END - -STRINGA 110 -BEGIN - KEY "COMUNE DI RES.FISCALE" - PROMPT 17 16 "" - FIELD 102->COMDOM - GROUP 20 -END - -STRINGA 111 -BEGIN - KEY "PROV DI RES.FISCALE" - PROMPT 59 16 "" - FIELD 102->PROVDOM - GROUP 20 -END - -STRINGA 112 -BEGIN - KEY "VIA di RES." - PROMPT 66 16 "" - FIELD 102->INDDOM - 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 - -STRINGA 1 -BEGIN - KEY "COD.FIS" - PROMPT 11 1 "" - FIELD 45->CODFI -END - -STRINGA 2 -BEGIN - KEY "COGNOME" - PROMPT 42 1 "" - FIELD 45->COGNOME -END - -STRINGA 3 -BEGIN - KEY "NOME" - PROMPT 79 1 "" - FIELD 45->NOME -END - -DATA 4 -BEGIN - KEY "DATA NASCITA" - PROMPT 114 1 "" - FIELD 45->DATANA - FORMAT "1444-" -END - -STRINGA 5 -BEGIN - KEY "SESSO" - PROMPT 128 1 "" - FIELD 45->SESSO -END - -STRINGA 6 -BEGIN - KEY "COMUNE DI NASCITA" - PROMPT 11 3 "" - FIELD 45->COMUNENA -END - -STRINGA 7 -BEGIN - KEY "PROV DI NASCITA" - PROMPT 47 3 "" - FIELD 45->PROVNA -END - -DATA 8 -BEGIN - KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO" - PROMPT 11 5 "" - FIELD 58->DIRAPTI - FORMAT "1444-" - PICTURE "## ^ ##^^^##" -END - -NUMERO 9 -BEGIN - KEY "NUMERO GIORNI IN INCREMENTO" - PROMPT 35 5 "" - PICTURE "######" - FIELD 58->NGINC15 -END - -NUMERO 10 -BEGIN - KEY "REDDITO CORRISPOSTO" - PROMPT 43 5 "" - MESSAGE ADD,FL->10 - PICTURE "###.###.###.###^^^" - FIELD 58->REDCOR16 -END - -NUMERO 11 -BEGIN - KEY "NUMERO GIORNI IN INCREMENTO" - PROMPT 69 5 "" - PICTURE "######" - FIELD 58->NGINC17 -END - -NUMERO 12 -BEGIN - KEY "REDDITO CORRISPOSTO" - PROMPT 77 5 "" - MESSAGE ADD,FL->12 - PICTURE "###.###.###.###^^^" - FIELD 58->REDCOR18 -END - -END - -SECTION FOOTER LAST 2 - -NUMERO 10 -BEGIN - KEY "REDDITO CORRISPOSTO" - PROMPT 43 5 "" - PICTURE "###.###.###.###^^^" -END - -NUMERO 12 -BEGIN - KEY "REDDITO CORRISPOSTO" - PROMPT 77 5 "" - PICTURE "###.###.###.###^^^" -END - -STRINGA 2 -BEGIN - KEY "FIRMA" - PROMPT 83 8 "" - FIELD 106@->RAGSOC -END - - - -END - -END +USE 58 +JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP +JOIN 9 INTO CODDITTA=CODDITTA +JOIN 102 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 37 INTO CODDITTA=CODDITTA +END + +DESCRIPTION +BEGIN + 58->* "Quadro A3 770" + 45->* "Anagrafica dei dipendenti" + 9->* "Ditte" + 106@->* "Anagrafica persone fisiche e giuridiche (ditta)" + 108@->* "Anagrafica persone fisiche (ditta)" + 113@->* "Comuni DITTA (nascita)" + 213@->* "Comuni DITTA (residenza)" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 11 + CARATTERE "X" + INIZIO_POS 3 2 + FINE_POS 131 + GRID "+++++++++-|" +END + +SECTION HEADER FIRST 28 + +LISTA 100 +BEGIN + KEY "Ditta trasformata" + FLAGS "H" + ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@ + ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@ + FIELD 58->NPROG +END + +LISTA 1 +BEGIN + KEY "Tipo anagrafica" + FLAGS "H" + FIELD 106@->TIPOA + ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@ + ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@ + GROUP 10 +END + +STRINGA 2 +BEGIN + KEY "CODICE FISCALE" + PROMPT 3 13 "" + FIELD 106@->COFI + GROUP 10 +END + +STRINGA 3 +BEGIN + KEY "RAGIONE SOCIALE" + PROMPT 40 13 "" + FIELD 106@->RAGSOC + GROUP 10 12 +END + +STRINGA 4 +BEGIN + KEY "COGNOME" + PROMPT 40 13 "" + FIELD 106@->RAGSOC[1,30] + GROUP 10 11 +END + +STRINGA 5 +BEGIN + KEY "NOME" + PROMPT 17 15 "" + FIELD 106@->RAGSOC[31,50] + GROUP 10 11 +END + +STRINGA 6 +BEGIN + KEY "SESSO" + PROMPT 59 15 "" + FIELD 108@->SESSO + GROUP 10 11 +END + +STRINGA 7 +BEGIN + KEY "DATA DI NASCITA" + PROMPT 67 15 "" + FIELD 108@->DATANASC + GROUP 10 11 +END + +STRINGA 8 +BEGIN + KEY "COMUNE DI NASCITA" + PROMPT 84 15 "" + FIELD 113@->DENCOM + GROUP 10 11 +END + +STRINGA 9 +BEGIN + KEY "PROV. DI NASCITA" + PROMPT 126 15 "" + FIELD 113@->PROVCOM + GROUP 10 11 +END + +STRINGA 10 +BEGIN + KEY "COMUNE DI RES.FISCALE" + PROMPT 17 17 "" + FIELD 213@->DENCOM + GROUP 10 +END + +STRINGA 11 +BEGIN + KEY "PROV DI RES.FISCALE" + PROMPT 59 17 "" + FIELD 213@->PROVCOM + GROUP 10 +END + +STRINGA 12 +BEGIN + KEY "VIA di RES." + PROMPT 67 17 "" + FIELD 106@->INDRF + FIELD 106@->INDRES + GROUP 10 +END + +STRINGA 15 +BEGIN + KEY "NUM. CIVICO di RES." + PROMPT 104 17 "" + FIELD 106@->CIVRF + FIELD 106@->CIVRES + GROUP 10 +END + +STRINGA 16 +BEGIN + KEY "CAP" + PROMPT 123 17 "" + FIELD 106@->CAPRF + FIELD 106@->CAPRES + GROUP 10 +END + +LISTA 101 +BEGIN + 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 +BEGIN + KEY "CODICE FISCALE" + PROMPT 3 12 "" + FIELD 102->CODFISC + GROUP 20 +END + +STRINGA 103 +BEGIN + KEY "RAGIONE SOCIALE" + PROMPT 39 12 "" + FIELD 102->DENOMIN + GROUP 20 22 +END + +STRINGA 104 +BEGIN + KEY "COGNOME" + PROMPT 39 12 "" + FIELD 102->DENOMIN + GROUP 20 21 +END + +STRINGA 105 +BEGIN + KEY "NOME" + PROMPT 17 14 "" + FIELD 102->NOME + GROUP 20 21 +END + +STRINGA 106 +BEGIN + KEY "SESSO" + PROMPT 58 14 "" + FIELD 102->SESSO + GROUP 20 21 +END + +STRINGA 107 +BEGIN + KEY "DATA DI NASCITA" + PROMPT 67 14 "" + FIELD 102->DATANAS + GROUP 20 21 +END + +STRINGA 108 +BEGIN + KEY "COMUNE DI NASCITA" + PROMPT 84 14 "" + FIELD 102->COMNAS + GROUP 20 21 +END + +STRINGA 109 +BEGIN + KEY "PROV. DI NASCITA" + PROMPT 125 14 "" + FIELD 102->PROVNAS + GROUP 20 21 +END + +STRINGA 110 +BEGIN + KEY "COMUNE DI RES.FISCALE" + PROMPT 17 16 "" + FIELD 102->COMDOM + GROUP 20 +END + +STRINGA 111 +BEGIN + KEY "PROV DI RES.FISCALE" + PROMPT 59 16 "" + FIELD 102->PROVDOM + GROUP 20 +END + +STRINGA 112 +BEGIN + KEY "VIA di RES." + PROMPT 66 16 "" + FIELD 102->INDDOM + 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 + +STRINGA 1 +BEGIN + KEY "COD.FIS" + PROMPT 11 1 "" + FIELD 45->CODFI +END + +STRINGA 2 +BEGIN + KEY "COGNOME" + PROMPT 42 1 "" + FIELD 45->COGNOME +END + +STRINGA 3 +BEGIN + KEY "NOME" + PROMPT 79 1 "" + FIELD 45->NOME +END + +DATA 4 +BEGIN + KEY "DATA NASCITA" + PROMPT 114 1 "" + FIELD 45->DATANA + FORMAT "1444-" +END + +STRINGA 5 +BEGIN + KEY "SESSO" + PROMPT 128 1 "" + FIELD 45->SESSO +END + +STRINGA 6 +BEGIN + KEY "COMUNE DI NASCITA" + PROMPT 11 3 "" + FIELD 45->COMUNENA +END + +STRINGA 7 +BEGIN + KEY "PROV DI NASCITA" + PROMPT 47 3 "" + FIELD 45->PROVNA +END + +DATA 8 +BEGIN + KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO" + PROMPT 11 5 "" + FIELD 58->DIRAPTI + FORMAT "1444-" + PICTURE "## ^ ##^^^##" +END + +NUMERO 9 +BEGIN + KEY "NUMERO GIORNI IN INCREMENTO" + PROMPT 35 5 "" + PICTURE "######" + FIELD 58->NGINC15 +END + +NUMERO 10 +BEGIN + KEY "REDDITO CORRISPOSTO" + PROMPT 43 5 "" + MESSAGE ADD,FL->10 + PICTURE "###.###.###.###^^^" + FIELD 58->REDCOR16 +END + +NUMERO 11 +BEGIN + KEY "NUMERO GIORNI IN INCREMENTO" + PROMPT 69 5 "" + PICTURE "######" + FIELD 58->NGINC17 +END + +NUMERO 12 +BEGIN + KEY "REDDITO CORRISPOSTO" + PROMPT 77 5 "" + MESSAGE ADD,FL->12 + PICTURE "###.###.###.###^^^" + FIELD 58->REDCOR18 +END + +END + +SECTION FOOTER LAST 2 + +NUMERO 10 +BEGIN + KEY "REDDITO CORRISPOSTO" + PROMPT 43 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 12 +BEGIN + KEY "REDDITO CORRISPOSTO" + PROMPT 77 5 "" + PICTURE "###.###.###.###^^^" +END + +STRINGA 2 +BEGIN + KEY "FIRMA" + PROMPT 83 8 "" + FIELD 106@->RAGSOC +END + + + +END + +END diff --git a/m770/77qb.frm b/m770/77qb.frm index 7c9e57db9..c500f8e12 100755 --- a/m770/77qb.frm +++ b/m770/77qb.frm @@ -1,3 +1,690 @@ +<<<<<<< 77qb.frm +USE 59 +JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP +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) + +END +DESCRIPTION +BEGIN + 59->* "Quadro B 770" + 45->* "Anagrafica dei dipendenti" + 9->* "Ditte" + 106@->* "Anagrafica persone fisiche e giuridiche (ditta)" + 108@->* "Anagrafica persone fisiche (ditta)" + 113@->* "Comuni DITTA (nascita)" + 213@->* "Comuni DITTA (residenza)" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 11 + CARATTERE "X" + INIZIO_POS 3 2 + FINE_POS 131 + GRID "+++++++++-|" +END + +SECTION HEADER FIRST 28 + +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 2 +BEGIN + KEY "CODICE FISCALE" + PROMPT 3 12 "" + FIELD 106@->COFI +END + +STRINGA 3 +BEGIN + KEY "RAGIONE SOCIALE" + PROMPT 39 12 "" + GROUP 2 + FIELD 106@->RAGSOC +END + +STRINGA 4 +BEGIN + KEY "COGNOME" + PROMPT 39 12 "" + GROUP 1 + FIELD 106@->RAGSOC[1,30] +END + +STRINGA 5 +BEGIN + KEY "NOME" + PROMPT 17 14 "" + GROUP 1 + FIELD 106@->RAGSOC[31,50] +END + +STRINGA 6 +BEGIN + KEY "SESSO" + PROMPT 58 14 "" + GROUP 1 + FIELD 108@->SESSO +END + +STRINGA 7 +BEGIN + KEY "DATA DI NASCITA" + PROMPT 67 14 "" + GROUP 1 + FIELD 108@->DATANASC +END + +STRINGA 8 +BEGIN + KEY "COMUNE DI NASCITA" + PROMPT 84 14 "" + GROUP 1 + FIELD 113@->DENCOM +END + +STRINGA 9 +BEGIN + KEY "PROV. DI NASCITA" + PROMPT 125 14 "" + GROUP 1 + FIELD 113@->PROVCOM +END + +STRINGA 10 +BEGIN + KEY "COMUNE DI RES.FISCALE" + PROMPT 17 16 "" + FIELD 213@->DENCOM +END + +STRINGA 11 +BEGIN + KEY "PROV DI RES.FISCALE" + PROMPT 59 16 "" + FIELD 213@->PROVCOM +END + +STRINGA 12 +BEGIN + KEY "VIA di RES." + PROMPT 66 16 "" + FIELD 106@->INDRF + FIELD 106@->INDRES +END + +STRINGA 15 +BEGIN + KEY "NUM. CIVICO di RES." + PROMPT 104 16 "" + FIELD 106@->CIVRF + FIELD 106@->CIVRES +END + +STRINGA 16 +BEGIN + KEY "CAP" + PROMPT 123 16 "" + FIELD 106@->CAPRF + FIELD 106@->CAPRES +END + +STRINGA 13 +BEGIN + KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" + PROMPT 85 19 "" +END + +NUMERO 14 +BEGIN + KEY "NUM. FOGLIO" + PROMPT 125 22 "" +END + + +END + +SECTION BODY ODD 12 + +STRINGA 1 +BEGIN + KEY "COD.FIS" + PROMPT 11 1 "" + FIELD 45->CODFI +END + +STRINGA 2 +BEGIN + KEY "COGNOME" + PROMPT 44 1 "" + FIELD 45->COGNOME +END + +STRINGA 3 +BEGIN + KEY "NOME" + PROMPT 82 1 "" + FIELD 45->NOME +END + +DATA 4 +BEGIN + KEY "DATA NASCITA" + PROMPT 114 1 "" + FIELD 45->DATANA + FORMAT "1444-" +END + +STRINGA 5 +BEGIN + KEY "SESSO" + PROMPT 128 1 "" + FIELD 45->SESSO +END + +STRINGA 6 +BEGIN + KEY "COMUNE DI NASCITA" + PROMPT 11 3 "" + FIELD 45->COMUNENA +END + +STRINGA 7 +BEGIN + KEY "PROV DI NASCITA" + PROMPT 47 3 "" + FIELD 45->PROVNA +END + +STRINGA 8 +BEGIN + KEY "COMUNE DI RESIDENZA" + PROMPT 54 3 "" + FIELD 45->COMRES +END + +STRINGA 9 +BEGIN + KEY "PROV. RESIDENZA" + PROMPT 88 3 "" + FIELD 45->PROVRES +END + +STRINGA 10 +BEGIN + KEY "INDIRIZZO RES." + PROMPT 95 3 "" + FIELD 45->INDRES +END + +DATA 11 +BEGIN + KEY "DATA INIZIO RAPPORTO" + PROMPT 12 5 "" + PICTURE "## ^ ## ^ ^^##" + FIELD DATAINI +END + +DATA 12 +BEGIN + KEY "DATA FINE RAPPORTO" + PROMPT 31 5 "" + PICTURE "## ^ ## ^ ^^##" + FIELD DATAFIN +END + +NUMERO 131 +BEGIN + KEY "ANNI COMMISURAZIONE" + PROMPT 49 5 "" + FIELD ANNICOMM +END + +NUMERO 132 +BEGIN + KEY "MESI COMMISURAZIONE" + PROMPT 55 5 "" + FIELD MESICOMM +END + +NUMERO 141 +BEGIN + KEY "ANNI CONVENZIONALI" + PROMPT 61 5 "" + FIELD ANNICONV +END + +NUMERO 142 +BEGIN + KEY "MESI CONVENZIONALI" + PROMPT 66 5 "" + FIELD MESICONV +END + +NUMERO 151 +BEGIN + KEY "ANNI PARZIALI" + PROMPT 73 5 "" + FIELD ANNIPARZ +END + +NUMERO 152 +BEGIN + KEY "MESI PARZIALI" + PROMPT 80 5 "" + FIELD MESIPARZ +END + +NUMERO 153 +BEGIN + KEY "PERCENTUALE TEMPO PARZIALE" + PROMPT 85 5 "" + FIELD PERCPARZ +END + +NUMERO 16 +BEGIN + KEY "QUOTA ECCEDENTE" + PROMPT 90 5 "" + PICTURE "###.###.###^^^" + FIELD QUOTAECC + MESSAGE ADD,FL->16 +END + +NUMERO 17 +BEGIN + KEY "MESE EROGAZIONE" + PROMPT 103 5 "" + FIELD MESEEROG +END + +STRINGA 18 +BEGIN + KEY "TITOLO EROGAZIONE" + PROMPT 109 5 "" + FIELD TITEROG +END + +NUMERO 19 +BEGIN + KEY "PERCENTUALE ABBATTIMENTO" + PROMPT 114 5 "" + FIELD PERCABB +END + +NUMERO 20 +BEGIN + KEY "AMMONTARE NETTO" + PROMPT 117 5 "" + PICTURE "###.###.###.###^^^" + FIELD AMMNETTO + MESSAGE ADD,FL->20 +END + +NUMERO 21 +BEGIN + KEY "MESE EROGAZIONE" + PROMPT 11 7 "" + FIELD MESEEROG2 +END + +STRINGA 22 +BEGIN + KEY "TITOLO EROGAZIONE" + PROMPT 16 7 "" + FIELD TITEROG2 +END + +NUMERO 23 +BEGIN + KEY "PERCENTUALE ABBATTIMENTO" + PROMPT 21 7 "" + FIELD PERCABB2 +END + +NUMERO 24 +BEGIN + KEY "AMMONTARE NETTO" + PROMPT 34 7 "" + PICTURE "###.###.###^^^" + FIELD AMMNETTO2 + MESSAGE ADD,FL->24 +END + +NUMERO 25 +BEGIN + KEY "CONTRIBUTI OBBLIGATORI LAVORATORE" + PROMPT 48 7 "" + PICTURE "###.###.###.###^^^" + FIELD CONTLAV + MESSAGE ADD,FL->25 +END + +NUMERO 26 +BEGIN + KEY "T.F.R." + PROMPT 67 7 "" + PICTURE "###.###.###.###^^^" + FIELD TFR7494 + MESSAGE ADD,FL->26 +END + +NUMERO 27 +BEGIN + KEY "ALTRE INDENNITA'" + PROMPT 84 7 "" + PICTURE "###.###.###.###^^^" + FIELD INDEN7494 + MESSAGE ADD,FL->27 +END + +NUMERO 28 +BEGIN + KEY "TOTALE INDENNITA'" + PROMPT 103 7 "" + PICTURE "###.###.###^^^" + FIELD TIND7494 + MESSAGE ADD,FL->28 +END + +NUMERO 29 +BEGIN + KEY "TOTALE RIDUZIONI" + PROMPT 117 7 "" + PICTURE "###.###.###.###^^^" + FIELD TRID + MESSAGE ADD,FL->29 +END + +NUMERO 30 +BEGIN + KEY "T.F.R. PER REDDITO DI RIFERIMENTO" + PROMPT 10 9 "" + PICTURE "###.###.###.###^^^" + FIELD TFRIND + MESSAGE ADD,FL->30 +END + +NUMERO 31 +BEGIN + KEY "ALIQUOTA" + PROMPT 27 9 "" + FIELD ALIQUOTA +END + +NUMERO 32 +BEGIN + KEY "RETRIBUZIONE MEDIA BIENNIO PRECEDENTE" + PROMPT 32 9 "" + PICTURE "###.###.###.###^^^" + FIELD RETRMEDIA +END + +NUMERO 33 +BEGIN + KEY "ALIQUOTA" + PROMPT 50 9 "" + FIELD ALIQUOTA2 +END + +NUMERO 34 +BEGIN + KEY "IMPONIBILE T.F.R." + PROMPT 54 9 "" + PICTURE "###.###.###.###^^^" + FIELD IMPTFR + MESSAGE ADD,FL->34 +END + +NUMERO 35 +BEGIN + KEY "IMPONIBILE ALTRE INDENNITA'" + PROMPT 71 9 "" + PICTURE "###.###.###.###^^^" + FIELD IMPIND + MESSAGE ADD,FL->35 +END + +NUMERO 36 +BEGIN + KEY "IMPONIBILE DELL'ANNO" + PROMPT 85 9 "" + PICTURE "###.###.###.###^^^" + FIELD IMPANNO + MESSAGE ADD,FL->36 +END + +NUMERO 37 +BEGIN + KEY "TOTALE REDDITO IMPONIBILE" + PROMPT 101 9 "" + PICTURE "###.###.###.###^^^" + FIELD TOTIMP + MESSAGE ADD,FL->37 +END + +NUMERO 38 +BEGIN + KEY "RITENUTE OPERATE" + PROMPT 117 9 "" + PICTURE "###.###.###.###^^^" + FIELD ROPEACC + MESSAGE ADD,FL->38 +END + +NUMERO 39 +BEGIN + KEY "IMPOSTA DOVUTA" + PROMPT 10 11 "" + PICTURE "###.###.###.###^^^" + FIELD IMPDOV + MESSAGE ADD,FL->39 +END + +NUMERO 40 +BEGIN + KEY "RITENUTE FISCALI" + PROMPT 27 11 "" + PICTURE "###.###.###.###^^^" + FIELD RITECC + MESSAGE ADD,FL->40 +END + +NUMERO 41 +BEGIN + KEY "QUOTA SPETTANTE" + PROMPT 44 11 "" + PICTURE "###.###.###.###^^^" + FIELD QUOTASPET +END + +NUMERO 42 +BEGIN + KEY "INDENNITA' SPETTANTE" + PROMPT 61 11 "" + PICTURE "###.###.###.###^^^" + FIELD INDSPETT + MESSAGE ADD,FL->42 +END + +NUMERO 43 +BEGIN + KEY "RITENUTE OPERATE" + PROMPT 78 11 "" + PICTURE "###.###.###.###^^^" + FIELD ROPE + MESSAGE ADD,FL->43 +END + +NUMERO 44 +BEGIN + KEY "IMPONIBILE C.S.S.N." + PROMPT 95 11 "" + PICTURE "###.###.###.###^^^" + FIELD IMPOCSSN + MESSAGE ADD,FL->44 +END + +END + +SECTION FOOTER LAST 8 + +NUMERO 16 +BEGIN + KEY "QUOTA ECCEDENTE" + PROMPT 90 1 "" + PICTURE "###.###.###^^^" +END + +NUMERO 20 +BEGIN + KEY "AMMONTARE NETTO" + PROMPT 117 1 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 24 +BEGIN + KEY "AMMONTARE NETTO" + PROMPT 26 3 "" + PICTURE "###.###.###^^^" +END + +NUMERO 25 +BEGIN + KEY "CONTRIBUTI OBBLIGATORI LAVORATORE" + PROMPT 41 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 26 +BEGIN + KEY "T.F.R." + PROMPT 60 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 27 +BEGIN + KEY "ALTRE INDENNITA'" + PROMPT 72 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 28 +BEGIN + KEY "TOTALE INDENNITA'" + PROMPT 103 3 "" + PICTURE "###.###.###^^^" +END + +NUMERO 29 +BEGIN + KEY "TOTALE INDENNITA'" + PROMPT 117 3 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 30 +BEGIN + KEY "T.F.R. PER REDDITO DI RIFERIMENTO" + PROMPT 10 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 34 +BEGIN + KEY "IMPONIBILE T.F.R." + PROMPT 54 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 35 +BEGIN + KEY "IMPONIBILE ALTRE INDENNITA'" + PROMPT 71 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 36 +BEGIN + KEY "IMPONIBILE DELL'ANNO" + PROMPT 85 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 37 +BEGIN + KEY "TOTALE REDDITO IMPONIBILE" + PROMPT 101 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 38 +BEGIN + KEY "RITENUTE OPERATE" + PROMPT 117 5 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 39 +BEGIN + KEY "IMPOSTA DOVUTA" + PROMPT 10 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 40 +BEGIN + KEY "RITENUTE FISCALI" + PROMPT 27 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 42 +BEGIN + KEY "INDENNITA' SPETTANTE" + PROMPT 61 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 43 +BEGIN + KEY "RITENUTE OPERATE" + PROMPT 78 7 "" + PICTURE "###.###.###.###^^^" +END + +NUMERO 44 +BEGIN + KEY "IMPONIBILE C.S.S.N." + PROMPT 95 7 "" + PICTURE "###.###.###.###^^^" +END + +STRINGA 2 +BEGIN + KEY "FIRMA" + PROMPT 83 23 "" + FIELD 106@->RAGSOC +END + +END + +======= USE 59 JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN 9 INTO CODDITTA=CODDITTA @@ -687,4 +1374,5 @@ END END +>>>>>>> 1.3 END \ No newline at end of file diff --git a/m770/77qbb.uml b/m770/77qbb.uml index bdd581380..4c962b850 100755 --- a/m770/77qbb.uml +++ b/m770/77qbb.uml @@ -1,710 +1,710 @@ -// Quadro B -#include "77qb.h" -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "MODULO 770 - QUADRO B" -1 -1 78 18 - -NUMBER QBF_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - FLAGS "H" - USE LF_NDITTE KEY 1 - INPUT CODDITTA QBF_CODDITTA - FIELD LF_QUAB->CODDITTA - CHECKTYPE REQUIRED - KEY 1 -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -NUMBER QBF_CODDIP 5 -BEGIN - PROMPT 17 1 "" - USE LF_DIPEND KEY 1 - FIELD LF_QUAB->CODDIP - INPUT CODDITTA QBF_CODDITTA - INPUT CODIP QBF_CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT QBF_COGNOME COGNOME - OUTPUT QBF_NOME NOME - CHECKTYPE REQUIRED - FLAGS "DG" - KEY 1 -END - -STRING QBF_COGNOME 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" -END - -STRING QBF_NOME 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" -END - -NUMBER QBF_NPROG 4 -BEGIN - PROMPT 72 1 "" - FIELD LF_QUAB->NPROG - FLAGS "DG" - KEY 1 -END - -GROUPBOX DLG_NULL 25 4 -BEGIN - PROMPT 0 4 "Rapporto di lavoro " -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 5 "11 Inizio" -END - -DATE QBF_DATAINI -BEGIN - PROMPT 1 6 "" - FIELD LF_QUAB->DATAINI - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT 13 5 "12 Cessaz." -END - -DATE QBF_DATAFIN -BEGIN - PROMPT 13 6 "" - FIELD LF_QUAB->DATAFIN - GROUP GROUP_ALL -END - -#define COLCOMM 27 -#define COLCOMM1 28 -#define COLCOMM6 34 - -TEXT DLG_NULL -BEGIN - PROMPT COLCOMM 3 "13 Periodo " -END - -GROUPBOX DLG_NULL 14 4 -BEGIN - PROMPT COLCOMM 4 "commisurazione " -END - -TEXT DLG_NULL -BEGIN - PROMPT COLCOMM1 5 "Anni" -END - -NUMBER QBF_ANNICOMM 2 -BEGIN - PROMPT COLCOMM1 6 "" - FIELD LF_QUAB->ANNICOMM - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT COLCOMM6 5 "Mesi" -END - -NUMBER QBF_MESICOMM 2 -BEGIN - PROMPT COLCOMM6 6 "" - FIELD LF_QUAB->MESICOMM - GROUP GROUP_ALL -END - -#define COLCONV 43 -#define COLCONV1 44 -#define COLCONV6 51 - -TEXT DLG_NULL -BEGIN - PROMPT COLCONV 3 "14 Periodo " -END - -GROUPBOX DLG_NULL 14 4 -BEGIN - PROMPT COLCONV 4 "convenzionale " -END - -TEXT DLG_NULL -BEGIN - PROMPT COLCONV1 5 "Anni" -END - -NUMBER QBF_ANNICONV 2 -BEGIN - PROMPT COLCONV1 6 "" - FIELD LF_QUAB->ANNICONV - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT COLCONV6 5 "Mesi" -END - -NUMBER QBF_MESICONV 2 -BEGIN - PROMPT COLCONV6 6 "" - FIELD LF_QUAB->MESICONV - GROUP GROUP_ALL -END - -#define COLPAR0 58 -#define COLPAR1 59 -#define COLPAR2 64 -#define COLPAR3 69 - -GROUPBOX DLG_NULL 20 4 -BEGIN - PROMPT COLPAR0 4 "15 Tempo parziale" -END - -TEXT DLG_NULL -BEGIN - PROMPT COLPAR1 5 "Anni" -END - -NUMBER QBF_ANNIPARZ 2 -BEGIN - PROMPT COLPAR1 6 "" - FIELD LF_QUAB->ANNIPARZ - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT COLPAR2 5 "Mesi" -END - -NUMBER QBF_MESIPARZ 2 -BEGIN - PROMPT COLPAR2 6 "" - FIELD LF_QUAB->MESIPARZ - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT COLPAR3 5 " %" -END - -NUMBER QBF_PERCPARZ 6 -BEGIN - PROMPT COLPAR3 6 "" - FIELD LF_QUAB->PERCPARZ - PICTURE ".2" - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 8 "16 Quota eccedente" -END - -NUMBER QBF_QUOTAECC 15 -BEGIN - PROMPT 1 9 "" - FIELD LF_QUAB->QUOTAECC - FLAGS "R" - PICTURE "." - GROUP GROUP_ALL -END - -#define COLTFR0 25 -#define COLTFR1 26 -#define COLTFR2 35 //27 -#define COLTFR3 49 //33 -#define COLTFR4 59 //40 - -#define RIGTFR1 9 -#define RIGTFR2 10 - -GROUPBOX DLG_NULL 53 4 -BEGIN - PROMPT COLTFR0 8 "TFR o ind.equip. corrisposti nel 1994 " -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFR1 RIGTFR1 "17 Mese" -END - -NUMBER QBF_MESEEROG 2 -BEGIN - PROMPT 28 RIGTFR2 "" - NUM_EXPR {(#THIS>=0) && (#THIS<13)} - WARNING "Mese non valido" - FIELD LF_QUAB->MESEEROG - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFR2 RIGTFR1 "18 Titolo" -END - -STRING QBF_TITEROG 1 -BEGIN - PROMPT 39 RIGTFR2 "" - SHEET "Codice|Descrizione@15" - INPUT QBF_TITEROG - ITEM "|" - ITEM "A|Anticipazione" - ITEM "B|Saldo" - ITEM "C|Acconto" - OUTPUT QBF_TITEROG - FIELD LF_QUAB->TITEROG - FLAGS "U" - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFR3 RIGTFR1 "19 % abb." -END - -NUMBER QBF_PERCABB 6 -BEGIN - PROMPT COLTFR3 RIGTFR2 "" - FIELD LF_QUAB->PERCABB - PICTURE ".2" - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFR4 RIGTFR1 "20 Ammontare netto" -END - -NUMBER QBF_AMMNETTO 15 -BEGIN - PROMPT COLTFR4 RIGTFR2 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->AMMNETTO - GROUP GROUP_ALL -END - -#define COLTFRB0 2 -#define COLTFRB1 2 -#define COLTFRB2 7 -#define COLTFRB3 14 -#define COLTFRB4 22 - -#define RIGTFRB0 14 -#define RIGTFRB1 15 -#define RIGTFRB2 16 - -GROUPBOX DLG_NULL 38 6 -BEGIN - PROMPT 1 13 "Altre indennità corrisposte nel 1994" -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFRB1 RIGTFRB0 "21" -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFRB1 RIGTFRB1 "Mese" -END - - -NUMBER QBF_MESEEROG2 2 -BEGIN - PROMPT COLTFRB1 RIGTFRB2 "" - FIELD LF_QUAB->MESEEROG2 - NUM_EXPR {(#THIS>=0) && (#THIS<13)} - WARNING "Mese non valido" - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFRB2 RIGTFRB0 "22" -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFRB2 RIGTFRB1 "Titolo" -END - -STRING QBF_TITEROG2 1 -BEGIN - PROMPT /*COLTFR2*/ 8 RIGTFRB2 "" - SHEET "Codice|Descrizione@15" - INPUT QBF_TITEROG2 - ITEM "|" - ITEM "A|Anticipazione" - ITEM "B|Saldo" - ITEM "C|Acconto" - OUTPUT QBF_TITEROG2 - FIELD LF_QUAB->TITEROG2 - FLAGS "U" - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFRB3 RIGTFRB0 "23" -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFRB3 RIGTFRB1 "% abb." -END - -NUMBER QBF_PERCABB2 6 -BEGIN - PROMPT COLTFRB3 RIGTFRB2 "" - FIELD LF_QUAB->PERCABB2 - PICTURE ".2" - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFRB4 RIGTFRB0 "24" -END - -TEXT DLG_NULL -BEGIN - PROMPT COLTFRB4 RIGTFRB1 "Ammontare netto" -END - -NUMBER QBF_AMMNETTO2 15 -BEGIN - PROMPT COLTFRB4 RIGTFRB2 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->AMMNETTO2 - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT 45 RIGTFRB1 "25 Contr. obbligatori a carico" -END - -NUMBER QBF_CONTLAV 15 -BEGIN - PROMPT 45 RIGTFRB2 "del lavoratore " - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->CONTLAV - GROUP GROUP_ALL -END - -ENDPAGE - -PAGE "MODULO 770 - QUADRO B" -1 -1 78 18 - -#define C1 2 -#define C2 22 -#define C3 57 - -GROUPBOX DLG_NULL 41 4 -BEGIN - PROMPT 1 1 "Acconti e anticipazioni erogati dal 74 al 93" -END - -TEXT DLG_NULL -BEGIN - PROMPT C1 2 "26 TFR ind.equi." -END - -NUMBER QBF_TFR7494 15 -BEGIN - PROMPT C1 3 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->TFR7494 - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT C2 2 "27 Altre inden." -END - -NUMBER QBF_INDEN7494 15 -BEGIN - PROMPT C2 3 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->INDEN7494 - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT C3 2 "28 Tot.indennità" -END - -NUMBER QBF_TIND7494 15 -BEGIN - PROMPT C3 3 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->TIND7494 - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT C1 5 "29 Tot.riduzioni" -END - -NUMBER QBF_TRID 15 -BEGIN - PROMPT C1 6 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->TRID - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT 30 5 "30 TFR o inden. equipollenti" -END - -NUMBER QBF_TFRIND 15 -BEGIN - PROMPT 30 6 "per reddito di riferimento " - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->TFRIND - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT C1 7 "31 Aliq." -END - -NUMBER QBF_ALIQUOTA 6 -BEGIN - PROMPT C1 8 "" - FIELD LF_QUAB->ALIQUOTA - PICTURE ".2" - GROUP GROUP_ALL -END - -#define GD0 24 //11 -#define GD1 25 //12 -#define GD2 64 //51 - -GROUPBOX DLG_NULL 49 4 -BEGIN - PROMPT GD0 7 "Art.4 3° comma L.482/1985" -END - -TEXT DLG_NULL -BEGIN - PROMPT GD1 8 "32 Retrib. media " -END - -NUMBER QBF_RETRMEDIA 15 -BEGIN - PROMPT GD1 9 "biennio precedente " - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->RETRMEDIA - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT GD2 8 "33 Aliq." -END - -NUMBER QBF_ALIQUOTA2 6 -BEGIN - PROMPT GD2 9 "" - FIELD LF_QUAB->ALIQUOTA2 - PICTURE ".2" - GROUP GROUP_ALL -END - -// QUARTA RIGA -TEXT DLG_NULL -BEGIN - PROMPT 1 11 "34 Impon. TFR " -END - -NUMBER QBF_IMPTFR 15 -BEGIN - PROMPT 1 12 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->IMPTFR - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT 19 11 "35 Imp.altre ind." -END - -NUMBER QBF_IMPIND 15 -BEGIN - PROMPT 19 12 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->IMPIND - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT 37 11 "36 Impon. anno " -END - -NUMBER QBF_IMPANNO 15 -BEGIN - PROMPT 37 12 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->IMPANNO - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT 54 11 "37 Totale reddito impon. " -END - -NUMBER QBF_TOTIMP 15 -BEGIN - PROMPT 57 12 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->TOTIMP - GROUP GROUP_ALL -END - -// QUINTA RIGA -TEXT DLG_NULL -BEGIN - PROMPT 1 13 "38 Rit. operate su acc.ant. erogati " -END - -NUMBER QBF_ROPEACC 15 -BEGIN - PROMPT 1 14 "dal 74 al 93 " - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->ROPEACC - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT 37 13 "39 Impos. dov." -END - -NUMBER QBF_IMPDOV 15 -BEGIN - PROMPT 37 14 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->IMPDOV - GROUP GROUP_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT 57 13 "40 Ritenute in ecced." -END - -NUMBER QBF_RITECC 15 -BEGIN - PROMPT 57 14 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->RITECC - GROUP GROUP_ALL -END - -// SESTA RIGA -GROUPBOX DLG_NULL 38 4 -BEGIN - PROMPT 1 15 "Art.2122 COD. CIV." -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 16 "41 Quota spett." -END - -NUMBER QBF_QUOTASPET 15 -BEGIN - PROMPT 2 17 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->QUOTASPET - GROUP GROUP_DIPDEC GROUP_EREDE -END - -TEXT DLG_NULL -BEGIN - PROMPT 19 16 "42 Indennità spett." -END - -NUMBER QBF_INDSPETT 15 -BEGIN - PROMPT 19 17 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->INDSPETT - GROUP GROUP_DIPDEC GROUP_EREDE -END - -TEXT DLG_NULL -BEGIN - PROMPT 40 16 "43 Rit. operate " -END - -NUMBER QBF_ROPE 15 -BEGIN - PROMPT 40 17 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->ROPE - GROUP GROUP_EREDE -END - -TEXT DLG_NULL -BEGIN - PROMPT 57 16 "44 Impon. CSSN " -END - -NUMBER QBF_IMPOCSSN 15 -BEGIN - PROMPT 57 17 "" - PICTURE "." - FLAGS "R" - FIELD LF_QUAB->IMPOCSSN - GROUP GROUP_ALL -END - -ENDPAGE - -ENDMASK - +// Quadro B +#include "77qb.h" +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "MODULO 770 - QUADRO B" -1 -1 78 18 + +NUMBER QBF_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + FLAGS "H" + USE LF_NDITTE KEY 1 + INPUT CODDITTA QBF_CODDITTA + FIELD LF_QUAB->CODDITTA + CHECKTYPE REQUIRED + KEY 1 +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +NUMBER QBF_CODDIP 5 +BEGIN + PROMPT 17 1 "" + USE LF_DIPEND KEY 1 + FIELD LF_QUAB->CODDIP + INPUT CODDITTA QBF_CODDITTA + INPUT CODDIP QBF_CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT QBF_COGNOME COGNOME + OUTPUT QBF_NOME NOME + CHECKTYPE REQUIRED + FLAGS "DG" + KEY 1 +END + +STRING QBF_COGNOME 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" +END + +STRING QBF_NOME 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" +END + +NUMBER QBF_NPROG 4 +BEGIN + PROMPT 72 1 "" + FIELD LF_QUAB->NPROG + FLAGS "DG" + KEY 1 +END + +GROUPBOX DLG_NULL 25 4 +BEGIN + PROMPT 0 4 "Rapporto di lavoro " +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 5 "11 Inizio" +END + +DATE QBF_DATAINI +BEGIN + PROMPT 1 6 "" + FIELD LF_QUAB->DATAINI + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT 13 5 "12 Cessaz." +END + +DATE QBF_DATAFIN +BEGIN + PROMPT 13 6 "" + FIELD LF_QUAB->DATAFIN + GROUP GROUP_ALL +END + +#define COLCOMM 27 +#define COLCOMM1 28 +#define COLCOMM6 34 + +TEXT DLG_NULL +BEGIN + PROMPT COLCOMM 3 "13 Periodo " +END + +GROUPBOX DLG_NULL 14 4 +BEGIN + PROMPT COLCOMM 4 "commisurazione " +END + +TEXT DLG_NULL +BEGIN + PROMPT COLCOMM1 5 "Anni" +END + +NUMBER QBF_ANNICOMM 2 +BEGIN + PROMPT COLCOMM1 6 "" + FIELD LF_QUAB->ANNICOMM + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT COLCOMM6 5 "Mesi" +END + +NUMBER QBF_MESICOMM 2 +BEGIN + PROMPT COLCOMM6 6 "" + FIELD LF_QUAB->MESICOMM + GROUP GROUP_ALL +END + +#define COLCONV 43 +#define COLCONV1 44 +#define COLCONV6 51 + +TEXT DLG_NULL +BEGIN + PROMPT COLCONV 3 "14 Periodo " +END + +GROUPBOX DLG_NULL 14 4 +BEGIN + PROMPT COLCONV 4 "convenzionale " +END + +TEXT DLG_NULL +BEGIN + PROMPT COLCONV1 5 "Anni" +END + +NUMBER QBF_ANNICONV 2 +BEGIN + PROMPT COLCONV1 6 "" + FIELD LF_QUAB->ANNICONV + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT COLCONV6 5 "Mesi" +END + +NUMBER QBF_MESICONV 2 +BEGIN + PROMPT COLCONV6 6 "" + FIELD LF_QUAB->MESICONV + GROUP GROUP_ALL +END + +#define COLPAR0 58 +#define COLPAR1 59 +#define COLPAR2 64 +#define COLPAR3 69 + +GROUPBOX DLG_NULL 20 4 +BEGIN + PROMPT COLPAR0 4 "15 Tempo parziale" +END + +TEXT DLG_NULL +BEGIN + PROMPT COLPAR1 5 "Anni" +END + +NUMBER QBF_ANNIPARZ 2 +BEGIN + PROMPT COLPAR1 6 "" + FIELD LF_QUAB->ANNIPARZ + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT COLPAR2 5 "Mesi" +END + +NUMBER QBF_MESIPARZ 2 +BEGIN + PROMPT COLPAR2 6 "" + FIELD LF_QUAB->MESIPARZ + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT COLPAR3 5 " %" +END + +NUMBER QBF_PERCPARZ 6 +BEGIN + PROMPT COLPAR3 6 "" + FIELD LF_QUAB->PERCPARZ + PICTURE ".2" + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 8 "16 Quota eccedente" +END + +NUMBER QBF_QUOTAECC 15 +BEGIN + PROMPT 1 9 "" + FIELD LF_QUAB->QUOTAECC + FLAGS "R" + PICTURE "." + GROUP GROUP_ALL +END + +#define COLTFR0 25 +#define COLTFR1 26 +#define COLTFR2 35 //27 +#define COLTFR3 49 //33 +#define COLTFR4 59 //40 + +#define RIGTFR1 9 +#define RIGTFR2 10 + +GROUPBOX DLG_NULL 53 4 +BEGIN + PROMPT COLTFR0 8 "TFR o ind.equip. corrisposti nel 1995 " +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFR1 RIGTFR1 "17 Mese" +END + +NUMBER QBF_MESEEROG 2 +BEGIN + PROMPT 28 RIGTFR2 "" + NUM_EXPR {(#THIS>=0) && (#THIS<13)} + WARNING "Mese non valido" + FIELD LF_QUAB->MESEEROG + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFR2 RIGTFR1 "18 Titolo" +END + +STRING QBF_TITEROG 1 +BEGIN + PROMPT 39 RIGTFR2 "" + SHEET "Codice|Descrizione@15" + INPUT QBF_TITEROG + ITEM "|" + ITEM "A|Anticipazione" + ITEM "B|Saldo" + ITEM "C|Acconto" + OUTPUT QBF_TITEROG + FIELD LF_QUAB->TITEROG + FLAGS "U" + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFR3 RIGTFR1 "19 % abb." +END + +NUMBER QBF_PERCABB 6 +BEGIN + PROMPT COLTFR3 RIGTFR2 "" + FIELD LF_QUAB->PERCABB + PICTURE ".2" + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFR4 RIGTFR1 "20 Ammontare netto" +END + +NUMBER QBF_AMMNETTO 15 +BEGIN + PROMPT COLTFR4 RIGTFR2 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->AMMNETTO + GROUP GROUP_ALL +END + +#define COLTFRB0 2 +#define COLTFRB1 2 +#define COLTFRB2 7 +#define COLTFRB3 14 +#define COLTFRB4 31 + +#define RIGTFRB0 14 +#define RIGTFRB1 15 +#define RIGTFRB2 16 + +GROUPBOX DLG_NULL 48 6 +BEGIN + PROMPT 1 13 "Altre indennità corrisposte nel 1995" +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFRB1 RIGTFRB0 "21" +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFRB1 RIGTFRB1 "Mese" +END + + +NUMBER QBF_MESEEROG2 2 +BEGIN + PROMPT COLTFRB1 RIGTFRB2 "" + FIELD LF_QUAB->MESEEROG2 + NUM_EXPR {(#THIS>=0) && (#THIS<13)} + WARNING "Mese non valido" + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFRB2 RIGTFRB0 "22" +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFRB2 RIGTFRB1 "Titolo" +END + +STRING QBF_TITEROG2 1 +BEGIN + PROMPT /*COLTFR2*/ 8 RIGTFRB2 "" + SHEET "Codice|Descrizione@15" + INPUT QBF_TITEROG2 + ITEM "|" + ITEM "A|Anticipazione" + ITEM "B|Saldo" + ITEM "C|Acconto" + OUTPUT QBF_TITEROG2 + FIELD LF_QUAB->TITEROG2 + FLAGS "U" + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFRB3 RIGTFRB0 "23" +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFRB3 RIGTFRB1 "Abbattimento" +END + +NUMBER QBF_PERCABB2 15 +BEGIN + PROMPT COLTFRB3 RIGTFRB2 "" + FIELD LF_QUAB->PERCABB2 + PICTURE "." + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFRB4 RIGTFRB0 "24" +END + +TEXT DLG_NULL +BEGIN + PROMPT COLTFRB4 RIGTFRB1 "Ammontare netto" +END + +NUMBER QBF_AMMNETTO2 15 +BEGIN + PROMPT COLTFRB4 RIGTFRB2 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->AMMNETTO2 + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT 57 RIGTFRB1 "25 Cont.obblig.lav." +END + +NUMBER QBF_CONTLAV 15 +BEGIN + PROMPT 59 RIGTFRB2 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->CONTLAV + GROUP GROUP_ALL +END + +ENDPAGE + +PAGE "MODULO 770 - QUADRO B" -1 -1 78 18 + +#define C1 2 +#define C2 22 +#define C3 57 + +GROUPBOX DLG_NULL 41 4 +BEGIN + PROMPT 1 1 "Acconti e anticipazioni erogati dal 74 al 94" +END + +TEXT DLG_NULL +BEGIN + PROMPT C1 2 "26 TFR ind.equi." +END + +NUMBER QBF_TFR7494 15 +BEGIN + PROMPT C1 3 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->TFR7494 + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT C2 2 "27 Altre inden." +END + +NUMBER QBF_INDEN7494 15 +BEGIN + PROMPT C2 3 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->INDEN7494 + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT C3 2 "28 Tot.indennità" +END + +NUMBER QBF_TIND7494 15 +BEGIN + PROMPT C3 3 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->TIND7494 + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT C1 5 "29 Tot.riduzioni" +END + +NUMBER QBF_TRID 15 +BEGIN + PROMPT C1 6 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->TRID + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT 30 5 "30 TFR o inden. equipollenti" +END + +NUMBER QBF_TFRIND 15 +BEGIN + PROMPT 30 6 "per reddito di riferimento " + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->TFRIND + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT C1 7 "31 Aliq." +END + +NUMBER QBF_ALIQUOTA 6 +BEGIN + PROMPT C1 8 "" + FIELD LF_QUAB->ALIQUOTA + PICTURE ".2" + GROUP GROUP_ALL +END + +#define GD0 24 //11 +#define GD1 25 //12 +#define GD2 64 //51 + +GROUPBOX DLG_NULL 49 4 +BEGIN + PROMPT GD0 7 "Art.4 3° comma L.482/1985" +END + +TEXT DLG_NULL +BEGIN + PROMPT GD1 8 "32 Retrib. media " +END + +NUMBER QBF_RETRMEDIA 15 +BEGIN + PROMPT GD1 9 "biennio precedente " + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->RETRMEDIA + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT GD2 8 "33 Aliq." +END + +NUMBER QBF_ALIQUOTA2 6 +BEGIN + PROMPT GD2 9 "" + FIELD LF_QUAB->ALIQUOTA2 + PICTURE ".2" + GROUP GROUP_ALL +END + +// QUARTA RIGA +TEXT DLG_NULL +BEGIN + PROMPT 1 11 "34 Impon. TFR " +END + +NUMBER QBF_IMPTFR 15 +BEGIN + PROMPT 1 12 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->IMPTFR + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT 19 11 "35 Imp.altre ind." +END + +NUMBER QBF_IMPIND 15 +BEGIN + PROMPT 19 12 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->IMPIND + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT 37 11 "36 Impon. anno " +END + +NUMBER QBF_IMPANNO 15 +BEGIN + PROMPT 37 12 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->IMPANNO + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT 54 11 "37 Totale reddito impon. " +END + +NUMBER QBF_TOTIMP 15 +BEGIN + PROMPT 57 12 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->TOTIMP + GROUP GROUP_ALL +END + +// QUINTA RIGA +TEXT DLG_NULL +BEGIN + PROMPT 1 13 "38 Rit. operate su acc.ant. erogati " +END + +NUMBER QBF_ROPEACC 15 +BEGIN + PROMPT 1 14 "dal 74 al 93 " + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->ROPEACC + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT 37 13 "39 Impos. dov." +END + +NUMBER QBF_IMPDOV 15 +BEGIN + PROMPT 37 14 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->IMPDOV + GROUP GROUP_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT 57 13 "40 Ritenute in ecced." +END + +NUMBER QBF_RITECC 15 +BEGIN + PROMPT 57 14 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->RITECC + GROUP GROUP_ALL +END + +// SESTA RIGA +GROUPBOX DLG_NULL 38 4 +BEGIN + PROMPT 1 15 "Art.2122 COD. CIV." +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 16 "41 Quota spett." +END + +NUMBER QBF_QUOTASPET 15 +BEGIN + PROMPT 2 17 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->QUOTASPET + GROUP GROUP_DIPDEC GROUP_EREDE +END + +TEXT DLG_NULL +BEGIN + PROMPT 19 16 "42 Indennità spett." +END + +NUMBER QBF_INDSPETT 15 +BEGIN + PROMPT 19 17 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->INDSPETT + GROUP GROUP_DIPDEC GROUP_EREDE +END + +TEXT DLG_NULL +BEGIN + PROMPT 40 16 "43 Rit. operate " +END + +NUMBER QBF_ROPE 15 +BEGIN + PROMPT 40 17 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->ROPE + GROUP GROUP_EREDE +END + +TEXT DLG_NULL +BEGIN + PROMPT 57 16 "44 Impon. CSSN " +END + +NUMBER QBF_IMPOCSSN 15 +BEGIN + PROMPT 57 17 "" + PICTURE "." + FLAGS "R" + FIELD LF_QUAB->IMPOCSSN + GROUP GROUP_ALL +END + +ENDPAGE + +ENDMASK + diff --git a/m770/menu_st.uml b/m770/menu_st.uml index e54f51c0c..96f233064 100755 --- a/m770/menu_st.uml +++ b/m770/menu_st.uml @@ -42,7 +42,7 @@ END BUTTON B_BASE 1 1 BEGIN PROMPT 1 ROW1 "" - MESSAGE RUN,772MOD,-4,Base,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,772MOD,-4,Base,S PICTURE 123 GROUP 1 END @@ -56,7 +56,7 @@ END BUTTON B_LAGG 1 1 BEGIN PROMPT 1 ROW2 "" -// MESSAGE RUN,771MOD,-7,1|K_TAB,RILEGGI_QUADRI +// MESSAGE RUN,771MOD,-7,1 PICTURE 123 GROUP 1 END @@ -70,7 +70,7 @@ END BUTTON B_NAGG 1 1 BEGIN PROMPT 1 ROW3 "" -// MESSAGE RUN,771MOD,-7,2|K_TAB,RILEGGI_QUADRI +// MESSAGE RUN,771MOD,-7,2 PICTURE 123 GROUP 1 END @@ -85,7 +85,7 @@ END BUTTON B_ALLSOC 1 1 BEGIN PROMPT 1 ROW4 "" -// MESSAGE RUN,771MOD,-7,3|K_TAB,RILEGGI_QUADRI +// MESSAGE RUN,771MOD,-7,3 PICTURE 123 GROUP 1 END @@ -114,7 +114,7 @@ BUTTON B_BUST 1 1 BEGIN PROMPT 1 ROW6 "" PICTURE 123 -// MESSAGE RUN,771MOD,-1 + MESSAGE RUN,772MOD,-4,Busta,S GROUP 1 END // Fine prima colonna @@ -131,7 +131,7 @@ BUTTON B_A 1 1 BEGIN PROMPT 20 ROW1 "" PICTURE 123 - MESSAGE RUN,772MOD,-4,A,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,772MOD,-4,A,S GROUP 1 END @@ -145,7 +145,7 @@ BUTTON B_A1 1 1 BEGIN PROMPT 20 ROW2 "" PICTURE 123 - MESSAGE RUN,771MOD,-4,A1,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,771MOD,-4,A1,S GROUP 1 END @@ -159,7 +159,7 @@ BUTTON B_A2 1 1 BEGIN PROMPT 20 ROW3 "" PICTURE 123 - MESSAGE RUN,772MOD,-4,A2,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,772MOD,-4,A2,S GROUP 1 END @@ -173,7 +173,7 @@ BUTTON B_A3 1 1 BEGIN PROMPT 20 ROW4 "" PICTURE 123 - MESSAGE RUN,772MOD,-4,A3,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,772MOD,-4,A3,S GROUP 1 END @@ -187,7 +187,7 @@ BUTTON B_B 1 1 BEGIN PROMPT 20 ROW5 "" PICTURE 123 - MESSAGE RUN,772MOD,-4,B,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,772MOD,-4,B,S GROUP 1 END @@ -201,7 +201,7 @@ BUTTON B_B1 1 1 BEGIN PROMPT 20 ROW6 "" PICTURE 123 -// MESSAGE RUN,771MOD,-6,0|K_TAB,RILEGGI_QUADRI +// MESSAGE RUN,771MOD,-6,0 GROUP 1 END // Fine seconda colonna @@ -217,7 +217,7 @@ BUTTON B_C 1 1 BEGIN PROMPT 39 ROW1 "" PICTURE 123 - MESSAGE RUN,772MOD,-4,C,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,772MOD,-4,C,S GROUP 1 END @@ -230,7 +230,7 @@ BUTTON B_D 1 1 BEGIN PROMPT 39 ROW2 "" PICTURE 123 - MESSAGE RUN,772MOD,-4,D,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,772MOD,-4,D,S GROUP 1 END @@ -244,7 +244,7 @@ BUTTON B_D1 1 1 BEGIN PROMPT 39 ROW3 "" PICTURE 123 - MESSAGE RUN,772MOD,-4,D1,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,772MOD,-4,D1,S GROUP 1 END @@ -258,7 +258,7 @@ BUTTON B_E 1 1 BEGIN PROMPT 39 ROW4 "" PICTURE 123 - MESSAGE RUN,772MOD,-4,E,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,772MOD,-4,E,S GROUP 1 END @@ -272,7 +272,7 @@ BUTTON B_E1 1 1 BEGIN PROMPT 39 ROW5 "" PICTURE 123 - MESSAGE RUN,772MOD,-4,E1,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,772MOD,-4,E1,S GROUP 1 END @@ -286,7 +286,7 @@ BUTTON B_E2 1 1 BEGIN PROMPT 39 ROW6 "" PICTURE 123 - MESSAGE RUN,772MOD,-4,E2,S|K_TAB,RILEGGI_QUADRI + MESSAGE RUN,772MOD,-4,E2,S GROUP 1 END // Fine terza colonna @@ -364,13 +364,13 @@ END TEXT T_H BEGIN - PROMPT 62 ROW5 "Quadro H" + PROMPT 62 ROW6 "Quadro H" GROUP 1 END BUTTON B_H 1 1 BEGIN - PROMPT 58 ROW5 "" + PROMPT 58 ROW6 "" PICTURE 123 MESSAGE RUN,772MOD,-4,H,S GROUP 1 diff --git a/m770/menustq.uml b/m770/menustq.uml index 32884ee8d..05480bfab 100755 --- a/m770/menustq.uml +++ b/m770/menustq.uml @@ -379,14 +379,14 @@ END TEXT T_H BEGIN - PROMPT 62 ROW5 "Quadro H" + PROMPT 62 ROW6 "Quadro H" FLAGS MYFLAGS GROUP GRUPPO END BUTTON B_H 1 1 BEGIN - PROMPT 58 ROW5 "" + PROMPT 58 ROW6 "" PICTURE 123 MESSAGE RUN,772MOD,-4,H,D FLAGS MYFLAGS