Hi,
Per Aufgabencenter lasse ich eine Liste der Belege aufrufen welche freigegeben sind zur Übergabe an den Stapeldruck. Diese will ich auswählen und per Rechtsklick an den Stapeldruck senden sowie einen Eintrag in die DB machen. Aktuell sieht mein code wie folgt aus. Das funktioniert alles, aber ich weiß nicht wie ich an den Stapeldruck übergeben kann. Quasi ein shortcode so etwa wie: gbOpenErfassungVKAddIn([$Spalte:BelID:Quote(")], 1) - das ist natürlich zum bearbeiten für einen Beleg, nur als Beispiel falls jemand nicht ganz versanden hat was ich meine. Die liste der Aufgabencenter Shortcodes finde ich leider nicht mehr. Danke
Per Aufgabencenter lasse ich eine Liste der Belege aufrufen welche freigegeben sind zur Übergabe an den Stapeldruck. Diese will ich auswählen und per Rechtsklick an den Stapeldruck senden sowie einen Eintrag in die DB machen. Aktuell sieht mein code wie folgt aus. Das funktioniert alles, aber ich weiß nicht wie ich an den Stapeldruck übergeben kann. Quasi ein shortcode so etwa wie: gbOpenErfassungVKAddIn([$Spalte:BelID:Quote(")], 1) - das ist natürlich zum bearbeiten für einen Beleg, nur als Beispiel falls jemand nicht ganz versanden hat was ich meine. Die liste der Aufgabencenter Shortcodes finde ich leider nicht mehr. Danke
Code:
'Option Explicit
Dim oZeile 'As Object
Dim oSelektierteZeile 'As Object
Dim i 'As Long
Dim lBelID 'As Long
i = 0
'For timer
For Each oZeile in goInfo.SelektierteZeilen
i = i+1
lBelID = goInfo.SelektierteZeilen(i).Felder("BelID").Value
goinfo.Datenverbindung.bExecute "UPDATE KHKVKBelege SET USER_SendFlag = 1 WHERE USER_AllowSend = 0 AND Mandant = " & goMandant.nId & " AND BelID = " & lBelID
Next