Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -7,14 +7,43 @@ namespace Microsoft.Manufacturing.Subcontracting;
using Microsoft.Foundation.Company;
using Microsoft.Manufacturing.Setup;
using System.Environment.Configuration;
using System.Media;

codeunit 99001502 "Subc. Business Setup Ext."
{
var
AssistedSetupDescriptionLbl: Label 'Review company defaults and continue with the pages used to configure your subcontracting process.';
AssistedSetupShortTitleLbl: Label 'Set up Subcontracting';
AssistedSetupTitleLbl: Label 'Set up Subcontracting';
DocumentationUrlLbl: Label 'https://go.microsoft.com/fwlink/?linkid=2345593', Locked = true;
SubcontractingDescriptionLbl: Label 'Make manual Subcontracting Setup';
SubcontractingKeyWordsLbl: Label 'Subcontracting, Management';
SubcontractingLbl: Label 'Subcontracting App';

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Guided Experience", OnRegisterAssistedSetup, '', false, false)]
local procedure OnRegisterAssistedSetup()
var
GuidedExperience: Codeunit "Guided Experience";
AssistedSetupGroup: Enum "Assisted Setup Group";
VideoCategory: Enum "Video Category";
begin
if GuidedExperience.Exists("Guided Experience Type"::"Assisted Setup", ObjectType::Page, Page::"Subcontracting Setup Wizard") then
exit;

GuidedExperience.InsertAssistedSetup(
AssistedSetupTitleLbl,
AssistedSetupShortTitleLbl,
AssistedSetupDescriptionLbl,
5,
ObjectType::Page,
Page::"Subcontracting Setup Wizard",
AssistedSetupGroup::ReadyForBusiness,
'',
VideoCategory::ReadyForBusiness,
DocumentationUrlLbl,
true);
end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Guided Experience", OnRegisterManualSetup, '', false, false)]
local procedure OnRegisterManualSetup(sender: Codeunit "Guided Experience")
var
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -85,6 +85,7 @@ permissionset 99001501 "Subcontract. - Objs"
page "Subc. Routing Info Factbox" = X,
page "Subc. Transfer Line Factbox" = X,
page "Subcontractor Prices" = X,
page "Subcontracting Setup Wizard" = X,
page "Subc. WIP Adjustment" = X,
page "Subc. WIP Ledger Entries" = X,

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -44,6 +44,11 @@ pageextension 99001542 "Subc. Manufacturing Setup" extends "Manufacturing Setup"
ApplicationArea = Subcontracting;
ToolTip = 'Specifies which Direct Unit Cost of a Prod. Order Component is to be used in the subcontracting purchase order. Standard: Standard pricing is used when procuring the component. Prod. Order Component: The calculated Direct Unit Cost of the Prod. Order Component Line is transferred to the subcontracting purchase order.';
}
field("Subc. Default Comp. Location"; Rec."Subc. Default Comp. Location")
{
ApplicationArea = Subcontracting;
ToolTip = 'Specifies where to get the default location for components supplied to the subcontractor.';
}
}
}
}
Expand Down
Loading
Loading