Forum.

Dim addressstring As String=""
						 
						'GP Name
						addressstring += "<b>" + Document("CardName") + "</b>" + "<br/>"
						 
						'GP Fremdsprachenname
						If Not LD.IsEmpty(GetData("B1_Data.BusinessPartner.CardFName")) Then
						addressstring += GetData("B1_Data.BusinessPartner.CardFName")+ "<br/>"
						Else
						addressstring +=""
						End If
						 
						'GP Adresszeile2 (aus ORD1)
						If Not LD.IsEmpty(GetData("B1_Data.BillToAddress.Address2")) Then
						addressstring += GetData("B1_Data.BillToAddress.Address2")+ "<br/>"
						Else
						addressstring +=""
						End If
						 
						'GP Adresszeile3 (aus ORD1)
						If Not LD.IsEmpty(GetData("B1_Data.BillToAddress.Address3")) Then
						addressstring += GetData("B1_Data.BillToAddress.Address3")+ "<br/>"
						Else
						addressstring +=""
						End If
						 
						'Wenn es eine Ausgangsrechnung ist, soll nicht der Ansprechpartner angedruckt werden, sondern "Buchhaltung"
						If (GetData("LD.Par.FormType")="133") Then
						addressstring += GetData("LD.Txt.M0002525")+ "<br/>"
						Else
						 
						'Titel des Ansprechpartners (inkl. Leerzeichen)
						If Not LD.IsEmpty(Document("DocumentDocumentContactPerson.Title")) Then
						addressstring += Document("DocumentDocumentContactPerson.Title")+ " "
						Else
						addressstring +=""
						End If
						 
						'Ansprechpartner aus Beleg
						If Not LD.IsEmpty(Document("DocumentDocumentContactPerson.Name")) Then
						addressstring += Document("DocumentDocumentContactPerson.Name")+ "<br/>"
						Else
						addressstring +=""
						End If
						 
						'Abteilung (Position - Ansprechpartner)
						If Not LD.IsEmpty(Document("DocumentDocumentContactPerson.Position")) Then
						addressstring += Document("DocumentDocumentContactPerson.Position")+ "<br/>"
						Else
						addressstring +=""
						End If
						 
						End If
						 
						 
						'Adresse aus Beleg - Unbedingt darauf achten, das die AdvancedTextBox den Namen "BillToAdress" trägt.
						addressstring += LD.MultiLine(Document("Address")).Replace(Chr(10),"<br/>")
						BillToAdress.Text = addressstring
						addressstring = Nothing