skript wird doppelt ausgeführt, trotz doublepass-Prüfung

Markus Rewak

Hallo,

ich möchte nach Emailversand eines Angebotes eine Aktivität in SBO anlegen. Das Problem ist das die Aktion immer doppelt ausgeführt wird. D.h. es werden 2 Aktivitäten angelegt. Nachfolgend mein code, was muss ich ändern?

Version: SAP Business One 2005A SP01 PL29
corsuite Designer: 1.357 beta



Code im CommonSkript:
-----------------------------

Dim depth As Integer
Dim isFC,FTRendered As Boolean
Dim dvat As Double
Dim vatVisible As Boolean = false

Private Sub LD_AfterPrint(company AS SAPbobsCOM.Company , sendToPrintDriver As boolean)

  If GetData("LD.Par.FormType")="149" Then
    'msgbox("SELECT Printed FROM O@@RDR WHERE DocEntry = " & GetData("LD.Par.DocEntry"))
    'If Document("Printed") = "N" Then
  
    Dim cts As SAPbobsCOM.Contacts  = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oContacts)
    cts.CardCode = GetData("B1_Data.BusinessPartner.CardCode")
    'cts.SalesEmployee =    GetData("B1_Data.UserDetails.USERID")
  
    cts.Details = "Angebot " & GetData("B1_Data.Document.DocNum")
    cts.DocEntry   = GetData("B1_Data.Document.DocEntry")   
    cts.DocTypeEx = GetData("B1_Data.Document.ObjType")
  
    Dim i As Integer = cts.Add()
  
    If i <> 0 Then
      System.Windows.Forms.MessageBox.Show("Fehler " & i & " Text " & company.GetLastErrorDescription(), "Fehler")
    End If
  
    'End If
  End If
End Sub

Code im GenerateScript:
----------------------------

'Definition of Currency
isFC = Data("B1_Data.Document.DocCur") <> Data("B1_Data.Company.MainCurncy")

'Durchschnittliche VAT
dvat = Data("B1_Data.Document.VatSum") / (IIF(Data("B1_Data.Document.DocTotal") <> 0,Data("B1_Data.Document.DocTotal"),1))

' Reset FirstLineText Flag
FTRendered = False


' Handler für die Aktivitätserstellung reg.
If Engine.IsDoublePass Then
  AddHandler LayoutHelper.LD.AfterPrint  ,AddressOf LD_AfterPrint
End If

Philipp Knecht

Hi Markus

Da bist du ganz nah dran ;)

[quote]Private Sub LD_AfterPrint(company AS SAPbobsCOM.Company , sendToPrintDriver As boolean)
If Engine.IsDoublePass Then
If GetData("LD.Par.FormType")="149" Then
...
...

End If

hth

Markus Rewak

hi Philipp,

das funzt leider auch nicht.

gruß Markus

Philipp Knecht

Hi Markus

Hmm...Versuch noch ein:
RemoveHandler LayoutHelper.LD.AfterPrint ,AddressOf LD_AfterPrint
am Ende der Prozedur.

hth