Codeunit 18006540 EOS Inspection Management

Codeunit 18006540 EOS Inspection Management

Methods

CreateDocumentInspection

procedure CreateDocumentInspection(SourceType: Integer; SourceSubtype: Integer; SourceNo: Code[20]; SourceLineNo: Integer; SourceProdOrderLine: Integer; ShowDocument: Boolean) OrderNo: Code[20]

Parameters / Return Value

• SourceType Integer

• SourceSubtype Integer

• SourceNo Code[20]

• SourceLineNo Integer

• SourceProdOrderLine Integer

• ShowDocument Boolean

• Returns Code[20]

CreateDocumentInspection

procedure CreateDocumentInspection(SourceType: Integer; SourceSubtype: Integer; SourceNo: Code[20]; SourceLineNo: Integer; SourceProdOrderLine: Integer; ShowDocument: Boolean; HideDialog: Boolean) OrderNo: Code[20]

Parameters / Return Value

• SourceType Integer

• SourceSubtype Integer

• SourceNo Code[20]

• SourceLineNo Integer

• SourceProdOrderLine Integer

• ShowDocument Boolean

• HideDialog Boolean

• Returns Code[20]

CreateManuallyDocumentInspection

procedure CreateManuallyDocumentInspection(ProdOrderRtngLine: Record "Prod. Order Routing Line"; ShowDocument: Boolean; HideDialog: Boolean) OrderNo: Code[20]

Parameters / Return Value

• ProdOrderRtngLine Record "Prod. Order Routing Line"

• ShowDocument Boolean

• HideDialog Boolean

• Returns Code[20]

IsEnabledCreateManuallyInspOrder

procedure IsEnabledCreateManuallyInspOrder(ProdOrderRtngLine: Record "Prod. Order Routing Line"): Boolean

Parameters / Return Value

• ProdOrderRtngLine Record "Prod. Order Routing Line"

• Returns Boolean

ShowDocumentInspectionsProd

procedure ShowDocumentInspectionsProd(SourceType: Integer; SourceSubtype: Integer; SourceNo: Code[20]; SourceLineNo: Integer; SourceProdOrderLine: Integer)

Parameters / Return Value

• SourceType Integer

• SourceSubtype Integer

• SourceNo Code[20]

• SourceLineNo Integer

• SourceProdOrderLine Integer

ShowDocumentInspectionsProdOrderRouting

procedure ShowDocumentInspectionsProdOrderRouting(SourceType: Integer; SourceSubtype: Integer; SourceNo: Code[20]; SourceLineNo: Integer; SourceProdOrderLine: Integer; OperationNo: Code[10]; RoutingNo: Code[20]; RoutingRefNo: Integer; InspectionType: Enum "EOS Insp. Order Type")

Parameters / Return Value

• SourceType Integer

• SourceSubtype Integer

• SourceNo Code[20]

• SourceLineNo Integer

• SourceProdOrderLine Integer

• OperationNo Code[10]

• RoutingNo Code[20]

• RoutingRefNo Integer

• InspectionType Enum "EOS Insp. Order Type"

ShowDocumentInspections

procedure ShowDocumentInspections(SourceType: Integer; SourceSubtype: Integer; SourceNo: Code[20]; SourceLineNo: Integer; SourceProdOrderLine: Integer)

Parameters / Return Value

• SourceType Integer

• SourceSubtype Integer

• SourceNo Code[20]

• SourceLineNo Integer

• SourceProdOrderLine Integer

ShowDocumentInspectionsAll

procedure ShowDocumentInspectionsAll(docVariant: Variant)

Parameters / Return Value

• docVariant Variant

CheckDocumentInspections

procedure CheckDocumentInspections(SourceType: Integer; SourceSubtype: Integer; SourceNo: Code[20]; SourceLineNo: Integer)

Parameters / Return Value

• SourceType Integer

• SourceSubtype Integer

• SourceNo Code[20]

• SourceLineNo Integer

CreateInspection

procedure CreateInspection(InspectionType: Enum "EOS Insp. Order Type"; DocumentNo: Code[20]; LineNo: Integer; OperationNo: Code[10]; ItemLedgEntryNo: Integer; CapLedgEntryNo: Integer; LotFrequency: Decimal; WhseDocType: Integer; WhseDocNo: Code[20]; WhseDocLineNo: Integer; OrderType: Option InspectionOrder,Claim; ItemJnlLine: Record "Item Journal Line"; InspectionMatrixSetup: Record "EOS Inspection Matrix Setup"): Code[20]

Parameters / Return Value

• InspectionType Enum "EOS Insp. Order Type"

• DocumentNo Code[20]

• LineNo Integer

• OperationNo Code[10]

• ItemLedgEntryNo Integer

• CapLedgEntryNo Integer

• LotFrequency Decimal

• WhseDocType Integer

• WhseDocNo Code[20]

• WhseDocLineNo Integer

• OrderType Option

  InspectionOrder (0) , Claim (1)

• ItemJnlLine Record "Item Journal Line"

• InspectionMatrixSetup Record "EOS Inspection Matrix Setup"

• Returns Code[20]

SetItemJnlLineProductionOrder

procedure SetItemJnlLineProductionOrder(ItemJnlLine: Record "Item Journal Line")

Parameters / Return Value

• ItemJnlLine Record "Item Journal Line"

CreateFollowUpInspection

procedure CreateFollowUpInspection(var InspOrderHeader: Record "EOS Inspection Order Header")

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

SkipInspection

procedure SkipInspection(var InspOrderHeader: Record "EOS Inspection Order Header"): Boolean

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

• Returns Boolean

WriteHistory

procedure WriteHistory(InspOrderHeader: Record "EOS Inspection Order Header"; Skip: Boolean)

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

• Skip Boolean

SetInspectionQty

procedure SetInspectionQty(ItemLedgEntryNo: Integer; NewInspectionQty: Decimal)

Parameters / Return Value

• ItemLedgEntryNo Integer

• NewInspectionQty Decimal

InspectDocLedgerEntries

procedure InspectDocLedgerEntries(var InspOrderHeader: Record "EOS Inspection Order Header")

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

UpdateDocLedgerEntries

procedure UpdateDocLedgerEntries(var InspOrderHeader: Record "EOS Inspection Order Header"; var ItemLedgerEntryNo: Integer; InspectionQuantity: Decimal; InspectionStatus: Option Unchecked,Released,Blocked)

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

• ItemLedgerEntryNo Integer

• InspectionQuantity Decimal

• InspectionStatus Option

  Unchecked (0) , Released (1) , Blocked (2)

GetPlanVersion

procedure GetPlanVersion(BOMHeaderNo: Code[20]; Date: Date; OnlyCertified: Boolean): Code[10]

Parameters / Return Value

• BOMHeaderNo Code[20]

• Date Date

• OnlyCertified Boolean

• Returns Code[10]

GetSampleSize

procedure GetSampleSize(InspOrderHeader: Record "EOS Inspection Order Header"; var SampleSize: Decimal; var NonComplianceQty: Decimal)

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

• SampleSize Decimal

• NonComplianceQty Decimal

GetSampleSize

procedure GetSampleSize(var InspectionOrderHeader: Record "EOS Inspection Order Header")

Parameters / Return Value

• InspectionOrderHeader Record "EOS Inspection Order Header"

CollectItemLedgEntry

procedure CollectItemLedgEntry(InspOrderHeader: Record "EOS Inspection Order Header"; QtyToHandle: Decimal; var ItemLedgEntryTmp: Record "Item Ledger Entry" temporary)

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

• QtyToHandle Decimal

• ItemLedgEntryTmp Record "Item Ledger Entry"

PrintTestOrder

procedure PrintTestOrder(var InspOrderHeader: Record "EOS Inspection Order Header")

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

ConfirmTemporaryOrder

procedure ConfirmTemporaryOrder(var InspOrderHeader: Record "EOs Inspection Order Header")

Parameters / Return Value

• InspOrderHeader Record "EOs Inspection Order Header"

LookupLotNo

procedure LookupLotNo(InspOrderHeader: Record "EOS Inspection Order Header"; var TextOut: Text): Boolean

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

• TextOut Text[]

• Returns Boolean

LookupSerialNo

procedure LookupSerialNo(InspOrderHeader: Record "EOS Inspection Order Header"; var TextOut: Text): Boolean

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

• TextOut Text[]

• Returns Boolean

GetNonComplianceQty

procedure GetNonComplianceQty(InspOrderHeader: Record "EOS Inspection Order Header"; var NonComplianceQty: Decimal)

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

• NonComplianceQty Decimal

FindInspectionSetup

procedure FindInspectionSetup(var InspSetupMatrix: Record "EOS Inspection Matrix Setup"): Boolean

Parameters / Return Value

• InspSetupMatrix Record "EOS Inspection Matrix Setup"

• Returns Boolean

FindInspOrdersFromPurchRcpt

procedure FindInspOrdersFromPurchRcpt(var PurchRcptHeader: Record "Purch. Rcpt. Header"; var Buffer: Record "EOS Inspection Order Header")

Parameters / Return Value

• PurchRcptHeader Record "Purch. Rcpt. Header"

• Buffer Record "EOS Inspection Order Header"

FindInspOrdersFromSalesShip

procedure FindInspOrdersFromSalesShip(var SalesShipHeader: Record "Sales Shipment Header"; var Buffer: Record "EOS Inspection Order Header")

Parameters / Return Value

• SalesShipHeader Record "Sales Shipment Header"

• Buffer Record "EOS Inspection Order Header"

CreateNonComplYesNo

procedure CreateNonComplYesNo(var InspOrderHeader: Record "EOS Inspection Order Header")

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

CreateNonCompl

procedure CreateNonCompl(var InspOrderHeader: Record "EOS Inspection Order Header")

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

AppendClaimLineYesNo

procedure AppendClaimLineYesNo(VAR InspOrderHeader: Record "EOS Inspection Order Header"; VAR InspOrderLine: Record "EOS Inspection Order Line"): Boolean

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

• InspOrderLine Record "EOS Inspection Order Line"

• Returns Boolean

AppendClaimLine

procedure AppendClaimLine(VAR InspOrderHeader: Record "EOS Inspection Order Header"; VAR InspOrderLine: Record "EOS Inspection Order Line")

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

• InspOrderLine Record "EOS Inspection Order Line"

NotifyLineAppend

procedure NotifyLineAppend(ClaimHeader: Record "EOS Inspection Order Header")

Parameters / Return Value

• ClaimHeader Record "EOS Inspection Order Header"

CheckMandatoryInspForDoc

procedure CheckMandatoryInspForDoc(DocVariant: Variant)

Parameters / Return Value

• DocVariant Variant

Events

OnBeforeOnApplyItemLedgEntryOnAfterCalcAppliedQty

local procedure OnBeforeOnApplyItemLedgEntryOnAfterCalcAppliedQty(OldItemLedgEntry: Record "Item Ledger Entry"; var AppliedQty: Decimal; ItemLedgEntry: Record "Item Ledger Entry"; var IsHandled: Boolean)

Raised before modify the Applied quantity, if there is an inspection quantity on Old Item Ledger Entry. Raised in the standard event “OnApplyItemLedgEntryOnAfterCalcAppliedQty” of codeunit 22.

Parameters / Return Value

• OldItemLedgEntry Record "Item Ledger Entry"

  Old Item Ledger Entry to inspect

• AppliedQty Decimal

  Applied Qty to post

• ItemLedgEntry Record "Item Ledger Entry"

  Item Ledger Entry to insert

• IsHandled Boolean

  if true, no following app code will be executed

OnBeforeInspOrdersExistErr_OnBeforeChangeStatusOnProdOrder

local procedure OnBeforeInspOrdersExistErr_OnBeforeChangeStatusOnProdOrder(var ProductionOrder: Record "Production Order"; NewStatus: Option Quote,Planned,"Firm Planned",Released,Finished; var IsHandled: Boolean)

Raised before changing Status on Production Order and giving error if Inspection Orders exist. Use it to skip control.

Parameters / Return Value

• ProductionOrder Record "Production Order"

  Record “Production Order”

• NewStatus Option

  Quote (0) , Planned (1) , "Firm Planned" (2) , Released (3) , Finished (4)

  New Status of the Production Order

• IsHandled Boolean

  if true, skip the error if Inspection Orders exist

OnAfterGetSampleSize

local procedure OnAfterGetSampleSize(var InspOrderHeader: Record "EOS Inspection Order Header"; SampleSizeSetup: Record "EOS Sample Size Setup DIN 2859")

If a sample size setup was found, this event is raised right after.

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

  Record Inspection Order Header.

• SampleSizeSetup Record "EOS Sample Size Setup DIN 2859"

  Record Sample Size Setup DIN 2859.

OnAfterSetInProgressQuantity

local procedure OnAfterSetInProgressQuantity(var InspOrderHeader: Record "EOS Inspection Order Header"; ItemJournalLine: Record "Item Journal Line")

Raised after copying the quantity from the item journal line for in progress inspections.

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

  Record “EOS Inspection Order Header”.

• ItemJournalLine Record "Item Journal Line"

  Record “Item Journal Line”.

OnAfterCopyTrackingFromItemLedgerEntry

local procedure OnAfterCopyTrackingFromItemLedgerEntry(var InspOrderHeader: Record "EOS Inspection Order Header"; ItemLedgerEntry: Record "Item Ledger Entry")

Raised after copying tracking information from the item ledger entry.

Parameters / Return Value

• InspOrderHeader Record "EOS Inspection Order Header"

  Record Inspection Order Header.

• ItemLedgerEntry Record "Item Ledger Entry"

  Record Item Ledger Entry.

OnCreateFollowUpInspectionOnBeforeInsert

local procedure OnCreateFollowUpInspectionOnBeforeInsert(var FollowUpInspOrderHeader: Record "EOS Inspection Order Header"; InspOrderHeader: Record "EOS Inspection Order Header")

Raised when creating a follow-up inspection, before writing the new record to the database.

Parameters / Return Value

• FollowUpInspOrderHeader Record "EOS Inspection Order Header"

  Follow-up record “EOS Inspection Order Header”.

• InspOrderHeader Record "EOS Inspection Order Header"

  Old record “EOS Inspection Order Header”.

OnBeforeTestInspectionQtyOnItemLedgEntry

local procedure OnBeforeTestInspectionQtyOnItemLedgEntry(var OldItemLedgEntry: Record "Item Ledger Entry"; ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean)

Raised before testing the inspection quantity on the old item ledger entry.

Parameters / Return Value

• OldItemLedgEntry Record "Item Ledger Entry"

  Old Item Ledger Entry to inspect

• ItemJournalLine Record "Item Journal Line"

  Item Journal Line to inspect

• IsHandled Boolean

  if true, no following app code will be executed

Feedback

Was this page helpful?

Glad to hear it! Please tell us how we can improve.

Sorry to hear that. Please tell us how we can improve.