Page 1 of 1
HMG EDIT EXTENDED
Posted: Fri Nov 01, 2019 5:46 pm
by serge_girard
Hello,
Does anybody knows to change HMG EDIT EXTENDED filter options?
Now it says: 'Comparrission Operator:" Equal, Not equal,...
I want it to extend with the $ operator (as a LIKE or IN operator)
Serge
Re: HMG EDIT EXTENDED
Posted: Sat Nov 02, 2019 4:01 pm
by franco
Serge, could you create a temporary index
do your function. Then go back to normal index.
Franco
Re: HMG EDIT EXTENDED
Posted: Sat Nov 02, 2019 5:33 pm
by serge_girard
I made some changes to \source\EditEx\h_edit_ex.prg AND \source\h_init.prg.
I added the $ operator to _HMG_SYSDATA [ 129 ] [33]
This work.
Serge
Re: HMG EDIT EXTENDED
Posted: Mon Nov 04, 2019 4:50 pm
by franco
Serge, what line numbers did you add ?
Franco
Re: HMG EDIT EXTENDED
Posted: Tue Nov 05, 2019 7:22 am
by serge_girard
Franco,
In h_edit_ex.prg
Code: Select all
Function ABM2EstableceFiltro()
aOperador := { "=", "<>", ">", "<", ">=", "<=", '$' }
..
DO CASE
CASE nCompara == 7 .AND. _aStructure[nCampo,DBS_TYPE] == "C" // IN-LIKE-$ OPERATOR SG NOV-2019
_cFiltro := "'" + HMG_UPPER( ALLTRIM( cValor ) ) + "'" + " $ HMG_UPPER(" + _cArea + "->" + ;
_aStructure[nCampo,DBS_NAME] + ")"
In h_init.prg
Code: Select all
For every language:
".Lower or Equal Than...",; // 32
"$" } // 33
And recompile all!
Regards, Serge
Re: HMG EDIT EXTENDED
Posted: Tue Nov 05, 2019 4:45 pm
by franco
Thanks Serge,
Franco