Getting an invalid Item error when resizing(maximizing) the form.

Question

Hi Experts,
                  I have an error when in click sales A/R invoice...i have added some functionality in that as extra...all r working fine but some times when i minimize the window & again maximize(resize) it this error message is being displayed(only after 10-15 clicks).can anybody tell me some suggestions...
System.Runtime.InteropServices.ComException(oXFFFFF7F9):Item -Invalid
item[6600-3].form Unique id:'F_173',Item Unique ID:'100000330'
at SAPbobosCOM.ItemClass.Item(Object Index)
at SampleProject.clsARInvoice.FormResize(String FormUID,ItemEvent & pVal,Boolean&
BubbleEvent) in D:\sampleproject
Here is my coding for resizing the form
  Sub FormResize(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean)
        Try
            Dim objForm As SAPbouiCOM.Form
            Dim objCopyFromBtn As Object
            Dim objBtn As SAPbouiCOM.Button
            objForm = objSBO_Application_ARINV.Forms.ActiveForm
            Select Case pVal.Before_Action
                Case False
                    If addFlag = True And bCMFlag = False And bBGFlag = False And bOAFlag = False And bCHFlag = False Then
               "<----In this line the error occurs------------------>"
                        objCopyFromBtn = objForm.Items.Item("10000330")
               "<----In this line the error occurs------------------>"
                        objForm.Freeze(True)
                        objForm.Items.Item("btnSaleQtn").Left = objCopyFromBtn.left - 5 - 200 '- 275
                        objForm.Items.Item("btnSaleQtn").Top = objCopyFromBtn.Top
                        objForm.Items.Item("txtQtnNo").Left = objForm.Items.Item("btnSaleQtn").Left - 5 - 100 '- 275
                        objForm.Items.Item("txtQtnNo").Top = objCopyFromBtn.Top
                        objForm.Items.Item("lblQtnNo").Left = objForm.Items.Item("txtQtnNo").Left - 5 - 100 '- 275
                        objForm.Items.Item("lblQtnNo").Top = objCopyFromBtn.Top
                        objForm.Freeze(False)
                    End If
                    bCMFlag = False
                    bBGFlag = False
                    bOAFlag = False
                    bCHFlag = False
            End Select
        Catch ex As Exception
            objSBO_Application_ARINV.MessageBox(ex.ToString)
        End Try
    End Sub
regards,
shangai.

Answer 1

okey. catch the Form_resize event for Form 133 (A/R invoice) and inside it, call FormResize procedure .
If pVal.FormType = "133" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_RESIZE And pVal.Before_Action = True Then
                Try
                    FormResize(pVal.FormType, pVal.EventType, pVal.FormTypeCount, BubbleEvent)
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End If
you will  have to modify the procedure's receiving arguments accordingly.
within this procedure, as I mentioned before,
Sub FormResize(ByVal FormType As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByVal FormTypeCount As Integer, ByRef BubbleEvent As Boolean)
        Try
            Dim objForm As SAPbouiCOM.Form
            Dim objCopyFromBtn As Object
            Dim objBtn As SAPbouiCOM.Button
objForm = objSBO_Application_ARINV.Forms.GetForm(FormType, FormTypeCount)
            '---------rest of the code
        Catch ex As Exception
        End Try
    End Sub
GetFormByTypeAndCount is Deprecated so to be on safe side , use 'GetForm'. it does the same thing .
try this.
regards,
Binita
for your question about Count of the form, in SAP we can have multiple instance of standard forms and in that case, to uniquely identify each instance, it is better to refer to that form by not just its type but also with its count. so if you open three A/R invoice Form, you will have three form with Type 133 but with different count.
Edited by: Binita  Joshi on Aug 22, 2008 8:57 AM