Wenn das Feld leer ist nicht andrucken

Denis Walliss

Hallo

ich möchte wenn das Feld Fremdsprachenname und der Ansprechpartner leer sind das er mir den rest der Adresse nach ober zieht. Sprich das keine Leerzeile vorhanden ist.

Kann mir da jemand weiterhelfen?


Select GetData("LD.Par.FormType")
Case "133":
billToAdr = Document("CardName") & vbcrlf & GetData("B1_Data.BusinessPartner.CardFName") & vbcrlf & LD.MultiLine(Document("Address"))
Case Else:
billToAdr = Document("CardName") & vbcrlf & GetData("B1_Data.BusinessPartner.CardFName") & vbcrlf & Document("DocumentDocumentContactPerson.Name") & vbcrlf & LD.MultiLine(Document("Address"))
End Select
' Lieferadresse
' Falls ein ShipCode vorhanden ist, (Lieferadresse auf GP)
' wird der CardName angedruckt.
' Falls Detailsdaten der Shippingadresse benötigt werden
' -> DatenSource "ShipToAdress" verwenden
If (Document("ShipToCode"))<>"" Then
shipToAdr = Document("CardName") & vbcrlf & GetData("B1_Data.BusinessPartner.CardFName") & vbcrlf & Document("DocumentDocumentContactPerson.Name") & vbcrlf
shipToAdr &= LD.MultiLine(Document("Address2"))
Else
shipToAdr = LD.MultiLine(Document("Address2"))
End If

If Document("Address2")="" Then
' Falls Lieferadresse leer
If GetData("LD.Par.FormType")<>"140" Then
' Und Beleg <> Lieferschein
' wird der Text "Rechnungsadresse = Lieferadresse in die Lieferadresse gedruckt)
shipToAdr = GetData("LD.Txt.T0000083")
Else
' Falls Beleg = Lieferschein wird die Rechnungsadresse in die Lieferadresse übernommen
' Und der Text in die Rechnungsadresse übernommen
shipToAdr = billToAdr
billToAdr = GetData("LD.Txt.T0000083")
End If
End If

' In case of delivery, shipToAdr has to be on the top left in the BillToAddress TextBox
Select GetData("LD.Par.FormType")
Case "140":
BillToAdress.Value = shipToAdr
ShipToAdress.Value = billToAdr
AddressDescription.Value = GetData("LD.Txt.T0000094")
Case Else:
BillToAdress.Value = billToAdr
ShipToAdress.Value = shipToAdr
AddressDescription.Value = GetData("LD.Txt.T0000066")
End Select

Tobias Hermeling

Hallo, du könntest das nach folgendem Prinzip realisieren..

billtoAdr = IIF(NOT(Data("B1_Data.BusinessPartner.CardFName") = "", Data("B1_Data.BusinessPartner.CardFName") & vbcrlf, "")

hth

Andreas Scherer

Hallo Denis

Speichere doch deine Adresse in eine Variable. Zum Beispiel im GenerateScript.
Danach erstellst du ein AdvanceTextBox und fügst die Variable im Visible Property hinzu.
So kannst du dann relativ einfach deine Variable zusammen stellen.


Grüsse


Andy