26. November 2009 19:04
26. November 2009 19:29
27. November 2009 12:56
27. November 2009 13:10
27. November 2009 13:36
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=Verkaufsbersicht];
    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;
  }
}
27. November 2009 14:18
27. November 2009 15:09
27. November 2009 15:34
Natalie hat geschrieben:Ich habe deine Aufrufe nicht verstanden. Machst du zwei Lookups hintereinander ..?
27. November 2009 15:43
gFoSalesListHistory.LOOKUPMODE(TRUE);
gFoSalesListHistory.setFahrgestellNummer("Fahrgestellnr.");
//IF gFoSalesListHistory.RUNMODAL = ACTION::LookupOK THEN;
gFoSalesListHistory.RUN;
gBoHistorieList := FALSE;
CLEAR(gFoSalesListHistory);
27. November 2009 15:56
27. November 2009 16:24
gFoSalesHeader.LOOKUPMODE(TRUE);
gFoSalesHeader.SETRECORD(Rec);
IF gFoSalesHeader.RUNMODAL = ACTION::LookupOK THEN
//gFoSalesHeader.RUN;
CLEAR(gFoSalesHeader);
27. November 2009 16:46
rom hat geschrieben:im OnPush- Trigger des Ok-Buttons der Auftragsliste mit folgendem Code: