hi all,
i am doing following code. but when i leave that cell its going in loop and hang the system
If (pVal.ColUID = ("V_10") Or pVal.ColUID = ("V_3")) And pVal.EventType = SAPbouiCOM.BoEventTypes.et_VALIDATE And pVal.Before_Action = True Then
Dim oMat As SAPbouiCOM.Matrix
Dim oPkgsize, oPks As SAPbouiCOM.EditText
Dim test As SAPbouiCOM.EditText
'Dim oEditSample, EditUpperVal, EditLowerVal As SAPbouiCOM.EditText
'Dim k As Integer
'Dim EntryExit As Boolean = False
'Dim val, SelectStr, splt1, splt2, splt, splt3, splt4 As String
'Dim FinalVal As Integer
'Dim oRecordset6 As SAPbobsCOM.Recordset
Try
oForm = SBO_Application.Forms.ActiveForm()
oMat = oForm.Items.Item("28").Specific
oPkgsize = oMat.Columns.Item("V_10").Cells.Item(pVal.Row).Specific
oPks = oMat.Columns.Item("V_3").Cells.Item(pVal.Row).Specific
TotalPks = Convert.ToDouble(oPkgsize.Value.ToString) * Convert.ToDouble(oPks.Value.ToString)
'test.Value = TotalPks
here is going in loop>>> oMat.Columns.Item("V_14").Cells.Item(pVal.Row).Specific.value = TotalPks.ToString
'oForm.DataSources.DBDataSources.Item("@SCHCON1").SetValue("U_PKGQTY", pVal.Row, "0.0")
'oForm.DataSources.DBDataSources.Item("@SCHCONT").SetValue("U_REMARKS", 0, TotalPks.ToString)
'oForm.DataSources.DBDataSources.Item("@SCHCON1").SetValue("U_BoxNo1", pVal.Row, TotalPks.ToString)
Catch ex As Exception
End Try
End If
plz help me..
thanks in advance