Zeilenumbruch wird nicht berücksichtigt

Andrea Kühn

Hallo Herr Knecht,

bei dem von Ihnen erstellten Script (vielleicht erinnern Sie sich ja noch) wird ein Zeilenumbruch in dem UDF "U_STN_TxtEK" beim Ausdruck nicht berücksichtigt. Haben Sie eine Lösung für uns?

Script:
----------------------------------------------------------------------------------
Dim res As String

If (DocumentRow("RowRowItems.U_STN_TxtEK"))= ""
res = iif(GetData("B1_Data.Document.DocumentRow.SubCatNum")= "k.a.",DocumentRow("ItemCode"),GetData("B1_Data.Document.DocumentRow.SubCatNum")) & vbcrlf & iif(IsVK(GetData("LD.Par.FormType")),LD.GetMLDesc(DocumentRow("RowRowItems.ItemName"),"OITM","ItemName",DocumentRow("ItemCode"),GetData("LD.Par.LangCode")),LD.GetMLDesc(DocumentRow("RowRowItems.ItemName"),"OITM","U_STN_TxtEK",DocumentRow("ItemCode"),GetData("LD.Par.LangCode")))

Else

res = iif(GetData("B1_Data.Document.DocumentRow.SubCatNum")= "k.a.",DocumentRow("ItemCode"),GetData("B1_Data.Document.DocumentRow.SubCatNum")) & vbcrlf & iif(IsVK(GetData("LD.Par.FormType")),LD.GetMLDesc(DocumentRow("RowRowItems.U_STN_TxtEK"),"OITM","U_STN_TxtEK",DocumentRow("ItemCode"),GetData("LD.Par.LangCode")),LD.GetMLDesc(DocumentRow("RowRowItems.U_STN_TxtEK"),"OITM","U_STN_TxtEK",DocumentRow("ItemCode"),GetData("LD.Par.LangCode")))

End If

If PosFall="C" Then
res += vbcrlf & "Länge: " & LD.FStr(DocumentRow("Factor2") * 1000,"#.0") & " Breite: " & LD.FStr(DocumentRow("Factor3") * 1000,"#.0")
res += " / qm: " & LD.FStr(DocumentRow("Factor2") * DocumentRow("Factor3") ,"#0.000")
End If

res += vbcrlf & GetData("LD.Txt.U0000184") & " " & DocumentRow("ShipDate")

'Unsere Artikelnummer
res += vbcrlf & GetData("LD.Txt.U0000183") & " " & DocumentRow("ItemCode")

txtBezeichnung.Value = res
---------------------------------------------------------------------------

Vielen Dank im Voraus
Andrea Kühn

Philipp Knecht

Hallo Frau Kühn

Falls sie Memo Felder drucken möchten müssen sie immer die LD.MultiLine(..) im fall textbox bzw. LD.MultiLineRTF(..) im Fall EadvancedtextBox verwenden.
Unter der Annahme das dieses Feld so ein Memofeld ist habe ich das Script mal geändert:
(res = LD.MultiLine(res) hinzugefügt)

----------------------------------------------------------------------------------
[quote]Dim res As String

If (DocumentRow("RowRowItems.U_STN_TxtEK"))= ""
res = iif(GetData("B1_Data.Document.DocumentRow.SubCatNum")= "k.a.",DocumentRow("ItemCode"),GetData("B1_Data.Document.DocumentRow.SubCatNum")) & vbcrlf & iif(IsVK(GetData("LD.Par.FormType")),LD.GetMLDesc(DocumentRow("RowRowItems.ItemName"),"OITM","ItemName",DocumentRow("ItemCode"),GetData("LD.Par.LangCode")),LD.GetMLDesc(DocumentRow("RowRowItems.ItemName"),"OITM","U_STN_TxtEK",DocumentRow("ItemCode"),GetData("LD.Par.LangCode")))

Else

res = iif(GetData("B1_Data.Document.DocumentRow.SubCatNum")= "k.a.",DocumentRow("ItemCode"),GetData("B1_Data.Document.DocumentRow.SubCatNum")) & vbcrlf & iif(IsVK(GetData("LD.Par.FormType")),LD.GetMLDesc(DocumentRow("RowRowItems.U_STN_TxtEK"),"OITM","U_STN_TxtEK",DocumentRow("ItemCode"),GetData("LD.Par.LangCode")),LD.GetMLDesc(DocumentRow("RowRowItems.U_STN_TxtEK"),"OITM","U_STN_TxtEK",DocumentRow("ItemCode"),GetData("LD.Par.LangCode")))

End If

res = LD.MultiLine(res)

If PosFall="C" Then
res += vbcrlf & "Länge: " & LD.FStr(DocumentRow("Factor2") * 1000,"#.0") & " Breite: " & LD.FStr(DocumentRow("Factor3") * 1000,"#.0")
res += " / qm: " & LD.FStr(DocumentRow("Factor2") * DocumentRow("Factor3") ,"#0.000")
End If

res += vbcrlf & GetData("LD.Txt.U0000184") & " " & DocumentRow("ShipDate")

'Unsere Artikelnummer
res += vbcrlf & GetData("LD.Txt.U0000183") & " " & DocumentRow("ItemCode")

txtBezeichnung.Value = res---------------------------------------------------------------------------

hth