Select auf Rechnungsadresse / Leerzeilen

Gebhard Tymosch

Hallo Herr Emmenegger,

anbei wie besprochen der SQL --> Problem Leerzeilemn.

Lieferadresse.Value = Document("ShipToCode") + vbcrlf

If Not LD.IsEmpty(GetData("B1_Data.ShipToAddress.Block")) Then
Lieferadresse.Value +=LD.QueryData("SELECT Block FROM CRD1 WHERE CardCode='" & Document("CardCode") & "' AND Address2='" & Document("PayToCode") & "'") + vbcrlf
End If

If Not LD.IsEmpty(GetData("B1_Data.ShipToAddress.County")) Then
Lieferadresse.Value +=LD.QueryData("SELECT County FROM CRD1 WHERE CardCode='" & Document("CardCode") & "' AND Address2='" & Document("PayToCode") & "'") + vbcrlf
End If

If Document("DocumentDocumentContactPerson.Name") <> "" And GetData("LD.Par.FormType")<> "133" And Document("DocumentDocumentContactPerson.Gender") = "M"
Lieferadresse.Value += GetData("LD.Txt.U0000127") & " " & Document("DocumentDocumentContactPerson.Name") + vbcrlf
End If

If Document("DocumentDocumentContactPerson.Name") <> "" and GetData("LD.Par.FormType")<> "133" And Document("DocumentDocumentContactPerson.Gender") = "F"
Lieferadresse.Value += GetData("LD.Txt.U0000128") & " " & Document("DocumentDocumentContactPerson.Name") + vbcrlf
End If

Lieferadresse.Value += LD.MultiLine(Document("Address2"))


mfg
G. Tymosch
Columbus Systems GmbH

Philipp Emmenegger

Guten Tag Herr Tymosch

Folgendes würde ich als 1. Probieren. Bei der letzten Zeile:

Lieferadresse.Value += LD.OneNewLine(LD.MultiLine(Document("Address2")))

Bitte melden Sie sich, falls es nicht dieses Problem war.

F.G. Ph. Emmenegger

Gebhard Tymosch

Hallo Herr Emmenegger,

habe leider immer noch die Leerzeilen.

mfg
G. Tymosch
Columbus Sytems GmbH

Philipp Emmenegger

Hier noch diese Varianten:

Lieferadresse.Value += LD.MultiLine(Document("Address2"))
Lieferadresse.Value = LD.OneNewLine(Lieferadresse.Value)


oder


If Document("DocumentDocumentContactPerson.Name") <> "" And GetData("LD.Par.FormType")<> "133" And Document("DocumentDocumentContactPerson.Gender") = "M"
Then Lieferadresse.Value += GetData("LD.Txt.U0000127") & " " & Document("DocumentDocumentContactPerson.Name") + vbcrlf
End If

If Document("DocumentDocumentContactPerson.Name") <> "" and GetData("LD.Par.FormType")<> "133" And Document("DocumentDocumentContactPerson.Gender") = "F"
Then Lieferadresse.Value += GetData("LD.Txt.U0000128") & " " & Document("DocumentDocumentContactPerson.Name") + vbcrlf
End If

Manuel Marhold

Hi..

wenn ich mal kurz was dazugeben dürfte:

Lieferadresse.Value +=LD.QueryData("SELECT Block FROM CRD1 WHERE CardCode='" & Document("CardCode") & "' AND Address2='" & Document("PayToCode") & "'") + vbcrlf

dürfte nicht funktionieren, da der PayToCode in dem Feld "Address" steht und nicht "Address2"

Also evtl. die Query ändern.

Gruß

Manuel