Adressfelder ergänzen

Thorsten Grede

Hallo Forum,

würde gerne in die bestehende BillToAdresse im Marketing Dokument zwei Felder einbauen.
Diese Felder sind aus ddem GP Stamm Registerkarte Adressen und heißen Adress2 und Adress3.
Wie kann ich diese in den bestehenden Code (CardName + Multiline Adresse) einbauen?
Falls die Felder leer sind soll natütlich keine Leerzeile angedruckt werden.

Kann mir eventuell jemand dabei helfen?

Danke für euer Bemühen.

Grüße, Thorsten

Rolf Mettler

Hallo Thorsten

Wenn du das Ganze im Generate Sript abfüllst, ... hast du eigentlich unbeschränkte Möglichkeiten die Daten einzubinden. Hier ein Beispiel ...


Dim Adr As String
If GetData("LD.Par.FormType")="133" Then
Adr = GetData("B1_Data.BusinessPartner.CardName") + vbcrlf
If Not LD.IsEmpty(GetData("B1_Data.BusinessPartner.CardFName"))
Adr += GetData("B1_Data.BusinessPartner.CardFName")& vbcrlf
End If

ElseIf LD.IsEmpty(Document("Address2")) Then
Adr = GetData("B1_Data.BusinessPartner.CardName") + vbcrlf
If Not LD.IsEmpty(GetData("B1_Data.BusinessPartner.CardFName"))
Adr += GetData("B1_Data.BusinessPartner.CardFName")& vbcrlf
End If
Adr += Document("DocumentDocumentContactPerson.Name")& vbcrlf
Adr += LD.MultiLine(Document("Address"))

ElseIf NOT LD.IsEmpty(Document("Address2")) Then
If Not LD.IsEmpty(Document("ShipToCode"))
Adr = Document("ShipToCode")& vbcrlf
End If
If LD.IsEmpty(Document("ShipToCode"))
Adr = GetData("B1_Data.BusinessPartner.CardName")& vbcrlf
End If
Adr += Document("ShipToCode") + vbcrlf
Adr += Document("DocumentDocumentContactPerson.Name")& vbcrlf
Adr += LD.MultiLine(Document("Address2"))
End If
textBox2.Value = Ld.OneNewLine(Adr)

Gruss Rolf