Change Payment terms combo value when change Total Document

Question

Hi:
I need to change the selected value of payment terms combo (Item 47) of the  form(133). This combo is placed in the third pannel of a form. Always appear the message “Valid Value – Value do not exist”
The code is :
Dim cItem As SAPbouiCOM.ComboBox
If pVal.FormType = "65300" Or pVal.FormType = "133" Then
'facturas deudores y facturas de anticipo de deudores
'cambiamos la forma de pago si llega a cierta cantidad
If pVal.ItemUID = "38" And (pVal.ColUID = "11" Or pVal.ColUID = "17") And pVal.EventType = BoEventTypes.et_VALIDATE And pVal.ItemChanged = True Then
      ' el evento es que cambie el total
      oForm = SBOApp.Forms.Item(FormUID)
      oItem = oForm.Items.Item("4").Specific
      StrCliente = oItem.Value
      oItem = oForm.Items.Item("29").Specific
      dblImporteTotal = CMonedaToNumber(oItem.Value)
      BuscarFormaPago(StrCliente, dblImporteTotal, StrFormaPago)
      cItem = oForm.Items.Item("47").Specific
   If cItem.Selected.Value <> StrFormaPago And StrFormaPago <> "" Then
       cItem.Select(StrFormaPago, SAPbouiCOM.BoSearchKey.psk_ByValue)
   End If
End If
End If
Protected Sub BuscarFormaPago(ByVal StrCliente As String, ByVal DblImporte As Double, ByRef StrFormaPago As String)
Dim StrDato As String
StrDato = CStr(FNDameValor("[@" & StrPrefijo & "_FPAGO]", "U_" & StrPrefijo & "_OCTG", "U_" & StrPrefijo & "_OCRD='" & StrCliente & "' and U_" & StrPrefijo & "_IMP<=" & FNComPunN(DblImporte) & " ORDER By U_" & StrPrefijo & "_IMP DESC", pCmp))
StrFormaPago = StrDato
End Sub
I´ve used BoSearchKey.psk_ByValue,but with psk_Index or psk_ByDescription .I have the same problem.
Thanks for all
Joaquin Gomez

Answer 1

Hi Joaquin,
Why don´t you use a formatted search instead of coding?
The formatted search should be executed when the total is changed. And the value should be what BuscarFormaPago returns.
Regards,
Ibai Peñ