mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 22:56:55 +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
489 B
AL
13 lines
489 B
AL
codeunit 50132 "Sample Customer Type Library"
|
|
{
|
|
var
|
|
LibraryUtility: Codeunit "Library - Utility";
|
|
|
|
procedure CreateCustomerType(var CustomerType: Record "Customer Type")
|
|
begin
|
|
CustomerType.Init();
|
|
CustomerType.Code := CopyStr(LibraryUtility.GenerateGUID(), 1, MaxStrLen(CustomerType.Code));
|
|
CustomerType.Description := CopyStr(LibraryUtility.GenerateGUID(), 1, MaxStrLen(CustomerType.Description));
|
|
CustomerType.Insert(true);
|
|
end;
|
|
}
|