Showing old DocNum on MoveNext(r)MoveLast

Question

hi all,
          On this menu events iam fetching correct records from the DB & showing it in the combo box
  If pVal.MenuUID = "1288" Or pVal.MenuUID = "1289" Or pVal.MenuUID = "1290" Or pVal.MenuUID = "1291" Then
                Dim objForm As SAPbouiCOM.Form
                Dim objSORcvd As EditText
                Dim objCmbSORcvd As ComboBox
                Dim strCmbVal, strDocNum As String
                Dim objDocNum As EditText
                objForm = objSBO_Application_SORD.Forms.ActiveForm
                If objForm.TypeEx = "139" Or objForm.TypeEx = -139 Then
                    'objSORcvd = objform.Items.Item("U_PSORCVD").Specific
                    objCmbSORcvd = objform.Items.Item("cmbPSORcvd").Specific
                    objDocNum = objform.Items.Item("8").Specific----In this point when i move before also its getting the docnum of current opened form...but i want the moving docnum
                    strDocNum = objDocNum.Value
                    Dim Rs As Recordset
                    Dim strSql As String
                    Dim strRemarks As String
                    strSql = "Select U_PSORCVD from ORDR where Docnum= '" & Trim(strDocNum) & "'"
                    Rs = objCompany_SORD.GetBusinessObject(BoObjectTypes.BoRecordset)
                    Rs.DoQuery(strSql)
                    strCmbVal = Rs.Fields.Item(0).Value
                    objCmbSORcvd.Select(strCmbVal)
                End If
            End If
regards,
shangai.

Answer 1

hi vasu,
              thanks for ur reply.... i think u have not understood my problem clearly....
1.)I have created an UDF in Sales order & also i have assigned a valid value(yes,No) for this.
2.)while posting sales order iam able to select the combobox value & also iam able to add them in the ORDR table.
3.)so now for in the ORDR table i have data like this.........
DocNum............Custcode......Name.......U_Combobox
     1                    E001           John            YES
     2                    E002            Mike            NO
4.)so my problem is when iam moving next & previous the  combobox value is not showing the correct value.
5.)For DocNum 1-->it show's NO & DocNum  2--->it shows YES.
If pVal.MenuUID = "1288" Or pVal.MenuUID = "1289" Or pVal.MenuUID = "1290" Or pVal.MenuUID = "1291" Then
                Dim objForm As SAPbouiCOM.Form
                Dim objSORcvd As EditText
                objForm = objSBO_Application_SORD.Forms.ActiveForm
                 If objForm.TypeEx = "139" Or objForm.TypeEx = -139 Then
                    objCmbSORcvd = objform.Items.Item("cmbPSORcvd").Specific
                    objDocNum = objform.Items.Item("8").Specific----In this point when i move before also its getting the docnum of current opened form...but i want the moving docnum
                    strDocNum = objDocNum.Value
                    Dim Rs As Recordset
                    Dim strSql As String
                    Dim strRemarks As String
                    strSql = "Select U_PSORCVD from ORDR where Docnum= '" & Trim(strDocNum) & "'"
                    Rs = objCompany_SORD.GetBusinessObject(BoObjectTypes.BoRecordset)
                    Rs.DoQuery(strSql)
                    strCmbVal = Rs.Fields.Item(0).Value
                    objCmbSORcvd.Select(strCmbVal)
                End If
            End If
regards,
shangai.