Staus check?

Question

Hi expert all
please help me how to write this code just like invoice   
when invoice is payment status closed other wise open.....
please  help me? explain clearly

Answer 1

thanks   for reply both of you
i used this code   but   what happend when i run this code  that sap business one  application  screen
  forcefully shut down. no error generated
please help  me out of this problem?
''>>>>>>>>>>>>>>>>>>>>>>>>>> status
        oItem = oForm.Items.Add("Status", SAPbouiCOM.BoFormItemTypes.it_EDIT)
        oItem.Left = 420
        oItem.Width = 123
        oItem.Top = 35
        ' oItem.AffectsFormMode = True
        'oItem.LinkTo = "desiTxt"
        oItem.Enabled = False
        oEdittext = oItem.Specific
        oEdittext.DataBind.SetBound(True, "@VULC", "U_Status")
Private Function GetStatus(ByRef oCompany As SAPbobsCOM.Company, ByRef oApplication As SAPbouiCOM.Application, ByRef oForm As SAPbouiCOM.Form) As Boolean
        GetStatus = False
        Try
            With oForm.DataSources.DBDataSources.Item("@VULC")
                If .GetValue("Canceled", .Offset) = "N" Then
                    If .GetValue("Status", .Offset) = "O" Then
                        oForm.Items.Item("Status").Specific.Value = "Open"
                    Else
                        oForm.Items.Item("Status").Specific.Value = "Closed"
                    End If
                Else
                    oForm.Items.Item("Status").Specific.Value = "Canceled"
                End If
            End With
            GetStatus = True
        Catch ex As Exception
            oApplication.MessageBox("GetStatus(): " & oCompany.GetLastErrorCode.ToString & ex.ToString)
        End Try
    End Function
'''''''''''''''''   then
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        Dim oForm As SAPbouiCOM.Form
        oForm = SBO_Application.Forms.Item(FormUID)
If pVal.BeforeAction = False Then
            Select Case pVal.EventType
                Case SAPbouiCOM.BoEventTypes.et_FORM_LOAD
                    GetStatus(oCompany, SBO_Application, oForm)
            End Select
        End If
end sub
thanks & regards
Avirupe