Skip to Content
0
Aug 07, 2012 at 06:07 PM

Import bank statement from excel using DI API

292 Views

Hi

Sorry me for my english

I'm trying to import bank statement from excel, but i'm new in all of this about SDK

The excel structure is:

And the macro is:

Public Sub Import_bankst()        Dim SboGuiApi     As New SAPbouiCOM.SboGuiApi    Dim SBO_App       As SAPbouiCOM.Application    Dim oCompany      As New SAPbobsCOM.Company    Dim row           As Long    SboGuiApi.Connect ("0030002C0030002C00530041005000420044005F00440061007400650076002C0050004C006F006D0056004900490056")    Set SBO_App = SboGuiApi.GetApplication()    Set oCompany = SBO_App.Company.GetDICompany()        Dim oBnkStSrv As SAPbobsCOM.BankStatementsService    Dim oCmpSrv As SAPbobsCOM.CompanyService    Dim oBankStatement As SAPbobsCOM.BankStatement    Dim oBnkStRow As SAPbobsCOM.BankStatementRow    Dim MultiPayment As SAPbobsCOM.MultiplePayment    Set oCmpSrv = oCompany.GetCompanyService            Set oBnkStSrv = oCmpSrv.GetBusinessService(SAPbobsCOM.ServiceTypes.BankStatementsService)    Set oBankStatement = oBnkStSrv.GetDataInterface(SAPbobsCOM.BankStatementsServiceDataInterfaces.bssBankStatement)            row = 2    oBankStatement.BankAccountKey = ActiveSheet.Cell(row, 1)    Do While ActiveSheet.Cell(row, 1) <> ""                oBnkStRow = oBankStatement.BankStatementRows.Add()        oBnkStRow.DueDate = ActiveSheet.Cell(row, 2)        oBnkStRow.DebitAmountLC = ActiveSheet.Cell(row, 3)        oBnkStRow.CreditAmountLCo = ActiveSheet.Cell(row, 4)        oBnkStRow.Details = ActiveSheet.Cell(row, 5)        oBnkStSrv.AddBankStatement (oBankStatement)                row = row + 1            Loop        oCompany.Disconnect    End Sub

I follow examples from SDK help and some are successful

If someone can tell me what is wrong.

Best Regards.

Felipe

Attachments

ScreenShot016.jpg (14.2 kB)