REM  *****  BASIC  *****

'Stock Management
sub OpenForm_StockMgmt( oev as variant )
sFormName = "StockManagement"
OpenForm( getFormsTC, getConnectionTC, sFormName )

'Open data source as table
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
end sub

'Stock Register
sub OpenForm_StockRegister( oev as variant )
sFormName = "StockRegister"
OpenForm( getFormsTC, getConnectionTC, sFormName )
end sub

'Stock Menu
sub OpenForm_StockMenu( oev as variant )
sFormName = "StockMenu"
OpenForm( getFormsTC, getConnectionTC, sFormName )
end sub 

function OpenForm( formContainer as variant, oConnection as variant, sFormName as string) as variant
Dim aProp(1) As New com.sun.star.beans.PropertyValue
aProp(0).Name = "ActiveConnection"
aProp(0).Value = oConnection
aProp(1).Name = "OpenMode"
aProp(1).Value = "open"
OpenForm = formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
end function

function getFormsTC() as variant
getFormsTC = thisComponent.Parent.getFormDocuments
end function

function getConnectionTC() as variant
getConnectionTC = thisComponent.Drawpage.Forms(0).ActiveConnection
end function