Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : Stampa per categorie: configurazione stampante per etichette normali e per notiziario + aggiunto due categorie donatori git-svn-id: svn://10.65.10.50/trunk@7703 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
cdb37cef28
commit
bd5d062287
196
at/at2700.cpp
196
at/at2700.cpp
@ -14,6 +14,7 @@
|
|||||||
|
|
||||||
#include "at2.h"
|
#include "at2.h"
|
||||||
#include "at2700a.h"
|
#include "at2700a.h"
|
||||||
|
#include "atlib.h"
|
||||||
|
|
||||||
#include "at4100b.h"
|
#include "at4100b.h"
|
||||||
#include "at4100c.h"
|
#include "at4100c.h"
|
||||||
@ -35,7 +36,7 @@
|
|||||||
|
|
||||||
#define ETI_COGNOME 3 // numero campo cognome e nome in etichetta (deve essere sempre cosi') per famiglie
|
#define ETI_COGNOME 3 // numero campo cognome e nome in etichetta (deve essere sempre cosi') per famiglie
|
||||||
|
|
||||||
enum ts { undefined=0, sintetico=1, completo=2, schede=3, etichette=4, cartoline=5, personale=6 };
|
enum ts { undefined=0, sintetico=1, completo=2, schede=3, etichette=4, cartoline=5, personale=6, notiziario=7 };
|
||||||
|
|
||||||
// definizione form per etichette
|
// definizione form per etichette
|
||||||
class TEti_percat_form : public TForm
|
class TEti_percat_form : public TForm
|
||||||
@ -65,6 +66,7 @@ class TStampaPerCategorie : public TPrintapp
|
|||||||
TRecord_array* _sbenemerenze;
|
TRecord_array* _sbenemerenze;
|
||||||
TRecord_array* _sfamiglia;
|
TRecord_array* _sfamiglia;
|
||||||
TEti_percat_form* _form_eti;
|
TEti_percat_form* _form_eti;
|
||||||
|
TEti_percat_form* _form_neti;
|
||||||
TEti_percat_form* _form_car;
|
TEti_percat_form* _form_car;
|
||||||
TEti_percat_form* _form_sch;
|
TEti_percat_form* _form_sch;
|
||||||
TEti_percat_form* _form_per;
|
TEti_percat_form* _form_per;
|
||||||
@ -78,12 +80,12 @@ class TStampaPerCategorie : public TPrintapp
|
|||||||
TString16 _lettini, _lettfin, _capini, _capfin;
|
TString16 _lettini, _lettfin, _capini, _capfin;
|
||||||
TString16 _gruppoazie, _gruppoold;
|
TString16 _gruppoazie, _gruppoold;
|
||||||
bool _pergruppo, _perfamiglie;
|
bool _pergruppo, _perfamiglie;
|
||||||
int _contatore;
|
long _contatore;
|
||||||
TString16 _codsez, _codsot, _orario, _datacart;
|
TString16 _codsez, _codsot, _orario, _datacart;
|
||||||
TString80 _invitoper, _data, _presso1, _presso2, _presso3, _presso4;
|
TString80 _invitoper, _data, _presso1, _presso2, _presso3, _presso4;
|
||||||
TString80 _note, _intest1, _intest2, _intest3, _intest4;
|
TString80 _note, _intest1, _intest2, _intest3, _intest4;
|
||||||
bool _usomodo, _usasez;
|
bool _usomodo, _usasez;
|
||||||
int _etlarghezza, _etcolonne, _schxpag, _lenpage;
|
int _etlarghezza, _etcolonne, _schxpag, _lenpage, _etnlarghezza, _etncolonne;
|
||||||
bool _stampa80, _etictot;
|
bool _stampa80, _etictot;
|
||||||
|
|
||||||
protected:
|
protected:
|
||||||
@ -180,12 +182,22 @@ void TStampaPerCategorie::filtra_sezioni()
|
|||||||
void TStampaPerCategorie::footer_gruppo()
|
void TStampaPerCategorie::footer_gruppo()
|
||||||
{
|
{
|
||||||
// stampa totale soggetti appartenenti al gruppo
|
// stampa totale soggetti appartenenti al gruppo
|
||||||
if (_tipostampa == etichette && _etictot)
|
if ((_tipostampa==etichette || _tipostampa==notiziario) && _etictot)
|
||||||
{
|
{
|
||||||
TString80 totale = format("TOTALE %d", _contatore);
|
TPrint_section& corpo = _form_eti->get_body();
|
||||||
TPrintrow riga;
|
if (_tipostampa==notiziario)
|
||||||
riga.put(totale);
|
corpo = _form_neti->get_body();
|
||||||
printer().print(riga);
|
TPrintrow riga;
|
||||||
|
for (word i = 0; i < corpo.height(); i++)
|
||||||
|
{
|
||||||
|
riga.reset();
|
||||||
|
if (i==0)
|
||||||
|
{
|
||||||
|
TString80 totale = format("TOTALE %d", _contatore);
|
||||||
|
riga.put(totale);
|
||||||
|
}
|
||||||
|
printer().print(riga);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
@ -216,12 +228,22 @@ print_action TStampaPerCategorie::postprocess_print(int file, int counter)
|
|||||||
void TStampaPerCategorie::footer_sezione()
|
void TStampaPerCategorie::footer_sezione()
|
||||||
{
|
{
|
||||||
// stampa totale soggetti appartenenti alla sezione
|
// stampa totale soggetti appartenenti alla sezione
|
||||||
if (_tipostampa == etichette && _etictot)
|
if ((_tipostampa==etichette || _tipostampa==notiziario) && _etictot)
|
||||||
{
|
{
|
||||||
TString80 totale = format("TOTALE %d", _contatore);
|
TPrint_section& corpo = _form_eti->get_body();
|
||||||
TPrintrow riga;
|
if (_tipostampa==notiziario)
|
||||||
riga.put(totale);
|
corpo = _form_neti->get_body();
|
||||||
printer().print(riga);
|
TPrintrow riga;
|
||||||
|
for (word i = 0; i < corpo.height(); i++)
|
||||||
|
{
|
||||||
|
riga.reset();
|
||||||
|
if (i==0)
|
||||||
|
{
|
||||||
|
TString80 totale = format("TOTALE %d", _contatore);
|
||||||
|
riga.put(totale);
|
||||||
|
}
|
||||||
|
printer().print(riga);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
@ -275,6 +297,7 @@ void TStampaPerCategorie::set_page(int file, int cnt)
|
|||||||
TForm_item& cognome = corpo.find_field(ETI_COGNOME);
|
TForm_item& cognome = corpo.find_field(ETI_COGNOME);
|
||||||
cognome.set(_cognome_nome);
|
cognome.set(_cognome_nome);
|
||||||
corpo.update();
|
corpo.update();
|
||||||
|
_contatore++;
|
||||||
for (word i = 0; i < corpo.height(); i++)
|
for (word i = 0; i < corpo.height(); i++)
|
||||||
{
|
{
|
||||||
TPrintrow& riga = corpo.row(i);
|
TPrintrow& riga = corpo.row(i);
|
||||||
@ -302,6 +325,55 @@ void TStampaPerCategorie::set_page(int file, int cnt)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
|
case notiziario:
|
||||||
|
{
|
||||||
|
TPrint_section& corpo = _form_neti->get_body();
|
||||||
|
for (int r=1;r<=_etncolonne;r++)
|
||||||
|
{
|
||||||
|
if (current_cursor()->pos()<current_cursor()->items())
|
||||||
|
{
|
||||||
|
bool avanza = TRUE;
|
||||||
|
while (avanza)
|
||||||
|
{
|
||||||
|
if (current_cursor()->pos()<current_cursor()->items())
|
||||||
|
avanza = !(preprocess_page(file, cnt));
|
||||||
|
else
|
||||||
|
avanza = FALSE;
|
||||||
|
if (avanza)
|
||||||
|
++(*current_cursor());
|
||||||
|
}
|
||||||
|
force_setpage(TRUE);
|
||||||
|
TForm_item& cognome = corpo.find_field(ETI_COGNOME);
|
||||||
|
cognome.set(_cognome_nome);
|
||||||
|
corpo.update();
|
||||||
|
_contatore++;
|
||||||
|
for (word i = 0; i < corpo.height(); i++)
|
||||||
|
{
|
||||||
|
TPrintrow& riga = corpo.row(i);
|
||||||
|
TString256 riga1 = riga.row();
|
||||||
|
riga1.cut(_etnlarghezza);
|
||||||
|
int colonna = ((r-1)*_etnlarghezza);
|
||||||
|
TString16 formato;
|
||||||
|
formato << '@' << colonna << 'g';
|
||||||
|
riga1.insert(formato,0);
|
||||||
|
set_row(i+1,riga1);
|
||||||
|
}
|
||||||
|
if (r < _etncolonne)
|
||||||
|
{
|
||||||
|
bool avanza = TRUE;
|
||||||
|
while (avanza)
|
||||||
|
{
|
||||||
|
++(*current_cursor());
|
||||||
|
if (current_cursor()->pos()<current_cursor()->items())
|
||||||
|
avanza = !(preprocess_page(file, cnt));
|
||||||
|
else
|
||||||
|
avanza = FALSE;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
break;
|
||||||
case personale:
|
case personale:
|
||||||
{
|
{
|
||||||
TPrint_section& corpo = _form_per->get_body();
|
TPrint_section& corpo = _form_per->get_body();
|
||||||
@ -513,7 +585,7 @@ bool TStampaPerCategorie::filter_func_percat(const TRelation* rel)
|
|||||||
if (app()._catdon.items() == 0 && app()._catnondon.items() == 0)
|
if (app()._catdon.items() == 0 && app()._catnondon.items() == 0)
|
||||||
filtrato = TRUE;
|
filtrato = TRUE;
|
||||||
// filtro per iniziale cognome
|
// filtro per iniziale cognome
|
||||||
if (filtrato && (!app()._lettini.blank()) && (!app()._lettfin.blank()))
|
if (filtrato && ((!app()._lettini.blank()) || (!app()._lettfin.blank())))
|
||||||
{
|
{
|
||||||
TString80 cognome = sog.get(SOG_COGNOME);
|
TString80 cognome = sog.get(SOG_COGNOME);
|
||||||
int leni = app()._lettini.len();
|
int leni = app()._lettini.len();
|
||||||
@ -533,11 +605,14 @@ void TStampaPerCategorie::header_sezione(const TString16 codsez, const TString16
|
|||||||
TString intestazione(132);
|
TString intestazione(132);
|
||||||
intestazione = "Sezione: ";
|
intestazione = "Sezione: ";
|
||||||
intestazione << codsez;
|
intestazione << codsez;
|
||||||
intestazione << '/';
|
if (!codsot.blank())
|
||||||
intestazione << codsot;
|
{
|
||||||
|
intestazione << '/';
|
||||||
|
intestazione << codsot;
|
||||||
|
}
|
||||||
intestazione << ' ';
|
intestazione << ' ';
|
||||||
intestazione << densez;
|
intestazione << densez;
|
||||||
if ((densot.ok())&& (densot.not_empty()))
|
if (!densot.blank())
|
||||||
{
|
{
|
||||||
intestazione << '/';
|
intestazione << '/';
|
||||||
intestazione << densot;
|
intestazione << densot;
|
||||||
@ -560,19 +635,12 @@ bool TStampaPerCategorie::preprocess_page(int file, int counter)
|
|||||||
nome << recsog.get(SOG_NOME);
|
nome << recsog.get(SOG_NOME);
|
||||||
_cognome_nome = nome;
|
_cognome_nome = nome;
|
||||||
TString256 localita = "";
|
TString256 localita = "";
|
||||||
localita << current_cursor()->curr(-ALIAS_LCPDOM).get("S6");
|
localita << recsog.get(SOG_DOM_CAP);
|
||||||
if (localita.not_empty() && localita.ok())
|
localita << " ";
|
||||||
{
|
if (!recsog.get(SOG_DOM_CODLOC).blank())
|
||||||
localita << ' ';
|
|
||||||
localita << current_cursor()->curr(-ALIAS_LCPDOM).get("S0");
|
localita << current_cursor()->curr(-ALIAS_LCPDOM).get("S0");
|
||||||
localita << " - ";
|
|
||||||
}
|
|
||||||
else
|
else
|
||||||
{
|
localita << current_cursor()->curr(LF_COMUNI).get(COM_DENCOM);
|
||||||
localita = current_cursor()->curr(LF_COMUNI).get(COM_CAPCOM);
|
|
||||||
localita << ' ';
|
|
||||||
}
|
|
||||||
localita << current_cursor()->curr(LF_COMUNI).get(COM_DENCOM);
|
|
||||||
localita << ' ' << current_cursor()->curr(LF_COMUNI).get(COM_PROVCOM);
|
localita << ' ' << current_cursor()->curr(LF_COMUNI).get(COM_PROVCOM);
|
||||||
localita.trim();
|
localita.trim();
|
||||||
_dencom = localita;
|
_dencom = localita;
|
||||||
@ -636,7 +704,9 @@ bool TStampaPerCategorie::preprocess_page(int file, int counter)
|
|||||||
if (_tipostampa==etichette)
|
if (_tipostampa==etichette)
|
||||||
if (printer().rows_left() < _form_eti->get_body().height())
|
if (printer().rows_left() < _form_eti->get_body().height())
|
||||||
printer().formfeed();
|
printer().formfeed();
|
||||||
|
if (_tipostampa==notiziario)
|
||||||
|
if (printer().rows_left() < _form_neti->get_body().height())
|
||||||
|
printer().formfeed();
|
||||||
if (_perfamiglie)
|
if (_perfamiglie)
|
||||||
{
|
{
|
||||||
TRectype& recfam = current_cursor()->curr(LF_FAMIGLIE);
|
TRectype& recfam = current_cursor()->curr(LF_FAMIGLIE);
|
||||||
@ -753,12 +823,15 @@ bool TStampaPerCategorie::preprocess_page(int file, int counter)
|
|||||||
cognome << recsog.get(SOG_NOME);
|
cognome << recsog.get(SOG_NOME);
|
||||||
_cognome_nome = cognome;
|
_cognome_nome = cognome;
|
||||||
}
|
}
|
||||||
_contatore++;
|
if (_tipostampa!=etichette && _tipostampa!=notiziario)
|
||||||
|
_contatore++;
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool TStampaPerCategorie::set_print(int m)
|
bool TStampaPerCategorie::set_print(int m)
|
||||||
{
|
{
|
||||||
|
TPrinter& p = printer();
|
||||||
|
p.read_configuration();
|
||||||
_tipostampa = undefined;
|
_tipostampa = undefined;
|
||||||
KEY tasto;
|
KEY tasto;
|
||||||
tasto = _msk->run();
|
tasto = _msk->run();
|
||||||
@ -779,7 +852,12 @@ bool TStampaPerCategorie::set_print(int m)
|
|||||||
printer().formlen(_lenpage/_schxpag);
|
printer().formlen(_lenpage/_schxpag);
|
||||||
break;
|
break;
|
||||||
case F_ETICHETTE:
|
case F_ETICHETTE:
|
||||||
_tipostampa=etichette;
|
{
|
||||||
|
if (_msk->get_bool(F_NOTIZIARIO))
|
||||||
|
_tipostampa = (configura_stampante(p, "AT_NOTIZIARIO", "et. notiziario")) ? notiziario : undefined;
|
||||||
|
else
|
||||||
|
_tipostampa = (configura_stampante(p, "AT_ETICHETTE", "etichette")) ? etichette : undefined;
|
||||||
|
}
|
||||||
break;
|
break;
|
||||||
case F_CARTOLINE:
|
case F_CARTOLINE:
|
||||||
_tipostampa=cartoline;
|
_tipostampa=cartoline;
|
||||||
@ -789,7 +867,7 @@ bool TStampaPerCategorie::set_print(int m)
|
|||||||
{
|
{
|
||||||
if (_tipostampa == cartoline)
|
if (_tipostampa == cartoline)
|
||||||
dati_cartolina();
|
dati_cartolina();
|
||||||
if (_tipostampa == etichette)
|
if (_tipostampa==etichette || _tipostampa==notiziario)
|
||||||
_cognome_nome.set_width(200);
|
_cognome_nome.set_width(200);
|
||||||
_codsez = "**";
|
_codsez = "**";
|
||||||
_codsot = "**";
|
_codsot = "**";
|
||||||
@ -805,6 +883,8 @@ bool TStampaPerCategorie::set_print(int m)
|
|||||||
_lettini.left(15);
|
_lettini.left(15);
|
||||||
_lettfin = _msk->get(F_LETTFIN);
|
_lettfin = _msk->get(F_LETTFIN);
|
||||||
_lettfin.left(15);
|
_lettfin.left(15);
|
||||||
|
if (_lettfin.blank())
|
||||||
|
_lettfin = "ZZZZZZZZZZZZZZZ";
|
||||||
if (_pergruppo)
|
if (_pergruppo)
|
||||||
{
|
{
|
||||||
_gruppoazie = _msk->get(F_GRUPPOAZIE);
|
_gruppoazie = _msk->get(F_GRUPPOAZIE);
|
||||||
@ -821,8 +901,13 @@ bool TStampaPerCategorie::set_print(int m)
|
|||||||
chiave << "90->CODSEZ|90->CODSOT|UPPER(90->COGNOME)|UPPER(90->NOME)";
|
chiave << "90->CODSEZ|90->CODSOT|UPPER(90->COGNOME)|UPPER(90->NOME)";
|
||||||
}
|
}
|
||||||
TString256 filtro = "";
|
TString256 filtro = "";
|
||||||
if (_gruppoazie.not_empty())
|
if (_pergruppo)
|
||||||
filtro.format("(90->GRUPPOAZIE == \"%s\")",(const char*)_gruppoazie);
|
{
|
||||||
|
if (_gruppoazie.not_empty())
|
||||||
|
filtro.format("(90->GRUPPOAZIE == \"%s\")",(const char*)_gruppoazie);
|
||||||
|
else
|
||||||
|
filtro.format("(90->GRUPPOAZIE != \"\")");
|
||||||
|
}
|
||||||
if (_capini.not_empty())
|
if (_capini.not_empty())
|
||||||
{
|
{
|
||||||
if (filtro.not_empty())
|
if (filtro.not_empty())
|
||||||
@ -835,8 +920,7 @@ bool TStampaPerCategorie::set_print(int m)
|
|||||||
filtro << " && ";
|
filtro << " && ";
|
||||||
filtro << format("(90->DOM_CAP <= \"%s\")",(const char*)_capfin);
|
filtro << format("(90->DOM_CAP <= \"%s\")",(const char*)_capfin);
|
||||||
}
|
}
|
||||||
bool notiziario = _msk->get_bool(F_NOTIZIARIO);
|
if (_tipostampa==notiziario)
|
||||||
if (notiziario)
|
|
||||||
{
|
{
|
||||||
if (filtro.not_empty())
|
if (filtro.not_empty())
|
||||||
filtro << " && ";
|
filtro << " && ";
|
||||||
@ -868,36 +952,42 @@ bool TStampaPerCategorie::set_print(int m)
|
|||||||
const TString16 catqua = _msk->get(F_CAT4);
|
const TString16 catqua = _msk->get(F_CAT4);
|
||||||
const TString16 catqui = _msk->get(F_CAT5);
|
const TString16 catqui = _msk->get(F_CAT5);
|
||||||
const TString16 catses = _msk->get(F_CAT6);
|
const TString16 catses = _msk->get(F_CAT6);
|
||||||
if (catpri.not_empty() && catpri.ok())
|
const TString16 catset = _msk->get(F_CAT7);
|
||||||
|
const TString16 catott = _msk->get(F_CAT8);
|
||||||
|
if (catpri.not_empty())
|
||||||
_catdon.add((const char*) catpri);
|
_catdon.add((const char*) catpri);
|
||||||
if (catsec.not_empty() && catsec.ok())
|
if (catsec.not_empty())
|
||||||
_catdon.add((const char*) catsec);
|
_catdon.add((const char*) catsec);
|
||||||
if (catter.not_empty() && catter.ok())
|
if (catter.not_empty())
|
||||||
_catdon.add((const char*) catter);
|
_catdon.add((const char*) catter);
|
||||||
if (catqua.not_empty() && catqua.ok())
|
if (catqua.not_empty())
|
||||||
_catdon.add((const char*) catqua);
|
_catdon.add((const char*) catqua);
|
||||||
if (catqui.not_empty() && catqui.ok())
|
if (catqui.not_empty())
|
||||||
_catdon.add((const char*) catqui);
|
_catdon.add((const char*) catqui);
|
||||||
if (catses.not_empty() && catses.ok())
|
if (catses.not_empty())
|
||||||
_catdon.add((const char*) catses);
|
_catdon.add((const char*) catses);
|
||||||
_catnondon.destroy();
|
if (catset.not_empty())
|
||||||
|
_catdon.add((const char*) catset);
|
||||||
|
if (catott.not_empty())
|
||||||
|
_catdon.add((const char*) catott);
|
||||||
|
_catnondon.destroy();
|
||||||
const TString16 catnpri = _msk->get(F_CATN1);
|
const TString16 catnpri = _msk->get(F_CATN1);
|
||||||
const TString16 catnsec = _msk->get(F_CATN2);
|
const TString16 catnsec = _msk->get(F_CATN2);
|
||||||
const TString16 catnter = _msk->get(F_CATN3);
|
const TString16 catnter = _msk->get(F_CATN3);
|
||||||
const TString16 catnqua = _msk->get(F_CATN4);
|
const TString16 catnqua = _msk->get(F_CATN4);
|
||||||
const TString16 catnqui = _msk->get(F_CATN5);
|
const TString16 catnqui = _msk->get(F_CATN5);
|
||||||
const TString16 catnses = _msk->get(F_CATN6);
|
const TString16 catnses = _msk->get(F_CATN6);
|
||||||
if (catnpri.not_empty() && catnpri.ok())
|
if (catnpri.not_empty())
|
||||||
_catnondon.add((const char*) catnpri);
|
_catnondon.add((const char*) catnpri);
|
||||||
if (catnsec.not_empty() && catnsec.ok())
|
if (catnsec.not_empty())
|
||||||
_catnondon.add((const char*) catnsec);
|
_catnondon.add((const char*) catnsec);
|
||||||
if (catnter.not_empty() && catnter.ok())
|
if (catnter.not_empty())
|
||||||
_catnondon.add((const char*) catnter);
|
_catnondon.add((const char*) catnter);
|
||||||
if (catnqua.not_empty() && catnqua.ok())
|
if (catnqua.not_empty())
|
||||||
_catnondon.add((const char*) catnqua);
|
_catnondon.add((const char*) catnqua);
|
||||||
if (catnqui.not_empty() && catnqui.ok())
|
if (catnqui.not_empty())
|
||||||
_catnondon.add((const char*) catnqui);
|
_catnondon.add((const char*) catnqui);
|
||||||
if (catnses.not_empty() && catnses.ok())
|
if (catnses.not_empty())
|
||||||
_catnondon.add((const char*) catnses);
|
_catnondon.add((const char*) catnses);
|
||||||
current_cursor()->set_filterfunction (filter_func_percat, TRUE);
|
current_cursor()->set_filterfunction (filter_func_percat, TRUE);
|
||||||
reset_print();
|
reset_print();
|
||||||
@ -1033,6 +1123,10 @@ bool TStampaPerCategorie::user_create()
|
|||||||
_etlarghezza = config.get_int("EtLarghezza");
|
_etlarghezza = config.get_int("EtLarghezza");
|
||||||
_etcolonne = config.get_int("EtColonne");
|
_etcolonne = config.get_int("EtColonne");
|
||||||
_form_eti = new TEti_percat_form(etformato);
|
_form_eti = new TEti_percat_form(etformato);
|
||||||
|
TString16 etnformato = config.get("EtNFormato");
|
||||||
|
_etnlarghezza = config.get_int("EtNLarghezza");
|
||||||
|
_etncolonne = config.get_int("EtNColonne");
|
||||||
|
_form_neti = new TEti_percat_form(etnformato);
|
||||||
_stampa80 = config.get_bool("Stampa80");
|
_stampa80 = config.get_bool("Stampa80");
|
||||||
_etictot = config.get_bool("EticTot");
|
_etictot = config.get_bool("EticTot");
|
||||||
_form_car = new TEti_percat_form("ATCARTO1");
|
_form_car = new TEti_percat_form("ATCARTO1");
|
||||||
|
@ -22,6 +22,10 @@
|
|||||||
#define F_D_CAT5 210
|
#define F_D_CAT5 210
|
||||||
#define F_CAT6 211
|
#define F_CAT6 211
|
||||||
#define F_D_CAT6 212
|
#define F_D_CAT6 212
|
||||||
|
#define F_CAT7 213
|
||||||
|
#define F_D_CAT7 214
|
||||||
|
#define F_CAT8 215
|
||||||
|
#define F_D_CAT8 216
|
||||||
|
|
||||||
#define F_CATN1 301
|
#define F_CATN1 301
|
||||||
#define F_D_CATN1 302
|
#define F_D_CATN1 302
|
||||||
|
100
at/at2700a.uml
100
at/at2700a.uml
@ -163,7 +163,7 @@ BEGIN
|
|||||||
HELP "Sottogruppo finale"
|
HELP "Sottogruppo finale"
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 77 5
|
GROUPBOX DLG_NULL 77 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "Categorie donatori"
|
PROMPT 1 4 "Categorie donatori"
|
||||||
END
|
END
|
||||||
@ -231,7 +231,7 @@ END
|
|||||||
|
|
||||||
STRING F_CAT4 2
|
STRING F_CAT4 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 5 ""
|
PROMPT 2 8 ""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE CTD
|
USE CTD
|
||||||
INPUT CODTAB F_CAT4
|
INPUT CODTAB F_CAT4
|
||||||
@ -245,13 +245,13 @@ END
|
|||||||
|
|
||||||
STRING F_D_CAT4 30
|
STRING F_D_CAT4 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 5 ""
|
PROMPT 8 8 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CAT5 2
|
STRING F_CAT5 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 6 ""
|
PROMPT 40 5 ""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE CTD
|
USE CTD
|
||||||
INPUT CODTAB F_CAT5
|
INPUT CODTAB F_CAT5
|
||||||
@ -265,13 +265,13 @@ END
|
|||||||
|
|
||||||
STRING F_D_CAT5 30
|
STRING F_D_CAT5 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 6 ""
|
PROMPT 46 5 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CAT6 2
|
STRING F_CAT6 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 7 ""
|
PROMPT 40 6 ""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE CTD
|
USE CTD
|
||||||
INPUT CODTAB F_CAT6
|
INPUT CODTAB F_CAT6
|
||||||
@ -284,19 +284,59 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
STRING F_D_CAT6 30
|
STRING F_D_CAT6 30
|
||||||
|
BEGIN
|
||||||
|
PROMPT 46 6 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CAT7 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 40 7 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE CTD
|
||||||
|
INPUT CODTAB F_CAT7
|
||||||
|
COPY DISPLAY F_CAT1
|
||||||
|
OUTPUT F_CAT7 CODTAB
|
||||||
|
OUTPUT F_D_CAT7 S0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Categoria di appartenenza"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_CAT7 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 7 ""
|
PROMPT 46 7 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
STRING F_CAT8 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 40 8 ""
|
||||||
|
FLAGS "U"
|
||||||
|
USE CTD
|
||||||
|
INPUT CODTAB F_CAT8
|
||||||
|
COPY DISPLAY F_CAT1
|
||||||
|
OUTPUT F_CAT8 CODTAB
|
||||||
|
OUTPUT F_D_CAT8 S0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Codice non presente"
|
||||||
|
HELP "Categoria di appartenenza"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_D_CAT8 30
|
||||||
|
BEGIN
|
||||||
|
PROMPT 46 8 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 77 5
|
GROUPBOX DLG_NULL 77 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 9 "Categorie non donatori"
|
PROMPT 1 10 "Categorie non donatori"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CATN1 2
|
STRING F_CATN1 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 ""
|
PROMPT 2 11 ""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE CTN
|
USE CTN
|
||||||
INPUT CODTAB F_CATN1
|
INPUT CODTAB F_CATN1
|
||||||
@ -311,13 +351,13 @@ END
|
|||||||
|
|
||||||
STRING F_D_CATN1 30
|
STRING F_D_CATN1 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 8 10 ""
|
PROMPT 8 11 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CATN2 2
|
STRING F_CATN2 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 11 ""
|
PROMPT 2 12 ""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE CTN
|
USE CTN
|
||||||
INPUT CODTAB F_CATN2
|
INPUT CODTAB F_CATN2
|
||||||
@ -331,13 +371,13 @@ END
|
|||||||
|
|
||||||
STRING F_D_CATN2 30
|
STRING F_D_CATN2 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 8 11 ""
|
PROMPT 8 12 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CATN3 2
|
STRING F_CATN3 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 ""
|
PROMPT 2 13 ""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE CTN
|
USE CTN
|
||||||
INPUT CODTAB F_CATN3
|
INPUT CODTAB F_CATN3
|
||||||
@ -351,13 +391,13 @@ END
|
|||||||
|
|
||||||
STRING F_D_CATN3 30
|
STRING F_D_CATN3 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 8 12 ""
|
PROMPT 8 13 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CATN4 2
|
STRING F_CATN4 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 10 ""
|
PROMPT 40 11 ""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE CTN
|
USE CTN
|
||||||
INPUT CODTAB F_CATN4
|
INPUT CODTAB F_CATN4
|
||||||
@ -371,13 +411,13 @@ END
|
|||||||
|
|
||||||
STRING F_D_CATN4 30
|
STRING F_D_CATN4 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 10 ""
|
PROMPT 46 11 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CATN5 2
|
STRING F_CATN5 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 11 ""
|
PROMPT 40 12 ""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE CTN
|
USE CTN
|
||||||
INPUT CODTAB F_CATN5
|
INPUT CODTAB F_CATN5
|
||||||
@ -391,13 +431,13 @@ END
|
|||||||
|
|
||||||
STRING F_D_CATN5 30
|
STRING F_D_CATN5 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 11 ""
|
PROMPT 46 12 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CATN6 2
|
STRING F_CATN6 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 12 ""
|
PROMPT 40 13 ""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE CTN
|
USE CTN
|
||||||
INPUT CODTAB F_CATN6
|
INPUT CODTAB F_CATN6
|
||||||
@ -411,25 +451,25 @@ END
|
|||||||
|
|
||||||
STRING F_D_CATN6 30
|
STRING F_D_CATN6 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 12 ""
|
PROMPT 46 13 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 77 7
|
GROUPBOX DLG_NULL 77 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 14 "Opzioni di stampa"
|
PROMPT 1 15 "Opzioni di stampa"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_PERGRUPPO
|
BOOLEAN F_PERGRUPPO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 "Stampa per gruppo aziendale"
|
PROMPT 2 16 "Stampa per gruppo aziendale"
|
||||||
MESSAGE TRUE ENABLE,F_GRUPPOAZIE|ENABLE,F_D_GRUPPOAZIE
|
MESSAGE TRUE ENABLE,F_GRUPPOAZIE|ENABLE,F_D_GRUPPOAZIE
|
||||||
MESSAGE FALSE RESET,F_GRUPPOAZIE|RESET,F_D_GRUPPOAZIE|DISABLE,F_GRUPPOAZIE|DISABLE,F_D_GRUPPOAZIE
|
MESSAGE FALSE RESET,F_GRUPPOAZIE|RESET,F_D_GRUPPOAZIE|DISABLE,F_GRUPPOAZIE|DISABLE,F_D_GRUPPOAZIE
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_GRUPPOAZIE 4
|
STRING F_GRUPPOAZIE 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 35 15 ""
|
PROMPT 35 16 ""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE GAZ
|
USE GAZ
|
||||||
INPUT CODTAB F_GRUPPOAZIE
|
INPUT CODTAB F_GRUPPOAZIE
|
||||||
@ -444,7 +484,7 @@ END
|
|||||||
|
|
||||||
STRING F_D_GRUPPOAZIE 30
|
STRING F_D_GRUPPOAZIE 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 43 15 ""
|
PROMPT 43 16 ""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE GAZ KEY 2
|
USE GAZ KEY 2
|
||||||
INPUT S0 F_D_GRUPPOAZIE
|
INPUT S0 F_D_GRUPPOAZIE
|
||||||
@ -458,31 +498,31 @@ END
|
|||||||
|
|
||||||
BOOLEAN F_NOTIZIARIO
|
BOOLEAN F_NOTIZIARIO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 16 "Stampa per notiziario"
|
PROMPT 2 17 "Stampa per notiziario"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_PERCAP
|
BOOLEAN F_PERCAP
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 17 "Ordinamento per CAP"
|
PROMPT 2 18 "Ordinamento per CAP"
|
||||||
MESSAGE TRUE DISABLE,1@|ENABLE,2@
|
MESSAGE TRUE DISABLE,1@|ENABLE,2@
|
||||||
MESSAGE FALSE ENABLE,1@|DISABLE,2@
|
MESSAGE FALSE ENABLE,1@|DISABLE,2@
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA F_CAPINI 5
|
STRINGA F_CAPINI 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 35 17 "Stampa solo dal cap "
|
PROMPT 35 18 "Stampa solo dal cap "
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA F_CAPFIN 5
|
STRINGA F_CAPFIN 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 61 17 "al cap "
|
PROMPT 61 18 "al cap "
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_LETTINI 15
|
STRING F_LETTINI 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 18 "Selezione iniziali cognome: da "
|
PROMPT 2 19 "Selezione iniziali cognome: da "
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
//PICTURE "!!"
|
//PICTURE "!!"
|
||||||
@ -490,7 +530,7 @@ END
|
|||||||
|
|
||||||
STRING F_LETTFIN 15
|
STRING F_LETTFIN 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 50 18 "a "
|
PROMPT 50 19 "a "
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
//VALIDATE (#F_LETTINI<=#F_LETTFIN)
|
//VALIDATE (#F_LETTINI<=#F_LETTFIN)
|
||||||
@ -499,7 +539,7 @@ END
|
|||||||
|
|
||||||
BOOLEAN F_PERFAMIGLIE
|
BOOLEAN F_PERFAMIGLIE
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 19 "Raggruppa per famiglie (solo etichette)"
|
PROMPT 2 20 "Raggruppa per famiglie (solo etichette)"
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
Loading…
x
Reference in New Issue
Block a user