Avalados por :
Estimados,
Junto con saludar les dejo los pasos de un pequeño ejemplo sobre cómo importar desde Excel usando la DI API mediante una simple macro.
1.- El primer paso consiste en abrir una hoja de cálculo Excel
2.- Luego abrimos la ventana de edición 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, cambiamos los parámetros de conexión que corresponden a su servidor y ejecutamos 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
contacto@primeinstitute.com
(+51) 1641 9379
(+57) 1489 6964
© 2024 Copyright. Todos los derechos reservados.
Desarrollado por Prime Institute