Skip to content

KVSQME - Carry Out Mgt#

Events#

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

[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;

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

[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;

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

[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;

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

[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;

OnBeforeWhseJnlRegisterOnRegisterWhseJnlLine2(Record Warehouse Journal Line) :#

[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;

OnCreatingItemTrackingForItemJournalLineFromInspectionItemTracking(Record Reservation Entry, Record KVSQME - Insp. 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;

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 intterrupting 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;