Commit e1a62b33 authored by Lucio Sandrini's avatar Lucio Sandrini

Compatibilidade com versão 1.9.0 do Curió.

parent fd402cf8
......@@ -29,6 +29,8 @@ uses
utuLinksManager,
utuLinkSock,
acuFramework,
acuSystem,
acuApplicationLog,
acuQuerySQLODBC,
ituExplorerV2,
IntegracaoDelphiSUML in 'IntegracaoDelphiSUML.pas',
......@@ -57,13 +59,20 @@ begin
SetHeapTraceOutput('CURIOAddIn.trc');
end;
{$ifend}
ChangeLocaleFormatSetting;
gSystemConfig := acSystem.Create('');
if not assigned(gApplicationLog) then gApplicationLog := acApplicationLog.Create;
if not assigned(gPersistenceManager) then gPersistenceManager := acPersistenceManager.Create;
if not assigned(gAuditLog) then gAuditLog := acAuditLog.Create;
utuMessage.ChangeLocaleFormatSetting;
gDefaultDatabaseDriver := typeOf(acDatabaseSQLODBC);
PersistenceManager.DefaultRepositoryClass := typeOf(acRepositorySQL);
PersistenceManager.RegisterClass(typeOf(acPersistentObject), acPersistentObjectClassFactory.Create);
gSQLDialectManager := acSQLDialectManager.Create;
gSQLDialectManager.RegisterSQLDialect('MS SQL Server', typeOf(acSQLDialectSQLServer), acSQLDialectSQLServerClassFactory.Create);
gSQLDialectManager.RegisterSQLDialect('Oracle', typeOf(acSQLDialectOracle), acSQLDialectOracleClassFactory.Create);
gSQLDialectManager.RegisterSQLDialect('DB2', typeOf(acSQLDialectDB2), acSQLDialectDB2ClassFactory.Create);
gLinksManager := utLinksManager.Create;
gLinksManager.RegisterLink('tcp/ip', typeOf(utLinkSock), utLinkSockClassFactory.Create);
{$IFDEF DARWIN}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment