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

Patch level : 10.0

Browse Source 
Files correlati     : ce0.exe ce2.exe cetbccb.msk
Ricompilazione Demo : [ ]
Commento            :
0001153: anagrafico cespiti
il gruppo specie non viene riconosciuto, quindi la ricerca non trova nessun cespite.
La ricerca alfabetica della categoria scarta in funzione del maiuscolo/minuscolo.


git-svn-id: svn://10.65.10.50/trunk@18203 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2009-02-05 12:16:30 +00:00
parent 2b9d09d170
commit 958c8fd522
5 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ce/ce0100.cpp
View File

@ -208,7 +208,7 @@ bool TCCE_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
case DLG_ATTIV:
if (e == fe_button)
{
TString app("ce0 -0 CCB");
const char* const app = "ce0 -0 CCB";
TMailbox mail;
TString body; body.format("%d|%d=%s|%d=%s|%d=%s", F_CODSP_CCB, F_CODESER_CCB, (const char *)get(F_CODESER),
F_DATAINI_CCB, (const char *)get(F_DATAINI),

8
ce/ce0500.cpp
View File

@ -191,7 +191,8 @@ void TQuery_mask::on_search_event(TOperable_field& o)
else // Filtro per attività
{
filter << "STR(" << CESPI_CODCGRA << "=" << get_int(F_GRUPPO) << ')';
filter << "&&(" << CESPI_CODSPA << "=\"" << get(F_SPECIE) << "\")";
TString4 specie = get(F_SPECIE); specie.rtrim(); // Toglie spazi FINALI
filter << "&&(" << CESPI_CODSPA << "=\"" << specie << "\")";
}
TSorted_cursor cur(&rel, order, filter);
@ -251,7 +252,8 @@ void TQuery_mask::set_cespi_filter()
else // Filtro per attività
{
filter << "STR(" << CESPI_CODCGRA << "=" << get_int(F_GRUPPO) << ')';
filter << "&&(" << CESPI_CODSPA << "=\"" << get(F_SPECIE) << "\")";
TString4 specie = get(F_SPECIE); specie.rtrim(); // Toglie spazi FINALI
filter << "&&(" << CESPI_CODSPA << "=\"" << specie << "\")";
}
efield(F_IDCESPITE).browse()->set_filter(filter);
efield(F_DESC).browse()->set_filter(filter);
@ -272,7 +274,7 @@ bool TQuery_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
if (gruppo.full())
{
set(F_GRUPPO, gruppo);
set(F_SPECIE, specie);
set(F_SPECIE, specie.rtrim(), 0x2); // Forza decodifica attivita'
}
} //niente break!!!!! è fatto apposta per far scattare i successivi controlli su gruppo e specie
case F_GRUPPO:

4
ce/ce2101.cpp
View File

@ -1624,9 +1624,7 @@ void TCespite::scansione_movimenti(const TDate& data_limite, bool is_valid)
tmv.zero("VSPMANU");
}
aggiorna_salpro(tmv, tmvam, segno);
} TDate inies, fines;
ditta_cespiti().esercizio_corrente(inies, fines);
}
} // If esistono movimenti
}

4
ce/celib.cpp
View File

@ -50,7 +50,7 @@ void TDitta_cespiti::load_records()
str.format("%04d", _esercizio);
_cce = cache().get("CCE", str);
str.format("%04d%2s%4s", _esercizio, (const char*)_gruppo, (const char*)_specie);
str.format("%04d%2s%-4s", _esercizio, (const char*)_gruppo, (const char*)_specie);
_ccb = cache().get("CCB", str);
}
@ -294,7 +294,7 @@ bool TDitta_cespiti::on_category_event(TOperable_field& o, TField_event e, long
{
const char* fields = by_code ? "CODTAB[7,8]|S0|I0" : "S0|CODTAB[7,8]|I0";
const char* header = by_code ? HR("Categoria|Descrizione@60|Tipo beni") : HR("Descrizione@60|Categoria|Tipo beni");
const char* sorter = by_code ? "CODTAB[7,8]" : "S0";
const char* sorter = by_code ? "CODTAB[7,8]" : "UPPER(S0)";
TRelation rel("%CAC");
TSorted_cursor cur(&rel, sorter, "", by_code ? 1 : 2);

5
ce/cetbccb.uml
View File

@ -28,7 +28,6 @@ BEGIN
OUTPUT F_CODESER_CCB CODTAB
OUTPUT F_DATAINI_CCB 105@->D0
OUTPUT F_DATAFINE_CCB 105@->D1
OUTPUT F_ANNOREG 105@->D1[7,11]
CHECKTYPE REQUIRED
END
@ -115,7 +114,9 @@ END
NUMBER F_ANNOREG 4
BEGIN
PROMT 65 6 ""
FLAGS "AD"
FLAGS "DGZ"
DRIVENBY F_CODESER_CCB
NUM_CALC MID(#F_DATAFINE_CCB,0,4)
END
STRING F_CODREG 3