on 04-03-2017 3:31 AM
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.
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
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
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.
User | Count |
---|---|
91 | |
7 | |
7 | |
4 | |
3 | |
3 | |
3 | |
3 | |
3 | |
3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.