[gelöst] Einkaufsbest.: Zuweisung Zu-/Abschlag n. möglich

Nach 4 gebuchten Lieferungen und 2 Rechnungen ist eine Einkaufsbestellung in einem merkwürdigen Zustand (siehe Anlage). Zwei Frachtkostenzuschläge sind bereits vollständig fakturiert, aber noch nicht vollständig zugewiesen. Alle Versuche, diese nachträglich zuzuweisen (sowohl Artikelzeilen als auch Einkaufslieferzeilen), enden mit der Meldung "Bereits berechn. Menge darf nicht größer als Zugewiesene Menge sein".
Eigentlich hätte doch bereits die Fakturierung unterbunden werden müssen. Wie kann die Fakturierung überhaupt erfolgt sein?
Alle Versuche diesen Zustand zu reproduzieren schlugen bisher fehl.
Besten Dank schon mal für Eure Unterstützung!

Viele Grüße

Lars

PS: 2009 R2, Classic

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Zuletzt geändert von juelicher am 5. August 2011 15:37, insgesamt 1-mal geändert.

Willkommen bei uns!

Falls du in diesem Beleg auch nichts buchen kannst: Das Problem ist Microsoft bekannt, ich hatte es bereits im November gemeldet.
Die geänderten Objekte kann ich momentan nicht ausfindig machen, dafür aber ein Reproszenario, damit du wenigstens den Grund kennst.
Mir wurde damals versprochen, dass MS einen KB-Artikel herausbringt. Leider scheint dies doch nicht der Fall zu sein.

Frag mal bei MS an und nenne den damaligen Supportfall 110110542314606.

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

[Natalie]

Folgende Antwort habe ich von MS erhalten:

"...
im erwähnten Fall 110110542314606, liegt folgende Lösung vor.
Wichtig: Prüfen Sie den Korrekturvorschlag in einer Testdatenbank.


Error
Error "“Quantity Invoiced must not be greater than Qty. Assigned.” when using Item Charge Assignments on a Purch Order.
Symptom
The Purchase Order activities cannot continue because of the above message
Cause
Code Change required
Resolution
The following Code suggestion resolves this:-


Table 39, UpdateItemChargeAssgnt function

Old code:

Code:

...
//Code.Remove.Begin
CALCFIELDS("Qty. Assigned");
IF "Quantity Invoiced" > "Qty. Assigned" THEN
  ERROR(Text032,FIELDCAPTION("Quantity Invoiced"),FIELDCAPTION("Qty. Assigned"));
//Code.Remove.End
ItemChargeAssgntPurch.RESET;
...

New code:

Code:

...
//Code.Add.Begin
CALCFIELDS("Qty. Assigned","Qty. to Assign");
IF ABS("Quantity Invoiced") > ABS(("Qty. Assigned" + "Qty. to Assign")) THEN
  ERROR(Text032,FIELDCAPTION("Quantity Invoiced"),FIELDCAPTION("Qty. Assigned") + ' + ' + FIELDCAPTION("Qty. to Assign"));
//Code.Add.End
ItemChargeAssgntPurch.RESET;
...

OBJECT: Codeunit 90 (Purch.-Post)
PROCEDURE: CopyAndCheckItemCharge

Before:

Code:

...
PurchLine2.SETRANGE(Type,PurchLine2.Type::"Charge (Item)");
//Code.Remove.begin
PurchLine2.SETFILTER("Qty. to Invoice",'<>0');
//Code.Remove.end
IF PurchLine2.ISEMPTY THEN
...
    UNTIL ItemChargeAssgntPurch.NEXT = 0;
//Code.Remove.begin
  PurchLine2.TESTFIELD("Job No.",'');
//Code.Remove.end
...
//Code.Remove.begin
  IF QtyNeeded > 0 THEN
    ERROR(Text060,PurchLine2."No.");
//Code.Remove.end
UNTIL PurchLine2.NEXT = 0;
...

After:

Code:

...
PurchLine2.SETRANGE(Type,PurchLine2.Type::"Charge (Item)");
IF PurchLine2.ISEMPTY THEN
...
    UNTIL ItemChargeAssgntPurch.NEXT = 0;
//Code.Add.Begin
  IF PurchLine2."Qty. to Invoice" <> 0 THEN BEGIN
    PurchLine2.TESTFIELD("Job No.",'');
//Code.Add.end
...
//Code.Add.begin
    IF QtyNeeded > 0 THEN
      ERROR(Text060,PurchLine2."No.");
  END;
//Code.Add.end
UNTIL PurchLine2.NEXT = 0;
...

OBJECT: Codeunit 80 (Sales-Post)
PROCEDURE: CopyAndCheckItemCharge

Before:

Code:

...
SalesLine2.SETRANGE(Type,SalesLine2.Type::"Charge (Item)");
//Code.Remove.begin
SalesLine2.SETFILTER("Qty. to Invoice",'<>0');
//Code.Remove.end
IF SalesLine2.ISEMPTY THEN
...
    UNTIL ItemChargeAssgntSales.NEXT = 0;

//Code.Remove.begin
  SalesLine.TESTFIELD("Job No.",'');
//Code.Remove.end
...
//Code.Remove.begin
  IF QtyNeeded > 0 THEN
    ERROR(Text053,SalesLine2."No.");
//Code.Remove.end

UNTIL SalesLine2.NEXT = 0;
...

After:

Code:

...
SalesLine2.SETRANGE(Type,SalesLine2.Type::"Charge (Item)");
IF SalesLine2.ISEMPTY THEN
...
    UNTIL ItemChargeAssgntSales.NEXT = 0;
//Code.Add.begin
  IF SalesLine2."Qty. to Invoice" <> 0 THEN BEGIN
    SalesLine.TESTFIELD("Job No.",'');
//Code.Add.end
...
//Code.Add.begin
    IF QtyNeeded > 0 THEN
      ERROR(Text053,SalesLine2."No.");
  END;
//Code.Add.end

UNTIL SalesLine2.NEXT = 0;
...

Testen konnte ich die Lösung aus Zeitgründen noch nicht, aber ich werden Bescheid geben welche Erfahrungen ich damit gemacht habe.

Viele Grüße

Lars

Zuletzt geändert von Natalie am 18. Juli 2011 11:41, insgesamt 1-mal geändert.
Grund: Code-Tags hinzugefügt

vielen dank, das wird auch mir nützlich sein!

Folgende Antwort habe ich von MS erhalten:

"...
im erwähnten Fall 110110542314606, liegt folgende Lösung vor.
Wichtig: Prüfen Sie den Korrekturvorschlag in einer Testdatenbank.


Error
Error "“Quantity Invoiced must not be greater than Qty. Assigned.” when using Item Charge Assignments on a Purch Order.
Symptom
The Purchase Order activities cannot continue because of the above message
Cause
Code Change required
Resolution
The following Code suggestion resolves this:-


Table 39, UpdateItemChargeAssgnt function

Old code:

Code:

...
//Code.Remove.Begin
CALCFIELDS("Qty. Assigned");
IF "Quantity Invoiced" > "Qty. Assigned" THEN
  ERROR(Text032,FIELDCAPTION("Quantity Invoiced"),FIELDCAPTION("Qty. Assigned"));
//Code.Remove.End
ItemChargeAssgntPurch.RESET;
...

New code:

Code:

...
//Code.Add.Begin
CALCFIELDS("Qty. Assigned","Qty. to Assign");
IF ABS("Quantity Invoiced") > ABS(("Qty. Assigned" + "Qty. to Assign")) THEN
  ERROR(Text032,FIELDCAPTION("Quantity Invoiced"),FIELDCAPTION("Qty. Assigned") + ' + ' + FIELDCAPTION("Qty. to Assign"));
//Code.Add.End
ItemChargeAssgntPurch.RESET;
...

OBJECT: Codeunit 90 (Purch.-Post)
PROCEDURE: CopyAndCheckItemCharge

Before:

Code:

...
PurchLine2.SETRANGE(Type,PurchLine2.Type::"Charge (Item)");
//Code.Remove.begin
PurchLine2.SETFILTER("Qty. to Invoice",'<>0');
//Code.Remove.end
IF PurchLine2.ISEMPTY THEN
...
    UNTIL ItemChargeAssgntPurch.NEXT = 0;
//Code.Remove.begin
  PurchLine2.TESTFIELD("Job No.",'');
//Code.Remove.end
...
//Code.Remove.begin
  IF QtyNeeded > 0 THEN
    ERROR(Text060,PurchLine2."No.");
//Code.Remove.end
UNTIL PurchLine2.NEXT = 0;
...

After:

Code:

...
PurchLine2.SETRANGE(Type,PurchLine2.Type::"Charge (Item)");
IF PurchLine2.ISEMPTY THEN
...
    UNTIL ItemChargeAssgntPurch.NEXT = 0;
//Code.Add.Begin
  IF PurchLine2."Qty. to Invoice" <> 0 THEN BEGIN
    PurchLine2.TESTFIELD("Job No.",'');
//Code.Add.end
...
//Code.Add.begin
    IF QtyNeeded > 0 THEN
      ERROR(Text060,PurchLine2."No.");
  END;
//Code.Add.end
UNTIL PurchLine2.NEXT = 0;
...

OBJECT: Codeunit 80 (Sales-Post)
PROCEDURE: CopyAndCheckItemCharge

Before:

Code:

...
SalesLine2.SETRANGE(Type,SalesLine2.Type::"Charge (Item)");
//Code.Remove.begin
SalesLine2.SETFILTER("Qty. to Invoice",'<>0');
//Code.Remove.end
IF SalesLine2.ISEMPTY THEN
...
    UNTIL ItemChargeAssgntSales.NEXT = 0;

//Code.Remove.begin
  SalesLine.TESTFIELD("Job No.",'');
//Code.Remove.end
...
//Code.Remove.begin
  IF QtyNeeded > 0 THEN
    ERROR(Text053,SalesLine2."No.");
//Code.Remove.end

UNTIL SalesLine2.NEXT = 0;
...

After:

Code:

...
SalesLine2.SETRANGE(Type,SalesLine2.Type::"Charge (Item)");
IF SalesLine2.ISEMPTY THEN
...
    UNTIL ItemChargeAssgntSales.NEXT = 0;
//Code.Add.begin
  IF SalesLine2."Qty. to Invoice" <> 0 THEN BEGIN
    SalesLine.TESTFIELD("Job No.",'');
//Code.Add.end
...
//Code.Add.begin
    IF QtyNeeded > 0 THEN
      ERROR(Text053,SalesLine2."No.");
  END;
//Code.Add.end

UNTIL SalesLine2.NEXT = 0;
...

Testen konnte ich die Lösung aus Zeitgründen noch nicht, aber ich werden Bescheid geben welche Erfahrungen ich damit gemacht habe.

Viele Grüße

Lars

Zwei kurze Nachfragen dazu:

Gibt es dazu inzwischen einen KB-Artikel?

Hat der Lösungsvorschlag funktioniert?

Grüße
MaHi

Gibt es dazu inzwischen einen KB-Artikel?

Das kannst du ganz einfach selber herausfinden: https://mbs.microsoft.com/partnersource ... .aspx?st=a

Danke für die schnelle Antwort.

Da war ich schon, hab aber nichts gefunden. Ich dachte, dass du evtl. eine direkte Rückmeldung von MS bekommen hast. Wenn nicht ist das auch OK. Der Lösungsvorschlag scheint ja ganz gut zu sein. Bei den Tabellen werde ich mir 37 und 39 ansehen.

Zu Tabelle 37 gibt es noch einen Artikel auf der Partnersource: 2604450