[LACV]

buena tarde,
agradesco de antemano la atencion prestada compañeros, encontre un error en mi aplicacion al mostrar una informacion en una tabla ya que al realizar la consulta en la aplicacion no aparecen todos los registros pero si ejecuto la misma consulta con los mismo parametros en el phpmyadmin aparecen los registros sin problemas.

Código Delphi [-]
  if (FechaI = '') or (FechaF = '') then
  begin
    fechas := '';
  end
  else
  begin
    fechas := ' and Fecha_F>=''' + FechaI + ''' and Fecha_F<=''' + FechaF + '''';
  end;

  if tiquete = '' then
  begin
    tiquetes := ''
  end
  else
  begin
    tiquetes := ' and NTiquete=''' + tiquete + '''';
  end;

  if placa = '' then
  begin
    placa_ := ''
  end
  else
  begin
    placa_ := ' and Placa=''' + placa + '''';
  end;

  if productoId = '' then
  begin
    idProd := '';
  end
  else
  begin
    idProd := ' and Id_Producto=''' + productoId + '''';
  end;
  case estado of
    true:
      estado_ := '1';
    false:
      estado_ := '0';
  end;

  group := ' group by B.Id_Bascula';

  sql_ := 'select Id_Producto,B.Id_Bascula,Estado_B,NTiquete,Fecha_I,Hora_I,Peso_I,Fecha_F,Hora_F, '
    + 'Peso_F,Servicio,N_Viaje,Variedad,Lote,Humeda,Impureza,Procedencia,N_Documento, '
    + 'Origen,Destino,Observacion,Tarifa,CONCAT(Fecha_I, ''' + espacio +
    ''',Hora_I) AS FHi,CONCAT(Fecha_I, ''' + espacio +
    ''',Hora_I) AS FHf,Peso_I-Peso_F as DifE,Peso_F-Peso_I as DifS,Anulado, ' +
    'B.Id_VC,Mv.Id_Cliente,IdPLiq, ' +
    'C.IdentificacionC,C.NombreC,NombresCt,IdentificacionCt,Placa,Mv.Id_Mov,VPeso2,Nombres,Apellidos,Mv.  Id_Ciudad,Ciudad,Departamento, '
    + 'B.IdPerFac,EstadoFac,F.NombreC as FNombreC,F.IdentificacionC as FIdentificacionC '
    + 'from abBascula B ' +
    'inner join abPersonasFac F on B.IdPerFac=F.IdPerFac ' +
    'left join abMovimientos Mv on B.Id_Bascula=Mv.Id_Bascula ' +
    'left join abCliente C on Mv.Id_Cliente=C.Id_Cliente ' +
    'left join abCiudades Cid on Mv.Id_Ciudad=Cid.Id_Ciudad ' +
    'inner join abVehiculoConductor VC on B.Id_VC=VC.Id_VC ' +
    'inner join abVehiculo V on  VC.IdVehiculo=V.IdVehiculo ' +
    'inner join abConductor Cd on VC.Id_Conductor=Cd.Id_Conductor ' +
    'inner join abUser U on B.Id_User=U.Id_User ' +
    'inner join abMDetalle Md on Mv.Id_Mov=Md.Id_Mov ' + 'where Servicio=''' +
    IntToStr(Servicio) + ''' and Estado_B=''' + estado_ + ''' and Anulado=0 ' +
    fechas + tiquetes + placa_ + idProd + group + vPeso;

  with dmodulo.QueryBasculaInf do
  begin
    Active := false;
    SQL.Clear;
    SQL.Add(sql_);
    Active := true;
    Filter := '';
    if recordcount > 0 then
    begin
      resetPesoOrdenes(dmodulo.QueryBasculaInf.FieldByName('Id_Bascula').AsString);
    end
    else
    begin
      dmodulo.QueryPesoDestallesB.Active := false;
    end;

    Result := recordcount;
  end;