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);
rxp.add("CODANAGR=CODANAGR");
rxp.add("CODANAGR==CODANAGR");
_rel_fis->add(LF_ANAGFIS,rxp);
_rel_giu->add(LF_ANAGGIU,rxp);
rxp.add("TIPOA=TIPOA");
rxp.add("TIPOA==TIPOA");
_rel_fis->add(LF_NDITTE, rxp, 4);
_rel_giu->add(LF_NDITTE, rxp, 4);
@ -482,7 +482,7 @@ bool TAnaprint_app::user_create()
p.addstatus(1);
// add unloc & attiv
rxp = "CODDITTA=CODDITTA";
rxp = "CODDITTA==CODDITTA";
_rel_fis->add(LF_ATTIV, 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
END
STRING FLD_DITTE_RAGSOCFR 29
STRING FLD_DITTE_RAGSOCFR 50 29
BEGIN
PROMPT 34 6 ""
USE LF_NDITTE KEY 2
@ -199,7 +199,7 @@ BEGIN
GROUP 3 5
END
STRING FLD_DITTE_RAGSOCTO 29
STRING FLD_DITTE_RAGSOCTO 50 29
BEGIN
PROMPT 34 8 ""
COPY USE FLD_DITTE_RAGSOCFR

267
ba/ba6101.cpp
View File

@ -115,70 +115,97 @@ void TAnaprint_app::set_scheda_anagiu()
set_row(28,"@20gCodice contribuente @10s",
FLD(LF_ANAG,"CODCONTR"));
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
set_row(31,"Dati atto costitutivo e statuto"); set_row(32,"");
set_row(33,"Estremi@20g@60s", FLD(LF_ANAGGIU,"ESTROMOL"));
set_row(34,"Omologa@25g@ld@41gData iscrizione@70g@ld",
set_row(35,"Dati atto costitutivo e statuto"); set_row(36,"");
set_row(37,"Estremi@20g@60s", FLD(LF_ANAGGIU,"ESTROMOL"));
set_row(38,"Omologa@25g@ld@41gData iscrizione@70g@ld",
FLD(LF_ANAGGIU,"DATAOMOL"),
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,"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,"DATAAPPBIL"));
set_row(37,"Scad.org.amministrativo@25g@d@41gScadenza collegio "
set_row(41,"Scad.org.amministrativo@25g@d@41gScadenza collegio "
"sindacale@70g@d",
FLD(LF_ANAGGIU,"DATASORAMM"),
FLD(LF_ANAGGIU,"DATASCSIND"));
// set_row(38,"Fine esercizio@25g@d", FLD(LF_ANAGGIU,"???"));
set_row(39,"");
set_row(40,"@5gCapit.sociale@24gCapit.versato@47g"
set_row(43,"");
set_row(44,"@5gCapit.sociale@24gCapit.versato@47g"
"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,"CAPVER","###.###.###.###.###"),
FLD(LF_ANAGGIU,"FATT","###.###.###.###.###"),
FLD(LF_ANAGGIU,"NAZIONI"),
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"));
set_row(44,"@20gEventi naturali eccezionali@61g@s",
set_row(48,"@20gEventi naturali eccezionali@61g@s",
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"));
// *TBI* traduzione natura giuridica
set_row(46,"@20gNatura giuridica@61g@s",
set_row(50,"@20gNatura giuridica@61g@s",
FLD(LF_ANAGGIU,"NATGIU"));
set_row(47,"@20gStato societa'@51g@20,rt",
set_row(51,"@20gStato societa'@51g@20,rt",
FLD(LF_ANAGGIU,"STATOSOC"));
set_row(48,"@20gSituazione societa'@51g@20,rt",
set_row(52,"@20gSituazione societa'@51g@20,rt",
FLD(LF_ANAGGIU,"SITSOC"));
set_row(49,"");
a = look_tab("%SST",current_cursor()->curr(LF_ANAG).get("CODSTAT1"),"S0");
set_row(50,"@20gSigla stat.1 @pn %-50s",
FLD(LF_ANAG,"CODSTAT1","@@@@@@@"), (const char*)a);
a = look_tab("%SST",current_cursor()->curr(LF_ANAG).get("CODSTAT2"),"S0");
set_row(51,"@20gSigla stat.2 @pn %-50s",
FLD(LF_ANAG,"CODSTAT2","@@@@@@@"), (const char*)a);
a = look_tab("%SST",current_cursor()->curr(LF_ANAG).get("CODSTAT3"),"S0");
set_row(52,"@20gSigla stat.3 @pn %-50s",
FLD(LF_ANAG,"CODSTAT3","@@@@@@@"), (const char*)a);
set_row(53,"");
a = look_tab("%STT",current_cursor()->curr(LF_ANAG).get("CODSTAT1"),"S0");
set_row(54,"@20gSigla stat.1 @7s %-50s",
FLD(LF_ANAG,"CODSTAT1"), (const char*)a);
a = look_tab("%STT",current_cursor()->curr(LF_ANAG).get("CODSTAT2"),"S0");
set_row(55,"@20gSigla stat.2 @7s %-50s",
FLD(LF_ANAG,"CODSTAT2"), (const char*)a);
a = look_tab("%STT",current_cursor()->curr(LF_ANAG).get("CODSTAT3"),"S0");
set_row(56,"@20gSigla stat.3 @7s %-50s",
FLD(LF_ANAG,"CODSTAT3"), (const char*)a);
// NOTE
set_row(53,"");
set_row(54,"Note attivato storico");
set_row(55,"@6g@70s",FLD(LF_ANAGGIU,"NOTE1"));
set_row(56,"@6g@70s",FLD(LF_ANAGGIU,"NOTE2"));
set_row(57,"@6g@70s",FLD(LF_ANAGGIU,"NOTE3"));
set_row(58,"@6g@70s",FLD(LF_ANAGGIU,"NOTE4"));
set_row(59,"@6g@70s",FLD(LF_ANAGGIU,"NOTE5"));
set_row(57,"");
set_row(58,"Note");
set_row(59,"@6g@70s",FLD(LF_ANAGGIU,"NOTE1"));
set_row(60,"@6g@70s",FLD(LF_ANAGGIU,"NOTE2"));
set_row(61,"@6g@70s",FLD(LF_ANAGGIU,"NOTE3"));
set_row(62,"@6g@70s",FLD(LF_ANAGGIU,"NOTE4"));
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, "");
}
@ -323,34 +350,58 @@ void TAnaprint_app::set_scheda_anafis()
(const char*)a);
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");
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(32,"Dati Statistici@20gNon residente@53g@f",
set_row(37,"Dati Statistici@20gNon residente@53g@f",
FLD(LF_ANAG,"SOGGNRES"));
set_row(33,"@20gEventi naturali eccezionali@53g@s",
set_row(38,"@20gEventi naturali eccezionali@53g@s",
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"));
set_row(35,"@20gStato civile@53g@t",
set_row(40,"@20gStato civile@53g@t",
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"));
set_row(37,"@20gTitolo di studio@53g@t",
set_row(42,"@20gTitolo di studio@53g@t",
FLD(LF_ANAGFIS,"TITSTU"));
// 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");
set_row(42,"@20gSigla stat.1 @pn %s",
FLD(LF_ANAG,"CODSTAT1","@@@@@@@"), (const char*)a);
a = look_tab("%SST",current_cursor()->curr(LF_ANAG).get("CODSTAT2"),"S0");
set_row(43,"@20gSigla stat.2 @pn ",
FLD(LF_ANAG,"CODSTAT2","@@@@@@@"), (const char*)a);
a = look_tab("%SST",current_cursor()->curr(LF_ANAG).get("CODSTAT3"),"S0");
set_row(44,"@20gSigla stat.3 @pn ",
FLD(LF_ANAG,"CODSTAT3","@@@@@@@"), (const char*)a);
set_row(47,"@20gSigla stat.1 @7s %s",
FLD(LF_ANAG,"CODSTAT1"), (const char*)a);
a = look_tab("%STT",current_cursor()->curr(LF_ANAG).get("CODSTAT2"),"S0");
set_row(48,"@20gSigla stat.2 @7s %s",
FLD(LF_ANAG,"CODSTAT2"), (const char*)a);
a = look_tab("%STT",current_cursor()->curr(LF_ANAG).get("CODSTAT3"),"S0");
set_row(49,"@20gSigla stat.3 @7s %s",
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, "");
}
@ -388,25 +439,43 @@ void TAnaprint_app::set_scheda_ditta()
FLD(LF_NDITTE,"DATLAV"));
set_row(9,"@20gData inizio attivita'@54g@D",
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,"PTEL"),
FLD(LF_NDITTE,"TEL"));
set_row(11,"@20gGestione magazzino @f",
set_row(13,"@20gGestione magazzino @f",
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,"NENASARCO"));
set_row(13,"");
set_row(15,"");
/* TBI: banca di appoggio */
set_row(14,"Stato@20g@t",FLD(LF_NDITTE,"STATOSOC"));
set_row(15,""); set_row(16,"");
set_row(16,"Stato@20g@t",FLD(LF_NDITTE,"STATOSOC"));
set_row(17,""); set_row(18,"");
}
void TAnaprint_app::set_scheda_attiv()
{
TString dio = look_tab("%AIS",current_cursor()->
curr(LF_ATTIV).get("CODATT"),"S0");
TString dio(current_cursor()->curr(LF_ATTIV).get("DESCR"));
_bk_attiv = set_bookmark(dio, _bk_ditta);
set_row(1,"@bATTIVITA'@r @pn@20g@bDescrizione:@r %s",
@ -438,15 +507,20 @@ void TAnaprint_app::set_scheda_attiv()
af.setkey(1);
af.put("CODANAGR",com);
af.put("TIPOA",a);
af.read();
const bool exists = af.read() == NOERR;
TString b = af.get("RAGSOC");
com = af.get("INDRF");
TString z = af.get("CIVRF");
if (com.empty()) com = af.get("INDRES");
TString c = af.get("COMRF");
if (c.empty) c = af.get("COMRES");
if (z.empty) z = af.get("CIVRES");
TString b,z,c;
com = "";
if (exists) // legge i dati del depositario solo se l'anagrafica esiste...
{
b = af.get("RAGSOC");
com = af.get("INDRES");
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);
af.readat(last);
@ -457,7 +531,7 @@ void TAnaprint_app::set_scheda_attiv()
c == 'F' ? "p.f." : "p.g.",
(const char*)b);
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",
(const char*)a, (const char*)b, (const char*)c);
set_row(13,"@20gTenuta scritture parziali@68g@f",
@ -549,11 +623,16 @@ void TAnaprint_app::set_scheda_socio()
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 ");
zio << soc.get("CODANAGRSO");
zio << "("; zio << soc.get("TIPOASOC") << "): ";
zio << ana.get("RAGSOC");
zio << ragsoc;
_bk_socio = set_bookmark(zio, _bk_ditta);
TString codconiuge = "";
@ -562,7 +641,11 @@ void TAnaprint_app::set_scheda_socio()
if (soc.get("TIPOASOC") == "F")
{
TRecnotype rn = 0; int kk = 1;
TString ragsoc1 = ragsoc.left(30);
TString ragsoc2 = ragsoc.right(20);
ragsoc1.trim();
ragsoc2.trim();
if (_pr_what == anafis)
{
anaf = &current_cursor()->file(LF_ANAGFIS);
@ -579,14 +662,16 @@ void TAnaprint_app::set_scheda_socio()
anaf->read();
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,"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,"");
(const char*)ragsoc1);
set_row(2,"@20g@bNome@r %s@53g@bCod.fisc.@r %s",
(const char*)ragsoc2,
(const char*)cofi);
set_row(3,"@20g@bSocio anno %s@r ", pre_att == 'P' ? "precedente" : "attuale");
set_row(4,"");
b1 = anaf->get_date("DATANASC").string(full);
b2 = anaf->get("SESSO");
@ -594,7 +679,7 @@ void TAnaprint_app::set_scheda_socio()
"Italiana" : anaf->get("STATONASC");
*/
// 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*)b2);
// (const char*)b3);
@ -602,10 +687,10 @@ void TAnaprint_app::set_scheda_socio()
b1 = com.get("DENCOM");
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*)b2);
rw = 6;
rw = 7;
codconiuge = "Cod.coniuge ";
codconiuge << anaf->get("CODCONIUGE");
@ -616,14 +701,15 @@ void TAnaprint_app::set_scheda_socio()
}
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,"CODANAGRSO","@@@@@"),
FLD(LF_ANAG,"RAGSOC"));
set_row(2,"@20gCod.fisc. @s P.IVA @s",
FLD(LF_ANAG,"COFI"),
FLD(LF_ANAG,"PAIV"));
rw = 3;
(const char*)ragsoc);
set_row(2,"@20gCod.fisc. %s P.IVA %s",
(const char*)cofi,
(const char*)paiv);
set_row(3,"@20g@bSocio anno %s@r ", pre_att == 'P' ? "precedente" : "attuale");
rw = 4;
}
set_row(rw,"");
@ -633,7 +719,7 @@ void TAnaprint_app::set_scheda_socio()
b2 = com.get("PROVCOM");
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",
(const char*)b1,
(const char*)b2,
@ -642,7 +728,8 @@ void TAnaprint_app::set_scheda_socio()
set_row(rw+3,"");
TString car = look_tab("%CRS",soc.get("CODCAR"));
TString dataagg(ana.get("DATAAGG"));
set_row(rw+4,"Carica@20gCod. @pN@30g%s@62gScadenza @lD",
FLD(LF_SOCI,"CODCAR","@@"),
(const char*)car,
@ -674,8 +761,8 @@ void TAnaprint_app::set_scheda_socio()
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"),
set_row(rw+12,"Data ultimo agg. @20gAnagrafica %s @53gSocio @d",
(const char*)dataagg,
FLD(LF_SOCI,"DATAAGG"));
set_row(rw+13,""); set_row(rw+14,"");
}
@ -752,7 +839,7 @@ void TAnaprint_app::set_elenco()
break;
case nditte:
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,"TIPOA"),
FLD(LF_ANAG, "CODANAGR", "@@@@@"),
@ -805,7 +892,7 @@ void TAnaprint_app::set_headers()
set_header(5,(const char*)sep);
#endif
set_header(1,"@bELENCO DITTE@82gStudio@96gData"
"@101g @< @110 @#");
"@101g @< @110g Pag. @#");
set_header(3,"@iCodice@50gT");
set_header(4,"@iAnagr. Denominazione sociale@50gP Codice"
"@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);
if (_terrmon != 0)
set_row (1,"@56g%d", _terrmon);
set_row (1,"@56g%s", _terrmon == 1 ? "M" : "PM");
if (_uffiidd1 != 0)
set_row (1,"@65g%03d", _uffiidd1);

3
ba/ba6200a.uml
View File

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