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



EOS Labs -