Ultimissima cazzatina
git-svn-id: svn://10.65.10.50/trunk@2699 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
b7b9d5d29d
commit
364401f662
@ -546,13 +546,16 @@ 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
|
if (ana.read() == NOERR)
|
||||||
TString zio = ana.get("CODANAGR"); zio.insert("Socio ", 0);
|
{
|
||||||
|
|
||||||
|
TString zio("Socio ");
|
||||||
|
zio << soc.get("CODANAGRSO");
|
||||||
|
zio << "("; zio << soc.get("TIPOASOC") << "): ";
|
||||||
|
zio << ana.get("RAGSOC");
|
||||||
_bk_socio = set_bookmark(zio, _bk_ditta);
|
_bk_socio = set_bookmark(zio, _bk_ditta);
|
||||||
|
|
||||||
|
|
||||||
TString codconiuge = "";
|
TString codconiuge = "";
|
||||||
TLocalisamfile* anaf;
|
TLocalisamfile* anaf;
|
||||||
|
|
||||||
@ -675,6 +678,7 @@ void TAnaprint_app::set_scheda_socio()
|
|||||||
FLD(LF_ANAG,"DATAAGG"),
|
FLD(LF_ANAG,"DATAAGG"),
|
||||||
FLD(LF_SOCI,"DATAAGG"));
|
FLD(LF_SOCI,"DATAAGG"));
|
||||||
set_row(rw+13,""); set_row(rw+14,"");
|
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