FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
|||
|
|||
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 |
|
|
|