Apache OpenOffice Community Forum

Code: Select all

Sub DoubleClick (oEV as object)		'Called by double click on table control
'	wait 300
	if oEV.clickcount <> 2 then Exit Sub	'Aborts if not double click
	GetSecondColumn(oEV)					'calls Subroutine to get other fields/columns
End sub

Sub GetSecondColumn (oEV as object)	'Called by last line Sub ContactName()
	'oMainForm = thisComponent.Parent.FormDocuments
	oMainForm = thisComponent.Parent.FormDocuments
	'oMainForm = oMainForm.getByName("frmJobDaily").getByName("Jobs").getByName("Filter Form")
	oForm = oEV.Source.Model.Parent
	o2Col = oForm.Columns.GetByName("Date")

	msgbox "Linked text is '" & o2Col.String & "'"
	msgbox	oForm.Name
	if oMainForm.HasByName("frmJobDaily") then
	oMainForm = OMainForm.getByName("frmJobDaily")
	'oMainForm = OMainForm.getByName("Customers")
	'oMainform = oMainForm.thisComponent.DrawPage.Forms.getByName("frmJobDaily")
	msgbox oMainForm.Name
	end if
End Sub

Code: Select all

'oMainForm = OMainForm.getByName("Customers")
	'oMainform = oMainForm.thisComponent.DrawPage.Forms.getByName("frmJobDaily")

Code: Select all

oMainForm = OMainForm.getByName("frmJobDaily").open

Code: Select all

Sub DoubleClick (oEV as object)      'Called by double click on table control'
' Maybe use when control key pressed
dim oControlDate' Sourcedate in a gridcontrol 
dim oForm ' The form one level higher then the form of the date control
oControlDate=oEV.Source.Model
oForm=oControlDate.parent.parent.parent ' From control to gridcontrol to the formcontainer to form parentcontainer
dim o2Col' Destination control in a form
o2Col=oForm.getbyname("Filter Form").getbyname("Date Field 1")
o2Col.boundfield.setdate=oControlDate.boundfield.getdate 'move the date from one control field to an other
End Sub

Code: Select all

Sub DoubleClick (oEV as object)		'Called by double click on table control
'	wait 300
	if oEV.clickcount <> 2 then Exit Sub	'Aborts if not double click
	GetSecondColumn(oEV)					'calls Subroutine to get other fields/columns
End sub

Sub GetSecondColumn (oEV as object, Optional oInitialTarget As Object)	
'BasicLibraries.loadLibrary("XrayTool")
Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
	Dim oParent As Variant
	Dim oObj1 As Variant
	Dim oObj2 As Variant
	Dim sText As Date

	oForm = oEV.Source.Model.Parent
	oParent = oForm.getParent()	
	oObj1 = oParent.getByName("Filter Form")
	oObj2 = oObj1.getByName("Date Field 1") 
	o2Col = oForm.Columns.GetByName("Date")
	sText = o2Col.String
	oObj2.Text = sText

End Sub

Code: Select all

Sub SetDateAndRefresh (oEvent as Object)
	msgbox "Here to Reset Date"
	oForm = oEvent.Source.Model.Parent
	msgbox "Setting Date"
	oEvent.Source.Model.commit() 'save the Date selection to the host data-Form
	
	'save all changes to the MainForm's Table
	IF oForm.isnew THEN oForm.insertRow() ELSE oForm.updateRow() 
	'refresh the sub forms
	msgbox "Going to refresh forms"
	oForm.GetByName("Job Material").reload
	oForm.GetByName("Job Time").reload
	oForm.GetByName("Job Description").reload
End Sub

Code: Select all

o2Col.boundfield.setdate=oControlDate.boundfield.getdate 'move the date from one control field to an other

Code: Select all

Sub Snippet(oEV as object)
      'Called by double click on table control'
' Maybe use when control key pressed
dim sText
dim oControlDate AS Variant' Sourcedate in a gridcontrol 
dim oForm ' The form one level higher then the form of the date control
oControlDate=oEV.Source.Model
'Xray oControlDate
oForm=oControlDate.parent.parent.parent ' From control to gridcontrol to the formcontainer to form parentcontainer
oControlDate = oControlDate.getbyname("DateField1")
dim o2Col AS Variant' Destination control in a form
o2Col=oForm.getbyname("Jobs").getbyname("Filter Form").getbyname("Date Field 1")
	msgbox o2Col.Name
	msgbox oControlDate.Name
	 sText = oControlDate.boundfield.getdate
	' Xray sText
	'exit sub
o2Col.boundfield.setdate="12/05/12" 'move the date from one control field to an other

End Sub

Code: Select all

o2Col.boundfield.updatestring("2012-05-12") ' Maybe this is possible. It can be your month and date is changed.

Code: Select all

Sub DoubleClick (oEV as object)		'Called by double click on table control
'	wait 300
	if oEV.clickcount <> 2 then Exit Sub	'Aborts if not double click
	GetSecondColumn(oEV)					'calls Subroutine to get other fields/columns
End sub

Sub GetSecondColumn (oEV as object, Optional oInitialTarget As Object)	'Called by last line Sub ContactName()

	Dim oParent As Variant
	Dim oObj1 As Variant
	Dim oObj2 As Variant
	Dim sText As Date

	oForm = oEV.Source.Model.Parent	
	oParent = oForm.getParent()	
	oObj1 = oParent.getByName("Filter Form")
	oObj2 = oObj1.getByName("Date Field 1") 
	o2Col = oForm.Columns.GetByName("Date")
	oObj2.boundfield.updatestring(o2Col.String)
	oObj1.GetByName("Job Material").reload
	oObj1.GetByName("Job Time").reload
	oObj1.GetByName("Job Description").reload
End Sub

Code: Select all

Sub GetExistingDates (oEV as object) 'When user clicks on an existing date shown for a Job in frmJobDaily

	Dim oParent As Variant
	Dim oObj1 As Variant
	Dim oObj2 As Variant
	Dim sText As Date
	Dim oRowSet As Variant
  	Dim nRowCount As Long
  	Dim oTable as Variant
	oForm = oEV.Source.Model.Parent	
	oTable = oForm.getByName("ExDates") 'Table on form showing existing dates
	oRowSet = oTable.getRowSet()	'Gets the row count
  	nRowCount = oRowSet.RowCount	'of the table
	oParent = oForm.getParent()	
	oObj1 = oParent.getByName("Filter Form")
	oObj2 = oObj1.getByName("Date Field 1") 
	o2Col = oForm.Columns.GetByName("Date")
	if nRowCount = 0 then exit sub 		'if there are no rows in the table we must exit or we get an error
	oObj2.boundfield.updatestring(o2Col.String)
	oObj1.GetByName("Job Material").reload
	oObj1.GetByName("Job Time").reload
	oObj1.GetByName("Job Description").reload
End Sub