Codeunit 18059900 EOS Bonus Management

Codeunit 18059900 EOS Bonus Management

Methods

CertifyBonusHeader

procedure CertifyBonusHeader(var BonusHeader: Record "EOS Bonus Header")

Parameters / Return Value

BonusHeader Record "EOS Bonus Header"

CheckBonusLine

procedure CheckBonusLine(var BonusLine: Record "EOS Bonus Line")

Parameters / Return Value

BonusLine Record "EOS Bonus Line"

InitBonusLine

procedure InitBonusLine(var BonusLine: Record "EOS Bonus Line"; BonusType: Enum "EOS Bonus Type"; BonusCode: Code[20])

Parameters / Return Value

BonusLine Record "EOS Bonus Line"
BonusType Enum "EOS Bonus Type"
BonusCode Code[20]

CalcBonusLineFromHeaderList

procedure CalcBonusLineFromHeaderList(var BonusHeader: Record "EOS Bonus Header"; UseRequestPage: Boolean; HideProgress: Boolean)

Parameters / Return Value

BonusHeader Record "EOS Bonus Header"
UseRequestPage Boolean
HideProgress Boolean

CalcBonusLine

procedure CalcBonusLine(var BonusLine: Record "EOS Bonus Line"; UseRequestPage: Boolean; HideProgress: Boolean)

Parameters / Return Value

BonusLine Record "EOS Bonus Line"
UseRequestPage Boolean
HideProgress Boolean

TestBonusLineOpenStatus

procedure TestBonusLineOpenStatus(var BonusLine: Record "EOS Bonus Line")

Parameters / Return Value

BonusLine Record "EOS Bonus Line"

TestBonusLineCalculableStatus

procedure TestBonusLineCalculableStatus(var BonusLine: Record "EOS Bonus Line")

Parameters / Return Value

BonusLine Record "EOS Bonus Line"

IsBonusLineInCalculableStatus

procedure IsBonusLineInCalculableStatus(var BonusLine: Record "EOS Bonus Line"): Boolean

Parameters / Return Value

BonusLine Record "EOS Bonus Line"
Returns Boolean

TestHeaderOpenStatus

procedure TestHeaderOpenStatus(BonusType: Enum "EOS Bonus Type"; BonusCode: Code[20])

Parameters / Return Value

BonusType Enum "EOS Bonus Type"
BonusCode Code[20]

IsHeaderInReleasedStatus

procedure IsHeaderInReleasedStatus(HeaderType: Integer; HeaderSubtype: Integer; HeaderID: Code[20]; HeaderRefNo: Integer; BonusType: Integer): Boolean

Parameters / Return Value

HeaderType Integer
HeaderSubtype Integer
HeaderID Code[20]
HeaderRefNo Integer
BonusType Integer
Returns Boolean

FilterHeaderBonusLine

procedure FilterHeaderBonusLine(var BonusLine: Record "EOS Bonus Line"; BonusType: Enum "EOS Bonus Type"; BonusCode: Code[20])

Parameters / Return Value

BonusLine Record "EOS Bonus Line"
BonusType Enum "EOS Bonus Type"
BonusCode Code[20]

FilterHeaderBonusThreshold

procedure FilterHeaderBonusThreshold(var BonusThreshold: Record "EOS Bonus Threshold"; BonusType: Enum "EOS Bonus Type"; BonusCode: Code[20]; LineNo: Integer)

Parameters / Return Value

BonusThreshold Record "EOS Bonus Threshold"
BonusType Enum "EOS Bonus Type"
BonusCode Code[20]
LineNo Integer

FilterHeaderBonusDimFilter

procedure FilterHeaderBonusDimFilter(var BonusDimFilter: Record "EOS Bonus Dimension Filter"; BonusType: Enum "EOS Bonus Type"; BonusCode: Code[20]; LineNo: Integer)

Parameters / Return Value

BonusDimFilter Record "EOS Bonus Dimension Filter"
BonusType Enum "EOS Bonus Type"
BonusCode Code[20]
LineNo Integer

FilterHeaderBonusLedgEntry

procedure FilterHeaderBonusLedgEntry(var BonusLedgEntry: Record "EOS Bonus Ledger Entry"; BonusType: Enum "EOS Bonus Type"; BonusCode: Code[20]; LineNo: Integer)

Parameters / Return Value

BonusLedgEntry Record "EOS Bonus Ledger Entry"
BonusType Enum "EOS Bonus Type"
BonusCode Code[20]
LineNo Integer

FilterHeaderBonusJnlLine

procedure FilterHeaderBonusJnlLine(var BonusJnlLine: Record "EOS Bonus Journal Line"; BonusType: Enum "EOS Bonus Type"; BonusCode: Code[20]; LineNo: Integer)

Parameters / Return Value

BonusJnlLine Record "EOS Bonus Journal Line"
BonusType Enum "EOS Bonus Type"
BonusCode Code[20]
LineNo Integer

FilterHeaderBonusSettlementEntry

procedure FilterHeaderBonusSettlementEntry(var BonusSettlementEntry: Record "EOS Bonus Settlement Entry"; BonusType: enum "EOS Bonus Type"; BonusCode: Code[20]; LineNo: Integer)

Parameters / Return Value

BonusSettlementEntry Record "EOS Bonus Settlement Entry"
BonusType enum "EOS Bonus Type"
BonusCode Code[20]
LineNo Integer

FilterOverrideBonusLine

procedure FilterOverrideBonusLine(var BonusLine: Record "EOS Bonus Line"; OverrideType: Enum "EOS Bonus Type"; OverrideID: Code[20]; OverrideLineNo: Integer)

Parameters / Return Value

BonusLine Record "EOS Bonus Line"
OverrideType Enum "EOS Bonus Type"
OverrideID Code[20]
OverrideLineNo Integer

FilterPostedFromBonusLedgEntry

procedure FilterPostedFromBonusLedgEntry(var BonusLedgEntry: Record "EOS Bonus Ledger Entry"; PostedFromType: Enum "EOS Bonus Type"; PostedFromID: Code[20]; PostedFromLineNo: Integer)

Parameters / Return Value

BonusLedgEntry Record "EOS Bonus Ledger Entry"
PostedFromType Enum "EOS Bonus Type"
PostedFromID Code[20]
PostedFromLineNo Integer

FilterPostedFromBonusJnlLine

procedure FilterPostedFromBonusJnlLine(var BonusJnlLine: Record "EOS Bonus Journal Line"; PostedFromType: Enum "EOS Bonus Type"; PostedFromID: Code[20]; PostedFromLineNo: Integer)

Parameters / Return Value

BonusJnlLine Record "EOS Bonus Journal Line"
PostedFromType Enum "EOS Bonus Type"
PostedFromID Code[20]
PostedFromLineNo Integer

DeleteHeaderBonusLine

procedure DeleteHeaderBonusLine(BonusType: Enum "EOS Bonus Type"; BonusCode: Code[20]; HideConfirmation: Boolean; SkipStatusCheck: Boolean)

Parameters / Return Value

BonusType Enum "EOS Bonus Type"
BonusCode Code[20]
HideConfirmation Boolean
SkipStatusCheck Boolean

IsBusBonusGroupInFilter

procedure IsBusBonusGroupInFilter(var BusBonusGroup: Record "EOS Bus. Bonus Group"; BusBonusGroupCode: Code[20]; BusBonusGroupFilter: Code[250]): Boolean

Parameters / Return Value

BusBonusGroup Record "EOS Bus. Bonus Group"
BusBonusGroupCode Code[20]
BusBonusGroupFilter Code[250]
Returns Boolean

IsProdBonusGroupInFilter

procedure IsProdBonusGroupInFilter(var ProdBonusGroup: Record "EOS Prod. Bonus Group"; ProdBonusGroupCode: Code[20]; ProdBonusGroupFilter: Code[250]): Boolean

Parameters / Return Value

ProdBonusGroup Record "EOS Prod. Bonus Group"
ProdBonusGroupCode Code[20]
ProdBonusGroupFilter Code[250]
Returns Boolean

IsInvPostingGroupInFilter

procedure IsInvPostingGroupInFilter(var InvPostingGroup: Record "Inventory Posting Group"; InvPostingGroupCode: Code[20]; InvPostingGroupFilter: Code[250]): Boolean

Parameters / Return Value

InvPostingGroup Record "Inventory Posting Group"
InvPostingGroupCode Code[20]
InvPostingGroupFilter Code[250]
Returns Boolean

ResolveDiscountText

procedure ResolveDiscountText(DiscountText: Text[50]; var DiscountValue: Decimal): Boolean

Parameters / Return Value

DiscountText Text[50]
DiscountValue Decimal
Returns Boolean

CheckDiscountText

procedure CheckDiscountText(DiscountText: Text[50])

Parameters / Return Value

DiscountText Text[50]

SplitDiscountText

procedure SplitDiscountText(DiscountText: Text[50]; Index: Integer): Decimal

Parameters / Return Value

DiscountText Text[50]
Index Integer
Returns Decimal

ParseValueText

procedure ParseValueText(ValueType: Enum "EOS Bonus Value Type"; var ValueText: Text[30]; ModifyValueText: Boolean): Decimal

Parameters / Return Value

ValueType Enum "EOS Bonus Value Type"
ValueText Text[30]
ModifyValueText Boolean
Returns Decimal

FormatBonusLineField

procedure FormatBonusLineField(BonusLine: Record "EOS Bonus Line"; FieldNumber: Integer; var Text: Text[1024])

Parameters / Return Value

BonusLine Record "EOS Bonus Line"
FieldNumber Integer
Text Text[1024]

ShortNumberFormat

procedure ShortNumberFormat(Number: Decimal; FormattedNumber: Text[30]): Text[30]

Parameters / Return Value

Number Decimal
FormattedNumber Text[30]
Returns Text[30]

InsertThreshBaseLine

procedure InsertThreshBaseLine(var ThreshBonusLine: Record "EOS Bonus Line"; var BaseBonusLine: Record "EOS Bonus Line")

Parameters / Return Value

ThreshBonusLine Record "EOS Bonus Line"
BaseBonusLine Record "EOS Bonus Line"

DeleteThreshBaseLine

procedure DeleteThreshBaseLine(var ThreshBonusLine: Record "EOS Bonus Line"; var BaseBonusLine: Record "EOS Bonus Line")

Parameters / Return Value

ThreshBonusLine Record "EOS Bonus Line"
BaseBonusLine Record "EOS Bonus Line"

IsThreshBaseLine

procedure IsThreshBaseLine(var ThreshBonusLine: Record "EOS Bonus Line"; var BaseBonusLine: Record "EOS Bonus Line"): Boolean

Parameters / Return Value

ThreshBonusLine Record "EOS Bonus Line"
BaseBonusLine Record "EOS Bonus Line"
Returns Boolean

GetSalesSnapshotSetupGroups

procedure GetSalesSnapshotSetupGroups(EOSSalesSnapshot: Record "EOS Sales Snapshot"; var BusBonusGroup: Code[20]; var ProdBonusGroup: Code[20])

Parameters / Return Value

EOSSalesSnapshot Record "EOS Sales Snapshot"
BusBonusGroup Code[20]
ProdBonusGroup Code[20]

GetPurchSnapshotSetupGroups

procedure GetPurchSnapshotSetupGroups(EOSPurchaseSnapshot: Record "EOS Purchase Snapshot"; var BusBonusGroup: Code[20]; var ProdBonusGroup: Code[20])

Parameters / Return Value

EOSPurchaseSnapshot Record "EOS Purchase Snapshot"
BusBonusGroup Code[20]
ProdBonusGroup Code[20]

GetSalesSnapDocTypeToBonusDocType

procedure GetSalesSnapDocTypeToBonusDocType(SalesDocumentType: Enum "EOS Sales Document Type") BonusDocumentType: enum "EOS Bonus Document Type"

Parameters / Return Value

SalesDocumentType Enum "EOS Sales Document Type"
Returns enum "EOS Bonus Document Type"

GetPurchSnapDocTypeToBonusDocType

procedure GetPurchSnapDocTypeToBonusDocType(PurchaseDocumentType: Enum "EOS Purchase Document Type") BonusDocumentType: enum "EOS Bonus Document Type"

Parameters / Return Value

PurchaseDocumentType Enum "EOS Purchase Document Type"
Returns enum "EOS Bonus Document Type"

GetPointItemUnitValueFromBonusLine

procedure GetPointItemUnitValueFromBonusLine(var BonusLine: Record "EOS Bonus Line"): Decimal

Return the unit value of the “Point Item No.” of the given bonus line.

Parameters / Return Value

BonusLine Record "EOS Bonus Line"
Returns Decimal
Point Unit value

GetPointItemUnitValueFromBonusJournalLine

procedure GetPointItemUnitValueFromBonusJournalLine(var BonusJournalLine: Record "EOS Bonus Journal Line"): Decimal

Return the unit value of the “Point Item No.” of the given bonus journal line.

Parameters / Return Value

BonusJournalLine Record "EOS Bonus Journal Line"
Returns Decimal
Point Unit value

GetBonusLinesForCustomer

Obsolete

Pending: Use “Customer.EOS075_CollectBonusLines” instead. (24.0)

procedure GetBonusLinesForCustomer(customer: record Customer; var tmpBonusLines: Record "EOS Bonus Line" temporary; var ItemBuffer: Record "EOS075 Bonus Item Buffer" temporary)

Parameters / Return Value

customer record "Customer"
tmpBonusLines Record "EOS Bonus Line"
ItemBuffer Record "EOS075 Bonus Item Buffer"

GetBonusLinesForVendor

Obsolete

Pending: Use “Customer.EOS075_CollectBonusLines” instead. (24.0)

procedure GetBonusLinesForVendor(vendor: record Vendor; var tmpBonusLines: Record "EOS Bonus Line" temporary; var ItemBuffer: Record "EOS075 Bonus Item Buffer" temporary)

Parameters / Return Value

vendor record "Vendor"
tmpBonusLines Record "EOS Bonus Line"
ItemBuffer Record "EOS075 Bonus Item Buffer"

Events

OnAfterCheckBonusLine

local procedure OnAfterCheckBonusLine(var BonusLine: Record "EOS Bonus Line")

This event is raised after the check of Bonus Line before certify

Parameters / Return Value

BonusLine Record "EOS Bonus Line"
The record of Bonus Line to certify

OnBeforeIsBonusLineInCalculableStatus

local procedure OnBeforeIsBonusLineInCalculableStatus(var BonusLine: Record "EOS Bonus Line"; var return: Boolean; var handled: Boolean)

Parameters / Return Value

BonusLine Record "EOS Bonus Line"
return Boolean
handled Boolean

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.

EOS Labs - 21.11.2024