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
[-] 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; 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