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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :completata la supersimmetria dell'esclusione dei cespiti alieni (per codice errore vedi la 3.2)


git-svn-id: svn://10.65.10.50/trunk@16583 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-05-06 14:07:08 +00:00
parent 89d99fb443
commit 9f9914a3ef
3 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ce/ce3300.cpp
View File

@ -499,6 +499,8 @@ void TStampa_prospetto::main_loop()
TString espr;
espr << "IDCESPITE==IDCESPITE|CODES==" << esercizio;
relcespi.add(LF_SALCE,espr);
// vanno esclusi i cespiti alienati?
const bool exclude_aliens = _mask->get_bool(F_EXCLUDE_ALIENS);
// filtro su esercizio gruppo specie e data acquisto cespite sia <= alla data fine esercizio selezionato
TString filtro;
_dataini = _mask->get_date(F_INIZIO_ES);
@ -507,7 +509,8 @@ void TStampa_prospetto::main_loop()
filtro << "(CODSPA=\"" << _mask->get(F_SPECIE)<< "\")&&" ;
filtro << "(" << LF_SALCE << "->CODES=" << esercizio << ")&&" ;
filtro << "(ANSI(" << LF_CESPI << "->DTCOMP)<=" << _datafine.string(ANSI) << ")";
if (exclude_aliens)
filtro << "&&((ANSI(" << LF_CESPI << "->DTALIEN)='')||(ANSI(" << LF_CESPI << "->DTALIEN)>=" << _dataini.string(ANSI) << "))";
// prepara il cursore di tipo sorted perché ho due tipi di ordinamento possibili: per categoria e per impianto
const int ordinamento = _mask->get_int(F_ORDINA);
TString16 ordin = ordinamento == 0 ? CESPI_CODCAT : CESPI_CODIMP;
@ -583,7 +586,6 @@ void TStampa_prospetto::main_loop()
}
int ce3300(int argc, char* argv[])

1
ce/ce3300a.h
View File

@ -14,3 +14,4 @@
#define F_SITCIV 121
#define F_SITGEST 122
#define F_ORDINA 123
#define F_EXCLUDE_ALIENS 124

25
ce/ce3300a.uml
View File

@ -1,6 +1,20 @@
#include "ce3300a.h"
PAGE "Selezione stampa prospetto cespiti" -1 -1 90 18
TOOLBAR "" 0 -3 0 3
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -11 "~Stampa"
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -11 ""
END
ENDPAGE
PAGE "Selezione stampa prospetto cespiti" 0 0 0 0
GROUPBOX DLG_NULL 80 6
BEGIN
@ -124,14 +138,9 @@ BEGIN
ITEM "1|Ordinato per Impianto"
END
BUTTON DLG_PRINT 10 2
BOOLEAN F_EXCLUDE_ALIENS
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT 2 16 "Escludere cespiti alienati"
END
ENDPAGE