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 ...@@ -29,6 +29,8 @@ uses
utuLinksManager, utuLinksManager,
utuLinkSock, utuLinkSock,
acuFramework, acuFramework,
acuSystem,
acuApplicationLog,
acuQuerySQLODBC, acuQuerySQLODBC,
ituExplorerV2, ituExplorerV2,
IntegracaoDelphiSUML in 'IntegracaoDelphiSUML.pas', IntegracaoDelphiSUML in 'IntegracaoDelphiSUML.pas',
...@@ -57,13 +59,20 @@ begin ...@@ -57,13 +59,20 @@ begin
SetHeapTraceOutput('CURIOAddIn.trc'); SetHeapTraceOutput('CURIOAddIn.trc');
end; end;
{$ifend} {$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); gDefaultDatabaseDriver := typeOf(acDatabaseSQLODBC);
PersistenceManager.DefaultRepositoryClass := typeOf(acRepositorySQL); PersistenceManager.DefaultRepositoryClass := typeOf(acRepositorySQL);
PersistenceManager.RegisterClass(typeOf(acPersistentObject), acPersistentObjectClassFactory.Create); PersistenceManager.RegisterClass(typeOf(acPersistentObject), acPersistentObjectClassFactory.Create);
gSQLDialectManager := acSQLDialectManager.Create;
gSQLDialectManager.RegisterSQLDialect('MS SQL Server', typeOf(acSQLDialectSQLServer), acSQLDialectSQLServerClassFactory.Create); gSQLDialectManager.RegisterSQLDialect('MS SQL Server', typeOf(acSQLDialectSQLServer), acSQLDialectSQLServerClassFactory.Create);
gSQLDialectManager.RegisterSQLDialect('Oracle', typeOf(acSQLDialectOracle), acSQLDialectOracleClassFactory.Create); gSQLDialectManager.RegisterSQLDialect('Oracle', typeOf(acSQLDialectOracle), acSQLDialectOracleClassFactory.Create);
gSQLDialectManager.RegisterSQLDialect('DB2', typeOf(acSQLDialectDB2), acSQLDialectDB2ClassFactory.Create); gSQLDialectManager.RegisterSQLDialect('DB2', typeOf(acSQLDialectDB2), acSQLDialectDB2ClassFactory.Create);
gLinksManager := utLinksManager.Create;
gLinksManager.RegisterLink('tcp/ip', typeOf(utLinkSock), utLinkSockClassFactory.Create); gLinksManager.RegisterLink('tcp/ip', typeOf(utLinkSock), utLinkSockClassFactory.Create);
{$IFDEF DARWIN} {$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