Mapeamento/Ajustes

EvoUMLPlugin/src/ituExplorerV2.pas

@@ -831,21 +831,35 @@ procedure TExplorerV2.LoadAliasCompletion(piLinhas: string);
 var  ls_texto,
      ls_espaco : string;
      li_Pos : integer;
-
+     ls_Alias : string;
+     ls_classe : string;
 begin
-    ls_espaco    := ' ';
+  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));
+  if li_Pos > 0 then
+  begin
+		 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
 
-    li_Pos       := Pos(__FROM,uppercase(piLinhas));
-    if li_Pos > 0 then
-    begin
-       ls_texto :=trim(Copy(result,li_Pos + Length(__FROM),Length(piLinhas)));
-       li_Pos        := Pos(ls_espaco,trim(ls_texto));
-       while li_Pos > 0 do
-       begin
-         result   :=trim(Copy(ls_texto,li_Pos + 1,Length(ls_texto)));
-         li_Pos   := Pos(ls_espaco,result);
-     	end;
-  	end;
+				end;
+				li_Pos     := Pos(ls_espaco,ls_texto);
+		 end;
+	end;
 
 end;