Skip to content

KVSPSADistributionCalcMgt#

Procedures#

SyncJobBudgetEntries(Record KVSPSA Job Budget Line) :#

procedure SyncJobBudgetEntries(var JobBudgetLine: Record "KVSPSA Job Budget Line"): 

DistrActualEntries(Record KVSPSAJobPSPLine, Boolean, Integer, Decimal, Boolean) :#

Summary: this function updates the distribution suggestion

procedure DistrActualEntries(var CurrJobPSPLine: Record "KVSPSAJobPSPLine"; FirstCall: Boolean; BudgetLineNo: Integer; Precision: Decimal; IgnoreFilter: Boolean): 

Parameters:

  • CurrJobPSPLine:
  • FirstCall:
  • BudgetLineNo:
  • Precision:
  • IgnoreFilter:

DistrActualEntries(Record KVSPSAJobPSPLine, Record KVSPSA Job Budget Line, Boolean, Integer, Decimal, Boolean) :#

Summary: this function updates the distribution suggestion

procedure DistrActualEntries(var CurrJobPSPLine: Record "KVSPSAJobPSPLine"; var CurrJobBudgetLine: Record "KVSPSA Job Budget Line"; FirstCall: Boolean; BudgetLineNo: Integer; Precision: Decimal; IgnoreFilter: Boolean): 

Parameters:

  • CurrJobPSPLine:
  • CurrJobBudgetLine:
  • FirstCall:
  • BudgetLineNo:
  • Precision:
  • IgnoreFilter:

DistributeAllInvocing(Record KVSPSAJobPSPLine, Integer) :#

Summary: Use this function to redistribute the invoicing values.

procedure DistributeAllInvocing(var CurrJobPSPLine: Record "KVSPSAJobPSPLine"; BudgetLineNo: Integer): 

Parameters:

  • CurrJobPSPLine: Current Job PSP Line
  • BudgetLineNo: Current Budget Line No. If the Job PSP Line should be redistributed BudgetLineNo must be zero.

Events#

KVSPSAOnFindPaymentPlaningElse(Boolean, Record KVSPSAJobPSPLine, Integer, Record KVSPSADistributionEntry, Decimal, Record KVSPSA Job Budget Line) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnFindPaymentPlaningElse(var PlaningExist: Boolean; CurrJobPSPLine: Record "KVSPSAJobPSPLine"; BudgetLineNo: Integer; var DistributionEntry: Record "KVSPSADistributionEntry"; var UnAssignedValue: Decimal; var JobBudgetLine: Record "KVSPSA Job Budget Line"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSADistributionCalcMgt", 'KVSPSAOnFindPaymentPlaningElse', '', false, false)]
local procedure DoSomethingKVSPSAOnFindPaymentPlaningElse(var PlaningExist: Boolean; CurrJobPSPLine: Record "KVSPSAJobPSPLine"; BudgetLineNo: Integer; var DistributionEntry: Record "KVSPSADistributionEntry"; var UnAssignedValue: Decimal; var JobBudgetLine: Record "KVSPSA Job Budget Line")
begin
end;