Skip to content

KVSFCYSalesOrderPlanningExt#

Extends #437dbf0e84ff417a965ded2bb9650972#Sales Order Planning

Procedures#

KVSFCYBuildFormFCY() :#

Summary: Builds and refreshes the sales order planning form with current data. Clears existing records and rebuilds the planning lines based on the current context (sales order or job).

procedure KVSFCYBuildFormFCY():

KVSFCYSetJob(Code[20], Code[20]) :#

Summary: Sets the job context for planning operations by specifying the job number and optional job task. This configures the page to work with job-based planning instead of direct sales order planning.

procedure KVSFCYSetJob(JobNoPar: Code[20]; JobTaskNoPar: Code[20]):

Parameters:

  • JobNoPar: Job number to set as the planning context
  • JobTaskNoPar: Job task number to filter planning to a specific task, or blank for all tasks

KVSFCYCreateProdOrderFCY() :#

Summary: Creates production orders from the current sales planning lines with enhanced job integration. Opens the Create Order From Sales dialog and processes the selected planning lines to generate production orders.

procedure KVSFCYCreateProdOrderFCY():

Events#

KVSFCYOnBeforeCalculatePlanAndDelivDates(Record Item) :#

Summary: Triggers before calculating planning and delivery dates for an item.

[IntegrationEvent(false, false)]
local procedure KVSFCYOnBeforeCalculatePlanAndDelivDates(var Item: Record "Item"): 

[EventSubscriber(ObjectType::PageExtension, PageExtension::"KVSFCYSalesOrderPlanningExt", 'KVSFCYOnBeforeCalculatePlanAndDelivDates', '', false, false)]
local procedure DoSomethingKVSFCYOnBeforeCalculatePlanAndDelivDates(var Item: Record "Item")
begin
end;

Parameters:

  • Item: Item record

KVSFCYOnMakeLinesSetOnAfterSetFilters(Record Sales Line) :#

Summary: Triggers after setting filters on sales lines during planning line creation.

[IntegrationEvent(false, false)]
local procedure KVSFCYOnMakeLinesSetOnAfterSetFilters(var SalesLine: Record "Sales Line"): 

[EventSubscriber(ObjectType::PageExtension, PageExtension::"KVSFCYSalesOrderPlanningExt", 'KVSFCYOnMakeLinesSetOnAfterSetFilters', '', false, false)]
local procedure DoSomethingKVSFCYOnMakeLinesSetOnAfterSetFilters(var SalesLine: Record "Sales Line")
begin
end;

Parameters:

  • SalesLine: Sales line record

KVSFCYOnMakeLinesOnBeforeInsertSalesOrderPlanningLine(Record Sales Planning Line, Record Sales Line) :#

Summary: Triggers before inserting a sales order planning line.

[IntegrationEvent(false, false)]
local procedure KVSFCYOnMakeLinesOnBeforeInsertSalesOrderPlanningLine(var SalesPlanningLine: Record "Sales Planning Line"; var SalesLine: Record "Sales Line"): 

[EventSubscriber(ObjectType::PageExtension, PageExtension::"KVSFCYSalesOrderPlanningExt", 'KVSFCYOnMakeLinesOnBeforeInsertSalesOrderPlanningLine', '', false, false)]
local procedure DoSomethingKVSFCYOnMakeLinesOnBeforeInsertSalesOrderPlanningLine(var SalesPlanningLine: Record "Sales Planning Line"; var SalesLine: Record "Sales Line")
begin
end;

Parameters:

  • SalesPlanningLine: Sales planning line record
  • SalesLine: Sales line record

KVSFCYOnCreateOrdersOnBeforeCreateProdOrder(Record Sales Planning Line, Record Sales Line, Boolean) :#

Summary: Triggers before creating a production order from a sales planning line.

[IntegrationEvent(false, false)]
local procedure KVSFCYOnCreateOrdersOnBeforeCreateProdOrder(var SalesPlanningLine: Record "Sales Planning Line"; var SalesLine: Record "Sales Line"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::PageExtension, PageExtension::"KVSFCYSalesOrderPlanningExt", 'KVSFCYOnCreateOrdersOnBeforeCreateProdOrder', '', false, false)]
local procedure DoSomethingKVSFCYOnCreateOrdersOnBeforeCreateProdOrder(var SalesPlanningLine: Record "Sales Planning Line"; var SalesLine: Record "Sales Line"; var IsHandled: Boolean)
begin
end;

Parameters:

  • SalesPlanningLine: Sales planning line record
  • SalesLine: Sales line record
  • IsHandled: Flag indicating if handled by extension

KVSFCYOnBeforeCreateOrder(Record Sales Planning Line, Record Sales Line, Boolean) :#

Summary: Triggers before creating an order from a sales planning line.

[IntegrationEvent(false, false)]
local procedure KVSFCYOnBeforeCreateOrder(var SalesPlanningLine: Record "Sales Planning Line"; var SalesLine: Record "Sales Line"; var CreateProdOrder: Boolean): 

[EventSubscriber(ObjectType::PageExtension, PageExtension::"KVSFCYSalesOrderPlanningExt", 'KVSFCYOnBeforeCreateOrder', '', false, false)]
local procedure DoSomethingKVSFCYOnBeforeCreateOrder(var SalesPlanningLine: Record "Sales Planning Line"; var SalesLine: Record "Sales Line"; var CreateProdOrder: Boolean)
begin
end;

Parameters:

  • SalesPlanningLine: Sales planning line record
  • SalesLine: Sales line record
  • CreateProdOrder: Flag to create production order

KVSFCYOnBeforeCreateProdOrder(Record Sales Planning Line, Enum Production Order Status, Enum Create Production Order Type, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSFCYOnBeforeCreateProdOrder(var SalesPlanningLine: Record "Sales Planning Line"; var NewStatus: Enum "Production Order Status"; var NewOrderType: Enum "Create Production Order Type"; var ShowCreateOrderForm: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::PageExtension, PageExtension::"KVSFCYSalesOrderPlanningExt", 'KVSFCYOnBeforeCreateProdOrder', '', false, false)]
local procedure DoSomethingKVSFCYOnBeforeCreateProdOrder(var SalesPlanningLine: Record "Sales Planning Line"; var NewStatus: Enum "Production Order Status"; var NewOrderType: Enum "Create Production Order Type"; var ShowCreateOrderForm: Boolean; var IsHandled: Boolean)
begin
end;

KVSFCYOnAfterCreateProdOrder(Record Sales Planning Line) :#

Summary: Triggers after creating a production order from a sales planning line.

[IntegrationEvent(false, false)]
local procedure KVSFCYOnAfterCreateProdOrder(var SalesPlanningLine: Record "Sales Planning Line"): 

[EventSubscriber(ObjectType::PageExtension, PageExtension::"KVSFCYSalesOrderPlanningExt", 'KVSFCYOnAfterCreateProdOrder', '', false, false)]
local procedure DoSomethingKVSFCYOnAfterCreateProdOrder(var SalesPlanningLine: Record "Sales Planning Line")
begin
end;

Parameters:

  • SalesPlanningLine: Sales planning line record