[ecfisa]

Empezado por agustin173

marcoszorrilla este codigo no me funciona tienes otra idea amigo por favor

Hola Agustin.

Según lo que leí, el código que puso marcos, debería funcionar correctamente.

Hubiera sido mejor que pusieras el error generado o explicar mejor el resultado que buscas, yo interpreto tu planteo como marcos.

Igual te pongo un código (que básicamente hace lo mismo) y pone además la cantidad de veces que está repetido el dato. Por ahí podés sacar alguna idea de él.

Código Delphi [-]

function TForm1.Mensaje(cp1,cp2,cp3,cp4:string): string;
const
   Consulta ='SELECT COUNT(*) AS CANTIDAD FROM TU_TABLA WHERE %s = %s';
begin
  with Query do
  begin
    Close;
    SQL.Text:= Format(Consulta,['Rnc',QuotedStr(cp1)]);
    Open;
    if not IsEmpty then
     Result:= 'Rnc: ' + FieldByName('CANTIDAD').AsString+#10#13;

    Close;
    SQL.Text:= Format(Consulta,['Suplidor',QuotedStr(cp2)]);
    Open;
    if not IsEmpty then
     Result:= Result + 'Suplidor: '+FieldByName('CANTIDAD').AsString+#10#13;

    Close;
    SQL.Text:= Format(Consulta,['Telefono',QuotedStr(cp3)]);
    Open;
    if not IsEmpty then
      Result:= Result+'Telefono: '+FieldByName('CANTIDAD').AsString+#10#13;

    Close;
    SQL.Text:= Format(Consulta,['Email',QuotedStr(cp4)]);
    Open;
    if not IsEmpty then
      Result:= Result+'Email: '+ FieldByName('CANTIDAD').AsString;
  end;
end;

La función la pensé para ser usada con un ShowMessage, de ahí (#10#13).

Saludos.