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

Ultimissima cazzatina

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2699 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1996-03-26 10:37:15 +00:00
parent b7b9d5d29d
commit 364401f662
1 changed files with 121 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

238
ba/ba6101.cpp
View File

@ -546,136 +546,140 @@ void TAnaprint_app::set_scheda_socio()
ana.zero();
ana.put("TIPOA",soc.get("TIPOASOC"));
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);
TString codconiuge = "";
TLocalisamfile* anaf;
if (soc.get("TIPOASOC") == "F")
if (ana.read() == NOERR)
{
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 = &current_cursor()->file(LF_ANAGFIS);
rn = anaf->recno();
kk = anaf->getkey();
TRecnotype rn = 0; int kk = 1;
if (_pr_what == anafis)
{
anaf = &current_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
{
anaf = new TLocalisamfile(LF_ANAGFIS);
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;
}
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);
set_row(rw,"");
TRectype& com = look_com(ana.get("COMRES"));
b1 = com.get("DENCOM");
b2 = com.get("PROVCOM");
set_row(5,"@20gComune@30g%S@53gProvincia %S",
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);
rw = 6;
(const char*)b2,
(const char*)b3);
codconiuge = "Cod.coniuge ";
codconiuge << anaf->get("CODCONIUGE");
set_row(rw+3,"");
if (_pr_what == anafis)
{ anaf->setkey(kk); anaf->readat(rn); }
else delete anaf;
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,"");
}
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.readat(rno);
}