Apache OpenOffice: forum della comunità

Codice: Seleziona tutto

REM ***** BASIC *****
REM ----------------------------------------------------------------------
Dim oForm
   sub subDisplayForm(sDatabaseName as string, sFormName as string)
      dim mArgs(1) as new com.sun.star.beans.PropertyValue
      oDatabase = fnGetOpenDatabase(sdatabaseName)
      oConnection = oDatabase.DataSource.getConnection("","")
      mArgs(0).name = "OpenMode"
      mArgs(0).value = "open" '"openDesign" ' '"openForMail"
      mArgs(1).name = "ActiveConnection"
      mArgs(1).value = oConnection
      oForm = oDatabase.getFormDocuments.getByName(sFormName)
      oDatabase.getFormDocuments.loadComponentFromURL(sFormName, "_blank", 0, mArgs())
end sub
REM ----------------------------------------------------------------------
function fnGetOpenDatabase(sDatabaseName as string)
   oEnum = StarDesktop.getComponents.createEnumeration
   while oEnum.hasMoreElements
      oPosDB = oEnum.nextElement
      if oPosDB.implementationName = "com.sun.star.comp.dba.ODatabaseDocument" then
         msgbox oPosDB.DataSource.name
         if right(oPosDB.DataSource.name, len(sDatabaseName)) = sDatabaseName then
            fnGetOpenDatabase = oPosDB
            exit function
         end if
      end if
   wend
end function
REM ----------------------------------------------------------------------
Dim oForm
sub Q_libri
   subDisplayForm("prova.odb","Inserisci_nuovo_Fornitore")
end sub 

Codice: Seleziona tutto

oDatabase = fnGetOpenDatabase(sdatabaseName)

Codice: Seleziona tutto

function fnGetOpenDatabase(sDatabaseName as string)

Codice: Seleziona tutto

Sub ApriForm
   Dim InteractionHandler As Object
   InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
   ThisDatabaseDocument.CurrentController.connect("","")
   ThisDatabaseDocument.FormDocuments.getByName ( "NomeTuoFormulario" ).open
End Sub

Codice: Seleziona tutto

Sub Fornitore
   Dim InteractionHandler As Object
   InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
   ThisComponent.CurrentController.Frame.close(True)
   ThisDatabaseDocument.FormDocuments.getByName ( "Inserisci nuovo Fornitore" ).open
End Sub

Sub Luogo
   Dim InteractionHandler As Object
   InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
   ThisComponent.CurrentController.Frame.close(True)
   ThisDatabaseDocument.FormDocuments.getByName ( "Inserisci nuovo Luogo" ).open
End Sub

Sub MENU
   Dim InteractionHandler As Object
   InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
   ThisComponent.CurrentController.Frame.close(True)
   ThisDatabaseDocument.FormDocuments.getByName ( "MENU" ).open
End Sub

Sub RICERCA
   Dim InteractionHandler As Object
   InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
   ThisComponent.CurrentController.Frame.close(True)
   ThisDatabaseDocument.FormDocuments.getByName ( "RICERCA" ).open
End Sub

Sub quotazione
   Dim InteractionHandler As Object
   InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
   ThisComponent.CurrentController.Frame.close(True)
   ThisDatabaseDocument.FormDocuments.getByName ( "Inserisci nuova quotazione" ).open
End Sub

sub finestra_close( oEvent as object )
	ThisComponent.CurrentController.Frame.close(True)
	ThisDatabaseDocument.FormDocuments.getByName ( "MENU" ).open
end sub

Codice: Seleziona tutto

Sub FiltraPerFornitore(oEv)
oModel = oEv.Source.Model
sTestoPerRicerca = oEv.Source.getAccessibleContext.Text
oForm = oModel.Parent
oForm.Filter = " ( ""Quotazioni"".""FORNITORE"" LIKE '%" & sTestoPerRicerca & "%' )"
oForm.reload()
End Sub

Codice: Seleziona tutto

Sub seleziona
oForm = ThisComponent.DrawPage.forms.MainForm
dataf=oForm.GetByName("ComboBox1")
combo=doppio(dataf.text)
oForm = ThisComponent.Drawpage.Forms.MainForm
oForm.Filter ="( ""Quotazioni"".""FORNITORE"" LIKE '"+combo+"' )"
oForm.reload
End Sub
Function doppio(U)
' raddoppia gli apostrofi
U = Join(Split(U, "'"), "''")
doppio=U
end function 

Codice: Seleziona tutto

SUB ricercaparametri (oEv)
dim oModel as object
dim oForm as object
dim ctlFORNITORE as object
dim ctlLUOGO1 as object
dim ctlTIPO as object
dim sFORNITORE as string
dim sLUOGO1 as string
dim sTIPO as string

oModel = oEv.Source.Model
oForm=oModel.Parent
ctlFORNITORE =oForm.GetByName("COMBOFORNITORE")
ctlLUOGO1 = oForm.GetByName("COMBOLUOGO1")
ctlTIPO = oForm.GetByName("COMBOTIPO")
sFORNITORE =ctlFORNITORE.text
sLUOGO1= ctlLUOGO1.text
sTIPO= ctlTIPO.text
'print sFORNITORE
'print sLUOGO1
'print sTIPO

oForm.Filter = " (""Quotazioni"".""FORNITORE"") LIKE '%" & sFORNITORE & "%'  AND  (""Quotazioni"".""LUOGO 1"") LIKE '%" & sLUOGO1 & "%'  AND  (""Quotazioni"".""TIPO"") LIKE '%" & sTIPO & "%' "
oForm.reload()
end sub

Codice: Seleziona tutto

Sub TrovaParametri

	Dim Ctl As Object
	Dim Form as object
	Dim Doc as object
	Dim Forms as object
	Dim I as Integer
	Dim DatabaseContext As Object
	Dim DataSource As Object
	Dim sFornitori as string	
	Dim sLuogo1 as string		
	Dim QueryDefinitions as Object
	Dim QueryDefinition as object
	Dim stringa as string

	Doc=StarDesktop.CurrentComponent
	Forms=Doc.Drawpage.Forms
	For I = 0 to Forms.Count - 1
		Form = Forms.GetByIndex(I)
		if Form.HasByName("Trova") then
			Ctl = Form.GetByName("ComboFornitori")
			sFornitori=Ctl.text
			if sFornitori="-" then sFornitori=""	
			Ctl = Form.GetByName("ComboLuogo1")
			sLuogo1=Ctl.text
			if sLuogo1="-" then sLuogo1=""
		End If
	Next I	


	DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
	DataSource = DatabaseContext.getByName("prova.odb")

	
	stringa = "FORNITORE , TIPO , ADR , LUOGO 1 , LUOGO 2 , LUOGO 3 , LUOGO 4 , LUOGO 5 , ISO/BOX , PREZZO , DATA OFFERTA , TIPO OFFERTA , NOTE FROM Quotazioni WHERE FORNITORE LIKE " & "'" & "%" & sFornitori & "%" & "'"  & " AND " & "LUOGO 1 LIKE  " & "'"  & "%" & sLuogo1 & "%" & "'"  
	
	QueryDefinitions=DataSource.getQueryDefinitions() 	


	QueryDefinition=QueryDefinitions.getByName("Ricerca1")
	

	QueryDefinition.Command=stringa
	it = ThisComponent.DrawPage.Forms(0).ActiveConnection
	doc = OpenQuery(it, "prova", "Ricerca1")

end sub