cancel
Showing results for 
Search instead for 
Did you mean: 

Crear Ubicaciones DI API

rimaribe
Participant
0 Kudos

Estimados,

Ante todo buenas noches.

Aplique un código que encontré para crear ubicaciones a Visual Basic y quedo de la siguiente manera.

Public oCompany As SAPbobsCOM.Company

Public oCompanyService As SAPbobsCOM.CompanyService

Public oBinService As BinLocationsService

Public oBinLoc As BinLocation

Public oBinParams As BinLocationParams

-----------------------------------------------------

Set oCompany = New SAPbobsCOM.Company

Set oCompanyService = oCompany.GetCompanyService

Set oBinService = oCompanyService.GetBusinessService(BinLocationsService)

Set oBinLoc = oBinService.GetDataInterface(blcsBinLocation)

oBinLoc.Warehouse = Trim(Me.txtCodAlm.Text)

oBinLoc.Sublevel1 = Me.txtSubNiv1.Text

oBinLoc.Sublevel2 = Me.txtSubNiv2.Text

En la linea de abajo crea la ubicación pero me aparece el mensaje "La variable de tipo objeto o la variable de bloque With no esta establecida" no entiendo porque.

oBinParams = oBinService.Add(oBinLoc)

oCompany.Disconnect

Quisiera saber porque aparece el mensaje y también quisiera poder crear los subniveles en la tabla OBSL antes de crear la ubicación, ya que si no existen me aparece el mensaje "No matching records".

Espero me puedan ayudar, gracias.

Accepted Solutions (0)

Answers (1)

Answers (1)

rimaribe
Participant
0 Kudos

Estimados,

Buenas tardes, solo para comentarles que encontré el problema, faltaba la palabra SET al principio de la linea.

SET oBinParams = oBinService.Add(oBinLoc)

Probé y creo la ubicación sin mostrar mensajes de error.

Ahora solo faltaría poder crear los subniveles en la tabla OBSL espero me puedan ayudar con esto.

Muchas gracias.

Ricardo Uribe

rimaribe
Participant
0 Kudos

Estimados,

Para comentarles que ya pude crear los subniveles, pongo el código debajo.

Public oCompany As SAPbobsCOM.Company

Public oBinSubLevelService As WarehouseSublevelCodesService

Public oBinSubLevel As WarehouseSublevelCode

Public oBinSubLevelParams As WarehouseSublevelCodeParams

-----------------------------------------------------------------------------------------------

Set oCompanyService = oCompany.GetCompanyService

Set oBinSubLevelService = oCompanyService.GetBusinessService(ServiceTypes.WarehouseSublevelCodesService)

Set oBinSubLevel = oBinSubLevelService.GetDataInterface(wscsWarehouseSublevelCode)

oBinSubLevel.Code = Me.txtSubNiv2.Text

oBinSubLevel.Description = Left(Trim(Me.txtCli.Text), 50)

oBinSubLevel.WarehouseSublevel = 2

Set oBinSubLevelParams = oBinSubLevelService.Add(oBinSubLevel)

El código esta en VB 6.0 pero fácilmente es aplicable a .Net.

Muchas gracias.