Lookup

siyak · 2008-06-04

Hi there pips

I've created two table(T1 and T2) and i want to link them.one table have the two fields(No.which is a Code10 and name filed Option) on T2 i have (customer No. (code10),No.(Code10),Name(option) and other fields) i have 2 forms for both of them(F1 and F2).The table relation on T2
T2."No." WHERE (Name=FIELD(Name)).
On F2 when i'm on the "No." i need to lookup T1 and its not working.

I have the following code on Onvalidate and OnLookup of T2
IF "Customer No." = COPYSTR("Shearing Shed No.",1,6) THEN
VALIDATE("Main Shed",TRUE)
ELSE
"Main Shed" := FALSE;
Which validates other fields

kriki · 2008-06-04

Remove your code from the OnLookup-trigger.
The fact that there is some code, makes it that the standard onlookup is NOT triggered. (You may NOT even put some documented line on the trigger!).
The Validate-trigger will be run when you leave the field after selecting a value with the lookup.

PS don't forget the LookupFormID-property on the table in which you want to select a value.

siyak · 2008-06-04

i've trid that,but still doesn't do the lookup

siyak · 2008-06-04

Pips i've tried to remove the code from the Onlookup and onValidate and when i'm on the form it doesn't do the lookup ](*,) please help

kriki · 2008-06-04

siyak wrote:

Pips i've tried to remove the code from the Onlookup and onValidate and when i'm on the form it doesn't do the lookup ](*,) please help

PS don't forget the LookupFormID-property on the table in which you want to select a value.

Did you do this?

siyak · 2008-06-04

Yes i did it,but it removes the lookup button ](*,)

siyak · 2008-06-04

Please help i've tried everything i know about lookup.I tried to make that field a flowfield and do the calc formular for lookup,but i does'nt work. :oops:

krzychub83 · 2008-06-04

:-k

I've created two table(T1 and T2) and i want to link them.one table have the two fields(No.which is a Code10 and name filed Option) on T2 i have (customer No. (code10),No.(Code10),Name(option) and other fields) i have 2 forms for both of them(F1 and F2).The table relation on T2
T2."No." WHERE (Name=FIELD(Name)).

TableRelation: T1."No."

On F2 when i'm on the "No." i need to lookup T1 and its not working.

I have the following code on Onvalidate and OnLookup of T2
IF "Customer No." = COPYSTR("Shearing Shed No.",1,6) THEN
VALIDATE("Main Shed",TRUE)
ELSE
"Main Shed" := FALSE;
Which validates other fields

Put code only in onValidate() trigger.

OK ... This will be quicker:
(2 basics examples of using LookUP)

OBJECT Table 59998 TableExample1
{
  OBJECT-PROPERTIES
  {
    Date=08-06-04;
    Time=17:56:55;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    LookupFormID=Form59998;
  }
  FIELDS
  {
    { 1   ;   ;No.                 ;Code20         }
    { 2   ;   ;No Table2           ;Code20        ;TableRelation=TableExample2.No.;
                                                   OnValidate=BEGIN
                                                                MESSAGE('MESSAGE FROM TABLE TRIGGER ONVALIDATE!');
                                                              END;
                                                               }
    { 3   ;   ;No Table2 2         ;Code20         }
    { 4   ;   ;Description From Table2;Text30      }
  }
  KEYS
  {
    {    ;No.                                      }
  }
  CODE
  {

    BEGIN
    END.
  }
}

OBJECT Table 59999 TableExample2
{
  OBJECT-PROPERTIES
  {
    Date=08-06-04;
    Time=17:37:14;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    LookupFormID=Form59999;
  }
  FIELDS
  {
    { 1   ;   ;No.                 ;Code20         }
    { 2   ;   ;Description         ;Text30         }
  }
  KEYS
  {
    {    ;No.                                      }
  }
  CODE
  {

    BEGIN
    END.
  }
}

OBJECT Form 59998 FormExample1
{
  OBJECT-PROPERTIES
  {
    Date=08-06-04;
    Time=18:02:52;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    Width=11150;
    Height=6710;
    TableBoxID=1000000000;
    SourceTable=Table59998;
  }
  CONTROLS
  {
    { 1000000000;TableBox;220 ;220  ;10710;5500 ;HorzGlue=Both;
                                                 VertGlue=Both }
    { 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    ;1700 ;0    ;ParentControl=1000000000;
                                                 InColumn=Yes;
                                                 SourceExpr="No Table2" }
    { 1000000004;Label  ;0    ;0    ;0    ;0    ;ParentControl=1000000003;
                                                 InColumnHeading=Yes }
    { 1000000005;TextBox;0    ;0    ;1700 ;0    ;ParentControl=1000000000;
                                                 InColumn=Yes;
                                                 Lookup=Yes;
                                                 SourceExpr="No Table2 2";
                                                 OnLookup=VAR
                                                            Table2Rec@1000000000 : Record 59999;
                                                            Form2@1000000001 : Form 59999;
                                                          BEGIN
                                                            CLEAR(Table2Rec);
                                                            Form2.LOOKUPMODE := TRUE;
                                                            IF Form2.RUNMODAL() = ACTION::LookupOK THEN
                                                            BEGIN
                                                              Form2.GETRECORD(Table2Rec);
                                                              Rec."Description From Table2":= Table2Rec.Description;
                                                              Rec."No Table2 2":= Table2Rec."No.";
                                                            END;
                                                          END;
                                                           }
    { 1000000006;Label  ;0    ;0    ;0    ;0    ;ParentControl=1000000005;
                                                 InColumnHeading=Yes }
    { 1000000007;TextBox;0    ;0    ;4400 ;0    ;HorzGlue=Both;
                                                 Editable=No;
                                                 ParentControl=1000000000;
                                                 InColumn=Yes;
                                                 SourceExpr="Description From Table2" }
    { 1000000008;Label  ;0    ;0    ;0    ;0    ;ParentControl=1000000007;
                                                 InColumnHeading=Yes }
    { 1000000009;CommandButton;3890;5940;2200;550;
                                                 HorzGlue=Right;
                                                 VertGlue=Bottom;
                                                 Default=Yes;
                                                 PushAction=LookupOK;
                                                 InvalidActionAppearance=Hide }
    { 1000000010;CommandButton;6310;5940;2200;550;
                                                 HorzGlue=Right;
                                                 VertGlue=Bottom;
                                                 Cancel=Yes;
                                                 PushAction=LookupCancel;
                                                 InvalidActionAppearance=Hide }
    { 1000000011;CommandButton;8730;5940;2200;550;
                                                 HorzGlue=Right;
                                                 VertGlue=Bottom;
                                                 PushAction=FormHelp }
  }
  CODE
  {

    BEGIN
    END.
  }
}

OBJECT Form 59999 FormExample2
{
  OBJECT-PROPERTIES
  {
    Date=08-06-04;
    Time=17:36:52;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    Width=9790;
    Height=6710;
    TableBoxID=1000000000;
    SourceTable=Table59999;
  }
  CONTROLS
  {
    { 1000000000;TableBox;220 ;220  ;9350 ;5500 ;HorzGlue=Both;
                                                 VertGlue=Both }
    { 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 }
    { 1000000005;CommandButton;2530;5940;2200;550;
                                                 HorzGlue=Right;
                                                 VertGlue=Bottom;
                                                 Default=Yes;
                                                 PushAction=LookupOK;
                                                 InvalidActionAppearance=Hide }
    { 1000000006;CommandButton;4950;5940;2200;550;
                                                 HorzGlue=Right;
                                                 VertGlue=Bottom;
                                                 Cancel=Yes;
                                                 PushAction=LookupCancel;
                                                 InvalidActionAppearance=Hide }
    { 1000000007;CommandButton;7370;5940;2200;550;
                                                 HorzGlue=Right;
                                                 VertGlue=Bottom;
                                                 PushAction=FormHelp }
  }
  CODE
  {

    BEGIN
    END.
  }
}

Just import it and see how does it work.

siyak · 2008-06-05

Thanks for that,but my tables and forms looks almost the same as that one.I always use the table relation(T1.No where Name = field T2.name). i don't know why i doesn't do the lookup ](*,)

siyak · 2008-06-05

I tried to use the field as a flowfield and use the calcfomular the lookup,but it doesn't allow the primary key to be the flowfield!! :-k

krzychub83 · 2008-06-05

Hey siyak

1.

The table relation on T2
T2."No." WHERE (Name=FIELD(Name)).

I just notice, that it should be (in my opinion):
T1."No." WHERE (Name=FIELD(Name)).
Because it was on T2.

2. Check lookup property of this column at the form. You should have <No> (Default Value) or YES, otherwise You will not see lookUp button.

3. If You can post table and form at this forum (or just the form - I know that this is not always possible). I will try to check then what can be wrong (as quickly as I will be able to do it).

siyak · 2008-06-05

Can you pleases send me your email address then i'll send it to you

siyak · 2008-06-05

Hey krzychub83
thanks for your troubles,i've got it correct,what i have done is delete the code in the Onlookup button(It didn't work because i've just commented it out)then i deleted it and it works =D>
Thanks again!!!

kriki · 2008-06-05

kriki wrote:

Remove your code from the OnLookup-trigger.
The fact that there is some code, makes it that the standard onlookup is NOT triggered. (You may NOT even put some documented line on the trigger!).
The Validate-trigger will be run when you leave the field after selecting a value with the lookup.

PS don't forget the LookupFormID-property on the table in which you want to select a value.

I should have put that phrase in red and in bold.

siyak · 2008-06-05

Thanks Kriki!! i should have read your statement carefully,insead of wasting time doing nothing!! =D>

Lookup

Comments

Categories