Druck des Rechnungsempfängers des Beleges

Daniel Ebi

Hallo zusammen,
in SBO gibt es ja jetzt die Möglichkeit mehere Rechnungsempfänger einen Geschäftspartner zu hinterlegen. Im Feld "Rechungsempf." eines Beleges kann dann die gewünschte Adresse ausgewählt werden.

Bisher haben wir auf dem Beleg die Adressfelder 1-3 der Standardrechnungsadresse gedruckt:
BillToAdress.Value = GetData("B1_Data.BillToAddress.Address")+ vbcrlf
BillToAdress.Value += GetData("B1_Data.BillToAddress.Address2")+ vbcrlf
BillToAdress.Value += GetData("B1_Data.BillToAddress.Address3").......

Jetzt soll dies variabel, also abhängig von der gewählten Rechnungsadresse geschehen.

Kann mir jemand weiterhelfen? Ich habe keine Tabelle/Daten hierzu gefunden.

Vielen Dank.

Schöne Grüsse

Daniel

Philipp Knecht

Hi Daniel

Ab der nächsten Version ist diese Datensource auch mit drin.
Eventuell hilft dir aber schon das Feld Document"PayToCode") weiter.

hth

Michael Weil

Hallo,
ich möchte ebenso die Felder "Adresse2" und "Adresse3" der im Dokument gewählte Rechnungsadresse drucken. Dazu habe ich das Generate Script um die Einträge "GetData(B1_Data.BillToAdress.Adress...") ergänzt. Hier bekomme ich aber immer die als Standard festgelegten Einträge des Geschäftspartners. Abweichende Rechnungsempfängeradressen aus den Belegen werden nicht berücksichtigt.
Für die Lieferadresse bin ich ebenso vorgegangen. Hier funktioniert es.
Was mache ich bei der Rechnungsadresse falsch?
Grüße
Michael

billToAdr = LD.OneNewLine(GetData("B1_Data.BillToAddress.Address2")& vbcrlf & GetData("B1_Data.BillToAddress.Address3") & vbcrlf & LD.MultiLine(Document("Address")))
' 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 = LD.OneNewLine(GetData("B1_Data.ShipToAddress.Address2") & vbcrlf & GetData("B1_Data.ShipToAddress.Address3") & 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

Philipp Knecht

Hallo

Hast du dir diese Felder mal sep. anzeigen lassen ob überhaupt was drin steht.
(Einfach aufs Layout zb. in den PageHeader ziehen)

hth

Michael Weil

:bang:

Manchmal hilft ja auch ein einfacher Hinweis.

In dem Script muss es als Datasource "B1_Data.BillToPayCodeAdress. ..." heissen und nicht wie ich ausgewählt hatte "B1_Data.BillToAdress. ..."

Dann funktioniert es!

Dank.

Michael