Apache OpenOffice: forum della comunità

Codice: Seleziona tutto

SUB trova(oEv)
dim oModel as object
dim oForm as object
dim ctlCognome as object
dim ctlNome as object
dim sCognome as string
dim sNome as string

oModel = oEv.Source.Model
oForm=oModel.Parent
ctlcognome =oForm.GetByName("lista_cognomi")

sCognome =ctlcognome.text

'print sCognome
'print sNome

oForm.Filter = " (""anagrafica"".""cognome"" ||' '||""anagrafica"".""nome"") LIKE '%" & sCognome & "%'  AND  (""anagrafica"".""cognome"" ||' '||""anagrafica"".""nome"") LIKE '%" & sNome & "%' "
oForm.reload()
end sub


SUB TogliFiltro()
Dim Doc As Object
Dim DocCrl As Object
Dim Forms As Object
Dim oForm As Object
dim ctlInventario as object
dim ctlEdizione as object

Doc = StarDesktop.CurrentComponent
DocCrl = Doc.getCurrentController()
Forms = Doc.Drawpage.Forms
oForm = Forms.GetbyIndex(0)
ctlInventario = oForm.GetByName("lista_cognomi")
ctlInventario.text = ""
oForm.filter = ""
oForm.reload()
End Sub
sub hideAll()
ThisComponent.CurrentController.Frame.LayoutManager.setVisible(False)
thisComponent.CurrentController.Frame.ContainerWindow.setPosSize(0,0,1920,1080,15)
end sub