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

@@ -1707,13 +1707,13 @@ begin
       if (lsIDOType = 'VARCHAR') or (lsIDOType = 'NVARCHAR') or (lsIDOType = 'CHAR') then
       begin
       	lIDOTypeClass := 'acOIDString';
-				lDBIntIdoMapTicket := acDBStringIdoMapTicket.Create(lsIDO);
-			end
-			else if (lsIDOType = 'INT') or (lsIDOType = 'INTEGER') then
+	      lDBIntIdoMapTicket := acDBStringIdoMapTicket.Create(lsIDO);
+      end
+      else if (lsIDOType = 'INT') or (lsIDOType = 'INTEGER') then
       begin
         lIDOTypeClass := 'acOIDInt';
-				lDBIntIdoMapTicket := acDBIntIdoMapTicket.Create(lsIDO);
-			end
+	      lDBIntIdoMapTicket := acDBIntIdoMapTicket.Create(lsIDO);
+      end
       else
         raise Exception.Create(Format('Invalid DBIDOType for class "%s" in DBClassMap Tag Definition Set (DBMappings Profiler).',[lClassChild.Pathname])); ;
 
@@ -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;