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 // // 771200.cpp - Quadro A 771mod -7 A //
// - Quadro A1 771mod -7 1 // // - Quadro A1 771mod -7 1 //
// - Quadro A2 771mod -7 2 // // - Quadro A2 771mod -7 2 //
// - Quadro A3 771mod -7 3 // // - Quadro A3 771mod -7 3 //
// - Quadro AB 771mod -7 4 //
////////////////////////////////////////// //////////////////////////////////////////
#include <relapp.h> #include <relapp.h>
#include <config.h> #include <config.h>
@ -22,31 +23,33 @@
#include "774200.h" #include "774200.h"
#include "77qaall.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(""); TLocalisamfile qq(quadro == "AB" ? LF_QUAAB : LF_QUAA2);
bool Result = FALSE;
TLocalisamfile qq(quadro == "A" ? LF_QUAA : LF_QUAA2);
qq.zero(); qq.zero();
qq.put(QUA_CODDITTA, codditta); qq.put("CODDITTA", codditta);
qq.put(QUA_CODIP, coddip); qq.put("CODDIP", coddip);
TRectype dep(qq.curr()); TRectype dep(qq.curr());
qq.read(); for (qq.read() ;!qq.eof() && qq.curr() == dep ; qq.next())
TRecnotype lPos = qq.recno();
for ( ;!qq.eof(); qq.next())
{ {
if (qq.curr() > dep) break; // non prendo in considerazione se stesso
c58 = qq.get(QUA_RETCON); if (qq.get_int("NPROG") == curprog)
if (c58 == "A") continue;
{
Result = TRUE; // leggo rettifica conguaglio
break; 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 FALSE;
return Result;
} }
class TQuadroA : public TRelation_application class TQuadroA : public TRelation_application
@ -56,7 +59,7 @@ class TQuadroA : public TRelation_application
bool _registra; // Se TRUE fa i riporti bool _registra; // Se TRUE fa i riporti
TRelation* _rel; TRelation* _rel;
TMask* _msk[2]; TMask* _msk[2];
TMask* _mskAllegati; // maschera allegati 730 (A e A2) TMask* _mskAllegati; // maschera allegati 730 (AB e A2)
long _coddip; long _coddip;
char _tipoq; char _tipoq;
int _nproga; int _nproga;
@ -69,23 +72,20 @@ class TQuadroA : public TRelation_application
TString _cognome,_nome; // dati soc.trasf. TString _cognome,_nome; // dati soc.trasf.
private: 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 nprog_handler (TMask_field& f, KEY key);
static bool codanagr_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 codditta_hnd (TMask_field& f, KEY key);
static bool setta_nprog (TMask_field& f); static bool setta_nprog (TMask_field& f);
static bool QAA2alleg_handler (TMask_field& f, KEY key); static bool QAA2alleg_handler (TMask_field& f, KEY key);
// Handler relativi alla manutenzione quadro A // Handler relativi alla manutenzione quadro A
static bool QA_comp_netti_hnd (TMask_field& f, KEY key); static bool QA_qaqualif_hnd (TMask_field& f, KEY key);
static bool QA_tot_impon_hnd (TMask_field& f, KEY key); static bool QA_cfdlprec_hnd (TMask_field& f, KEY key);
static bool QA_tot_detraz_hnd (TMask_field& f, KEY key); static bool QA_totdet_hnd (TMask_field& f, KEY key);
static bool QA_cfdlprec_hnd (TMask_field& f, KEY key); static bool QA_ammritdov_hnd (TMask_field& f, KEY k);
static bool QA_chech_ritdatlav (TMask_field& f, KEY key); static bool QA_qatitolo_hnd (TMask_field& f, KEY k);
static bool QA_calcola42 (TMask_field& f, KEY k); static bool QA_A2_check_58 (TMask_field& f, KEY key);
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 A3 // Handler relativi alla manutenzione quadro A3
static bool QA3_codip_handler (TMask_field& f, KEY key); static bool QA3_codip_handler (TMask_field& f, KEY key);
static bool QA3_base_occupazionale(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: protected:
TString _sCognome, _sNome; // dati dipendente TString _sCognome, _sNome; // dati dipendente
int _iNprog; int _iNprog;
long _codditta,_codip; long _codditta,_codip;
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
@ -114,7 +114,8 @@ class TQuadroA : public TRelation_application
bool QuadroA() const { return _quadro == "A"; } bool QuadroA() const { return _quadro == "A"; }
bool QuadroA1() const { return _quadro == "A1"; } bool QuadroA1() const { return _quadro == "A1"; }
bool QuadroA2() const { return _quadro == "A2"; } 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: public:
bool is_societa_trasformata(TMask& m); bool is_societa_trasformata(TMask& m);
@ -173,7 +174,10 @@ TMask* TQuadroA::load_mask(int n)
break; break;
case '3': // Manutenzione quadro A3 case '3': // Manutenzione quadro A3
name << 'g'; name << 'g';
break; break;
case '4': // Manutenzione quadro AB
name << 'l';
break;
default: default:
break; break;
} }
@ -193,7 +197,10 @@ TMask* TQuadroA::load_mask(int n)
break; break;
case '3': // Manutenzione quadro A3 case '3': // Manutenzione quadro A3
name << 'h'; name << 'h';
break; break;
case '4': // Manutenzione quadro AB
name << 'm';
break;
default: default:
break; break;
} }
@ -215,7 +222,7 @@ TMask* TQuadroA::load_mask(int n)
} }
else else
{ {
if (QuadroA()) if (QuadroAB())
m->set_handler(QAF_ALLEG_A, QAA2alleg_handler); m->set_handler(QAF_ALLEG_A, QAA2alleg_handler);
if (QuadroA2()) if (QuadroA2())
m->set_handler(QA2F_ALLEG_A2, QAA2alleg_handler); m->set_handler(QA2F_ALLEG_A2, QAA2alleg_handler);
@ -230,38 +237,26 @@ TMask* TQuadroA::load_mask(int n)
if (m) if (m)
{ {
if (QuadroA2()) 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()) if (QuadroA())
{ {
// Calcola i compensi netti (c.23) e controllo c25-27 m->set_handler(F_CODFISDL, QA_cfdlprec_hnd);
m->set_handler(F_CODFISDL, QA_cfdlprec_hnd); m->set_handler(F_QAQUALIF, QA_qaqualif_hnd);
m->set_handler(F_DENARO, QA_comp_netti_hnd); m->set_handler(F_DETCC, QA_totdet_hnd);
m->set_handler(F_NATURA, QA_comp_netti_hnd); m->set_handler(F_DETFC, QA_totdet_hnd);
m->set_handler(F_COBBDIP21, QA_comp_netti_hnd); m->set_handler(F_DETAF, QA_totdet_hnd);
// Se immette un B controlla che ci sia almeno un rec con A m->set_handler(F_DETLD, QA_totdet_hnd);
m->set_handler(F_RETCON56, QA_A2_check_58); m->set_handler(F_DETO, QA_totdet_hnd);
// Se 27=0 => 25 deve = 0 m->set_handler(F_AMRIOT37, QA_ammritdov_hnd);
m->set_handler(F_IACOBBCD25, QA_check_2527); m->set_handler(F_AMRIODL38, QA_ammritdov_hnd);
// Calcola il totale imponibile (c.27) m->set_handler(F_ECCRITRIMB, QA_ammritdov_hnd);
m->set_handler(F_AMMLORDO24, QA_tot_impon_hnd); m->set_handler(F_COBBDIP44, QA_qatitolo_hnd);
m->set_handler(QAF_SVNSOGRIT, QA_tot_impon_hnd); m->set_handler(F_AMMIMP45, QA_qatitolo_hnd);
m->set_handler(F_DETCC, QA_tot_detraz_hnd); m->set_handler(F_DETIMPOS46, QA_qatitolo_hnd);
m->set_handler(F_DETFC, QA_tot_detraz_hnd); m->set_handler(F_RITESEG47, QA_qatitolo_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);
} }
} }
break; break;
@ -393,7 +388,7 @@ bool TQuadroA::QAA2alleg_handler(TMask_field& f, KEY k)
if (k==K_SPACE) if (k==K_SPACE)
{ {
KEY kAll; KEY kAll;
if (app().QuadroA()) if (app().QuadroAB())
{ {
const long lNumAllA = app()._base->get_long("N730ALLA"); const long lNumAllA = app()._base->get_long("N730ALLA");
TString sNumAll; sNumAll << lNumAllA; 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->show(QA2_NUM_ALL);
} }
app()._mskAllegati->open_modal(); app()._mskAllegati->open_modal();
kAll = app()._mskAllegati->run(); kAll = app()._mskAllegati->run();
if (kAll == K_ESC && if (kAll == K_ESC &&
app()._mskAllegati->dirty() && app()._mskAllegati->dirty() &&
@ -425,7 +418,7 @@ bool TQuadroA::QAA2alleg_handler(TMask_field& f, KEY k)
if (kAll==K_ENTER) if (kAll==K_ENTER)
{ {
if (app().QuadroA()) if (app().QuadroAB())
{ {
TString sAll (app()._mskAllegati->get(QA_NUM_ALL)); TString sAll (app()._mskAllegati->get(QA_NUM_ALL));
app()._base->put("N730ALLA", sAll); app()._base->put("N730ALLA", sAll);
@ -467,9 +460,6 @@ bool TQuadroA::nprog_handler(TMask_field& f, KEY key)
else else
{ {
app()._codip = coddip; 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; return TRUE;
@ -491,35 +481,47 @@ bool TQuadroA::QA3_codip_handler(TMask_field& f, KEY key)
return TRUE; 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) bool TQuadroA::QA_cfdlprec_hnd(TMask_field& f, KEY k)
{ {
/* // obbligatorio se qualifica 11
if (k == K_TAB) if (k == K_TAB)
{ if (f.mask().get_int(F_QAQUALIF) == 11)
TString tmp(f.get()); {
if (tmp.empty()) TString tmp = f.get();
f.mask().set(F_CAUSA, 0L); if (tmp.empty())
} */ return f.warning_box("Codice fiscale precedente datore di lavoro obbligatorio");
}
return TRUE; return TRUE;
} }
// Controlla che 40 NON sia > 30 // handler AMMRITDOV
bool TQuadroA::QA_chech_ritdatlav(TMask_field& f, KEY k) bool TQuadroA::QA_ammritdov_hnd(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)
{ {
if (k==K_TAB) 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 c41 = m.get_real(F_ECCRITRIMB);
real c42 = c39 + c40 - c41; real c42 = c39 + c40 - c41;
if (c42 < ZERO) c42 = ZERO; if (c42 < ZERO) c42 = ZERO;
TString c42s(c42.string()); m.set(F_AMMRITDOV, c42);
m.set(F_AMMRITDOV, c42s);
} }
return TRUE; 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_TAB)
if (k == K_ENTER) {
{ TMask& m = f.mask();
real c27 = f.mask().get_real(F_TOTIMP26); real A45 = m.get_real(F_COBBDIP44);
real c25(f.get()); real A46 = m.get_real(F_AMMIMP45);
real A47 = m.get_real(F_DETIMPOS46);
if (c27 == ZERO && c25 != ZERO) real A48 = m.get_real(F_RITESEG47);
return f.warning_box("Valore non corretto: il totale imponibile è nullo"); real TOT = A45 + A46 + A47 + A48;
if (TOT != ZERO)
m.enable(F_QATITOLO);
else
m.disable(F_QATITOLO);
} }
return TRUE; return TRUE;
} }
// Funziona sia col quadro A che con A2
bool TQuadroA::QA_A2_check_58(TMask_field& f, KEY k) bool TQuadroA::QA_A2_check_58(TMask_field& f, KEY k)
{ {
// if (k == K_TAB || k == K_ENTER)
if (f.to_check(k,TRUE)) if (f.to_check(k,TRUE))
{ {
TMask& m = f.mask(); TMask& m = f.mask();
TString16 cod(f.get()); TString16 cod(f.get());
cod.upper();
const long codditta = m.get_long(QAF_CODDITTA); const long codditta = m.get_long(QAF_CODDITTA);
const long coddip = m.get_long(F_CODIP); const long coddip = m.get_long(F_CODIP);
if (cod == "B") const int curprog = m.get_int(QAF_NPROG);
{
if (!QA_cerca_codA(codditta, coddip, app()._quadro)) // controllo se stò immettendo un quadro con rettifica A
return error_box(app().QuadroA2() ? // che non ne esista già uno con rettifica A,C,D,E,F
"Non esiste nessun record con 9=A per questo dipendente" : if (cod == "A")
"Non esiste nessun record con 58=A per questo dipendente"); if (QA_cerca_codA(codditta, coddip, curprog, cod, app()._quadro))
else return f.error_box("Esiste già un quadro con rettifica A,C,D,E oppure F per questo dipendente");
{
// Nasconde prompt 770 mostra prompt 730 // controllo se stò immettendo un quadro con rettifica C,D,E,F
m.reset(-G_ALL); // che non ne esista nessun altro record
m.disable(-G_ALL); if (cod == "C" || cod == "D" || cod == "E" || cod == "F")
// reset anche dei campi calcolati disabilitati nel quadro A if (QA_cerca_codA(codditta, coddip, curprog, cod, app()._quadro))
if (app().QuadroA()) m.reset(-G_2342); return f.error_box("Esiste già un altro quadro per questo dipendente");
m.hide(-G_770);
m.show(-G_730); // se rettifica A abilito pagina relativa operazioni di conguaglio
} if (cod == "A")
}
// 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)
{ {
real totimp29 = ammlordo - svnsrit; m.enable_page(5);
// c27 se < 0 scrivere 0 fax 15.7.96 p.1 // controllo se compilato pagina operazioni di conguaglio
if (totimp29 < ZERO) real ABB19 = m.get_real(F_QABRCB19);
totimp29 = ZERO; real ABB20 = m.get_real(F_QABRCB20);
f.mask().set(F_TOTIMP26, totimp29); 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; 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) 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); real deto = m.get_real(F_DETO);
totdet36 = detcc + detfc + detaf + detld + deto; totdet36 = detcc + detfc + detaf + detld + deto;
m.set(F_TOTDET36, totdet36); 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) if (totdet36 != ZERO)
m.disable(F_TOTDET36); m.disable(F_TOTDET36);
else else
@ -648,23 +629,6 @@ bool TQuadroA::QA_tot_detraz_hnd (TMask_field& f, KEY k)
return TRUE; 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) bool TQuadroA::QA3_base_occupazionale(TMask_field& f , KEY k)
{ {
if (k == K_SPACE) if (k == K_SPACE)
@ -729,6 +693,16 @@ int TQuadroA::rewrite(const TMask& m)
if (QuadroA3() && _soc_trasf) if (QuadroA3() && _soc_trasf)
registra_record2_A3(m); 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); m.autosave(*_rel);
const int err = _rel->rewrite(); const int err = _rel->rewrite();
_registra = TRUE; _registra = TRUE;
@ -740,7 +714,17 @@ int TQuadroA::write(const TMask& m)
{ {
if (QuadroA3() && _soc_trasf) if (QuadroA3() && _soc_trasf)
registra_record2_A3(m); 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); m.autosave(*_rel);
const int err = _rel->write(); const int err = _rel->write();
_registra = TRUE; _registra = TRUE;
@ -788,7 +772,11 @@ bool TQuadroA::user_create()
case '3': case '3':
_file = LF_QUAA3; _file = LF_QUAA3;
_quadro = "A3"; _quadro = "A3";
break; break;
case '4':
_file = LF_QUAAB;
_quadro = "AB";
break;
default: default:
break; break;
} }
@ -808,7 +796,7 @@ bool TQuadroA::user_create()
load_mask(0); load_mask(0);
if (QuadroA() || QuadroA2()) if (QuadroAB() || QuadroA2())
_mskAllegati = new TMask("77qaall"); _mskAllegati = new TMask("77qaall");
_soc_trasf = FALSE; _soc_trasf = FALSE;
@ -821,7 +809,7 @@ bool TQuadroA::user_destroy()
if (_msk[1] != NULL) delete _msk[1]; if (_msk[1] != NULL) delete _msk[1];
if (_msk[0] != NULL) delete _msk[0]; if (_msk[0] != NULL) delete _msk[0];
if (QuadroA() || QuadroA2()) if (QuadroAB() || QuadroA2())
delete _mskAllegati; delete _mskAllegati;
delete _base; delete _base;
@ -841,7 +829,10 @@ bool TQuadroA::user_destroy()
break; break;
case '3': case '3':
quadro << "A3"; quadro << "A3";
break; break;
case '4':
quadro << "AB";
break;
default: default:
break; break;
} }
@ -1018,7 +1009,10 @@ int quadriA_A3(int argc, char* argv[])
break; break;
case '3': case '3':
title = "Quadro A3"; title = "Quadro A3";
break; break;
case '4':
title = "Quadro A bis";
break;
default: default:
break; 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_CODDITTA 181
#define QAF_RAGDITTA 102 #define QAF_RAGDITTA 102
#define QAF_ANNODIC 103 #define QAF_ANNODIC 103
@ -14,23 +20,15 @@
#define QAF_NPROG 108 #define QAF_NPROG 108
// 771200b.uml // 771200b.uml (quadro A)
//#define F_BASEOCC 109
#define F_DATAIR 110 #define F_DATAIR 110
#define F_DATAFR 111 #define F_DATAFR 111
#define F_CAUSA 112 #define F_CAUSA 112
#define F_DENARO 113 #define F_DENARO 113
#define F_NATURA 114
#define F_COBBDIP21 116 #define F_COBBDIP21 116
#define F_COMPNETTI 117
#define F_AIEREP23 118 #define F_AIEREP23 118
#define F_AMMLORDO24 119
#define F_IACOBBCD25 120
#define F_TOTIMP26 121
#define F_CCTAMMCONT 122 #define F_CCTAMMCONT 122
#define F_CCTAMNACON 123 #define F_CCTAMNACON 123
#define F_TOTIMP29 124
#define F_ICTOTIMP30 125 #define F_ICTOTIMP30 125
#define F_DETCC 126 #define F_DETCC 126
#define F_DETFC 127 #define F_DETFC 127
@ -49,10 +47,31 @@
#define F_AMMIMP45 140 #define F_AMMIMP45 140
#define F_DETIMPOS46 141 #define F_DETIMPOS46 141
#define F_RITESEG47 142 #define F_RITESEG47 142
#define F_SVNASSRI48 143
#define F_AIFCSSN49 144 #define F_AIFCSSN49 144
#define F_CFCONINPS 145 #define F_CFCONINPS 145
#define F_SASS95 146 #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_CONEFF50 147
#define F_IMPVERS51 148 #define F_IMPVERS51 148
#define F_ISOPTAS52 149 #define F_ISOPTAS52 149
@ -73,19 +92,30 @@
#define F_INTER67 164 #define F_INTER67 164
#define F_STSCSSN68 165 #define F_STSCSSN68 165
#define F_SEGDICNL69 166 #define F_SEGDICNL69 166
#define F_CIIAT 167
#define F_CIPA 168
#define F_CODCAAF 169 #define F_CODCAAF 169
#define F_NUMGIORNI 170
#define F_CODFISDL 171
#define F_DENCAAF 173 #define F_DENCAAF 173
#define F_CODFISCAAF 174 #define F_CODFISCAAF 174
#define F_NISCRA 175 #define F_NISCRA 175
#define F_CODIP2 190 #define F_QABEURIMB 500
#define QA_RAGSOC2 191 #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 // 771200d.uml
#define F_MESEANNO 200 #define F_MESEANNO 200
#define F_IMPRIMB9 201 #define F_IMPRIMB9 201
#define F_IMPVERS10 202 #define F_IMPVERS10 202
@ -156,12 +186,6 @@
// //
// Modifiche 95->96 // 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 // Quadro A1
#define QA1F_ANNORIF 410 #define QA1F_ANNORIF 410
@ -180,11 +204,8 @@
#define F_CODANAGDIPQA 420 #define F_CODANAGDIPQA 420
#define G_ALL 12 #define G_OPECONG 12
#define G_730 9
#define G_770 7
#define G_2342 6
#define QAF_ALLEG_A 421 #define QAF_ALLEG_A 421
#define QA2F_ALLEG_A2 422 #define QA2F_ALLEG_A2 422

15
m770/771200a.uml
View File

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

304
m770/771200d.uml
View File

@ -58,100 +58,112 @@ BEGIN
MESSAGE COPY,5@ MESSAGE COPY,5@
END 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 LISTBOX F_MESEANNO 9
BEGIN BEGIN
PROMPT 2 3 "8 Periodo di riferimento " PROMPT STDIMP 4 ""
FLAGS "M"
FIELD LF_QUAA1->MESERIF FIELD LF_QUAA1->MESERIF
FLAGS "M"
END END
NUMBER QA1F_ANNORIF 4 NUMBER QA1F_ANNORIF 4
BEGIN BEGIN
PROMPT 44 3 "" PROMPT 73 4 ""
FLAGS "D"
FIELD LF_QUAA1->ANNORIF FIELD LF_QUAA1->ANNORIF
FLAGS "D"
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 1 4 "@bSaldo IRPEF per il 1994" PROMPT 1 7 "@bSaldo Irpef per il 1995"
END END
NUMBER F_IMPRIMB9 15 TEXT DLG_NULL
BEGIN 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 FIELD LF_QUAA1->IMPRIMB9
PICTURE "." PICTURE "."
END END
NUMBER F_IMPVERS10 15 TEXT DLG_NULL
BEGIN 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 FIELD LF_QUAA1->IMPVERS10
PICTURE "." PICTURE "."
END END
NUMBER F_INTER11 15 TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 6 "11 Interessi " PROMPT 2 10 "11 Interessi"
END
NUMBER F_INTER11 LENIMP
BEGIN
PROMPT STDIMP 10 ""
FIELD LF_QUAA1->INTER11 FIELD LF_QUAA1->INTER11
PICTURE "." PICTURE "."
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 8 "@bPrima rata acconto IRPEF per il 1995" PROMPT 1 13 "@bPrima rata acconto Irpef per il 1996"
END END
NUMBER F_IMPVERS12 15 TEXT DLG_NULL
BEGIN 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 FIELD LF_QUAA1->IMPVERS12
PICTURE "." PICTURE "."
END END
NUMBER F_INTER13 15 TEXT DLG_NULL
BEGIN BEGIN
PROMPT 45 9 "13 Interessi " PROMPT 2 15 "13 Interessi"
END
NUMBER F_INTER13 LENIMP
BEGIN
PROMPT STDIMP 15 ""
FIELD LF_QUAA1->INTER13 FIELD LF_QUAA1->INTER13
PICTURE "." PICTURE "."
END END
NUMBER F_STASSA14 15 TEXT DLG_NULL
BEGIN 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 FIELD LF_QUAA1->STASSA14
PICTURE "." PICTURE "."
END 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 ENDPAGE
PAGE "2" -1 -1 78 21 PAGE "2" -1 -1 78 21
@ -191,35 +203,95 @@ END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN 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 END
NUMBER F_CONTVER18 15 TEXT DLG_NULL
BEGIN 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 FIELD LF_QUAA1->CONTVER18
PICTURE "." PICTURE "."
END END
NUMBER F_INTER19 15 TEXT DLG_NULL
BEGIN BEGIN
PROMPT 45 4 "19 Interessi " PROMPT 2 11 "19 Interessi"
END
NUMBER F_INTER19 LENIMP
BEGIN
PROMPT STDIMP 11 ""
FIELD LF_QUAA1->INTER19 FIELD LF_QUAA1->INTER19
PICTURE "." PICTURE "."
END END
NUMBER F_STASSA20 15 TEXT DLG_NULL
BEGIN 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 FIELD LF_QUAA1->STASSA20
PICTURE "." PICTURE "."
END END
TEXT DLG_NULL
BEGIN
PROMPT 2 15 "21 Conguagli non effettuati"
END
STRING F_CONNEFF21 1 STRING F_CONNEFF21 1
BEGIN BEGIN
PROMPT 2 6 "21 Cong. n/effet. " PROMPT STDIMP 15 ""
FIELD LF_QUAA1->CONNEFF21 FIELD LF_QUAA1->CONNEFF21
HELP "Conguagli non effettuati"
SHEET "Codice|Descrizione@60" SHEET "Codice|Descrizione@60"
INPUT F_CONNEFF21 INPUT F_CONNEFF21
ITEM " |Niente" ITEM " |Niente"
@ -228,35 +300,88 @@ BEGIN
ITEM "C|Decesso" ITEM "C|Decesso"
ITEM "D|Richiesta di minore secondo acconto" ITEM "D|Richiesta di minore secondo acconto"
ITEM "E|Retribuzione insufficiente" 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" ITEM "G|Rimborso non effettuato o rimborso effettuato parzialmente"
OUTPUT F_CONNEFF21 OUTPUT F_CONNEFF21
FLAGS "U" FLAGS "U"
END END
TEXT DLG_NULL
BEGIN
PROMPT 2 16 "22 Tipo conguaglio"
END
STRING F_TIPOCONG22 1 STRING F_TIPOCONG22 1
BEGIN BEGIN
PROMPT 45 6 "22 Tipo cong. " PROMPT STDIMP 16 ""
FIELD LF_QUAA1->TIPOCONG22 FIELD LF_QUAA1->TIPOCONG22
SHEET "Codice|Descrizione@60" SHEET "Codice|Descrizione@60"
INPUT F_TIPOCONG22 INPUT F_TIPOCONG22
ITEM " |Niente" ITEM " |Niente"
ITEM "R|Cong. tardivo derivante da Mod.730/93 rettificativo..." ITEM "R|Cong.tardivo derivante da Mod.730-3 rettificativo..."
ITEM "S|Cong. tardivo derivante da comunicaz. Mod.730/94..." ITEM "S|Cong.tardivo derivante da comunicazione Mod.730-4..."
ITEM "T|Cong. tardivo deriv. da Mod.730/93 ov. comunic. tardiva Mod.730/94" ITEM "T|Cong.tardivo derivante da Mod.730-3 ovvero conguaglio..."
ITEM "U|Cong. conseguente ad incapienza della retribuz..." ITEM "U|Cong.conseguente ad incapienza della retribuzione..."
OUTPUT F_TIPOCONG22 OUTPUT F_TIPOCONG22
FLAGS "U" 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 END
GROUPBOX DLG_NULL 78 5 NUMBER DLG_NULL 6
BEGIN
PROMPT 17 1 ""
FLAGS "DG"
GROUP 2
END
STRING DLG_NULL 24
BEGIN 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 END
NUMBER F_CODCAAF 5 NUMBER F_CODCAAF 5
BEGIN BEGIN
PROMPT 2 10 "Codice " PROMPT 2 4 "Codice "
FIELD LF_QUAA1->CODCAAF FIELD LF_QUAA1->CODCAAF
USE %CAF USE %CAF
CHECKTYPE NORMAL CHECKTYPE NORMAL
@ -272,30 +397,39 @@ BEGIN
FLAGS "Z" FLAGS "Z"
END END
STRING F_DENCAAF 50 TEXT DLG_NULL
BEGIN BEGIN
PROMPT 26 10 "" PROMPT 2 6 "23 Codice fiscale"
FLAGS "DU"
END END
STRING F_CODFISCAAF 16 STRING F_CODFISCAAF 16
BEGIN BEGIN
PROMPT 2 11 "23 Cod.fiscale " PROMPT 25 6 ""
FLAGS "D" FLAGS "D"
END 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 NUMBER F_NISCRA 5
BEGIN BEGIN
PROMPT 50 11 "25 N.iscrizione albo " PROMPT 25 8 ""
FLAGS "D" FLAGS "D"
END END
DATE F_DATARIC29
BEGIN
PROMPT 2 12 "26 Data ricezione Modello 730-5 "
FIELD LF_QUAA1->DATARIC26
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

254
m770/771200e.uml
View File

@ -1,128 +1,128 @@
#include "771200.h" #include "771200.h"
TOOLBAR "" 0 18 0 4 TOOLBAR "" 0 18 0 4
#include <toolbar.h> #include <toolbar.h>
BUTTON QA2F_ALLEG_A2 24 2 BUTTON QA2F_ALLEG_A2 24 2
BEGIN BEGIN
PROMPT -13 -3 "~Allegati 730/95" PROMPT -13 -3 "~Allegati 730/96"
END END
ENDPAGE ENDPAGE
#define G_DIPEND 1 #define G_DIPEND 1
#define G_QUADROA 2 #define G_QUADROA 2
PAGE "Quadro A2" -1 -1 78 21 PAGE "Quadro A2" -1 -1 78 21
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER QAF_CODDITTA 5 NUMBER QAF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRDP"
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
OUTPUT QAF_RAGDITTA RAGSOC OUTPUT QAF_RAGDITTA RAGSOC
FIELD LF_QUAA2->CODDITTA FIELD LF_QUAA2->CODDITTA
END END
STRING QAF_RAGDITTA 50 STRING QAF_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "DP"
END END
NUMBER QAF_ANNODIC 4 NUMBER QAF_ANNODIC 4
BEGIN BEGIN
PROMPT 52 3 "Anno dichiarazione " PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR" FLAGS "DRP"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bDati dipendente" PROMPT 1 7 "@bDati dipendente"
END END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
FIELD LF_QUAA2->CODDIP FIELD LF_QUAA2->CODDIP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
NUMBER F_CODANAGDIP 6 NUMBER F_CODANAGDIP 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIP INPUT CODDIP F_CODANAGDIP
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME DISPLAY "Nome@20" NOME
OUTPUT F_CODANAGDIP CODDIP OUTPUT F_CODANAGDIP CODDIP
OUTPUT QAF_COGNOME COGNOME OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME OUTPUT QAF_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
FLAGS "H" FLAGS "H"
GROUP G_DIPEND GROUP G_DIPEND
END END
NUMBER F_CODANAGDIPQA 6 NUMBER F_CODANAGDIPQA 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIPQA INPUT CODDIP F_CODANAGDIPQA
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG DISPLAY "N°@4" NPROG
OUTPUT F_CODANAGDIPQA CODDIP OUTPUT F_CODANAGDIPQA CODDIP
OUTPUT QAF_COGNOME LF_DIPEND->COGNOME OUTPUT QAF_COGNOME LF_DIPEND->COGNOME
OUTPUT QAF_NOME LF_DIPEND->NOME OUTPUT QAF_NOME LF_DIPEND->NOME
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
GROUP G_QUADROA GROUP G_QUADROA
END END
STRING QAF_COGNOME 24 STRING QAF_COGNOME 24
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
FLAGS "D" FLAGS "D"
END END
STRING QAF_NOME 20 STRING QAF_NOME 20
BEGIN BEGIN
PROMPT 49 8 "" PROMPT 49 8 ""
FLAGS "D" FLAGS "D"
END END
NUMBER QAF_NPROG 4 NUMBER QAF_NPROG 4
BEGIN BEGIN
PROMPT 1 10 "@bNumero " PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA))
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODIP INPUT CODDIP F_CODIP
INPUT NPROG QAF_NPROG INPUT NPROG QAF_NPROG
DISPLAY "Codice@10" CODDIP DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG DISPLAY "N°@4" NPROG
OUTPUT F_CODIP CODDIP OUTPUT F_CODIP CODDIP
OUTPUT QAF_NPROG NPROG OUTPUT QAF_NPROG NPROG
FIELD LF_QUAA2->NPROG FIELD LF_QUAA2->NPROG
KEY 1 KEY 1
END END
ENDPAGE ENDPAGE
ENDMASK 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"; } bool IsCausali() const { return _tabname == "%CA7"; }
void SetDefaultValueCausali(TMask& m); void SetDefaultValueCausali(TMask& m);
void init_mask(TMask& m); void init_mask(TMask& m);
static bool TC_causD1_handler(TMask_field& f, KEY k);
public: public:
bool user_create(); bool user_create();
virtual void init_modify_mode(TMask& m); 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();} 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) HIDDEN bool codqua_handler(TMask_field& f, KEY k)
{ {
if (k == K_ENTER && f.mask().is_running()) 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_CODTRIB, codtrib_handler);
_msk->set_handler(F_QUADRCE2, codqua_handler); _msk->set_handler(F_QUADRCE2, codqua_handler);
_msk->set_handler(F_QUADRAT, codqua_handler); _msk->set_handler(F_QUADRAT, codqua_handler);
_msk->set_handler(TCF_CAUSD1, TC_causD1_handler);
} }
return TRUE; return TRUE;
} }

18
m770/774300a.h
View File

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

2
m770/774300a.uml
View File

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

6
m770/77qaall.uml
View File

@ -20,17 +20,17 @@ END
TEXT QA2_ANNO_ALL TEXT QA2_ANNO_ALL
BEGIN BEGIN
PROMPT 35 2 "mod.730/95 completi" PROMPT 35 2 "Mod.730/96 completi"
END END
TEXT QA_ANNO_ALL TEXT QA_ANNO_ALL
BEGIN BEGIN
PROMPT 35 2 "mod.730/96 completi" PROMPT 35 2 "Mod.730/97 completi"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN 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 END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2

20
m770/batbca7.h
View File

@ -5,9 +5,7 @@
#define F_DESCR1 102 #define F_DESCR1 102
#define F_QUADRAT 103 #define F_QUADRAT 103
#define F_QUADRCE2 104 #define F_QUADRCE2 104
#define F_ASSRIT 105
#define F_IC 106 #define F_IC 106
#define F_CT 107
#define F_PERASS 108 #define F_PERASS 108
#define F_PERRIT 109 #define F_PERRIT 109
#define F_ARTBIL 110 #define F_ARTBIL 110
@ -22,9 +20,23 @@
#define TCF_PERCASSPREV 119 #define TCF_PERCASSPREV 119
#define TCF_CAUSD_DESCR 120 #define TCF_CAUSD_DESCR 120
#define TCF_CAUSD1_DESCR 121 #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 INPS_GROUP 7
#define GR_CAUDD1 8 #define GR_CAUDD1 8
#define G_ICTS 9 #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 PAGE "Tabella causali " -1 -1 78 18
GROUPBOX DLG_NULL 77 8 GROUPBOX DLG_NULL 77 12
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
END END
@ -52,15 +52,15 @@ BEGIN
PROMPT 1 3 "Codice quadro " PROMPT 1 3 "Codice quadro "
HELP "Inserire il codice quadro" HELP "Inserire il codice quadro"
ITEM "C|C" 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" 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" 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" 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" 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 MESSAGE COPY,F_CODQUA
WARNING "Manca il codice quadro" WARNING "Manca il codice quadro"
FIELD LF_TABCOM->S1 FIELD LF_TABCOM->S1
@ -71,51 +71,43 @@ BEGIN
PROMPT 1 3 "Codice quadro " PROMPT 1 3 "Codice quadro "
HELP "Inserire il codice quadro" HELP "Inserire il codice quadro"
ITEM "A|A" 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" 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" 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" 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" 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" 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" 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" 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" 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" 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" 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" 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" 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" 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" 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" 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" 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 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 "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 COPY,F_QUADRCE2 MESSAGE COPY,F_QUADRCE2
MESSAGE COPY,F_CODQUA MESSAGE COPY,F_CODQUA
WARNING "Manca il codice quadro" WARNING "Manca il codice quadro"
@ -125,14 +117,16 @@ END
LIST F_CODQUA 2 LIST F_CODQUA 2
BEGIN BEGIN
PROMPT 1 3 "" PROMPT 1 3 ""
ITEM "A|A" ITEM "A|A"
ITEM "AB|AB"
ITEM "A1|A1" ITEM "A1|A1"
ITEM "A2|A2" ITEM "A2|A2"
ITEM "A3|A3" ITEM "A3|A3"
ITEM "B|B" ITEM "B|B"
ITEM "B1|B1" ITEM "B1|B1"
ITEM "C|C" ITEM "C|C"
ITEM "D|D" ITEM "D|D"
ITEM "DB|DB"
ITEM "D1|D1" ITEM "D1|D1"
ITEM "E|E" ITEM "E|E"
ITEM "E1|E1" ITEM "E1|E1"
@ -141,13 +135,7 @@ BEGIN
ITEM "F1|F1" ITEM "F1|F1"
ITEM "F2|F2" ITEM "F2|F2"
ITEM "G|G" ITEM "G|G"
ITEM "G1|G1" ITEM "G1|G1"
ITEM "N|N"
ITEM "P|P"
ITEM "Q|Q"
ITEM "R|R"
ITEM "S|S"
ITEM "T|T"
FLAGS "H" FLAGS "H"
FIELD LF_TABCOM->S1 FIELD LF_TABCOM->S1
END END
@ -164,7 +152,7 @@ END
STRING F_DESCR2 60 STRING F_DESCR2 60
BEGIN BEGIN
PROMPT 1 4 "Descrizione " PROMPT 1 4 "Descrizione "
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
HELP "Inserire la descrizione della causale" HELP "Inserire la descrizione della causale"
WARNING "Manca la descrizione" WARNING "Manca la descrizione"
@ -172,92 +160,232 @@ BEGIN
MESSAGE COPY,F_DESCR1,1,22 MESSAGE COPY,F_DESCR1,1,22
END 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 STRING TCF_CAUSD 1
BEGIN BEGIN
PROMPT 1 5 "Causale D " PROMPT 1 6 "Causale D "
SHEET "Codice|Descrizione@60" SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSD INPUT TCF_CAUSD
ITEM " | " ITEM " | "
ITEM "A|prestaz. di lav. aut. ... nell’es. arti o prof. abituale" ITEM "A|prestaz. di lav. auton. nell'eserc. di arti o prof. abit..."
ITEM "B|prestaz. rese da amministratori, sindaci e revisori..." ITEM "B|utiliz. econom., da parte dell'autore o dell'inventore,...."
ITEM "C|prestaz. rese da collaboratori a giornali, riviste, ..." ITEM "C|a titolo di utili deriv. da contrat. di ass. in partecip..."
ITEM "D|prestaz. rese da partecipanti a collegi e commissioni" ITEM "D|a titolo di utili spett. ai soci prom. ed ai soci fondat..."
ITEM "E|prestaz. rese dagli sportivi con contratto di lav. autonomo" ITEM "E|per la levata di protesti cambiari da parte dei segr. com.."
ITEM "F|prestaz. ... di rapp. di coll. coord. e c. diversi dai prec" ITEM "F|utiliz. econom., da parte di sogg. diverso dall'autore o..."
ITEM "G|utiliz. economica, da parte dell’autore o dell’inventore..." ITEM "G|indenn. corrisp. per la cessaz. dei rapporti di agenzia...."
ITEM "H|utili ... da contratti di associazione in partecipazioni..." ITEM "H|indenn. corrisp. per la cessaz. da funzioni notarili"
ITEM "I|utili ... ai soci promot. e/o fond. delle soc. di capitale" ITEM "I|indenn. di trasf. o di rimb. forfet. di spese spettanti...."
ITEM "L|per la levata di protesti cambiari da parte dei segretar..." ITEM "L|prestaz. di lavoro autonomo non esercitate abitualmente"
ITEM "M|utiliz. economica, ... di soggetto diverso dall’autore o..." ITEM "M|prestaz. rese dagli sportivi con contratto di lav. autonomo"
ITEM "N|indennità corrisp. per la cessaz. di rapporti di coll..." ITEM "N|indenn. corrisp. per la cessaz. di attività sportiva prof.."
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 "T|altro titolo diverso dai precedenti" ITEM "T|altro titolo diverso dai precedenti"
OUTPUT TCF_CAUSD OUTPUT TCF_CAUSD
OUTPUT TCF_CAUSD_DESCR OUTPUT TCF_CAUSD_DESCR
FIELD LF_TABCOM->S2 FIELD LF_TABCOM->S2
FLAGS "D" FLAGS "D"
GROUP GR_CAUDD1 GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUDB
GROUP GR_NOCAUD1
GROUP GR_NOCAUE
GROUP GR_NOCAUE1
END END
STRING TCF_CAUSD_DESCR 60 STRING TCF_CAUSD_DESCR 60
BEGIN BEGIN
PROMPT 16 5 "" PROMPT 16 6 ""
FLAGS "D" 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 END
STRING TCF_CAUSD1 1 STRING TCF_CAUSD1 1
BEGIN BEGIN
PROMPT 1 6 "Causale D1 " PROMPT 1 8 "Causale D1 "
SHEET "Codice|Descrizione@60" SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSD1 INPUT TCF_CAUSD1
ITEM " | " ITEM " | "
ITEM "A|Agente o rappresentante di commercio monomadatario" ITEM "A|Agente o rappresentante di commercio monomandatario"
ITEM "B|Agente o rappresentate plurimandatario" ITEM "B|Agente o rappresentate plurimandatario"
ITEM "C|Commissionario" ITEM "C|Commissionario"
ITEM "D|Mediatore" ITEM "D|Mediatore"
ITEM "E|Procacciatore d'affari" ITEM "E|Procacciatore d'affari"
ITEM "F|Per somme assoggettate a ritenuta a titolo d'imposta"
OUTPUT TCF_CAUSD1 OUTPUT TCF_CAUSD1
OUTPUT TCF_CAUSD1_DESCR OUTPUT TCF_CAUSD1_DESCR
FIELD LF_TABCOM->S3 FIELD LF_TABCOM->S3
FLAGS "D" FLAGS "D"
GROUP GR_CAUDD1 GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUD
GROUP GR_NOCAUDB
GROUP GR_NOCAUE
GROUP GR_NOCAUE1
END END
STRING TCF_CAUSD1_DESCR 60 STRING TCF_CAUSD1_DESCR 60
BEGIN BEGIN
PROMPT 16 6 "" PROMPT 16 8 ""
FLAGS "D" FLAGS "D"
GROUP GR_CAUDD1 GROUP GR_CAUDD1
GROUP GR_NOCAUC
GROUP GR_NOCAUD
GROUP GR_NOCAUDB
GROUP GR_NOCAUE
GROUP GR_NOCAUE1
END END
BOOLEAN F_ASSRIT STRING TCF_CAUSE 1
BEGIN BEGIN
PROMPT 1 8 "Somme assoggettate a titolo di ritenute d'acconto" PROMPT 1 9 "Causale E "
FIELD LF_TABCOM->B0 SHEET "Codice|Descrizione@60"
END INPUT TCF_CAUSE
ITEM " | "
BOOLEAN F_IC ITEM "A|redditi di capitale corrisp. a sogg. resid. non eserc......"
BEGIN ITEM "B|prov. corrisp. a stabili organiz. estere di impr. resid...."
PROMPT 58 8 "T.S. " ITEM "C|comp. per avviamento commerc. assogg. alla rit. a tit. acc."
FIELD LF_TABCOM->B3 ITEM "D|contrib. degli enti pubbl. e premi corrisp. dall'Unione...."
GROUP G_ICTS 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 END
BOOLEAN F_CT STRING TCF_CAUSE_DESCR 60
BEGIN BEGIN
PROMPT 66 8 "C.T. " PROMPT 16 9 ""
FIELD LF_TABCOM->B2 FLAGS "D"
GROUP G_ICTS 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 END
NUMBER F_PERASS 6 NUMBER F_PERASS 6
BEGIN BEGIN
PROMPT 1 9 "Percentuale assoggettamento imponibile " PROMPT 1 12 "Percentuale assoggettamento imponibile "
FIELD LF_TABCOM->R4 FIELD LF_TABCOM->R4
PICTURE ".2" PICTURE ".2"
NUM_EXPR {(#THIS>=0) && (#THIS<=100)} NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
@ -266,7 +394,7 @@ END
NUMBER TCF_PERCASSPREV 6 NUMBER TCF_PERCASSPREV 6
BEGIN BEGIN
PROMPT 1 10 "Percentuale cassa previdenza " PROMPT 1 13 "Percentuale cassa previdenza "
FIELD LF_TABCOM->R5 FIELD LF_TABCOM->R5
PICTURE ".2" PICTURE ".2"
NUM_EXPR {(#THIS>=0) && (#THIS<=100)} NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
@ -275,21 +403,47 @@ END
NUMBER F_PERRIT 6 NUMBER F_PERRIT 6
BEGIN BEGIN
PROMPT 1 11 "Percentuale ritenute d'acconto " PROMPT 1 14 "Percentuale ritenute d'acconto "
FIELD LF_TABCOM->R0 FIELD LF_TABCOM->R0
NUM_EXPR {(#THIS>=0) && (#THIS<=100)} NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
PICTURE ".2" PICTURE ".2"
WARNING "Percentuale della ritenuta d'acconto non valida" WARNING "Percentuale della ritenuta d'acconto non valida"
END 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 GROUPBOX DLG_NULL 77 4
BEGIN BEGIN
PROMPT 0 13 "Contributo INPS" PROMPT 0 17 "Contributo INPS"
END END
BOOLEAN TCF_BINPS BOOLEAN TCF_BINPS
BEGIN BEGIN
PROMPT 1 14 "Contributo INPS " PROMPT 1 18 "Contributo INPS "
FIELD LF_TABCOM->B4 FIELD LF_TABCOM->B4
GROUP G_INPS GROUP G_INPS
MESSAGE TRUE ENABLE,INPS_GROUP@ MESSAGE TRUE ENABLE,INPS_GROUP@
@ -298,7 +452,7 @@ END
NUMBER TCF_PERCINPS 6 NUMBER TCF_PERCINPS 6
BEGIN BEGIN
PROMPT 30 14 "Percentuale " PROMPT 30 18 "Percentuale "
PICTURE ".2" PICTURE ".2"
FIELD LF_TABCOM->R1 FIELD LF_TABCOM->R1
NUM_EXPR {(#THIS>=0) && (#THIS<=100)} NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
@ -309,7 +463,7 @@ END
NUMBER TCF_ASSIMPINPS 6 NUMBER TCF_ASSIMPINPS 6
BEGIN BEGIN
PROMPT 1 15 "Percentuale ass.imp. " PROMPT 1 19 "Percentuale ass.imp. "
PICTURE ".2" PICTURE ".2"
FIELD LF_TABCOM->R2 FIELD LF_TABCOM->R2
NUM_EXPR {(#THIS>=0) && (#THIS<=100)} NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
@ -320,7 +474,7 @@ END
NUMBER TCF_COMMINPS 6 NUMBER TCF_COMMINPS 6
BEGIN BEGIN
PROMPT 30 15 "Quota a carico del committente " PROMPT 30 19 "Quota a carico del committente "
PICTURE ".2" PICTURE ".2"
FIELD LF_TABCOM->R3 FIELD LF_TABCOM->R3
NUM_EXPR {(#THIS>=0) && (#THIS<=100)} 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 44
1 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 44
63 75
CODDITTA|3|5|0|Codice ditta della dichiarazione 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 NPROG|2|3|0|Numero progressivo della scheda
AREAATT|1|1|0| AREAATT|1|1|0|Area attività
TIPO|1|1|0| TIPO|1|1|0|Tipo
NUMGIO|2|3|0| NUMGIO|2|3|0|Numero giorni
DATAFR|5|8|0|Data fine rapporto di lavoro DATAFR|5|8|0|Data fine rapporto di lavoro
NUMGIODET|2|3|0| NUMGIODET|2|3|0|Numero giorni detrazioni per lavoro dipendente
CFDLPREC|1|16|0| CFDLPREC|1|16|0|Codice fiscale precedente datore di lavoro
CAUSA|2|1|0|Causa CAUSA|2|1|0|Causa
DENARO|4|18|0|In denaro DENARO|4|18|0|Retribuzioni e pensioni
NATURA|4|18|0|In natura NATURA|4|18|0|Non usato (ex 21)
COBBDIP|4|18|0| COBBDIP|4|18|0|Contributi previdenziali ed assistenziali obbligatori lavoratore dipendente
COMPNETTI|4|18|0|Compensi netti COMPNETTI|4|18|0|Non usato (ex 23)
AMMLORDO|4|18|0| AMMLORDO|4|18|0|Non usato (ex 24)
IACOBBCD|4|18|0| IACOBBCD|4|18|0|Non usato (ex 25)
NORIT|4|18|0| NORIT|4|18|0|Somme e valori non assoggettati a ritenuta
TOTIMP|4|18|0| TOTIMP|4|18|0|Non usato (ex 27)
AIENTIPREV|4|18|0| AIENTIPREV|4|18|0|Assegni e indennità erogati da enti previdenziali e assistenziali
CCTAMMCONT|4|18|0|Compensi corrisposti da terzi: ammontare assoggettato a contribuzione CCTAMMCONT|4|18|0|Compensi da terzi
TOTIMP2|4|18|2| TOTIMP2|4|18|2|Non usato (ex 30)
ICTOTIMP|4|18|0| ICTOTIMP|4|18|0|Imposta corrispondente al totale imponibile
DETCC|4|18|0|Detrazione per coniuge a carico DETCC|4|18|0|Detrazione per coniuge a carico
DETFC|4|18|0|Detrazione per figli a carico DETFC|4|18|0|Detrazione per figli a carico
DETAF|4|18|0|Detrazione per altri famigliari a carico DETAF|4|18|0|Detrazione per altri famigliari a carico
DETLD|4|18|0|Detrazione per lavoro dipendente DETLD|4|18|0|Detrazione per lavoro dipendente
DETO|4|18|0|Detrazione per oneri DETO|4|18|0|Detrazione per oneri
TOTDET|4|18|0| TOTDET|4|18|0|Totale detrazioni
INCDETFC|4|18|0| INCDETFC|4|18|0|Non usato (ex 38)
AMRIOT|4|18|0| AMRIOT|4|18|0|Ammontare delle ritenute operate da terzi
AMRIODL|4|18|0| AMRIODL|4|18|0|Ammontare delle ritenute operate dal datore di lavoro
ECCRITRIMB|4|18|0|Eccedenza delle ritenute da rimborsare ECCRITRIMB|4|18|0|Eccedenza delle ritenute da rimborsare
AMMRITDOV|4|18|0|Ammontare delle ritenute dovute AMMRITDOV|4|18|0|Ammontare delle ritenute dovute
ERSPSAN|4|18|0| ERSPSAN|4|18|0|Erogazioni per spese sanitarie (detrazioni per importo parziale)
PRASSVI|4|18|0| PRASSVI|4|18|0|Premi di assicurazione vita e infortuni
CONPRECO|4|18|0| CONPRECO|4|18|0|Contributi per previdenza complementare ex art.15,c.8,L.335/95
COBBDIP2|4|18|0| COBBDIP2|4|18|0|Contributi obbligatori a carico del dipendente
AMMIMP|4|18|0| AMMIMP|4|18|0|Imponibile
DETIMPOS|4|18|0| DETIMPOS|4|18|0|Detrazioni d'imposta
RITESEG|4|18|0| RITESEG|4|18|0|Ritenuta eseguita
SVNASSRI|4|18|0| SVNASSRI|4|18|0|Non usato (ex 50)
AIFCSSN|4|18|0| AIFCSSN|4|18|0|Somme assoggettate a cssn
CONEFF|1|1|0| CONEFF|1|1|0|ex 52 da portare su Abis
IMPVERS|4|18|0| IMPVERS|4|18|0|ex 53 da portare su Abis
INTERE|4|18|0| INTERE|4|18|0|ex 54 da portare su Abis
CSSN95CV|4|18|0| CSSN95CV|4|18|0|ex 55 da portare su Abis
INTERE2|4|18|0| INTERE2|4|18|0|ex 56 da portare su Abis
CNEFF|1|1|0| CNEFF|1|1|0|ex 57 da portare su Abis
RETCON|1|1|0| RETCON|1|1|0|ex 58 da portare su Abis
IMPRIMB|4|18|0| IMPRIMB|4|18|0|ex 59 da portare su Abis
IMPVER|4|18|0| IMPVER|4|18|0|ex 60 da portare su Abis
INTIRPEF|4|18|0| INTIRPEF|4|18|0|ex 61 da portare su Abis
IMPVER2|4|18|0| IMPVER2|4|18|0|ex 62 da portare su Abis (due significati)
INTER|4|18|0| INTER|4|18|0|ex 63 da portare su Abis (due significati)
STSIRPEF|4|18|0| STSIRPEF|4|18|0|ex 64 da portare su Abis (due significati)
CONRIMB|4|18|0| CONRIMB|4|18|0|ex 65 da portare su Abis (due significati)
CONVER|4|18|0| CONVER|4|18|0|ex 66 da portare su Abis (due significati)
INTER2|4|18|0| INTER2|4|18|0|ex 67 da portare su Abis (due significati)
CONVER2|4|18|0| CONVER2|4|18|0|ex 68 da portare su Abis (due significati)
INTER3|4|18|0| INTER3|4|18|0|ex 69 da portare su Abis (due significati)
STSCSSN70|4|18|0| STSCSSN70|4|18|0|ex 70 da portare su Abis
M730NLIQ|2|2|0| M730NLIQ|2|2|0|ex 71 da portare su Abis
CODCAAF|3|5|0|Codice del CAAF che ha prestato assistenza 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 1
CODDITTA+CODDIP+NPROG| CODDITTA+CODDIP+NPROG|

40
m770/f56.trr
View File

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