on 12-26-2012 12:45 PM
Hi srnivas,
Its not clear to me if you want to save a draft document or replicate user click at SBO UI.
to save a draft document see this example taken from SDK Help
Sub AddInvoice_Click()
Dim RetVal As Long
Dim ErrCode As Long
Dim ErrMsg As String
'Create the Documents object
Dim vDrafts As SAPbobsCOM.Documents
Set vDrafts = vCmp.GetBusinessObject(oDrafts)
'Set values to the fields
vDrafts.DocObjectCode = oInvoices
vDrafts.CardCode = "BP234"
vDrafts.HandWritten = tNO
vDrafts.DocDate = "21/8/2003"
vDrafts.DocTotal = 264.6
'Invoice Lines - Set values to the first line
vDrafts.Lines.ItemCode = "A00023"
vDrafts.Lines.ItemDescription = "Banana"
vDrafts.Lines.Quantity = 50
'Invoice Lines - Set values to the second line
vDrafts.Lines.Add
vDrafts.Lines.ItemCode = " A00033"
vDrafts.Lines.ItemDescription = "Orange"
vDrafts.Lines.Quantity = 1
'Add the Invoice
RetVal = vDrafts.Add
'Check the result
If RetVal <> 0 Then
vCmp.GetLastError ErrCode, ErrMsg
MsgBox ErrCode & " " & ErrMsg
End If
End Sub
To replicate user click try this (also seen at SDK Help, dont know if it works)
B1_Application.Menus.Item("5907").Activate() 'im using B1DE. if not change b1_application to your ui aplication object
Hope this helps you
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
99 | |
12 | |
11 | |
6 | |
6 | |
4 | |
3 | |
3 | |
3 | |
3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.