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 ThorstenWenn 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
0
Please sign in to leave a comment.
Comments
0 comments