OneNewLine

Patrick Stoeckli

Hallo Philipp,

Version 1.31.
Wenn die Adresse in SBO so sieht :
<begin>
AV. ADRIEN-LACHENAL 7

CH-1290 VERSOIX
<end>

LD.MultiLine(Document("Address2")) gibt nur die erste Zeile zurück (?)
<begin>
AV. ADRIEN-LACHENAL 7
<end>

LD.MultiLine(LD.OneNewLine(Document("Address2"))) gibt alle 3 Zeilen (inbegriffen die leere) zurück:
<begin>
AV. ADRIEN-LACHENAL 7

CH-1290 VERSOIX
<end>

sollte aber so zurück geben:
<begin>
AV. ADRIEN-LACHENAL 7
CH-1290 VERSOIX
<end>

Habe ich recht?

Gruss
Patrick

Rolf Mettler

Hallo Patrick

Wenn du die OneNewLine an erster Stelle nimmst geht es. Setze die Funktion so ein ...

If LD.IsEmpty(Document("BPChCode")) Then
textBox2.value=GetData("B1_Data.BusinessPartner.CardName") + vbcrlf
If Not LD.IsEmpty(Document("DocumentDocumentContactPerson.Name")) Then
textBox2.value+=Document("DocumentDocumentContactPerson.Name") + vbcrlf
End If
textBox2.value+=LD.OneNewLine(LD.MultiLine(Document("Address")))

Gruss Rolf

Patrick Stoeckli

Hallo Rolf,

Ich habe der Objekt ganz umgesetzt. Aber es bleibt nach wie vor falsch. Mit der Ergänzung, druckt es nur der erste Zeile der 'Address' Feld. Hier ist der Code:

textBox2.Value = Data("B1_Data.BusinessPartner.CardName") + vbcrlf
If Not LD.IsEmpty(Document("DocumentDocumentContactPerson.Name")) Then
textBox2.Value+=Document("DocumentDocumentContactPerson.Name") + vbcrlf
End If
If GetData("LD.Par.FormType")="140" Then
textBox2.Value+=LD.OneNewLine(LD.MultiLine(Document("Address2")))
Else
textBox2.Value+=LD.OneNewLine(LD.MultiLine(Document("Address")))
End If

Danke und Gruss
Patrick

Philipp Knecht

Hallo Patrick

Kannst du folgendes testen:

- Neue Textbox anlegen
- Value Property auf LD.MultiLine(Document("Address")) setzen

Was kriegst du für einen Output?

Danke

Rolf Mettler

Versuche mal die LD.OneNewLine() erst am Schluss abzufragen...

textBox2.Value = Data("B1_Data.BusinessPartner.CardName") + vbcrlf If Not LD.IsEmpty(Document("DocumentDocumentContactPerson.Name")) Then
textBox2.Value+=Document("DocumentDocumentContactPerson.Name") + vbcrlf End If If GetData("LD.Par.FormType")="140" Then
textBox2.Value+=LD.MultiLine(Document("Address2"))
Else
textBox2.Value+=LD.MultiLine(Document("Address"))
End If

textBox2.Value=LD.OneNewLine(textBox2.Value)

Patrick Stoeckli

Hallo Philipp,

Mit einen neuen textBox (aber auch mit original textbox war ungenügend gross) wird Zeile 1, leere Zeile, leere Zeile, Zeile 2 gedruckt:
<begin>
AV. ADRIEN-LACHENAL 7


CH-1290 VERSOIX
<end>

Gruss
Patrick

Patrick Stoeckli

Hallo Rolf,

Auch wenn man am Ende die Funktion OneNewLine anwendet wird die Adresse mit 3 leeren gedruckt.

Gruss
Patrick

Philipp Knecht

Hi Patrick

Habe bei mir folgendes getestet (Hab extra im Feld Adress diverse Umbrüche eingefügt) :
textBox2.Value = LD.OneNewLine(LD.MultiLine(Document("Address")))
Und es funktioniert.

Lösch mal dein Adress Feld und gib nochmals mehrere Zeilen mit Lücken ein.
Falls es dann funktioniert könnte eventuell sein dass es bei einem eventuellem DTW Import falsche Umbrüche reingeschrieben hat.

hth