[gelöst] Meldung beim öffnen von Lookupform

26. November 2009 19:04

Hallo liebe Gemeinde,

ich habe in einem Form ein Lookup implementiert (ausprogrammiert) welches ein Form mit gefilterten Daten aufruft. Wenn ich diese gefilterten Daten (Doppelklick oder OK-Button) aufrufe (wieder über Lookup) öffnet sich das entsprechende Form.
Mein "Problem" dabei ist, das bevor sich das letzte Form öffnet ein Meldung kommt. s. Bild.
HangMeld.png


Leider ist nirgends das Form öfters offen. Was bedeutet diese Meldung genau und wie kann ich diese Meldung unterdrücken.


Danke,

vg
rom
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Zuletzt geändert von rom am 1. Dezember 2009 11:02, insgesamt 1-mal geändert.

Re: Meldung beim öffnen von Lookupform

26. November 2009 19:29

Ich habe deine Aufrufe nicht verstanden. Machst du zwei Lookups hintereinander ..?

Diese Meldung kommt, wenn FormA mit RUNMODAL (statt RUN) FormB geöffnet hat und du nun versuchst, FormA zu schließen (solange FormB noch geöffnet ist).

Re: Meldung beim öffnen von Lookupform

27. November 2009 12:56

Hallo,

danke für die Antwort. Diese Meldung kommt von alleine, wenn sich das Form via Lookup öffnet. Ich schließe eigentlich kein Form. Die Meldung kommt auch, wenn ich die "VaribleForm.RUN" ausführe. Ich mache allerdings überall ein CLEAR(FORM);

Kann es damit zusammen hängen?

lg

Re: Meldung beim öffnen von Lookupform

27. November 2009 13:10

Keine Ahnung. Zeig doch mal bitte deinen relevanten Quelltext.

Re: Meldung beim öffnen von Lookupform

27. November 2009 13:36

hi,

hier ist einmal das Form, aus dem die Karte geöffnet wird, wenn die Meldung kommt.

Code:
OBJECT Form 50003 Sales List Historie NV
{
  OBJECT-PROPERTIES
  {
    Date=27.11.09;
    Time=12:17:56;
    Modified=Yes;
    Version List=NAVW14.00 HANGLER,NV1.0.0;
  }
  PROPERTIES
  {
    Width=15510;
    Height=6710;
    Editable=No;
    CaptionML=[ENU=Sales List;
               DEA=Verkaufsbersicht];
    TableBoxID=1;
    SourceTable=Table36;
    DataCaptionFields=Document Type;
    OnOpenForm=BEGIN
                 SETRANGE("Fahrgestellnr.",gTxFahrgestellNr);
               END;

  }
  CONTROLS
  {
    { 1   ;TableBox     ;220  ;220  ;14740;5500 ;HorzGlue=Both;
                                                 VertGlue=Both }
    { 2   ;TextBox      ;0    ;0    ;1650 ;0    ;ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="No." }
    { 3   ;Label        ;0    ;0    ;0    ;0    ;ParentControl=2;
                                                 InColumnHeading=Yes }
    { 1000000000;TextBox;979  ;330  ;1700 ;440  ;ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Document Date" }
    { 1000000001;Label  ;0    ;0    ;0    ;0    ;ParentControl=1000000000;
                                                 InColumnHeading=Yes }
    { 1000000004;TextBox;3413 ;330  ;4400 ;440  ;ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Fahrgestellnr." }
    { 1000000005;Label  ;0    ;0    ;0    ;0    ;ParentControl=1000000004;
                                                 InColumnHeading=Yes }
    { 1000000006;TextBox;5026 ;330  ;1085 ;440  ;ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr=Auftragstyp }
    { 1000000007;Label  ;0    ;0    ;0    ;0    ;ParentControl=1000000006;
                                                 InColumnHeading=Yes }
    { 1000000002;TextBox;5582 ;330  ;1033 ;440  ;ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr=Auftragsart }
    { 1000000003;Label  ;0    ;0    ;0    ;0    ;ParentControl=1000000002;
                                                 InColumnHeading=Yes }
    { 4   ;TextBox      ;0    ;0    ;1650 ;0    ;ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Sell-to Customer No." }
    { 5   ;Label        ;0    ;0    ;0    ;0    ;ParentControl=4;
                                                 InColumnHeading=Yes }
    { 6   ;TextBox      ;0    ;0    ;4400 ;0    ;HorzGlue=Both;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Sell-to Customer Name" }
    { 7   ;Label        ;0    ;0    ;0    ;0    ;ParentControl=6;
                                                 InColumnHeading=Yes }
    { 17  ;TextBox      ;6694 ;330  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="External Document No." }
    { 18  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=17;
                                                 InColumnHeading=Yes }
    { 33  ;TextBox      ;18150;550  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Sell-to Post Code" }
    { 34  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=33;
                                                 InColumnHeading=Yes }
    { 29  ;TextBox      ;18150;770  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Sell-to Country Code" }
    { 30  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=29;
                                                 InColumnHeading=Yes }
    { 41  ;TextBox      ;18071;550  ;4400 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Sell-to Contact" }
    { 42  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=41;
                                                 InColumnHeading=Yes }
    { 13  ;TextBox      ;7938 ;770  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Bill-to Customer No." }
    { 14  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=13;
                                                 InColumnHeading=Yes }
    { 15  ;TextBox      ;9551 ;440  ;4400 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Bill-to Name" }
    { 16  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=15;
                                                 InColumnHeading=Yes }
    { 39  ;TextBox      ;18177;660  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Bill-to Post Code" }
    { 40  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=39;
                                                 InColumnHeading=Yes }
    { 35  ;TextBox      ;17833;440  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Bill-to Country Code" }
    { 36  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=35;
                                                 InColumnHeading=Yes }
    { 159 ;TextBox      ;19473;660  ;4400 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Bill-to Contact" }
    { 160 ;Label        ;0    ;0    ;0    ;0    ;ParentControl=159;
                                                 InColumnHeading=Yes }
    { 155 ;TextBox      ;19606;660  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Ship-to Code" }
    { 156 ;Label        ;0    ;0    ;0    ;0    ;ParentControl=155;
                                                 InColumnHeading=Yes }
    { 153 ;TextBox      ;19632;660  ;4400 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Ship-to Name" }
    { 154 ;Label        ;0    ;0    ;0    ;0    ;ParentControl=153;
                                                 InColumnHeading=Yes }
    { 27  ;TextBox      ;18256;880  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Ship-to Post Code" }
    { 28  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=27;
                                                 InColumnHeading=Yes }
    { 23  ;TextBox      ;17542;660  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Ship-to Country Code" }
    { 24  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=23;
                                                 InColumnHeading=Yes }
    { 143 ;TextBox      ;20029;660  ;4400 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Ship-to Contact" }
    { 144 ;Label        ;0    ;0    ;0    ;0    ;ParentControl=143;
                                                 InColumnHeading=Yes }
    { 139 ;TextBox      ;19685;770  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Posting Date" }
    { 140 ;Label        ;0    ;0    ;0    ;0    ;ParentControl=139;
                                                 InColumnHeading=Yes }
    { 121 ;TextBox      ;18098;770  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Shortcut Dimension 1 Code" }
    { 122 ;Label        ;0    ;0    ;0    ;0    ;ParentControl=121;
                                                 InColumnHeading=Yes }
    { 119 ;TextBox      ;17965;660  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Shortcut Dimension 2 Code" }
    { 120 ;Label        ;0    ;0    ;0    ;0    ;ParentControl=119;
                                                 InColumnHeading=Yes }
    { 123 ;TextBox      ;17806;550  ;1650 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Location Code" }
    { 124 ;Label        ;0    ;0    ;0    ;0    ;ParentControl=123;
                                                 InColumnHeading=Yes }
    { 99  ;TextBox      ;18177;550  ;1650 ;440  ;Visible=Yes;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Salesperson Code" }
    { 100 ;Label        ;0    ;0    ;0    ;0    ;ParentControl=99;
                                                 InColumnHeading=Yes }
    { 11  ;TextBox      ;7832 ;440  ;1100 ;440  ;Visible=No;
                                                 ParentControl=1;
                                                 InColumn=Yes;
                                                 SourceExpr="Currency Code" }
    { 12  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=11;
                                                 InColumnHeading=Yes }
    { 8   ;CommandButton;5500 ;5940 ;2200 ;550  ;HorzGlue=Right;
                                                 VertGlue=Bottom;
                                                 Default=Yes;
                                                 PushAction=LookupOK;
                                                 InvalidActionAppearance=Normal;
                                                 OnPush=BEGIN
                                                          gFoSalesHeader.LOOKUPMODE(TRUE);
                                                          gFoSalesHeader.SETRECORD(Rec);
                                                          IF gFoSalesHeader.RUNMODAL = ACTION::LookupOK THEN
                                                          //gFoSalesHeader.RUN;
                                                          CLEAR(gFoSalesHeader);
                                                        END;
                                                         }
    { 9   ;CommandButton;7920 ;5940 ;2200 ;550  ;HorzGlue=Right;
                                                 VertGlue=Bottom;
                                                 Cancel=Yes;
                                                 PushAction=LookupCancel;
                                                 InvalidActionAppearance=Hide }
    { 10  ;CommandButton;12760;5940 ;2200 ;550  ;HorzGlue=Right;
                                                 VertGlue=Bottom;
                                                 PushAction=FormHelp }
    { 19  ;MenuButton   ;10340;5940 ;2200 ;550  ;HorzGlue=Right;
                                                 VertGlue=Bottom;
                                                 CaptionML=[ENU=&Line;
                                                            DEA=&Zeile];
                                                 Menu=MENUITEMS
                                                 {
                                                   { ID=20;
                                                     ShortCutKey=Groá+F5;
                                                     CaptionML=[ENU=Card;
                                                                DEA=Karte];
                                                     OnPush=BEGIN
                                                              CASE "Document Type" OF
                                                                "Document Type"::Quote:
                                                                  FORM.RUN(FORM::"Sales Quote",Rec);
                                                                "Document Type"::Order:
                                                                  FORM.RUN(FORM::"Sales Order",Rec);
                                                                "Document Type"::Invoice:
                                                                  IF NOT "Service Mgt. Document" THEN
                                                                    FORM.RUN(FORM::"Sales Invoice",Rec)
                                                                  ELSE
                                                                    FORM.RUN(FORM::"Sales Invoice (Service)",Rec);
                                                                "Document Type"::"Return Order":
                                                                  FORM.RUN(FORM::"Sales Return Order",Rec);
                                                                "Document Type"::"Credit Memo":
                                                                  IF NOT "Service Mgt. Document" THEN
                                                                    FORM.RUN(FORM::"Sales Credit Memo",Rec)
                                                                  ELSE
                                                                    FORM.RUN(FORM::"Sales Credit Memo (Service)",Rec);
                                                                "Document Type"::"Blanket Order":
                                                                  FORM.RUN(FORM::"Blanket Sales Order",Rec);
                                                              END;
                                                            END;
                                                             }
                                                 }
                                                  }
  }
  CODE
  {
    VAR
      gTxFahrgestellNr@1000000000 : Text[30];
      gFoSalesHeader@1000000001 : Form 42;

    PROCEDURE setFahrgestellNummer@1000000000(pTxFahrgestellNummer@1000000000 : Text[30]);
    BEGIN
      gTxFahrgestellNr := pTxFahrgestellNummer;
    END;

  }
}



Danke!

Re: Meldung beim öffnen von Lookupform

27. November 2009 14:18

Sehe ich das richtig, du hast Quelltext hinter den OK-Button gelegt?
Der muss dort raus.
Das Ereignis OK meldet der (aufrufenden) Form, dass sie sich schließen muss. Während des Schließens versuchst du dann aber, eine neue Form zu öffnen -> Fehler

Re: Meldung beim öffnen von Lookupform

27. November 2009 15:09

Hallo, wir bekomme ich dann das Form zum öffnen? Wenn ich das RUNOBJECT Property verwende, öffnet sich das Form leider nicht.

danke.

lg

Re: Meldung beim öffnen von Lookupform

27. November 2009 15:34

Natalie hat geschrieben:Ich habe deine Aufrufe nicht verstanden. Machst du zwei Lookups hintereinander ..?


Wenn du mir noch einmal genau erläuterst, was wie und warum aufgerufen wird, kann ich vielleicht helfen ;-)

Re: Meldung beim öffnen von Lookupform

27. November 2009 15:43

Ok,

mal schauen, ob ich das hinbekomme :-)

Ich habe in einer Karte Projektauftrag in den Zeile ein Checkboxfeld mit einer boolischen Variable als Source hinterlegt. Wenn diese Checkbox angeklickt wird, öffnet sich das erste Form, welche mit einem Filter auf eine Nummer geöffnet wird (die Teil funktioniert ohne Problem). Im onPush - Trigger ist folgernder Code hinterlegt.
Code:
gFoSalesListHistory.LOOKUPMODE(TRUE);
gFoSalesListHistory.setFahrgestellNummer("Fahrgestellnr.");
//IF gFoSalesListHistory.RUNMODAL = ACTION::LookupOK THEN;
gFoSalesListHistory.RUN;
gBoHistorieList := FALSE;
CLEAR(gFoSalesListHistory);


Es öffnet sich dann die Karte (Auftragsliste), wo ich vorhhin den Code zu gepostet habe. In dieser Karte sind die Auftrage zu der gefilterten Nummer als Zeilen hinterlegt. Wenn ich nun auf so einen Auftrag klicke, soll sich die entsprechende Auftragskarte öffnen. Diese geschieht auch mit meinem Code, nur das zusätzlich diese Meldung kommt.

Ich hoffe das es so klar was ich vorhabe..

danke und lg
rom

Re: Meldung beim öffnen von Lookupform

27. November 2009 15:56

Wenn sich nach Klick auf die Checkbox die Auftragsübersicht öffnet, dann möchtest du in der Übersicht von einem Auftrag auf die Karte wechseln - und DABEI gibt es den Fehler?
Wie rufst du die Karte auf? Über einen Lookup auf die Auftrgagsnummer, über einen Button, Menüpunkt ...?

Re: Meldung beim öffnen von Lookupform

27. November 2009 16:24

im OnPush- Trigger des Ok-Buttons der Auftragsliste mit folgendem Code:

Code:
gFoSalesHeader.LOOKUPMODE(TRUE);
gFoSalesHeader.SETRECORD(Rec);
IF gFoSalesHeader.RUNMODAL = ACTION::LookupOK THEN
//gFoSalesHeader.RUN;
CLEAR(gFoSalesHeader);

Re: Meldung beim öffnen von Lookupform

27. November 2009 16:46

rom hat geschrieben:im OnPush- Trigger des Ok-Buttons der Auftragsliste mit folgendem Code:

Aber warum hast du dich entschieden, beim Klick auf OK die Karte öffnen zu wollen? Welchen Nutzen hat der Benutzer davon?

Dein Quelltext gehört dann eher in einen gesonderten Funktionsaufruf (Button). Wenn der Aufruf automatisch passieren muss und es in der Liste imimer nur einen einzigen Datensatz gibt, dann könntest du versuchen, deinen Quelltext nach OnAfterGetRecord zu verlegen. Obs funktioniert ...