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 MarkusDa 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 MarkusHmm...Versuch noch ein:
RemoveHandler LayoutHelper.LD.AfterPrint ,AddressOf LD_AfterPrint
am Ende der Prozedur.
hth
0
Please sign in to leave a comment.
Comments
0 comments