Estimados,
Junto con saludar les dejo los pasos de un pequeño ejemplo sobre como importar desde excel usando la DI API mediante una simple macro.
1.- El primer paso consiste en abrir una hoja de calculo excel
2.- Luego abrimos la ventana de edicion de visual basic que trae excel para programar macros
3.- Agregamos las referencias de la DI API de SAP al trabajo actual
4.- Insertamos el código, cambian los parámetros de conexión que corresponden a su servidor y ejecutan el código
Public Sub Imp_Items()
Dim oCompany As SAPbobsCOM.Company
Dim lRetCode, ErrorCode As Long
Dim ErrorMessage As String
Set oCompany = New SAPbobsCOM.Company
oCompany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_MSSQL2008
oCompany.DbUserName = "sa"
oCompany.DbPassword = "********"
oCompany.Server = "localhost"
oCompany.CompanyDB = "SBODemoCL"
oCompany.UserName = "manager"
oCompany.Password = "manager"
oCompany.UseTrusted = False
lRetCode = oCompany.Connect()
Dim Retval As Long
Dim vItem As SAPbobsCOM.Items
Set vItem = oCompany.GetBusinessObject(oItems)
Row = 2
Do While ActiveSheet.Cells(Row, 1) <> ""
vItem.ItemCode = ActiveSheet.Cells(Row, 1)
vItem.ItemName = ActiveSheet.Cells(Row, 2)
If vItem.ItemCode <> "" Then
Retval = vItem.Add
End If
Row = Row + 1
Loop
oCompany.Disconnect
End Sub
Luego en SAP buscamos los articulos
Saludos y espero les haya gustado.
Felipe
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
5 | |
2 | |
2 | |
2 | |
2 | |
2 | |
2 | |
1 | |
1 | |
1 |