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

Patch level : at

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : stampa convoc. per punto prelievo con scelte sulle categorie e possibilita'di stampare suddiviso per data


git-svn-id: svn://10.65.10.50/trunk@10617 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2002-11-07 11:18:26 +00:00
parent b98ad3834c
commit 822fa39351
3 changed files with 215 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

107
at/at4400.cpp
View File

@ -47,8 +47,8 @@ class TConvocazioniPerPunto : public TPrintapp
int _cur; int _cur;
TParagraph_string _cognome_nome, _dencom; TParagraph_string _cognome_nome, _dencom;
TDate _data_stampa; TDate _data_stampa;
TDate _dataini, _datafin; TDate _dataini, _datafin, _dataatt;
bool _aggiorna, _persezione, _tutti; bool _aggiorna, _persezione, _tutti, _perdata;
char _gruppiaz; char _gruppiaz;
TString16 _punto,_tipo, _ordina; TString16 _punto,_tipo, _ordina;
TString16 _codsez, _codsot, _sezini,_sotini, _sezfin,_sotfin; TString16 _codsez, _codsot, _sezini,_sotini, _sezfin,_sotfin;
@ -57,7 +57,7 @@ class TConvocazioniPerPunto : public TPrintapp
TString80 _note, _intest1, _intest2, _intest3, _intest4; TString80 _note, _intest1, _intest2, _intest3, _intest4;
bool _usasez; bool _usasez;
ts _tipostampa; ts _tipostampa;
int _contxsez, _contatore; int _contxsez, _contxdata, _contatore;
int _etlarghezza, _etcolonne; int _etlarghezza, _etcolonne;
//static bool filter_func_stconvoc(const TRelation* rel); //static bool filter_func_stconvoc(const TRelation* rel);
@ -74,7 +74,9 @@ protected:
public: public:
void crea_intestazione(); void crea_intestazione();
void header_sezione(const TString16 codsez, const TString16 codsot); void header_sezione(const TString16 codsez, const TString16 codsot);
void header_data(const TDate data);
void footer_sezione(); void footer_sezione();
void footer_data();
void fine_stampa(); void fine_stampa();
void dati_sezione(const TString16 codsez, const TString16 codsot); void dati_sezione(const TString16 codsez, const TString16 codsot);
TMask& app_mask() { return *_msk; } TMask& app_mask() { return *_msk; }
@ -112,14 +114,6 @@ void TConvocazioniPerPunto::fine_stampa()
{ {
// stampa totale soggetti a fine stampa // stampa totale soggetti a fine stampa
//reset_footer();
//printer().footerlen(20);
//TString sep(80);
//sep.fill('-');
//set_footer(1, (const char *) sep);
//set_footer(2,"TOTALE SOGGETTI CONVOCATI %d", _contatore);
//printer().formfeed();
//reset_footer();
reset_footer(); reset_footer();
TString sep(80); TString sep(80);
sep.fill('-'); sep.fill('-');
@ -164,43 +158,6 @@ void TConvocazioniPerPunto::set_page(int file, int cnt)
case cartoline: case cartoline:
{ {
TPrint_section& corpo = _form_car->get_body(); TPrint_section& corpo = _form_car->get_body();
/*
const TString16 codsez = current_cursor()->curr().get(SOG_CODSEZ);
const TString16 codsot = current_cursor()->curr().get(SOG_CODSOT);
if ((_codsez!=codsez)||(_codsot!=codsot))
{
_codsez = codsez;
_codsot = codsot;
dati_sezione(codsez, codsot);
corpo.reset();
TForm_item& intest1 = corpo.find_field(CAR_INTEST1);
intest1.set(_intest1);
TForm_item& intest2 = corpo.find_field(CAR_INTEST2);
intest2.set(_intest2);
TForm_item& intest3 = corpo.find_field(CAR_INTEST3);
intest3.set(_intest3);
TForm_item& intest4 = corpo.find_field(CAR_INTEST4);
intest4.set(_intest4);
TForm_item& invito = corpo.find_field(CAR_INVITOPER);
invito.set(_invitoper);
TForm_item& data = corpo.find_field(CAR_DATA);
data.set(_data);
TForm_item& presso1 = corpo.find_field(CAR_PRESSO1);
presso1.set(_presso1);
TForm_item& presso2 = corpo.find_field(CAR_PRESSO2);
presso2.set(_presso2);
TForm_item& presso3 = corpo.find_field(CAR_PRESSO3);
presso3.set(_presso3);
TForm_item& presso4 = corpo.find_field(CAR_PRESSO4);
presso4.set(_presso4);
TForm_item& orario = corpo.find_field(CAR_ORARIO);
orario.set(_orario);
TForm_item& datacart = corpo.find_field(CAR_DATACART);
datacart.set(_datacart);
TForm_item& note = corpo.find_field(CAR_NOTE);
note.set(_note);
}
*/
corpo.update(); corpo.update();
for (word i = 0; i < corpo.height(); i++) for (word i = 0; i < corpo.height(); i++)
{ {
@ -256,7 +213,9 @@ print_action TConvocazioniPerPunto::postprocess_print(int file, int counter)
{ {
if (_contxsez > 0) if (_contxsez > 0)
footer_sezione(); footer_sezione();
if ((_contatore > 0) && ((_contatore != _contxsez) || (!_persezione))) if (_contxdata > 0)
footer_data();
if ((_contatore > 0) && ((_contatore != _contxsez) || (!_persezione)) && ((_contatore != _contxdata) || (!_perdata)))
fine_stampa(); fine_stampa();
return NEXT_PAGE; return NEXT_PAGE;
} }
@ -300,6 +259,16 @@ bool TConvocazioniPerPunto::preprocess_page(int file, int counter)
_codsot = codsot; _codsot = codsot;
header_sezione(codsez, codsot); header_sezione(codsez, codsot);
} }
const TDate data = current_cursor()->curr().get_date(RCV_DATACONV);
if (_dataatt!=data)
{
if (_dataatt.ok())
footer_data();
_contxdata = 0;
_dataatt = data;
header_data(data);
}
_contxdata++;
_contxsez++; _contxsez++;
_contatore++; _contatore++;
} }
@ -324,6 +293,21 @@ void TConvocazioniPerPunto::footer_sezione()
} }
} }
void TConvocazioniPerPunto::footer_data()
{
if (_perdata)
{
// stampa totale sezione
reset_footer();
TString sep(80);
sep.fill('-');
set_footer(2, (const char *) sep);
set_footer(3,"TOTALE CONVOCATI DEL GIORNO %d", _contxdata);
printer().formfeed();
reset_footer();
}
}
void TConvocazioniPerPunto::header_sezione(const TString16 codsez, const TString16 codsot) void TConvocazioniPerPunto::header_sezione(const TString16 codsez, const TString16 codsot)
{ {
if (_persezione) if (_persezione)
@ -351,6 +335,19 @@ void TConvocazioniPerPunto::header_sezione(const TString16 codsez, const TString
return; return;
} }
void TConvocazioniPerPunto::header_data(const TDate data)
{
if (_perdata)
{
TString intestazione(80);
intestazione = "Data cartolina: ";
intestazione << data.string();
intestazione.center_just();
set_header(1,"@0g%s", (const char*) intestazione);
}
return;
}
void TConvocazioniPerPunto::dati_sezione(const TString16 codsez, const TString16 codsot) void TConvocazioniPerPunto::dati_sezione(const TString16 codsez, const TString16 codsot)
{ {
_intest1 = current_cursor()->curr(LF_SEZIONI).get(SEZ_INTESTAZ1); _intest1 = current_cursor()->curr(LF_SEZIONI).get(SEZ_INTESTAZ1);
@ -416,6 +413,7 @@ bool TConvocazioniPerPunto::set_print(int m)
_persezione = _msk->get_bool(F_PERSEZIONE); _persezione = _msk->get_bool(F_PERSEZIONE);
_tutti = (_msk->get(F_TUTTI)[0] == 'T'); _tutti = (_msk->get(F_TUTTI)[0] == 'T');
_ordina = _msk->get(F_ORDINA); _ordina = _msk->get(F_ORDINA);
_perdata = FALSE;
TString256 chiave = ""; TString256 chiave = "";
if (_tipostampa==cartoline) if (_tipostampa==cartoline)
chiave = "90->GRUPPOAZIE|"; chiave = "90->GRUPPOAZIE|";
@ -430,6 +428,12 @@ bool TConvocazioniPerPunto::set_print(int m)
case 'C': case 'C':
chiave << "90->DOM_CAP|UPPER(90->COGNOME)|UPPER(90->NOME)|116->DATACONV"; chiave << "90->DOM_CAP|UPPER(90->COGNOME)|UPPER(90->NOME)|116->DATACONV";
break; break;
case 'D':
{
chiave << "116->DATACONV|UPPER(90->COGNOME)|UPPER(90->NOME)";
_perdata = TRUE;
}
break;
} }
TString256 filtro = ""; TString256 filtro = "";
filtro << "(116->ANNULLATO != \"X\")"; filtro << "(116->ANNULLATO != \"X\")";
@ -501,10 +505,11 @@ bool TConvocazioniPerPunto::set_print(int m)
a.put(RCV_DATACONV, _datafin); a.put(RCV_DATACONV, _datafin);
_cur = add_cursor(new TSorted_cursor(_rel, (const char*) chiave,"", 2, &da, &a)); _cur = add_cursor(new TSorted_cursor(_rel, (const char*) chiave,"", 2, &da, &a));
current_cursor()->setfilter((const char*) filtro, TRUE); current_cursor()->setfilter((const char*) filtro, TRUE);
//current_cursor()->set_filterfunction(filter_func_stconvoc);
_codsez = "**"; _codsez = "**";
_codsot = "**"; _codsot = "**";
_contxsez = 0; _dataatt = NULLDATE;
_contxsez = 0;
_contxdata = 0;
_contatore = 0; _contatore = 0;
reset_files(); reset_files();
add_file(LF_RCONVOC); add_file(LF_RCONVOC);

27
at/at4400a.h
View File

@ -15,10 +15,6 @@
#define F_D_SEZFIN 112 #define F_D_SEZFIN 112
#define F_SOTFIN 113 #define F_SOTFIN 113
#define F_D_SOTFIN 114 #define F_D_SOTFIN 114
//#define F_CODSEZ 107
//#define F_DENSEZ 108
//#define F_CODSOT 109
//#define F_DENSOT 110
#define F_ORDINA 115 #define F_ORDINA 115
#define F_PERSEZIONE 116 #define F_PERSEZIONE 116
@ -26,8 +22,21 @@
#define F_AGGIORNA 118 #define F_AGGIORNA 118
#define F_SCELTAGRUPPI 119 #define F_SCELTAGRUPPI 119
#define F_SINTETICO 151 #define F_CAT1 201
#define F_COMPLETO 152 #define F_D_CAT1 202
#define F_ETICHETTE 153 #define F_CAT2 203
#define F_CARTOLINE 154 #define F_D_CAT2 204
#define F_AZZERA 155 #define F_CAT3 205
#define F_D_CAT3 206
#define F_CAT4 207
#define F_D_CAT4 208
#define F_CAT5 209
#define F_D_CAT5 210
#define F_CAT6 211
#define F_D_CAT6 212
#define F_SINTETICO 351
#define F_COMPLETO 352
#define F_ETICHETTE 353
#define F_CARTOLINE 354
#define F_AZZERA 355

153
at/at4400a.uml
View File

@ -156,24 +156,151 @@ BEGIN
HELP "Sottogruppo finale" HELP "Sottogruppo finale"
END END
GROUPBOX DLG_NULL 77 5
BEGIN
PROMPT 1 4 "Categorie"
END
STRING F_CAT1 2
BEGIN
PROMPT 2 5 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_CAT1 CODTAB
OUTPUT F_D_CAT1 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT1 30
BEGIN
PROMPT 8 5 ""
FLAGS "D"
END
STRING F_CAT2 2
BEGIN
PROMPT 2 6 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT2
COPY DISPLAY F_CAT1
OUTPUT F_CAT2 CODTAB
OUTPUT F_D_CAT2 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT2 30
BEGIN
PROMPT 8 6 ""
FLAGS "D"
END
STRING F_CAT3 2
BEGIN
PROMPT 2 7 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT3
COPY DISPLAY F_CAT1
OUTPUT F_CAT3 CODTAB
OUTPUT F_D_CAT3 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT3 30
BEGIN
PROMPT 8 7 ""
FLAGS "D"
END
STRING F_CAT4 2
BEGIN
PROMPT 40 5 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT4
COPY DISPLAY F_CAT1
OUTPUT F_CAT4 CODTAB
OUTPUT F_D_CAT4 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT4 30
BEGIN
PROMPT 46 5 ""
FLAGS "D"
END
STRING F_CAT5 2
BEGIN
PROMPT 40 6 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT5
COPY DISPLAY F_CAT1
OUTPUT F_CAT5 CODTAB
OUTPUT F_D_CAT5 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT5 30
BEGIN
PROMPT 46 6 ""
FLAGS "D"
END
STRING F_CAT6 2
BEGIN
PROMPT 40 7 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT6
COPY DISPLAY F_CAT1
OUTPUT F_CAT6 CODTAB
OUTPUT F_D_CAT6 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT6 30
BEGIN
PROMPT 46 7 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 77 13 GROUPBOX DLG_NULL 77 13
BEGIN BEGIN
PROMPT 1 4 "Opzioni per la stampa convocazioni" PROMPT 1 9 "Opzioni per la stampa convocazioni"
END END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
PROMPT 2 5 "Data iniziale " PROMPT 2 10 "Data iniziale "
END END
DATE F_DATAFIN DATE F_DATAFIN
BEGIN BEGIN
PROMPT 2 6 "Data finale " PROMPT 2 11 "Data finale "
END END
STRING F_PUNTO 4 STRING F_PUNTO 4
BEGIN BEGIN
PROMPT 2 7 "Punto prelievo " PROMPT 2 12 "Punto prelievo "
FLAGS "U" FLAGS "U"
USE LDN USE LDN
INPUT CODTAB F_PUNTO INPUT CODTAB F_PUNTO
@ -187,13 +314,13 @@ END
STRING F_D_PUNTO 50 STRING F_D_PUNTO 50
BEGIN BEGIN
PROMPT 25 7 "" PROMPT 25 12 ""
FLAGS "D" FLAGS "D"
END END
STRING F_TIPO 2 STRING F_TIPO 2
BEGIN BEGIN
PROMPT 2 8 "Tipo donazione " PROMPT 2 13 "Tipo donazione "
FLAGS "U" FLAGS "U"
USE TDN USE TDN
INPUT CODTAB F_TIPO INPUT CODTAB F_TIPO
@ -206,13 +333,13 @@ END
STRING F_D_TIPO 25 STRING F_D_TIPO 25
BEGIN BEGIN
PROMPT 23 8 "" PROMPT 23 13 ""
FLAGS "D" FLAGS "D"
END END
LISTBOX F_ORDINA 24 LISTBOX F_ORDINA 24
BEGIN BEGIN
PROMPT 2 9 "Ordinamento " PROMPT 2 14 "Ordinamento "
FLAGS "U" FLAGS "U"
ITEM "A|Sez./Sott.+Alfabetico" ITEM "A|Sez./Sott.+Alfabetico"
MESSAGE ENABLE,F_PERSEZIONE MESSAGE ENABLE,F_PERSEZIONE
@ -220,19 +347,21 @@ BEGIN
MESSAGE RESET,F_PERSEZIONE|DISABLE, F_PERSEZIONE MESSAGE RESET,F_PERSEZIONE|DISABLE, F_PERSEZIONE
ITEM "S|Sez./Sott.+CAP" ITEM "S|Sez./Sott.+CAP"
MESSAGE ENABLE,F_PERSEZIONE MESSAGE ENABLE,F_PERSEZIONE
ITEM "D|Data cart.+Alfabetico"
MESSAGE RESET,F_PERSEZIONE|DISABLE, F_PERSEZIONE
END END
RADIOBUTTON F_TUTTI 75 RADIOBUTTON F_TUTTI 75
BEGIN BEGIN
FLAG "Z" FLAG "Z"
PROMPT 2 10 "Stampa" PROMPT 2 15 "Stampa"
ITEM "S|Convocazioni non stampate" ITEM "S|Convocazioni non stampate"
ITEM "T|Tutte le convocazioni" ITEM "T|Tutte le convocazioni"
END END
LISTBOX F_SCELTAGRUPPI 37 LISTBOX F_SCELTAGRUPPI 37
BEGIN BEGIN
PROMPT 2 13 "Opzioni per gruppi aziendali " PROMPT 2 18 "Opzioni per gruppi aziendali "
FLAGS "U" FLAGS "U"
ITEM "N|Nessuna selezione sui gruppi az." ITEM "N|Nessuna selezione sui gruppi az."
ITEM "S|Stampa solo appartenenti a gruppi az." ITEM "S|Stampa solo appartenenti a gruppi az."
@ -241,13 +370,13 @@ END
BOOLEAN F_PERSEZIONE BOOLEAN F_PERSEZIONE
BEGIN BEGIN
PROMPT 2 14 "Stampa suddivisa per sezione" PROMPT 2 19 "Stampa suddivisa per sezione"
HELP "Indicare se si vuole la stampa suddivisa per sezione di appartenenza" HELP "Indicare se si vuole la stampa suddivisa per sezione di appartenenza"
END END
BOOLEAN F_AGGIORNA BOOLEAN F_AGGIORNA
BEGIN BEGIN
PROMPT 2 15 "Aggiorna campo convocazione stampata" PROMPT 2 20 "Aggiorna campo convocazione stampata"
END END
ENDPAGE ENDPAGE