Skip to Content

Crear Ubicaciones DI API

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.

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

1 Answer

  • Apr 03, 2017 at 07:44 PM

    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

    Add comment
    10|10000 characters needed 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.