mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-07 07:36:54 +01:00
1028aacd4f
Third batch from CURABIS ApS: item-ledger-entry document-no lookup after Ship-and-Invoice posting, TestPage.Visible()/.Enabled() as the mechanism for verifying field UI state, and LibraryUtility.GenerateGUID() for collision-free test fixture values.
13 lines
501 B
AL
13 lines
501 B
AL
codeunit 50130 "Sample Item Ledger Lookup"
|
|
{
|
|
procedure GetPostedItemLedgerEntries(var SalesHeader: Record "Sales Header"; var ItemLedgerEntry: Record "Item Ledger Entry")
|
|
var
|
|
LibrarySales: Codeunit "Library - Sales";
|
|
ShippingNo: Code[20];
|
|
begin
|
|
LibrarySales.PostSalesDocument(SalesHeader, true, true);
|
|
ShippingNo := SalesHeader."Last Shipping No.";
|
|
ItemLedgerEntry.SetRange("Document No.", ShippingNo);
|
|
ItemLedgerEntry.FindSet();
|
|
end;
|
|
}
|