[Gelöst] EK-Reklamationen MWST ist 0.00

Hallo

Haben heute bei einem Kunden folgendes Phänomen.
Wir erfassen eine Einkaufsreklamation (Kreditor mit MWST). Rücklieferung wird gebucht.
Nun wird die Gutschrift erfasst und die Reklamationszeilen mit "Rücklieferzeilen abrufen" geholt.
EK-Preise werden ggf. angepasst. F9 zeigt die Beträge und die MWST OK.

Die gebuchte Gutschrift wird aber ohne MWST gebucht. Das heisst, Betrag und Betrag mit MWST sind identsich. MWST-Betrag ist 0.00.
Sogar der MWST-Posten wird erzeugt aber mit 0.00. Obwohl sogar auf dem MWST-Posten die MWST % 7.6 sind.

Ist das ein Fehler in NAV2009??
Kennt jemand dieses Problem?

VIelen Dank für Hinweise

Zuletzt geändert von martinst am 10. Februar 2010 10:35, insgesamt 1-mal geändert.

Schau mal, ob das hier vielleicht passt: KB 978857

Generell hilfreich, wenn du nicht mit der KB-Suche hantieren möchtest:
Overview of Released Application Hotfixes for Microsoft Dynamics NAV 2009
Overview of Released Application Hotfixes for Microsoft Dynamics NAV 2009 SP1

Vielen Dank für die Links.

Ist aber leider nicht dieses Problem.

Danke trotzdem

Antwort von Microsoft erhalten.

Ist ein Fehler.

Gruss

Hat man dir auch ein offizielles Hotfix nennen können?

Nein, ich habe nur so ein "handgestricktes" Codefragment von Microsoft bekommen.

Hallo,
gibt es inzwischen offizielles Hotfix schon?
@Martinst: kannst du mir die "handgestricktes" Code hier einfügen?

Hallo Martinst,

ich habe das Problem jetzt bei einem Kunden. Ich konnte leider kein Hotfix dazu finden, kannst du mir das "handgestrickte" mal senden wenn du es noch hast ?

Tabelle 37 SalesLine


CalcVATAmountLines

Code:

QtyType::Invoicing:
  BEGIN
    CASE TRUE OF
      ("Document Type" IN ["Document Type"::Order,"Document Type"::Invoice]) AND
      (NOT SalesHeader.Ship) AND SalesHeader.Invoice AND (NOT "Prepayment Line"):
        BEGIN
          IF "Shipment No." = '' THEN BEGIN
            QtyToHandle := GetAbsMin("Qty. to Invoice","Qty. Shipped Not Invoiced");
            VATAmountLine.Quantity :=
              VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Qty. Shipped Not Invd. (Base)");
          END ELSE BEGIN
            QtyToHandle := "Qty. to Invoice";
            VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Invoice (Base)";
          END;
        END;
      ("Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"]) AND
      (NOT SalesHeader.Receive) AND SalesHeader.Invoice:
        BEGIN
//----------------------------------------------------------------------------------------------------------
          //PS55621
          //QtyToHandle := GetAbsMin("Qty. to Invoice","Return Qty. Rcd. Not Invd.");
          //VATAmountLine.Quantity :=
          //  VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Rcd. Not Invd.(Base)");
          // PS55621.begin
          IF "Return Receipt No." = '' THEN BEGIN
            QtyToHandle := GetAbsMin("Qty. to Invoice","Return Qty. Rcd. Not Invd.");
            VATAmountLine.Quantity :=
              VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Rcd. Not Invd.(Base)");
          END ELSE BEGIN
            QtyToHandle := "Qty. to Invoice";
            VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Invoice (Base)";
          END;
          //PS55621.end
//----------------------------------------------------------------------------------------------------------
        END;

Tabelle 39 Purchase Line

CalcVATAmountLines

Code:

QtyType::Invoicing:
  BEGIN
    CASE TRUE OF
      ("Document Type" IN ["Document Type"::Order,"Document Type"::Invoice]) AND
      (NOT PurchHeader.Receive) AND PurchHeader.Invoice AND (NOT "Prepayment Line"):
        BEGIN
          IF "Receipt No." = '' THEN BEGIN
            QtyToHandle := GetAbsMin("Qty. to Invoice","Qty. Rcd. Not Invoiced");
            VATAmountLine.Quantity :=
              VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Qty. Rcd. Not Invoiced (Base)");
          END ELSE BEGIN
            QtyToHandle := "Qty. to Invoice";
            VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Invoice (Base)";
          END;
        END;
      ("Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"]) AND
      (NOT PurchHeader.Ship) AND PurchHeader.Invoice:
        BEGIN
//----------------------------------------------------------------------------------------------------------
          //PS55621
          //QtyToHandle := GetAbsMin("Qty. to Invoice","Return Qty. Shipped Not Invd.");
          //VATAmountLine.Quantity :=
          //  VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Shpd Not Invd.(Base)");
          // PS55621.begin
          IF "Return Shipment No." = '' THEN BEGIN
            QtyToHandle := GetAbsMin("Qty. to Invoice","Return Qty. Shipped Not Invd.");
            VATAmountLine.Quantity :=
              VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Shpd Not Invd.(Base)");
          END ELSE BEGIN
            QtyToHandle := "Qty. to Invoice";
            VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Invoice (Base)";
          END;
          //PS55621.end
//----------------------------------------------------------------------------------------------------------
        END;

Das ist alles, was ich noch weiss, sollte aber auch alles sein.

Gruss

Hallo Martinst,

vielen Dank werde es testen..