Mapeamento/Ajustes

EvoUMLPlugin/src/ituExplorerV2.pas

@@ -831,19 +831,33 @@ procedure TExplorerV2.LoadAliasCompletion(piLinhas: string);
 var  ls_texto,
      ls_espaco : string;
      li_Pos : integer;
-
+     ls_Alias : string;
+     ls_classe : string;
 begin
   ls_espaco    := ' ';
-
   li_Pos       := Pos(__FROM,uppercase(piLinhas));
   if li_Pos > 0 then
   begin
     ls_texto :=trim(Copy(result,li_Pos + Length(__FROM),Length(piLinhas)));
+	end;
   li_Pos     := Pos(ls_espaco,trim(ls_texto));
-       while li_Pos > 0 do
+  if li_Pos > 0 then
   begin
-         result   :=trim(Copy(ls_texto,li_Pos + 1,Length(ls_texto)));
-         li_Pos   := Pos(ls_espaco,result);
+		 ls_classe  := trim(Copy(ls_texto,0,li_Pos  -1);
+		 ls_texto   := trim(Copy(ls_texto,li_Pos + 1,Length(ls_texto)));
+		 li_Pos     := Pos(ls_espaco,trim(ls_texto));
+     if li_Pos > 0 then
+     begin
+			  ls_Alias   := trim(Copy(ls_texto,0,li_Pos  -1);
+			  if UpperCase(ls_Alias) = 'AS' then
+			  begin
+			    ls_Alias   := trim(Copy(ls_texto,li_Pos + 1 +li_Pos  -1);
+			  end
+        else
+        begin
+
+				end;
+				li_Pos     := Pos(ls_espaco,ls_texto);
 		 end;
 	end;