Skip to content

S
StarUML Evológica Plugin
You need to sign in or sign up before continuing.
Commit 8fd9f903 authored by Erika Segatto's avatar Erika Segatto
Browse files
Options

Altera geração do acRegisterModelMappings para declarar DBIdoMapTicket da classe correta

parent d2b130a2
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
EvoUMLPlugin/src/IntegracaoDelphiSUML.pas
View file @ 8fd9f903
......@@ -2375,7 +2375,7 @@ begin
sRegisterMapping := sRegisterMapping + 'lClassMapTicket.AuditDescription := ' + QuotedStr(lClassTicket.AuditDescription) + ';' + #13#10;
if lClassTicket.DisplayName <> lClassTicket.PersistentObjectClassName then
sRegisterMapping := sRegisterMapping + 'lClassMapTicket.DisplayName := ' + QuotedStr(lClassTicket.DisplayName) + ';' + #13#10;
sRegisterMapping := sRegisterMapping + #13#10 + 'lDBIntIdoMapTicket := acDBIntIdoMapTicket.Create(''' + lsIDO + ''');' + #13#10;
sRegisterMapping := sRegisterMapping + #13#10 + 'lDBIntIdoMapTicket := '+lClassToDBMapTicket.IdoDBMapTicket.ClassName+'.Create(''' + lsIDO + ''');' + #13#10;
sRegisterMapping := sRegisterMapping + 'lClassToDBMapTicket := piMetaModelPersistenceMap.NewClassToDBMapRegisterTicket('''+ lsIDOCode +''', lClassMapTicket, lDBIntIdoMapTicket) ;' + #13#10;
sRegisterMapping := sRegisterMapping + 'lClassToDBMapTicket.TableName := ''' + lsTabela + ''';' + #13#10;
if lsTypeColumnName <> '' then
......
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