Skip to content

KVSPSAVATSetup#

Extends #437dbf0e84ff417a965ded2bb9650972#VAT Setup

Fields#

Name Type Note
KVSPSANonDeductibleVATType Enum (KVSPSANonDeductibleVATType)
KVSPSANonDeductVATDimExists Boolean FlowField
KVSPSANonDeductVATCheckMethod Enum (KVSPSANonDeductVATCheckMethod)
KVSPSANonDeductVATDateField Enum (KVSPSANonDeductVATDateField)

Procedures#

KVSPSAUpdateNonDeductVATPerDimInLines(Text, Variant, Boolean) :#

Summary: This procedure is called when the Non-Deductible VAT Date field is changed. It checks if the Non-Deductible VAT Type is set to Dimension and there matched lines exist. Then prompts the user for confirmation before updating the lines depend on parameter UpdateLines.

procedure KVSPSAUpdateNonDeductVATPerDimInLines(FieldCaptionTxt: Text; FieldValueVariant: Variant; UpdateLines: Boolean): 

Parameters:

  • FieldCaptionTxt: Field caption used for confirm message.
  • FieldValueVariant: Field value used for confirm message.
  • UpdateLines: Parameter used for specific if should update lines or not.

Events#

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

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeChangeNonDeductibleVATType(var VATSetup: Record "VAT Setup"; var xVATSetup: Record "VAT Setup"; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::TableExtension, TableExtension::"KVSPSAVATSetup", 'KVSPSAOnBeforeChangeNonDeductibleVATType', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeChangeNonDeductibleVATType(var VATSetup: Record "VAT Setup"; var xVATSetup: Record "VAT Setup"; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeUpdateNonDeductVATPerDimInLines(Record VAT Setup, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeUpdateNonDeductVATPerDimInLines(VATSetup: Record "VAT Setup"; var UpdateLines: Boolean): 
[EventSubscriber(ObjectType::TableExtension, TableExtension::"KVSPSAVATSetup", 'KVSPSAOnBeforeUpdateNonDeductVATPerDimInLines', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeUpdateNonDeductVATPerDimInLines(VATSetup: Record "VAT Setup"; var UpdateLines: Boolean)
begin
end;

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

[IntegrationEvent(false, false)]
local procedure KVSPSAOnCheckNonDeductVATDeductionTypeElse(var VATSetup: Record "VAT Setup"; var xVATSetup: Record "VAT Setup"; var IsCaseHandled: Boolean): 
[EventSubscriber(ObjectType::TableExtension, TableExtension::"KVSPSAVATSetup", 'KVSPSAOnCheckNonDeductVATDeductionTypeElse', '', false, false)]
local procedure DoSomethingKVSPSAOnCheckNonDeductVATDeductionTypeElse(var VATSetup: Record "VAT Setup"; var xVATSetup: Record "VAT Setup"; var IsCaseHandled: Boolean)
begin
end;