ChooseFromList para 2 campos

Question

Hola a todos.
Estoy comenzando a trabajar con el B1 Studio. Tengo en un formulario 2 campos correspondientes al CardCode y CardName de un BP. He podido colocar el choosefromlist para el primer campo, y funciona correctamente. El problema es que estoy tratando que, una vez que el usuario seleccione el BP del choosefromlist, ademas de colocarme el CardCode en el primer campo, también me coloque el CardName en el segundo (de la misma manera que hace SAP de manera estandar). Además, desconozco si esta funcionalidad se puede realizar directamente desde el B1 Studio o debo hacerla por código.
Muchas Gracias
Saludos.

Answer 1

Hola,
     El chooseFromList tiene una propiedad que se llama browser, la cual puedes convertir en un objeto, en este caso BussinessPartner para sacar la informacion que necesites.
Te dejo el ejemplo que tiene la ayuda del SDK, para que te guies.
Private Sub DataBrowserOperations()
    '// A Data Browser object can not be created, it is invoked
    '// as a property of a business object.
    '// The BusinessPartners object is used to demonstrate the
    '// use of a DataBrowser object
    Dim BusinessPartners As SAPbobsCOM.BusinessPartners
    '// A DataBrowser object contains a Recordset object.
    '// Because a DataBrowser Object can not be created,
    '// a Recordset Object should be created and then assigned
    '// (linked) to the Recordset Property of the DataBrowser
    Dim oRecordSet As SAPbobsCOM.Recordset
    '// Get a new BusinessPartners object
    Set BusinessPartners = oCompany.GetBusinessObject(oBusinessPartners)
    '// Get a new Recordset object
    Set oRecordSet = oCompany.GetBusinessObject(BoRecordset)
    '// Perform the SELECT statement.
    '// The query result will be loaded
    '// into the Recordset object
    oRecordSet.DoQuery ("Select cardcode from ocrd where cardtype = 'C'")
    '// Asign (link) the Recordset object
    '// to the Browser.Recordset property
    BusinessPartners.Browser.Recordset = oRecordSet
    '// Access the data
    '// Once the Browser points to a row in the
    '// result set you can use the properties directly
    BusinessPartners.CardCode
    BusinessPartners.CardName
    '//Get the next Business Partner
    If BusinessPartners.Browser.EOF = False Then
        BusinessPartners.Browser.MoveNext
    End If
    '//Get the previous Business Partner
    If BusinessPartners.Browser.BoF = False Then
        BusinessPartners.Browser.MovePrevious
    End If
End Sub