Olá, Galera..
Gostaria de saber por que a minha procedure não gera o arquivo via aplicação..
USE [reqjud]
GO
/****** Object: StoredProcedure [dbo].[SPR_ENVELOPAMENTO_AUTOMATICO] Script Date: 02/24/2012 12:31:30 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER procedure [dbo].[SPR_ENVELOPAMENTO_AUTOMATICO]
/*
AUTOR(A): PRISCILA HENRIQUES
VERSÃO: 2.0
CRIADO EM: 27/01/2012
DECLARE @P_RETURN SMALLINT ,@P_MENSAGEM VARCHAR(200)
EXEC SPR_ENVELOPAMENTO_AUTOMATICO 'ENVELOPAMENTO', 13, @P_RETURN OUTPUT ,@P_MENSAGEM OUTPUT
SELECT @P_MENSAGEM
*/
@P_CHAVE VARCHAR(30),
@P_ID_OFICIO_MODELO INT,
@P_RETURN SMALLINT OUTPUT,
@P_MENSAGEM VARCHAR(200) OUTPUT
AS
DECLARE @V_DATA VARCHAR(10),
@V_USUARIO VARCHAR(20),
@V_SENHA VARCHAR(20),
@V_MONTAR_ARQUIVO VARCHAR(3000),
@V_SERVIDOR VARCHAR(30),
@V_DIR_ORIGEM VARCHAR(50),
@V_DIR_DESTINO VARCHAR(50),
@V_NOME_ARQUIVO VARCHAR(200),
@V_NUMERO VARCHAR(40),
@V_ID_OFICIO varchar(10),
@V_ID_SITUACAO varchar(20),
@V_CAMINHO_ARQUIVO VARCHAR(100),
@V_NUMERO_COMUNICACAO VARCHAR(40),
@V_CABECALHO VARCHAR(3000),
@V_MENSAGEM VARCHAR(4000),
@V_ANO VARCHAR(5),
@V_DATA_EMISSAO VARCHAR(36),
@V_LISTA_VALORES varchar(720), -- 7 LINHAS X 90 CARACTERES
@V_POSICAO_ATUAL varchar(max),
@V_LISTA_VALORES_MENSAGEM varchar(1890), -- 21 LINHAS X 90 CARACTERES
@V_POSICAO_ATUAL_MENSAGEM VARCHAR(MAX)
BEGIN -- INICIO DO PROCESSAMENTO
/* REGRA PARA O GERAMENTO DO ARQUIVO:
-> O CABECALHO DEVE TER NO MÁXIMO 7 LINHAS
-> CADA LINHA DO CABECALHO DEVE CONTER 90 CARACTERES
-> A MENSAGEM DEVE TER ENTRE 7 E 21 LINHAS, NÃO PODE TER MENSAGEM COM MENOS DE 7 LINHAS
-> CADA LINHA DO CABECALHO DEVE CONTER 90 CARACTERES
*/
/*
---| Selecionar a data ativa da tabela de datas |-----
*/
SELECT @V_DATA = CONVERT(VARCHAR(10), DATA_ATUAL,112)
FROM DATAS
WHERE SITUACAO = 'A'
/*
---| Selecionar ID_OFICIO PARA SER SALVO NA TABELA HISTORICO |-----
*/
SELECT @V_ID_OFICIO = ID_OFICIO,
@V_ANO = ANO,
@V_NUMERO= NUMERO,
@V_DATA_EMISSAO = CASE SUBSTRING(CONVERT(VARCHAR(2),DATA_EMISSAO,101),1,2)
WHEN '01' THEN 'Belém(PA), Janeiro de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
WHEN '02' THEN 'Belém(PA), Fevereiro de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
WHEN '03' THEN 'Belém(PA), Março de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
WHEN '04' THEN 'Belém(PA), Abril de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
WHEN '05' THEN 'Belém(PA), Maio de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
WHEN '06' THEN 'Belém(PA), Junho de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
WHEN '07' THEN 'Belém(PA), Julho de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
WHEN '08' THEN 'Belém(PA), Agosto de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
WHEN '09' THEN 'Belém(PA), Setembro de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
WHEN '10' THEN 'Belém(PA), Outubro de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
WHEN '11' THEN 'Belém(PA), Novembro de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
WHEN '12' THEN 'Belém(PA), Dezembro de ' + SUBSTRING(CONVERT(VARCHAR(8),DATA_EMISSAO,101),4,2) + ' de ' + @V_ANO
END,
@V_CABECALHO = CABECALHO,
@V_MENSAGEM = MENSAGEM
FROM OFICIO_MODELO
WHERE ID_OFICIO_MODELO = @P_ID_OFICIO_MODELO
---------------------------------------------------------------------TRATAR O CABECALHO----------------------------------------
--A) TABELA TEMPORÁRIA ARMAZENAR TODAS LINHAS DO CABECALHO
CREATE TABLE #OFICIO_MODELO
(
ID INT IDENTITY,
ID_OFICIO_MODELO INT,
ANO VARCHAR(4),
NUMERO VARCHAR(2),
DATA_EMISSAO VARCHAR(36),
CABECALHO VARCHAR(720),
MENSAGEM VARCHAR(1890)
)
--B) TABELA TEMPORÁRIA QUE IRÁ ARMAZENAR AS LINHAS QUE SERÃO GRAVADAS NO ARQUIVO
CREATE TABLE #OFICIO_MODELO_FINAL
(
ID INT IDENTITY,
ID_OFICIO_MODELO INT,
ANO VARCHAR(4),
NUMERO VARCHAR(2),
DATA_EMISSAO VARCHAR(36),
CABECALHO VARCHAR(720),
MENSAGEM VARCHAR(1890)
)
-- C) LISTA CONTENDO TODOS OS CARACTERES DO CABECALHO
SET @V_LISTA_VALORES = (SELECT CABECALHO FROM OFICIO_MODELO WHERE ID_OFICIO_MODELO= @P_ID_OFICIO_MODELO)
-- D) LOOP QUE TEM COMO FINAIDADE PEGAR CONJUNTO DE CARACTERES ANTES DA QUEBRA DE LINHA
WHILE CHARINDEX (CHAR(13),@V_LISTA_VALORES,1) <> 0
BEGIN
Set @V_POSICAO_ATUAL = SUBSTRING(@V_LISTA_VALORES,1,CHARINDEX(CHAR(13),@V_LISTA_VALORES,1)-1)
Set @V_LISTA_VALORES = SUBSTRING(@V_LISTA_VALORES,CHARINDEX(CHAR(13),@V_LISTA_VALORES,1)+1,LEN(@V_LISTA_VALORES))
IF (LEN(@V_POSICAO_ATUAL) > 0 AND LEN(@V_POSICAO_ATUAL) <= 90)
BEGIN
INSERT INTO #OFICIO_MODELO(ID_OFICIO_MODELO ,ANO, NUMERO, DATA_EMISSAO,CABECALHO) VALUES(@P_ID_OFICIO_MODELO, @V_ANO,@V_NUMERO, @V_DATA_EMISSAO,@V_POSICAO_ATUAL)
END
ELSE
BEGIN
SET @P_MENSAGEM = 'Número de caracteres excedido por linha no máximo 90 caracteres(CABECALHO)'
truncate TABLE #OFICIO_MODELO
truncate TABLE #OFICIO_MODELO_FINAL
RETURN 0
END
END
IF LEN(@V_LISTA_VALORES) > 0 AND LEN(@V_LISTA_VALORES) <= 90
BEGIN
INSERT INTO #OFICIO_MODELO(ID_OFICIO_MODELO ,ANO, NUMERO, DATA_EMISSAO,CABECALHO) VALUES(@P_ID_OFICIO_MODELO, @V_ANO,@V_NUMERO, @V_DATA_EMISSAO,@V_LISTA_VALORES)
END
ELSE
BEGIN
SET @P_MENSAGEM = 'Número de caracteres excedido por linha no máximo 90 caracteres(CABECALHO)'
truncate TABLE #OFICIO_MODELO
truncate TABLE #OFICIO_MODELO_FINAL
RETURN 0
END
IF((SELECT COUNT(*) FROM #OFICIO_MODELO) > 7)
BEGIN
SET @P_MENSAGEM= 'Quantidade de linha excedidas(CABECALHO)'
truncate TABLE #OFICIO_MODELO
truncate TABLE #OFICIO_MODELO_FINAL
RETURN 0
END
ELSE
INSERT INTO #OFICIO_MODELO_FINAL (ID_OFICIO_MODELO,ANO, NUMERO, DATA_EMISSAO,CABECALHO) SELECT TOP 7 ID_OFICIO_MODELO,ANO, NUMERO, DATA_EMISSAO,CABECALHO FROM #OFICIO_MODELO
INSERT INTO ENVELOPAMENTO_CARTA_CABECALHO(ID_OFICIO_MODELO,ANO, NUMERO, DATA_EMISSAO,CABECALHO) SELECT TOP 7 ID_OFICIO_MODELO,ANO, NUMERO, DATA_EMISSAO,CABECALHO FROM #OFICIO_MODELO_FINAL
------------------------- TERMINO
--------------------------------------------------------------------TRATAR MENSAGEM---------------------------------------------
CREATE TABLE #MENSAGEM
(
ID INT IDENTITY,
ID_OFICIO_MODELO INT,
ANO VARCHAR(4),
NUMERO VARCHAR(2),
DATA_EMISSAO VARCHAR(36),
CABECALHO VARCHAR(720),
MENSAGEM VARCHAR(1890)
)
CREATE TABLE #MENSAGEM_FINAL
(
ID INT IDENTITY,
ID_OFICIO_MODELO INT,
ANO VARCHAR(4),
NUMERO VARCHAR(2),
DATA_EMISSAO VARCHAR(36),
CABECALHO VARCHAR(720),
MENSAGEM VARCHAR(1890)
)
SET @V_LISTA_VALORES = (SELECT MENSAGEM FROM OFICIO_MODELO WHERE ID_OFICIO_MODELO = @P_ID_OFICIO_MODELO)
WHILE CHARINDEX(CHAR(13),@V_LISTA_VALORES,1) <> 0
BEGIN
SET @V_POSICAO_ATUAL = SUBSTRING(@V_LISTA_VALORES,1,CHARINDEX(CHAR(13),@V_LISTA_VALORES,1)-1)
Set @V_LISTA_VALORES = SUBSTRING(@V_LISTA_VALORES,CHARINDEX(char(13),@V_LISTA_VALORES,1)+1,Len(@V_LISTA_VALORES))
If (LEN(@V_POSICAO_ATUAL) > 0 AND LEN(@V_POSICAO_ATUAL) <= 90)
BEGIN
INSERT INTO #MENSAGEM(ID_OFICIO_MODELO ,ANO, NUMERO, DATA_EMISSAO,MENSAGEM) VALUES(@P_ID_OFICIO_MODELO, @V_ANO,@V_NUMERO, @V_DATA_EMISSAO,@V_POSICAO_ATUAL)
END
ELSE
BEGIN
SET @P_MENSAGEM = 'Número de caracteres excedido por linha no máximo 90 caracteres(MENSAGEM) INÍCIO'
TRUNCATE TABLE #MENSAGEM
TRUNCATE TABLE #MENSAGEM_FINAL
RETURN
END
END
IF LEN(@V_LISTA_VALORES) > 0 AND LEN(@V_LISTA_VALORES) <= 90
BEGIN
INSERT INTO #MENSAGEM(ID_OFICIO_MODELO ,ANO, NUMERO, DATA_EMISSAO,MENSAGEM) VALUES(@P_ID_OFICIO_MODELO, @V_ANO,@V_NUMERO, @V_DATA_EMISSAO,@V_LISTA_VALORES)
END
ELSE
BEGIN
SET @P_MENSAGEM = 'Número de caracteres excedido por linha no máximo 90 caracteres (MENSAGEM) FIM'
DROP TABLE #MENSAGEM
DROP TABLE #MENSAGEM_FINAL
RETURN 0
END
IF (SELECT COUNT(*) FROM #MENSAGEM) < 7
BEGIN
SET @P_MENSAGEM = 'No mínino 7 linhas (MENSAGEM)'
DROP TABLE #MENSAGEM
DROP TABLE #MENSAGEM_FINAL
RETURN 0
END
IF (SELECT COUNT(*) FROM #MENSAGEM) > 21
BEGIN
SET @P_MENSAGEM = 'Quantidade de linha excedidas no máximo 21(MENSAGEM)'
DROP TABLE #MENSAGEM
DROP TABLE #MENSAGEM_FINAL
RETURN 0
END
ELSE
BEGIN
INSERT INTO #MENSAGEM_FINAL (ID_OFICIO_MODELO,ANO, NUMERO, DATA_EMISSAO,MENSAGEM) SELECT TOP 21 ID_OFICIO_MODELO,ANO, NUMERO, DATA_EMISSAO,MENSAGEM FROM #MENSAGEM
INSERT INTO ENVELOPAMENTO_CARTA_MENSAGEM(ID_OFICIO_MODELO,ANO, NUMERO, DATA_EMISSAO,MENSAGEM) SELECT TOP 21 ID_OFICIO_MODELO,ANO, NUMERO, DATA_EMISSAO,MENSAGEM FROM #MENSAGEM_FINAL
END
------------------------- TERMINO
/*
---| Selecionar A SITUAÇÃO DO OFICIO PARA SER SALVO NA TABELA HISTORICIO |-----
*/
SELECT @V_ID_SITUACAO = ID_SITUACAO,
@V_NUMERO_COMUNICACAO = NUMERO_COMUNICACAO
FROM OFICIO
WHERE ID_OFICIO = @V_ID_OFICIO
/*
---|INDICAR O ARQUIVO A SER EXPORTADO DA TABELA DE ARQUIVOS| ---
*/
Select @V_SERVIDOR = SERVIDOR,
@V_DIR_ORIGEM = DIR_ORIGEM,
@V_DIR_DESTINO = DIR_DESTINO,
@V_NOME_ARQUIVO = 'reqjud_' + @V_NUMERO_COMUNICACAO +'_'+ CONVERT(VARCHAR(10),@P_ID_OFICIO_MODELO)+'_' +@V_DATA+'.txt'
FROM ARQUIVO
WHERE CHAVE = @P_CHAVE
/*
---|MONTAR O ARQUIVO | ---
*/
SET @V_MONTAR_ARQUIVO = @V_SERVIDOR +@V_DIR_ORIGEM+@V_DIR_DESTINO+'\'+ @V_NOME_ARQUIVO
SET @V_CAMINHO_ARQUIVO = @V_SERVIDOR +@V_DIR_ORIGEM+@V_DIR_DESTINO+@V_NOME_ARQUIVO
/*
--| INSERIR NA LOG DO SISTEMA ---|
*/
INSERT INTO LOG_SISTEMA values (cast(@V_DATA + ' '+ (CONVERT(VARCHAR(8), getdate(),108)) as datetime), 'E', 'INÍCIO DA EXPORTAÇÃO DO ARQUIVO: ' + @V_MONTAR_ARQUIVO)
/*
--| exportar o arquivo --|
*/
if (@P_CHAVE = 'ENVELOPAMENTO')
BEGIN
set @V_MONTAR_ARQUIVO = 'bcp "SELECT A.id_oficio_modelo,''Ref. Carta GCONF Nº '' + SUBSTRING(CONVERT(VARCHAR(4),A.ANO),1,4)+ ''/'' + CONVERT(VARCHAR(2),A.NUMERO) ,'' --- '',A.DATA_EMISSAO,'' --- '',A.CABECALHO, B.MENSAGEM FROM REQJUD.DBO.ENVELOPAMENTO_CARTA_CABECALHO A RIGHT JOIN REQJUD.DBO.ENVELOPAMENTO_CARTA_MENSAGEM B ON A.ID = B.ID " queryout ' + @V_MONTAR_ARQUIVO
+ ' -c -C ACP -t -S '
+ @@SERVERNAME
+ ' -T'
exec master..xp_cmdshell @V_MONTAR_ARQUIVO
END
/*
-- LIMPAR AS TABELAS ENVELOPAMENTO_CARTA_CABECALHO / ENVELOPAMENTO_CARTA_MENSAGEM
*/
TRUNCATE TABLE ENVELOPAMENTO_CARTA_CABECALHO
TRUNCATE TABLE ENVELOPAMENTO_CARTA_MENSAGEM
/*
-- INSERIR LOG NA TABELA LOG_SISTEMA
*/
INSERT INTO LOG_SISTEMA values (cast(@V_DATA + ' '+ (CONVERT(VARCHAR(8), getdate(),108)) as datetime), 'I', 'TÉRMINO DA EXPORTAÇAO DO ARQUIVO: ' + @V_MONTAR_ARQUIVO)
/* INSERIR NA TABELA HISTÓRICO */
INSERT INTO OFICIO_HISTORICO values ( @V_ID_OFICIO, cast(@V_DATA + ' '+ (CONVERT(VARCHAR(8), getdate(),108)) as datetime), 'SISTEMA', 'Envelopamento automático gerado: ' + @V_CAMINHO_ARQUIVO, @V_ID_SITUACAO)
/* ELIMINAR AS TABELAS TEMPORÁRIAS LOCAIS */
DROP TABLE #OFICIO_MODELO
DROP TABLE #OFICIO_MODELO_FINAL
DROP TABLE #MENSAGEM
DROP TABLE #MENSAGEM_FINAL
/* MUDAR O CAMPO CASO PARA (A) DA TABELA OFÍCIO, INDICANDO QUE FOI GERADO O ARQUIVO ENVELOPAMENTO
a) automático
*/
UPDATE OFICIO_MODELO
SET STATUS = 'A'
WHERE ID_OFICIO = @V_ID_OFICIO
SET @P_MENSAGEM = 'ENVELOPAMENTO EXPORTADO COM SUCESSO NO : ' + @V_CAMINHO_ARQUIVO
END -- FINAL DO PROCESSAMENTO
está é a procedure..
executando via banco funciona normalmente, porém quando é via aplicação não gera o arquivo..
creio que seja o BCP..
me ajudem!
priscila henriques
