Codeunit 5130104 M365 Job Structure Mgt.

Codeunit 5130104 M365 Job Structure Mgt.

Methods

ShowItemRequirementList

procedure ShowItemRequirementList(var rec: Record "Purchase Line")

Parameters / Return Value

  • rec Record "Purchase Line"

SetupNewLine

procedure SetupNewLine(var lastJobStructLine: Record "M365 Job Structure Line"; insertType: Option " ",InsertBefore,InsertAfter,Append): Integer

Parameters / Return Value

  • lastJobStructLine Record "M365 Job Structure Line"

  • insertType Option

    " " (0) , InsertBefore (1) , InsertAfter (2) , Append (3)

  • Returns Integer

SelectInsertType

procedure SelectInsertType() selection: Integer

Parameters / Return Value

  • Returns Integer

CalcOutstanding

procedure CalcOutstanding(jobStructEntryNo: Integer; postingDate: Date)

Parameters / Return Value

  • jobStructEntryNo Integer

  • postingDate Date

SetActualEndingDate

procedure SetActualEndingDate(jobStructEntryNo: Integer; postingDate: Date)

Parameters / Return Value

  • jobStructEntryNo Integer

  • postingDate Date

AddCostAmountActual

procedure AddCostAmountActual(jobStructEntryNo: Integer; costAmntActual: Decimal)

Parameters / Return Value

  • jobStructEntryNo Integer

  • costAmntActual Decimal

AddSalesAmountActual

procedure AddSalesAmountActual(jobStructEntryNo: Integer; salesAmntActual: Decimal)

Parameters / Return Value

  • jobStructEntryNo Integer

  • salesAmntActual Decimal

SwitchJobStructLineLedgerEntry

procedure SwitchJobStructLineLedgerEntry(jobStructLine: Record "M365 Job Structure Line"; toJobStructEntryNo: Integer)

Parameters / Return Value

  • jobStructLine Record "M365 Job Structure Line"

  • toJobStructEntryNo Integer

SwitchJobStructLedgerEntry

procedure SwitchJobStructLedgerEntry(jobStructHeader: Record "M365 Job Structure Header")

Parameters / Return Value

  • jobStructHeader Record "M365 Job Structure Header"

GetJobDescription

procedure GetJobDescription(var itemJnlLine: Record "Item Journal Line"; var jobDescription: Text[100]; var jobStructDescription: Text[100])

Parameters / Return Value

  • itemJnlLine Record "Item Journal Line"

  • jobDescription Text[100]

  • jobStructDescription Text[100]

GetJobStructDemand

procedure GetJobStructDemand(demandNo: Code[20]; variantCodeFilter: Text; locationCodeFilter: Text; dispositionCodeFilter: Text; periodStart: Date; periodEnd: Date): Decimal

Parameters / Return Value

  • demandNo Code[20]

  • variantCodeFilter Text[]

  • locationCodeFilter Text[]

  • dispositionCodeFilter Text[]

  • periodStart Date

  • periodEnd Date

  • Returns Decimal

GetPlanningLevel

procedure GetPlanningLevel(jobStructLine: Record "M365 Job Structure Line"): Integer

Parameters / Return Value

  • jobStructLine Record "M365 Job Structure Line"

  • Returns Integer

GetTypeNo

procedure GetTypeNo(tableId: Integer; recPosition: Text[500]; var forType: Integer; var forNo: Code[20]; var forVariant: Code[10]; var forLocation: Code[10])

Parameters / Return Value

  • tableId Integer

  • recPosition Text[500]

  • forType Integer

  • forNo Code[20]

  • forVariant Code[10]

  • forLocation Code[10]

SetItemLedgEntry

procedure SetItemLedgEntry(itemLedgEntry: Record "Item Ledger Entry")

Parameters / Return Value

  • itemLedgEntry Record "Item Ledger Entry"

SetItemJnlLine

procedure SetItemJnlLine(itemJnlLine: Record "Item Journal Line")

Parameters / Return Value

  • itemJnlLine Record "Item Journal Line"

SetNotRelevantforQty

procedure SetNotRelevantforQty(relevant: Boolean)

Parameters / Return Value

  • relevant Boolean

SetShowDocument

procedure SetShowDocument(extShowDocument: Boolean)

Parameters / Return Value

  • extShowDocument Boolean

GetDocInformation

procedure GetDocInformation(tableId: Integer; recPosition: Text[500]; var documentInfo: array[12] of Text[50])

Parameters / Return Value

  • tableId Integer

  • recPosition Text[500]

  • documentInfo Text[50]

GetUnitofMeasurDescription

procedure GetUnitofMeasurDescription(unitofMeasureCode: Code[10]): Text[50]

Parameters / Return Value

  • unitofMeasureCode Code[10]

  • Returns Text[50]

SetNotUpdateJobStructLine

procedure SetNotUpdateJobStructLine(notUpdate: Boolean)

Parameters / Return Value

  • notUpdate Boolean

SetCallByItemPosting

procedure SetCallByItemPosting(setCallByItemPosting: Boolean)

Parameters / Return Value

  • setCallByItemPosting Boolean

GetLastLineNo

procedure GetLastLineNo(purchLine: Record "Purchase Line"): Integer

Parameters / Return Value

  • purchLine Record "Purchase Line"

  • Returns Integer

CreateItemFromJobStructureLine

procedure CreateItemFromJobStructureLine(var jobStructureLine: Record "M365 Job Structure Line")

Parameters / Return Value

  • jobStructureLine Record "M365 Job Structure Line"

CreateNewJobStructure

procedure CreateNewJobStructure(fromJobStructHeader: Record "M365 Job Structure Header"): Code[20]

Parameters / Return Value

  • fromJobStructHeader Record "M365 Job Structure Header"

  • Returns Code[20]

CheckGLLineInStructure

procedure CheckGLLineInStructure(jobStructLine: Record "M365 Job Structure Line")

Parameters / Return Value

  • jobStructLine Record "M365 Job Structure Line"

CheckPOInStructure

procedure CheckPOInStructure(jobStructLine: Record "M365 Job Structure Line")

Parameters / Return Value

  • jobStructLine Record "M365 Job Structure Line"

CheckEngineeringActiv

procedure CheckEngineeringActiv(): Boolean

Parameters / Return Value

  • Returns Boolean

GenVariantCode

procedure GenVariantCode(forNo: Code[20]; var variantCode: Code[10]; toDescription: Text[100]; toDescriptionSec: Text[50])

Parameters / Return Value

  • forNo Code[20]

  • variantCode Code[10]

  • toDescription Text[100]

  • toDescriptionSec Text[50]

InitSeriesJob

procedure InitSeriesJob(defaultNoSeriesCode: Code[20]; oldNoSeriesCode: Code[20]; forNewDate: Date; var newNo: Code[10]; var newNoSeriesCode: Code[20])

Parameters / Return Value

  • defaultNoSeriesCode Code[20]

  • oldNoSeriesCode Code[20]

  • forNewDate Date

  • newNo Code[10]

  • newNoSeriesCode Code[20]

CreatePlanningLines

procedure CreatePlanningLines(jobstructEntryNo: Integer; prodOrderDeletion: Boolean)

Parameters / Return Value

  • jobstructEntryNo Integer

  • prodOrderDeletion Boolean

CreatePlanningLine

procedure CreatePlanningLine(jobStruct: Record "M365 Job Structure Line"; var projectPlanningLines: Record "Job Planning Line"; qtyPlanningLine: Decimal)

Parameters / Return Value

  • jobStruct Record "M365 Job Structure Line"

  • projectPlanningLines Record "Job Planning Line"

  • qtyPlanningLine Decimal

CreateCompletePlanningLine

procedure CreateCompletePlanningLine(JobStructLine: Record "M365 Job Structure Line"; var projectPlanningLines: Record "Job Planning Line"; LineNo: Integer; qtyPlanningLine: Decimal)

Parameters / Return Value

  • JobStructLine Record "M365 Job Structure Line"

  • projectPlanningLines Record "Job Planning Line"

  • LineNo Integer

  • qtyPlanningLine Decimal

DeletePlanningLines

procedure DeletePlanningLines(jobStructEntryNo: Integer; prodOrderGeneration: Boolean)

Parameters / Return Value

  • jobStructEntryNo Integer

  • prodOrderGeneration Boolean

MIGetOrderLine

procedure MIGetOrderLine(physInvtRecordingLine: Record "Phys. Invt. Record Line"; var physInventoryOrderLine: Record "Phys. Invt. Order Line")

Parameters / Return Value

  • physInvtRecordingLine Record "Phys. Invt. Record Line"

  • physInventoryOrderLine Record "Phys. Invt. Order Line"

MI_PostJobSalesEntry

procedure MI_PostJobSalesEntry(salesHeader: Record "Sales Header"; salesLine: Record "Sales Line"; salesLineAcy: Record "Sales Line"; genJnlLineDocNo: Code[20]; genJnlLineExtDocNo: Code[35])

Parameters / Return Value

  • salesHeader Record "Sales Header"

  • salesLine Record "Sales Line"

  • salesLineAcy Record "Sales Line"

  • genJnlLineDocNo Code[20]

  • genJnlLineExtDocNo Code[35]

GetJobStructLineNeededQty

procedure GetJobStructLineNeededQty(jobStructLine: Record "M365 Job Structure Line"): Decimal

Parameters / Return Value

  • jobStructLine Record "M365 Job Structure Line"

  • Returns Decimal

JobStructLineUpdateValues

procedure JobStructLineUpdateValues(var currentJobStructLine: Record "M365 Job Structure Line"; var qtyToReserve: Decimal; var qtyToReserveBase: Decimal; qtyReservedThisLine: Decimal; qtyReservedThisLineBase: Decimal; toDirection: Option Outbound,Inbound)

Parameters / Return Value

  • currentJobStructLine Record "M365 Job Structure Line"

  • qtyToReserve Decimal

  • qtyToReserveBase Decimal

  • qtyReservedThisLine Decimal

  • qtyReservedThisLineBase Decimal

  • toDirection Option

    Outbound (0) , Inbound (1)

TransJobStructureLineToProfile

procedure TransJobStructureLineToProfile(var inventoryProfile: Record "Inventory Profile"; var item: Record Item; toDate: Date; var lineNo: Integer; var tempItemTrkgEntry: Record "Reservation Entry" temporary)

Parameters / Return Value

  • inventoryProfile Record "Inventory Profile"

  • item Record "Item"

  • toDate Date

  • lineNo Integer

  • tempItemTrkgEntry Record "Reservation Entry"

MI_JobStructureLinesExist

procedure MI_JobStructureLinesExist(job: Record Job): Boolean

Parameters / Return Value

  • job Record "Job"

  • Returns Boolean

MI_GenVariantCode

procedure MI_GenVariantCode(forNo: Code[20]; var variantCode: Code[10]; forDescription: Text[100]; forDescriptionTwo: Text[50])

Parameters / Return Value

  • forNo Code[20]

  • variantCode Code[10]

  • forDescription Text[100]

  • forDescriptionTwo Text[50]

LinkWithJobStructureLine

procedure LinkWithJobStructureLine(purchLine: Record "Purchase Line")

Parameters / Return Value

  • purchLine Record "Purchase Line"

LinkWithJobStructureLine

procedure LinkWithJobStructureLine(batchQuoteLine: Record "M365 Batch Quote Item Line")

Parameters / Return Value

  • batchQuoteLine Record "M365 Batch Quote Item Line"

CheckItemCharge

procedure CheckItemCharge(purchLine: Record "Purchase Line")

Parameters / Return Value

  • purchLine Record "Purchase Line"

GetNextPurchaseLineNo

procedure GetNextPurchaseLineNo(purchaseLine: Record "Purchase Line"; var nextLineNo: Integer): Boolean

Holt die nächste PurchaseLine Zeilennummer, ist schon eine andere danach vorhanden wird die Zeilennummer halbiert

Parameters / Return Value

  • purchaseLine Record "Purchase Line"

  • nextLineNo Integer

  • Returns Boolean

CreateJobStructure

procedure CreateJobStructure(job: Record Job): Code[20]

Parameters / Return Value

  • job Record "Job"

  • Returns Code[20]

GetNextEntryNo

procedure GetNextEntryNo(): Integer

Parameters / Return Value

  • Returns Integer

CallOpenCheckListJobStructure

procedure CallOpenCheckListJobStructure(recordToOpen: Variant)

Parameters / Return Value

  • recordToOpen Variant

Events

OnBeforeInsertJobStructureFromJob

local procedure OnBeforeInsertJobStructureFromJob(FromJob: Record Job; var ToJobStructHeader: Record "M365 Job Structure Header")

This event is raised on Job Structure creation from Job, before inserting Job Structure Header Record

Parameters / Return Value

  • FromJob Record "Job"

    Source Record

  • ToJobStructHeader Record "M365 Job Structure Header"

    Destination Record

OnAfterInsertJobStructureFromJob

local procedure OnAfterInsertJobStructureFromJob(FromJob: Record Job; var ToJobStructHeader: Record "M365 Job Structure Header")

This event is raised on Job Structure creation from Job, after inserting Job Structure Header Record

Parameters / Return Value

  • FromJob Record "Job"

    Source Record

  • ToJobStructHeader Record "M365 Job Structure Header"

    Destination Record

OnBeforeInsertJobStructureLineFromJob

local procedure OnBeforeInsertJobStructureLineFromJob(FromJob: Record Job; ToJobStructHeader: Record "M365 Job Structure Header"; var ToJobStructLine: Record "M365 Job Structure Line")

This event is raised on Job Structure creation from Job, before inserting Job Structure line Record

Parameters / Return Value

  • FromJob Record "Job"

    Source Record

  • ToJobStructHeader Record "M365 Job Structure Header"

    Destination Header Record

  • ToJobStructLine Record "M365 Job Structure Line"

    Destination Line Record

OnAfterInsertJobStructureLineFromJob

local procedure OnAfterInsertJobStructureLineFromJob(FromJob: Record Job; ToJobStructHeader: Record "M365 Job Structure Header"; var ToJobStructLine: Record "M365 Job Structure Line")

This event is raised on Job Structure creation from Job, before inserting Job Structure line Record

Parameters / Return Value

  • FromJob Record "Job"

    Source Record

  • ToJobStructHeader Record "M365 Job Structure Header"

    Destination Header Record

  • ToJobStructLine Record "M365 Job Structure Line"

    Destination Line Record

OnBeforeInsertNewJobStructure

local procedure OnBeforeInsertNewJobStructure(var JobStructureHeader: Record "M365 Job Structure Header"; FromJobStructureHeader: Record "M365 Job Structure Header")

This event is raised on New Job Structure creation from Job structure card or list , before inserting Job Structure header Record

Parameters / Return Value

  • JobStructureHeader Record "M365 Job Structure Header"

    New Job structure created

  • FromJobStructureHeader Record "M365 Job Structure Header"

    Current Job structure

OnAfterCreateNewJobStructure

local procedure OnAfterCreateNewJobStructure(JobStructureHeader: Record "M365 Job Structure Header"; FromJobStructureHeader: Record "M365 Job Structure Header"; JobStructureLine: Record "M365 Job Structure Line")

This event is raised on New Job Structure creation from Job structure card or list , after inserting Job Structure line Record

Parameters / Return Value

  • JobStructureHeader Record "M365 Job Structure Header"

    New Job structure created

  • FromJobStructureHeader Record "M365 Job Structure Header"

    Current Job structure

  • JobStructureLine Record "M365 Job Structure Line"

    Job structure line created


EOS Labs -