Ultimissima cazzatina
git-svn-id: svn://10.65.10.50/trunk@2699 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa
parent
b7b9d5d29d
commit
364401f662
238
ba/ba6101.cpp
238
ba/ba6101.cpp
@ -546,136 +546,140 @@ void TAnaprint_app::set_scheda_socio()
|
|||||||
ana.zero();
|
ana.zero();
|
||||||
ana.put("TIPOA",soc.get("TIPOASOC"));
|
ana.put("TIPOA",soc.get("TIPOASOC"));
|
||||||
ana.put("CODANAGR",soc.get("CODANAGRSO"));
|
ana.put("CODANAGR",soc.get("CODANAGRSO"));
|
||||||
ana.read();
|
|
||||||
|
|
||||||
// always at top level
|
|
||||||
TString zio = ana.get("CODANAGR"); zio.insert("Socio ", 0);
|
|
||||||
_bk_socio = set_bookmark(zio, _bk_ditta);
|
|
||||||
|
|
||||||
|
if (ana.read() == NOERR)
|
||||||
TString codconiuge = "";
|
|
||||||
TLocalisamfile* anaf;
|
|
||||||
|
|
||||||
if (soc.get("TIPOASOC") == "F")
|
|
||||||
{
|
{
|
||||||
TRecnotype rn = 0; int kk = 1;
|
|
||||||
|
TString zio("Socio ");
|
||||||
|
zio << soc.get("CODANAGRSO");
|
||||||
|
zio << "("; zio << soc.get("TIPOASOC") << "): ";
|
||||||
|
zio << ana.get("RAGSOC");
|
||||||
|
_bk_socio = set_bookmark(zio, _bk_ditta);
|
||||||
|
|
||||||
if (_pr_what == anafis)
|
TString codconiuge = "";
|
||||||
|
TLocalisamfile* anaf;
|
||||||
|
|
||||||
|
if (soc.get("TIPOASOC") == "F")
|
||||||
{
|
{
|
||||||
anaf = ¤t_cursor()->file(LF_ANAGFIS);
|
TRecnotype rn = 0; int kk = 1;
|
||||||
rn = anaf->recno();
|
|
||||||
kk = anaf->getkey();
|
if (_pr_what == anafis)
|
||||||
|
{
|
||||||
|
anaf = ¤t_cursor()->file(LF_ANAGFIS);
|
||||||
|
rn = anaf->recno();
|
||||||
|
kk = anaf->getkey();
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
anaf = new TLocalisamfile(LF_ANAGFIS);
|
||||||
|
}
|
||||||
|
|
||||||
|
anaf->zero();
|
||||||
|
anaf->put("CODANAGR",soc.get("CODANAGRSO"));
|
||||||
|
anaf->read();
|
||||||
|
TRectype& com = look_com(anaf->get("COMNASC"));
|
||||||
|
|
||||||
|
set_row(1,"@bSOCIO@r @s / @pn@20g@bCognome@r @s",
|
||||||
|
FLD(LF_SOCI,"TIPOASOC"),
|
||||||
|
FLD(LF_SOCI,"CODANAGRSO","@@@@@"),
|
||||||
|
FLD(LF_ANAG,"RAGSOC",0,29));
|
||||||
|
set_row(2,"@20g@bNome@r @s@53g@bCod.fisc.@r @s",
|
||||||
|
FLD(LF_ANAG,"RAGSOC",30,50),
|
||||||
|
FLD(LF_ANAG,"COFI"));
|
||||||
|
set_row(3,"");
|
||||||
|
|
||||||
|
b1 = anaf->get_date("DATANASC").string(full);
|
||||||
|
b2 = anaf->get("SESSO");
|
||||||
|
/* b3 = anaf->get("STATONASC").empty() ?
|
||||||
|
"Italiana" : anaf->get("STATONASC");
|
||||||
|
*/
|
||||||
|
// set_row(4,"Nascita@20gData@30g%S@42gSesso %S@53gCittadinanza %S",
|
||||||
|
set_row(4,"Nascita@20gData@30g%S@42gSesso %S",
|
||||||
|
(const char*)b1,
|
||||||
|
(const char*)b2);
|
||||||
|
// (const char*)b3);
|
||||||
|
|
||||||
|
b1 = com.get("DENCOM");
|
||||||
|
b2 = com.get("PROVCOM");
|
||||||
|
|
||||||
|
set_row(5,"@20gComune@30g%S@53gProvincia %S",
|
||||||
|
(const char*)b1,
|
||||||
|
(const char*)b2);
|
||||||
|
rw = 6;
|
||||||
|
|
||||||
|
codconiuge = "Cod.coniuge ";
|
||||||
|
codconiuge << anaf->get("CODCONIUGE");
|
||||||
|
|
||||||
|
if (_pr_what == anafis)
|
||||||
|
{ anaf->setkey(kk); anaf->readat(rn); }
|
||||||
|
else delete anaf;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
anaf = new TLocalisamfile(LF_ANAGFIS);
|
set_row(1,"@bSOCIO@r @S / @pN@20gR.soc. @s",
|
||||||
|
FLD(LF_SOCI,"TIPOASOC"),
|
||||||
|
FLD(LF_SOCI,"CODANAGRSO","@@@@@"),
|
||||||
|
FLD(LF_ANAG,"RAGSOC"));
|
||||||
|
set_row(2,"@20gCod.fisc. @s P.IVA @s",
|
||||||
|
FLD(LF_ANAG,"COFI"),
|
||||||
|
FLD(LF_ANAG,"PAIV"));
|
||||||
|
rw = 3;
|
||||||
}
|
}
|
||||||
|
set_row(rw,"");
|
||||||
anaf->zero();
|
|
||||||
anaf->put("CODANAGR",soc.get("CODANAGRSO"));
|
TRectype& com = look_com(ana.get("COMRES"));
|
||||||
anaf->read();
|
|
||||||
TRectype& com = look_com(anaf->get("COMNASC"));
|
|
||||||
|
|
||||||
set_row(1,"@bSOCIO@r @s / @pn@20g@bCognome@r @s",
|
|
||||||
FLD(LF_SOCI,"TIPOASOC"),
|
|
||||||
FLD(LF_SOCI,"CODANAGRSO","@@@@@"),
|
|
||||||
FLD(LF_ANAG,"RAGSOC",0,29));
|
|
||||||
set_row(2,"@20g@bNome@r @s@53g@bCod.fisc.@r @s",
|
|
||||||
FLD(LF_ANAG,"RAGSOC",30,50),
|
|
||||||
FLD(LF_ANAG,"COFI"));
|
|
||||||
set_row(3,"");
|
|
||||||
|
|
||||||
b1 = anaf->get_date("DATANASC").string(full);
|
|
||||||
b2 = anaf->get("SESSO");
|
|
||||||
/* b3 = anaf->get("STATONASC").empty() ?
|
|
||||||
"Italiana" : anaf->get("STATONASC");
|
|
||||||
*/
|
|
||||||
// set_row(4,"Nascita@20gData@30g%S@42gSesso %S@53gCittadinanza %S",
|
|
||||||
set_row(4,"Nascita@20gData@30g%S@42gSesso %S",
|
|
||||||
(const char*)b1,
|
|
||||||
(const char*)b2);
|
|
||||||
// (const char*)b3);
|
|
||||||
|
|
||||||
b1 = com.get("DENCOM");
|
b1 = com.get("DENCOM");
|
||||||
b2 = com.get("PROVCOM");
|
b2 = com.get("PROVCOM");
|
||||||
|
b3 = com.get("CAPCOM");
|
||||||
set_row(5,"@20gComune@30g%S@53gProvincia %S",
|
|
||||||
|
set_row(rw+1,"Residenza@20gIndirizzo @S", FLD(LF_ANAG,"INDRES"));
|
||||||
|
set_row(rw+2,"@20gComune %S@53gProvincia %S@68gC.a.p. %S",
|
||||||
(const char*)b1,
|
(const char*)b1,
|
||||||
(const char*)b2);
|
(const char*)b2,
|
||||||
rw = 6;
|
(const char*)b3);
|
||||||
|
|
||||||
codconiuge = "Cod.coniuge ";
|
set_row(rw+3,"");
|
||||||
codconiuge << anaf->get("CODCONIUGE");
|
|
||||||
|
|
||||||
if (_pr_what == anafis)
|
TString car = look_tab("%CRS",soc.get("CODCAR"));
|
||||||
{ anaf->setkey(kk); anaf->readat(rn); }
|
|
||||||
else delete anaf;
|
set_row(rw+4,"Carica@20gCod. @pN@30g%s@62gScadenza @lD",
|
||||||
|
FLD(LF_SOCI,"CODCAR","@@"),
|
||||||
|
(const char*)car,
|
||||||
|
FLD(LF_SOCI,"SCADCAR"));
|
||||||
|
|
||||||
|
set_row(rw+5,"Azioni@20gN.quote @N = @7.3N%% Redd. @7.3N%% Perd. @7.3N%%",
|
||||||
|
FLD(LF_SOCI,"NQUOTEAZ"),
|
||||||
|
FLD(LF_SOCI,"PERCQUAZ"),
|
||||||
|
FLD(LF_SOCI,"PERCAZREDD"),
|
||||||
|
FLD(LF_SOCI,"PERCAZPERD"));
|
||||||
|
set_row(rw+6,"@20gTitolo proprieta' @S Emolumento @pN",
|
||||||
|
FLD(LF_SOCI,"TITPROP"),
|
||||||
|
FLD(LF_SOCI,"EMOLUMENTO","###.###.###.###"));
|
||||||
|
set_row(rw+7,"%% rit.su dividendi @7.3n%% Tipo azione @s "
|
||||||
|
"Partecipaz. assemblea @f",
|
||||||
|
FLD(LF_SOCI,"PERCRITDIV"),
|
||||||
|
FLD(LF_SOCI,"TIPOAZ"),
|
||||||
|
FLD(LF_SOCI,"PARTASS"));
|
||||||
|
set_row(rw+8,"Modello 740 @s @57g%s",
|
||||||
|
FLD(LF_SOCI,"Q740"),
|
||||||
|
(const char*)codconiuge);
|
||||||
|
set_row(rw+9,"Attiv. prevalente @f@37gQuadro 750 @s @53g"
|
||||||
|
"Mesi lavorati art.120 c1 @2n",
|
||||||
|
FLD(LF_SOCI,"ATTPREV"),
|
||||||
|
FLD(LF_SOCI,"QUATTPREV"),
|
||||||
|
FLD(LF_SOCI,"MLAV120C1"));
|
||||||
|
|
||||||
|
set_row(rw+10,"@20gRichiesta qualifica @s@53gMesi lavorati art.120 c2 @2n",
|
||||||
|
FLD(LF_SOCI,"RICQUAL"),
|
||||||
|
FLD(LF_SOCI,"MLAV120C2"));
|
||||||
|
set_row(rw+11,"Note@20g@s", FLD(LF_SOCI,"NOTE"));
|
||||||
|
set_row(rw+12,"Data ultimo agg. @20gAnagrafica @d @53gSocio @d",
|
||||||
|
FLD(LF_ANAG,"DATAAGG"),
|
||||||
|
FLD(LF_SOCI,"DATAAGG"));
|
||||||
|
set_row(rw+13,""); set_row(rw+14,"");
|
||||||
}
|
}
|
||||||
else
|
|
||||||
{
|
|
||||||
set_row(1,"@bSOCIO@r @S / @pN@20gR.soc. @s",
|
|
||||||
FLD(LF_SOCI,"TIPOASOC"),
|
|
||||||
FLD(LF_SOCI,"CODANAGRSO","@@@@@"),
|
|
||||||
FLD(LF_ANAG,"RAGSOC"));
|
|
||||||
set_row(2,"@20gCod.fisc. @s P.IVA @s",
|
|
||||||
FLD(LF_ANAG,"COFI"),
|
|
||||||
FLD(LF_ANAG,"PAIV"));
|
|
||||||
rw = 3;
|
|
||||||
}
|
|
||||||
set_row(rw,"");
|
|
||||||
|
|
||||||
TRectype& com = look_com(ana.get("COMRES"));
|
|
||||||
|
|
||||||
b1 = com.get("DENCOM");
|
|
||||||
b2 = com.get("PROVCOM");
|
|
||||||
b3 = com.get("CAPCOM");
|
|
||||||
|
|
||||||
set_row(rw+1,"Residenza@20gIndirizzo @S", FLD(LF_ANAG,"INDRES"));
|
|
||||||
set_row(rw+2,"@20gComune %S@53gProvincia %S@68gC.a.p. %S",
|
|
||||||
(const char*)b1,
|
|
||||||
(const char*)b2,
|
|
||||||
(const char*)b3);
|
|
||||||
|
|
||||||
set_row(rw+3,"");
|
|
||||||
|
|
||||||
TString car = look_tab("%CRS",soc.get("CODCAR"));
|
|
||||||
|
|
||||||
set_row(rw+4,"Carica@20gCod. @pN@30g%s@62gScadenza @lD",
|
|
||||||
FLD(LF_SOCI,"CODCAR","@@"),
|
|
||||||
(const char*)car,
|
|
||||||
FLD(LF_SOCI,"SCADCAR"));
|
|
||||||
|
|
||||||
set_row(rw+5,"Azioni@20gN.quote @N = @7.3N%% Redd. @7.3N%% Perd. @7.3N%%",
|
|
||||||
FLD(LF_SOCI,"NQUOTEAZ"),
|
|
||||||
FLD(LF_SOCI,"PERCQUAZ"),
|
|
||||||
FLD(LF_SOCI,"PERCAZREDD"),
|
|
||||||
FLD(LF_SOCI,"PERCAZPERD"));
|
|
||||||
set_row(rw+6,"@20gTitolo proprieta' @S Emolumento @pN",
|
|
||||||
FLD(LF_SOCI,"TITPROP"),
|
|
||||||
FLD(LF_SOCI,"EMOLUMENTO","###.###.###.###"));
|
|
||||||
set_row(rw+7,"%% rit.su dividendi @7.3n%% Tipo azione @s "
|
|
||||||
"Partecipaz. assemblea @f",
|
|
||||||
FLD(LF_SOCI,"PERCRITDIV"),
|
|
||||||
FLD(LF_SOCI,"TIPOAZ"),
|
|
||||||
FLD(LF_SOCI,"PARTASS"));
|
|
||||||
set_row(rw+8,"Modello 740 @s @57g%s",
|
|
||||||
FLD(LF_SOCI,"Q740"),
|
|
||||||
(const char*)codconiuge);
|
|
||||||
set_row(rw+9,"Attiv. prevalente @f@37gQuadro 750 @s @53g"
|
|
||||||
"Mesi lavorati art.120 c1 @2n",
|
|
||||||
FLD(LF_SOCI,"ATTPREV"),
|
|
||||||
FLD(LF_SOCI,"QUATTPREV"),
|
|
||||||
FLD(LF_SOCI,"MLAV120C1"));
|
|
||||||
|
|
||||||
set_row(rw+10,"@20gRichiesta qualifica @s@53gMesi lavorati art.120 c2 @2n",
|
|
||||||
FLD(LF_SOCI,"RICQUAL"),
|
|
||||||
FLD(LF_SOCI,"MLAV120C2"));
|
|
||||||
set_row(rw+11,"Note@20g@s", FLD(LF_SOCI,"NOTE"));
|
|
||||||
set_row(rw+12,"Data ultimo agg. @20gAnagrafica @d @53gSocio @d",
|
|
||||||
FLD(LF_ANAG,"DATAAGG"),
|
|
||||||
FLD(LF_SOCI,"DATAAGG"));
|
|
||||||
set_row(rw+13,""); set_row(rw+14,"");
|
|
||||||
|
|
||||||
ana.setkey(k);
|
ana.setkey(k);
|
||||||
ana.readat(rno);
|
ana.readat(rno);
|
||||||
}
|
}
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user