Skip to content

KVSPSARENonDeductibleVATMgmt#

Procedures#

UpdateDeductibleInputVATSetupForJobs(Record KVSPSAREFlat, Date, Decimal) :#

procedure UpdateDeductibleInputVATSetupForJobs(Flat: Record "KVSPSAREFlat"; StartDate: Date; DeductiblePctOfInputVATPct: Decimal):

UpdateDeductibleInputVATSetup(Integer, Code[20], Code[20], Date, Decimal, Enum Default Dimension Value Posting Type) : Boolean#

procedure UpdateDeductibleInputVATSetup(TableID: Integer; DimensionCode: Code[20]; TablePKCode: Code[20]; StartingDate: Date; DeductiblePctOfInputVATPct: Decimal; ValuePostingForDeductVATInpDim: Enum "Default Dimension Value Posting Type"): Boolean

UpdateFutureDeductibleInputVATSetupForJob(Code[20], Code[20], Code[20], Date, Enum Default Dimension Value Posting Type, Decimal, Enum KVSPSAREAllocationKeyCalcBase) :#

procedure UpdateFutureDeductibleInputVATSetupForJob(JobNo: Code[20]; DeductVATInputDimensionCodeFlat: Code[20]; DeductVATInputDimensionCodeJob: Code[20]; StartingDate: Date; ValuePostingForDeductVATInpDim: Enum "Default Dimension Value Posting Type"; RoundingPrecision: Decimal; CalculationBase: Enum "KVSPSAREAllocationKeyCalcBase"):

DeleteNonDeductVATDimSetup(Integer, Code[20], Code[20], Date) :#

procedure DeleteNonDeductVATDimSetup(TableID: Integer; DimensionCode: Code[20]; TablePKCode: Code[20]; StartingDate: Date):

UpdateDeductInputVATForJob(Code[20], Code[20], Code[20], Date, Enum Default Dimension Value Posting Type, Decimal, Enum KVSPSAREAllocationKeyCalcBase) :#

procedure UpdateDeductInputVATForJob(JobNo: Code[20]; DeductVATInputDimensionCodeFlat: Code[20]; DeductVATInputDimensionCodeJob: Code[20]; StartingDate: Date; ValuePostingForDeductVATInpDim: Enum "Default Dimension Value Posting Type"; RoundingPrecision: Decimal; CalculationBase: Enum "KVSPSAREAllocationKeyCalcBase"):

UpdateDeductInputVATForPropertyJobByAssetJob(Code[20], Code[20], Code[20], Date, Enum Default Dimension Value Posting Type, Decimal, Enum KVSPSAREAllocationKeyCalcBase) :#

procedure UpdateDeductInputVATForPropertyJobByAssetJob(AssetJobNo: Code[20]; DeductVATInputDimensionCodeFlat: Code[20]; DeductVATInputDimensionCodeJob: Code[20]; StartingDate: Date; ValuePostingForDeductVATInpDim: Enum "Default Dimension Value Posting Type"; RoundingPrecision: Decimal; CalculationBase: Enum "KVSPSAREAllocationKeyCalcBase"):

UpdateDeductInputVATForPropertyJob(Code[20], Code[20], Code[20], Date, Enum Default Dimension Value Posting Type, Decimal, Enum KVSPSAREAllocationKeyCalcBase) :#

procedure UpdateDeductInputVATForPropertyJob(PropertyJobNo: Code[20]; DeductVATInputDimensionCodeFlat: Code[20]; DeductVATInputDimensionCodeJob: Code[20]; StartingDate: Date; ValuePostingForDeductVATInpDim: Enum "Default Dimension Value Posting Type"; RoundingPrecision: Decimal; CalculationBase: Enum "KVSPSAREAllocationKeyCalcBase"):

UpdateFutureDeductibleInputVATSetupForPropertyJob(Code[20], Code[20], Code[20], Date, Enum Default Dimension Value Posting Type, Decimal, Enum KVSPSAREAllocationKeyCalcBase) :#

procedure UpdateFutureDeductibleInputVATSetupForPropertyJob(PropertyJobNo: Code[20]; DeductVATInputDimensionCodeFlat: Code[20]; DeductVATInputDimensionCodeJob: Code[20]; StartingDate: Date; ValuePostingForDeductVATInpDim: Enum "Default Dimension Value Posting Type"; RoundingPrecision: Decimal; CalculationBase: Enum "KVSPSAREAllocationKeyCalcBase"):

GetPropertyJobForJob(Record Job) : Code[20]#

procedure GetPropertyJobForJob(Job: Record "Job"): Code[20]

Events#

KVSPSAREOnElseCalcAndAddAreaTotalAndDeductInputVATSubtotalForJob(Enum KVSPSAREAllocationKeyCalcBase, Decimal, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAREOnElseCalcAndAddAreaTotalAndDeductInputVATSubtotalForJob(CalculationBase: Enum "KVSPSAREAllocationKeyCalcBase"; var AreaValue: Decimal; IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSARENonDeductibleVATMgmt", 'KVSPSAREOnElseCalcAndAddAreaTotalAndDeductInputVATSubtotalForJob', '', false, false)]
local procedure DoSomethingKVSPSAREOnElseCalcAndAddAreaTotalAndDeductInputVATSubtotalForJob(CalculationBase: Enum "KVSPSAREAllocationKeyCalcBase"; var AreaValue: Decimal; IsHandled: Boolean)
begin
end;

KVSPSAREOnBeforeAddAreaTotalOfFlatInCalcAndAddAreaTotalAndDeductInputVATSubtotalForJob(Record KVSPSAREJobFlat, Decimal) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAREOnBeforeAddAreaTotalOfFlatInCalcAndAddAreaTotalAndDeductInputVATSubtotalForJob(JobFlat: Record "KVSPSAREJobFlat"; var AreaValue: Decimal): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSARENonDeductibleVATMgmt", 'KVSPSAREOnBeforeAddAreaTotalOfFlatInCalcAndAddAreaTotalAndDeductInputVATSubtotalForJob', '', false, false)]
local procedure DoSomethingKVSPSAREOnBeforeAddAreaTotalOfFlatInCalcAndAddAreaTotalAndDeductInputVATSubtotalForJob(JobFlat: Record "KVSPSAREJobFlat"; var AreaValue: Decimal)
begin
end;

KVSPSAREOnAfterUpdateDeductibleInputVATSetupForJobs(Record KVSPSAREFlat, Date, Decimal) :#

Summary: This event is triggered after non deductible Input VAT Setup is updated.

[IntegrationEvent(false, false)]
local procedure KVSPSAREOnAfterUpdateDeductibleInputVATSetupForJobs(var Flat: Record "KVSPSAREFlat"; var StartDate: Date; var DeductiblePctOfInputVATPct: Decimal): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSARENonDeductibleVATMgmt", 'KVSPSAREOnAfterUpdateDeductibleInputVATSetupForJobs', '', false, false)]
local procedure DoSomethingKVSPSAREOnAfterUpdateDeductibleInputVATSetupForJobs(var Flat: Record "KVSPSAREFlat"; var StartDate: Date; var DeductiblePctOfInputVATPct: Decimal)
begin
end;

Parameters:

  • Flat: The non deduct. vat setup of this flat has been changed
  • StartDate: The starting date of the new non deduct. vat setup
  • DeductiblePctOfInputVATPct: The new value of the flat non deduct. vat setup