Ayuda con exeception class EOleExeception

[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

[Mary Carmen G.]

HOla:
Que componente es Qtemp? es un AdoQuery, bueno en primer lugar te recomiendo que caches esa excepcion con...

Try
     QTemp.SQL.Text := 'Select Max(CodFactura) From Factura where Tipo 
                                      = '+QuotedStr(Tipo);QTemp.Open;
except
       on e:EOLEException do //error de conexion
          begin
             MessageDlg('Error . '+e.Message, mtError,[mbOk], 0);
             exit;
          end;
       on e:EdataBaseError do  //error en base de datos
       begin
             MessageDlg('Error . '+e.Message, mtError,[mbOk], 0);
             exito:=false;
             Query.Close;
             exit;
       end;
    end; //except

Y ademas el error que te indica es con los parametros en la consulta, prueba agregandole las comillas simples al tipo que le mandas de parametro:

QTemp.SQL.Text := 'Select Max(CodFactura) From Factura where Tipo = '''+QuotedStr(Tipo)+'''';

[chino150]

ok lo intento luego te digo

[Mary Carmen G.]

Para poder cachar la Excepcion necesitas agregar la unit ComObj en el Uses de tu UNit.

Saludos

[chino150]

Que es esto

exito:=false;

[Mary Carmen G.]

Omite eso!! Lo copie de un codigo que tengo, es una variable boolean, que indica que hubo un error de base de datos.

Saludos.