[NickName]

Hola...

Mi problema es que quiero ejecutar mas de 1 vez un AdoQuery y no puedo me manda el error de: Objeto Parameter mal definido. Se proporciono información incompleta o incoherente...

De esta forma uso 2 AdoQuery funcionan bien al usarlos 1 sola vez pero si quiero realizar de nuevo la consulta cambiando un parametro es donde me marca el error antes mensionado la verdad no entiendo que sucede...

La Db es de Foxpro, uso Ado como componentes de Conección, Delphi7 como lenguaje de desarrollo...

Este es el codigo donde paso parametros y hago la consulta:

Código Delphi [-]
        With Mod_Datos.ADOQuery1.Parameters  Do
        Begin
            Clear;
            AddParameter.Name := 'Fecha1';
            ParamByName('Fecha1').DataType := ftDate;
            ParamByName('Fecha1').Value  := DateTimePicker1.Date;
            //------------------
            AddParameter.Name := 'Fecha2';
            ParamByName('Fecha2').DataType := ftDate;
            ParamByName('Fecha2').Value  := DateTimePicker2.Date;
            //------------------
            AddParameter.Name := 'Cancelado';
            ParamByName('Cancelado').DataType := ftBoolean;
            ParamByName('Cancelado').Value  := True;
            //------------------
            AddParameter.Name := 'Con_Iva';
            ParamByName('Con_Iva').DataType := ftString;
            ParamByName('Con_Iva').Value  := 'L2';
            //------------------
            AddParameter.Name := 'Sin_Iva';
            ParamByName('Sin_Iva').DataType := ftString;
            ParamByName('Sin_Iva').Value  := 'L1';
        End;

        //---------------------  Con Iva ---------------------------
        Mod_Datos.ADOQuery1.Close;
        Mod_Datos.ADOQuery1.SQL.Clear;
        Mod_Datos.ADOQuery1.SQL.Add('SELECT Sum(CVenta) AS Total FROM TicketDetalle TD, Ticket T ' +
                                    'Where TD.CveTecla = :Con_Iva ' +
                                    'And TD.IdTicket = T.IdTicket ' +
                                    'And T.Cancelado <> :Cancelado ' +
                                    'And BETWEEN(T.FechaHora,:Fecha1,:Fecha2)');
        Mod_Datos.ADOQuery1.Open;
        Con_Iva:= Mod_Datos.ADOQuery1.FieldByname('Total').AsCurrency;
        //------------------------ Sin Iva ----------------------------
        With Mod_Datos.ADOQuery2.Parameters  Do
        Begin
            Clear ;
            AddParameter.Name := 'Fecha1';
            ParamByName('Fecha1').DataType := ftDate;
            ParamByName('Fecha1').Value  := DateTimePicker1.Date;
            //------------------
            AddParameter.Name := 'Fecha2';
            ParamByName('Fecha2').DataType := ftDate;
            ParamByName('Fecha2').Value  := DateTimePicker2.Date;
            //------------------
            AddParameter.Name := 'Cancelado';
            ParamByName('Cancelado').DataType := ftBoolean;
            ParamByName('Cancelado').Value  := True;
            //------------------
            AddParameter.Name := 'Con_Iva';
            ParamByName('Con_Iva').DataType := ftString;
            ParamByName('Con_Iva').Value  := 'L2';
            //------------------
            AddParameter.Name := 'Sin_Iva';
            ParamByName('Sin_Iva').DataType := ftString;
            ParamByName('Sin_Iva').Value  := 'L1';
        End;

        Mod_Datos.ADOQuery2.Close;
        Mod_Datos.ADOQuery2.SQL.Clear;
        Mod_Datos.ADOQuery2.SQL.Add('SELECT Sum(CVenta) AS Total FROM TicketDetalle TD, Ticket T ' +
                                    'Where TD.CveTecla = :Sin_Iva ' +
                                    'And TD.IdTicket = T.IdTicket ' +
                                    'And T.Cancelado <> :Cancelado ' +
                                    'And BETWEEN(T.FechaHora,:Fecha1,:Fecha2)');
        Mod_Datos.ADOQuery2.Open;
        Sin_Iva:= Mod_Datos.ADOQuery2.FieldByname('Total').AsCurrency;
        //----------------------------------------------------
        Total:= (Con_Iva + Sin_Iva);

Las consultas las hise con parametro por que fue la unica forma que pude sin parametros me marca el mismo error...

Siento que con un solo AdoQuery podria hacer las 2 consultas pero cuando lo intente me marco el mismo error...

La verdad no se que es lo que pasa.... alguien que me pueda Iluminar un Poco...