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 UDFAttachment
[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 AndreasIn 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
Please sign in to leave a comment.
Comments
0 comments