Problem with OnInputChange() Trigger

ajaybabuCh

Hi

I have one text box bounded to the variable 'Search Name' of type Text.

As the user enter the text in the text box I want to filter records.

I can not get the text as the user entered into the Variable 'Search Name'

in OnInputChange Trigger.

I tried the following code to get the text

OnInputChange()
CurrForm.SAVERECORD;
RESET;
REC.SETFILTER(FieldName,SearchName+'*');

Whenever the user enter the single character that will be blocked with blue color.

To enter remaining text I need to click on the control and move the cursor to the end of text then only I can enter the text other wise it will be replaced with new character.

How to get the text entered by the user as it is in the OnIputChange() trigger.

AJAY INDIA.

DenSter

Use SENDKEYS for that, and send in F2 twice. I don't exactly how to do this, but one of my coworkers got that to work. You should be able to search for sendkeys in this forum.

Thomas_Hviid_Thorn

Hi DenSter,

could your (or others) provide a little more information: I have been asked to make the same functionality, but has problems getting back into the TextBox and let the user continue typing.

I've made the following code:

GetKeys is the automation 'Windows Script Host Object Model'.WshShell
SearchNameBox is the name of the TextBox
SearchName is a Text250
Text1 is a field on the table

CurrForm.SAVERECORD;
CurrForm.SearchNameBox.ACTIVATE;
IF ISCLEAR(GetKeys) THEN
  CREATE(GetKeys);
GetKeys.SendKeys('{F2}{F2}');

RESET;
SETFILTER(Text1,searchname+'*');

but it lets me only enter one char!

David_Cox

OnInputChange()
CurrForm.SAVERECORD;
RESET;
REC.SETFILTER(FieldName,SearchName+'*');

Just move your first code to the OnAfterValidate trigger of the textbox
OnAfterValidate()
RESET;
REC.SETFILTER(FieldName,STRSUBSTNO('%1%2%3%2','@','*',SearchName));
CurrForm.UPDATE;

The @ means Ignore Case
If that still has problems then create a function on the form and call this!

Thomas_Hviid_Thorn

Hi David.

the reason to use the OnInputChange was to get the 'Find-As-You-Type'-functionality, as known from the Find (Crtl-B in ENU language).

Below the field the information which is searched in is filtered, so you're immidiate see the result of the filter (without pressing Enter).


... as you all may guess - in Denmark its summertime, and the boss is on holiday ...

David_Cox

Oh yep! :oops:

I did not read the original post correctly!

The text is left selected after entering one value, so find as you type is not working.

Would form or control update or control activate solve it?.
currForm.UPDATE;
currForm.MyControl.UPDATE;

currForm.MyControl.ACTIVATE;

Thomas_Hviid_Thorn

That's ok, David - glad you reacted so fast.

Sorry - no, that still move focus away from the TextBox.

With no luck, I've tried to track down the uppersite SENDKEYS-method.

Guess, I've just have to wait for NAV 5 and Visual Studio ...

David_Cox

Are we gonna be beaten by this one?

One last untested Idea, Use a form with the search variable, and a sub form with a form function to filter and update the lines.

On the parent form OnInputChange call the subforms function with the SearchString, and get a customer No. returned, without updateing the parent form!

Duh!! Reverse Gear! this won't work as we need to return a record!

Back to the think tank!

ajhvdb

Can't you put the databasefield on the form and make it uneditable. Then when typing in this field you can use the standard search.

ara3n

OK looks here is a solution I did a while back. I just re did it quickly in 5 min.
I'm sure you can make prettier. It's based on Item record.

OBJECT Form 50000 example filter as you type
{
  OBJECT-PROPERTIES
  {
    Date=06/28/06;
    Time=[ 8:29:31 PM];
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    Width=9130;
    Height=6820;
    TableBoxID=1000000000;
    SourceTable=Table27;
  }
  CONTROLS
  {
    { 1000000000;TableBox;220 ;220  ;7920 ;5500 ;HorzGlue=Both;
                                                 VertGlue=Both;
                                                 InlineEditing=Yes }
    { 1000000001;TextBox;0    ;0    ;1700 ;0    ;ParentControl=1000000000;
                                                 InColumn=Yes;
                                                 SourceExpr="No." }
    { 1000000002;Label  ;0    ;0    ;0    ;0    ;ParentControl=1000000001;
                                                 InColumnHeading=Yes }
    { 1000000003;TextBox;0    ;0    ;4400 ;0    ;HorzGlue=Both;
                                                 ParentControl=1000000000;
                                                 InColumn=Yes;
                                                 SourceExpr=Description }
    { 1000000004;Label  ;0    ;0    ;0    ;0    ;ParentControl=1000000003;
                                                 InColumnHeading=Yes }
    { 1000000012;TextBox;2640 ;6050 ;2420 ;440  ;Name=box1;
                                                 SourceExpr=Searchtxt;
                                                 OnActivate=BEGIN
                                                              Searchtxt := searchtemp;
                                                            END;

                                                 OnInputChange=BEGIN
                                                                 CurrForm.box2.ACTIVATE;
                                                                 CurrForm.box1.ACTIVATE;
                                                               END;

                                                 OnAfterInput=BEGIN
                                                                Searchtxt += Text;
                                                              END;

                                                 OnValidate=BEGIN
                                                              searchtemp += Searchtxt;
                                                              SETFILTER("Search Description",'*@'+searchtemp+'*');
                                                            END;
                                                             }
    { 1000000013;TextBox;5500 ;6050 ;660  ;440  ;Name=box2;
                                                 Editable=No;
                                                 SourceExpr=Searchtxt2 }
    { 1000000014;Label  ;440  ;6050 ;1870 ;440  ;CaptionML=ENU=write here }
    { 1000000005;CommandButton;6600;5940;2310;550;
                                                 CaptionML=ENU=Clear;
                                                 OnPush=BEGIN
                                                          Searchtxt := '';
                                                          Searchtxt2 := '';
                                                          searchtemp := '';
                                                        END;
                                                         }
  }
  CODE
  {
    VAR
      Searchtxt@1000000000 : Text[30];
      Searchtxt2@1000000001 : Text[30];
      searchtemp@1000000002 : Text[50];

    BEGIN
    END.
  }
}

ara3n

I added a button to clear it. Again I did in 5 min. It can be improved. I'll make it better.

Thomas_Hviid_Thorn

Hi folks,

No, Find is not good enough - then I wouldn't have asked here!!

By now it's only a prototype, just to try if it can be done (as we want it).
Whether its going to be used or not, will also depend on other issues as performance - which I'll not make a subject here (Others may be welcome though).

- BlackTiger

I know ONE way how to do this

Do you mind sharing ?

- ara3n: That about where I/we are heading too.
Thanks for for sharing.

Thomas_Hviid_Thorn

BlackTiger, I'm tempted to dare you - but since I haven't got the money to do that, I'll just back off here

OFF-TOPIC:

Even it's stupid feature

Every IDE but C/AL got the feature of for programmers (Find-Statements-As-You-Type) - but I guess you find that stupid too :-s


As off my point of view, I stand <beaten> aside David Cox.

David_Cox

Hmmm... No. Or for quite good money. Just because it's not realy necessary feature. Even it's stupid feature. And stupid features must to cost alot of money. Also it's not problem of Navision.

Hmmm... Sad day, If we all took this view this forum would close! [-X
How many questions do we answer, when the soloution is simple, and should be covered by the reseller's training and not us?

Even it's stupid feature

How stupid is a trigger called OnInputChange(), where you cannot return the Input, but the help say's ?

The C/AL code in this trigger is executed while the user makes entries into a text box. You can use this trigger to check the entries the user is making as he or she enters information.

Thomas_Hviid_Thorn

Never say dare-it-not to a Coder!!

Nice work =D>
May I ask how you did it :?:

ara3n

Hopefully v5 will give us more controls of the GUI.

Joe_Mathis

I tried for a while to make this work using standard Navision Code but with no luck.

Like everyone else I can get it to filter and then it comes back to re-activating the field and not being able to continue from the last character entered.

Has anyone else had any luck with C/AL?

BlackTiger, from looking at your video it looks as if this is using "with events" like your other demo?
True? I think that the second version looks much nicer than the first. Good Job. =D>