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

Corretti errori sulla stampa anagrafiche:

Browse Source 
5121,5848,5866,5849,5861,5862,5864, 5887 (in realta' andrebbe tolto
il codice relativo all'Italia),5850,5897,5860,5905,5899,5900.


git-svn-id: svn://10.65.10.50/trunk@3443 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-08-26 08:32:59 +00:00
parent 35c8a53895
commit bfbd4f6293
5 changed files with 186 additions and 96 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ba/ba6100.cpp
View File

@ -468,12 +468,12 @@ bool TAnaprint_app::user_create()
p.addstatus(1); p.addstatus(1);
rxp.add("CODANAGR=CODANAGR"); rxp.add("CODANAGR==CODANAGR");
_rel_fis->add(LF_ANAGFIS,rxp); _rel_fis->add(LF_ANAGFIS,rxp);
_rel_giu->add(LF_ANAGGIU,rxp); _rel_giu->add(LF_ANAGGIU,rxp);
rxp.add("TIPOA=TIPOA"); rxp.add("TIPOA==TIPOA");
_rel_fis->add(LF_NDITTE, rxp, 4); _rel_fis->add(LF_NDITTE, rxp, 4);
_rel_giu->add(LF_NDITTE, rxp, 4); _rel_giu->add(LF_NDITTE, rxp, 4);
@ -482,7 +482,7 @@ bool TAnaprint_app::user_create()
p.addstatus(1); p.addstatus(1);
// add unloc & attiv // add unloc & attiv
rxp = "CODDITTA=CODDITTA"; rxp = "CODDITTA==CODDITTA";
_rel_fis->add(LF_ATTIV, rxp, 1, LF_NDITTE); _rel_fis->add(LF_ATTIV, rxp, 1, LF_NDITTE);
_rel_fis->add(LF_UNLOC, rxp, 1, LF_NDITTE); _rel_fis->add(LF_UNLOC, rxp, 1, LF_NDITTE);

4
ba/ba6100a.uml
View File

@ -185,7 +185,7 @@ BEGIN
GROUP 3 4 GROUP 3 4
END END
STRING FLD_DITTE_RAGSOCFR 29 STRING FLD_DITTE_RAGSOCFR 50 29
BEGIN BEGIN
PROMPT 34 6 "" PROMPT 34 6 ""
USE LF_NDITTE KEY 2 USE LF_NDITTE KEY 2
@ -199,7 +199,7 @@ BEGIN
GROUP 3 5 GROUP 3 5
END END
STRING FLD_DITTE_RAGSOCTO 29 STRING FLD_DITTE_RAGSOCTO 50 29
BEGIN BEGIN
PROMPT 34 8 "" PROMPT 34 8 ""
COPY USE FLD_DITTE_RAGSOCFR COPY USE FLD_DITTE_RAGSOCFR

265
ba/ba6101.cpp
View File

@ -116,69 +116,96 @@ void TAnaprint_app::set_scheda_anagiu()
FLD(LF_ANAG,"CODCONTR")); FLD(LF_ANAG,"CODCONTR"));
set_row(29,""); set_row(30,""); set_row(29,""); set_row(30,"");
//Qui la stampa dei dati conto fiscale
TString16 tipo_stampa;
const int tipo = current_cursor()->curr(LF_ANAG).get_int("TIPOSTDEL");
if (tipo == 0) tipo_stampa = "Delega";
else if (tipo == 1) tipo_stampa = "Bollettino";
else tipo_stampa = "Distinta";
set_row(32,"Dati conto fiscale @20gTitolare conto fiscale @54g@f @60gTipo stampa %s",
FLD(LF_ANAG,"TITCF"), (const char*) tipo_stampa);
set_row(33,"@20gCodice ABI @pn @60gCAB @pn",
FLD(LF_ANAG,"CODABI","@@@@@"), FLD(LF_ANAG,"CODCAB","@@@@@"));
tipo_stampa = current_cursor()->curr(LF_ANAG).get("UFFCONC");
if (tipo_stampa.empty())
{
TString cod = current_cursor()->curr(LF_ANAG).get("COMRF");
if (cod.empty())
cod = current_cursor()->curr(LF_ANAG).get("COMRES");
if (cod.not_empty())
{
cc = look_com(cod);
tipo_stampa = cc.get("UFFCONC");
}
}
set_row(34,"@20gConto fiscale %s @s",
(const char*)tipo_stampa, FLD(LF_ANAG,"COFI"));
// dati atto costitutivo etc // dati atto costitutivo etc
set_row(31,"Dati atto costitutivo e statuto"); set_row(32,""); set_row(35,"Dati atto costitutivo e statuto"); set_row(36,"");
set_row(33,"Estremi@20g@60s", FLD(LF_ANAGGIU,"ESTROMOL")); set_row(37,"Estremi@20g@60s", FLD(LF_ANAGGIU,"ESTROMOL"));
set_row(34,"Omologa@25g@ld@41gData iscrizione@70g@ld", set_row(38,"Omologa@25g@ld@41gData iscrizione@70g@ld",
FLD(LF_ANAGGIU,"DATAOMOL"), FLD(LF_ANAGGIU,"DATAOMOL"),
FLD(LF_ANAGGIU,"DATAISCRIZ")); FLD(LF_ANAGGIU,"DATAISCRIZ"));
set_row(35,"Data costituzione@25g@ld@41gDurata sino@70g@ld", set_row(39,"Data costituzione@25g@ld@41gDurata sino@70g@ld",
FLD(LF_ANAGGIU,"DATACOST"), FLD(LF_ANAGGIU,"DATACOST"),
FLD(LF_ANAGGIU,"DATASCAD")); FLD(LF_ANAGGIU,"DATASCAD"));
set_row(36,"Termine appr. bilancio@25g@d@41gApprovazione bilancio@70g@d", set_row(40,"Termine appr. bilancio@25g@d@41gApprovazione bilancio@70g@d",
FLD(LF_ANAGGIU,"DATATAPPBI"), FLD(LF_ANAGGIU,"DATATAPPBI"),
FLD(LF_ANAGGIU,"DATAAPPBIL")); FLD(LF_ANAGGIU,"DATAAPPBIL"));
set_row(37,"Scad.org.amministrativo@25g@d@41gScadenza collegio " set_row(41,"Scad.org.amministrativo@25g@d@41gScadenza collegio "
"sindacale@70g@d", "sindacale@70g@d",
FLD(LF_ANAGGIU,"DATASORAMM"), FLD(LF_ANAGGIU,"DATASORAMM"),
FLD(LF_ANAGGIU,"DATASCSIND")); FLD(LF_ANAGGIU,"DATASCSIND"));
// set_row(38,"Fine esercizio@25g@d", FLD(LF_ANAGGIU,"???")); // set_row(38,"Fine esercizio@25g@d", FLD(LF_ANAGGIU,"???"));
set_row(39,""); set_row(43,"");
set_row(40,"@5gCapit.sociale@24gCapit.versato@47g" set_row(44,"@5gCapit.sociale@24gCapit.versato@47g"
"Fatturato@65gN.azioni@74gValore"); "Fatturato@65gN.azioni@74gValore");
set_row(41,"@pn @pn @pn @61g@n @pn", set_row(45,"@pn @pn @pn @61g@n @pn",
FLD(LF_ANAGGIU,"CAPSOC","###.###.###.###.###"), FLD(LF_ANAGGIU,"CAPSOC","###.###.###.###.###"),
FLD(LF_ANAGGIU,"CAPVER","###.###.###.###.###"), FLD(LF_ANAGGIU,"CAPVER","###.###.###.###.###"),
FLD(LF_ANAGGIU,"FATT","###.###.###.###.###"), FLD(LF_ANAGGIU,"FATT","###.###.###.###.###"),
FLD(LF_ANAGGIU,"NAZIONI"), FLD(LF_ANAGGIU,"NAZIONI"),
FLD(LF_ANAGGIU,"VALNOM","###.###.###.###")); FLD(LF_ANAGGIU,"VALNOM","###.###.###.###"));
set_row(42,""); set_row(46,"");
set_row(43,"Dati Statistici@20gNon residente@61g@f", set_row(47,"Dati Statistici@20gNon residente@61g@f",
FLD(LF_ANAG,"SOGGNRES")); FLD(LF_ANAG,"SOGGNRES"));
set_row(44,"@20gEventi naturali eccezionali@61g@s", set_row(48,"@20gEventi naturali eccezionali@61g@s",
FLD(LF_ANAG,"EVECC")); FLD(LF_ANAG,"EVECC"));
set_row(45,"@20gResidente in zone terremotate@61g@f", set_row(49,"@20gResidente in zone terremotate@61g@f",
FLD(LF_ANAG,"RESZTERR")); FLD(LF_ANAG,"RESZTERR"));
// *TBI* traduzione natura giuridica // *TBI* traduzione natura giuridica
set_row(46,"@20gNatura giuridica@61g@s", set_row(50,"@20gNatura giuridica@61g@s",
FLD(LF_ANAGGIU,"NATGIU")); FLD(LF_ANAGGIU,"NATGIU"));
set_row(47,"@20gStato societa'@51g@20,rt", set_row(51,"@20gStato societa'@51g@20,rt",
FLD(LF_ANAGGIU,"STATOSOC")); FLD(LF_ANAGGIU,"STATOSOC"));
set_row(48,"@20gSituazione societa'@51g@20,rt", set_row(52,"@20gSituazione societa'@51g@20,rt",
FLD(LF_ANAGGIU,"SITSOC")); FLD(LF_ANAGGIU,"SITSOC"));
set_row(49,""); set_row(53,"");
a = look_tab("%SST",current_cursor()->curr(LF_ANAG).get("CODSTAT1"),"S0"); a = look_tab("%STT",current_cursor()->curr(LF_ANAG).get("CODSTAT1"),"S0");
set_row(50,"@20gSigla stat.1 @pn %-50s", set_row(54,"@20gSigla stat.1 @7s %-50s",
FLD(LF_ANAG,"CODSTAT1","@@@@@@@"), (const char*)a); FLD(LF_ANAG,"CODSTAT1"), (const char*)a);
a = look_tab("%SST",current_cursor()->curr(LF_ANAG).get("CODSTAT2"),"S0"); a = look_tab("%STT",current_cursor()->curr(LF_ANAG).get("CODSTAT2"),"S0");
set_row(51,"@20gSigla stat.2 @pn %-50s", set_row(55,"@20gSigla stat.2 @7s %-50s",
FLD(LF_ANAG,"CODSTAT2","@@@@@@@"), (const char*)a); FLD(LF_ANAG,"CODSTAT2"), (const char*)a);
a = look_tab("%SST",current_cursor()->curr(LF_ANAG).get("CODSTAT3"),"S0"); a = look_tab("%STT",current_cursor()->curr(LF_ANAG).get("CODSTAT3"),"S0");
set_row(52,"@20gSigla stat.3 @pn %-50s", set_row(56,"@20gSigla stat.3 @7s %-50s",
FLD(LF_ANAG,"CODSTAT3","@@@@@@@"), (const char*)a); FLD(LF_ANAG,"CODSTAT3"), (const char*)a);
// NOTE // NOTE
set_row(53,""); set_row(57,"");
set_row(54,"Note attivato storico"); set_row(58,"Note");
set_row(55,"@6g@70s",FLD(LF_ANAGGIU,"NOTE1")); set_row(59,"@6g@70s",FLD(LF_ANAGGIU,"NOTE1"));
set_row(56,"@6g@70s",FLD(LF_ANAGGIU,"NOTE2")); set_row(60,"@6g@70s",FLD(LF_ANAGGIU,"NOTE2"));
set_row(57,"@6g@70s",FLD(LF_ANAGGIU,"NOTE3")); set_row(61,"@6g@70s",FLD(LF_ANAGGIU,"NOTE3"));
set_row(58,"@6g@70s",FLD(LF_ANAGGIU,"NOTE4")); set_row(62,"@6g@70s",FLD(LF_ANAGGIU,"NOTE4"));
set_row(59,"@6g@70s",FLD(LF_ANAGGIU,"NOTE5")); set_row(63,"@6g@70s",FLD(LF_ANAGGIU,"NOTE5"));
for (int i = 60; i <= printer().formlen(); i++) for (int i = 64; i <= printer().formlen(); i++)
set_row(i, ""); set_row(i, "");
} }
@ -323,34 +350,58 @@ void TAnaprint_app::set_scheda_anafis()
(const char*)a); (const char*)a);
set_row(31,"@20gNome %s", (const char*)b); set_row(31,"@20gNome %s", (const char*)b);
TString16 tipo_stampa;
const int tipo = current_cursor()->curr(LF_ANAG).get_int("TIPOSTDEL");
if (tipo == 0) tipo_stampa = "Delega";
else if (tipo == 1) tipo_stampa = "Bollettino";
else tipo_stampa = "Distinta";
set_row(33,"Dati conto fiscale @20gTitolare conto fiscale @54g@f @60gTipo stampa %s",
FLD(LF_ANAG,"TITCF"), (const char*) tipo_stampa);
set_row(34,"@20gCodice ABI @pn @60gCAB @pn",
FLD(LF_ANAG,"CODABI","@@@@@"), FLD(LF_ANAG,"CODCAB","@@@@@"));
tipo_stampa = current_cursor()->curr(LF_ANAG).get("UFFCONC");
if (tipo_stampa.empty())
{
TString cod = current_cursor()->curr(LF_ANAG).get("COMRF");
set_row(32,"Dati Statistici@20gNon residente@53g@f", if (cod.empty())
cod = current_cursor()->curr(LF_ANAG).get("COMRES");
if (cod.not_empty())
{
cc = look_com(cod);
tipo_stampa = cc.get("UFFCONC");
}
}
set_row(35,"@20gConto fiscale %s @s",
(const char*)tipo_stampa, FLD(LF_ANAG,"COFI"));
set_row(37,"Dati Statistici@20gNon residente@53g@f",
FLD(LF_ANAG,"SOGGNRES")); FLD(LF_ANAG,"SOGGNRES"));
set_row(33,"@20gEventi naturali eccezionali@53g@s", set_row(38,"@20gEventi naturali eccezionali@53g@s",
FLD(LF_ANAG,"EVECC")); FLD(LF_ANAG,"EVECC"));
set_row(34,"@20gResidente in zone terremotate@53g@f", set_row(39,"@20gResidente in zone terremotate@53g@f",
FLD(LF_ANAG,"RESZTERR")); FLD(LF_ANAG,"RESZTERR"));
set_row(35,"@20gStato civile@53g@t", set_row(40,"@20gStato civile@53g@t",
FLD(LF_ANAGFIS,"STATCIV")); FLD(LF_ANAGFIS,"STATCIV"));
set_row(36,"@20gData variazione stato civile@53g@D", set_row(41,"@20gData variazione stato civile@53g@D",
FLD(LF_ANAGFIS,"DVARSCIV")); FLD(LF_ANAGFIS,"DVARSCIV"));
set_row(37,"@20gTitolo di studio@53g@t", set_row(42,"@20gTitolo di studio@53g@t",
FLD(LF_ANAGFIS,"TITSTU")); FLD(LF_ANAGFIS,"TITSTU"));
// set_row(37,"@20gProvincia lavoro dipendente@61g@s"); // set_row(37,"@20gProvincia lavoro dipendente@61g@s");
set_row(38,""); set_row(39,""); set_row(40,""); set_row(41,""); set_row(43,""); set_row(44,""); set_row(45,""); set_row(46,"");
a = look_tab("%SST", a = look_tab("%STT",
current_cursor()->curr(LF_ANAG).get("CODSTAT1"),"S0"); current_cursor()->curr(LF_ANAG).get("CODSTAT1"),"S0");
set_row(42,"@20gSigla stat.1 @pn %s", set_row(47,"@20gSigla stat.1 @7s %s",
FLD(LF_ANAG,"CODSTAT1","@@@@@@@"), (const char*)a); FLD(LF_ANAG,"CODSTAT1"), (const char*)a);
a = look_tab("%SST",current_cursor()->curr(LF_ANAG).get("CODSTAT2"),"S0"); a = look_tab("%STT",current_cursor()->curr(LF_ANAG).get("CODSTAT2"),"S0");
set_row(43,"@20gSigla stat.2 @pn ", set_row(48,"@20gSigla stat.2 @7s %s",
FLD(LF_ANAG,"CODSTAT2","@@@@@@@"), (const char*)a); FLD(LF_ANAG,"CODSTAT2"), (const char*)a);
a = look_tab("%SST",current_cursor()->curr(LF_ANAG).get("CODSTAT3"),"S0"); a = look_tab("%STT",current_cursor()->curr(LF_ANAG).get("CODSTAT3"),"S0");
set_row(44,"@20gSigla stat.3 @pn ", set_row(49,"@20gSigla stat.3 @7s %s",
FLD(LF_ANAG,"CODSTAT3","@@@@@@@"), (const char*)a); FLD(LF_ANAG,"CODSTAT3"), (const char*)a);
for (int i = 45; i <= printer().formlen(); i++) for (int i = 50; i <= printer().formlen(); i++)
set_row(i, ""); set_row(i, "");
} }
@ -388,25 +439,43 @@ void TAnaprint_app::set_scheda_ditta()
FLD(LF_NDITTE,"DATLAV")); FLD(LF_NDITTE,"DATLAV"));
set_row(9,"@20gData inizio attivita'@54g@D", set_row(9,"@20gData inizio attivita'@54g@D",
FLD(LF_NDITTE,"DINIZIOATT")); FLD(LF_NDITTE,"DINIZIOATT"));
set_row(10,"Altri dati@20gRiferimento @u@s@r @54gTel. @u@4S@r/@u@S@r",
long codice = current_cursor()->curr(LF_NDITTE).get_long("FIRMAT");
TString firmat,rappr;
TLocalisamfile ana(LF_ANAG);
ana.put("TIPOA", "F");
ana.put("CODANAGR",codice);
if (ana.read() == NOERR)
firmat = ana.get("RAGSOC");
firmat.strip_d_spaces();
set_row(10,"Firmatario@20g@s @30g%s",FLD(LF_NDITTE,"FIRMAT"),(const char *)firmat);
codice = current_cursor()->curr(LF_NDITTE).get_long("RAPPR");
ana.put("TIPOA", "F");
ana.put("CODANAGR",codice);
if (ana.read() == NOERR)
rappr = ana.get("RAGSOC");
rappr.strip_d_spaces();
set_row(11,"Rappresentante@20g@s @30g%s",FLD(LF_NDITTE,"RAPPR"),(const char *)rappr);
set_row(12,"Altri dati@20gRiferimento @u@s@r @54gTel. @u@4S@r/@u@S@r",
FLD(LF_NDITTE,"PERRIF"), FLD(LF_NDITTE,"PERRIF"),
FLD(LF_NDITTE,"PTEL"), FLD(LF_NDITTE,"PTEL"),
FLD(LF_NDITTE,"TEL")); FLD(LF_NDITTE,"TEL"));
set_row(11,"@20gGestione magazzino @f", set_row(13,"@20gGestione magazzino @f",
FLD(LF_NDITTE,"REGMAG")); FLD(LF_NDITTE,"REGMAG"));
set_row(12,"@20gNumero unita' locali @n@54gNum.enasarco @s", set_row(14,"@20gNumero unita' locali @n@54gNum.enasarco @s",
FLD(LF_NDITTE,"NULC"), FLD(LF_NDITTE,"NULC"),
FLD(LF_NDITTE,"NENASARCO")); FLD(LF_NDITTE,"NENASARCO"));
set_row(13,""); set_row(15,"");
/* TBI: banca di appoggio */ /* TBI: banca di appoggio */
set_row(14,"Stato@20g@t",FLD(LF_NDITTE,"STATOSOC")); set_row(16,"Stato@20g@t",FLD(LF_NDITTE,"STATOSOC"));
set_row(15,""); set_row(16,""); set_row(17,""); set_row(18,"");
} }
void TAnaprint_app::set_scheda_attiv() void TAnaprint_app::set_scheda_attiv()
{ {
TString dio = look_tab("%AIS",current_cursor()-> TString dio(current_cursor()->curr(LF_ATTIV).get("DESCR"));
curr(LF_ATTIV).get("CODATT"),"S0");
_bk_attiv = set_bookmark(dio, _bk_ditta); _bk_attiv = set_bookmark(dio, _bk_ditta);
set_row(1,"@bATTIVITA'@r @pn@20g@bDescrizione:@r %s", set_row(1,"@bATTIVITA'@r @pn@20g@bDescrizione:@r %s",
@ -438,15 +507,20 @@ void TAnaprint_app::set_scheda_attiv()
af.setkey(1); af.setkey(1);
af.put("CODANAGR",com); af.put("CODANAGR",com);
af.put("TIPOA",a); af.put("TIPOA",a);
af.read(); const bool exists = af.read() == NOERR;
TString b = af.get("RAGSOC"); TString b,z,c;
com = af.get("INDRF"); com = "";
TString z = af.get("CIVRF"); if (exists) // legge i dati del depositario solo se l'anagrafica esiste...
if (com.empty()) com = af.get("INDRES"); {
TString c = af.get("COMRF"); b = af.get("RAGSOC");
if (c.empty) c = af.get("COMRES"); com = af.get("INDRES");
if (z.empty) z = af.get("CIVRES"); z = af.get("CIVRES");
c = af.get("COMRES");
if (com.empty()) com = af.get("INDRF");
if (c.empty) c = af.get("COMRF");
if (z.empty) z = af.get("CIVRF");
}
TRectype& cm = look_com(c); TRectype& cm = look_com(c);
af.readat(last); af.readat(last);
@ -457,7 +531,7 @@ void TAnaprint_app::set_scheda_attiv()
c == 'F' ? "p.f." : "p.g.", c == 'F' ? "p.f." : "p.g.",
(const char*)b); (const char*)b);
set_row(11,"@20gIndirizzo %s N. %s", (const char*)com, (const char*)z); set_row(11,"@20gIndirizzo %s N. %s", (const char*)com, (const char*)z);
a = cm.get("DENCOM"); b = cm.get("PROVCOM"); c = cm.get("CAPCOM"); a = exists ? cm.get("DENCOM") : ""; b = exists ? cm.get("PROVCOM") : ""; c = exists ? cm.get("CAPCOM") : "";
set_row(12,"@20gComune %s@53gProvincia %s@68gC.a.p. %s", set_row(12,"@20gComune %s@53gProvincia %s@68gC.a.p. %s",
(const char*)a, (const char*)b, (const char*)c); (const char*)a, (const char*)b, (const char*)c);
set_row(13,"@20gTenuta scritture parziali@68g@f", set_row(13,"@20gTenuta scritture parziali@68g@f",
@ -549,11 +623,16 @@ void TAnaprint_app::set_scheda_socio()
if (ana.read() == NOERR) if (ana.read() == NOERR)
{ {
TString ragsoc(ana.get("RAGSOC"));
TString indres(ana.get("INDRES"));
TString cofi(ana.get("COFI"));
TString paiv(ana.get("PAIV"));
const char pre_att = soc.get("ATTPREC")[0];
TString zio("Socio "); TString zio("Socio ");
zio << soc.get("CODANAGRSO"); zio << soc.get("CODANAGRSO");
zio << "("; zio << soc.get("TIPOASOC") << "): "; zio << "("; zio << soc.get("TIPOASOC") << "): ";
zio << ana.get("RAGSOC"); zio << ragsoc;
_bk_socio = set_bookmark(zio, _bk_ditta); _bk_socio = set_bookmark(zio, _bk_ditta);
TString codconiuge = ""; TString codconiuge = "";
@ -562,7 +641,11 @@ void TAnaprint_app::set_scheda_socio()
if (soc.get("TIPOASOC") == "F") if (soc.get("TIPOASOC") == "F")
{ {
TRecnotype rn = 0; int kk = 1; TRecnotype rn = 0; int kk = 1;
TString ragsoc1 = ragsoc.left(30);
TString ragsoc2 = ragsoc.right(20);
ragsoc1.trim();
ragsoc2.trim();
if (_pr_what == anafis) if (_pr_what == anafis)
{ {
anaf = &current_cursor()->file(LF_ANAGFIS); anaf = &current_cursor()->file(LF_ANAGFIS);
@ -579,14 +662,16 @@ void TAnaprint_app::set_scheda_socio()
anaf->read(); anaf->read();
TRectype& com = look_com(anaf->get("COMNASC")); TRectype& com = look_com(anaf->get("COMNASC"));
set_row(1,"@bSOCIO@r @s / @pn@20g@bCognome@r @s", set_row(1,"@bSOCIO@r @s / @pn@20g@bCognome@r %s",
FLD(LF_SOCI,"TIPOASOC"), FLD(LF_SOCI,"TIPOASOC"),
FLD(LF_SOCI,"CODANAGRSO","@@@@@"), FLD(LF_SOCI,"CODANAGRSO","@@@@@"),
FLD(LF_ANAG,"RAGSOC",0,29)); (const char*)ragsoc1);
set_row(2,"@20g@bNome@r @s@53g@bCod.fisc.@r @s", set_row(2,"@20g@bNome@r %s@53g@bCod.fisc.@r %s",
FLD(LF_ANAG,"RAGSOC",30,50), (const char*)ragsoc2,
FLD(LF_ANAG,"COFI")); (const char*)cofi);
set_row(3,"");
set_row(3,"@20g@bSocio anno %s@r ", pre_att == 'P' ? "precedente" : "attuale");
set_row(4,"");
b1 = anaf->get_date("DATANASC").string(full); b1 = anaf->get_date("DATANASC").string(full);
b2 = anaf->get("SESSO"); b2 = anaf->get("SESSO");
@ -594,7 +679,7 @@ void TAnaprint_app::set_scheda_socio()
"Italiana" : anaf->get("STATONASC"); "Italiana" : anaf->get("STATONASC");
*/ */
// set_row(4,"Nascita@20gData@30g%S@42gSesso %S@53gCittadinanza %S", // set_row(4,"Nascita@20gData@30g%S@42gSesso %S@53gCittadinanza %S",
set_row(4,"Nascita@20gData@30g%S@42gSesso %S", set_row(5,"Nascita@20gData@30g%S@42gSesso %S",
(const char*)b1, (const char*)b1,
(const char*)b2); (const char*)b2);
// (const char*)b3); // (const char*)b3);
@ -602,10 +687,10 @@ void TAnaprint_app::set_scheda_socio()
b1 = com.get("DENCOM"); b1 = com.get("DENCOM");
b2 = com.get("PROVCOM"); b2 = com.get("PROVCOM");
set_row(5,"@20gComune@30g%S@53gProvincia %S", set_row(6,"@20gComune@30g%S@53gProvincia %S",
(const char*)b1, (const char*)b1,
(const char*)b2); (const char*)b2);
rw = 6; rw = 7;
codconiuge = "Cod.coniuge "; codconiuge = "Cod.coniuge ";
codconiuge << anaf->get("CODCONIUGE"); codconiuge << anaf->get("CODCONIUGE");
@ -616,14 +701,15 @@ void TAnaprint_app::set_scheda_socio()
} }
else else
{ {
set_row(1,"@bSOCIO@r @S / @pN@20gR.soc. @s", set_row(1,"@bSOCIO@r @S / @pN@20gR.soc. %s",
FLD(LF_SOCI,"TIPOASOC"), FLD(LF_SOCI,"TIPOASOC"),
FLD(LF_SOCI,"CODANAGRSO","@@@@@"), FLD(LF_SOCI,"CODANAGRSO","@@@@@"),
FLD(LF_ANAG,"RAGSOC")); (const char*)ragsoc);
set_row(2,"@20gCod.fisc. @s P.IVA @s", set_row(2,"@20gCod.fisc. %s P.IVA %s",
FLD(LF_ANAG,"COFI"), (const char*)cofi,
FLD(LF_ANAG,"PAIV")); (const char*)paiv);
rw = 3; set_row(3,"@20g@bSocio anno %s@r ", pre_att == 'P' ? "precedente" : "attuale");
rw = 4;
} }
set_row(rw,""); set_row(rw,"");
@ -633,7 +719,7 @@ void TAnaprint_app::set_scheda_socio()
b2 = com.get("PROVCOM"); b2 = com.get("PROVCOM");
b3 = com.get("CAPCOM"); b3 = com.get("CAPCOM");
set_row(rw+1,"Residenza@20gIndirizzo @S", FLD(LF_ANAG,"INDRES")); set_row(rw+1,"Residenza@20gIndirizzo %S", (const char*)indres);
set_row(rw+2,"@20gComune %S@53gProvincia %S@68gC.a.p. %S", set_row(rw+2,"@20gComune %S@53gProvincia %S@68gC.a.p. %S",
(const char*)b1, (const char*)b1,
(const char*)b2, (const char*)b2,
@ -642,6 +728,7 @@ void TAnaprint_app::set_scheda_socio()
set_row(rw+3,""); set_row(rw+3,"");
TString car = look_tab("%CRS",soc.get("CODCAR")); TString car = look_tab("%CRS",soc.get("CODCAR"));
TString dataagg(ana.get("DATAAGG"));
set_row(rw+4,"Carica@20gCod. @pN@30g%s@62gScadenza @lD", set_row(rw+4,"Carica@20gCod. @pN@30g%s@62gScadenza @lD",
FLD(LF_SOCI,"CODCAR","@@"), FLD(LF_SOCI,"CODCAR","@@"),
@ -674,8 +761,8 @@ void TAnaprint_app::set_scheda_socio()
FLD(LF_SOCI,"RICQUAL"), FLD(LF_SOCI,"RICQUAL"),
FLD(LF_SOCI,"MLAV120C2")); FLD(LF_SOCI,"MLAV120C2"));
set_row(rw+11,"Note@20g@s", FLD(LF_SOCI,"NOTE")); set_row(rw+11,"Note@20g@s", FLD(LF_SOCI,"NOTE"));
set_row(rw+12,"Data ultimo agg. @20gAnagrafica @d @53gSocio @d", set_row(rw+12,"Data ultimo agg. @20gAnagrafica %s @53gSocio @d",
FLD(LF_ANAG,"DATAAGG"), (const char*)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,"");
} }
@ -752,7 +839,7 @@ void TAnaprint_app::set_elenco()
break; break;
case nditte: case nditte:
set_row(1,"$[r]@pN$[n]@10g@S@50g@S @pN@3j@S", set_row(1,"$[r]@pN$[n]@10g@S@50g@S @pN@3j@S",
FLD(LF_NDITTE,"CODDITTA","@@@@"), FLD(LF_NDITTE,"CODDITTA","@@@@@"),
FLD(LF_NDITTE,"RAGSOC"), FLD(LF_NDITTE,"RAGSOC"),
FLD(LF_NDITTE,"TIPOA"), FLD(LF_NDITTE,"TIPOA"),
FLD(LF_ANAG, "CODANAGR", "@@@@@"), FLD(LF_ANAG, "CODANAGR", "@@@@@"),
@ -805,7 +892,7 @@ void TAnaprint_app::set_headers()
set_header(5,(const char*)sep); set_header(5,(const char*)sep);
#endif #endif
set_header(1,"@bELENCO DITTE@82gStudio@96gData" set_header(1,"@bELENCO DITTE@82gStudio@96gData"
"@101g @< @110 @#"); "@101g @< @110g Pag. @#");
set_header(3,"@iCodice@50gT"); set_header(3,"@iCodice@50gT");
set_header(4,"@iAnagr. Denominazione sociale@50gP Codice" set_header(4,"@iAnagr. Denominazione sociale@50gP Codice"
"@61gRagione sociale/Cognome e nome"); "@61gRagione sociale/Cognome e nome");

2
ba/ba6200.cpp
View File

@ -86,7 +86,7 @@ bool BA6200_application::preprocess_page(int file, int counter)
set_row (1,"@46g%6s", (const char*) _codistat); set_row (1,"@46g%6s", (const char*) _codistat);
if (_terrmon != 0) if (_terrmon != 0)
set_row (1,"@56g%d", _terrmon); set_row (1,"@56g%s", _terrmon == 1 ? "M" : "PM");
if (_uffiidd1 != 0) if (_uffiidd1 != 0)
set_row (1,"@65g%03d", _uffiidd1); set_row (1,"@65g%03d", _uffiidd1);

3
ba/ba6200a.uml
View File

@ -49,6 +49,7 @@ END
STRING F_CODICEINI 4 STRING F_CODICEINI 4
BEGIN BEGIN
PROMPT 20 6 "" PROMPT 20 6 ""
FLAGS "U"
HELP "Codice del comune da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice del comune da cui iniziare la stampa. Vuoto = inizio archivio"
COPY USE F_STATOINI COPY USE F_STATOINI
INPUT STATO F_STATOINI INPUT STATO F_STATOINI
@ -76,6 +77,7 @@ STRING F_CODICEFINE 4
BEGIN BEGIN
PROMPT 54 6 "" PROMPT 54 6 ""
HELP "Codice del comune a cui terminare la stampa. Vuoto = fine archivio" HELP "Codice del comune a cui terminare la stampa. Vuoto = fine archivio"
FLAGS "U"
COPY USE F_STATOINI COPY USE F_STATOINI
INPUT STATO F_STATOFINE INPUT STATO F_STATOFINE
INPUT COM F_CODICEFINE INPUT COM F_CODICEFINE
@ -122,6 +124,7 @@ END
BOOLEAN F_STAMPAALICI BOOLEAN F_STAMPAALICI
BEGIN BEGIN
PROMPT 1 11 "Stampa le aliquote I.C.I. " PROMPT 1 11 "Stampa le aliquote I.C.I. "
FLAGS "H"
HELP "Stampa anche le aliquote I.C.I. dei vari comuni" HELP "Stampa anche le aliquote I.C.I. dei vari comuni"
END END