Patch level : 10.0
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:
parent
2b9d09d170
commit
958c8fd522
@ -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),
|
||||
|
@ -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:
|
||||
|
@ -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
|
||||
}
|
||||
|
||||
|
@ -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);
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user