Neu Seriennummer auf Lieferschein richtig ausgeben

[Fugel]

Hallo Kollegen,

wir möchten gern auf unserem Lieferschein die Seriennummern ausgeben und verwenden dazu bereits folgenden Code:

LocNumber$(DeliveryNotePositionDeliveryDetails.Quantity, JTL_GetCulture(Report.CountryISO, Report.LanguageISO, Report.CurrencyISO), @DecimalQuantity) +
cond(IsNullOrEmpty(DeliveryNotePosition.Unit), "", " " +DeliveryNotePosition.Unit) +
cond(IsNullOrEmpty(DeliveryNotePositionDeliveryDetails.BatchNumber), "", " Charge: " + DeliveryNotePositionDeliveryDetails.BatchNumber)  +
cond(IsNull(DeliveryNotePositionDeliveryDetails.BestBeforeDate), "", " MHD: " + LocDate$(DeliveryNotePositionDeliveryDetails.BestBeforeDate, JTL_GetCulture(Report.CountryISO, Report.LanguageISO, Report.CurrencyISO))) +

JTL_DirectTableQuery("SELECT cSeriennr FROM tLagerArtikel WHERE kLieferscheinPos = '" + Str$(DeliveryNotePosition.InternalId,0,0) + "'",'',', ')

Leider führt dieser Code dazu, dass die augabe bei mehreren Seriennummern so aussieht:

1,12345,12346,12347
2,12345,12346,12347
3,12345,12346,12347

Die "Zeilenzahl" ganz am Anfang brauche ich überhaupt nicht und auch alle überflüssigen Zeilen können weg. Kann mir hier jemand sagen, wie ich es richtig mache?

Danke!

 

[frankell]

Hallo @Fugel,

wenn ich Dich richtig verstehe, gibt es zu einer Lieferscheinposition mehrere Seriennummern und die Variable DeliveryNotePositionDeliveryDetails.SerialNumber gibt nichts aus, richtig?

Dann probiere es mal mit folgender letzten Codezeile:

JTL_DirectQuery("
SELECT
    STRING_AGG(cSeriennr, ', ')
FROM
    tLagerArtikel
WHERE
    kLieferscheinPos = "+Str$(DeliveryNotePosition.InternalId)+"
")

 

[John]

...wenn Du nicht weiter kommst baue ich Dir das gerne funktionierend in Deine Vorlage ein.
Details per PM

 

[Fugel]

Hallo @Fugel,

wenn ich Dich richtig verstehe, gibt es zu einer Lieferscheinposition mehrere Seriennummern und die Variable DeliveryNotePositionDeliveryDetails.SerialNumber gibt nichts aus, richtig?

Dann probiere es mal mit folgender letzten Codezeile:

JTL_DirectQuery("
SELECT
    STRING_AGG(cSeriennr, ', ')
FROM
    tLagerArtikel
WHERE
    kLieferscheinPos = "+Str$(DeliveryNotePosition.InternalId)+"
")

Danke für den Code. Ich hab diesen jetzt mal eingefügt, kann ihn aber noch nicht testen, das die letzte Bestellung nur eine Seriennummer hatte und in der Vorschau ja nur die letzte Bestellung verwendet wird. Sobald eine entsprechende Bestellung da ist, werde ich mich wieder melden. Vielen Dank!

 

[John]

...geh einfach in die Verwaltung der Durckvorlagen und wähle als Datenquelle/Designobjekt einen Lieferschein aus, der mehrere Seriennummern hat...

 

[Fugel]

...geh einfach in die Verwaltung der Durckvorlagen und wähle als Datenquelle/Designobjekt einen Lieferschein aus, der mehrere Seriennummern hat...

Danke für den Hinweis, das war mir neu. Also das Problem besteht weiterhin, es werden pro Seriennummer eine Zeile mit allen Seriennummern ausgegeben. Das Komische ist auch, das vor jeder Zeile 1,00 steht und dann die S/N direkt "rangeklatscht" wird.

 

[frankell]

Danke für den Hinweis, das war mir neu. Also das Problem besteht weiterhin, es werden pro Seriennummer eine Zeile mit allen Seriennummern ausgegeben. Das Komische ist auch, das vor jeder Zeile 1,00 steht und dann die S/N direkt "rangeklatscht" wird.

Das 1,00 kommt von diesem Teil des Codes:

LocNumber$(DeliveryNotePositionDeliveryDetails.Quantity, JTL_GetCulture(Report.CountryISO, Report.LanguageISO, Report.CurrencyISO), @DecimalQuantity) +
cond(IsNullOrEmpty(DeliveryNotePosition.Unit), "", " " +DeliveryNotePosition.Unit) +
cond(IsNullOrEmpty(DeliveryNotePositionDeliveryDetails.BatchNumber), "", " Charge: " + DeliveryNotePositionDeliveryDetails.BatchNumber)  +
cond(IsNull(DeliveryNotePositionDeliveryDetails.BestBeforeDate), "", " MHD: " + LocDate$(DeliveryNotePositionDeliveryDetails.BestBeforeDate, JTL_GetCulture(Report.CountryISO, Report.LanguageISO, Report.CurrencyISO))) +

Probier mal Folgendes:

SELECT
    STRING_AGG(ART.cArtNr + ': ' + LART.cSeriennr, ', ')
FROM
    tLagerArtikel AS LART
    LEFT JOIN tArtikel AS ART ON LART.kArtikel = ART.kArtikel
WHERE
    LART.kLieferscheinPos = "+Str$(DeliveryNotePosition.InternalId)+"
GROUP BY
    LART.kArtikel