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: