Read in Quotation document total

Question

Hi fellow developers,
Scenario : I want to open the Sales Opportunity window when someone tries to add a Sales Quotation and the document's total exceeds some amount (1000 lets say).
Problem : I cannot even for starters read in the total from the sales document for some reason under God's blue sky.
I've checked for the following and this is what i thought i had to do but its not working :
(this is my code in VB)
'add an Sales opportunity button to the sale quotation
'form (ID =149 for a quote)
Private Sub oApp_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles oApp.ItemEvent
'For the sales order opening event
If pVal.FormTypeEx = "149" Then
'Check for the load form event and
'check for Add mode
If pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.ItemUID = "1" Then
If pVal.FormMode = SAPbouiCOM.BoFormMode.fm_ADD_MODE Then
'do something whenever quotation is added to the company
if pVal.Items.Item("29").Specific() > 1000
oApp.MessageBox("Please add this Customer as a Sales  Opportunity")
End If
Dim creationpackage As SAPbouiCOM.FormCreationParams
'Create the FormCreationParams object
creationpackage = oApp.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)
'Specify the parametes in the object
creationpackage.UniqueID = "CV_MyFormID"
creationpackage.FormType = "149"
creationpackage.BorderStyle = SAPbouiCOM.BoFormBorderStyle.fbs_Fixed
'add the form to the SBO application
'on error GoTo ErrHandle
Try
oForm = oApp.Forms.AddEx(creationpackage)
Catch ex As Exception
End Try
oForm.Visible = True
oForm.Freeze(True)
End If
End If
End If
End Sub
I know there is something small here i'm missing out on..please some one help me
Anything is greately appreciated.
Kind regards,
Greeshma

Answer 1

Hi Ian,
Thanks for your help. Much appreciated I think the only problem I am having now is how to make the Sales Opportunity open when the quotation total is over a certain amount. My code looks like this :
'For the sales quotation opening event
If pVal.FormTypeEx = "149" Then
'check for Add mode of Update Mode UPDATEMODE
If pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.ItemUID = "1" Then
If pVal.FormMode = SAPbouiCOM.BoFormMode.fm_ADD_MODE And Not pVal.Before_Action Then
oApp.MessageBox("Add mode")
Dim oForm As SAPbouiCOM.Form
Dim oEdit As SAPbouiCOM.EditText
oEdit = pVal.Items.Item("29").Specific()
oApp.MessageBox("total : " & oEdit.String)
If oEdit.String > 10 Then
oApp.ActivateMenuItem("2566")
End If
Please advise why its not working?
Thanks !
Greeshma