KVSQME - Insp. Order Mgmt.#
Procedures#
InitInspectionOrder(Record KVSQME - Insp. Order Header, Option, Date, Code[20], Code[20], Code[50], Code[20], Code[20], Code[20], Decimal, Integer, Option, Code[20], Integer, Code[20], Code[20], Code[20], Integer, Integer) : Boolean#
Obsolete
This Element will be removed or changed with a future Version of the App.
[Obsolete('Function will be reworked', '21.4')]
procedure InitInspectionOrder(var InspectionOrder: Record "KVSQME - Insp. Order Header"; TypePar: Option; PostingDate: Date; ItemNoPar: Code[20]; VariantCodePar: Code[20]; LotNo: Code[50]; InspectionPlanNoPar: Code[20]; LocationCodePar: Code[20]; BinCodePar: Code[20]; DocQuantityPar: Decimal; SourceTypePar: Integer; SourceSubtypePar: Option; SourceIDPar: Code[20]; SourceLineNoPar: Integer; RoutingNoPar: Code[20]; OperationNoPar: Code[20]; SourceDocumentNoPar: Code[20]; SourceDocumentLineNoPar: Integer; DimensionSetID: Integer): Boolean
CreateInspectionOrder(Record KVSQME - Insp. Order Header, Record KVSQME - Insp. Order Header, Code[50], Decimal) :#
Obsolete
This Element will be removed or changed with a future Version of the App.
[Obsolete('Function will be reworked', '21.4')]
procedure CreateInspectionOrder(var InspectionOrderVar: Record "KVSQME - Insp. Order Header"; PrevInspectionOrder: Record "KVSQME - Insp. Order Header"; LotNo: Code[50]; DocumentQtyBase: Decimal):
CancelInspOrder(Code[20], Integer, Code[20], Code[20], Code[20], Integer, Record Item Journal Line, Boolean) : Boolean#
procedure CancelInspOrder(SourceIDPar: Code[20]; SourceLineNoPar: Integer; RoutingNoPar: Code[20]; OperationNoPar: Code[20]; DocumentNoPar: Code[20]; DocumentLineNoPar: Integer; var ItemJnlLinePar: Record "Item Journal Line"; CompleteReversalPar: Boolean): Boolean
PostManualJnlCreateInsp(Record Item Journal Line) :#
procedure PostManualJnlCreateInsp(var ManualInspJournalVar: Record "Item Journal Line"):
Events#
OnAfterCreateInspectionOrder(Record KVSQME - Insp. Order Header) :#
[IntegrationEvent(false, false)]
local procedure OnAfterCreateInspectionOrder(var InspectionOrderHeader: Record "KVSQME - Insp. Order Header"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnAfterCreateInspectionOrder', '', false, false)]
local procedure DoSomethingOnAfterCreateInspectionOrder(var InspectionOrderHeader: Record "KVSQME - Insp. Order Header")
begin
end;
OnAfterPrintCurrentReport(Record KVSQME - Insp. Order Header, Record KVSQME - Report Selection) :#
[IntegrationEvent(false, false)]
local procedure OnAfterPrintCurrentReport(var inspectionHeaderVar: Record "KVSQME - Insp. Order Header"; reportSelectionPar: Record "KVSQME - Report Selection"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnAfterPrintCurrentReport', '', false, false)]
local procedure DoSomethingOnAfterPrintCurrentReport(var inspectionHeaderVar: Record "KVSQME - Insp. Order Header"; reportSelectionPar: Record "KVSQME - Report Selection")
begin
end;
OnBeforeInsertInspitemTrackingOnCreateInspOrderFromManualJnl(Record KVSQME - Insp. Item Tracking, Record Reservation Entry) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeInsertInspitemTrackingOnCreateInspOrderFromManualJnl(var InspectionItemTrackingVar: Record "KVSQME - Insp. Item Tracking"; ReservationEntryPar: Record "Reservation Entry"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeInsertInspitemTrackingOnCreateInspOrderFromManualJnl', '', false, false)]
local procedure DoSomethingOnBeforeInsertInspitemTrackingOnCreateInspOrderFromManualJnl(var InspectionItemTrackingVar: Record "KVSQME - Insp. Item Tracking"; ReservationEntryPar: Record "Reservation Entry")
begin
end;
OnBeforeInsertInspItemTrackingOnCreateInspectionItemTrackings(Record KVSQME - Insp. Item Tracking, Record Tracking Specification) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeInsertInspItemTrackingOnCreateInspectionItemTrackings(var InspectionItemTrackingVar: Record "KVSQME - Insp. Item Tracking"; TempTrackingSpecificationPar: Record "Tracking Specification"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeInsertInspItemTrackingOnCreateInspectionItemTrackings', '', false, false)]
local procedure DoSomethingOnBeforeInsertInspItemTrackingOnCreateInspectionItemTrackings(var InspectionItemTrackingVar: Record "KVSQME - Insp. Item Tracking"; TempTrackingSpecificationPar: Record "Tracking Specification")
begin
end;
OnBeforeGetInProcessInspectionPlanNumber(Record Prod. Order Routing Line, Date, Boolean, Code[20]) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeGetInProcessInspectionPlanNumber(ProdOrderRoutingLine: Record "Prod. Order Routing Line"; ValidityDate: Date; var IsHandled: Boolean; var InspectionPlanNo: Code[20]):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeGetInProcessInspectionPlanNumber', '', false, false)]
local procedure DoSomethingOnBeforeGetInProcessInspectionPlanNumber(ProdOrderRoutingLine: Record "Prod. Order Routing Line"; ValidityDate: Date; var IsHandled: Boolean; var InspectionPlanNo: Code[20])
begin
end;
OnBeforeGetReceivingInspectionPlanNo(Code[20], Integer, Code[20], Date, Boolean, Code[20]) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeGetReceivingInspectionPlanNo(ItemNo: Code[20]; SourceType: Integer; VendorCustomerNo: Code[20]; ValidityDate: Date; var IsHandled: Boolean; var HandledInspectionPlanNo: Code[20]):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeGetReceivingInspectionPlanNo', '', false, false)]
local procedure DoSomethingOnBeforeGetReceivingInspectionPlanNo(ItemNo: Code[20]; SourceType: Integer; VendorCustomerNo: Code[20]; ValidityDate: Date; var IsHandled: Boolean; var HandledInspectionPlanNo: Code[20])
begin
end;
OnBeforeGetFinalInspectionPlanNo(Code[20], Date, Boolean, Code[20]) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeGetFinalInspectionPlanNo(ItemNo: Code[20]; ValidityDate: Date; var IsHandled: Boolean; var HandledInspectionPlanNo: Code[20]):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeGetFinalInspectionPlanNo', '', false, false)]
local procedure DoSomethingOnBeforeGetFinalInspectionPlanNo(ItemNo: Code[20]; ValidityDate: Date; var IsHandled: Boolean; var HandledInspectionPlanNo: Code[20])
begin
end;
OnBeforeGetManualInspectionPlanNo(Code[20], Date, Boolean, Code[20]) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeGetManualInspectionPlanNo(ItemNo: Code[20]; ValidityDate: Date; var IsHandled: Boolean; var HandledInspectionPlanNo: Code[20]):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeGetManualInspectionPlanNo', '', false, false)]
local procedure DoSomethingOnBeforeGetManualInspectionPlanNo(ItemNo: Code[20]; ValidityDate: Date; var IsHandled: Boolean; var HandledInspectionPlanNo: Code[20])
begin
end;
OnBeforeShowSourceReferenceDocument(Record KVSQME - Insp. Order Header, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeShowSourceReferenceDocument(InspOrderHeader: Record "KVSQME - Insp. Order Header"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeShowSourceReferenceDocument', '', false, false)]
local procedure DoSomethingOnBeforeShowSourceReferenceDocument(InspOrderHeader: Record "KVSQME - Insp. Order Header"; var IsHandled: Boolean)
begin
end;
OnBeforeShowPostedReferenceDocument(Record KVSQME - Insp. Order Header, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeShowPostedReferenceDocument(InspOrderHeader: Record "KVSQME - Insp. Order Header"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeShowPostedReferenceDocument', '', false, false)]
local procedure DoSomethingOnBeforeShowPostedReferenceDocument(InspOrderHeader: Record "KVSQME - Insp. Order Header"; var IsHandled: Boolean)
begin
end;
OnBeforeShowWarehouseReferenceDocument(Record KVSQME - Insp. Order Header, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeShowWarehouseReferenceDocument(InspOrderHeader: Record "KVSQME - Insp. Order Header"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeShowWarehouseReferenceDocument', '', false, false)]
local procedure DoSomethingOnBeforeShowWarehouseReferenceDocument(InspOrderHeader: Record "KVSQME - Insp. Order Header"; var IsHandled: Boolean)
begin
end;
OnBeforeUseInspOrderFilterInCreatingInspOrderFromOutput(Record KVSQME - Insp. Order Header, Record Item Journal Line) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeUseInspOrderFilterInCreatingInspOrderFromOutput(var KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"; var ItemJournalLine: Record "Item Journal Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeUseInspOrderFilterInCreatingInspOrderFromOutput', '', false, false)]
local procedure DoSomethingOnBeforeUseInspOrderFilterInCreatingInspOrderFromOutput(var KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header"; var ItemJournalLine: Record "Item Journal Line")
begin
end;
OnBeforeCheckPurchReceiptLinesBeforeUnDoPosting(Record Purch. Rcpt. Line, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckPurchReceiptLinesBeforeUnDoPosting(var PurchRcptLine: Record "Purch. Rcpt. Line"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeCheckPurchReceiptLinesBeforeUnDoPosting', '', false, false)]
local procedure DoSomethingOnBeforeCheckPurchReceiptLinesBeforeUnDoPosting(var PurchRcptLine: Record "Purch. Rcpt. Line"; var IsHandled: Boolean)
begin
end;
OnAfterCheckPurchReceiptLinesBeforeUnDoPosting(Record Purch. Rcpt. Line) :#
[IntegrationEvent(false, false)]
local procedure OnAfterCheckPurchReceiptLinesBeforeUnDoPosting(var PurchRcptLine: Record "Purch. Rcpt. Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnAfterCheckPurchReceiptLinesBeforeUnDoPosting', '', false, false)]
local procedure DoSomethingOnAfterCheckPurchReceiptLinesBeforeUnDoPosting(var PurchRcptLine: Record "Purch. Rcpt. Line")
begin
end;
OnBeforeCheckReturnReceiptLinesBeforeUnDoPosting(Record Return Receipt Line, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckReturnReceiptLinesBeforeUnDoPosting(var ReturnReceiptLine: Record "Return Receipt Line"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeCheckReturnReceiptLinesBeforeUnDoPosting', '', false, false)]
local procedure DoSomethingOnBeforeCheckReturnReceiptLinesBeforeUnDoPosting(var ReturnReceiptLine: Record "Return Receipt Line"; var IsHandled: Boolean)
begin
end;
OnAfterCheckReturnReceiptLinesBeforeUnDoPosting(Record Return Receipt Line) :#
[IntegrationEvent(false, false)]
local procedure OnAfterCheckReturnReceiptLinesBeforeUnDoPosting(var ReturnReceiptLine: Record "Return Receipt Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnAfterCheckReturnReceiptLinesBeforeUnDoPosting', '', false, false)]
local procedure DoSomethingOnAfterCheckReturnReceiptLinesBeforeUnDoPosting(var ReturnReceiptLine: Record "Return Receipt Line")
begin
end;
OnBeforeGetSourceReferenceText(Integer, Integer, Text, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeGetSourceReferenceText(SourceType: Integer; SourceSubType: Integer; var SourceReferenceText: Text; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeGetSourceReferenceText', '', false, false)]
local procedure DoSomethingOnBeforeGetSourceReferenceText(SourceType: Integer; SourceSubType: Integer; var SourceReferenceText: Text; var IsHandled: Boolean)
begin
end;
OnBeforeGetPostedReferenceText(Integer, Text, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeGetPostedReferenceText(SourceDocumentType: Integer; var PostedReferenceText: Text; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeGetPostedReferenceText', '', false, false)]
local procedure DoSomethingOnBeforeGetPostedReferenceText(SourceDocumentType: Integer; var PostedReferenceText: Text; var IsHandled: Boolean)
begin
end;
OnBeforeDeleteUnusedInProcessInspections(RecordRef, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeDeleteUnusedInProcessInspections(ProdRecRef: RecordRef; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeDeleteUnusedInProcessInspections', '', false, false)]
local procedure DoSomethingOnBeforeDeleteUnusedInProcessInspections(ProdRecRef: RecordRef; var IsHandled: Boolean)
begin
end;
HandleDeletingInProcessInspectionsForProdRef(RecordRef, Boolean) :#
[IntegrationEvent(false, false)]
local procedure HandleDeletingInProcessInspectionsForProdRef(ProdRecRef: RecordRef; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'HandleDeletingInProcessInspectionsForProdRef', '', false, false)]
local procedure DoSomethingHandleDeletingInProcessInspectionsForProdRef(ProdRecRef: RecordRef; var IsHandled: Boolean)
begin
end;
OnBeforeCreateInspectionOrdersFromProdOrder(Record Production Order, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCreateInspectionOrdersFromProdOrder(ProductionOrder: Record "Production Order"; var IsHandled: Boolean; var SkipCreationMessage: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeCreateInspectionOrdersFromProdOrder', '', false, false)]
local procedure DoSomethingOnBeforeCreateInspectionOrdersFromProdOrder(ProductionOrder: Record "Production Order"; var IsHandled: Boolean; var SkipCreationMessage: Boolean)
begin
end;
OnAfterCreateSingleManualInspOrderFromItemJournal(Code[20]) :#
[IntegrationEvent(false, false)]
local procedure OnAfterCreateSingleManualInspOrderFromItemJournal(CreatedInspOrderNo: Code[20]):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnAfterCreateSingleManualInspOrderFromItemJournal', '', false, false)]
local procedure DoSomethingOnAfterCreateSingleManualInspOrderFromItemJournal(CreatedInspOrderNo: Code[20])
begin
end;
OnAfterCreateAllManualInspOrdersFromItemJournal(Dictionary) :#
[IntegrationEvent(false, false)]
local procedure OnAfterCreateAllManualInspOrdersFromItemJournal(CreatedInspOrderNosDictonary: Dictionary):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnAfterCreateAllManualInspOrdersFromItemJournal', '', false, false)]
local procedure DoSomethingOnAfterCreateAllManualInspOrdersFromItemJournal(CreatedInspOrderNosDictonary: Dictionary)
begin
end;
OnGetQtyFormInspectionOrderWithDifferInspectionResult(Record KVSQME - Insp. Order Header, Record Warehouse Activity Line, Enum KVSQMEInspectionResult, Decimal) :#
[IntegrationEvent(false, false)]
local procedure OnGetQtyFormInspectionOrderWithDifferInspectionResult(InspectionOrderHeader: Record "KVSQME - Insp. Order Header"; WarehouseActivityLine: Record "Warehouse Activity Line"; InspectionResult: Enum "KVSQMEInspectionResult"; var InspectionQtyBase: Decimal):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnGetQtyFormInspectionOrderWithDifferInspectionResult', '', false, false)]
local procedure DoSomethingOnGetQtyFormInspectionOrderWithDifferInspectionResult(InspectionOrderHeader: Record "KVSQME - Insp. Order Header"; WarehouseActivityLine: Record "Warehouse Activity Line"; InspectionResult: Enum "KVSQMEInspectionResult"; var InspectionQtyBase: Decimal)
begin
end;
OnBeforePostSingleManualJnlCreateInsp(Record Item Journal Line, Dictionary, Integer, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforePostSingleManualJnlCreateInsp(ManualInspJournal: Record "Item Journal Line"; var CreatedInspOrdersDictonary: Dictionary; var Counter: Integer; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforePostSingleManualJnlCreateInsp', '', false, false)]
local procedure DoSomethingOnBeforePostSingleManualJnlCreateInsp(ManualInspJournal: Record "Item Journal Line"; var CreatedInspOrdersDictonary: Dictionary; var Counter: Integer; var IsHandled: Boolean)
begin
end;