Skip to Content
0

Crear Ubicaciones DI API

Apr 03, 2017 at 02:31 AM

79

avatar image

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.

10 |10000 characters needed characters left characters exceeded
* Please Login or Register to Answer, Follow or Comment.

1 Answer

Ricardo Uribe Apr 03, 2017 at 07:44 PM
0

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

Show 1 Share
10 |10000 characters needed characters left characters exceeded

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.

0