Dynamics Community Forum Thread Details

Print Text On Report If ....

Hallo Community,

I have an task to do in Business Central for one of our customers and i don't really know why my code is not working.

Every time when creating a new Sales Order and choosing a Customer, my code should check the Customer table and verify if the fields "VAT Registration No" <> ' ' and "Country/Regeion Code" <> 'DE'.

If the conditions are true, then a text should be printed on the Sales Invoice Report after being posted

This is what i have:

codeunit 50100 SalesPostSubscriber

{

var

recSalesInvHdr: Record "Sales Invoice Header";

recCustomer: Record Customer;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales-Post", 'OnAfterPostSalesDoc', '', false, false)]

procedure AddVATText_AfterSalesPost(VAR SalesHeader: Record "Sales Header"; VAR GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; SalesShptHdrNo: Code[20]; RetRcpHdrNo: Code[20]; SalesInvHdrNo: Code[20]; SalesCrMemoHdrNo: Code[20]; CommitIsSuppressed: Boolean)

var

char_LF: Char;

begin

recCustomer.SetRange("No.", SalesHeader."Sell-to Customer No.");

recCustomer.FindFirst();

char_LF := 10;

if SalesInvHdrNo <> '' then

if (recCustomer."VAT Registration No." <> '') and (SalesHeader."Sell-to Country/Region Code" <> 'DE') then

recSalesInvHdr.SetRange("No.", SalesInvHdrNo);

recSalesInvHdr.FindFirst();

recSalesInvHdr.CustVATText := 'Ust-freie innergemeinschaftliche Lieferung i.S. $4 Nr. 1b in Verbindung mit §6a UStG.' + FORMAT(char_LF) +

'Ihre EG-IdentNr.:' + recCustomer."VAT Registration No.";