Skip to content

KVSPSANonDeductibleVATDimMgt#

Procedures#

GetNonDeductVATDimInfosFromDimensionSetID(Date, Integer, Code[20], Code[20], Decimal) : Boolean#

Summary: Central function to return the Non-Deductible VAT fields for a Dimension Set ID dependent on the priority.

procedure GetNonDeductVATDimInfosFromDimensionSetID(EndDate: Date; DimensionSetID: Integer; var NonDeductVATDimCode: Code[20]; var NonDeductVATDimValue: Code[20]; var NonDeductibleVATPct: Decimal): Boolean

Parameters:

  • EndDate: Date.
  • DimensionSetID: Integer.
  • NonDeductVATDimCode: VAR Code[20].
  • NonDeductVATDimValue: VAR Code[20].
  • NonDeductibleVATPct: VAR Decimal.

Returns: Return variable Found of type Boolean.

CheckAllowedNonDeductibleVATPostingSetup(Record VAT Posting Setup, RecordId) :#

procedure CheckAllowedNonDeductibleVATPostingSetup(VATPostingSetup: Record "VAT Posting Setup"; TheRecordID: RecordId): 

CheckValidNonDeductDimensionCode(Code[20]) :#

procedure CheckValidNonDeductDimensionCode(DimensionCode: Code[20]): 

GetGLSetupNonDeductVATDimNo(Code[20]) : Integer#

procedure GetGLSetupNonDeductVATDimNo(TheDimensionCode: Code[20]): Integer

GetNonDeductVATDimTaxGroupCode(Decimal) : Code[20]#

procedure GetNonDeductVATDimTaxGroupCode(DeductVATPct: Decimal): Code[20]

IsNonDeductibleVATTypeAllowedForCountry(Record VAT Setup) : Boolean#

procedure IsNonDeductibleVATTypeAllowedForCountry(VATSetup: Record "VAT Setup"): Boolean

IsNonDeductVATPerDimensionEnabled() : Boolean#

procedure IsNonDeductVATPerDimensionEnabled(): Boolean

IsVATPostingSetupNonDeductVATSupported(Code[20], Code[20]) : Boolean#

procedure IsVATPostingSetupNonDeductVATSupported(VATBusPostingGroup: Code[20]; VATProdPostingGroup: Code[20]): Boolean

ShowNonDeductibleVATDimInLines() : Boolean#

procedure ShowNonDeductibleVATDimInLines(): Boolean

TestNonDeductDimVATEntryNotExists(Record VAT Setup) :#

procedure TestNonDeductDimVATEntryNotExists(VATSetup: Record "VAT Setup"): 

IsUpdateNonDeductVATDimInLines(Record VAT Posting Setup, Text, Integer, Integer) : Boolean#

procedure IsUpdateNonDeductVATDimInLines(var VATPostingSetup2: Record "VAT Posting Setup"; var ConfirmQst: Text; var PurchaseLineCount: Integer; var GenJournalLineCount: Integer): Boolean

UpdateNonDeductVATDimInLines(Record VAT Posting Setup, Integer, Integer) : Boolean#

procedure UpdateNonDeductVATDimInLines(var VATPostingSetup2: Record "VAT Posting Setup"; PurchaseLineCount: Integer; GenJournalLineCount: Integer): Boolean

GetNotificationForMissingDeductibleVATPostingGUID() : Guid#

procedure GetNotificationForMissingDeductibleVATPostingGUID(): Guid

GetNotificationForMissingDeductibleVATPostingGUIDDimSetup() : Guid#

procedure GetNotificationForMissingDeductibleVATPostingGUIDDimSetup(): Guid

RecallNotificationForMissingNonDeductibleVATDim() :#

procedure RecallNotificationForMissingNonDeductibleVATDim(): 

RecallNotificationForMissingNonDeductibleVATPosting() :#

procedure RecallNotificationForMissingNonDeductibleVATPosting(): 

ShowMissingNonDeductVATDimSetupNotif(Integer, Date, Boolean) :#

Summary: AvoidError: Set to true if a message should be shown, although ShowError is defined in the VATSetup, e.g. during record input. Checking Method ShowError is only active for checks during purchase release and posting.

procedure ShowMissingNonDeductVATDimSetupNotif(LineNo: Integer; EndDate: Date; AvoidError: Boolean): 

Parameters:

  • LineNo: Integer.
  • EndDate: Date.
  • AvoidError: Boolean.

ShowMissingNonDeductVATPostingSetupNotif(Integer, Code[20], Code[20], Boolean) :#

Summary: AvoidError: Set to true if a message should be shown, although ShowError is defined in the VATSetup, e.g. during record input. Checking Method ShowError is only active for checks during purchase release and posting.

procedure ShowMissingNonDeductVATPostingSetupNotif(LineNo: Integer; NonDeductVATDimCode: Code[20]; NonDeductVATDimValue: Code[20]; AvoidError: Boolean): 

Parameters:

  • LineNo: Integer.
  • NonDeductVATDimCode: Code[20].
  • NonDeductVATDimValue: Code[20].
  • AvoidError: Boolean.

Events#

KVSPSAOnBeforeCheckAllowedNonDeductibleVATPostingSetup(Record VAT Posting Setup, RecordId, Boolean) :#

[IntegrationEvent(false, false)]
procedure KVSPSAOnBeforeCheckAllowedNonDeductibleVATPostingSetup(VATPostingSetup: Record "VAT Posting Setup"; TheRecordID: RecordId; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductibleVATDimMgt", 'KVSPSAOnBeforeCheckAllowedNonDeductibleVATPostingSetup', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCheckAllowedNonDeductibleVATPostingSetup(VATPostingSetup: Record "VAT Posting Setup"; TheRecordID: RecordId; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeGetNonDeductVATDimInfosFromDimensionSetID(Date, Integer, Code[20], Code[20], Decimal, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
procedure KVSPSAOnBeforeGetNonDeductVATDimInfosFromDimensionSetID(EndDate: Date; DimensionSetID: Integer; var NonDeductVATDimCode: Code[20]; var NonDeductVATDimValue: Code[20]; var NonDeductibleVATPct: Decimal; var Found: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductibleVATDimMgt", 'KVSPSAOnBeforeGetNonDeductVATDimInfosFromDimensionSetID', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeGetNonDeductVATDimInfosFromDimensionSetID(EndDate: Date; DimensionSetID: Integer; var NonDeductVATDimCode: Code[20]; var NonDeductVATDimValue: Code[20]; var NonDeductibleVATPct: Decimal; var Found: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeIsNonDeductibleVATTypeAllowedForCountry(Record VAT Setup, Text, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeIsNonDeductibleVATTypeAllowedForCountry(VATSetup: Record "VAT Setup"; ApplicationFamily: Text; var IsAllowed: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductibleVATDimMgt", 'KVSPSAOnBeforeIsNonDeductibleVATTypeAllowedForCountry', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeIsNonDeductibleVATTypeAllowedForCountry(VATSetup: Record "VAT Setup"; ApplicationFamily: Text; var IsAllowed: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeIsNonDeductVATPerDimensionEnabled(Record VAT Setup, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeIsNonDeductVATPerDimensionEnabled(VATSetup: Record "VAT Setup"; var Result: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductibleVATDimMgt", 'KVSPSAOnBeforeIsNonDeductVATPerDimensionEnabled', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeIsNonDeductVATPerDimensionEnabled(VATSetup: Record "VAT Setup"; var Result: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeIsUpdateNonDeductVATDimInLines(Record VAT Posting Setup, Text, Integer, Integer, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeIsUpdateNonDeductVATDimInLines(var VATPostingSetup2: Record "VAT Posting Setup"; var ConfirmQst: Text; var PurchaseLineCount: Integer; var GenJournalLineCount: Integer; var Result: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductibleVATDimMgt", 'KVSPSAOnBeforeIsUpdateNonDeductVATDimInLines', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeIsUpdateNonDeductVATDimInLines(var VATPostingSetup2: Record "VAT Posting Setup"; var ConfirmQst: Text; var PurchaseLineCount: Integer; var GenJournalLineCount: Integer; var Result: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeIsVATPostingSetupNonDeductVATSupported(Code[20], Code[20], Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeIsVATPostingSetupNonDeductVATSupported(VATBusPostingGroup: Code[20]; VATProdPostingGroup: Code[20]; var Result: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductibleVATDimMgt", 'KVSPSAOnBeforeIsVATPostingSetupNonDeductVATSupported', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeIsVATPostingSetupNonDeductVATSupported(VATBusPostingGroup: Code[20]; VATProdPostingGroup: Code[20]; var Result: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeShowMissingNonDeductVATPostingSetupNotif(Record VAT Setup, Integer, Record KVSPSANonDeductVATDimSetup, Date, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeShowMissingNonDeductVATPostingSetupNotif(VATSetup: Record "VAT Setup"; LineNo: Integer; var NonDeductVATDimSetup: Record "KVSPSANonDeductVATDimSetup"; EndDate: Date; var AvoidError: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductibleVATDimMgt", 'KVSPSAOnBeforeShowMissingNonDeductVATPostingSetupNotif', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeShowMissingNonDeductVATPostingSetupNotif(VATSetup: Record "VAT Setup"; LineNo: Integer; var NonDeductVATDimSetup: Record "KVSPSANonDeductVATDimSetup"; EndDate: Date; var AvoidError: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeShowMissingNonDeductVATPostingSetupNotifDim(Record VAT Setup, Integer, Code[20], Code[20], Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeShowMissingNonDeductVATPostingSetupNotifDim(VATSetup: Record "VAT Setup"; LineNo: Integer; NonDeductVATDimCode: Code[20]; NonDeductVATDimValue: Code[20]; var AvoidError: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductibleVATDimMgt", 'KVSPSAOnBeforeShowMissingNonDeductVATPostingSetupNotifDim', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeShowMissingNonDeductVATPostingSetupNotifDim(VATSetup: Record "VAT Setup"; LineNo: Integer; NonDeductVATDimCode: Code[20]; NonDeductVATDimValue: Code[20]; var AvoidError: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeTestNonDeductVATEntryNotExists(Record VAT Entry, Record VAT Setup, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeTestNonDeductVATEntryNotExists(var VATEntry: Record "VAT Entry"; VATSetup: Record "VAT Setup"; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductibleVATDimMgt", 'KVSPSAOnBeforeTestNonDeductVATEntryNotExists', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeTestNonDeductVATEntryNotExists(var VATEntry: Record "VAT Entry"; VATSetup: Record "VAT Setup"; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeUpdateNonDeductVATDimInLines(Record VAT Posting Setup, Integer, Integer, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeUpdateNonDeductVATDimInLines(var VATPostingSetup2: Record "VAT Posting Setup"; PurchaseLineCount: Integer; GenJournalLineCount: Integer; var Result: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductibleVATDimMgt", 'KVSPSAOnBeforeUpdateNonDeductVATDimInLines', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeUpdateNonDeductVATDimInLines(var VATPostingSetup2: Record "VAT Posting Setup"; PurchaseLineCount: Integer; GenJournalLineCount: Integer; var Result: Boolean; var IsHandled: Boolean)
begin
end;