[chino150]

Hola todos,


Se me a presentado otro problema con este error
exeception class EOleExeception with message 'No se han especificado
valores para algunos de los parametros,
pero analizo el código donde le asigno los valores:

Código Delphi [-]
// Obtener el numero de factura
     QTemp.SQL.Text := 'Select Max(CodFactura) From Factura where Tipo = '+QuotedStr(Tipo);
     QTemp.Open;
     If QTemp.RecordCount = 0 then NumFact:=1
     else NumFact := QTemp.Fields[0].AsInteger+1;
     QTemp.Close;

Este es el codigo donde ultizo los parametros para imprimir la factura

Código Delphi [-]
If RadioGroup2.ItemIndex = 1 then
     begin
        RFactura:=TRFactura.Create(self);
        RFactura.ADOQuery1.parameters[0].Value := numfact;
        RFactura.ADOQuery1.parameters[1].Value := Tipo;
        RFactura.ADOQuery1.Open;
        try
           If RadioGroup1.ItemIndex = 1 then RFactura.Preview
           else RFactura.Print;
        finally
            RFactura.Free;
        end; //try
     end else
         begin
            If Tipo = 'F' then
            begin
               RFacturaRes:=TRFacturaRes.Create(self);
               RFacturaRes.ADOQuery1.parameters[0].Value := numfact;
               RFacturaRes.ADOQuery1.parameters[1].Value := Tipo;
               RFacturaRes.ADOQuery1.Open;
               try
                  If RadioGroup1.ItemIndex = 1 then RFacturaRes.Preview
                  else RFacturaRes.Print;
               finally
                  RFacturaRes.Free;
               end;

e buscado por todo el código y no se por que este error.

Gracia mil