LD_AfterPrint funktioniert nach Update nicht mehr

Monika Lutz

Hallo allerseits,

wir verwenden seit einem Jahr ein Layout, welches das LD_AfterPrint-Event benutzt.

Seit dem letzen Update funktioniert es nicht mehr.
Der Event-handler wird offensichtlcih nicht ausgeführt: Ich habe direkt am Anfang eine MessageBox eingefügt, die aber nie erscheint.

Hat sich hier etwas geändert?

Bisher funktionierte folgender Code:

im Generate Script:

sSQL = "SELECT count(T0.DocEntry) FROM OQUT T0 WHERE T0.DocType = 'I' and (T0.U_ZVorgArt = 'S'OR T0.U_ZVorgArt = 'SL' OR T0.U_ZVorgArt = 'SK') and (T0.U_ZSimSta = '5' OR T0.U_ZSimSta = '6') and T0.CANCELED ='N' and T0.DocStatus <> 'C'"
iSize = LD.QueryDataNum(sSQL)
ReDim aDocEntries(iSize -1)

If Engine.IsDoublePass Then
AddHandler LayoutHelper.LD.AfterPrint,AddressOf LD_AfterPrint
End If

im CpmmonScript:

Dim sSQL As String = sSQL = "SELECT count(T0.DocEntry) FROM OQUT T0 WHERE T0.DocType = 'I' and (T0.U_ZVorgArt = 'S'OR T0.U_ZVorgArt = 'SL' OR T0.U_ZVorgArt = 'SK') and (T0.U_ZSimSta = '5' OR T0.U_ZSimSta = '6') and T0.CANCELED ='N' and T0.DocStatus <> 'C'"
Dim iSize As Integer
Dim aDocEntries()As Integer
Dim iIndex As Integer = 0
Dim dSumme As Double = 0.0
Dim dProvSumme As Double = 0.0

Private Sub LD_AfterPrint(company AS SAPbobsCOM.Company , sendToPrintDriver As boolean)
'Wenn Parmeter Free text nicht leer ist alle Vorgänge schließen
System.Windows.Forms.MessageBox.Show("After Print", "OK")
If (GetData("LD.Par.FreeText")).ToString = "c" Then
Dim oAngebot As SAPbobsCOM.Documents
oAngebot = company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oQuotations)
For each i as Integer in aDocEntries
Try
oAngebot.GetByKey(i)
oAngebot.Close()
Catch ex As Exception
System.Windows.Forms.MessageBox.Show(company.GetLastErrorDescription(), "Fehler")
End Try
Next i
End If
End Sub


Danke Monika

Philipp Knecht

Hallo Monika

Hab es es hier bei mir mit 1.72 getestet.
Funktioniert einwandfrei.

Ein Update könnte helfen.

hth

Monika Lutz

Danke, nach Update auf Version 1.72 funktioniert es wieder.

Gruß Monika