LookUp Form

ngebhard

Hello everybody,

we are using a form list for a table that has a different lookup form. Therefore the ok- and cancel-buttons don't work. How can we simulate this lookup-functions. Any ideas?

For example:
within the item table we have an individual item card which uses an individual item list. Going to the item list from the item card, there is no way to select an item (i.e. with enter) that is shown in the item card (like in the lookup table). You need to remember the item no, go back with Escape and search for the item no.

Thanks for any inspiration.
Best regards,
Nicole Gebhard

fb

To simulate the 'LookupTable' PushAction property, you have to include code that looks something like this in the OnPush trigger of a menu item or command button:

CurrForm.SAVERECORD;
MyLookupForm.SETTABLEVIEW(Rec);
MyLookupForm.SETRECORD(Rec);
MyLookupForm.SETLOOKUPMODE(TRUE);
IF MyLookupForm.RUNMODAL = Action::LookupOK THEN
  MyLookupForm.GETRECORD(Rec);
CLEAR(MyLookupForm);

ngebhard

Hi fb!

I know that it is similar to the posted coding but it won't work that way. Any other hints?

Thanks a lot!
N.Gebhard

kine

Can you post your code?

ngebhard

I refered to the coding posted by fb:

CurrForm.SAVERECORD;
MyLookupForm.SETTABLEVIEW(Rec);
MyLookupForm.SETRECORD(Rec);
MyLookupForm.SETLOOKUPMODE(TRUE);
IF MyLookupForm.RUNMODAL = Action::LookupOK THEN
MyLookupForm.GETRECORD(Rec);
CLEAR(MyLookupForm);

But this way it won't work. It must be similar to this, but I just don't get it! :oops:

philippegirod

Sorry to ask a stupid question... :oops:

Are you sure your code is in the OnLookUp trigger (that means, are you sure your LookUp property of the control is set to Yes ?

Usually, this works..... you should have a little problem somewhere...

You can also define the filters instead of linking directly the tables :

TableToLookIn.SETRANGE(Field,Rec.Field);
TableToLookIn.SETRANGE("Field 2",Rec."Field 2");
IF FORM.RUNMODAL(Form ID,TableToLookIn) = ACTION::OK THEN
   My destinationField := TableToLookIn.Field
ELSE IF FORM.RUNMODAL(Form ID,TableToLookIn) = ACTION::Close THEN
   My destinationField := TableToLookIn.Field;

This is something wich works easily.... You should to find what's the problem or give us more elements..

Good luck and courage.

ngebhard

I made a typical beginner error. I forgot to delete the entries in the menu button "action > run object" as I entered the coding in the push trigger.

Therefore it didn't work!!
Sorry... :oops:

Now it works perfect!!
Thanks a lot