Skip to content

KVSPSANonDeductVATGLMgt#

Procedures#

CopyVATEntryNonDeductibleVATFieldsFromGLJnlLine(Record VAT Entry, Record Gen. Journal Line) :#

procedure CopyVATEntryNonDeductibleVATFieldsFromGLJnlLine(var VATEntry: Record "VAT Entry"; GenJournalLine: Record "Gen. Journal Line"): 

FillGenJnlLineDeductVATWithNonDeductDimOfLine(Record Gen. Journal Line) : Boolean#

Summary: Non-Deductible VAT Dimension values of the general journal line are used to determine the Non-Deductible VAT %

procedure FillGenJnlLineDeductVATWithNonDeductDimOfLine(var GenJournalLine: Record "Gen. Journal Line"): Boolean

Parameters:

  • GenJournalLine: VAR Record "Gen. Journal Line".

Returns: Return variable ValidNonDeductDimValue of type Boolean.

FillGenJournalLineDeductVATDimValuesFromDimSetID(Record Gen. Journal Line, Boolean) :#

Summary: Non-Deductible Dimension values and VAT % are recalculated

procedure FillGenJournalLineDeductVATDimValuesFromDimSetID(var GenJournalLine: Record "Gen. Journal Line"; Update: Boolean): 

Parameters:

  • GenJournalLine: VAR Record "Gen. Journal Line".
  • Update: Boolean.

SetNonDeductibleVATPerDimension(Record Gen. Journal Line, Decimal) : Boolean#

procedure SetNonDeductibleVATPerDimension(var GenJournalLine: Record "Gen. Journal Line"; var NonDeductibleVATPct: Decimal): Boolean

SetNonDeductVATDimValues(Record Gen. Journal Line, Decimal, Boolean) : Boolean#

procedure SetNonDeductVATDimValues(var GenJournalLine: Record "Gen. Journal Line"; var NonDeductibleVATPct: Decimal; ValidateLine: Boolean): Boolean

EmptyNonDeductVATDimValues(Record Gen. Journal Line) :#

procedure EmptyNonDeductVATDimValues(var GenJournalLine: Record "Gen. Journal Line"): 

GetNonDeductVATDimEndDate(Record Gen. Journal Line) : Date#

Summary: Returns the Date dependent on the date field of the VAT Setup

procedure GetNonDeductVATDimEndDate(GenJournalLine: Record "Gen. Journal Line"): Date

Parameters:

  • GenJournalLine: Record "Gen. Journal Line".

Returns: Return variable EndDate of type Date.

SetSuppressNonDeductVATNotification(Boolean) :#

procedure SetSuppressNonDeductVATNotification(SuppressNonDeductVATNotification: Boolean): 

Events#

KVSPSAOnAfterCopyVATEntryNonDeductibleVATFieldsFromGLJnlLine(Record VAT Entry, Record Gen. Journal Line) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopyVATEntryNonDeductibleVATFieldsFromGLJnlLine(var VATEntry: Record "VAT Entry"; GenJournalLine: Record "Gen. Journal Line"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnAfterCopyVATEntryNonDeductibleVATFieldsFromGLJnlLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopyVATEntryNonDeductibleVATFieldsFromGLJnlLine(var VATEntry: Record "VAT Entry"; GenJournalLine: Record "Gen. Journal Line")
begin
end;

KVSPSAOnAfterEmptyNonDeductVATDimValues(Record Gen. Journal Line, Record VAT Setup) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterEmptyNonDeductVATDimValues(var GenJournalLine: Record "Gen. Journal Line"; VATSetup: Record "VAT Setup"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnAfterEmptyNonDeductVATDimValues', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterEmptyNonDeductVATDimValues(var GenJournalLine: Record "Gen. Journal Line"; VATSetup: Record "VAT Setup")
begin
end;

KVSPSAOnAfterUpdateNonDeductibleVATDimGenJournalLine(Record Gen. Journal Line, Record Gen. Journal Line, Integer) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterUpdateNonDeductibleVATDimGenJournalLine(var GenJournalLine: Record "Gen. Journal Line"; var xGenJournalLine: Record "Gen. Journal Line"; CurrFieldNo: Integer): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnAfterUpdateNonDeductibleVATDimGenJournalLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterUpdateNonDeductibleVATDimGenJournalLine(var GenJournalLine: Record "Gen. Journal Line"; var xGenJournalLine: Record "Gen. Journal Line"; CurrFieldNo: Integer)
begin
end;

KVSPSAOnBeforeCheckAllowedNonDeductibleVATPostingSetupInCheckGenJnlLineHasMissingNonDeductVATDimPosting(Record VAT Posting Setup, Record Gen. Journal Line, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCheckAllowedNonDeductibleVATPostingSetupInCheckGenJnlLineHasMissingNonDeductVATDimPosting(VATPostingSetup: Record "VAT Posting Setup"; GenJournalLine: Record "Gen. Journal Line"; var CheckVATPostingSetup: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeCheckAllowedNonDeductibleVATPostingSetupInCheckGenJnlLineHasMissingNonDeductVATDimPosting', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCheckAllowedNonDeductibleVATPostingSetupInCheckGenJnlLineHasMissingNonDeductVATDimPosting(VATPostingSetup: Record "VAT Posting Setup"; GenJournalLine: Record "Gen. Journal Line"; var CheckVATPostingSetup: Boolean)
begin
end;

KVSPSAOnBeforeFillGenJnlLineDeductVATWithNonDeductDimOfLine(Record Gen. Journal Line, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeFillGenJnlLineDeductVATWithNonDeductDimOfLine(var GenJournalLine: Record "Gen. Journal Line"; var ValidNonDeductDimValue: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeFillGenJnlLineDeductVATWithNonDeductDimOfLine', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeFillGenJnlLineDeductVATWithNonDeductDimOfLine(var GenJournalLine: Record "Gen. Journal Line"; var ValidNonDeductDimValue: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeFillGenJournalLineDeductVATDimValuesFromDimSetID(Record Gen. Journal Line, Boolean, Boolean) :#

Obsolete

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

[Obsolete('Use KVSPSAOnBeforeFillGenJournalLineDeductibleVATDimValuesFromDimSetID instead', '23.2')]
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeFillGenJournalLineDeductVATDimValuesFromDimSetID(var GenJournalLine: Record "Gen. Journal Line"; var Update: Boolean; IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeFillGenJournalLineDeductVATDimValuesFromDimSetID', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeFillGenJournalLineDeductVATDimValuesFromDimSetID(var GenJournalLine: Record "Gen. Journal Line"; var Update: Boolean; IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeFillGenJournalLineDeductibleVATDimValuesFromDimSetID(Record Gen. Journal Line, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeFillGenJournalLineDeductibleVATDimValuesFromDimSetID(var GenJournalLine: Record "Gen. Journal Line"; var Update: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeFillGenJournalLineDeductibleVATDimValuesFromDimSetID', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeFillGenJournalLineDeductibleVATDimValuesFromDimSetID(var GenJournalLine: Record "Gen. Journal Line"; var Update: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeGenJnlLineHasMissingVATDeductiblePosting(Record Gen. Journal Line, Boolean, Boolean, Boolean) :#

Obsolete

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

[Obsolete('Use KVSPSAOnBeforeGenJnlLineHasMissingVATDeductPosting instead', '23.2')]
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeGenJnlLineHasMissingVATDeductiblePosting(GenJournalLine: Record "Gen. Journal Line"; var MissingDimSetup: Boolean; var Result: Boolean; IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeGenJnlLineHasMissingVATDeductiblePosting', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeGenJnlLineHasMissingVATDeductiblePosting(GenJournalLine: Record "Gen. Journal Line"; var MissingDimSetup: Boolean; var Result: Boolean; IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeGenJnlLineHasMissingVATDeductPosting(Record Gen. Journal Line, Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeGenJnlLineHasMissingVATDeductPosting(GenJournalLine: Record "Gen. Journal Line"; var MissingDimSetup: Boolean; var Result: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeGenJnlLineHasMissingVATDeductPosting', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeGenJnlLineHasMissingVATDeductPosting(GenJournalLine: Record "Gen. Journal Line"; var MissingDimSetup: Boolean; var Result: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeGetNonDeductVATDimEndDate(Record Gen. Journal Line, Date, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeGetNonDeductVATDimEndDate(GenJournalLine: Record "Gen. Journal Line"; var EndDate: Date; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeGetNonDeductVATDimEndDate', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeGetNonDeductVATDimEndDate(GenJournalLine: Record "Gen. Journal Line"; var EndDate: Date; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeIsGenJournalLineNonDeductVATSupported(Record Gen. Journal Line, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeIsGenJournalLineNonDeductVATSupported(GenJournalLine: Record "Gen. Journal Line"; var IsHandled: Boolean; var Result: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeIsGenJournalLineNonDeductVATSupported', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeIsGenJournalLineNonDeductVATSupported(GenJournalLine: Record "Gen. Journal Line"; var IsHandled: Boolean; var Result: Boolean)
begin
end;

KVSPSAOnBeforeIsNonDeductVATUpdateGenJournalLine(Record Gen. Journal Line, Record Gen. Journal Line, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeIsNonDeductVATUpdateGenJournalLine(GenJournalLine: Record "Gen. Journal Line"; xGenJournalLine: Record "Gen. Journal Line"; var IsHandled: Boolean; var Result: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeIsNonDeductVATUpdateGenJournalLine', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeIsNonDeductVATUpdateGenJournalLine(GenJournalLine: Record "Gen. Journal Line"; xGenJournalLine: Record "Gen. Journal Line"; var IsHandled: Boolean; var Result: Boolean)
begin
end;

KVSPSAOnBeforeIsVATPostingSetupNonDeductVATSupported(Record Gen. Journal Line, Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeIsVATPostingSetupNonDeductVATSupported(GenJournalLine: Record "Gen. Journal Line"; var BalNonDeductVAT: Boolean; var IsSupported: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeIsVATPostingSetupNonDeductVATSupported', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeIsVATPostingSetupNonDeductVATSupported(GenJournalLine: Record "Gen. Journal Line"; var BalNonDeductVAT: Boolean; var IsSupported: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeSetNonDeductibleVATPerDimension(Record Gen. Journal Line, Decimal, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
procedure KVSPSAOnBeforeSetNonDeductibleVATPerDimension(var GenJournalLine: Record "Gen. Journal Line"; var NonDeductibleVATPct: Decimal; var IsHandledFunction: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeSetNonDeductibleVATPerDimension', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeSetNonDeductibleVATPerDimension(var GenJournalLine: Record "Gen. Journal Line"; var NonDeductibleVATPct: Decimal; var IsHandledFunction: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeSetNonDeductVATDimValues(Record Gen. Journal Line, Decimal, Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeSetNonDeductVATDimValues(var GenJournalLine: Record "Gen. Journal Line"; var NonDeductibleVATPct: Decimal; var ValidNonDeductDimValue: Boolean; var ValidateLine: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeSetNonDeductVATDimValues', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeSetNonDeductVATDimValues(var GenJournalLine: Record "Gen. Journal Line"; var NonDeductibleVATPct: Decimal; var ValidNonDeductDimValue: Boolean; var ValidateLine: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeUpdateLineSetNonDeductVATDimValues(Record Gen. Journal Line, Decimal, Boolean, Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeUpdateLineSetNonDeductVATDimValues(var GenJournalLine: Record "Gen. Journal Line"; var NonDeductibleVATPct: Decimal; var ValidNonDeductDimValue: Boolean; var ValidateLine: Boolean; var UpdateLine: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeUpdateLineSetNonDeductVATDimValues', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeUpdateLineSetNonDeductVATDimValues(var GenJournalLine: Record "Gen. Journal Line"; var NonDeductibleVATPct: Decimal; var ValidNonDeductDimValue: Boolean; var ValidateLine: Boolean; var UpdateLine: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeUpdateNonDeductibleVATDimGenJournalLine(Record Gen. Journal Line, Record Gen. Journal Line, Integer, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeUpdateNonDeductibleVATDimGenJournalLine(var GenJournalLine: Record "Gen. Journal Line"; var xGenJournalLine: Record "Gen. Journal Line"; CurrFieldNo: Integer; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnBeforeUpdateNonDeductibleVATDimGenJournalLine', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeUpdateNonDeductibleVATDimGenJournalLine(var GenJournalLine: Record "Gen. Journal Line"; var xGenJournalLine: Record "Gen. Journal Line"; CurrFieldNo: Integer; var IsHandled: Boolean)
begin
end;

KVSPSAOnGetNonDeductVATDimEndDateGenJnlLineOnBeforeStatusElse(Record VAT Setup, Record Gen. Journal Line, Date, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnGetNonDeductVATDimEndDateGenJnlLineOnBeforeStatusElse(VATSetup: Record "VAT Setup"; GenJournalLine: Record "Gen. Journal Line"; var EndDate: Date; var IsCaseHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSANonDeductVATGLMgt", 'KVSPSAOnGetNonDeductVATDimEndDateGenJnlLineOnBeforeStatusElse', '', false, false)]
local procedure DoSomethingKVSPSAOnGetNonDeductVATDimEndDateGenJnlLineOnBeforeStatusElse(VATSetup: Record "VAT Setup"; GenJournalLine: Record "Gen. Journal Line"; var EndDate: Date; var IsCaseHandled: Boolean)
begin
end;