ajustes

EvoUMLPlugin/src/ituExplorerV2.pas

@@ -26,6 +26,16 @@ const
     __EXISTS             = 'EXISTS';
     __IN                 = 'IN';
     __ASTERICO           = '*';
+    __PONTO              = '.';
+    __E_COMERCIAL        = '&';
+    __PERCENTUAL         = '%';
+    __IGUAL              = '=';
+    __SINAL_MAIS         = '+';
+    __DIVISOR            = '/';
+    __PONTENCIA          = '^';
+    __SINAL_MAIOR        = '>';
+    __SINAL_MENOR        = '<';
+    __SINAL_MENOS        = '-';
 type
 
   TDLLDialog = class(TForm)
@@ -754,7 +764,7 @@ begin
   begin
     exit;
 	end;
-  li_Pos := Pos ('.',piLinha);
+  li_Pos := Pos (__PONTO,piLinha);
 	if li_Pos <= 0 then
   begin
     lEnumerator := self.MetaModel.ClassTickets.GetEnumerator;
@@ -1082,7 +1092,7 @@ var lClassTicketCurrent,
     lRelationTicket : acRelationTicket;
     lbAchei : boolean;
 begin
-	 li_Pos := Pos ('.',piNameObjeto);
+	 li_Pos := Pos (__PONTO,piNameObjeto);
 	 if li_Pos > 0 then
 	 begin
      ls_aux := trim(piNameObjeto);
@@ -1093,7 +1103,7 @@ begin
        lClassTicketAux := nil;
        ls_aux := trim(Copy(ls_aux,li_Pos +1,Length(ls_aux)));
        ls_ant_objeto := ls_aux;
-       li_Pos := Pos ('.',ls_aux);
+       li_Pos := Pos (__PONTO,ls_aux);
        if li_Pos > 0 then
        begin
          ls_Objeto := trim(Copy(ls_aux,0,li_Pos -1));
@@ -1230,7 +1240,25 @@ begin
            (opEve = fopEvenFromCompleto)
         then
         begin
-          if ContemPalavra(',',lText) then
+          if ContemPalavra(__VIRGULA,lText) then
+          begin
+            result := '';
+          end;
+        end
+        else if (opEve = fopEvenWhereCompleto)  then
+        begin
+          if ContemPalavra(__ASTERICO,lText)    or
+             ContemPalavra(__E_COMERCIAL,lText) or
+             ContemPalavra(__PERCENTUAL,lText)  or
+             ContemPalavra(__IGUAL,lText)       or
+             ContemPalavra(__SINAL_MAIS,lText)  or
+             ContemPalavra(__DIVISOR,lText)     or
+             ContemPalavra(__PONTENCIA,lText)   or
+             ContemPalavra(__PARENTESES_ABERTO,lText) or
+             ContemPalavra(__SINAL_MAIOR,lText)       or
+             ContemPalavra(__SINAL_MENOR,lText)       or
+             ContemPalavra(__SINAL_MENOS,lText)
+          then
           begin
              result := '';
           end;
@@ -1239,7 +1267,7 @@ begin
      else
      begin
 	      if (trim(lWord) = trim(lText)) or
-	         ContemPalavra('.',lText)
+	         ContemPalavra(__PONTO,lText)
 	      then
 	      begin
 	        result := lText;
@@ -1463,7 +1491,6 @@ begin
     ls_Texto := SynEditOQL.GetWordAtRowCol(SynEditOQL.CaretXY);
     if not IsKeyword(ls_Texto) then
     begin
-
        if (opEve = fopEvenSelectAposPonto) or
           (opEve = fopEvenWhereAposPonto) or
           (opEve = fopEvenFromAposPonto)