Skip to content

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#

Summary: Initializes the inspection order header record with given parameters. It does not insert the record, but only fills in the fields and validates them. This procedure is used for both manual and automatic creation of inspection orders, when the source document line is known. Depending on the type of inspection order, some fields are filled differently and some validations are skipped (for example, bin code validation for in-process inspections). If the initialization is successful, it returns true and the calling code can proceed with inserting the record. If it returns false, the calling code should not insert the record and should handle this case accordingly (for example, by showing a message to the user or skipping the creation of the inspection order).

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

Parameters:

  • InspectionOrder: The inspection order header record that needs to be initialized. It is passed by reference and will be modified by this procedure.
  • TypePar: The type of the inspection order, which determines how some fields are filled and validated.
  • PostingDate: The posting date of the inspection order, which is used for checking the validity of the inspection plan.
  • ItemNoPar: The item number for which the inspection order is being created. It is used for checking the validity of the inspection plan and for filling the item number field in the inspection order.
  • VariantCodePar: The variant code for which the inspection order is being created. It is used for checking the validity of the inspection plan and for filling the variant code field in the inspection order.
  • LotNo: The lot number for which the inspection order is being created. It is used for filling the lot number field in the inspection order.
  • InspectionPlanNoPar: The inspection plan number that will be assigned to the inspection order. It is used for checking the validity of the inspection plan and for filling the inspection plan field in the inspection order.
  • LocationCodePar: The location code that will be assigned to the inspection order. It is used for filling the location code field in the inspection order and for checking the location setup if necessary.
  • BinCodePar: The bin code that will be assigned to the inspection order. It is used for filling the bin code field in the inspection order and for checking the location setup if necessary.
  • DocQuantityPar: The document quantity that will be assigned to the inspection order. It is used for filling the document quantity field in the inspection order and for checking that it is not negative.
  • SourceTypePar: The source type that will be assigned to the inspection order. It is used for filling the source type field in the inspection order and for determining how some fields are filled and validated.
  • SourceSubtypePar: The source subtype that will be assigned to the inspection order. It is used for filling the source subtype field in the inspection order and for determining how some fields are filled and validated.
  • SourceIDPar: The source ID that will be assigned to the inspection order. It is used for filling the source ID field in the inspection order and for determining how some fields are filled and validated.
  • SourceLineNoPar: The source line number that will be assigned to the inspection order. It is used for filling the source line number field in the inspection order and for determining how some fields are filled and validated.
  • RoutingNoPar: The routing number that will be assigned to the inspection order. It is used for filling the routing number field in the inspection order and for determining how some fields are filled and validated.
  • OperationNoPar: The operation number that will be assigned to the inspection order. It is used for filling the operation number field in the inspection order and for determining how some fields are filled and validated.
  • SourceDocumentNoPar: The source document number that will be assigned to the inspection order. It is used for filling the source document number field in the inspection order and for determining how some fields are filled and validated.
  • SourceDocumentLineNoPar: The source document line number that will be assigned to the inspection order. It is used for filling the source document line number field in the inspection order and for determining how some fields are filled and validated.
  • DimensionSetID: The dimension set ID that will be assigned to the inspection order. It is used for filling the dimension set ID field in the inspection order.

Returns:

CreateInspectionOrder(Record KVSQME - Insp. Order Header, Record KVSQME - Insp. Order Header, Code[50], Decimal) :#

Summary: Creates an inspection order based on a previous inspection order. This is used for example when the quantity of an existing inspection order needs to be split, then a new inspection order is created with the same parameters as the original one, but with the new quantity and lot number. The new inspection order will also be linked to the original one by setting the "Parent Inspection Order No." field. After creating the new inspection order, the inspection plan will be applied and the inspection order lines will be created accordingly. Finally, a history record will be inserted for the sample regulation and a message will be shown if necessary.

procedure CreateInspectionOrder(var InspectionOrderVar: Record "KVSQME - Insp. Order Header"; PrevInspectionOrder: Record "KVSQME - Insp. Order Header"; LotNo: Code[50]; DocumentQtyBase: Decimal):

Parameters:

  • InspectionOrderVar: The new inspection order header record that will be created. It is passed by reference and will be filled with the data of the new inspection order.
  • PrevInspectionOrder: The previous inspection order header record that will be used as a template for creating the new inspection order. It contains the parameters that will be copied to the new inspection order.
  • LotNo: The lot number that will be assigned to the new inspection order. It is used for filling the lot number field in the new inspection order and for inserting the history record for the sample regulation.
  • DocumentQtyBase: The document quantity that will be assigned to the new inspection order. It is used for filling the document quantity field in the new inspection order and for inserting the history record for the sample regulation.

CancelInspOrder(Code[20], Integer, Code[20], Code[20], Code[20], Integer, Record Item Journal Line, Boolean) : Boolean#

procedure CancelInspOrder(SourceID: Code[20]; SourceLineNo: Integer; RoutingNo: Code[20]; OperationNo: Code[20]; DocumentNo: Code[20]; DocumentLineNo: Integer; var ItemJournalLine: Record "Item Journal Line"; CompleteReversal: 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]) :#

Summary: Publisher event before running functionality to get in-process inspection plan no.

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

Parameters:

  • ProdOrderRoutingLine: Record: "Prod. Order Routing Line"
  • ValidityDate: Date: For calculation of valid inspaction plan
  • IsHandled: Gives back if the publisher was handled
  • InspectionPlanNo: Gives back the determinated inspection plan no.

OnBeforeGetReceivingInspectionPlanNo(Code[20], Integer, Code[20], Date, Boolean, Code[20]) :#

Summary: Publisher event before getting receiving inspection plan no.

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

Parameters:

  • ItemNo: Defines the received item no.
  • SourceType: Defines the table id of according source (vendor or customer)
  • VendorCustomerNo: Defines the vendor no. or customer no. according to given source type
  • ValidityDate: Define the validity date of the inspection plan usage
  • IsHandled: Gives back if the publisher was handled
  • HandledInspectionPlanNo: Gives back the determinated inspection plan no.

OnBeforeGetFinalInspectionPlanNo(Code[20], Date, Boolean, Code[20]) :#

Summary: Publisher event before getting final inspection plan no.

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

Parameters:

  • ItemNo: Defines the item no. which should be produced
  • ValidityDate: Define the validity date of the inspection plan usage
  • IsHandled: Gives back if the publisher was handled
  • HandledInspectionPlanNo: Gives back the determinated inspection plan no.

OnBeforeGetManualInspectionPlanNo(Code[20], Date, Boolean, Code[20]) :#

Summary: Publisher event before getting manual inspection plan no.

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

Parameters:

  • ItemNo: Defines the item no. which should be inspected
  • ValidityDate: Define the validity date of the inspection plan usage
  • IsHandled: Gives back if the publisher was handled
  • HandledInspectionPlanNo: Gives back the determinated inspection plan no.

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

Summary: Publisher event before showing the source reference document for a inspection order

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

Parameters:

  • InspOrderHeader: Record "KVSQME - Insp. Order Header"
  • IsHandled: IsHandled: Boolean, gives back if this functionality was already handled

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

Summary: Publisher event before showing the posted reference document for a inspection order

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

Parameters:

  • InspOrderHeader: Record "KVSQME - Insp. Order Header"
  • IsHandled: IsHandled: Boolean, gives back if this functionality was already handled

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

Summary: Publisher event before showing the warehouse reference document for a inspection order

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

Parameters:

  • InspOrderHeader: Record "KVSQME - Insp. Order Header"
  • IsHandled: IsHandled: Boolean, gives back if this functionality was already handled

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

Summary: This event is used in the procedure "CreateInspOrderFromOutput" after set filters to record "KVSQME - Insp. Order Header" for checking if a inspection order for given document no. (Item Register No.) already exists.

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

Parameters:

  • KVSQMEInspOrderHeader: Record "KVSQME - Insp. Order Header", with already set filters
  • ItemJournalLine: Var Record "Item Journal Line", which causes cretion of output inspection order

OnBeforeCheckPurchReceiptLinesBeforeUnDoPosting(Record Purch. Rcpt. Line, Boolean) :#

Summary: This event is used before runnig ckecks on undo posting for purchase receipt lines

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

Parameters:

  • PurchRcptLine: Record "Purch. Rcpt. Line", selected purch. receipt lines for undo posting
  • IsHandled: Boolean, parameter which allow to skip the check function

OnAfterCheckPurchReceiptLinesBeforeUnDoPosting(Record Purch. Rcpt. Line) :#

Summary: This event is used after runnig ckecks on undo posting for purchase receipt lines

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

Parameters:

  • PurchRcptLine: Record "Purch. Rcpt. Line", selected purch. receipt lines for undo posting

OnBeforeCheckReturnReceiptLinesBeforeUnDoPosting(Record Return Receipt Line, Boolean) :#

Summary: This event is used before runnig ckecks on undo posting for return receipt lines

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

Parameters:

  • ReturnReceiptLine: Record "Return Receipt Line", selected return receipt lines for undo posting
  • IsHandled: Boolean, parameter which allow to skip the check function

OnAfterCheckReturnReceiptLinesBeforeUnDoPosting(Record Return Receipt Line) :#

Summary: This event is used after runnig ckecks on undo posting for return receipt lines

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

Parameters:

  • ReturnReceiptLine: Record "Return Receipt Line", selected return receipt lines for undo posting

OnBeforeGetSourceReferenceText(Integer, Integer, Text, Boolean) :#

Summary: This event is running before getting source reference text

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

Parameters:

  • SourceType: Integer
  • SourceSubType: Integer
  • SourceReferenceText: Text
  • IsHandled: Boolean

OnBeforeGetPostedReferenceText(Integer, Text, Boolean) :#

Summary: This event is running before getting posted reference text

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

Parameters:

  • SourceDocumentType: Integer
  • PostedReferenceText: Text
  • IsHandled: Boolean

OnBeforeDeleteUnusedInProcessInspections(RecordRef, Boolean) :#

Summary: This event is running before deleting unused in-process inspections on deleting a production order or routling line

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

Parameters:

  • ProdRecRef: RecordRef as reference to a table which belongs to production order document
  • IsHandled: Boolean, parameter which allow to skip the check function

HandleDeletingInProcessInspectionsForProdRef(RecordRef, Boolean) :#

Summary: This event is running in case that the given prod. order reference table is currently unknown by the module

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

Parameters:

  • ProdRecRef: RecordRef as reference to a table which belongs to production order document
  • IsHandled: Boolean, parameter which allow to skip the check function

OnBeforeCreateInspectionOrdersFromProdOrder(Record Production Order, Boolean, Boolean) :#

Summary: This event is running before creating in-process inspections for a production order

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

Parameters:

  • ProductionOrder: Record "Production Order"
  • IsHandled: Boolean, parameter which allow to skip the the processing of this function
  • SkipCreationMessage: Boolean, parameter which allow to skip the user message after creation of in-process inspections

OnAfterCreateSingleManualInspOrderFromItemJournal(Code[20]) :#

Summary: This event is running after creation of a single manual ispection order

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

Parameters:

  • CreatedInspOrderNo: Code [20], parameter which shows the created inspection order no.

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) :#

Summary: This event is running on get quantity form an inspection order, when the given inspection result is out of the given case. It's needed for creation of put-away lines form a inspection order.

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

Parameters:

  • InspectionOrderHeader: Record "KVSQME - Insp. Order Header", gives the related inspection order
  • WarehouseActivityLine: Record "Warehouse Activity Line", gives the warehouse activity line which is currently in process
  • InspectionResult: Enum "KVSQMEInspectionResult", gives the currently used inspection result type
  • InspectionQtyBase: Var Decimal, Allows to set the inspection quantity base for given parameters

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;

OnBeforeCancelInspOrder(Code[20], Integer, Code[20], Code[20], Code[20], Integer, Record Item Journal Line, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCancelInspOrder(SourceIDPar: Code[20]; SourceLineNoPar: Integer; RoutingNoPar: Code[20]; OperationNoPar: Code[20]; DocumentNoPar: Code[20]; DocumentLineNoPar: Integer; var ItemJnlLine: Record "Item Journal Line"; CompleteReversalPar: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeCancelInspOrder', '', false, false)]
local procedure DoSomethingOnBeforeCancelInspOrder(SourceIDPar: Code[20]; SourceLineNoPar: Integer; RoutingNoPar: Code[20]; OperationNoPar: Code[20]; DocumentNoPar: Code[20]; DocumentLineNoPar: Integer; var ItemJnlLine: Record "Item Journal Line"; CompleteReversalPar: Boolean; var IsHandled: Boolean)
begin
end;

OnProcessWarehouseActivityLineOnBeforeCalcSums(Record Warehouse Activity Line, Record Warehouse Activity Line) :#

[IntegrationEvent(false, false)]
local procedure OnProcessWarehouseActivityLineOnBeforeCalcSums(WarehouseActivityLine: Record "Warehouse Activity Line"; var NewWarehouseActivityLine: Record "Warehouse Activity Line"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnProcessWarehouseActivityLineOnBeforeCalcSums', '', false, false)]
local procedure DoSomethingOnProcessWarehouseActivityLineOnBeforeCalcSums(WarehouseActivityLine: Record "Warehouse Activity Line"; var NewWarehouseActivityLine: Record "Warehouse Activity Line")
begin
end;

OnBeforeGetQtyFormInspectionOrder(Record KVSQME - Insp. Order Header, Record Warehouse Activity Line, Enum KVSQMEInspectionResult, Decimal, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeGetQtyFormInspectionOrder(InspectionOrderHeader: Record "KVSQME - Insp. Order Header"; WarehouseActivityLine: Record "Warehouse Activity Line"; InspectionResult: Enum "KVSQMEInspectionResult"; var InspectionQtyBase: Decimal; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnBeforeGetQtyFormInspectionOrder', '', false, false)]
local procedure DoSomethingOnBeforeGetQtyFormInspectionOrder(InspectionOrderHeader: Record "KVSQME - Insp. Order Header"; WarehouseActivityLine: Record "Warehouse Activity Line"; InspectionResult: Enum "KVSQMEInspectionResult"; var InspectionQtyBase: Decimal; var IsHandled: Boolean)
begin
end;

OnAfterSetInspectionTrackingFilterForWhseActivityLine(Record KVSQME - Insp. Item Tracking, Record KVSQME - Insp. Order Header, Record Warehouse Activity Line) :#

[IntegrationEvent(false, false)]
local procedure OnAfterSetInspectionTrackingFilterForWhseActivityLine(var InspectionItemTracking: Record "KVSQME - Insp. Item Tracking"; InspectionOrderHeader: Record "KVSQME - Insp. Order Header"; WarehouseActivityLine: Record "Warehouse Activity Line"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSQME - Insp. Order Mgmt.", 'OnAfterSetInspectionTrackingFilterForWhseActivityLine', '', false, false)]
local procedure DoSomethingOnAfterSetInspectionTrackingFilterForWhseActivityLine(var InspectionItemTracking: Record "KVSQME - Insp. Item Tracking"; InspectionOrderHeader: Record "KVSQME - Insp. Order Header"; WarehouseActivityLine: Record "Warehouse Activity Line")
begin
end;