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

Stampa di controllo donazioni: possibilita' di stampare da sezione a

Browse Source 
sezione
Patch level         :
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@6375 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1998-03-17 09:23:20 +00:00
parent 230717eef1
commit 7b81b48b17
3 changed files with 76 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
at/at6300.cpp
View File

@ -22,8 +22,8 @@ class TControlloDonazioni : public TPrintapp
int _contatore, _totfinestampa;
TDate _dataold, _dataini, _datafin;
TString16 _tipodon, _luogodon, _luogoold, _sezold;
TString16 _sezini, _sotini, _tipostampa,_ordinamento;
TString16 _controllo, _prima;
TString16 _sezini, _sotini, _sezfin, _sotfin;
TString16 _tipostampa, _ordinamento, _controllo, _prima;
bool _stampa80, _primedon, _breve;
TParagraph_string _cognome_nome;
TArray _giorni, _mesi, _giornifinale;
@ -373,6 +373,8 @@ bool TControlloDonazioni::set_print(int m)
{
_sezini = _msk->get(F_SEZINI);
_sotini = _msk->get(F_SOTINI);
_sezfin = _msk->get(F_SEZFIN);
_sotfin = _msk->get(F_SOTFIN);
_dataini = _msk->get_date(F_DATAINI);
_datafin = _msk->get_date(F_DATAFIN);
_tipodon = _msk->get(F_TIPODON);
@ -434,25 +436,31 @@ bool TControlloDonazioni::set_print(int m)
filtro << format("(PRIMADON == \"X\")");
}
}
TString16 inizio = "";
inizio << _sezini;
inizio << _sotini;
TString16 fine = "";
fine << _sezfin;
fine << _sotfin;
// filtro per sezione/sottogruppo
if (_sezini.not_empty())
if (inizio.not_empty())
{
if (filtro.empty())
filtro = format("(90->CODSEZ == \"%s\")",(const char*)_sezini);
filtro = format("(90->CODSEZ+90->CODSOT >= \"%s\")",(const char*)inizio);
else
{
filtro << " && ";
filtro << format("(90->CODSEZ == \"%s\")",(const char*)_sezini);
filtro << format("(90->CODSEZ+90->CODSOT >= \"%s\")",(const char*)inizio);
}
if (_sotini.not_empty())
if (fine.not_empty())
{
if (filtro.empty())
filtro = format("(90->CODSOT == \"%s\")",(const char*)_sotini);
filtro = format("(90->CODSEZ+90->CODSOT <= \"%s\")",(const char*)fine);
else
{
filtro << " && ";
filtro << format("(90->CODSOT == \"%s\")",(const char*)_sotini);
filtro << format("(90->CODSEZ+90->CODSOT <= \"%s\")",(const char*)fine);
}
}
}

8
at/at6300a.h
View File

@ -5,10 +5,10 @@
#define F_D_SEZINI 102
#define F_SOTINI 103
#define F_D_SOTINI 104
//#define F_SEZFIN 105
//#define F_D_SEZFIN 106
//#define F_SOTFIN 107
//#define F_D_SOTFIN 108
#define F_SEZFIN 105
#define F_D_SEZFIN 106
#define F_SOTFIN 107
#define F_D_SOTFIN 108
#define F_DATAINI 109
#define F_DATAFIN 110
#define F_TIPODON 111

110
at/at6300a.uml
View File

@ -9,7 +9,7 @@ END
STRING F_SEZINI 2
BEGIN
PROMPT 2 2 "Sezione "
PROMPT 2 2 "Da "
FLAGS "U"
USE LF_SEZIONI
INPUT CODSEZ F_SEZINI
@ -28,7 +28,7 @@ END
STRING F_D_SEZINI 25
BEGIN
PROMPT 20 2 ""
PROMPT 11 2 ""
FLAGS "U"
USE LF_SEZIONI KEY 2
INPUT DENSEZ F_D_SEZINI
@ -43,7 +43,7 @@ END
STRING F_SOTINI 2
BEGIN
PROMPT 2 3 "Sottogruppo "
PROMPT 2 3 " "
COPY ALL F_SEZINI
CHECKTYPE SEARCH
HELP "Codice sottogruppo da stampare"
@ -51,7 +51,7 @@ END
STRING F_D_SOTINI 25
BEGIN
PROMPT 20 3 ""
PROMPT 11 3 ""
FLAGS "U"
COPY USE F_D_SEZINI
INPUT DENSEZ F_D_SEZINI
@ -62,60 +62,60 @@ BEGIN
HELP "Sottogruppo da cui partire"
END
//STRING F_SEZFIN 2
//BEGIN
// PROMPT 41 2 "A "
// FLAGS "U"
// USE LF_SEZIONI
// INPUT CODSEZ F_SEZFIN
// INPUT CODSOT F_SOTFIN
// DISPLAY "Cod.sez" CODSEZ
// DISPLAY "Cod.sot." CODSOT
// DISPLAY "Sezione@25" DENSEZ
// DISPLAY "Sottogruppo@25" DENSOT
// OUTPUT F_SEZFIN CODSEZ
// OUTPUT F_D_SEZFIN DENSEZ
// OUTPUT F_SOTFIN CODSOT
// OUTPUT F_D_SOTFIN DENSOT
// CHECKTYPE SEARCH
// HELP "Codice sezione finale"
//END
STRING F_SEZFIN 2
BEGIN
PROMPT 41 2 "A "
FLAGS "U"
USE LF_SEZIONI
INPUT CODSEZ F_SEZFIN
INPUT CODSOT F_SOTFIN
DISPLAY "Cod.sez" CODSEZ
DISPLAY "Cod.sot." CODSOT
DISPLAY "Sezione@25" DENSEZ
DISPLAY "Sottogruppo@25" DENSOT
OUTPUT F_SEZFIN CODSEZ
OUTPUT F_D_SEZFIN DENSEZ
OUTPUT F_SOTFIN CODSOT
OUTPUT F_D_SOTFIN DENSOT
CHECKTYPE SEARCH
HELP "Codice sezione finale"
END
//STRING F_D_SEZFIN 25
//BEGIN
// PROMPT 49 2 ""
// FLAGS "U"
// USE LF_SEZIONI KEY 2
// INPUT DENSEZ F_D_SEZFIN
// DISPLAY "Sezione@25" DENSEZ
// DISPLAY "Sottogruppo@25" DENSOT
// DISPLAY "Cod.sez" CODSEZ
// DISPLAY "Cod.sot." CODSOT
// COPY OUTPUT F_SEZFIN
// CHECKTYPE NORMAL
// HELP "Sezione finale"
//END
STRING F_D_SEZFIN 25
BEGIN
PROMPT 49 2 ""
FLAGS "U"
USE LF_SEZIONI KEY 2
INPUT DENSEZ F_D_SEZFIN
DISPLAY "Sezione@25" DENSEZ
DISPLAY "Sottogruppo@25" DENSOT
DISPLAY "Cod.sez" CODSEZ
DISPLAY "Cod.sot." CODSOT
COPY OUTPUT F_SEZFIN
CHECKTYPE NORMAL
HELP "Sezione finale"
END
//STRING F_SOTFIN 2
//BEGIN
// PROMPT 41 3 " "
// COPY ALL F_SEZFIN
// CHECKTYPE SEARCH
// HELP "Codice sottogruppo finale"
//END
STRING F_SOTFIN 2
BEGIN
PROMPT 41 3 " "
COPY ALL F_SEZFIN
CHECKTYPE SEARCH
HELP "Codice sottogruppo finale"
END
//STRING F_D_SOTFIN 25
//BEGIN
// PROMPT 49 3 ""
// FLAGS "U"
// COPY USE F_D_SEZFIN
// INPUT DENSEZ F_D_SEZFIN
// INPUT DENSOT F_D_SOTFIN
// COPY DISPLAY F_D_SEZFIN
// COPY OUTPUT F_D_SEZFIN
// CHECKTYPE NORMAL
// HELP "Sottogruppo finale"
//END
STRING F_D_SOTFIN 25
BEGIN
PROMPT 49 3 ""
FLAGS "U"
COPY USE F_D_SEZFIN
INPUT DENSEZ F_D_SEZFIN
INPUT DENSOT F_D_SOTFIN
COPY DISPLAY F_D_SEZFIN
COPY OUTPUT F_D_SEZFIN
CHECKTYPE NORMAL
HELP "Sottogruppo finale"
END
GROUPBOX DLG_NULL 77 7
BEGIN