Ver Mensaje Individual
  #8  
Antiguo 13-08-2015
alexglez1255 alexglez1255 is offline
Miembro
NULL
 
Registrado: jul 2013
Posts: 86
Reputación: 11
alexglez1255 Va por buen camino
cuando paso lo parametros como me lo suguieres...

Código Delphi [-]
procedure TFrmRepdeCobr.BtHacereporteClick(Sender: TObject);
 var
  fecfin,fecini:TDateTime;
  codcobstr:String;
begin
 With logicanegocio do
  begin
   codcobstr:=IntToStr(Coddecobr);
     CDSREpxCobYrango.Close;
      case Tpickrepcobr.ItemIndex of
      0:begin
        If Coddecobr=0 then
          begin
            ShowMessage('No ha escogido el cobrador ');
            EdCodCobr.SetFocus;
          end;
         CDSREpxCobYrango.Params.ParamByName('Fdesde').value:=trunc(TPFechini.Datetime);
         CDSREpxCobYrango.Params.ParamByName('Fhasta').value:=trunc(TPFechfinal.Datetime);
         CDSREpxCobYrango.Params.ParamByName('Cod_cobrador').value:=Coddecobr;
         end;
    end;
    CDSREpxCobYrango.open; //MARCA EL ERROR AL ABRIR EL CLIENDATASET
    CDSREpxCobYrango.DisableControls;
  end;
end;

TPFechini y TPFechfinal son de pickdates...
En la linea que indico da el siguiente error..

Invalid variant type conversion

tienes alguna idea por que..?
Responder Con Cita