von mike6 » Mo, 20.12.2010 11:26
Hallo,
mit dem Code:
Code: Alles auswählen
Sub DatenInBrief
Dim oForm as Object
Dim oForms as Object
Dim oDocument as Object
Dim DocCtl as Object
Dim oObj as Object
Dim oCheckBox as Object
'Dokument holen
oDocument = thisComponent
DocCtl = oDocument.getCurrentController()
oForms = oDocument.Drawpage.Forms
'oForm = oForms.getByIndex(0)
oDoc = thisComponent
Dim address(4)
address() = split(oD1.getControl("cmb_vgv").Text, ",")
ChangeVariable(oDoc, "adresse_vgv", address(0) + " " + address(1))
ChangeVariable(oDoc, "adresse_strasse", address(2))
ChangeVariable(oDoc, "adresse_plz", address(3))
ChangeVariable(oDoc, "adresse_ort", address(4))
wähle ich aus dem Dropdownfeld
cmb_vgv eine Adresse aus. Die entsprechenden Daten, die an der Adresse hängen, wie strasse, plz und Ort werden automatisch in die Feldbefehle geschrieben.
Nun möchte ich zusätzlich aus einem Dropdownfeld noch einen Bearbeiter wählen. Auch hier sollen die Daten, die am Bearbeiter hängen, wie Tel-Nr., email, und Fax-Nr. automatisch in die jeweiligen Feldbefehle [ Einfügen / Feldbefehl / Variablen ] geschrieben werden.
Wie ergänze ich den Code?
Hallo,
mit dem Code:
[code]
Sub DatenInBrief
Dim oForm as Object
Dim oForms as Object
Dim oDocument as Object
Dim DocCtl as Object
Dim oObj as Object
Dim oCheckBox as Object
'Dokument holen
oDocument = thisComponent
DocCtl = oDocument.getCurrentController()
oForms = oDocument.Drawpage.Forms
'oForm = oForms.getByIndex(0)
oDoc = thisComponent
Dim address(4)
address() = split(oD1.getControl("cmb_vgv").Text, ",")
ChangeVariable(oDoc, "adresse_vgv", address(0) + " " + address(1))
ChangeVariable(oDoc, "adresse_strasse", address(2))
ChangeVariable(oDoc, "adresse_plz", address(3))
ChangeVariable(oDoc, "adresse_ort", address(4))
[/code]
wähle ich aus dem Dropdownfeld [color=#0000FF]cmb_vgv[/color] eine Adresse aus. Die entsprechenden Daten, die an der Adresse hängen, wie strasse, plz und Ort werden automatisch in die Feldbefehle geschrieben.
Nun möchte ich zusätzlich aus einem Dropdownfeld noch einen Bearbeiter wählen. Auch hier sollen die Daten, die am Bearbeiter hängen, wie Tel-Nr., email, und Fax-Nr. automatisch in die jeweiligen Feldbefehle [ Einfügen / Feldbefehl / Variablen ] geschrieben werden.
Wie ergänze ich den Code?