KVSFCYEDModPropCompareLib#
Procedures#
OnRun#
procedure OnRun(Rec: Record "#437dbf0e84ff417a965ded2bb9650972#Item")
OpenModWkshFromProdOrderLine(Record Prod. Order Line) :#
procedure OpenModWkshFromProdOrderLine(prodOrderLinePar: Record "Prod. Order Line"):
SetCompareParameters(Code[10], Boolean, Boolean, Boolean, Boolean, Record Production Order) :#
procedure SetCompareParameters(currWorksheetNamePar: Code[10]; regenerativePlanPar: Boolean; compareProdOrderStatusPar: Boolean; prodBOMStatusCheckSuspendedPar: Boolean; routingStatusCheckSuspendedPar: Boolean; var TempProductionOrderVar: Record "Production Order" temporary):
CompareProdOrderLine(Record Prod. Order Line) :#
procedure CompareProdOrderLine(prodOrderLinePar: Record "Prod. Order Line"):
Events#
OnBeforeEDProdOrderLineInsert(Record KVSFCYEDModProposalOrderLine, Record Prod. Order Line) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeEDProdOrderLineInsert(var EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; ProdOrderLine: Record "Prod. Order Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnBeforeEDProdOrderLineInsert', '', false, false)]
local procedure DoSomethingOnBeforeEDProdOrderLineInsert(var EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; ProdOrderLine: Record "Prod. Order Line")
begin
end;
OnAfterInitEDProdOrderLine(Record KVSFCYEDModProposalOrderLine, Record Prod. Order Line) :#
[IntegrationEvent(false, false)]
local procedure OnAfterInitEDProdOrderLine(var EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; ProdOrderLine: Record "Prod. Order Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnAfterInitEDProdOrderLine', '', false, false)]
local procedure DoSomethingOnAfterInitEDProdOrderLine(var EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; ProdOrderLine: Record "Prod. Order Line")
begin
end;
OnBeforeTransferRoutingLine(Record KVSFCYEDModProposalRtgLine, Record Routing Line) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeTransferRoutingLine(var EDProdOrderRtngLine: Record "KVSFCYEDModProposalRtgLine"; RntgLine: Record "Routing Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnBeforeTransferRoutingLine', '', false, false)]
local procedure DoSomethingOnBeforeTransferRoutingLine(var EDProdOrderRtngLine: Record "KVSFCYEDModProposalRtgLine"; RntgLine: Record "Routing Line")
begin
end;
OnAfterTransferRoutingLine(Record KVSFCYEDModProposalRtgLine, Record Routing Line, Record KVSFCYEDModProposalOrderLine) :#
[IntegrationEvent(false, false)]
local procedure OnAfterTransferRoutingLine(var EDProdOrderRtngLine: Record "KVSFCYEDModProposalRtgLine"; RntgLine: Record "Routing Line"; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnAfterTransferRoutingLine', '', false, false)]
local procedure DoSomethingOnAfterTransferRoutingLine(var EDProdOrderRtngLine: Record "KVSFCYEDModProposalRtgLine"; RntgLine: Record "Routing Line"; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine")
begin
end;
OnBeforeTransferProdBOMLine(Record KVSFCYEDModProposalComponent, Record Production BOM Line, Integer) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeTransferProdBOMLine(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; ProdBOMLine: Record "Production BOM Line"; Level: Integer):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnBeforeTransferProdBOMLine', '', false, false)]
local procedure DoSomethingOnBeforeTransferProdBOMLine(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; ProdBOMLine: Record "Production BOM Line"; Level: Integer)
begin
end;
OnAfterTransferProdBOMLine(Record KVSFCYEDModProposalComponent, Record Production BOM Line, Integer, Record KVSFCYEDModProposalOrderLine) :#
[IntegrationEvent(false, false)]
local procedure OnAfterTransferProdBOMLine(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; ProdBOMLine: Record "Production BOM Line"; Level: Integer; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnAfterTransferProdBOMLine', '', false, false)]
local procedure DoSomethingOnAfterTransferProdBOMLine(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; ProdBOMLine: Record "Production BOM Line"; Level: Integer; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine")
begin
end;
OnAfterSetCompareRtngFields(Record KVSFCYEDModProposalRtgLine, Integer, Integer) :#
[IntegrationEvent(false, false)]
local procedure OnAfterSetCompareRtngFields(var EDProdOrderRtngLine: Record "KVSFCYEDModProposalRtgLine"; var FieldNo: Integer; var NoOfFieldsToCompare: Integer):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnAfterSetCompareRtngFields', '', false, false)]
local procedure DoSomethingOnAfterSetCompareRtngFields(var EDProdOrderRtngLine: Record "KVSFCYEDModProposalRtgLine"; var FieldNo: Integer; var NoOfFieldsToCompare: Integer)
begin
end;
OnAfterSetSortAndFilterInCompLoop(Record KVSFCYEDModProposalComponent, Integer, Record Prod. Order Component, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnAfterSetSortAndFilterInCompLoop(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent" temporary; LoopNo: Integer; var TempProdOrderComp: Record "Prod. Order Component" temporary; var EDCompFound: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnAfterSetSortAndFilterInCompLoop', '', false, false)]
local procedure DoSomethingOnAfterSetSortAndFilterInCompLoop(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent" temporary; LoopNo: Integer; var TempProdOrderComp: Record "Prod. Order Component" temporary; var EDCompFound: Boolean; var IsHandled: Boolean)
begin
end;
OnAfterSetCompareComponentFields(Record KVSFCYEDModProposalComponent, Integer, Integer) :#
[IntegrationEvent(false, false)]
local procedure OnAfterSetCompareComponentFields(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; var FieldNo: Integer; var NoOfFieldsToCompare: Integer):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnAfterSetCompareComponentFields', '', false, false)]
local procedure DoSomethingOnAfterSetCompareComponentFields(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; var FieldNo: Integer; var NoOfFieldsToCompare: Integer)
begin
end;
OnAfterSetCompareLineFields(Record KVSFCYEDModProposalOrderLine, Integer, Integer) :#
[IntegrationEvent(false, false)]
local procedure OnAfterSetCompareLineFields(var EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; var FieldNo: Integer; var NoOfFieldsToCompare: Integer):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnAfterSetCompareLineFields', '', false, false)]
local procedure DoSomethingOnAfterSetCompareLineFields(var EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; var FieldNo: Integer; var NoOfFieldsToCompare: Integer)
begin
end;
OnBeforeCompareProdOrderLines(Record Item, Code[10], Integer, Date, Boolean) :#
[IntegrationEvent(true, false)]
local procedure OnBeforeCompareProdOrderLines(var Item: Record "Item"; CurrWorksheetName: Code[10]; var NextProdModWkshLineNo: Integer; var ComparisonDate: Date; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnBeforeCompareProdOrderLines', '', false, false)]
local procedure DoSomethingOnBeforeCompareProdOrderLines(var Item: Record "Item"; CurrWorksheetName: Code[10]; var NextProdModWkshLineNo: Integer; var ComparisonDate: Date; var IsHandled: Boolean)
begin
end;
OnCompareProdOrderLineBeforeInsertEDProdOrderLine(Record Production Order, Record Prod. Order Line, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnCompareProdOrderLineBeforeInsertEDProdOrderLine(var ProdOrder: Record "Production Order"; var ProdOrderLine: Record "Prod. Order Line"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnCompareProdOrderLineBeforeInsertEDProdOrderLine', '', false, false)]
local procedure DoSomethingOnCompareProdOrderLineBeforeInsertEDProdOrderLine(var ProdOrder: Record "Production Order"; var ProdOrderLine: Record "Prod. Order Line"; var IsHandled: Boolean)
begin
end;
OnTransferBOMAfterSetBOMFilter(Record Production BOM Line) :#
[IntegrationEvent(false, false)]
local procedure OnTransferBOMAfterSetBOMFilter(var ProdBOMLine: Record "Production BOM Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnTransferBOMAfterSetBOMFilter', '', false, false)]
local procedure DoSomethingOnTransferBOMAfterSetBOMFilter(var ProdBOMLine: Record "Production BOM Line")
begin
end;
OnTransferBOMSetUseBomComponent(Record Production BOM Line, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnTransferBOMSetUseBomComponent(var ProdBOMLine: Record "Production BOM Line"; var UseComponent: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnTransferBOMSetUseBomComponent', '', false, false)]
local procedure DoSomethingOnTransferBOMSetUseBomComponent(var ProdBOMLine: Record "Production BOM Line"; var UseComponent: Boolean)
begin
end;
OnAfterTransferProdBOMLineBeforeModify(Record KVSFCYEDModProposalComponent, Record Production BOM Line, Integer) :#
[IntegrationEvent(false, false)]
local procedure OnAfterTransferProdBOMLineBeforeModify(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; ProdBOMLine: Record "Production BOM Line"; Level: Integer):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnAfterTransferProdBOMLineBeforeModify', '', false, false)]
local procedure DoSomethingOnAfterTransferProdBOMLineBeforeModify(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; ProdBOMLine: Record "Production BOM Line"; Level: Integer)
begin
end;
OnCompareComponentsBeforeEDProdOrderCompInsert(Record KVSFCYEDModProposalComponent, Record Prod. Order Component, Record KVSFCYEDModProposalComponent) :#
[IntegrationEvent(false, false)]
local procedure OnCompareComponentsBeforeEDProdOrderCompInsert(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; var TempProdOrderComp: Record "Prod. Order Component" temporary; var TempEDProdOrderComp: Record "KVSFCYEDModProposalComponent" temporary):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnCompareComponentsBeforeEDProdOrderCompInsert', '', false, false)]
local procedure DoSomethingOnCompareComponentsBeforeEDProdOrderCompInsert(var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; var TempProdOrderComp: Record "Prod. Order Component" temporary; var TempEDProdOrderComp: Record "KVSFCYEDModProposalComponent" temporary)
begin
end;
OnCompareCompontentsBeforeInsertTempEDProdOrderComp(Record KVSFCYEDModProposalComponent, Record Prod. Order Line, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnCompareCompontentsBeforeInsertTempEDProdOrderComp(var TempEDProdOrderComp: Record "KVSFCYEDModProposalComponent" temporary; ProdOrderLine: Record "Prod. Order Line"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnCompareCompontentsBeforeInsertTempEDProdOrderComp', '', false, false)]
local procedure DoSomethingOnCompareCompontentsBeforeInsertTempEDProdOrderComp(var TempEDProdOrderComp: Record "KVSFCYEDModProposalComponent" temporary; ProdOrderLine: Record "Prod. Order Line"; var IsHandled: Boolean)
begin
end;
OnCompareTempComponentsBeforeLoop(Integer, Integer) :#
[IntegrationEvent(false, false)]
local procedure OnCompareTempComponentsBeforeLoop(var StartLoopNo: Integer; var EndLoopNo: Integer):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnCompareTempComponentsBeforeLoop', '', false, false)]
local procedure DoSomethingOnCompareTempComponentsBeforeLoop(var StartLoopNo: Integer; var EndLoopNo: Integer)
begin
end;
OnBeforeCompareComponent(Record Prod. Order Line, Record KVSFCYEDModProposalOrderLine, Record Prod. Order Component, Record KVSFCYEDModProposalComponent, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCompareComponent(ProdOrderLine: Record "Prod. Order Line"; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; var ProdOrderComp: Record "Prod. Order Component"; var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnBeforeCompareComponent', '', false, false)]
local procedure DoSomethingOnBeforeCompareComponent(ProdOrderLine: Record "Prod. Order Line"; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; var ProdOrderComp: Record "Prod. Order Component"; var EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; var IsHandled: Boolean)
begin
end;
OnInsertPORtngLineModWkshLineBeforeInsert(Record KVSFCYEDModProposalWkshtLine, Record Prod. Order Line, Record KVSFCYEDModProposalOrderLine, Record Prod. Order Routing Line, Record KVSFCYEDModProposalRtgLine, Record KVSFCYEDModProposalWkshtLine, Integer, Option, Integer, Text[50], Text[100], Text[100], Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnInsertPORtngLineModWkshLineBeforeInsert(var ProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine"; ProdOrderLine: Record "Prod. Order Line"; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; var ProdOrderRtngLine: Record "Prod. Order Routing Line"; var EDProdOrderRtngLine: Record "KVSFCYEDModProposalRtgLine"; var LevelOneProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine"; Level: Integer; ActionMessage: Option; FieldNo: Integer; FieldCaption: Text[50]; OldValue: Text[100]; NewValue: Text[100]; RegenerativePlan: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnInsertPORtngLineModWkshLineBeforeInsert', '', false, false)]
local procedure DoSomethingOnInsertPORtngLineModWkshLineBeforeInsert(var ProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine"; ProdOrderLine: Record "Prod. Order Line"; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; var ProdOrderRtngLine: Record "Prod. Order Routing Line"; var EDProdOrderRtngLine: Record "KVSFCYEDModProposalRtgLine"; var LevelOneProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine"; Level: Integer; ActionMessage: Option; FieldNo: Integer; FieldCaption: Text[50]; OldValue: Text[100]; NewValue: Text[100]; RegenerativePlan: Boolean; var IsHandled: Boolean)
begin
end;
OnInsertProdOrderCompModWkshLineBeforeInsert(Record KVSFCYEDModProposalWkshtLine, Record Prod. Order Line, Record KVSFCYEDModProposalOrderLine, Record Prod. Order Component, Record KVSFCYEDModProposalComponent, Record KVSFCYEDModProposalWkshtLine, Integer, Option, Integer, Text[50], Text[100], Text[100], Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnInsertProdOrderCompModWkshLineBeforeInsert(var ProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine"; ProdOrderLine: Record "Prod. Order Line"; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; ProdOrderComp: Record "Prod. Order Component"; EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; var levelOneProdModWkshLineVar: Record "KVSFCYEDModProposalWkshtLine"; Level: Integer; ActionMessage: Option; FieldNo: Integer; FieldCaption: Text[50]; OldValue: Text[100]; NewValue: Text[100]; RegenerativePlan: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnInsertProdOrderCompModWkshLineBeforeInsert', '', false, false)]
local procedure DoSomethingOnInsertProdOrderCompModWkshLineBeforeInsert(var ProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine"; ProdOrderLine: Record "Prod. Order Line"; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; ProdOrderComp: Record "Prod. Order Component"; EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; var levelOneProdModWkshLineVar: Record "KVSFCYEDModProposalWkshtLine"; Level: Integer; ActionMessage: Option; FieldNo: Integer; FieldCaption: Text[50]; OldValue: Text[100]; NewValue: Text[100]; RegenerativePlan: Boolean; var IsHandled: Boolean)
begin
end;
OnCheckAndResolveComponentsAfterSetProdBOMLineFilter(Record Production BOM Line, Record KVSFCYEDModProposalWkshtLine) :#
[IntegrationEvent(false, false)]
local procedure OnCheckAndResolveComponentsAfterSetProdBOMLineFilter(var ProdBOMLine: Record "Production BOM Line"; ProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnCheckAndResolveComponentsAfterSetProdBOMLineFilter', '', false, false)]
local procedure DoSomethingOnCheckAndResolveComponentsAfterSetProdBOMLineFilter(var ProdBOMLine: Record "Production BOM Line"; ProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine")
begin
end;
OnCheckAndResolveComponentsBeforeInitProdModWkshLine(Record Production BOM Line, Record KVSFCYEDModProposalWkshtLine, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnCheckAndResolveComponentsBeforeInitProdModWkshLine(var ProdBOMLine: Record "Production BOM Line"; var ProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnCheckAndResolveComponentsBeforeInitProdModWkshLine', '', false, false)]
local procedure DoSomethingOnCheckAndResolveComponentsBeforeInitProdModWkshLine(var ProdBOMLine: Record "Production BOM Line"; var ProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine"; var IsHandled: Boolean)
begin
end;
OnBeforeEDCompFoundInCompLoop(Record KVSFCYEDModProposalComponent, Record Prod. Order Component, Integer, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeEDCompFoundInCompLoop(var TempEDProdOrderComp: Record "KVSFCYEDModProposalComponent" temporary; var TempProdOrderComp: Record "Prod. Order Component" temporary; LoopNo: Integer; var EDCompFound: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnBeforeEDCompFoundInCompLoop', '', false, false)]
local procedure DoSomethingOnBeforeEDCompFoundInCompLoop(var TempEDProdOrderComp: Record "KVSFCYEDModProposalComponent" temporary; var TempProdOrderComp: Record "Prod. Order Component" temporary; LoopNo: Integer; var EDCompFound: Boolean)
begin
end;
OnInsertProdOrderCompModWkshLineBeforeActionMessage(Record KVSFCYEDModProposalWkshtLine, Record Prod. Order Line, Record KVSFCYEDModProposalOrderLine, Record Prod. Order Component, Record KVSFCYEDModProposalComponent, Record KVSFCYEDModProposalWkshtLine, Integer, Option, Integer, Text[50], Text[100], Text[100], Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnInsertProdOrderCompModWkshLineBeforeActionMessage(var ProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine"; ProdOrderLine: Record "Prod. Order Line"; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; ProdOrderComp: Record "Prod. Order Component"; EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; var levelOneProdModWkshLineVar: Record "KVSFCYEDModProposalWkshtLine"; Level: Integer; ActionMessage: Option; FieldNo: Integer; FieldCaption: Text[50]; OldValue: Text[100]; NewValue: Text[100]; RegenerativePlan: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYEDModPropCompareLib", 'OnInsertProdOrderCompModWkshLineBeforeActionMessage', '', false, false)]
local procedure DoSomethingOnInsertProdOrderCompModWkshLineBeforeActionMessage(var ProdModWkshLine: Record "KVSFCYEDModProposalWkshtLine"; ProdOrderLine: Record "Prod. Order Line"; EDProdOrderLine: Record "KVSFCYEDModProposalOrderLine"; ProdOrderComp: Record "Prod. Order Component"; EDProdOrderComp: Record "KVSFCYEDModProposalComponent"; var levelOneProdModWkshLineVar: Record "KVSFCYEDModProposalWkshtLine"; Level: Integer; ActionMessage: Option; FieldNo: Integer; FieldCaption: Text[50]; OldValue: Text[100]; NewValue: Text[100]; RegenerativePlan: Boolean; var IsHandled: Boolean)
begin
end;