Saludos
El problema es el siguiente:
Estoy ejecuntando dos querys uno para leer datos de de los empleados de la Tabla Empleados y tomar el codigo de estos guardando el valor en una variable, para luego en otro query consultar por codigo las ausencias de ese empleado en la tabla ausencias y grabar en otra tabla (tmpAus) para la cual utilizo un ADOTable la cantidad de ausencias de c/u de los empleados para su respectivo desc. en la nomina.
Hasta aqui todo va bien pero al ir grabando a la tabla (tmpaus) luego de cierta cantidad de registro truena el delphi y el mensaje es:
EOleException La Operacion en varios pasos genero errores
que prodria ser?
Aqui esta el codigo del boton cargar ausencias, que es el uso para generar lo antes mencionado.
Código Delphi
[-]procedure TFrmAusencias.BtnEjecutarClick(Sender: TObject);
var
Contador: Integer;
Valor :String;
begin
Label2.Visible:= True;
qryBorrar.Close;
qryBorrar.SQL.Clear;
qryBorrar.SQL.Append('DELETE FROM tmpaus');
qryBorrar.SQL.Append('WHERE Codbar => 1');
qryBorrar.ExecSQL;
QryEmpleados.First;
while not QryEmpleados.Eof do
begin
Valor := QryEmpleadoscodbar.AsString;
qryAusencias.Close;
qryAusencias.SQL.Clear;
qryAusencias.SQL.Append('SELECT codigo, codbar FROM ausencia');
qryAusencias.SQL.Append('WHERE Codbar ='+Valor);
qryAusencias.Open;
if not qryAusencias.IsEmpty then
begin
Contador := qryAusencias.RecordCount;
ADOTable1.Append;
ADOTable1.Fields[0].Value := qryAusencias.Fields[0].Value;
ADOTable1.Fields[1].Value := qryAusencias.Fields[1].Value;
ADOTable1.Fields[2].Value := contador;
progressbar1.Position := QryEmpleados.RecNo;
QryEmpleados.Next;
end
else begin
QryEmpleados.Next;
end;
end;
Showmessage('Proceso finalizado');
progressbar1.Position:= qryAusencias.RecNo-1;
Label2.Visible:=False;
end;