Skip to content

KVSPSAGeneral Functions PSA#

Procedures#

AppendText(Text, Text, Text) :#

Obsolete

This Element will be removed or changed with a future Version of the App.

[Obsolete('Replace by AppendToTextBuilder', '25.2')]
procedure AppendText(var TextToAppend: Text; TextToAdd: Text; Delimiter: Text):

AppendToTextBuilder(TextBuilder, Text, Text) :#

Summary: Add Text with a Delimiter to a TextBuilder. If the TextBuilder is not empty, the Delimiter will be set before the new text

procedure AppendToTextBuilder(var TextBuilderToAppend: TextBuilder; TextToAdd: Text; Delimiter: Text):

Parameters:

  • TextBuilderToAppend:
  • TextToAdd:
  • Delimiter:

CalcOutStandingPrice(Record KVSPSAJobPSPLine) :#

procedure CalcOutStandingPrice(var JobPSPLine: Record "KVSPSAJobPSPLine"):

DeleteRecordWithQuestion(Variant) :#

procedure DeleteRecordWithQuestion(RecordAsVariant: Variant):

EvaluateJobDocumentLine(Record KVSPSAJob Document Header, Boolean) :#

Obsolete

This Element will be removed or changed with a future Version of the App.

[Obsolete('Use FillTotallingAndPositionNumberingForJobDocument in KVSPSATotallingPosNumberingMgt', '23.0')]
procedure EvaluateJobDocumentLine(var JobDocumentHeader: Record "KVSPSAJob Document Header"; PosNumbering: Boolean):

EvaluatePSPLine(Record KVSPSAJobPSPHeader, Boolean) :#

Obsolete

This Element will be removed or changed with a future Version of the App.

[Obsolete('Use FillTotallingAndPositionNumberingForPSPHeader in KVSPSATotallingPosNumberingMgt', '23.0')]
procedure EvaluatePSPLine(var JobPSPHeader: Record "KVSPSAJobPSPHeader"; PositionNumbering: Boolean):

TestBlocked(Code[20], Code[10], Code[20], Integer) :#

Summary: Test Blocked field in Job Budget Name / Job WBS Header / Job WBS Line

procedure TestBlocked(TestJobNo: Code[20]; TestJobBudgetName: Code[10]; TestVersion: Code[20]; TestLineNo: Integer):

TransferPurchInvLedgerFromPurchaseLineToPurchaseLine(Record Purchase Line, Record Purchase Line) :#

procedure TransferPurchInvLedgerFromPurchaseLineToPurchaseLine(SourcePurchaseLine: Record "Purchase Line"; TargetPurchaseLine: Record "Purchase Line"):

UpdateBudgetFromPSPLines(Code[20], Code[10], Code[20]) :#

procedure UpdateBudgetFromPSPLines(JobNo: Code[20]; BudgetName: Code[10]; VersionNo: Code[20]):

UpdatePSP(Record KVSPSAJobPSPHeader) :#

procedure UpdatePSP(var JobPSPHeader: Record "KVSPSAJobPSPHeader"):

Events#

KVSPSAOnAfterCalcPSPLineUsageFieldsSubtotals(Record KVSPSAJobPSPLine) :#

Obsolete

This Element will be removed or changed with a future Version of the App.

[Obsolete('Use KVSPSAOnBeforeCalcUsageFieldSubtotalModified instead', '22.4')]
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCalcPSPLineUsageFieldsSubtotals(var JobPSPLine: Record "KVSPSAJobPSPLine"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGeneral Functions PSA", 'KVSPSAOnAfterCalcPSPLineUsageFieldsSubtotals', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCalcPSPLineUsageFieldsSubtotals(var JobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;

KVSPSAOnAfterInitPSPLineUsageFields(Record KVSPSAJobPSPLine) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterInitPSPLineUsageFields(var JobPSPLine: Record "KVSPSAJobPSPLine"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGeneral Functions PSA", 'KVSPSAOnAfterInitPSPLineUsageFields', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterInitPSPLineUsageFields(var JobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;

KVSPSAOnBeforeCalcUsageFieldSubtotalJobPSPLineModify(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCalcUsageFieldSubtotalJobPSPLineModify(var JobPSPLine: Record "KVSPSAJobPSPLine"; var JobPSPLine2: Record "KVSPSAJobPSPLine"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGeneral Functions PSA", 'KVSPSAOnBeforeCalcUsageFieldSubtotalJobPSPLineModify', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCalcUsageFieldSubtotalJobPSPLineModify(var JobPSPLine: Record "KVSPSAJobPSPLine"; var JobPSPLine2: Record "KVSPSAJobPSPLine")
begin
end;

KVSPSAOnBeforeCalcUsageFieldSubtotalModified(Record KVSPSAJobPSPLine, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCalcUsageFieldSubtotalModified(var JobPSPLine: Record "KVSPSAJobPSPLine"; var Modified: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGeneral Functions PSA", 'KVSPSAOnBeforeCalcUsageFieldSubtotalModified', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCalcUsageFieldSubtotalModified(var JobPSPLine: Record "KVSPSAJobPSPLine"; var Modified: Boolean)
begin
end;

KVSPSAOnBeforeTestBlocked(Code[20], Code[10], Code[20], Integer, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeTestBlocked(TestJobNo: Code[20]; TestJobBudgetName: Code[10]; TestVersion: Code[20]; TestLineNo: Integer; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGeneral Functions PSA", 'KVSPSAOnBeforeTestBlocked', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeTestBlocked(TestJobNo: Code[20]; TestJobBudgetName: Code[10]; TestVersion: Code[20]; TestLineNo: Integer; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeUpdateBudgetFromPSPLines(Code[20], Code[10], Code[20], Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeUpdateBudgetFromPSPLines(JobNo: Code[20]; BudgetName: Code[10]; VersionNo: Code[20]; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGeneral Functions PSA", 'KVSPSAOnBeforeUpdateBudgetFromPSPLines', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeUpdateBudgetFromPSPLines(JobNo: Code[20]; BudgetName: Code[10]; VersionNo: Code[20]; var IsHandled: Boolean)
begin
end;