Alle 19:23, martedì 12 settembre 2006, Marco Caresia ha scritto:
[EMAIL PROTECTED] wrote:
Spero di essere stato abbastanza chiaro.
Sì, vuoi una "query (report) by form".
Purtroppo ho scelto la via più semplice e non sono riuscito a trovare
niente di meglio che modificare direttamente la query (prende i valori
presenti nella maschera e non è più "parametrica"):
REM ***** BASIC *****
' la macro è associata ad un pulsante della maschera
'
Sub Main
' accedo alla maschera
oDoc = ThisComponent
oForm = oDoc.DrawPage.Forms.GetByName("Standard")
' prendo i valori delle caselle
oCodiceLavoro = oForm.getbyname("CodiceLavoro")
oCommittente = oForm.getbyname("Committente")
sCodiceLavoro = oCodiceLavoro.CurrentValue
sCommittente = oCommittente.CurrentValue
sCo = "Committente = '" & sCommittente & "'"
sCL = "CodiceLavoro = '" & sCodiceLavoro & "'"
' accedo al database
oDB = oDoc.parent
' accedo alla ricerca e la modifico
oQueryDef = oDB.DataSource.getQueryDefinitions
oQuery = oQueryDef.getbyname("R_Ore")
oQuery.Command = "SELECT CodiceLavoro AS ""Codice
Lavoro"",Committente,Attivita AS Attività,Tecnico,Data,Ore FROM T_Ore
WHERE " & sCo & " AND " & sCL
' apro il report collegato alla ricerca
oConnection = oForm.ActiveConnection
dim Args(1) as new com.sun.star.beans.PropertyValue
Args(0).name = "OpenMode"
Args(0).value = "open"
Args(1).name = "ActiveConnection"
Args(1).value = oConnection
oReports = oDB.getReportDocuments
oReport = oReports.loadComponentFromURL("R_Ore1","_blank",0,Args())
End Sub
Per Nicola: fra un attimo ti mando il file modificato.
Per Paolo: hai visto il video dell'intervento di Laurent Godard a Lione?
Ciao,
--
MC
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
