icsGantt

×

Warning message

This extension was not updated recently. It might not work with latest versions of OpenOffice.

Primary tabs

Provider:
IcsTools.it
Maintainer:
xergio
Rating:
3

Average: 3 (2 votes)

Application:
Calc, Writer, Impress, Draw, Base, Math, Chart, OpenOffice.org
Tags:
chart, extension, gantt, extension, project, extension, task, extension
Screenshots:
http://www.icstools.it/
Post date:
Tuesday, 23 February, 2010 - 18:00
Statistics
Week: Not tracked - Month: Not tracked - Year: Not tracked - Timeline
Download extension
System Independent version - All releases
Compatible with OpenOffice 4: Unknown
User feedback:
Compatible with OpenOffice 4.x?

It: Con icsGantt è possibile programmare un lavoro e creare un diagramma di Gantt collegato con il database HSQLDB integrato in OOo, aggiornando il grafico in tempo reale. Il grafico può essere copiato ed incollato e anche modificato manualmente.

En: icsGantt let you program a job and create a Gantt chart connected with internal OOo database HSQLDB, updating the chart in real-time. The chart can be copy-pasted and also manually modified.

Languages:

* English,
* Italiano,
* Hungarian (thank to Juhász Dezső);
* Dutch (thank to Dick Groskamp);
* Spanish (thank to Jose Lopez and David Freijeiro González);
* French (thak to Bernard Gallat);
* Turkish (thank to Turker Gulum);
* Galician (thank to David Freijeiro González).

icsGantt

Version Operating system Compatibility Release date
1.0.4 System Independent 2.x, 3.0, 3.1, 3.2, 3.3, 3.4 19/03/2010 - 18:30 More information Download

Comments

I am using OOo 3.2. On a PC running Vista. Everytime I try to use icsGannt I get a "Basic runtime error. An exception occoured"
"Type: com.sun.star.container.NoSuchElementException"

Message:

REM ***** BASIC *****
REM Select directory ********************************************************
Sub SfogliaDir(oEv)
sDir = OpenDir(sChooseDbDir)

oSfA = createUnoService("com.sun.star.ucb.SimpleFileAccess")
' If oEv.Source.Context.Model.getByName("sHSQLDB").State = 1 Then
sDb = HIDB
' Else
' sDb = MYDB
' Endif
sUrl = sDir & sDb & ".odb"
If sDir = "file:///" Then
msgBox (sNotRegIntoC, 0, "IcsToolsConfig")
Exit Sub
Else
If oSfa.exists(sUrl) Then
msgBox (sFileExist, 16, "IcsToolsConfig")
Exit Sub
Else
oEv.Source.Context.Model.getByName("txtDbDir").Text = sDir
Endif
Endif
' Endif

End Sub
'***Recurrent and silently control of db*********************
Sub silentCheckDb
oContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
If oContext.hasByName(HIDB) Then
oDb = oContext.getByName(HIDB)
oIH = CreateUnoService("com.sun.star.sdb.InteractionHandler")
oConn = oDb.connectWithCompletion(oIH)
If oConn.getTables.hasByName("icstoolsdb.version") Then
oStmt = oConn.createStatement()
sSql = "SELECT ""version"" FROM ""icstoolsdb.version"""
oRs = oStmt.executeQuery(sSql)
If oRs.next Then
iVersion = oRs.getInt(1)
Endif
If iVersion >= 1 Then
'Nothing to do
Else
loadDlgConf
Endif
Else
loadDlgConf
Endif
Else
loadDlgConf
Endif

End Sub
'***Check if db exixts***
Function checkDbExists
oContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
If oContext.hasByName(HIDB) Then
oDb = oContext.getByName(HIDB)
sUrl = oDb.DatabaseDocument.Location
Endif
checkDbExists = sUrl
End Function
'***Set db**********************************
Sub recDb(oEv)
oContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDb = oContext.createInstance()
With oEv.Source.Context.Model
'If ( .getByName("sHSQLDB").State = 1) Then
If oContext.hasByName(HIDB) Then
oDb = oContext.getByName(HIDB)
oIH = CreateUnoService("com.sun.star.sdb.InteractionHandler")
oConn = oDb.connectWithCompletion(oIH)
If oConn.getTables.hasByName("icstoolsdb.version") Then
oStmt = oConn.createStatement()
sSql = "SELECT ""version"" FROM ""icstoolsdb.version"""
oRs = oStmt.executeQuery(sSql)
If oRs.next Then
iVersion = oRs.getInt(1)
Endif
If iVersion >= 1 Then
'msgBox ( sDbUpdated, 0, "IcsToolsConfig" )
Endif
Else
alterTables
msgBox ( sSuccess, 0, "IcsToolsConfig" )
Endif
Else
oDb.setPropertyValue ("URL" , "sdbc:embedded:hsqldb" )
sUrl = .getByName("txtDbDir").text
sUrl = sUrl & HIDB & ".odb"
oDb.DatabaseDocument.storeAsUrl(sUrl, array())
oDb.DatabaseDocument.store
oContext.registerObject(HIDB, oDb)
createTables
If oContext.hasByName(HIDB) Then
msgBox ( sSuccess, 0, "IcsToolsConfig" )
Endif
Endif
'ElseIf ( .getByName("bMySQL").State = 1) Then
' If oContext.hasByName(MYDB) Then
' msgBox ( sDbExists, 0, "IcsToolsConfig" )
' Else
' sHost = .getByName("sHost").text
' sPort = .getByName("sPort").text
' sDatabase = .getByName("sDatabase").text
' sUser = .getByName("sUser").text
' sUrl = .getByName("txtDbDir").text
' sUrl = sUrl & MYDB & ".odb"
' sConnDriver = "sdbc:mysql:mysqlc:"+sHost+":"+sPort+"/"+sDatabase
' oDb.setPropertyValue ("URL" , sConnDriver)
' oDb.DatabaseDocument.storeAsUrl(sUrl, array())
' oDb.sUser=(sUser)
' oDb.DatabaseDocument.store
' oContext.registerObject(MYDB, oDb)
' If oContext.hasByName(MYDB) Then
' msgBox ( sSuccess, 0, "IcsToolsConfig" )
' Endif
' Endif
'Endif
End With
oEv.Source.Context.endExecute()
End Sub
'***Load Configuration Dialog*****************************************
Sub loadDlgConf
IniLang
'On Error Resume Next

If Not ( DialogLibraries.isLibraryLoaded("IcsTools")) Then

Doesn't work in 3.2 for now, sorry.
Wait for a new release please.
Xergio

Edited: now it works.

I am an Apple Macbook user and mainly run the Apple apps.
To communicate with Microsoft users more easily I had to learn about OpenOffice.
Using the OpenOffice I have no Problems with Microsoft users anymore.
With this extension I hope to be more flexible when I am working in projects.