Skip to Content
0
Former Member
Apr 19, 2010 at 02:16 PM

Update Database using FlushTODataBase()

29 Views

hello there!!!!

i have to move back the data to the Database which i have allready loaded into Marix,or u can say i have to update the same table in which i got the data...

i dont know how to handle it coz i m a new in SAPB1. so please help me out....

here is my Sample Code

Public Sub HandleEventts_Allowance(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef EventEnum As SAPbouiCOM.BoEventTypes, ByRef BubbleEvent As Boolean)

Try

Dim oCellValue As SAPbouiCOM.EditText

If FormUID.Equals("Allowance") Then

If (pVal.ItemUID = "MatAllow") Then

If pVal.Row = 0 Then Exit Sub

o_Matrix = SBO_Application1.Forms.Item(FormUID).Items.Item("MatAllow").Specific

If (pVal.Row > o_Matrix.RowCount) Then Exit Sub

oForm = SBO_Application1.Forms.Item(FormUID)

If (pVal.ItemUID = "1" Or EventEnum = SAPbouiCOM.BoEventTypes.et_CLICK) Then

o_Matrix = SBO_Application1.Forms.Item(FormUID).Items.Item("MatAllow").Specific

If pVal.ColUID = "ColName" And pVal.BeforeAction = True Then

If pVal.Row = 0 Then Exit Sub

oCellValue = CType(o_Matrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific(), SAPbouiCOM.EditText)

If (oCellValue.Value.Trim().Equals(String.Empty) And o_Matrix.RowCount <> pVal.Row) Then

SBO_Application1.StatusBar.SetText("Invalid Allowance ID: Blank Value Not Allowed", )

oCellValue.Active = True

BubbleEvent = False

Exit Sub

End If

End If

End If

End If

End If

Validate(pVal, EventEnum, FormUID, BubbleEvent)

Catch ex As Exception

SBO_Application1.MessageBox(ex.Message)

End Try

End Sub