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

Modifiche 770 97

Browse Source 
quadri A/Abis/A1


git-svn-id: svn://10.65.10.50/trunk@4513 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luciano 1997-06-03 16:30:07 +00:00
parent c015888a8d
commit d53a6808b8
21 changed files with 2974 additions and 1857 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1022
m770/771150a.uml
View File

File diff suppressed because it is too large Load Diff

400
m770/771200.cpp
View File

@ -2,7 +2,8 @@
// 771200.cpp - Quadro A 771mod -7 A //
// - Quadro A1 771mod -7 1 //
// - Quadro A2 771mod -7 2 //
// - Quadro A3 771mod -7 3 //
// - Quadro A3 771mod -7 3 //
// - Quadro AB 771mod -7 4 //
//////////////////////////////////////////
#include <relapp.h>
#include <config.h>
@ -22,31 +23,33 @@
#include "774200.h"
#include "77qaall.h"
bool QA_cerca_codA(const long codditta, const long coddip, TString& quadro);
bool QA_cerca_codA(const long codditta, const long coddip, const int curprog, TString16 ret, TString quadro);
bool QA_cerca_codA(const long codditta, const long coddip, TString& quadro)
bool QA_cerca_codA(const long codditta, const long coddip, const int curprog, TString16 ret, TString quadro)
{
TString16 c58("");
bool Result = FALSE;
TLocalisamfile qq(quadro == "A" ? LF_QUAA : LF_QUAA2);
TLocalisamfile qq(quadro == "AB" ? LF_QUAAB : LF_QUAA2);
qq.zero();
qq.put(QUA_CODDITTA, codditta);
qq.put(QUA_CODIP, coddip);
qq.put("CODDITTA", codditta);
qq.put("CODDIP", coddip);
TRectype dep(qq.curr());
qq.read();
TRecnotype lPos = qq.recno();
for ( ;!qq.eof(); qq.next())
for (qq.read() ;!qq.eof() && qq.curr() == dep ; qq.next())
{
if (qq.curr() > dep) break;
c58 = qq.get(QUA_RETCON);
if (c58 == "A")
{
Result = TRUE;
break;
}
// non prendo in considerazione se stesso
if (qq.get_int("NPROG") == curprog)
continue;
// leggo rettifica conguaglio
TString16 retx(qq.get("RETCON"));
// se rettifica A controllo se esiste un record con rettifica A,C,D,E,F
if (ret == "A")
if (retx == "A" || retx == "C" || retx == "D" || retx == "E" || retx == "F")
return TRUE;
// se rettifica C,D,E,F controllo se esiste un qualsiasi altro record
if (ret == "C" || ret == "D" || ret == "E" || ret == "F")
return TRUE;
}
qq.readat(lPos);
return Result;
return FALSE;
}
class TQuadroA : public TRelation_application
@ -56,7 +59,7 @@ class TQuadroA : public TRelation_application
bool _registra; // Se TRUE fa i riporti
TRelation* _rel;
TMask* _msk[2];
TMask* _mskAllegati; // maschera allegati 730 (A e A2)
TMask* _mskAllegati; // maschera allegati 730 (AB e A2)
long _coddip;
char _tipoq;
int _nproga;
@ -69,23 +72,20 @@ class TQuadroA : public TRelation_application
TString _cognome,_nome; // dati soc.trasf.
private:
// Handler relativi ai quadri A - A1 - A2 - A3
// Handler relativi ai quadri A - A1 - A2 - A3 - AB
static bool nprog_handler (TMask_field& f, KEY key);
static bool codanagr_handler (TMask_field& f, KEY key);
static bool codditta_hnd (TMask_field& f, KEY key);
static bool setta_nprog (TMask_field& f);
static bool QAA2alleg_handler (TMask_field& f, KEY key);
// Handler relativi alla manutenzione quadro A
static bool QA_comp_netti_hnd (TMask_field& f, KEY key);
static bool QA_tot_impon_hnd (TMask_field& f, KEY key);
static bool QA_tot_detraz_hnd (TMask_field& f, KEY key);
static bool QA_cfdlprec_hnd (TMask_field& f, KEY key);
static bool QA_chech_ritdatlav (TMask_field& f, KEY key);
static bool QA_calcola42 (TMask_field& f, KEY k);
static bool QA_check_2527 (TMask_field& f, KEY key);
static bool QA_A2_check_58 (TMask_field& f, KEY key);
static bool QA_calcolo30 (TMask_field& f, KEY key);
// Handler relativi alla manutenzione quadro A
static bool QA_qaqualif_hnd (TMask_field& f, KEY key);
static bool QA_cfdlprec_hnd (TMask_field& f, KEY key);
static bool QA_totdet_hnd (TMask_field& f, KEY key);
static bool QA_ammritdov_hnd (TMask_field& f, KEY k);
static bool QA_qatitolo_hnd (TMask_field& f, KEY k);
static bool QA_A2_check_58 (TMask_field& f, KEY key);
// Handler relativi alla manutenzione quadro A3
static bool QA3_codip_handler (TMask_field& f, KEY key);
static bool QA3_base_occupazionale(TMask_field& f, KEY key);
@ -94,7 +94,7 @@ class TQuadroA : public TRelation_application
protected:
TString _sCognome, _sNome; // dati dipendente
int _iNprog;
long _codditta,_codip;
long _codditta,_codip;
virtual bool user_create();
virtual bool user_destroy();
@ -114,7 +114,8 @@ class TQuadroA : public TRelation_application
bool QuadroA() const { return _quadro == "A"; }
bool QuadroA1() const { return _quadro == "A1"; }
bool QuadroA2() const { return _quadro == "A2"; }
bool QuadroA3() const { return _quadro == "A3"; }
bool QuadroA3() const { return _quadro == "A3"; }
bool QuadroAB() const { return _quadro == "AB"; }
public:
bool is_societa_trasformata(TMask& m);
@ -173,7 +174,10 @@ TMask* TQuadroA::load_mask(int n)
break;
case '3': // Manutenzione quadro A3
name << 'g';
break;
break;
case '4': // Manutenzione quadro AB
name << 'l';
break;
default:
break;
}
@ -193,7 +197,10 @@ TMask* TQuadroA::load_mask(int n)
break;
case '3': // Manutenzione quadro A3
name << 'h';
break;
break;
case '4': // Manutenzione quadro AB
name << 'm';
break;
default:
break;
}
@ -215,7 +222,7 @@ TMask* TQuadroA::load_mask(int n)
}
else
{
if (QuadroA())
if (QuadroAB())
m->set_handler(QAF_ALLEG_A, QAA2alleg_handler);
if (QuadroA2())
m->set_handler(QA2F_ALLEG_A2, QAA2alleg_handler);
@ -230,38 +237,26 @@ TMask* TQuadroA::load_mask(int n)
if (m)
{
if (QuadroA2())
m->set_handler(QA2F_RETCON, QA_A2_check_58);
m->set_handler(QA2F_RETCON, QA_A2_check_58);
if (QuadroAB())
m->set_handler(F_RETCON56, QA_A2_check_58);
if (QuadroA())
{
// Calcola i compensi netti (c.23) e controllo c25-27
m->set_handler(F_CODFISDL, QA_cfdlprec_hnd);
m->set_handler(F_DENARO, QA_comp_netti_hnd);
m->set_handler(F_NATURA, QA_comp_netti_hnd);
m->set_handler(F_COBBDIP21, QA_comp_netti_hnd);
// Se immette un B controlla che ci sia almeno un rec con A
m->set_handler(F_RETCON56, QA_A2_check_58);
// Se 27=0 => 25 deve = 0
m->set_handler(F_IACOBBCD25, QA_check_2527);
// Calcola il totale imponibile (c.27)
m->set_handler(F_AMMLORDO24, QA_tot_impon_hnd);
m->set_handler(QAF_SVNSOGRIT, QA_tot_impon_hnd);
m->set_handler(F_DETCC, QA_tot_detraz_hnd);
m->set_handler(F_DETFC, QA_tot_detraz_hnd);
m->set_handler(F_DETAF, QA_tot_detraz_hnd);
m->set_handler(F_DETLD, QA_tot_detraz_hnd);
m->set_handler(F_DETO, QA_tot_detraz_hnd);
// Controlla che 40 sia <= 30
m->set_handler(F_AMRIODL38, QA_chech_ritdatlav);
// Calcola 42 = 39 + 40 - 41
m->set_handler(F_AMRIOT37, QA_calcola42);
m->set_handler(F_AMRIODL38, QA_calcola42);
m->set_handler(F_ECCRITRIMB, QA_calcola42);
// Calcolo: 30 = 23+27+28+29
m->set_handler(F_COMPNETTI, QA_calcolo30);
m->set_handler(F_TOTIMP26, QA_calcolo30);
m->set_handler(F_AIEREP23, QA_calcolo30);
m->set_handler(F_CCTAMMCONT, QA_calcolo30);
{
m->set_handler(F_CODFISDL, QA_cfdlprec_hnd);
m->set_handler(F_QAQUALIF, QA_qaqualif_hnd);
m->set_handler(F_DETCC, QA_totdet_hnd);
m->set_handler(F_DETFC, QA_totdet_hnd);
m->set_handler(F_DETAF, QA_totdet_hnd);
m->set_handler(F_DETLD, QA_totdet_hnd);
m->set_handler(F_DETO, QA_totdet_hnd);
m->set_handler(F_AMRIOT37, QA_ammritdov_hnd);
m->set_handler(F_AMRIODL38, QA_ammritdov_hnd);
m->set_handler(F_ECCRITRIMB, QA_ammritdov_hnd);
m->set_handler(F_COBBDIP44, QA_qatitolo_hnd);
m->set_handler(F_AMMIMP45, QA_qatitolo_hnd);
m->set_handler(F_DETIMPOS46, QA_qatitolo_hnd);
m->set_handler(F_RITESEG47, QA_qatitolo_hnd);
}
}
break;
@ -393,7 +388,7 @@ bool TQuadroA::QAA2alleg_handler(TMask_field& f, KEY k)
if (k==K_SPACE)
{
KEY kAll;
if (app().QuadroA())
if (app().QuadroAB())
{
const long lNumAllA = app()._base->get_long("N730ALLA");
TString sNumAll; sNumAll << lNumAllA;
@ -414,9 +409,7 @@ bool TQuadroA::QAA2alleg_handler(TMask_field& f, KEY k)
app()._mskAllegati->show(QA2_NUM_ALL);
}
app()._mskAllegati->open_modal();
kAll = app()._mskAllegati->run();
kAll = app()._mskAllegati->run();
if (kAll == K_ESC &&
app()._mskAllegati->dirty() &&
@ -425,7 +418,7 @@ bool TQuadroA::QAA2alleg_handler(TMask_field& f, KEY k)
if (kAll==K_ENTER)
{
if (app().QuadroA())
if (app().QuadroAB())
{
TString sAll (app()._mskAllegati->get(QA_NUM_ALL));
app()._base->put("N730ALLA", sAll);
@ -467,9 +460,6 @@ bool TQuadroA::nprog_handler(TMask_field& f, KEY key)
else
{
app()._codip = coddip;
// app().AA3SettaCognomeNome(f.mask());
// f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure
// inserimento (se trova che non esiste)
}
}
return TRUE;
@ -491,35 +481,47 @@ bool TQuadroA::QA3_codip_handler(TMask_field& f, KEY key)
return TRUE;
}
// Se CF dat.lav.prec. e' vuoto => mette a ZERO il 19 e lo disabilita
// 26.6.96 azzera soltanto
// handler QAQUALIF
bool TQuadroA::QA_qaqualif_hnd(TMask_field& f, KEY k)
{
// forzo qualifica 11 se il dipendente ha indicato il deceduto
// e disabilito il campo
if (k == K_TAB)
{
TLocalisamfile dip(LF_DIPEND);
dip.setkey(1);
dip.zero();
dip.put("CODDITTA", app()._codditta);
dip.put("CODDIP", app()._codip);
long dipdec = 0L;
if (dip.read() == NOERR)
dipdec = dip.get_long("CODDIPDEC");
if (dipdec)
{
f.set(11);
f.disable();
}
}
return TRUE;
}
// handler CFDLPREC
bool TQuadroA::QA_cfdlprec_hnd(TMask_field& f, KEY k)
{
/*
// obbligatorio se qualifica 11
if (k == K_TAB)
{
TString tmp(f.get());
if (tmp.empty())
f.mask().set(F_CAUSA, 0L);
} */
if (f.mask().get_int(F_QAQUALIF) == 11)
{
TString tmp = f.get();
if (tmp.empty())
return f.warning_box("Codice fiscale precedente datore di lavoro obbligatorio");
}
return TRUE;
}
// Controlla che 40 NON sia > 30
bool TQuadroA::QA_chech_ritdatlav(TMask_field& f, KEY k)
{
if (k == K_ENTER)
{
real RitDatLavoro(f.get()); // c40
real TotImp(f.mask().get_real(F_TOTIMP29)); // c30
if (RitDatLavoro > TotImp)
return f.warning_box("Le ritenute del datore di lavoro non possono superare il totale imponibile");
}
return TRUE;
}
// Calcola che 42 = 39 + 40 - 41. Se il risultato e' negativo scrive 0
bool TQuadroA::QA_calcola42(TMask_field& f, KEY k)
// handler AMMRITDOV
bool TQuadroA::QA_ammritdov_hnd(TMask_field& f, KEY k)
{
if (k==K_TAB)
{
@ -529,104 +531,82 @@ bool TQuadroA::QA_calcola42(TMask_field& f, KEY k)
real c41 = m.get_real(F_ECCRITRIMB);
real c42 = c39 + c40 - c41;
if (c42 < ZERO) c42 = ZERO;
TString c42s(c42.string());
m.set(F_AMMRITDOV, c42s);
m.set(F_AMMRITDOV, c42);
}
return TRUE;
}
bool TQuadroA::QA_check_2527 (TMask_field& f, KEY k)
// handler QATITOLO
bool TQuadroA::QA_qatitolo_hnd(TMask_field& f, KEY k)
{
// Se 27 == 0 => 25 = 0
if (k == K_ENTER)
{
real c27 = f.mask().get_real(F_TOTIMP26);
real c25(f.get());
if (c27 == ZERO && c25 != ZERO)
return f.warning_box("Valore non corretto: il totale imponibile è nullo");
if (k==K_TAB)
{
TMask& m = f.mask();
real A45 = m.get_real(F_COBBDIP44);
real A46 = m.get_real(F_AMMIMP45);
real A47 = m.get_real(F_DETIMPOS46);
real A48 = m.get_real(F_RITESEG47);
real TOT = A45 + A46 + A47 + A48;
if (TOT != ZERO)
m.enable(F_QATITOLO);
else
m.disable(F_QATITOLO);
}
return TRUE;
}
}
// Funziona sia col quadro A che con A2
bool TQuadroA::QA_A2_check_58(TMask_field& f, KEY k)
{
// if (k == K_TAB || k == K_ENTER)
{
if (f.to_check(k,TRUE))
{
TMask& m = f.mask();
TString16 cod(f.get());
cod.upper();
TString16 cod(f.get());
const long codditta = m.get_long(QAF_CODDITTA);
const long coddip = m.get_long(F_CODIP);
if (cod == "B")
{
if (!QA_cerca_codA(codditta, coddip, app()._quadro))
return error_box(app().QuadroA2() ?
"Non esiste nessun record con 9=A per questo dipendente" :
"Non esiste nessun record con 58=A per questo dipendente");
else
{
// Nasconde prompt 770 mostra prompt 730
m.reset(-G_ALL);
m.disable(-G_ALL);
// reset anche dei campi calcolati disabilitati nel quadro A
if (app().QuadroA()) m.reset(-G_2342);
m.hide(-G_770);
m.show(-G_730);
}
}
// Nasconde prompt 730 mostra prompt 770
else
{
m.show(-G_770);
m.hide(-G_730);
m.enable(-G_ALL);
}
}
return TRUE;
}
// calcola c23 = 20 + 21 -22 Se minore di 0 scrive 0
bool TQuadroA::QA_comp_netti_hnd (TMask_field& f, KEY k)
{
if (k == K_TAB)
{
real denaro = f.mask().get_real(F_DENARO);
real natura = f.mask().get_real(F_NATURA);
real cobbdip = f.mask().get_real(F_COBBDIP21);
real compnetti = denaro + natura - cobbdip;
if (compnetti < ZERO) compnetti = ZERO;
f.mask().set(F_COMPNETTI, compnetti);
if (f.mask().is_running())
f.mask().send_key(K_TAB,F_COMPNETTI);
}
return TRUE;
}
// 27 = 24 - 26
bool TQuadroA::QA_tot_impon_hnd (TMask_field& f, KEY k)
{
if (k == K_TAB || k == K_SPACE)
{
bool ForzaRicalcolo = f.focusdirty();
real ammlordo = f.mask().get_real(F_AMMLORDO24);
real svnsrit = f.mask().get_real(QAF_SVNSOGRIT);
real tot_corr = f.mask().get_real(F_TOTIMP26);
if (tot_corr == ZERO || ForzaRicalcolo)
const long coddip = m.get_long(F_CODIP);
const int curprog = m.get_int(QAF_NPROG);
// controllo se stò immettendo un quadro con rettifica A
// che non ne esista già uno con rettifica A,C,D,E,F
if (cod == "A")
if (QA_cerca_codA(codditta, coddip, curprog, cod, app()._quadro))
return f.error_box("Esiste già un quadro con rettifica A,C,D,E oppure F per questo dipendente");
// controllo se stò immettendo un quadro con rettifica C,D,E,F
// che non ne esista nessun altro record
if (cod == "C" || cod == "D" || cod == "E" || cod == "F")
if (QA_cerca_codA(codditta, coddip, curprog, cod, app()._quadro))
return f.error_box("Esiste già un altro quadro per questo dipendente");
// se rettifica A abilito pagina relativa operazioni di conguaglio
if (cod == "A")
{
real totimp29 = ammlordo - svnsrit;
// c27 se < 0 scrivere 0 fax 15.7.96 p.1
if (totimp29 < ZERO)
totimp29 = ZERO;
f.mask().set(F_TOTIMP26, totimp29);
}
m.enable_page(5);
// controllo se compilato pagina operazioni di conguaglio
real ABB19 = m.get_real(F_QABRCB19);
real ABB20 = m.get_real(F_QABRCB20);
real ABB21 = m.get_real(F_QABRCB21);
real ABB22 = m.get_real(F_QABRCB22);
real ABB23 = m.get_real(F_QABRCB23);
real ABB24 = m.get_real(F_QABRCB24);
real ABB25 = m.get_real(F_QABRCB25);
real ABB26 = m.get_real(F_QABRCB26);
real ABB27 = m.get_real(F_QABRCB27);
real ABB28 = m.get_real(F_QABRCB28);
real ABB29 = m.get_real(F_QABRCB29);
real ABBTOT = ZERO;
ABBTOT += ABB19+ABB20+ABB21+ABB22+ABB23+ABB24;
ABBTOT += ABB25+ABB26+ABB27+ABB28+ABB29;
if (ABBTOT == ZERO)
f.warning_box("Compilare la pagina relativa alle operazioni di conguaglio");
}
else
m.disable_page(5);
}
return TRUE;
}
bool TQuadroA::QA_tot_detraz_hnd (TMask_field& f, KEY k)
// handler TOTDET
bool TQuadroA::QA_totdet_hnd (TMask_field& f, KEY k)
{
if (k == K_TAB)
{
@ -639,7 +619,8 @@ bool TQuadroA::QA_tot_detraz_hnd (TMask_field& f, KEY k)
real deto = m.get_real(F_DETO);
totdet36 = detcc + detfc + detaf + detld + deto;
m.set(F_TOTDET36, totdet36);
// disabilita il campo 37 se uno almeno da 32 a 36 e' compilato
// disabilita il totale se almeno un dettaglio è compilato
if (totdet36 != ZERO)
m.disable(F_TOTDET36);
else
@ -648,23 +629,6 @@ bool TQuadroA::QA_tot_detraz_hnd (TMask_field& f, KEY k)
return TRUE;
}
bool TQuadroA::QA_calcolo30(TMask_field& f, KEY k)
{
if (k == K_TAB)
{
TMask& m = f.mask();
real c30 = m.get_real(F_TOTIMP29);
real c23 = m.get_real(F_COMPNETTI);
real c27 = m.get_real(F_TOTIMP26);
real c28 = m.get_real(F_AIEREP23);
real c29 = m.get_real(F_CCTAMMCONT);
c30 = c23 + c27 + c28 + c29;
if (c30 < ZERO) c30 = ZERO;
m.set(F_TOTIMP29, c30);
}
return TRUE;
}
bool TQuadroA::QA3_base_occupazionale(TMask_field& f , KEY k)
{
if (k == K_SPACE)
@ -729,6 +693,16 @@ int TQuadroA::rewrite(const TMask& m)
if (QuadroA3() && _soc_trasf)
registra_record2_A3(m);
// azzero campi operazioni di conguaglio
// se rettifica diversa da A
TMask& mx = (TMask&)m;
if (QuadroAB())
if (m.get(F_RETCON56) != "A")
mx.reset(-G_OPECONG);
if (QuadroA2())
if (m.get(QA2F_RETCON) != "A")
mx.reset(-G_OPECONG);
m.autosave(*_rel);
const int err = _rel->rewrite();
_registra = TRUE;
@ -740,7 +714,17 @@ int TQuadroA::write(const TMask& m)
{
if (QuadroA3() && _soc_trasf)
registra_record2_A3(m);
// azzero campi operazioni di conguaglio
// se rettifica diversa da A
TMask& mx = (TMask&)m;
if (QuadroAB())
if (m.get(F_RETCON56) != "A")
mx.reset(-G_OPECONG);
if (QuadroA2())
if (m.get(QA2F_RETCON) != "A")
mx.reset(-G_OPECONG);
m.autosave(*_rel);
const int err = _rel->write();
_registra = TRUE;
@ -788,7 +772,11 @@ bool TQuadroA::user_create()
case '3':
_file = LF_QUAA3;
_quadro = "A3";
break;
break;
case '4':
_file = LF_QUAAB;
_quadro = "AB";
break;
default:
break;
}
@ -808,7 +796,7 @@ bool TQuadroA::user_create()
load_mask(0);
if (QuadroA() || QuadroA2())
if (QuadroAB() || QuadroA2())
_mskAllegati = new TMask("77qaall");
_soc_trasf = FALSE;
@ -821,7 +809,7 @@ bool TQuadroA::user_destroy()
if (_msk[1] != NULL) delete _msk[1];
if (_msk[0] != NULL) delete _msk[0];
if (QuadroA() || QuadroA2())
if (QuadroAB() || QuadroA2())
delete _mskAllegati;
delete _base;
@ -841,7 +829,10 @@ bool TQuadroA::user_destroy()
break;
case '3':
quadro << "A3";
break;
break;
case '4':
quadro << "AB";
break;
default:
break;
}
@ -1018,7 +1009,10 @@ int quadriA_A3(int argc, char* argv[])
break;
case '3':
title = "Quadro A3";
break;
break;
case '4':
title = "Quadro A bis";
break;
default:
break;
}

83
m770/771200.h
View File

@ -1,7 +1,13 @@
// Campi maschere manutenzione quadro A
// Campi maschere manutenzione quadri A/Abis/A1/A2/A3
// 771200a.uml
// lunghezza campi importo
#define LENIMP 15
// posizioni standard
#define STDIMP 61
#define STDINF 25
// 771200a.uml (ingresso quadro A/Abis/A1/A2/A3)
#define QAF_CODDITTA 181
#define QAF_RAGDITTA 102
#define QAF_ANNODIC 103
@ -14,23 +20,15 @@
#define QAF_NPROG 108
// 771200b.uml
//#define F_BASEOCC 109
// 771200b.uml (quadro A)
#define F_DATAIR 110
#define F_DATAFR 111
#define F_CAUSA 112
#define F_DENARO 113
#define F_NATURA 114
#define F_COBBDIP21 116
#define F_COMPNETTI 117
#define F_AIEREP23 118
#define F_AMMLORDO24 119
#define F_IACOBBCD25 120
#define F_TOTIMP26 121
#define F_CCTAMMCONT 122
#define F_CCTAMNACON 123
#define F_TOTIMP29 124
#define F_ICTOTIMP30 125
#define F_DETCC 126
#define F_DETFC 127
@ -49,10 +47,31 @@
#define F_AMMIMP45 140
#define F_DETIMPOS46 141
#define F_RITESEG47 142
#define F_SVNASSRI48 143
#define F_AIFCSSN49 144
#define F_CFCONINPS 145
#define F_SASS95 146
#define F_CIIAT 167
#define F_CIPA 168
#define F_NUMGIORNI 170
#define F_CODFISDL 171
#define F_CODIP2 190
#define QA_RAGSOC2 191
#define QAF_AREAATT 405
#define QAF_TIPOATT 406
#define QAF_SVNSOGRIT 407
#define QAF_GIODET 409
#define F_QAQUALIF 176
#define F_QASACTRPA 177
#define F_QAEXCTRPC 178
#define F_QAEXCTRLD 179
#define F_QAERGSAN 180
#define F_QAIMPON 184
#define F_QACTREURO 185
#define F_QATITOLO 186
#define F_QAPEIMP 187
#define F_QAARRETR 188
// 771200m.uml (quadro Abis)
#define F_CONEFF50 147
#define F_IMPVERS51 148
#define F_ISOPTAS52 149
@ -73,19 +92,30 @@
#define F_INTER67 164
#define F_STSCSSN68 165
#define F_SEGDICNL69 166
#define F_CIIAT 167
#define F_CIPA 168
#define F_CODCAAF 169
#define F_NUMGIORNI 170
#define F_CODFISDL 171
#define F_DENCAAF 173
#define F_CODFISCAAF 174
#define F_NISCRA 175
#define F_CODIP2 190
#define QA_RAGSOC2 191
#define F_QABEURIMB 500
#define F_QABEUTRAT 501
#define F_QABEUINTE 502
#define F_QABEUSOPR 503
#define F_QABTSTRAT 504
#define F_QABTSINTE 505
#define F_QABTSSOPR 506
#define F_QABRCB19 507
#define F_QABRCB20 508
#define F_QABRCB21 509
#define F_QABRCB22 510
#define F_QABRCB23 511
#define F_QABRCB24 512
#define F_QABRCB25 513
#define F_QABRCB26 514
#define F_QABRCB27 515
#define F_QABRCB28 516
#define F_QABRCB29 517
// 771200d.uml
#define F_MESEANNO 200
#define F_IMPRIMB9 201
#define F_IMPVERS10 202
@ -156,12 +186,6 @@
//
// Modifiche 95->96
//
// Quadro A
#define QAF_AREAATT 405
#define QAF_TIPOATT 406
#define QAF_SVNSOGRIT 407
#define QAF_INCDETFC 408
#define QAF_GIODET 409
// Quadro A1
#define QA1F_ANNORIF 410
@ -180,11 +204,8 @@
#define F_CODANAGDIPQA 420
#define G_ALL 12
#define G_730 9
#define G_770 7
#define G_2342 6
#define G_OPECONG 12
#define QAF_ALLEG_A 421
#define QA2F_ALLEG_A2 422
#define QAF_ALLEG_A 421
#define QA2F_ALLEG_A2 422

15
m770/771200a.uml
View File

@ -1,16 +1,11 @@
#include "771200.h"
#define G_DIPEND 1
#define G_QUADROA 2
TOOLBAR "" 0 18 0 4
#include <toolbar.h>
BUTTON QAF_ALLEG_A 24 2
BEGIN
PROMPT -13 -3 "~Allegati 730/96"
END
ENDPAGE
#define G_DIPEND 1
#define G_QUADROA 2
PAGE "Quadro A" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
@ -21,7 +16,7 @@ END
NUMBER QAF_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRD"
FLAGS "GRDP"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
@ -33,13 +28,13 @@ END
STRING QAF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
FLAGS "DP"
END
NUMBER QAF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
FLAGS "DRP"
END
TEXT DLG_NULL

1110
m770/771200b.uml
View File

File diff suppressed because it is too large Load Diff

6
m770/771200c.uml
View File

@ -16,7 +16,7 @@ END
NUMBER QAF_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRD"
FLAGS "GRDP"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
@ -28,13 +28,13 @@ END
STRING QAF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
FLAGS "DP"
END
NUMBER QAF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
FLAGS "DRP"
END
TEXT DLG_NULL

304
m770/771200d.uml
View File

@ -58,100 +58,112 @@ BEGIN
MESSAGE COPY,5@
END
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 3 "@bPeriodo di riferimento"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 4 " 8 Mese e anno periodo di riferimento "
END
LISTBOX F_MESEANNO 9
BEGIN
PROMPT 2 3 "8 Periodo di riferimento "
FLAGS "M"
PROMPT STDIMP 4 ""
FIELD LF_QUAA1->MESERIF
FLAGS "M"
END
NUMBER QA1F_ANNORIF 4
BEGIN
PROMPT 44 3 ""
FLAGS "D"
PROMPT 73 4 ""
FIELD LF_QUAA1->ANNORIF
FLAGS "D"
END
GROUPBOX DLG_NULL 78 4
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 4 "@bSaldo IRPEF per il 1994"
PROMPT 1 7 "@bSaldo Irpef per il 1995"
END
NUMBER F_IMPRIMB9 15
TEXT DLG_NULL
BEGIN
PROMPT 2 5 "9 Imposta rimbors. "
PROMPT 2 8 " 9 Imposta rimborsata"
END
NUMBER F_IMPRIMB9 LENIMP
BEGIN
PROMPT STDIMP 8 ""
FIELD LF_QUAA1->IMPRIMB9
PICTURE "."
END
END
NUMBER F_IMPVERS10 15
TEXT DLG_NULL
BEGIN
PROMPT 45 5 "10 Imposta ver. "
PROMPT 2 9 "10 Imposta versata"
END
NUMBER F_IMPVERS10 LENIMP
BEGIN
PROMPT STDIMP 9 ""
FIELD LF_QUAA1->IMPVERS10
PICTURE "."
END
END
NUMBER F_INTER11 15
TEXT DLG_NULL
BEGIN
PROMPT 2 6 "11 Interessi "
PROMPT 2 10 "11 Interessi"
END
NUMBER F_INTER11 LENIMP
BEGIN
PROMPT STDIMP 10 ""
FIELD LF_QUAA1->INTER11
PICTURE "."
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 8 "@bPrima rata acconto IRPEF per il 1995"
PROMPT 1 13 "@bPrima rata acconto Irpef per il 1996"
END
NUMBER F_IMPVERS12 15
TEXT DLG_NULL
BEGIN
PROMPT 2 9 "12 Imposta versata "
PROMPT 2 14 "12 Imposta versata"
END
NUMBER F_IMPVERS12 LENIMP
BEGIN
PROMPT STDIMP 14 ""
FIELD LF_QUAA1->IMPVERS12
PICTURE "."
END
NUMBER F_INTER13 15
TEXT DLG_NULL
BEGIN
PROMPT 45 9 "13 Interessi "
PROMPT 2 15 "13 Interessi"
END
NUMBER F_INTER13 LENIMP
BEGIN
PROMPT STDIMP 15 ""
FIELD LF_QUAA1->INTER13
PICTURE "."
END
NUMBER F_STASSA14 15
TEXT DLG_NULL
BEGIN
PROMPT 2 10 "14 Soprattassa su IRPEF saldo 94 e prima rata acconto 95 "
PROMPT 2 18 "14 Soprattassa su Irpef saldo 95 e prima rata acconto 96"
END
NUMBER F_STASSA14 LENIMP
BEGIN
PROMPT STDIMP 18 ""
FIELD LF_QUAA1->STASSA14
PICTURE "."
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 12 "@bSaldo C.S.S.N. per il 1994"
END
NUMBER F_CONTRIMB15 15
BEGIN
PROMPT 2 13 "15 Cont. a rimborso"
FIELD LF_QUAA1->CONTRIMB15
PICTURE "."
HELP "Contributo a rimborso"
END
NUMBER F_CONTVERS16 15
BEGIN
PROMPT 45 13 "16 Cont.versato "
FIELD LF_QUAA1->CONTVERS16
PICTURE "."
HELP "Contributo versato"
END
NUMBER F_INTER17 15
BEGIN
PROMPT 2 14 "17 Interessi "
FIELD LF_QUAA1->INTER17
PICTURE "."
END
ENDPAGE
PAGE "2" -1 -1 78 21
@ -191,35 +203,95 @@ END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 3 "@bPrima rata acconto C.S.S.N. per il 1995"
PROMPT 1 3 "@bSaldo C.s.s.n. per il 1995"
END
NUMBER F_CONTVER18 15
TEXT DLG_NULL
BEGIN
PROMPT 2 4 "18 Contributo vers."
PROMPT 2 4 "15 Contributo a rimborso"
END
NUMBER F_CONTRIMB15 LENIMP
BEGIN
PROMPT STDIMP 4 ""
FIELD LF_QUAA1->CONTRIMB15
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 5 "16 Contributo versato"
END
NUMBER F_CONTVERS16 LENIMP
BEGIN
PROMPT STDIMP 5 ""
FIELD LF_QUAA1->CONTVERS16
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 6 "17 Interessi"
END
NUMBER F_INTER17 LENIMP
BEGIN
PROMPT STDIMP 6 ""
FIELD LF_QUAA1->INTER17
PICTURE "."
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 9 "@bPrima rata acconto C.s.s.n. per il 1996"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 10 "18 Contributo versato"
END
NUMBER F_CONTVER18 LENIMP
BEGIN
PROMPT STDIMP 10 ""
FIELD LF_QUAA1->CONTVER18
PICTURE "."
END
NUMBER F_INTER19 15
TEXT DLG_NULL
BEGIN
PROMPT 45 4 "19 Interessi "
PROMPT 2 11 "19 Interessi"
END
NUMBER F_INTER19 LENIMP
BEGIN
PROMPT STDIMP 11 ""
FIELD LF_QUAA1->INTER19
PICTURE "."
END
END
NUMBER F_STASSA20 15
TEXT DLG_NULL
BEGIN
PROMPT 2 5 "20 Soprattassa su C.S.S.N. saldo 94 e prima rata acconto 95"
PROMPT 2 14 "20 Soprattassa su C.s.s.n. saldo 95 e prima rata acconto 96"
END
NUMBER F_STASSA20 LENIMP
BEGIN
PROMPT STDIMP 14 ""
FIELD LF_QUAA1->STASSA20
PICTURE "."
END
END
TEXT DLG_NULL
BEGIN
PROMPT 2 15 "21 Conguagli non effettuati"
END
STRING F_CONNEFF21 1
BEGIN
PROMPT 2 6 "21 Cong. n/effet. "
PROMPT STDIMP 15 ""
FIELD LF_QUAA1->CONNEFF21
HELP "Conguagli non effettuati"
SHEET "Codice|Descrizione@60"
INPUT F_CONNEFF21
ITEM " |Niente"
@ -228,35 +300,88 @@ BEGIN
ITEM "C|Decesso"
ITEM "D|Richiesta di minore secondo acconto"
ITEM "E|Retribuzione insufficiente"
ITEM "F|Situaz. per le quali dovrebbero essere indicati piu' codici"
ITEM "F|Situaz.per le quali dovrebbero essere indicati più codici"
ITEM "G|Rimborso non effettuato o rimborso effettuato parzialmente"
OUTPUT F_CONNEFF21
FLAGS "U"
END
END
TEXT DLG_NULL
BEGIN
PROMPT 2 16 "22 Tipo conguaglio"
END
STRING F_TIPOCONG22 1
BEGIN
PROMPT 45 6 "22 Tipo cong. "
PROMPT STDIMP 16 ""
FIELD LF_QUAA1->TIPOCONG22
SHEET "Codice|Descrizione@60"
INPUT F_TIPOCONG22
ITEM " |Niente"
ITEM "R|Cong. tardivo derivante da Mod.730/93 rettificativo..."
ITEM "S|Cong. tardivo derivante da comunicaz. Mod.730/94..."
ITEM "T|Cong. tardivo deriv. da Mod.730/93 ov. comunic. tardiva Mod.730/94"
ITEM "U|Cong. conseguente ad incapienza della retribuz..."
ITEM "R|Cong.tardivo derivante da Mod.730-3 rettificativo..."
ITEM "S|Cong.tardivo derivante da comunicazione Mod.730-4..."
ITEM "T|Cong.tardivo derivante da Mod.730-3 ovvero conguaglio..."
ITEM "U|Cong.conseguente ad incapienza della retribuzione..."
OUTPUT F_TIPOCONG22
FLAGS "U"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 17 "26 Data ricezione Modello 730-5"
END
DATE F_DATARIC29
BEGIN
PROMPT STDIMP 17 ""
FIELD LF_QUAA1->DATARIC26
END
ENDPAGE
PAGE "3" -1 -1 78 21
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
GROUPBOX DLG_NULL 78 5
NUMBER DLG_NULL 6
BEGIN
PROMPT 17 1 ""
FLAGS "DG"
GROUP 2
END
STRING DLG_NULL 24
BEGIN
PROMPT 1 9 "@bDati identificativi del C.A.A.F che ha prestato assistenza "
PROMPT 25 1 ""
FLAGS "DG"
GROUP 3
END
STRING DLG_NULL 20
BEGIN
PROMPT 49 1 ""
FLAGS "DG"
GROUP 4
END
NUMBER DLG_NULL 4
BEGIN
PROMPT 72 1 ""
FLAGS "DG"
GROUP 5
END
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 3 "@bDati identificativi del C.A.A.F che ha prestato assistenza"
END
NUMBER F_CODCAAF 5
BEGIN
PROMPT 2 10 "Codice "
PROMPT 2 4 "Codice "
FIELD LF_QUAA1->CODCAAF
USE %CAF
CHECKTYPE NORMAL
@ -272,30 +397,39 @@ BEGIN
FLAGS "Z"
END
STRING F_DENCAAF 50
TEXT DLG_NULL
BEGIN
PROMPT 26 10 ""
FLAGS "DU"
PROMPT 2 6 "23 Codice fiscale"
END
STRING F_CODFISCAAF 16
BEGIN
PROMPT 2 11 "23 Cod.fiscale "
PROMPT 25 6 ""
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 7 "24 Denominazione"
END
STRING F_DENCAAF 50
BEGIN
PROMPT 25 7 ""
FLAGS "DU"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 8 "25 N°iscrizione albo"
END
NUMBER F_NISCRA 5
BEGIN
PROMPT 50 11 "25 N.iscrizione albo "
PROMPT 25 8 ""
FLAGS "D"
END
DATE F_DATARIC29
BEGIN
PROMPT 2 12 "26 Data ricezione Modello 730-5 "
FIELD LF_QUAA1->DATARIC26
END
ENDPAGE
ENDMASK

254
m770/771200e.uml
View File

@ -1,128 +1,128 @@
#include "771200.h"
TOOLBAR "" 0 18 0 4
#include <toolbar.h>
BUTTON QA2F_ALLEG_A2 24 2
BEGIN
PROMPT -13 -3 "~Allegati 730/95"
END
ENDPAGE
#define G_DIPEND 1
#define G_QUADROA 2
PAGE "Quadro A2" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER QAF_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRD"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
INPUT CODDITTA QAF_CODDITTA
OUTPUT QAF_RAGDITTA RAGSOC
FIELD LF_QUAA2->CODDITTA
END
STRING QAF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER QAF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 7 "@bDati dipendente"
END
NUMBER F_CODIP 6
BEGIN
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAA2->CODDIP
CHECKTYPE REQUIRED
KEY 1
END
NUMBER F_CODANAGDIP 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIP
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME
OUTPUT F_CODANAGDIP CODDIP
OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP
FLAGS "H"
GROUP G_DIPEND
END
NUMBER F_CODANAGDIPQA 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIPQA
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT F_CODANAGDIPQA CODDIP
OUTPUT QAF_COGNOME LF_DIPEND->COGNOME
OUTPUT QAF_NOME LF_DIPEND->NOME
MESSAGE COPY, F_CODIP
GROUP G_QUADROA
END
STRING QAF_COGNOME 24
BEGIN
PROMPT 25 8 ""
FLAGS "D"
END
STRING QAF_NOME 20
BEGIN
PROMPT 49 8 ""
FLAGS "D"
END
NUMBER QAF_NPROG 4
BEGIN
PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED
USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP
INPUT NPROG QAF_NPROG
DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT F_CODIP CODDIP
OUTPUT QAF_NPROG NPROG
FIELD LF_QUAA2->NPROG
KEY 1
END
ENDPAGE
#include "771200.h"
TOOLBAR "" 0 18 0 4
#include <toolbar.h>
BUTTON QA2F_ALLEG_A2 24 2
BEGIN
PROMPT -13 -3 "~Allegati 730/96"
END
ENDPAGE
#define G_DIPEND 1
#define G_QUADROA 2
PAGE "Quadro A2" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER QAF_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRDP"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
INPUT CODDITTA QAF_CODDITTA
OUTPUT QAF_RAGDITTA RAGSOC
FIELD LF_QUAA2->CODDITTA
END
STRING QAF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "DP"
END
NUMBER QAF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DRP"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 7 "@bDati dipendente"
END
NUMBER F_CODIP 6
BEGIN
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAA2->CODDIP
CHECKTYPE REQUIRED
KEY 1
END
NUMBER F_CODANAGDIP 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIP
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME
OUTPUT F_CODANAGDIP CODDIP
OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP
FLAGS "H"
GROUP G_DIPEND
END
NUMBER F_CODANAGDIPQA 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIPQA
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT F_CODANAGDIPQA CODDIP
OUTPUT QAF_COGNOME LF_DIPEND->COGNOME
OUTPUT QAF_NOME LF_DIPEND->NOME
MESSAGE COPY, F_CODIP
GROUP G_QUADROA
END
STRING QAF_COGNOME 24
BEGIN
PROMPT 25 8 ""
FLAGS "D"
END
STRING QAF_NOME 20
BEGIN
PROMPT 49 8 ""
FLAGS "D"
END
NUMBER QAF_NPROG 4
BEGIN
PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED
USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP
INPUT NPROG QAF_NPROG
DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT F_CODIP CODDIP
OUTPUT QAF_NPROG NPROG
FIELD LF_QUAA2->NPROG
KEY 1
END
ENDPAGE
ENDMASK

131
m770/771200l.uml Executable file
View File

@ -0,0 +1,131 @@
#include "771200.h"
#define G_DIPEND 1
#define G_QUADROA 2
TOOLBAR "" 0 18 0 4
#include <toolbar.h>
BUTTON QAF_ALLEG_A 24 2
BEGIN
PROMPT -13 -3 "~Allegati 730/97"
END
ENDPAGE
PAGE "Quadro A bis" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER QAF_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRDP"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
INPUT CODDITTA QAF_CODDITTA
OUTPUT QAF_RAGDITTA RAGSOC
FIELD LF_QUAAB->CODDITTA
END
STRING QAF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "DP"
END
NUMBER QAF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DRP"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 7 "@bDati dipendente"
END
NUMBER F_CODIP 6
BEGIN
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAAB->CODDIP
CHECKTYPE REQUIRED
KEY 1
END
NUMBER F_CODANAGDIP 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1 SELECT (CODDITTA==#QAF_CODDITTA)
INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIP
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME
OUTPUT F_CODANAGDIP CODDIP
OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP
FLAGS "H"
GROUP G_DIPEND
KEY 1
END
NUMBER F_CODANAGDIPQA 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_QUAAB KEY 1 SELECT (CODDITTA==#QAF_CODDITTA)
JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIPQA
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT F_CODANAGDIPQA CODDIP
OUTPUT QAF_COGNOME LF_DIPEND->COGNOME
OUTPUT QAF_NOME LF_DIPEND->NOME
MESSAGE COPY, F_CODIP
GROUP G_QUADROA
KEY 1
END
STRING QAF_COGNOME 24
BEGIN
PROMPT 25 8 ""
FLAGS "D"
END
STRING QAF_NOME 20
BEGIN
PROMPT 49 8 ""
FLAGS "D"
END
NUMBER QAF_NPROG 4
BEGIN
PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED
USE LF_QUAAB KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP
INPUT NPROG QAF_NPROG
DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT F_CODIP CODDIP
OUTPUT QAF_NPROG NPROG
FIELD LF_QUAAB->NPROG
KEY 1
END
ENDPAGE
ENDMASK

883
m770/771200m.uml Executable file
View File

@ -0,0 +1,883 @@
#include "771200.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "1" -1 -1 78 21
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
NUMBER QAF_CODDITTA 5
BEGIN
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAAB->CODDITTA
KEY 1
GROUP 10
END
NUMBER F_CODIP 6
BEGIN
PROMPT 17 1 ""
USE LF_DIPEND KEY 1
FIELD LF_QUAAB->CODDIP
INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP
DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME
OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME
CHECKTYPE REQUIRED
FLAGS "DG"
GROUP 10
MESSAGE COPY,2@
KEY 1
END
STRING QAF_COGNOME 24
BEGIN
PROMPT 25 1 ""
FLAGS "DG"
GROUP 10
MESSAGE COPY,3@
END
STRING QAF_NOME 20
BEGIN
PROMPT 49 1 ""
FLAGS "DG"
GROUP 10
MESSAGE COPY,4@
END
NUMBER QAF_NPROG 4
BEGIN
PROMPT 72 1 ""
FIELD LF_QUAAB->NPROG
FLAGS "DG"
KEY 1
GROUP 10
MESSAGE COPY,5@
END
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 3 "@bAssistenza 1996"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 4 " 8 Conguagli non effettuati"
END
STRING F_CONEFF50 1
BEGIN
PROMPT STDIMP 4 ""
FIELD LF_QUAAB->CONEFF
SHEET "Codice|Descrizione@60"
INPUT F_CONEFF50
ITEM " |Niente"
ITEM "A|Cessazione del rapporto di lavoro"
ITEM "B|Aspettativa senza retribuzione"
ITEM "C|Decesso"
ITEM "D|Richiesta di minore secondo o unico acconto"
ITEM "E|Retribuzione insufficiente"
ITEM "F|Situaz. per le quali dovrebbero essere indicati più codici"
OUTPUT F_CONEFF50
FLAGS "U"
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 7 "@bSeconda rata acconto Irpef 1996"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 8 " 9 Imposta trattenuta"
END
NUMBER F_IMPVERS51 LENIMP
BEGIN
PROMPT STDIMP 8 ""
FIELD LF_QUAAB->IMPVERS
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 9 "10 Interessi"
END
NUMBER F_ISOPTAS52 LENIMP
BEGIN
PROMPT STDIMP 9 ""
FIELD LF_QUAAB->INTERE
PICTURE "."
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 12 "@bSeconda rata acconto C.s.s.n. 1996"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 13 "11 Contributo trattenuto"
END
NUMBER F_CONTRVER53 LENIMP
BEGIN
PROMPT STDIMP 13 ""
FIELD LF_QUAAB->CSSN95CV
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 14 "12 Interessi"
END
NUMBER F_ISOPTAS54 LENIMP
BEGIN
PROMPT STDIMP 14 ""
FIELD LF_QUAAB->INTERE2
PICTURE "."
END
ENDPAGE
PAGE "2" -1 -1 78 21
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
NUMBER DLG_NULL 6
BEGIN
PROMPT 17 1 ""
FLAGS "DG"
GROUP 2
END
STRING DLG_NULL 24
BEGIN
PROMPT 25 1 ""
FLAGS "DG"
GROUP 3
END
STRING DLG_NULL 20
BEGIN
PROMPT 49 1 ""
FLAGS "DG"
GROUP 4
END
NUMBER DLG_NULL 4
BEGIN
PROMPT 72 1 ""
FLAGS "DG"
GROUP 5
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 3 "@bAssistenza 1997"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 4 "13 Conguagli non effettuati"
END
STRING F_CNEFF55 1
BEGIN
PROMPT STDIMP 4 ""
FIELD LF_QUAAB->CNEFF
SHEET "Codice|Descrizione@60"
INPUT F_CNEFF55
ITEM " |Niente"
ITEM "A|Cessazione del rapporto di lavoro"
ITEM "B|Aspettativa senza retribuzione"
ITEM "C|Decesso"
ITEM "D|Richiesta di minore secondo acconto"
ITEM "E|Retribuzione insufficiente"
ITEM "F|Situaz. per le quali dovrebbero essere indicati più codici"
ITEM "G|Rimborso non effettuato in tutto o in parte"
OUTPUT F_CNEFF55
FLAGS "U"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 5 "14 Rettifica conguaglio"
END
STRING F_RETCON56 1
BEGIN
PROMPT STDIMP 5 ""
FIELD LF_QUAAB->RETCON
SHEET "Codice|Descrizione@60"
INPUT F_RETCON56
ITEM " |Niente"
ITEM "A|Rettifica importi da conguagliare... (I num. d'ordine)"
ITEM "C|Cong. a seguito rett.prec.comunicaz.tardivam.perven..."
ITEM "D|Cong. a seguito rett.prec.comunicaz.tempestivam.perven..."
ITEM "E|Cong. tardivo per mod.730-4 pervenuto tardivamente"
ITEM "F|Cong. tardivo per causa dipendente dal sostituto d'imposta"
OUTPUT F_RETCON56
FLAGS "U"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 6 "15 Mod.730/97 non liquidabile"
END
NUMBER F_SEGDICNL69 2
BEGIN
PROMPT STDIMP 6 ""
FIELD LF_QUAAB->M730NLIQ
FLAGS "Z"
SHEET "Codice|Descrizione (Errata o incompleta ...)@60"
INPUT F_SEGDICNL69
ITEM " |Niente"
ITEM "01|..compilazione dati anagrafici e residenza del dichiarante"
ITEM "02|..compilazione dati del coniuge e familiari a carico"
ITEM "03|..compilazione dati anagrafici e residenza del coniuge"
ITEM "04|..dichiarazione quadro A Mod.730/97 del dichiarante"
ITEM "05|..dichiarazione quadro A Mod.730/97 del coniuge"
ITEM "06|..dichiarazione quadro B Mod.730/97 del dichiarante"
ITEM "07|..dichiarazione quadro B Mod.730/97 del coniuge"
ITEM "08|..dichiarazione quadro C Mod.730/97 del dichiarante"
ITEM "09|..dichiarazione quadro D Mod.730/97 del dichiarante"
ITEM "10|..dichiarazione quadro E Mod.730/97 del dichiarante"
ITEM "11|..dichiarazione quadro E Mod.730/97 del coniuge"
ITEM "12|..dichiarazione quadro F Mod.730/97 del dichiarante"
ITEM "13|..dichiarazione quadro F Mod.730/97 del coniuge"
OUTPUT F_SEGDICNL69
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 9 "@bSaldo Irpef per il 1996"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 10 "16 Imposta rimborsata"
END
NUMBER F_IMPRIMB57 LENIMP
BEGIN
PROMPT STDIMP 10 ""
FIELD LF_QUAAB->IMPRIMB
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 11 "17 Imposta versata"
END
NUMBER F_IMPVER58 LENIMP
BEGIN
PROMPT STDIMP 11 ""
FIELD LF_QUAAB->IMPVER
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 12 "18 Interessi"
END
NUMBER F_INTIRPEF59 LENIMP
BEGIN
PROMPT STDIMP 12 ""
FIELD LF_QUAAB->INTIRPEF
PICTURE "."
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 15 "@bPrima rata acconto Irpef per il 1997"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 16 "19 Imposta trattenuta"
END
NUMBER F_IMPVER60 LENIMP
BEGIN
PROMPT STDIMP 16 ""
FIELD LF_QUAAB->IMPVER2
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 17 "20 Interessi"
END
NUMBER F_INTER61 LENIMP
BEGIN
PROMPT STDIMP 17 ""
FIELD LF_QUAAB->INTER
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 20 "21 Soprattasse su Irpef saldo 96 e prima rata acconto 97"
END
NUMBER F_STSIRPEF62 LENIMP
BEGIN
PROMPT STDIMP 20 ""
FIELD LF_QUAAB->STSIRPEF
PICTURE "."
END
ENDPAGE
PAGE "3" -1 -1 78 21
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
NUMBER DLG_NULL 6
BEGIN
PROMPT 17 1 ""
FLAGS "DG"
GROUP 2
END
STRING DLG_NULL 24
BEGIN
PROMPT 25 1 ""
FLAGS "DG"
GROUP 3
END
STRING DLG_NULL 20
BEGIN
PROMPT 49 1 ""
FLAGS "DG"
GROUP 4
END
NUMBER DLG_NULL 4
BEGIN
PROMPT 72 1 ""
FLAGS "DG"
GROUP 5
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 3 "@bSaldo C.s.s.n. per il 1996"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 4 "22 Contributo a rimborso"
END
NUMBER F_CONRIMB63 LENIMP
BEGIN
PROMPT STDIMP 4 ""
FIELD LF_QUAAB->CONRIMB
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 5 "23 Contributo trattenuto"
END
NUMBER F_CONVER64 LENIMP
BEGIN
PROMPT STDIMP 5 ""
FIELD LF_QUAAB->CONVER
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 6 "24 Interessi"
END
NUMBER F_INTER65 LENIMP
BEGIN
PROMPT STDIMP 6 ""
FIELD LF_QUAAB->INTER2
PICTURE "."
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 9 "@bPrima rata acconto C.s.s.n. per il 1997"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 10 "25 Contributo trattenuto"
END
NUMBER F_CONVER66 LENIMP
BEGIN
PROMPT STDIMP 10 ""
FIELD LF_QUAAB->CONVER2
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 11 "26 Interessi"
END
NUMBER F_INTER67 LENIMP
BEGIN
PROMPT STDIMP 11 ""
FIELD LF_QUAAB->INTER3
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 14 "27 Soprattasse su C.s.s.n. saldo 96 e prima rata acconto 97"
END
NUMBER F_STSCSSN68 LENIMP
BEGIN
PROMPT STDIMP 14 ""
FIELD LF_QUAAB->STSCSSN70
PICTURE "."
END
ENDPAGE
PAGE "4" -1 -1 78 21
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
NUMBER DLG_NULL 6
BEGIN
PROMPT 17 1 ""
FLAGS "DG"
GROUP 2
END
STRING DLG_NULL 24
BEGIN
PROMPT 25 1 ""
FLAGS "DG"
GROUP 3
END
STRING DLG_NULL 20
BEGIN
PROMPT 49 1 ""
FLAGS "DG"
GROUP 4
END
NUMBER DLG_NULL 4
BEGIN
PROMPT 72 1 ""
FLAGS "DG"
GROUP 5
END
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 3 "@bContributo straordinario per l'Europa"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 4 "28 Importo a rimborso"
END
NUMBER F_QABEURIMB LENIMP
BEGIN
PROMPT STDIMP 4 ""
FIELD LF_QUAAB->QABEURIMB
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 5 "29 Importo trattenuto"
END
NUMBER F_QABEUTRAT LENIMP
BEGIN
PROMPT STDIMP 5 ""
FIELD LF_QUAAB->QABEUTRAT
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 6 "30 Interessi"
END
NUMBER F_QABEUINTE LENIMP
BEGIN
PROMPT STDIMP 6 ""
FIELD LF_QUAAB->QABEUINTE
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 7 "31 Soprattasse"
END
NUMBER F_QABEUSOPR LENIMP
BEGIN
PROMPT STDIMP 7 ""
FIELD LF_QUAAB->QABEUSOPR
PICTURE "."
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 10 "@bTassazione separata"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 11 "32 Acconto trattenuto"
END
NUMBER F_QABTSTRAT LENIMP
BEGIN
PROMPT STDIMP 11 ""
FIELD LF_QUAAB->QABTSTRAT
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 12 "33 Interessi"
END
NUMBER F_QABTSINTE LENIMP
BEGIN
PROMPT STDIMP 12 ""
FIELD LF_QUAAB->QABTSINTE
PICTURE "."
END
TEXT DLG_NULL
BEGIN
PROMPT 2 13 "34 Soprattasse"
END
NUMBER F_QABTSSOPR LENIMP
BEGIN
PROMPT STDIMP 13 ""
FIELD LF_QUAAB->QABTSSOPR
PICTURE "."
END
ENDPAGE
PAGE "5" -1 -1 78 21
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
NUMBER DLG_NULL 6
BEGIN
PROMPT 17 1 ""
FLAGS "DG"
GROUP 2
END
STRING DLG_NULL 24
BEGIN
PROMPT 25 1 ""
FLAGS "DG"
GROUP 3
END
STRING DLG_NULL 20
BEGIN
PROMPT 49 1 ""
FLAGS "DG"
GROUP 4
END
NUMBER DLG_NULL 4
BEGIN
PROMPT 72 1 ""
FLAGS "DG"
GROUP 5
END
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 3 "@bDati identificativi del C.A.A.F che ha prestato assistenza"
END
NUMBER F_CODCAAF 5
BEGIN
PROMPT 2 4 "Codice "
FIELD LF_QUAAB->CODCAAF
USE %CAF
CHECKTYPE NORMAL
INPUT CODTAB F_CODCAAF
DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0
DISPLAY "N.ro iscrizione" I1
DISPLAY "Codice fiscale@16" S1
OUTPUT F_CODCAAF CODTAB
OUTPUT F_DENCAAF S0
OUTPUT F_NISCRA I1
OUTPUT F_CODFISCAAF S1
FLAGS "Z"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 6 "35 Codice fiscale"
END
STRING F_CODFISCAAF 16
BEGIN
PROMPT 25 6 ""
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 7 "36 Denominazione"
END
STRING F_DENCAAF 50
BEGIN
PROMPT 25 7 ""
FLAGS "DU"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 8 "37 N°iscrizione albo"
END
NUMBER F_NISCRA 5
BEGIN
PROMPT 25 8 ""
FLAGS "D"
END
ENDPAGE
PAGE "6" -1 -1 78 21
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
NUMBER DLG_NULL 6
BEGIN
PROMPT 17 1 ""
FLAGS "DG"
GROUP 2
END
STRING DLG_NULL 24
BEGIN
PROMPT 25 1 ""
FLAGS "DG"
GROUP 3
END
STRING DLG_NULL 20
BEGIN
PROMPT 49 1 ""
FLAGS "DG"
GROUP 4
END
NUMBER DLG_NULL 4
BEGIN
PROMPT 72 1 ""
FLAGS "DG"
GROUP 5
END
GROUPBOX DLG_NULL 78 14
BEGIN
PROMPT 1 3 "@bOperazioni di conguaglio"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 4 "19 Importo da trattenere Irpef saldo 1996"
END
NUMBER F_QABRCB19 LENIMP
BEGIN
PROMPT STDIMP 4 ""
FIELD LF_QUAAB->QABRCB19
PICTURE "."
GROUP G_OPECONG
END
TEXT DLG_NULL
BEGIN
PROMPT 2 5 "20 Importo da rimborsare Irpef saldo 1996"
END
NUMBER F_QABRCB20 LENIMP
BEGIN
PROMPT STDIMP 5 ""
FIELD LF_QUAAB->QABRCB20
PICTURE "."
GROUP G_OPECONG
END
TEXT DLG_NULL
BEGIN
PROMPT 2 6 "21 Prima rata acconto Irpef 1997"
END
NUMBER F_QABRCB21 LENIMP
BEGIN
PROMPT STDIMP 6 ""
FIELD LF_QUAAB->QABRCB21
PICTURE "."
GROUP G_OPECONG
END
TEXT DLG_NULL
BEGIN
PROMPT 2 7 "22 Seconda o unica rata acconto Irpef 1997"
END
NUMBER F_QABRCB22 LENIMP
BEGIN
PROMPT STDIMP 7 ""
FIELD LF_QUAAB->QABRCB22
PICTURE "."
GROUP G_OPECONG
END
TEXT DLG_NULL
BEGIN
PROMPT 2 8 "23 Importo da trattenere C.s.s.n. saldo 1996"
END
NUMBER F_QABRCB23 LENIMP
BEGIN
PROMPT STDIMP 8 ""
FIELD LF_QUAAB->QABRCB23
PICTURE "."
GROUP G_OPECONG
END
TEXT DLG_NULL
BEGIN
PROMPT 2 9 "24 Importo da rimborsare C.s.s.n. saldo 1996"
END
NUMBER F_QABRCB24 LENIMP
BEGIN
PROMPT STDIMP 9 ""
FIELD LF_QUAAB->QABRCB24
PICTURE "."
GROUP G_OPECONG
END
TEXT DLG_NULL
BEGIN
PROMPT 2 10 "25 Prima rata acconto C.s.s.n. 1997"
END
NUMBER F_QABRCB25 LENIMP
BEGIN
PROMPT STDIMP 10 ""
FIELD LF_QUAAB->QABRCB25
PICTURE "."
GROUP G_OPECONG
END
TEXT DLG_NULL
BEGIN
PROMPT 2 11 "26 Seconda o unica rata acconto C.s.s.n. 1997"
END
NUMBER F_QABRCB26 LENIMP
BEGIN
PROMPT STDIMP 11 ""
FIELD LF_QUAAB->QABRCB26
PICTURE "."
GROUP G_OPECONG
END
TEXT DLG_NULL
BEGIN
PROMPT 2 12 "27 Importo da trattenere Contrib.Straord. per l'Europa"
END
NUMBER F_QABRCB27 LENIMP
BEGIN
PROMPT STDIMP 12 ""
FIELD LF_QUAAB->QABRCB27
PICTURE "."
GROUP G_OPECONG
END
TEXT DLG_NULL
BEGIN
PROMPT 2 13 "28 Importo da rimborsare Contrib.Straord. per l'Europa"
END
NUMBER F_QABRCB28 LENIMP
BEGIN
PROMPT STDIMP 13 ""
FIELD LF_QUAAB->QABRCB28
PICTURE "."
GROUP G_OPECONG
END
TEXT DLG_NULL
BEGIN
PROMPT 2 14 "29 Importo da trattenere per acconto imposta sui redditi"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 15 " soggetti a tassazione separata"
END
NUMBER F_QABRCB29 LENIMP
BEGIN
PROMPT STDIMP 15 ""
FIELD LF_QUAAB->QABRCB29
PICTURE "."
GROUP G_OPECONG
END
ENDPAGE
ENDMASK

18
m770/773400.cpp
View File

@ -25,7 +25,6 @@ class Tab770_application : public Tab_application
bool IsCausali() const { return _tabname == "%CA7"; }
void SetDefaultValueCausali(TMask& m);
void init_mask(TMask& m);
static bool TC_causD1_handler(TMask_field& f, KEY k);
public:
bool user_create();
virtual void init_modify_mode(TMask& m);
@ -38,22 +37,6 @@ class Tab770_application : public Tab_application
HIDDEN inline Tab770_application& app() {return (Tab770_application&) main_app();}
bool Tab770_application::TC_causD1_handler(TMask_field& f, KEY k)
{
if (k == K_TAB)
{
TString16 value(f.get());
TMask& m = f.mask();
if (value == "F")
m.reset(F_ASSRIT);
else
if (value == "A" || value == "B" || value == "C" || value == "D"
|| value == "E")
m.set(F_ASSRIT, "X");
}
return TRUE;
}
HIDDEN bool codqua_handler(TMask_field& f, KEY k)
{
if (k == K_ENTER && f.mask().is_running())
@ -159,7 +142,6 @@ bool Tab770_application::user_create()
_msk->set_handler(F_CODTRIB, codtrib_handler);
_msk->set_handler(F_QUADRCE2, codqua_handler);
_msk->set_handler(F_QUADRAT, codqua_handler);
_msk->set_handler(TCF_CAUSD1, TC_causD1_handler);
}
return TRUE;
}

18
m770/774300a.h
View File

@ -1,9 +1,9 @@
// 774300a.h - Storico azzeramenti
#define F_ANNODIC 201
#define F_AZZSCH 202
#define F_USERSCH 203
#define F_DATASCH 204
#define F_AZZQUA 205
#define F_USERQUA 206
#define F_DATAQUA 207
// 774300a.h - Storico azzeramenti
#define F_ANNODIC 201
#define F_AZZSCH 202
#define F_USERSCH 203
#define F_DATASCH 204
#define F_AZZQUA 205
#define F_USERQUA 206
#define F_DATAQUA 207

2
m770/774300a.uml
View File

@ -3,7 +3,7 @@
TOOLBAR "" 0 18 0 4
#include <toolbar.h>
ENDPAGE
PAGE "Storico azzeramenti" -1 -1 78 21
NUMBER F_ANNODIC 4

6
m770/77qaall.uml
View File

@ -20,17 +20,17 @@ END
TEXT QA2_ANNO_ALL
BEGIN
PROMPT 35 2 "mod.730/95 completi"
PROMPT 35 2 "Mod.730/96 completi"
END
TEXT QA_ANNO_ALL
BEGIN
PROMPT 35 2 "mod.730/96 completi"
PROMPT 35 2 "Mod.730/97 completi"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 3 "dei mod.730-3 e un ugual numero di buste mod.730-1"
PROMPT 2 3 "dei modelli 730-3"
END
BUTTON DLG_OK 9 2

20
m770/batbca7.h
View File

@ -5,9 +5,7 @@
#define F_DESCR1 102
#define F_QUADRAT 103
#define F_QUADRCE2 104
#define F_ASSRIT 105
#define F_IC 106
#define F_CT 107
#define F_PERASS 108
#define F_PERRIT 109
#define F_ARTBIL 110
@ -22,9 +20,23 @@
#define TCF_PERCASSPREV 119
#define TCF_CAUSD_DESCR 120
#define TCF_CAUSD1_DESCR 121
#define TCF_CAUSC 122
#define TCF_CAUSDB 123
#define TCF_CAUSE 124
#define TCF_CAUSE1 125
#define TCF_CAUSC_DESCR 126
#define TCF_CAUSDB_DESCR 127
#define TCF_CAUSE_DESCR 128
#define TCF_CAUSE1_DESCR 129
#define F_IC_DESCR 130
#define G_INPS 10
#define INPS_GROUP 7
#define GR_CAUDD1 8
#define G_ICTS 9
#define G_INPS 10
#define GR_NOCAUC 11
#define GR_NOCAUD 12
#define GR_NOCAUDB 13
#define GR_NOCAUD1 14
#define GR_NOCAUE 15
#define GR_NOCAUE1 16

350
m770/batbca7.uml
View File

@ -5,7 +5,7 @@ ENDPAGE
PAGE "Tabella causali " -1 -1 78 18
GROUPBOX DLG_NULL 77 8
GROUPBOX DLG_NULL 77 12
BEGIN
PROMPT 0 0 ""
END
@ -52,15 +52,15 @@ BEGIN
PROMPT 1 3 "Codice quadro "
HELP "Inserire il codice quadro"
ITEM "C|C"
MESSAGE CLEAR,G_INPS@|ENABLE,F_CT|DISABLE,F_IC|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|DISABLE,F_IC|RESET,GR_NOCAUC@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSC|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "D|D"
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD1|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|ENABLE,TCF_PERCASSPREV|RESET,GR_NOCAUD@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "D1|D1"
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD|DISABLE,GR_CAUDD1@||ENABLE,TCF_CAUSD1|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUD1@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD1|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "E|E"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUE@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSE|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "E1|E1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUE1@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSE1|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE COPY,F_CODQUA
WARNING "Manca il codice quadro"
FIELD LF_TABCOM->S1
@ -71,51 +71,43 @@ BEGIN
PROMPT 1 3 "Codice quadro "
HELP "Inserire il codice quadro"
ITEM "A|A"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "AB|AB"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "A1|A1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "A2|A2"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "A3|A3"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "B|B"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "B1|B1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "C|C"
MESSAGE CLEAR,G_INPS@|ENABLE,F_CT|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|ENABLE,F_IC|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,GR_NOCAUC@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSC|ENABLE,F_IC|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "D|D"
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD1|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|ENABLE,TCF_PERCASSPREV|RESET,GR_NOCAUD@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "DB|DB"
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUDB@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSDB|DISABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "D1|D1"
MESSAGE ENABLE,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_CAUSD|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD1|DISABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUD1@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSD1|DISABLE,TCF_CAUSD|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "E|E"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUE@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSE|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "E1|E1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUE1@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSE1|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "E2|E2"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
ITEM "F|F"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "F1|F1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "F2|F2"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|HIDE,F_DESCR1|SHOW,F_DESCR2
ITEM "G|G"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "G1|G1"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "N|N"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "P|P"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "Q|Q"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "R|R"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "S|S"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
ITEM "T|T"
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE COPY,F_QUADRCE2
MESSAGE COPY,F_CODQUA
WARNING "Manca il codice quadro"
@ -125,14 +117,16 @@ END
LIST F_CODQUA 2
BEGIN
PROMPT 1 3 ""
ITEM "A|A"
ITEM "A|A"
ITEM "AB|AB"
ITEM "A1|A1"
ITEM "A2|A2"
ITEM "A3|A3"
ITEM "B|B"
ITEM "B|B"
ITEM "B1|B1"
ITEM "C|C"
ITEM "D|D"
ITEM "D|D"
ITEM "DB|DB"
ITEM "D1|D1"
ITEM "E|E"
ITEM "E1|E1"
@ -141,13 +135,7 @@ BEGIN
ITEM "F1|F1"
ITEM "F2|F2"
ITEM "G|G"
ITEM "G1|G1"
ITEM "N|N"
ITEM "P|P"
ITEM "Q|Q"
ITEM "R|R"
ITEM "S|S"
ITEM "T|T"
ITEM "G1|G1"
FLAGS "H"
FIELD LF_TABCOM->S1
END
@ -164,7 +152,7 @@ END
STRING F_DESCR2 60
BEGIN
PROMPT 1 4 "Descrizione "
PROMPT 1 4 "Descrizione "
FIELD LF_TABCOM->S0
HELP "Inserire la descrizione della causale"
WARNING "Manca la descrizione"
@ -172,92 +160,232 @@ BEGIN
MESSAGE COPY,F_DESCR1,1,22
END
STRING TCF_CAUSC 1
BEGIN
PROMPT 1 5 "Causale C "
SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSC
ITEM " | "
ITEM "A|indenn. e compensi erogati ai prest. lavoro dipendente....."
ITEM "B|somme corrisp. a titolo di borsa di studio o di assegno...."
ITEM "C|indenn., gett. di pres. altri comp. corrisp. dallo Stato..."
ITEM "D|indenn., percep. per cariche elettive di cui all'art. 114.."
ITEM "E|rendite vital. e rendite a tempo determ., a tit. oneroso..."
ITEM "F|prestaz. comunque erogate in forma di trattam. periodico..."
ITEM "G|ass. period. alla cui prod. concor. né capitale né lavoro.."
ITEM "H|compensi corrisp. ai lav. imp. in lavori socialm. utili...."
OUTPUT TCF_CAUSC
OUTPUT TCF_CAUSC_DESCR
FIELD LF_TABCOM->S6
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUD
GROUP GR_NOCAUDB
GROUP GR_NOCAUD1
GROUP GR_NOCAUE
GROUP GR_NOCAUE1
END
STRING TCF_CAUSC_DESCR 60
BEGIN
PROMPT 16 5 ""
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUD
GROUP GR_NOCAUDB
GROUP GR_NOCAUD1
GROUP GR_NOCAUE
GROUP GR_NOCAUE1
END
STRING TCF_CAUSD 1
BEGIN
PROMPT 1 5 "Causale D "
PROMPT 1 6 "Causale D "
SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSD
ITEM " | "
ITEM "A|prestaz. di lav. aut. ... nell’es. arti o prof. abituale"
ITEM "B|prestaz. rese da amministratori, sindaci e revisori..."
ITEM "C|prestaz. rese da collaboratori a giornali, riviste, ..."
ITEM "D|prestaz. rese da partecipanti a collegi e commissioni"
ITEM "E|prestaz. rese dagli sportivi con contratto di lav. autonomo"
ITEM "F|prestaz. ... di rapp. di coll. coord. e c. diversi dai prec"
ITEM "G|utiliz. economica, da parte dell’autore o dell’inventore..."
ITEM "H|utili ... da contratti di associazione in partecipazioni..."
ITEM "I|utili ... ai soci promot. e/o fond. delle soc. di capitale"
ITEM "L|per la levata di protesti cambiari da parte dei segretar..."
ITEM "M|utiliz. economica, ... di soggetto diverso dall’autore o..."
ITEM "N|indennità corrisp. per la cessaz. di rapporti di coll..."
ITEM "P|indennità corrisp. per la cessaz. dei rapporti di agenzia"
ITEM "Q|indennità corrisp. per la cessaz. da funzioni notarili"
ITEM "R|indennità corrisp. per la cessaz. di attività sportiva prof"
ITEM "S|indennità di trasf. o di rimborso forfettario di spese..."
ITEM "A|prestaz. di lav. auton. nell'eserc. di arti o prof. abit..."
ITEM "B|utiliz. econom., da parte dell'autore o dell'inventore,...."
ITEM "C|a titolo di utili deriv. da contrat. di ass. in partecip..."
ITEM "D|a titolo di utili spett. ai soci prom. ed ai soci fondat..."
ITEM "E|per la levata di protesti cambiari da parte dei segr. com.."
ITEM "F|utiliz. econom., da parte di sogg. diverso dall'autore o..."
ITEM "G|indenn. corrisp. per la cessaz. dei rapporti di agenzia...."
ITEM "H|indenn. corrisp. per la cessaz. da funzioni notarili"
ITEM "I|indenn. di trasf. o di rimb. forfet. di spese spettanti...."
ITEM "L|prestaz. di lavoro autonomo non esercitate abitualmente"
ITEM "M|prestaz. rese dagli sportivi con contratto di lav. autonomo"
ITEM "N|indenn. corrisp. per la cessaz. di attività sportiva prof.."
ITEM "T|altro titolo diverso dai precedenti"
OUTPUT TCF_CAUSD
OUTPUT TCF_CAUSD_DESCR
FIELD LF_TABCOM->S2
FLAGS "D"
GROUP GR_CAUDD1
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUDB
GROUP GR_NOCAUD1
GROUP GR_NOCAUE
GROUP GR_NOCAUE1
END
STRING TCF_CAUSD_DESCR 60
BEGIN
PROMPT 16 5 ""
PROMPT 16 6 ""
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUDB
GROUP GR_NOCAUD1
GROUP GR_NOCAUE
GROUP GR_NOCAUE1
END
STRING TCF_CAUSDB 1
BEGIN
PROMPT 1 7 "Causale DB "
SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSDB
ITEM " | "
ITEM "A|prestaz. di lav. auton. ..... iscritti in albi senza cassa"
ITEM "B|prestaz. rese da amministrat., sindaci e revis. di soc....."
ITEM "C|prestaz. rese da collab. a giornali, riviste, enciclop....."
ITEM "D|prestaz. rese da partecipanti a collegi e commissioni"
ITEM "E|prestaz. di collab. coord. e contin. diversi da quelli....."
ITEM "F|indenn. corrisp. per la cessaz. di rapp.. ass. a tass. sep."
ITEM "G|provvigioni degli incaricati per le vendite a domicilio"
ITEM "T|altro titolo diverso dai precedenti"
OUTPUT TCF_CAUSDB
OUTPUT TCF_CAUSDB_DESCR
FIELD LF_TABCOM->S7
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUD
GROUP GR_NOCAUD1
GROUP GR_NOCAUE
GROUP GR_NOCAUE1
END
STRING TCF_CAUSDB_DESCR 60
BEGIN
PROMPT 16 7 ""
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUD
GROUP GR_NOCAUD1
GROUP GR_NOCAUE
GROUP GR_NOCAUE1
END
STRING TCF_CAUSD1 1
BEGIN
PROMPT 1 6 "Causale D1 "
PROMPT 1 8 "Causale D1 "
SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSD1
ITEM " | "
ITEM "A|Agente o rappresentante di commercio monomadatario"
ITEM "A|Agente o rappresentante di commercio monomandatario"
ITEM "B|Agente o rappresentate plurimandatario"
ITEM "C|Commissionario"
ITEM "D|Mediatore"
ITEM "E|Procacciatore d'affari"
ITEM "F|Per somme assoggettate a ritenuta a titolo d'imposta"
OUTPUT TCF_CAUSD1
OUTPUT TCF_CAUSD1_DESCR
FIELD LF_TABCOM->S3
FLAGS "D"
GROUP GR_CAUDD1
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUD
GROUP GR_NOCAUDB
GROUP GR_NOCAUE
GROUP GR_NOCAUE1
END
STRING TCF_CAUSD1_DESCR 60
BEGIN
PROMPT 16 6 ""
PROMPT 16 8 ""
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUD
GROUP GR_NOCAUDB
GROUP GR_NOCAUE
GROUP GR_NOCAUE1
END
BOOLEAN F_ASSRIT
BEGIN
PROMPT 1 8 "Somme assoggettate a titolo di ritenute d'acconto"
FIELD LF_TABCOM->B0
END
BOOLEAN F_IC
BEGIN
PROMPT 58 8 "T.S. "
FIELD LF_TABCOM->B3
GROUP G_ICTS
STRING TCF_CAUSE 1
BEGIN
PROMPT 1 9 "Causale E "
SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSE
ITEM " | "
ITEM "A|redditi di capitale corrisp. a sogg. resid. non eserc......"
ITEM "B|prov. corrisp. a stabili organiz. estere di impr. resid...."
ITEM "C|comp. per avviamento commerc. assogg. alla rit. a tit. acc."
ITEM "D|contrib. degli enti pubbl. e premi corrisp. dall'Unione...."
ITEM "E|interessi, premi e altri frutti dei tit. obbligaz. emessi.."
OUTPUT TCF_CAUSE
OUTPUT TCF_CAUSE_DESCR
FIELD LF_TABCOM->S8
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUD
GROUP GR_NOCAUDB
GROUP GR_NOCAUD1
GROUP GR_NOCAUE1
END
BOOLEAN F_CT
BEGIN
PROMPT 66 8 "C.T. "
FIELD LF_TABCOM->B2
GROUP G_ICTS
STRING TCF_CAUSE_DESCR 60
BEGIN
PROMPT 16 9 ""
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUD
GROUP GR_NOCAUDB
GROUP GR_NOCAUD1
GROUP GR_NOCAUE1
END
STRING TCF_CAUSE1 1
BEGIN
PROMPT 1 10 "Causale E1 "
SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSE1
ITEM " | "
ITEM "A|somme deriv. dal riscatto di contratti di assic. sulla vita"
ITEM "B|capitali corrisp. in dipend... per i quali rit. del 12,50.."
ITEM "C|capitali corrisp. in dipend. di contr. di assic. sulla vita"
ITEM "D|capitali corrisp. in dipend. di contr. di capitalizzazione"
OUTPUT TCF_CAUSE1
OUTPUT TCF_CAUSE1_DESCR
FIELD LF_TABCOM->S9
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUD
GROUP GR_NOCAUDB
GROUP GR_NOCAUD1
GROUP GR_NOCAUE
END
STRING TCF_CAUSE1_DESCR 60
BEGIN
PROMPT 16 10 ""
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUD
GROUP GR_NOCAUDB
GROUP GR_NOCAUD1
GROUP GR_NOCAUE
END
NUMBER F_PERASS 6
BEGIN
PROMPT 1 9 "Percentuale assoggettamento imponibile "
PROMPT 1 12 "Percentuale assoggettamento imponibile "
FIELD LF_TABCOM->R4
PICTURE ".2"
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
@ -266,7 +394,7 @@ END
NUMBER TCF_PERCASSPREV 6
BEGIN
PROMPT 1 10 "Percentuale cassa previdenza "
PROMPT 1 13 "Percentuale cassa previdenza "
FIELD LF_TABCOM->R5
PICTURE ".2"
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
@ -275,21 +403,47 @@ END
NUMBER F_PERRIT 6
BEGIN
PROMPT 1 11 "Percentuale ritenute d'acconto "
PROMPT 1 14 "Percentuale ritenute d'acconto "
FIELD LF_TABCOM->R0
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
PICTURE ".2"
WARNING "Percentuale della ritenuta d'acconto non valida"
END
STRING F_IC 1
BEGIN
PROMPT 1 15 "T.S. "
SHEET "Codice|Descrizione@60"
INPUT F_IC
ITEM " | "
ITEM "1|legge"
ITEM "2|contratti collettivi"
ITEM "3|sentenze"
ITEM "4|atti amministrativi"
ITEM "5|altre cause non dipendenti dalla volontà delle parti"
ITEM "6|se concorrono due o più dei codici precedenti"
OUTPUT F_IC
OUTPUT F_IC_DESCR
FIELD LF_TABCOM->S4
FLAGS "D"
GROUP G_ICTS
END
STRING F_IC_DESCR 60
BEGIN
PROMPT 10 15 ""
FLAGS "D"
GROUP G_ICTS
END
GROUPBOX DLG_NULL 77 4
BEGIN
PROMPT 0 13 "Contributo INPS"
PROMPT 0 17 "Contributo INPS"
END
BOOLEAN TCF_BINPS
BEGIN
PROMPT 1 14 "Contributo INPS "
PROMPT 1 18 "Contributo INPS "
FIELD LF_TABCOM->B4
GROUP G_INPS
MESSAGE TRUE ENABLE,INPS_GROUP@
@ -298,7 +452,7 @@ END
NUMBER TCF_PERCINPS 6
BEGIN
PROMPT 30 14 "Percentuale "
PROMPT 30 18 "Percentuale "
PICTURE ".2"
FIELD LF_TABCOM->R1
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
@ -309,7 +463,7 @@ END
NUMBER TCF_ASSIMPINPS 6
BEGIN
PROMPT 1 15 "Percentuale ass.imp. "
PROMPT 1 19 "Percentuale ass.imp. "
PICTURE ".2"
FIELD LF_TABCOM->R2
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
@ -320,7 +474,7 @@ END
NUMBER TCF_COMMINPS 6
BEGIN
PROMPT 30 15 "Quota a carico del committente "
PROMPT 30 19 "Quota a carico del committente "
PICTURE ".2"
FIELD LF_TABCOM->R3
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}

3
m770/f119.dir Executable file
View File

@ -0,0 +1,3 @@
119
1
m770/quadroab|0|0|637|4|Quadro Abis modello 770|||

46
m770/f119.trr Executable file
View File

@ -0,0 +1,46 @@
119
42
CODDITTA|3|5|0|Codice ditta della dichiarazione
CODDIP|3|6|0|Codice dipendente
NPROG|2|3|0|Numero progressivo della scheda
CONEFF|1|1|0|8 Conguagli non effettuati
IMPVERS|4|18|0|9 Imposta trattenuta
INTERE|4|18|0|10 Interessi
CSSN95CV|4|18|0|11 Contributo trattenuto
INTERE2|4|18|0|12 Interessi
CNEFF|1|1|0|13 Conguagli non effettuati
RETCON|1|1|0|14 Rettifica conguaglio
IMPRIMB|4|18|0|16 Imposta rimborsata
IMPVER|4|18|0|17 Imposta trattenuta
INTIRPEF|4|18|0|18 Interessi
IMPVER2|4|18|0|19 Imposta trattenuta
INTER|4|18|0|20 Interessi
STSIRPEF|4|18|0|21 Soprattasse su Irpef saldo 96 e 1°acconto 97
CONRIMB|4|18|0|22 Contributo a rimborso
CONVER|4|18|0|23 Contributo trattenuto
INTER2|4|18|0|24 Interessi
CONVER2|4|18|0|25 Contributo trattenuto
INTER3|4|18|0|26 Interessi
STSCSSN70|4|18|0|27 Soprattasse su Cssn saldo 96 e 1°acconto 97
M730NLIQ|2|2|0|15 Mod.730/97 non liquidabile
CODCAAF|3|5|0|35 Codice CAAF
QABEURIMB|4|18|0|28 Imposta rimborsata
QABEUTRAT|4|18|0|29 Imposta trattenuta
QABEUINTE|4|18|0|30 Interessi
QABEUSOPR|4|18|0|31 Soprattasse
QABTSTRAT|4|18|0|32 Acconto trattenuto
QABTSINTE|4|18|0|33 Interessi
QABTSSOPR|4|18|0|34 Soprattasse
QABRCB19|4|18|0|19 per rettifica B
QABRCB20|4|18|0|20 per rettifica B
QABRCB21|4|18|0|21 per rettifica B
QABRCB22|4|18|0|22 per rettifica B
QABRCB23|4|18|0|23 per rettifica B
QABRCB24|4|18|0|24 per rettifica B
QABRCB25|4|18|0|25 per rettifica B
QABRCB26|4|18|0|26 per rettifica B
QABRCB27|4|18|0|27 per rettifica B
QABRCB28|4|18|0|28 per rettifica B
QABRCB29|4|18|0|29 per rettifica B
1
CODDITTA+CODDIP+NPROG|

2
m770/f44.dir
View File

@ -1,3 +1,3 @@
44
1
m770/quadroa|0|0|922|4|Quadro A modello 770|#9||
m770/quadroa|0|0|1072|4|Quadro A modello 770|#9||

118
m770/f44.trr
View File

@ -1,67 +1,79 @@
44
63
75
CODDITTA|3|5|0|Codice ditta della dichiarazione
CODDIP|3|6|0|
CODDIP|3|6|0|Codice dipendente
NPROG|2|3|0|Numero progressivo della scheda
AREAATT|1|1|0|
TIPO|1|1|0|
NUMGIO|2|3|0|
AREAATT|1|1|0|Area attività
TIPO|1|1|0|Tipo
NUMGIO|2|3|0|Numero giorni
DATAFR|5|8|0|Data fine rapporto di lavoro
NUMGIODET|2|3|0|
CFDLPREC|1|16|0|
NUMGIODET|2|3|0|Numero giorni detrazioni per lavoro dipendente
CFDLPREC|1|16|0|Codice fiscale precedente datore di lavoro
CAUSA|2|1|0|Causa
DENARO|4|18|0|In denaro
NATURA|4|18|0|In natura
COBBDIP|4|18|0|
COMPNETTI|4|18|0|Compensi netti
AMMLORDO|4|18|0|
IACOBBCD|4|18|0|
NORIT|4|18|0|
TOTIMP|4|18|0|
AIENTIPREV|4|18|0|
CCTAMMCONT|4|18|0|Compensi corrisposti da terzi: ammontare assoggettato a contribuzione
TOTIMP2|4|18|2|
ICTOTIMP|4|18|0|
DENARO|4|18|0|Retribuzioni e pensioni
NATURA|4|18|0|Non usato (ex 21)
COBBDIP|4|18|0|Contributi previdenziali ed assistenziali obbligatori lavoratore dipendente
COMPNETTI|4|18|0|Non usato (ex 23)
AMMLORDO|4|18|0|Non usato (ex 24)
IACOBBCD|4|18|0|Non usato (ex 25)
NORIT|4|18|0|Somme e valori non assoggettati a ritenuta
TOTIMP|4|18|0|Non usato (ex 27)
AIENTIPREV|4|18|0|Assegni e indennità erogati da enti previdenziali e assistenziali
CCTAMMCONT|4|18|0|Compensi da terzi
TOTIMP2|4|18|2|Non usato (ex 30)
ICTOTIMP|4|18|0|Imposta corrispondente al totale imponibile
DETCC|4|18|0|Detrazione per coniuge a carico
DETFC|4|18|0|Detrazione per figli a carico
DETAF|4|18|0|Detrazione per altri famigliari a carico
DETLD|4|18|0|Detrazione per lavoro dipendente
DETO|4|18|0|Detrazione per oneri
TOTDET|4|18|0|
INCDETFC|4|18|0|
AMRIOT|4|18|0|
AMRIODL|4|18|0|
TOTDET|4|18|0|Totale detrazioni
INCDETFC|4|18|0|Non usato (ex 38)
AMRIOT|4|18|0|Ammontare delle ritenute operate da terzi
AMRIODL|4|18|0|Ammontare delle ritenute operate dal datore di lavoro
ECCRITRIMB|4|18|0|Eccedenza delle ritenute da rimborsare
AMMRITDOV|4|18|0|Ammontare delle ritenute dovute
ERSPSAN|4|18|0|
PRASSVI|4|18|0|
CONPRECO|4|18|0|
COBBDIP2|4|18|0|
AMMIMP|4|18|0|
DETIMPOS|4|18|0|
RITESEG|4|18|0|
SVNASSRI|4|18|0|
AIFCSSN|4|18|0|
CONEFF|1|1|0|
IMPVERS|4|18|0|
INTERE|4|18|0|
CSSN95CV|4|18|0|
INTERE2|4|18|0|
CNEFF|1|1|0|
RETCON|1|1|0|
IMPRIMB|4|18|0|
IMPVER|4|18|0|
INTIRPEF|4|18|0|
IMPVER2|4|18|0|
INTER|4|18|0|
STSIRPEF|4|18|0|
CONRIMB|4|18|0|
CONVER|4|18|0|
INTER2|4|18|0|
CONVER2|4|18|0|
INTER3|4|18|0|
STSCSSN70|4|18|0|
M730NLIQ|2|2|0|
CODCAAF|3|5|0|Codice del CAAF che ha prestato assistenza
ERSPSAN|4|18|0|Erogazioni per spese sanitarie (detrazioni per importo parziale)
PRASSVI|4|18|0|Premi di assicurazione vita e infortuni
CONPRECO|4|18|0|Contributi per previdenza complementare ex art.15,c.8,L.335/95
COBBDIP2|4|18|0|Contributi obbligatori a carico del dipendente
AMMIMP|4|18|0|Imponibile
DETIMPOS|4|18|0|Detrazioni d'imposta
RITESEG|4|18|0|Ritenuta eseguita
SVNASSRI|4|18|0|Non usato (ex 50)
AIFCSSN|4|18|0|Somme assoggettate a cssn
CONEFF|1|1|0|ex 52 da portare su Abis
IMPVERS|4|18|0|ex 53 da portare su Abis
INTERE|4|18|0|ex 54 da portare su Abis
CSSN95CV|4|18|0|ex 55 da portare su Abis
INTERE2|4|18|0|ex 56 da portare su Abis
CNEFF|1|1|0|ex 57 da portare su Abis
RETCON|1|1|0|ex 58 da portare su Abis
IMPRIMB|4|18|0|ex 59 da portare su Abis
IMPVER|4|18|0|ex 60 da portare su Abis
INTIRPEF|4|18|0|ex 61 da portare su Abis
IMPVER2|4|18|0|ex 62 da portare su Abis (due significati)
INTER|4|18|0|ex 63 da portare su Abis (due significati)
STSIRPEF|4|18|0|ex 64 da portare su Abis (due significati)
CONRIMB|4|18|0|ex 65 da portare su Abis (due significati)
CONVER|4|18|0|ex 66 da portare su Abis (due significati)
INTER2|4|18|0|ex 67 da portare su Abis (due significati)
CONVER2|4|18|0|ex 68 da portare su Abis (due significati)
INTER3|4|18|0|ex 69 da portare su Abis (due significati)
STSCSSN70|4|18|0|ex 70 da portare su Abis
M730NLIQ|2|2|0|ex 71 da portare su Abis
CODCAAF|3|5|0|ex 72/73/74 da portare su Abis
QASACTRPA|4|18|0|Somme assoggettate a contributi previdenziali e assistenziali
QACRIAUTO|4|18|0|Credito d'imposta imprese autotrasporto
QACRIPREM|4|18|0|Credito d'imposta premio d'assunzione
QAQUALIF|2|2|0|Qualifica
QAEXCTRPC|4|18|0|Contributi previdenza complementare ex D.Lgs. 124/93
QAEXCTRLD|4|18|0|Contributi lavoratore dipendente ex D.Lgs.579/95
QAERGSAN|4|18|0|Erogazione spese sanitarie (detrazioni importo interno)
QAIMPON|4|18|0|Imponibile
QACTREURO|4|18|0|Contributo straordinario per l'Europa da trattenere
QATITOLO|6|1|0|Titolo
QAPEIMP|2|2|0|Periodo d'imposta
QAARRETR|8|1|0|Arretrati relativi a più anni precedenti
1
CODDITTA+CODDIP+NPROG|

40
m770/f56.trr
View File

@ -1,25 +1,25 @@
56
21
CODDITTA|3|5|0|Codice ditta della dichiarazione
CODDIP|3|6|0|
CODDITTA|3|5|0|Codice ditta
CODDIP|3|6|0|Codice dipendente
NPROG|2|3|0|Numero progressivo del rigo
MESERIF|2|2|0|
ANNORIF|2|4|0|
IMPRIMB9|4|18|0|Saldo IRPEF per il 93: imposta rimborsata
IMPVERS10|4|18|0|Saldo IRPEF per il 93: imposta versata
INTER11|4|18|0|Saldo IRPEF per il 93: interessi
IMPVERS12|4|18|0|Prima rata acconto IRPEF per il 94: imposta versata
INTER13|4|18|0|Prima rata acconto IRPEF per il 94: interessi
STASSA14|4|18|0|Prima rata acconto IRPEF per il 94: soprattassa IRPEF 93 e prima rata 94
CONTRIMB15|4|18|0|Saldo C.S.S.N. 93: contributo a rimborso
CONTVERS16|4|18|0|Saldo C.S.S.N. 93: contributo versato
INTER17|4|18|0|Saldo C.S.S.N. 93: interessi
CONTVER18|4|18|0|Prima rata acconto C.S.S.N. 94: contributo versato
INTER19|4|18|0|Prima rata acconto C.S.S.N. 94: interessi
STASSA20|4|18|0|Prima rata acconto C.S.S.N. 94: soprattassa su C.S.S.N.
CONNEFF21|1|1|0|Conguagli non effettuati <A> <B> <D> <E> <F>
TIPOCONG22|1|1|0|Tipo conguaglio <R> <T> <S> <U>
CODCAAF|3|5|0|Codice CAAF che ha prestato assistenza
DATARIC26|5|8|0|
MESERIF|2|2|0|8 mese periodo di riferimento
ANNORIF|2|4|0|8 anno periodo di riferimento
IMPRIMB9|4|18|0|9 imposta rimborsata
IMPVERS10|4|18|0|10 imposta versata
INTER11|4|18|0|11 interessi
IMPVERS12|4|18|0|12 imposta versata
INTER13|4|18|0|13 interessi
STASSA14|4|18|0|14 soprattassa su Irpef
CONTRIMB15|4|18|0|15 contributo a rimborso
CONTVERS16|4|18|0|16 contributo versato
INTER17|4|18|0|17 interessi
CONTVER18|4|18|0|18 contributo versato
INTER19|4|18|0|19 interessi
STASSA20|4|18|0|20 soprattassa su cssn
CONNEFF21|1|1|0|21 conguagli non effettuati
TIPOCONG22|1|1|0|22 tipo conguaglio
CODCAAF|3|5|0|23/24/25 Codice CAAF che ha prestato assistenza
DATARIC26|5|8|0|26 data ricezione Modello 730-5
1
CODDITTA+CODDIP+NPROG|