Altera geração do acRegisterModelMappings para incluir parâmetro "OIDType" na...

Altera geração do acRegisterModelMappings para incluir parâmetro "OIDType" na função NewClasRegisterTicket

EvoUMLPlugin/src/IntegracaoDelphiSUML.pas

@@ -2339,6 +2339,7 @@ var lEnum, lEnumAttributes: acEnumerator;
     index: integer;
     lAtrStereotype: Integer;
     li: Integer;
+    lsNomeClasseOID: string;
 begin
   li := 1;
   // Obtm todos os ClassTickets da UNIT
@@ -2362,6 +2363,7 @@ begin
         lsTabela := lClassToDBMapTicket.TableName;
         lsIDO := lClassToDBMapTicket.IdoDBMapTicket.GetIDOColumns;
         lsIDOCode := lClassTicket.PersistentObjectClassCode;
+        lsNomeClasseOID := lClassToDBMapTicket.IdoDBMapTicket.GetIDOType();
         lsTypeColumnName := lClassToDBMapTicket.TypeColumnName;
 
                       //sInitialization := sInitialization + '   PersistenceManager.RegisterClass('+lsNomeClasse+', RegisterMappings);' +#13#10;
@@ -2369,7 +2371,7 @@ begin
   //        sRegisterMapping := sRegisterMapping + 'begin' + #13#10;
 
         if sRegisterMapping <> '' then sRegisterMapping := sRegisterMapping + #13#10;
-        sRegisterMapping := sRegisterMapping + 'lClassMapTicket    := piMetaModel.NewClassRegisterTicket('''+ lsIDOCode + ''',''' + lsNomeClasse + ''','''+lsNomeClasseParent+''', '+IntToStr(lClassTicket.FieldsCount)+');' + #13#10;
+        sRegisterMapping := sRegisterMapping + 'lClassMapTicket    := piMetaModel.NewClassRegisterTicket('''+ lsIDOCode + ''',''' + lsNomeClasse + ''','''+lsNomeClasseOID + ''','''+lsNomeClasseParent+''', '+IntToStr(lClassTicket.FieldsCount)+');' + #13#10;
         sRegisterMapping := sRegisterMapping + 'lClassMapTicket.AuditDescription := ' + QuotedStr(lClassTicket.AuditDescription) + ';' + #13#10;
         if lClassTicket.DisplayName <> lClassTicket.PersistentObjectClassName then
           sRegisterMapping := sRegisterMapping + 'lClassMapTicket.DisplayName := ' + QuotedStr(lClassTicket.DisplayName) + ';' + #13#10;