Report 99001017 Calculate Plan - Plan. Wksh., source in 29
Source29
src/Layers/W1/BaseApp/Inventory/Planning/CalculatePlanPlanWksh.Report.al432 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Manufacturing.Planning;
using Microsoft.Inventory.Item;
using Microsoft.Inventory.Planning;
using Microsoft.Inventory.Requisition;
using Microsoft.Inventory.Setup;
report 99001017 "Calculate Plan - Plan. Wksh."
{
Caption = 'Calculate Plan - Plan. Wksh.';
ProcessingOnly = true;
dataset
{
dataitem(Item; Item)
{
DataItemTableView = sorting("Low-Level Code") where(Type = const(Inventory));
RequestFilterFields = "No.", Description, "Location Filter";
trigger OnAfterGetRecord()
var
ErrorText: Text[1000];
IsHandled: Boolean;
begin
if GuiAllowed then
UpdateWindow();
IsHandled := false;
OnItemOnAfterGetRecordOnBeforeCheckSetAtStartPosition(Item, CounterOK, IsHandled);
if IsHandled then
CurrReport.Skip();
if not SetAtStartPosition then begin
SetAtStartPosition := true;
Get(PlanningErrorLog."Item No.");
Find('=<>');
end;
if NoPlanningResiliency then begin
CalcItemPlan.Run(Item);
CounterOK := CounterOK + 1;
end else begin
CalcItemPlan.ClearInvtProfileOffsetting();
CalcItemPlan.SetResiliencyOn();
if CalcItemPlan.Run(Item) then begin
if CalcItemPlan.GetPlanningSkippedForMissingSKUPolicy() then
CalcItemPlan.GetResiliencyErrors(PlanningErrorLog)
else
CounterOK := CounterOK + 1;
end else
if not CalcItemPlan.GetResiliencyError(PlanningErrorLog) then begin
ErrorText := CopyStr(GetLastErrorText, 1, MaxStrLen(ErrorText));
if ErrorText = '' then
ErrorText := Text011
else
ClearLastError();
PlanningErrorLog.SetJnlBatch(CurrTemplateName, CurrWorksheetName, "No.");
OnItemOnAfterGetRecordOnBeforePlanningErrorLogSetError(Item, PlanningErrorLog);
PlanningErrorLog.SetError(
CopyStr(StrSubstNo(ErrorText, TableCaption(), "No."), 1, 250), 0, GetPosition());
end;
end;
Commit();
end;
trigger OnPostDataItem()
begin
CalcItemPlan.Finalize();
if GuiAllowed then
CloseWindow();
OnAfterItemOnPostDataItem(CurrTemplateName, CurrWorksheetName);
end;
trigger OnPreDataItem()
var
ShouldSetAtStartPosition: Boolean;
begin
OnBeforeItemOnPreDataItem(Item);
if GuiAllowed then
OpenWindow();
Clear(CalcItemPlan);
CalcItemPlan.SetTemplAndWorksheet(CurrTemplateName, CurrWorksheetName, NetChange);
CalcItemPlan.SetParm(UseForecast, ExcludeForecastBefore, Item);
CalcItemPlan.Initialize(FromDate, ToDate, MPS, MRP, RespectPlanningParm);
SetAtStartPosition := true;
OnOnPreDataItemOnAfterSetAtStartPosition(Item);
ReqLine.SetRange("Worksheet Template Name", CurrTemplateName);
ReqLine.SetRange("Journal Batch Name", CurrWorksheetName);
PlanningErrorLog.SetRange("Worksheet Template Name", CurrTemplateName);
PlanningErrorLog.SetRange("Journal Batch Name", CurrWorksheetName);
ShouldSetAtStartPosition := PlanningErrorLog.FindFirst() and ReqLine.FindFirst();
OnOnPreDataItemOnAfterCalcShouldSetAtStartPosition(Item, PlanningErrorLog, ReqLine, SetAtStartPosition, ShouldSetAtStartPosition);
if ShouldSetAtStartPosition then
SetAtStartPosition := not Confirm(Text009);
ClearPlanningErrorLog();
ClearLastError();
OnAfterItemOnPreDataItem(Item);
Commit();
end;
}
}
requestpage
{
SaveValues = true;
layout
{
area(content)
{
group(Options)
{
Caption = 'Options';
group(Calculate)
{
Caption = 'Calculate';
field(MPS; MPS)
{
ApplicationArea = Planning;
Caption = 'MPS';
ToolTip = 'Specifies whether to calculate a master production schedule (MPS) based on independent demand. ';
trigger OnValidate()
begin
InventorySetup.GetRecordOnce();
if not InventorySetup."Combined MPS/MRP Calculation" then
MRP := not MPS
else
if not MPS then
MRP := true;
end;
}
field(MRP; MRP)
{
ApplicationArea = Planning;
Caption = 'MRP';
ToolTip = 'Specifies whether to calculate a material requirements planning (MRP), which will calculate dependent demand that is based on the MPS.';
trigger OnValidate()
begin
InventorySetup.GetRecordOnce();
if not InventorySetup."Combined MPS/MRP Calculation" then
MPS := not MRP
else
if not MRP then
MPS := true;
end;
}
}
field(StartingDate; FromDate)
{
ApplicationArea = Planning;
Caption = 'Starting Date';
ToolTip = 'Specifies the date to use for new orders. This date is used to evaluate the inventory.';
ShowMandatory = true;
}
field(EndingDate; ToDate)
{
ApplicationArea = Planning;
Caption = 'Ending Date';
ToolTip = 'Specifies the date where the planning period ends. Demand is not included beyond this date.';
ShowMandatory = true;
}
field(NoPlanningResiliency; NoPlanningResiliency)
{
ApplicationArea = Planning;
Caption = 'Stop and Show First Error';
ToolTip = 'Specifies whether to stop the planning run when it encounters an error. If the planning run stops, then a message is displayed with information about the first error.';
}
field(UseForecast; UseForecast)
{
ApplicationArea = Planning;
Caption = 'Use Forecast';
TableRelation = Microsoft.Manufacturing.Forecast."Production Forecast Name".Name;
ToolTip = 'Specifies a forecast that should be included as demand when running the planning batch job.';
}
field(ExcludeForecastBefore; ExcludeForecastBefore)
{
ApplicationArea = Planning;
Caption = 'Exclude Forecast Before';
ToolTip = 'Specifies how much of the selected forecast to include in the planning run, by entering a date before which forecast demand is not included.';
}
field(RespectPlanningParm; RespectPlanningParm)
{
ApplicationArea = Planning;
Caption = 'Respect Planning Parameters for Exception Warnings';
ToolTip = 'Specifies whether planning lines with Exception warnings will respect the planning parameters on the item or SKU card.';
}
}
}
}
actions
{
}
trigger OnOpenPage()
begin
InitializeFromSetup();
OnAfterOnOpenPage(FromDate, ToDate);
end;
}
labels
{
}
var
InventorySetup: Record "Inventory Setup";
PlanningErrorLog: Record "Planning Error Log";
ReqLine: Record "Requisition Line";
CalcItemPlan: Codeunit "Calc. Item Plan - Plan Wksh.";
Window: Dialog;
Counter: Integer;
CounterOK: Integer;
NoOfRecords: Integer;
#pragma warning disable AA0074
Text005: Label 'Calculating the plan...\\';
Text006: Label 'Progress';
#pragma warning disable AA0470
Text007: Label 'Not all items were planned. A total of %1 items were not planned.';
#pragma warning restore AA0470
Text008: Label 'There is nothing to plan.';
#pragma warning restore AA0074
#pragma warning disable AA0074
Text009: Label 'The last time this batch was run, errors were encountered.\Do you want the batch to continue from where it left off?';
#pragma warning disable AA0470
Text011: Label 'An unidentified error occurred while planning %1 %2. Recalculate the plan with the option "Stop and Show Error".';
#pragma warning restore AA0470
#pragma warning restore AA0074
protected var
CurrTemplateName: Code[10];
CurrWorksheetName: Code[10];
NetChange: Boolean;
MPS: Boolean;
MRP: Boolean;
NoPlanningResiliency: Boolean;
SetAtStartPosition: Boolean;
FromDate: Date;
ToDate: Date;
ExcludeForecastBefore: Date;
UseForecast: Code[10];
RespectPlanningParm: Boolean;
procedure SetTemplAndWorksheet(TemplateName: Code[10]; WorksheetName: Code[10]; Regenerative: Boolean)
begin
CurrTemplateName := TemplateName;
CurrWorksheetName := WorksheetName;
NetChange := not Regenerative;
end;
procedure InitializeRequest(NewFromDate: Date; NewToDate: Date; NewRespectPlanningParm: Boolean)
begin
FromDate := NewFromDate;
ToDate := NewToDate;
RespectPlanningParm := NewRespectPlanningParm;
InventorySetup.GetRecordOnce();
if InventorySetup."Combined MPS/MRP Calculation" then begin
MPS := true;
MRP := true;
end else
MRP := not MPS;
UseForecast := InventorySetup."Current Demand Forecast";
end;
procedure InitializeRequest(NewFromDate: Date; NewToDate: Date; NewRespectPlanningParm: Boolean; NewMPS: Boolean; NewMRP: Boolean; NewUseForecast: Code[10]; NewExcludeForecastBefore: Date; NewNoPlanningResiliency: Boolean)
begin
FromDate := NewFromDate;
ToDate := NewToDate;
RespectPlanningParm := NewRespectPlanningParm;
MPS := NewMPS;
MRP := NewMRP;
UseForecast := NewUseForecast;
ExcludeForecastBefore := NewExcludeForecastBefore;
NoPlanningResiliency := NewNoPlanningResiliency;
end;
procedure OpenWindow()
var
Indentation: Integer;
begin
Counter := 0;
CounterOK := 0;
NoOfRecords := Item.Count();
Indentation := StrLen(Text006);
if StrLen(Item.FieldCaption("Low-Level Code")) > Indentation then
Indentation := StrLen(Item.FieldCaption("Low-Level Code"));
if StrLen(Item.FieldCaption("No.")) > Indentation then
Indentation := StrLen(Item.FieldCaption("No."));
Window.Open(
Text005 +
PadStr(Text006, Indentation) + ' @1@@@@@@@@@@@@@\' +
PadStr(Item.FieldCaption("Low-Level Code"), Indentation) + ' #2######\' +
PadStr(Item.FieldCaption("No."), Indentation) + ' #3##########');
end;
procedure UpdateWindow()
begin
Counter := Counter + 1;
Window.Update(1, Round(Counter / NoOfRecords * 10000, 1));
Window.Update(2, Item."Low-Level Code");
Window.Update(3, Item."No.");
end;
local procedure ClearPlanningErrorLog()
var
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeDeletePlanningErrorLog(PlanningErrorLog, IsHandled);
if IsHandled then
exit;
PlanningErrorLog.DeleteAll();
end;
procedure CloseWindow()
begin
Window.Close();
if Counter = 0 then
Message(Text008);
if Counter > CounterOK then begin
Message(Text007, Counter - CounterOK);
ShowPlanningErrorLog();
end;
end;
local procedure InitializeFromSetup()
var
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeInitializeFromMfgSetup(UseForecast, MPS, MRP, IsHandled);
if IsHandled then
exit;
InventorySetup.GetRecordOnce();
UseForecast := InventorySetup."Current Demand Forecast";
if InventorySetup."Combined MPS/MRP Calculation" then begin
MPS := true;
MRP := true;
end else
MRP := not MPS;
end;
local procedure ShowPlanningErrorLog()
var
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeShowPlanningErrorLog(PlanningErrorLog, IsHandled);
if IsHandled then
exit;
if PlanningErrorLog.FindFirst() then
PAGE.RunModal(0, PlanningErrorLog);
end;
[IntegrationEvent(false, false)]
local procedure OnAfterOnOpenPage(var FromDate: Date; var ToDate: Date)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnAfterItemOnPreDataItem(var Item: Record Item)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnOnPreDataItemOnAfterSetAtStartPosition(var Item: Record Item)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnAfterItemOnPostDataItem(var CurrTemplateName: Code[10]; var CurrWorksheetName: Code[10])
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeDeletePlanningErrorLog(var PlanningErrorLog: Record "Planning Error Log"; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeInitializeFromMfgSetup(var UseForecast: Code[10]; var MPS: Boolean; var MRP: Boolean; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeItemOnPreDataItem(var Item: Record Item)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeShowPlanningErrorLog(var PlanningErrorLog: Record "Planning Error Log"; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnItemOnAfterGetRecordOnBeforeCheckSetAtStartPosition(var Item: Record Item; var CounterOK: Integer; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnItemOnAfterGetRecordOnBeforePlanningErrorLogSetError(var Item: Record Item; var PlanningErrorLog: Record "Planning Error Log")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnOnPreDataItemOnAfterCalcShouldSetAtStartPosition(Item: Record Item; PlanningErrorLog: Record "Planning Error Log"; RequisitionLine: Record "Requisition Line"; var SetAtStartPosition: Boolean; var ShouldSetAtStartPosition: Boolean)
begin
end;
}