[Gelöst] Mindestbestellwert in Verkaufsangeboten

Bild Microsoft Dynamics NAV 2018

[Gelöst] Mindestbestellwert in Verkaufsangeboten

Beitragvon 1257264937 » 12. August 2019 10:57

Servus,

ich wollte ein Mindestbestellwert in den Verkaufsangeboten hinzufĂĽgen, der beim Umwandeln in ein Verkaufsauftrag geprĂĽft wird.
In der Debitortabelle habe ich das Feld "MinAmoutToOrder" angelegt, damit der Mindestbestellwert ĂĽber die Debitorenkarte gepflegt werden kann.
Bisher habe ich folgenden Code in den "MakeOrder - OnAction()" Trigger auf der Page 41 - Sales Quote getestet:

Code: Alles auswählen
MakeOrder - OnAction()
IF  ApprovalsMgmt.PrePostApprovalCheckSales(Rec) THEN
    CODEUNIT.RUN(CODEUNIT::"Sales-Quote to Order (Yes/No)",Rec)
ELSE IF
    FORMAT(TotalSalesLine.CALCSUMS("Line Amount")) < FORMAT(MinOrderAmount.MinAmountToOrder) THEN
    ERROR('Zeilenbetrag unter %1.', MinOrderAmount.MinAmountToOrder);


Wenn ich das Angebot wandel (Mindestbestellwert nicht erreicht) wird ein Auftrag ohne Fehlermeldung erstellt, auĂźerdem wird der Mindestbestellwert der Record-Variable nicht im Fehlertext (Zeilenbetrag unter %1) angezeigt es wird stattdessen eine "0" wiedergegeben.

Irgendwelche Ideen? Vielen Dank im Voraus!
Zuletzt geändert von 1257264937 am 15. August 2019 08:39, insgesamt 2-mal geändert.
1257264937
 
Beiträge: 141
Registriert: 12. Januar 2016 16:17

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon 1257264937 » 12. August 2019 12:14

Kowa hat geschrieben:Daher bitten wir dich, vor und nach deinem Quelltext diese Code-Tags einzufĂĽgen. Beispiel:
[code]Dein Quelltext[/code]

Habe den Beitrag ĂĽberarbeitet.
1257264937
 
Beiträge: 141
Registriert: 12. Januar 2016 16:17

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon Kowa » 12. August 2019 12:35

FORMAT(WertA) < FORMAT(WertA) ist bei einem numerischen Vergleich falsch, hier immer ohne FORMAT.
AuĂźerdem sollte diese PrĂĽfung zuerst erfolgen.
MinOrderAmount.MinAmountToOrder soll wohl Customer.MinAmountToOrder bedeuten? Dann fehlt fĂĽr den Debitordatensatz das GET.
GruĂź, Kai

Frage beantwortet? Schreibe bitte [Gelöst] vor den Titel des ersten Beitrags.
Bitte erst suchen, dann fragen. Bitte beachte den kleinen Community-Knigge.
Kein Support per PN, Mail, Messenger oder Telefon! DafĂĽr ist dieses Forum da.

Download: Dynamics NAV Object Text Explorer (Alternativlink). MVP Alumni
Benutzeravatar
Kowa
Moderator
Moderator
 
Beiträge: 7835
Registriert: 17. Juni 2005 17:32
Wohnort: Bremen
Realer Name: Kai Kowalewski
Arbeitsort: Osterholz-Scharmbeck
Bezug zu Microsoft Dynamics: Microsoft Partner
Microsoft Dynamics Produkt: Microsoft Dynamics 365
Microsoft Dynamics Version: BC, NAV 2018 bis Navision 2.01

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon 1257264937 » 12. August 2019 14:11

Kowa hat geschrieben:Dann fehlt fĂĽr den Debitordatensatz das GET.

Wie mĂĽsste das in meinem Fall aussehen? Habe jetzt folgendes stehen:

Code: Alles auswählen
MakeOrder - OnAction()
GET(MinOrderAmount.MinAmountToOrder);
IF  TotalSalesLine."Line Amount" <  MinOrderAmount.MinAmountToOrder THEN
    ERROR('Zeilenbetrag unter %1.', MinOrderAmount.MinAmountToOrder)
ELSE IF 
    ApprovalsMgmt.PrePostApprovalCheckSales(Rec) THEN
    CODEUNIT.RUN(CODEUNIT::"Sales-Quote to Order (Yes/No)",Rec);

Es kommt folgende Fehlermeldung, wenn ich das Angebot in einen Auftrag wandel möchte.

Bild
1257264937
 
Beiträge: 141
Registriert: 12. Januar 2016 16:17

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon fiddi » 12. August 2019 14:21

Hallo,

da hat sich Kowa leider geirrt, da du mit REC arbeitest, musst du keinen GET durchfĂĽhren.

Was allerdings fehlt, wahrscheinlich meinte er das, ist wie du an MinOrderAmount.MinAmountToOrder ran kommst.

Entweder hast du den Mindesbestellwert beim Debitor hinterlegt, dann musst du den Debitoren- Datensatz lesen. Kommen die Daten von wo anders, muss du u.U. diverse Datensätze lesen, bevor du an den Mindestbestell wert ran kommst.

Stell doch mal die Beziehungen zwischen den Tabellen dar.

GruĂź Fiddi
Wer aufhört besser zu werden, hat aufgehört gut zu sein. (frei nach Philip Rosenthal)
Frage beantwortet? Schreibe bitte [Gelöst] vor den Titel des ersten Beitrags.
Bitte erst suchen, dann fragen. Bitte beachte den kleinen Community-Knigge.
Kein Support per PN, Mail, IM oder Telefon! DafĂĽr ist dieses Forum da.
fiddi
Moderator
Moderator
 
Beiträge: 7091
Registriert: 9. Juni 2008 10:13
Realer Name: Hans Heinrich Fiddelke
Arbeitsort: Bremen
Bezug zu Microsoft Dynamics: Microsoft Partner
Microsoft Dynamics Produkt: Microsoft Dynamics NAV
Microsoft Dynamics Version: NAV2.6-aktuell

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon 1257264937 » 12. August 2019 14:31

Hallo,

vielen Dank fĂĽr die schnelle Antwort.

fiddi hat geschrieben:Stell doch mal die Beziehungen zwischen den Tabellen dar.


Folgende Beziehungen werden verwendet.

Bild
1257264937
 
Beiträge: 141
Registriert: 12. Januar 2016 16:17

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon fiddi » 12. August 2019 14:37

Hallo,

zum Verständnis hätte jetzt beigetragen, wenn du den Record "MinOrderAmount" von Anfang an "Customer" genannt hättest :wink:

Von welchem Debitor möchtest du denn jetzt den Mindestbestellwert wissen? "Verkauf-an" oder "Rechnung-an" ? für die Berechnung gilt normalerweise der "Rechnung-an"- Debitor.

GruĂź Fiddi
Wer aufhört besser zu werden, hat aufgehört gut zu sein. (frei nach Philip Rosenthal)
Frage beantwortet? Schreibe bitte [Gelöst] vor den Titel des ersten Beitrags.
Bitte erst suchen, dann fragen. Bitte beachte den kleinen Community-Knigge.
Kein Support per PN, Mail, IM oder Telefon! DafĂĽr ist dieses Forum da.
fiddi
Moderator
Moderator
 
Beiträge: 7091
Registriert: 9. Juni 2008 10:13
Realer Name: Hans Heinrich Fiddelke
Arbeitsort: Bremen
Bezug zu Microsoft Dynamics: Microsoft Partner
Microsoft Dynamics Produkt: Microsoft Dynamics NAV
Microsoft Dynamics Version: NAV2.6-aktuell

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon 1257264937 » 12. August 2019 14:51

Hallo,

fiddi hat geschrieben:Von welchem Debitor möchtest du denn jetzt den Mindestbestellwert wissen? "Verkauf-an" oder "Rechnung-an" ?

von dem "Verkauf-an" Debitor.
1257264937
 
Beiträge: 141
Registriert: 12. Januar 2016 16:17

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon fiddi » 12. August 2019 15:07

O.K.

dann würde dein Code ungefähr so aussehen:
Code: Alles auswählen
MakeOrder - OnAction()
if Customer.GET("Sell-to Customer NO.") then begin
  TotalSalesLine.SETRANGE("Document Type","Document Type");
  TotalsalesLine.SETRANGE("Document No.","No.");
  TotalsalesLine.CALCSUMS("Line Amount");
  IF  TotalSalesLine."Line Amount" <  Customer.MinAmountToOrder THEN
    ERROR('Zeilenbetrag unter %1.', Customer.MinAmountToOrder)
  ELSE IF
    ApprovalsMgmt.PrePostApprovalCheckSales(Rec) THEN
    CODEUNIT.RUN(CODEUNIT::"Sales-Quote to Order (Yes/No)",Rec);
END;


Und du bist dir sicher, das du kein Angebot in einen Auftrag wandeln können willst, wenn der Mindestbestellwert nicht erreicht ist?

GruĂź Fiddi
Wer aufhört besser zu werden, hat aufgehört gut zu sein. (frei nach Philip Rosenthal)
Frage beantwortet? Schreibe bitte [Gelöst] vor den Titel des ersten Beitrags.
Bitte erst suchen, dann fragen. Bitte beachte den kleinen Community-Knigge.
Kein Support per PN, Mail, IM oder Telefon! DafĂĽr ist dieses Forum da.
fiddi
Moderator
Moderator
 
Beiträge: 7091
Registriert: 9. Juni 2008 10:13
Realer Name: Hans Heinrich Fiddelke
Arbeitsort: Bremen
Bezug zu Microsoft Dynamics: Microsoft Partner
Microsoft Dynamics Produkt: Microsoft Dynamics NAV
Microsoft Dynamics Version: NAV2.6-aktuell

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon Kowa » 12. August 2019 15:11

fiddi hat geschrieben:da hat sich Kowa leider geirrt, da du mit REC arbeitest, musst du keinen GET durchfĂĽhren.

Mit dem REC vom Verkaufskopf. Ohne GET mit der entsprechenden Nummer wird der Customerrecord nicht vorhanden sein.
GruĂź, Kai

Frage beantwortet? Schreibe bitte [Gelöst] vor den Titel des ersten Beitrags.
Bitte erst suchen, dann fragen. Bitte beachte den kleinen Community-Knigge.
Kein Support per PN, Mail, Messenger oder Telefon! DafĂĽr ist dieses Forum da.

Download: Dynamics NAV Object Text Explorer (Alternativlink). MVP Alumni
Benutzeravatar
Kowa
Moderator
Moderator
 
Beiträge: 7835
Registriert: 17. Juni 2005 17:32
Wohnort: Bremen
Realer Name: Kai Kowalewski
Arbeitsort: Osterholz-Scharmbeck
Bezug zu Microsoft Dynamics: Microsoft Partner
Microsoft Dynamics Produkt: Microsoft Dynamics 365
Microsoft Dynamics Version: BC, NAV 2018 bis Navision 2.01

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon fiddi » 12. August 2019 15:26

Mit dem REC vom Verkaufskopf. Ohne GET mit der entsprechenden Nummer wird der Customerrecord nicht vorhanden sein.


Da er in der Page 41 Sales Quote ist, sollte REC normalerweise auf einen gĂĽltigen SalesHeader zeigen (Es sei denn das Angebot ist leer, aber dann nĂĽtzt der GET auch nichts).

GruĂź Fiddi
Wer aufhört besser zu werden, hat aufgehört gut zu sein. (frei nach Philip Rosenthal)
Frage beantwortet? Schreibe bitte [Gelöst] vor den Titel des ersten Beitrags.
Bitte erst suchen, dann fragen. Bitte beachte den kleinen Community-Knigge.
Kein Support per PN, Mail, IM oder Telefon! DafĂĽr ist dieses Forum da.
fiddi
Moderator
Moderator
 
Beiträge: 7091
Registriert: 9. Juni 2008 10:13
Realer Name: Hans Heinrich Fiddelke
Arbeitsort: Bremen
Bezug zu Microsoft Dynamics: Microsoft Partner
Microsoft Dynamics Produkt: Microsoft Dynamics NAV
Microsoft Dynamics Version: NAV2.6-aktuell

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon 1257264937 » 12. August 2019 15:38

Hallo,

fiddi hat geschrieben:dann würde dein Code ungefähr so aussehen:
Code: Alles auswählen
MakeOrder - OnAction()
if Customer.GET("Sell-to Customer NO.") then begin
  TotalSalesLine.SETRANGE("Document Type","Document Type");
  TotalsalesLine.SETRANGE("Document No.","No.");
  TotalsalesLine.CALCSUMS("Line Amount");
  IF  TotalSalesLine."Line Amount" <  Customer.MinAmountToOrder THEN
    ERROR('Zeilenbetrag unter %1.', Customer.MinAmountToOrder)
  ELSE IF
    ApprovalsMgmt.PrePostApprovalCheckSales(Rec) THEN
    CODEUNIT.RUN(CODEUNIT::"Sales-Quote to Order (Yes/No)",Rec);
END;

Vielen Dank hat funktioniert!

fiddi hat geschrieben:Und du bist dir sicher, das du kein Angebot in einen Auftrag wandeln können willst, wenn der Mindestbestellwert nicht erreicht ist?


Doch es soll in einen Auftrag umgewandelt werden, aber es soll automatisch eine BearbeitungsgebĂĽhr ausgerechnet werden und diese dann in den Angebotszeilen (bzw. Im Verkaufsauftrag) hinzugefĂĽgt werden
(z.B. Mindestbestellwert 100€ - Artikel 75€ - Bearbeitungsgebühr 25€). Außerdem soll es beim Umwandeln dann eine Info geben, wie Hoch die Bearbeitungsgebühr war. Irgendwelche Ideen wie ich den Code dementsprechend ändern muss?
1257264937
 
Beiträge: 141
Registriert: 12. Januar 2016 16:17

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon Kowa » 12. August 2019 15:50

fiddi hat geschrieben:Da er in der Page 41 Sales Quote ist, sollte REC normalerweise auf einen gĂĽltigen SalesHeader zeigen

Ja, was aber nicht ausreicht, wenn man ein Feld aus der Debitorentabelle auswerten muss. In deinem Beispielcode ist doch auch das Customer.GET(…) vorhanden, ohne das es nicht geht.
GruĂź, Kai

Frage beantwortet? Schreibe bitte [Gelöst] vor den Titel des ersten Beitrags.
Bitte erst suchen, dann fragen. Bitte beachte den kleinen Community-Knigge.
Kein Support per PN, Mail, Messenger oder Telefon! DafĂĽr ist dieses Forum da.

Download: Dynamics NAV Object Text Explorer (Alternativlink). MVP Alumni
Benutzeravatar
Kowa
Moderator
Moderator
 
Beiträge: 7835
Registriert: 17. Juni 2005 17:32
Wohnort: Bremen
Realer Name: Kai Kowalewski
Arbeitsort: Osterholz-Scharmbeck
Bezug zu Microsoft Dynamics: Microsoft Partner
Microsoft Dynamics Produkt: Microsoft Dynamics 365
Microsoft Dynamics Version: BC, NAV 2018 bis Navision 2.01

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon fiddi » 12. August 2019 15:56

Ja, was aber nicht ausreicht, wenn man ein Feld aus der Debitorentabelle auswerten muss. In deinem Beispielcode ist doch auch das Customer.GET(…) vorhanden, ohne das es nicht geht.


Das hast du auch die ganze Zeit gemeint. Leider kam das nicht so klar rĂĽber, das du den Customer meinst und nicht den SalesHeader. :wink:

GruĂź Fiddi
Wer aufhört besser zu werden, hat aufgehört gut zu sein. (frei nach Philip Rosenthal)
Frage beantwortet? Schreibe bitte [Gelöst] vor den Titel des ersten Beitrags.
Bitte erst suchen, dann fragen. Bitte beachte den kleinen Community-Knigge.
Kein Support per PN, Mail, IM oder Telefon! DafĂĽr ist dieses Forum da.
fiddi
Moderator
Moderator
 
Beiträge: 7091
Registriert: 9. Juni 2008 10:13
Realer Name: Hans Heinrich Fiddelke
Arbeitsort: Bremen
Bezug zu Microsoft Dynamics: Microsoft Partner
Microsoft Dynamics Produkt: Microsoft Dynamics NAV
Microsoft Dynamics Version: NAV2.6-aktuell

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon 1257264937 » 14. August 2019 13:53

Hallo,

ich habe den Code wie folgt erweitert.

Code: Alles auswählen
MakeOrder - OnAction()
IF  Customer.GET("Sell-to Customer No.") THEN BEGIN
    SalesLine.SETRANGE("Document Type","Document Type");
    SalesLine.SETRANGE("Document No.","No.");
    SalesLine.CALCSUMS("Line Amount");
    IF  SalesLine."Line Amount" < Customer.MinAmountToOrder THEN
         IF  SalesLine.FINDLAST THEN
             NextLineNo := SalesLine."Line No." + 10000
             ELSE
                NextLineNo := 10000;
                SalesLine.INIT;
                SalesLine."Line No." := NextLineNo;
                SalesLine.Type := SalesLine.Type::Resource;
                SalesLine.VALIDATE("No.",'1100');
                SalesLine.Quantity := 1;
                SalesLine.CALCSUMS("Line Amount");
                TotalFee := (Customer.MinAmountToOrder - SalesLine."Line Amount");
                SalesLine."Unit Price" := TotalFee;
                SalesLine.INSERT;
                MESSAGE('Der Mindestbestellwert von %1€ wurde nicht erreicht! \ Der Restbetrag in Höhe von %2€ wurde als BearbeitungsgebĂĽhr hinzugefĂĽgt.', Customer.MinAmountToOrder, TotalFee)
          END;IF 
      ApprovalsMgmt.PrePostApprovalCheckSales(Rec) THEN
      CODEUNIT.RUN(CODEUNIT::"Sales-Quote to Order (Yes/No)",Rec);

Mein Ziel war es, wenn der Mindestbestellwert nicht erreicht wird, soll eine neue Zeile mit der Differenz erstellt werden (TotalFee).
Der Code funktioniert soweit, wenn der Mindestbestellwert nicht erreicht wird. Sobald der Mindestbestellwert erreicht wird kommt folgende Fehlermeldung:

Bild

Irgendwelche Ideen wie ich den Code anpassen muss?
1257264937
 
Beiträge: 141
Registriert: 12. Januar 2016 16:17

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon m_schneider » 14. August 2019 14:16

Code: Alles auswählen
MakeOrder - OnAction()
IF  Customer.GET("Sell-to Customer No.") THEN BEGIN
    SalesLine.SETRANGE("Document Type","Document Type");
    SalesLine.SETRANGE("Document No.","No.");
    SalesLine.CALCSUMS("Line Amount");
    IF  SalesLine."Line Amount" < Customer.MinAmountToOrder THEN
         IF  SalesLine.FINDLAST THEN
             NextLineNo := SalesLine."Line No." + 10000
             ELSE
                NextLineNo := 10000;
                SalesLine.INIT;
                // Theoretisch sollte es ohne die beiden Zuweisungen funktionieren. sicher ist sicher
                SalesLine."Document Type" := "Document Type";
                SalesLine."Document No.":="No.";
                SalesLine."Line No." := NextLineNo;
                SalesLine.INSERT; // Erst einfĂĽgen, weil das Validate der No. unter Umständen einen bestehenden Datensatz benötigt.
                SalesLine.Type := SalesLine.Type::Resource;
                SalesLine.VALIDATE("No.",'1100');
                SalesLine.Quantity := 1;
                SalesLine.CALCSUMS("Line Amount");
                TotalFee := (Customer.MinAmountToOrder - SalesLine."Line Amount");
                SalesLine."Unit Price" := TotalFee;
                SalesLine.MODIFY;
                MESSAGE('Der Mindestbestellwert von %1€ wurde nicht erreicht! \ Der Restbetrag in Höhe von %2€ wurde als BearbeitungsgebĂĽhr hinzugefĂĽgt.', Customer.MinAmountToOrder, TotalFee)
          END;IF
      ApprovalsMgmt.PrePostApprovalCheckSales(Rec) THEN
      CODEUNIT.RUN(CODEUNIT::"Sales-Quote to Order (Yes/No)",Rec);
MfG Michael
Benutzeravatar
m_schneider
 
Beiträge: 2141
Registriert: 20. Januar 2009 14:36
Realer Name: Michael Schneider
Arbeitsort: Treuen
Bezug zu Microsoft Dynamics: End-Anwender
Microsoft Dynamics Produkt: Microsoft Dynamics NAV
Microsoft Dynamics Version: 2017

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon 1257264937 » 14. August 2019 15:18

m_schneider hat geschrieben:
Code: Alles auswählen
MakeOrder - OnAction()
IF  Customer.GET("Sell-to Customer No.") THEN BEGIN
    SalesLine.SETRANGE("Document Type","Document Type");
    SalesLine.SETRANGE("Document No.","No.");
    SalesLine.CALCSUMS("Line Amount");
    IF  SalesLine."Line Amount" < Customer.MinAmountToOrder THEN
         IF  SalesLine.FINDLAST THEN
             NextLineNo := SalesLine."Line No." + 10000
             ELSE
                NextLineNo := 10000;
                SalesLine.INIT;
                // Theoretisch sollte es ohne die beiden Zuweisungen funktionieren. sicher ist sicher
                SalesLine."Document Type" := "Document Type";
                SalesLine."Document No.":="No.";
                SalesLine."Line No." := NextLineNo;
                SalesLine.INSERT; // Erst einfĂĽgen, weil das Validate der No. unter Umständen einen bestehenden Datensatz benötigt.
                SalesLine.Type := SalesLine.Type::Resource;
                SalesLine.VALIDATE("No.",'1100');
                SalesLine.Quantity := 1;
                SalesLine.CALCSUMS("Line Amount");
                TotalFee := (Customer.MinAmountToOrder - SalesLine."Line Amount");
                SalesLine."Unit Price" := TotalFee;
                SalesLine.MODIFY;
                MESSAGE('Der Mindestbestellwert von %1€ wurde nicht erreicht! \ Der Restbetrag in Höhe von %2€ wurde als BearbeitungsgebĂĽhr hinzugefĂĽgt.', Customer.MinAmountToOrder, TotalFee)
          END;IF
      ApprovalsMgmt.PrePostApprovalCheckSales(Rec) THEN
      CODEUNIT.RUN(CODEUNIT::"Sales-Quote to Order (Yes/No)",Rec);


Vielen Dank fĂĽr die schnelle Antwort! Die Fehlermeldung ist jetzt weg, aber jetzt habe ich folgende Probleme:

  • Wenn der Mindestbestellwert erreicht wird, wird die Message-Funktion trotzdem wiedergegeben.
  • Wenn der Mindestbestellwert erreicht wird, wird in der Rechnung an erster Stelle eine neue Zeile hinzugefĂĽgt mit den vordefinierten Parametern und einen negativen Betrag.
  • Wenn der Mindestbestellwert erreicht wird, wird ein negativer Betrag in der Zeile hinzugefĂĽgt (z.B. Artikel 1200€, Restbetrag -200€, Summe in der Rechnung 1000€).

Mein Wunsch ist es, wenn der Mindestbestellwert erreicht wird, dass die Rechnung ganz normal ohne Meldung und Eingriffe erstellt wird.

Irgendwelche Ideen wie ich den Code anpassen muss?
1257264937
 
Beiträge: 141
Registriert: 12. Januar 2016 16:17

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon m_schneider » 14. August 2019 16:37

Du hast ein Begin End vergessen.

Code: Alles auswählen
MakeOrder - OnAction()
IF  Customer.GET("Sell-to Customer No.") THEN BEGIN
    SalesLine.SETRANGE("Document Type","Document Type");
    SalesLine.SETRANGE("Document No.","No.");
    SalesLine.CALCSUMS("Line Amount");
    IF  SalesLine."Line Amount" < Customer.MinAmountToOrder THEN BEGIN // Begin hat gefehlt
         IF  SalesLine.FINDLAST THEN
             NextLineNo := SalesLine."Line No." + 10000
           ELSE
                NextLineNo := 10000;

              SalesLine.INIT;
              // Theoretisch sollte es ohne die beiden Zuweisungen funktionieren. sicher ist sicher
              SalesLine."Document Type" := "Document Type";
              SalesLine."Document No.":="No.";
              SalesLine."Line No." := NextLineNo;
              SalesLine.INSERT; // Erst einfĂĽgen, weil das Validate der No. unter Umständen einen bestehenden Datensatz benötigt.
              SalesLine.Type := SalesLine.Type::Resource;
              SalesLine.VALIDATE("No.",'1100');
              SalesLine.Quantity := 1;
              SalesLine.CALCSUMS("Line Amount");
              TotalFee := (Customer.MinAmountToOrder - SalesLine."Line Amount");
              SalesLine."Unit Price" := TotalFee;
              SalesLine.MODIFY;
              MESSAGE('Der Mindestbestellwert von %1€ wurde nicht erreicht! \ Der Restbetrag in Höhe von %2€ wurde als BearbeitungsgebĂĽhr hinzugefĂĽgt.', Customer.MinAmountToOrder, TotalFee)
          END;
       END;
          IF ApprovalsMgmt.PrePostApprovalCheckSales(Rec) THEN
            CODEUNIT.RUN(CODEUNIT::"Sales-Quote to Order (Yes/No)",Rec);
MfG Michael
Benutzeravatar
m_schneider
 
Beiträge: 2141
Registriert: 20. Januar 2009 14:36
Realer Name: Michael Schneider
Arbeitsort: Treuen
Bezug zu Microsoft Dynamics: End-Anwender
Microsoft Dynamics Produkt: Microsoft Dynamics NAV
Microsoft Dynamics Version: 2017

Re: Mindestbestellwert in Verkaufsangeboten

Beitragvon 1257264937 » 15. August 2019 08:38

Hallo,

m_schneider hat geschrieben:Du hast ein Begin End vergessen.

Vielen Dank hat funktioniert!
1257264937
 
Beiträge: 141
Registriert: 12. Januar 2016 16:17


ZurĂĽck zu NAV 2018

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast