Fórum QUERY TIMEOUT EXPIRED - STORED PROCEDURE SQL SERVER / DELPHI #482788
16/06/2014
0
Srs(a), tenho uma aplicação feita em Delphi XE3 para gerar etiquetas, só que tem horas que ela funciona e tem horas que não, A aplicação fica travada até dar a mensagem "QUERY TIMEOUT EXPIRED", já procurei na internet uma solução porém não tenho encontrado, gostaria de saber se os amigos da lista poderiam me ajudar. O programa foi desenvolvido em Delphi XE3 e SQL Server 2008 r2. Estou usando componentes da paleta dbGO no caso ADOStoredProc para executar essa stored procedure. Segue abaixo o código. Obrigado.
CREATE PROCEDURE [stp_aks_etiq_op_tub_gerar]
(@cod_local_prod char(10), @den_texto_1 char(76))
AS
BEGIN
SET NOCOUNT ON
Set Transaction Isolation Level Read UnCommitted
BEGIN
TRANSACTION
DELETE FROM AKS_TUBULACAO_ETIQ where [Área e linha] = @cod_local_prod and programação = @den_texto_1
INSERT INTO aks_tubulacao_etiq
SELECT
o.cod_local_prod 'Área e linha',
o.num_ordem ordem,
o.cod_item item,
Ptxt.den_texto_1 programação,
L.den_local denominacao,
--O.dat_entrega 'Dt de Entrega',
convert( char(10), DATEADD(day, 35, getdate()), 103) as Dt_Entrega,
COND.conteudo_caracterist Situacao_Pintura
FROM ordens O (nolock)
inner join ped_itens Pitens (nolock)
ON O.cod_item=Pitens.cod_item
inner join ped_itens_texto Ptxt (nolock)
ON Pitens.num_pedido=Ptxt.num_pedido
AND Pitens.num_sequencia=Ptxt.num_sequencia
INNER JOIN local L (nolock)
ON L.cod_local = o.cod_local_prod
LEFT JOIN MAN_ITEM_FORM_PDM_CARACTERIST COND (nolock)
ON COND.item=o.cod_item
AND COND.caracterist='26'
WHERE
o.cod_local_prod = @cod_local_prod AND
Ptxt.den_texto_1 = @den_texto_1 AND
o.ies_situa=4 AND
o.cod_empresa='01'
ORDER BY [Área e linha], ordem
IF @@ERROR <> 0
ROLLBACK
ELSE
COMMIT
select * from aks_tubulacao_etiq (nolock)
where [Área e Linha] = @cod_local_prod and programação = @den_texto_1
SET NOCOUNT OFF
END
CREATE PROCEDURE [stp_aks_etiq_op_tub_gerar]
(@cod_local_prod char(10), @den_texto_1 char(76))
AS
BEGIN
SET NOCOUNT ON
Set Transaction Isolation Level Read UnCommitted
BEGIN
TRANSACTION
DELETE FROM AKS_TUBULACAO_ETIQ where [Área e linha] = @cod_local_prod and programação = @den_texto_1
INSERT INTO aks_tubulacao_etiq
SELECT
o.cod_local_prod 'Área e linha',
o.num_ordem ordem,
o.cod_item item,
Ptxt.den_texto_1 programação,
L.den_local denominacao,
--O.dat_entrega 'Dt de Entrega',
convert( char(10), DATEADD(day, 35, getdate()), 103) as Dt_Entrega,
COND.conteudo_caracterist Situacao_Pintura
FROM ordens O (nolock)
inner join ped_itens Pitens (nolock)
ON O.cod_item=Pitens.cod_item
inner join ped_itens_texto Ptxt (nolock)
ON Pitens.num_pedido=Ptxt.num_pedido
AND Pitens.num_sequencia=Ptxt.num_sequencia
INNER JOIN local L (nolock)
ON L.cod_local = o.cod_local_prod
LEFT JOIN MAN_ITEM_FORM_PDM_CARACTERIST COND (nolock)
ON COND.item=o.cod_item
AND COND.caracterist='26'
WHERE
o.cod_local_prod = @cod_local_prod AND
Ptxt.den_texto_1 = @den_texto_1 AND
o.ies_situa=4 AND
o.cod_empresa='01'
ORDER BY [Área e linha], ordem
IF @@ERROR <> 0
ROLLBACK
ELSE
COMMIT
select * from aks_tubulacao_etiq (nolock)
where [Área e Linha] = @cod_local_prod and programação = @den_texto_1
SET NOCOUNT OFF
END
Vantuil Amante
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)