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