Set UDF after print: script error

Marcus R. Burch

Hallo Philipp,

Ich erhalte folgende Fehlermeldungen bei der Scriptprüfung:
(sende ich dir per mail)

Private Sub MyAfterPrint(oCmp As SAPbobsCOM.Company, isPrinted As Boolean)
If GetData("LD.Par.PrintMode")="N" Or GetData("LD.Par.PrintMode")="E" Then ' And isPrinted Then
Dim oDoc As SAPbobsCOM.Documents = oCmp.GetBusinessObject(Document("ObjType"))
With oDoc
.GetByKey(Document("DocEntry"))
(line 11) If LD.IsEmpty(.UserFields.FIELDS("U_PrintDate").VALUE) Then
(line 12) .UserFields.FIELDS("U_PrintDate").VALUE = Now
.Update
End If
MsgBox(.CardName)
End With
End If
End Sub

Gruss, Markus

Philipp Knecht

Hoi Markus

[quote]...
If LD.IsEmpty(.UserFields.Item("U_PrintDate").Value) Then
.UserFields.Item("U_PrintDate").Value = Now
.Update
End If
...

hth

Marcus R. Burch

Hoi Philipp,

Vielen Dank für Deine schnelle Antwort.
Mit "Item" gibt es nun keine Scriptfehlermeldung mehr.

Das Script wird aber genau an dieser Stelle gestoppt. An diese Stelle kann ich mittels MsgBox debugen. UDF's kann ich nicht mittels MsgBox anzeigen, Standardfelder wie .CardCode gehen. Also muss das Problem an der Syntax (Zugriff auf UDF) liegen?
Idee?

Gruss, Markus

Philipp Knecht

Hoi Markus

Hmm Versuchs mal mit [quote].UserFields.Fields.Item("U_PrintDate").Value( so hats bei mir auch schon mal funktioniert.
Ansonsten das DI Manual konsultieren (Kann man irgendwo auf dem SDN downloaden)

Gruss

Marcus R. Burch

Salu Philipp,

Ich komme so nicht weiter.

Mit der korrekten Syntax ".Userfields.Fields(..." funktioniert dies mittels einem AddOn (VB6) problemlos. (alle unsere AddOn's funktionieren mit UDF so - auch gemäss SDK DI Doku!). Hier erhalte ich im LD aber eine Fehlermeldung.

Mittels ".Userfields.Item(..." erhalte ich wohl keine Fehlermeldung mehr, aber das Script wird an der Stelle abgebrochen. Ich habe verschiedene Test durchgeführt.

Nur mit UDF's habe ich Probleme. Standardfelder funktionieren.

Kannst Du mir irgendwie weiterhelfen?

Gruss, Markus

Philipp Knecht

Hi Markus

Habs jetzt n o0chmals kontrolliert. Wir machen es effektiv mit [quote].UserFields.Fields.Item("U_PrintDate").Value(
Bitte überprüf die Syntax nochmal.

hth

Marcus R. Burch

Hallo Philipp,

Kannst Du bitte die Synax weiter vervollständigen? Wie geht es nach der Klammer weiter?

".UserFields.Fields.Item("U_PrintDate").Value(" .......... ????

Vielen Dank.
MB