Muchas gracias por responder. Efectivamente hice lo que me recomendaste y el inconveniente se ha superado, ahora tengo otro tema con el mismo campo.
Te comento: vincule el campo de esta manera:
_EditText.DataBind.SetBound(True, “OCRD”, “U_Prueba”)
asi le doy formato y de una vez lo vinculo como indicaste.
el tema ahora es que cuando selecciono algo de ese ChooseFromList no me lo muestra el el campo. te comparto las imagenes para hacerme entender.
En la imagen anterior puedes ver el campo con el choosefromList y la ventana que se muestra, pero al seleccionar alguna de las opciones no la muestra en el campo. Queda vació.
El codigo que estoy utilizando es este:
mira, creo el control del choosefromlist con:
REM Creación de ChoosefromList
_ItemRef = _Form.Items.Item("75")
_Item = _Form.Items.Add("U_ChlCap", SAPbouiCOM.BoFormItemTypes.it_EDIT)
_Item.Top = _ItemRef.Top
_Item.Left = _ItemRef.Left + 150
_Item.Width = _ItemRef.Width
_Item.Height = _ItemRef.Height
_Item.FromPane = "6"
_Item.ToPane = "6"
REM propiedades del ChooseFromList
_CFLCreationParams = _APP.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
_CFLCreationParams.MultiSelection = False
_CFLCreationParams.ObjectType = "40"
_CFLCreationParams.UniqueID = "CflCap"
_ChooseFromLists = _Form.ChooseFromLists
_ChooseFromList = _ChooseFromLists.Add(_CFLCreationParams)
_EditText = _Form.Items.Item("U_ChlCap").Specific
_EditText.DataBind.SetBound(True, "OCRD", "U_Prueba")
_EditText.ChooseFromListUID = "CflCap"
_EditText.ChooseFromListAlias = "PymntGroup"
luego capturo el evento
Case SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST
_BubbleEvent = SeleccionaChooseFromList()
esta es la función que estoy llamando: en donde filtro que sea cuando el id del item sea U_ChlCap, ejecute la otra función PinchaChooseFromList
Private Function SeleccionaChooseFromList() As Boolean
Try
_BubbleEvent = True
Select Case _Evento.ItemUID
Case "U_ChlCap"
_BubbleEvent = PinchaChooseFromList()
End Select
Catch ex As Exception
_APP.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
_BubbleEvent = False
End Try
Return _BubbleEvent
End Function
En la funcion pinchachoosefromlist realizo la captura de la opcion escogida y la estoy mostrando en un mensaje de SAP. Es aca en donde no he encontrado la forma de mostrarlo en el campo del choosefromlist, deberia ser despues del mensaje de SAP.
Private Function PinchaChooseFromList() As Boolean
Try
_BubbleEvent = True
If Not _Evento.BeforeAction Then
_DataTable = CargaChooseFromList(_Evento, _Form)
If Not _DataTable Is Nothing Then
Dim val As String = String.Empty
Try
val = _DataTable.GetValue("PymntGroup", 0)
_APP.MessageBox(val)
_Form.DataSources.UserDataSources.Item("").ValueEx
Catch ex As Exception
_APP.MessageBox(ex.Message)
_BubbleEvent = False
End Try
End If
End If
_Form.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE
Catch ex As Exception
_APP.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
_BubbleEvent = False
End Try
Return _BubbleEvent
End Function
Muchas gracias por tu tiempo y ayuda, espero me puedas orientar en lo que debo realizar.
