Skip to content

KVSQME - Carry Out Mgt#

Events#

OnAftterSetSatusBeforeDeleteCurrentOrder(Record KVSQME - Insp. Order Header, Record KVSQME - Insp. Order Header) :#

Summary: Event triggered after setting status and before deleting the current inspection order.

[IntegrationEvent(false, false)]
local procedure OnAftterSetSatusBeforeDeleteCurrentOrder(inspectionHeaderPar: Record "KVSQME - Insp. Order Header"; var newInspectionHeaderVar: Record "KVSQME - Insp. Order Header"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnAftterSetSatusBeforeDeleteCurrentOrder', '', false, false)]
local procedure DoSomethingOnAftterSetSatusBeforeDeleteCurrentOrder(inspectionHeaderPar: Record "KVSQME - Insp. Order Header"; var newInspectionHeaderVar: Record "KVSQME - Insp. Order Header")
begin
end;

Parameters:

  • inspectionHeaderPar: Current inspection order header record.
  • newInspectionHeaderVar: New inspection order header record after status change.

OnBeforeInsertItemJnlLineOnFillItemJnlLine(Record Item Journal Line, Record KVSQME - Insp. Order Header) :#

Summary: Event triggered before inserting an item journal line during item journal fill from inspection order.

[IntegrationEvent(false, false)]
local procedure OnBeforeInsertItemJnlLineOnFillItemJnlLine(var ItemJnlLineVar: Record "Item Journal Line"; InspectionOrderPar: Record "KVSQME - Insp. Order Header"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnBeforeInsertItemJnlLineOnFillItemJnlLine', '', false, false)]
local procedure DoSomethingOnBeforeInsertItemJnlLineOnFillItemJnlLine(var ItemJnlLineVar: Record "Item Journal Line"; InspectionOrderPar: Record "KVSQME - Insp. Order Header")
begin
end;

Parameters:

  • ItemJnlLineVar: Item journal line to be inserted.
  • InspectionOrderPar: Inspection order header record.

OnAfterDoCarryOut(Record KVSQME - Insp. Order Header, Enum KVSQMECarryOutInspDecisionType, Boolean) :#

Summary: Event triggered after carrying out an inspection order.

[IntegrationEvent(false, false)]
local procedure OnAfterDoCarryOut(InspectionOrderPar: Record "KVSQME - Insp. Order Header"; Decision: Enum "KVSQMECarryOutInspDecisionType"; HandleTotalQty: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnAfterDoCarryOut', '', false, false)]
local procedure DoSomethingOnAfterDoCarryOut(InspectionOrderPar: Record "KVSQME - Insp. Order Header"; Decision: Enum "KVSQMECarryOutInspDecisionType"; HandleTotalQty: Boolean)
begin
end;

Parameters:

  • InspectionOrderPar: Inspection order header record.
  • Decision: Decision type for carry out.
  • HandleTotalQty: Indicates if total quantity should be handled.

OnBeforeRegisterWhseJnlLine2OnRegisterWhseJnlLine(Record KVSQME - Insp. Order Header, Record KVSQME - Insp. Item Tracking) :#

Summary: Event triggered before registering warehouse journal line in RegisterWhseJnlLine procedure.

[IntegrationEvent(false, false)]
local procedure OnBeforeRegisterWhseJnlLine2OnRegisterWhseJnlLine(InspectionOrderPar: Record "KVSQME - Insp. Order Header"; InspectionItemTrackingPar: Record "KVSQME - Insp. Item Tracking"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnBeforeRegisterWhseJnlLine2OnRegisterWhseJnlLine', '', false, false)]
local procedure DoSomethingOnBeforeRegisterWhseJnlLine2OnRegisterWhseJnlLine(InspectionOrderPar: Record "KVSQME - Insp. Order Header"; InspectionItemTrackingPar: Record "KVSQME - Insp. Item Tracking")
begin
end;

Parameters:

  • InspectionOrderPar: Inspection order header record.
  • InspectionItemTrackingPar: Inspection item tracking record.

OnBeforeWhseJnlRegisterOnRegisterWhseJnlLine2(Record Warehouse Journal Line) :#

Summary: Event triggered before registering warehouse journal line in RegisterWhseJnlLine2 procedure.

[IntegrationEvent(false, false)]
local procedure OnBeforeWhseJnlRegisterOnRegisterWhseJnlLine2(var WhseJnlLine: Record "Warehouse Journal Line"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnBeforeWhseJnlRegisterOnRegisterWhseJnlLine2', '', false, false)]
local procedure DoSomethingOnBeforeWhseJnlRegisterOnRegisterWhseJnlLine2(var WhseJnlLine: Record "Warehouse Journal Line")
begin
end;

Parameters:

  • WhseJnlLine: Warehouse journal line record.

OnCreatingItemTrackingForItemJournalLineFromInspectionItemTracking(Record Reservation Entry, Record KVSQME - Insp. Item Tracking) :#

Summary: Event triggered when creating item tracking for item journal line from inspection item tracking.

[IntegrationEvent(false, false)]
local procedure OnCreatingItemTrackingForItemJournalLineFromInspectionItemTracking(var ReservationEntry: Record "Reservation Entry"; KVSQMEInspItemTracking: Record "KVSQME - Insp. Item Tracking"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnCreatingItemTrackingForItemJournalLineFromInspectionItemTracking', '', false, false)]
local procedure DoSomethingOnCreatingItemTrackingForItemJournalLineFromInspectionItemTracking(var ReservationEntry: Record "Reservation Entry"; KVSQMEInspItemTracking: Record "KVSQME - Insp. Item Tracking")
begin
end;

Parameters:

  • ReservationEntry: Reservation entry record.
  • KVSQMEInspItemTracking: Inspection item tracking record.

OnBeforeSetStatus(Record KVSQME - Insp. Order Header, Enum KVSQMEInspOrderHeaderStatus, Boolean) :#

Summary: This integration event runs before set status in a open inspection order, before closing or canceling a inspection order. On using the "IsHandled" pattern it allows to interrupt the following qme functionality! This means that after posting of QME movements, and intterupting the "SetStaus" functionality, the open inspection order will be kept.

[IntegrationEvent(false, false)]
local procedure OnBeforeSetStatus(KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"; NewKVSQMEInspOrderHeaderStatus: Enum "KVSQMEInspOrderHeaderStatus"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnBeforeSetStatus', '', false, false)]
local procedure DoSomethingOnBeforeSetStatus(KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"; NewKVSQMEInspOrderHeaderStatus: Enum "KVSQMEInspOrderHeaderStatus"; var IsHandled: Boolean)
begin
end;

Parameters:

  • KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header", defines the current inspection order
  • NewKVSQMEInspOrderHeaderStatus: Enum KVSQMEInspOrderHeaderStatus, defines the new status of inspection order
  • IsHandled: var IsHandled: Boolean, gives back the information if the functionality was separately handled

OnBeforeCreateFollowingInspectionOrderAndFinishcurrentInspectionOrder(Record KVSQME - Insp. Order Header, Enum KVSQMEInspOrderHeaderStatus, Boolean) :#

Summary: This event is running on on setting status in a inspection order. Handling of this event (IsHandled = true) stops the creation of a following inspection order and finishing of the current inspection order.

[IntegrationEvent(false, false)]
local procedure OnBeforeCreateFollowingInspectionOrderAndFinishcurrentInspectionOrder(KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"; NewKVSQMEInspOrderHeaderStatus: Enum "KVSQMEInspOrderHeaderStatus"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnBeforeCreateFollowingInspectionOrderAndFinishcurrentInspectionOrder', '', false, false)]
local procedure DoSomethingOnBeforeCreateFollowingInspectionOrderAndFinishcurrentInspectionOrder(KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"; NewKVSQMEInspOrderHeaderStatus: Enum "KVSQMEInspOrderHeaderStatus"; var IsHandled: Boolean)
begin
end;

Parameters:

  • KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header", defines the current inspection order
  • NewKVSQMEInspOrderHeaderStatus: Enum KVSQMEInspOrderHeaderStatus, defines the new status of inspection order
  • IsHandled: var IsHandled: Boolean, stops the creation of a following inspection order and finishing of the current inspection order

OnBeforeHandlingReleasePosting(Record KVSQME - Insp. Order Header, Decimal, Boolean) :#

Summary: This event is running on before handling posting of released quantities in function "CarryOutRelease"

[IntegrationEvent(false, false)]
local procedure OnBeforeHandlingReleasePosting(var KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"; var ReleasedQty: Decimal; var ReleasePostingIsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnBeforeHandlingReleasePosting', '', false, false)]
local procedure DoSomethingOnBeforeHandlingReleasePosting(var KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"; var ReleasedQty: Decimal; var ReleasePostingIsHandled: Boolean)
begin
end;

Parameters:

  • KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"
  • ReleasedQty: Decimal
  • ReleasePostingIsHandled: Boolean

OnBeforeHandlingBlockedPosting(Record KVSQME - Insp. Order Header, Decimal, Boolean) :#

Summary: This event is running on before handling posting of blocked quantities in funktion "CarryOutBlock"

[IntegrationEvent(false, false)]
local procedure OnBeforeHandlingBlockedPosting(var KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"; var BlockedQty: Decimal; var BlockedPostingIsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnBeforeHandlingBlockedPosting', '', false, false)]
local procedure DoSomethingOnBeforeHandlingBlockedPosting(var KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"; var BlockedQty: Decimal; var BlockedPostingIsHandled: Boolean)
begin
end;

Parameters:

  • KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"
  • BlockedQty: Decimal
  • BlockedPostingIsHandled: Boolean

OnBeforeRegisterWhseJnlLine(Record KVSQME - Insp. Order Header, Decimal, Code[10], Code[20], Enum Warehouse Action Type, Enum KVSQMEInspectionResult, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeRegisterWhseJnlLine(InspOrder: Record "KVSQME - Insp. Order Header"; QtyBase: Decimal; var LocationCode: Code[10]; var BinCode: Code[20]; ActionType: Enum "Warehouse Action Type"; ResultType: Enum "KVSQMEInspectionResult"; NegativeAdjmt: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnBeforeRegisterWhseJnlLine', '', false, false)]
local procedure DoSomethingOnBeforeRegisterWhseJnlLine(InspOrder: Record "KVSQME - Insp. Order Header"; QtyBase: Decimal; var LocationCode: Code[10]; var BinCode: Code[20]; ActionType: Enum "Warehouse Action Type"; ResultType: Enum "KVSQMEInspectionResult"; NegativeAdjmt: Boolean; var IsHandled: Boolean)
begin
end;

OnElseForResultTypeInRegisterWhseJnlLine(Decimal, Record KVSQME - Insp. Item Tracking) :#

[IntegrationEvent(false, false)]
local procedure OnElseForResultTypeInRegisterWhseJnlLine(var TrackedQtyBase: Decimal; InspectionItemTracking: Record "KVSQME - Insp. Item Tracking"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnElseForResultTypeInRegisterWhseJnlLine', '', false, false)]
local procedure DoSomethingOnElseForResultTypeInRegisterWhseJnlLine(var TrackedQtyBase: Decimal; InspectionItemTracking: Record "KVSQME - Insp. Item Tracking")
begin
end;

OnBeforeChecksBeforeCarryOutInspOrder(Record KVSQME - Insp. Order Header, Enum KVSQMECarryOutInspDecisionType, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeChecksBeforeCarryOutInspOrder(InspOrderHeader: Record "KVSQME - Insp. Order Header"; CarryOutInspDecisionType: Enum "KVSQMECarryOutInspDecisionType"; HandleTotalQty: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnBeforeChecksBeforeCarryOutInspOrder', '', false, false)]
local procedure DoSomethingOnBeforeChecksBeforeCarryOutInspOrder(InspOrderHeader: Record "KVSQME - Insp. Order Header"; CarryOutInspDecisionType: Enum "KVSQMECarryOutInspDecisionType"; HandleTotalQty: Boolean; var IsHandled: Boolean)
begin
end;

OnBeforeCaseCarryOutInspDecisionTypeInChecksBeforeCarryOutInspOrder(Record KVSQME - Insp. Order Header, Enum KVSQMECarryOutInspDecisionType, Boolean, Integer, Integer, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCaseCarryOutInspDecisionTypeInChecksBeforeCarryOutInspOrder(InspOrderHeader: Record "KVSQME - Insp. Order Header"; CarryOutInspDecisionType: Enum "KVSQMECarryOutInspDecisionType"; HandleTotalQty: Boolean; TotalCountOfInspLines: Integer; TotalCountOfOkayLines: Integer; AllResultsOK: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Carry Out Mgt", 'OnBeforeCaseCarryOutInspDecisionTypeInChecksBeforeCarryOutInspOrder', '', false, false)]
local procedure DoSomethingOnBeforeCaseCarryOutInspDecisionTypeInChecksBeforeCarryOutInspOrder(InspOrderHeader: Record "KVSQME - Insp. Order Header"; CarryOutInspDecisionType: Enum "KVSQMECarryOutInspDecisionType"; HandleTotalQty: Boolean; TotalCountOfInspLines: Integer; TotalCountOfOkayLines: Integer; AllResultsOK: Boolean; var IsHandled: Boolean)
begin
end;