Vat setup on customer and vendor

NaviDev

When we create a sales journal for customer or purchase journal for a vendor, why does when we enter the customer / vendor . It does not pick up the vat business posting group on the customer / vendor setup? And when you put it manually it gives you error?

ara3n

In General Journal Batch there is a flag called copy Vat Setup to Jnl Lines.

Make sure it's unchecked.

n_c_balaji

Hi ara3n,

The VAT calculated on the Sales Journal/ Purchase Journal is inclusive of the Amount specified in the Journal Line.

Is there a way to calculate VAT exclusive of the Amount.

Thanks in advance,

N C Balaji

ara3n

not without modification. You could change the percent in setup if you to calculate a different vat amount.

NaviDev

ara3n wrote:

In General Journal Batch there is a flag called copy Vat Setup to Jnl Lines.

Make sure it's unchecked.

Hi Ara3n,

I already follow what you have said, and still it does not pick the vat bus. posting group on the customer/vendor. Tried to see the coding on the table 81 and figure out that it is hardcoded to empty.

  "Account Type"::Customer:
    BEGIN
      Cust.GET("Account No.");
      Cust.CheckBlockedCustOnJnls(Cust,"Document Type", FALSE);
      IF (Cust."IC Partner Code" <> '') THEN BEGIN
        IF GenJnlTemplate.GET("Journal Template Name") THEN;
        IF (Cust."IC Partner Code" <> '' ) AND (ICPartner.GET(Cust."IC Partner Code")) THEN BEGIN
          ICPartner.CheckICPartnerIndirect(FORMAT("Account Type"),"Account No.");
          "IC Partner Code" := Cust."IC Partner Code";
        END;
      END;
      Description := Cust.Name;
      "Posting Group" := Cust."Customer Posting Group";
      "Salespers./Purch. Code" := Cust."Salesperson Code";
      "Payment Terms Code" := Cust."Payment Terms Code";
      VALIDATE("Bill-to/Pay-to No.","Account No.");
      VALIDATE("Sell-to/Buy-from No.", "Account No.");
      IF SetCurrencyCode("Bal. Account Type","Bal. Account No.") THEN
        Cust.TESTFIELD("Currency Code","Currency Code")
      ELSE
        "Currency Code" := Cust."Currency Code";
      "Gen. Posting Type" := 0;
      "Gen. Bus. Posting Group" := '';
      "Gen. Prod. Posting Group" := '';
      "VAT Bus. Posting Group" := '';
      "VAT Prod. Posting Group" := '';
      "WHT Business Posting Group" := Cust."WHT Business Posting Group";
      "WHT Product Posting Group" := '';
      IF (Cust."Bill-to Customer No." <> '') AND (Cust."Bill-to Customer No." <> "Account No.") THEN BEGIN
        OK := CONFIRM(Text014,FALSE,Cust.TABLECAPTION,Cust."No.",Cust.FIELDCAPTION("Bill-to Customer No."),
        Cust."Bill-to Customer No.");
        IF NOT OK THEN
          ERROR('');
      END;
      VALIDATE("Payment Terms Code");
    END;
  "Account Type"::Vendor:
    BEGIN
      Vend.GET("Account No.");
      Vend.CheckBlockedVendOnJnls(Vend,"Document Type",FALSE);
      IF (Vend."IC Partner Code" <> '') THEN BEGIN
        IF GenJnlTemplate.GET("Journal Template Name") THEN;
        IF (Vend."IC Partner Code" <> '') AND (ICPartner.GET(Vend."IC Partner Code")) THEN BEGIN
          ICPartner.CheckICPartnerIndirect(FORMAT("Account Type"),"Account No.");
          "IC Partner Code" := Vend."IC Partner Code";
        END;
      END;
        "Skip WHT" := Vend.ABN <> '';
      Description := Vend.Name;
      "Posting Group" := Vend."Vendor Posting Group";
      "Salespers./Purch. Code" := Vend."Purchaser Code";
      "Payment Terms Code" := Vend."Payment Terms Code";
      VALIDATE("Bill-to/Pay-to No.","Account No.");
      VALIDATE("Sell-to/Buy-from No.","Account No.");
      IF SetCurrencyCode("Bal. Account Type","Bal. Account No.") THEN
        Vend.TESTFIELD("Currency Code","Currency Code")
      ELSE
        "Currency Code" := Vend."Currency Code";
      "Gen. Posting Type" := 0;
      "Gen. Bus. Posting Group" := '';
      "Gen. Prod. Posting Group" := '';
      "VAT Bus. Posting Group" := '';
      "VAT Prod. Posting Group" := '';
      "WHT Business Posting Group" := Vend."WHT Business Posting Group";
      "WHT Product Posting Group" := '';
      IF (Vend."Pay-to Vendor No." <> '') AND (Vend."Pay-to Vendor No." <> "Account No.")  THEN BEGIN
        OK := CONFIRM(Text014,FALSE,Vend.TABLECAPTION,Vend."No.",Vend.FIELDCAPTION("Pay-to Vendor No."),
        Vend."Pay-to Vendor No.");
        IF NOT OK THEN
          ERROR('');
      END;
      VALIDATE("Payment Terms Code");
    END;