aus Layout heraus Belegnummer in UDF schreiben

Meike Schlenker

Hallo zusammen,

ich möchte meine Belegnummer zusätzlich in ein dafür angelegtes PDF schreiben. Folgenden Quellcode verwende ich dafür:

If Not Engine.IsDoublePass And GetData("LD.Par.PrintMode") = "P" Then
Try
Dim company As SAPbobsCOM.Company
Dim doc As SAPbobsCOM.Documents

company = SwissAddonFramework.B1Connector.GetB1Connector().Company


Select GetData("LD.Par.FormType")
' AR Rechnung
Case "139":
doc = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
' AR Auftrag
Case "133":
doc = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
' AR Lieferung
Case "140":
doc = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDeliveryNotes)
' AP Rechnung
Case "141":
doc = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseInvoices)
' AP Bestellung
Case "142":
doc = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseOrders)
' AP Wareneingang
Case "143":
doc = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes)
' AR Angebot
Case "149":
doc = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oQuotations)
' AR Gutschrift
Case "179":
doc = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oCreditNotes)
' AR Retoure
Case "180":
doc = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oReturns)
' AP Gutschrift
Case "181":
doc = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseCreditNotes)
' AP Retoure
Case "182":
doc = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseReturns)
End Select

If Not IsNothing(doc) Then
doc.GetByKey(Document("DocEntry"))
doc.UserFields.Fields.Item("U_novaline").Value = Document("DocNum")
Dim i As Integer
i = doc.Update()
If i > 0 Then
SwissAddonFramework.UI.Dialogs.MessageBox.Show("Fehler : " & i & " " & company.GetLastErrorDescription(),"Ok")
End If
End If
Catch Ex As Exception
SwissAddonFramework.UI.Dialogs.MessageBox.Show("-"+Ex.Message,"Ok")
End Try
End If


Sobald ich jedoch den Beleg in ein PDF-Dokument exportiere, bekomme ich angehangene Fehlermeldung...

Freue mich über jeden Lösungsvorschlag diesbezüglich.

Gruß Meike

Attachment
[url=http://www.coresystems.ch/wp-content/../wp-content/forum-image-uploads/meikeschlenker/error_message.JPG]error_message.JPG[/url]

Meike Schlenker

dazugehöriges UDF

Attachment
[url=http://www.coresystems.ch/wp-content/../wp-content/forum-image-uploads/meikeschlenker/udf.JPG]udf.JPG[/url]

Andreas Schlingmann

Hallo Meike,
hatte mal ein ähnliches Problem. Siehe hier :

http://www.coresystems.ch/forum.html?&tx_mmforum_pi1[action]=list_post&tx_mmforum_pi1[tid]=3009

Das sollte helfen.
Andreas

Philipp Knecht

Hi Meike, hi Andreas

In diesem Falle würde ich einfach B1 mal neu starten. Ist eine generelle Fehlermeldung und desshalb kann ich auch nichts dazu sagen.

Pass aber auf wenn du dieses Script im Generatescript verwendest. Du greifst nämlich via Documen("....") auf Daten zu daber dieses DatasBand ist ev. nicht initialisiert. Also hier besser GetData(...) nehmen.

hth

Sascha Balke

Hallo Meike,

es besteht auch die Möglichkeit, z.B. die DocNum in ein UDF via Customize zu schreiben, sobald der Beleg hinzugefügt wird. Möchtest du das jedoch erst zum Belegdruck selbst das UDF befüllen, bleibt dir nur der Weg, wie er exemplarisch von Andreas beschrieben worden ist.

hth
0

Comments

0 comments

Please sign in to leave a comment.

Didn't find what you were looking for?

New post