Ver Mensaje Individual
  #3  
Antiguo 01-04-2004
MiguelC MiguelC is offline
Miembro
 
Registrado: oct 2003
Ubicación: República Dominicana
Posts: 15
Reputación: 0
MiguelC Va por buen camino
Hola guillotmarc.

Hice lo que me digiste, pero aún tengo el mismo problema, talvez esté haciendolo incorrecto aquí te envio lo que hice:

Una vez inserto en el Master entonces seteo el TimeOut y luego trato de insertar en el detalle:

With Qry_set_TimeOut do
Begin
Close;
Sql.Clear;
Sql.Add('SET LOCK_TIMEOUT 1000');
ExecSQL;
Close;
End;

Luego:

Try
With StoredProc1 Do
Begin
close;
ParamByName('@admcia_codigo').AsString :=cia_cod_bas;
ParamByName('@admsuc_codigo').AsString :=suc_cod_bas;
ParamByName('@eftsol_num').AsInteger := vi_serial; //eftsol_num;
ParamByName('@eftsol_seq').AsInteger :=1; //Sec;
ParamByName('@admtrx_cod').AsString :=admtrx_cod;
ParamByName('@eftsol_valor').AsFloat :=eftsol_valor;
ParamByName('@cntcta_codigo').AsString :=cntcta_codigo;
ParamByName('@eftsol_docum').AsString :=eftsol_docum;
ParamByName('@Origen').AsInteger :=Origen;
if not Prepared Then Prepare;
ExecProc; //OJO Aqui es que se cuelga
End;

Except
With Qry_set_TimeOut do
Begin
Close;
Sql.Clear;
Sql.Add('SELECT @@LOCK_TIMEOUT');
ExecSQL;
ShowMessage('Error en el proceso, tiempo de espera = ' + Fields [0].AsString);
Close;
End;
End;


Pero sigue colgado
__________________
"La unión del Código hace la Fuerza" LMCV
Responder Con Cita