hola @GabrielGS ya solvente el problema tus codigos estan bien solo tuve que separar en 2 funciones diferentes la direcciones en ‘Bill to’ y ‘Ship to’, solo necesito que me ayudes en una ultima cosa, como agrego informacion a un campo de usuario agregado a la tabla de Socios de negocios, con esto culminaria mis dudas por hoy.
gracias por tu ayuda.
Agregar Direccion Bill to en una funcion
Dim bp As SAPbobsCOM.BusinessPartners
Dim bpA As SAPbobsCOM.BPAddresses
bp = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)
bp.GetByKey(TextBox1.Text)
bpA = bp.Addresses
bpA.AddressName = "Bill to"
bpA.City = "city"
bpA.AddressName2 = "DKSAJDKASKDAK"
bpA.State = "XX"
bpA.AddressType = SAPbobsCOM.BoAddressType.bo_BillTo
bpA.Add()
bp.Update()
agregar Direccion Ship to en otra funcion
Dim bp As SAPbobsCOM.BusinessPartners
Dim bpA As SAPbobsCOM.BPAddresses
bp = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)
bp.GetByKey(TextBox1.Text)
bpA = bp.Addresses
bpA.AddressName = "Ship to"
bpA.City = "city"
bpA.AddressName2 = "DKSAJDKASKDAK"
bpA.State = "XX"
bpA.AddressType = SAPbobsCOM.BoAddressType.bo_ShipTo
bpA.Add()
bp.Update()