[Resolvido] Arquivo remessa - itau - asp

[filipefurriel 0]

Fala glr, alg já desenvolveu alg "arquivo remessa" quando implementou boletas itau em asp? Estou precisando desse arquivo remessa para que a cobrança registrada seja erfeita com todas as informações. Procurei, mas não achei aqui no imasters. Fico a espera do uma mão amiga.

[xanburzum 169]

olha este exemplo

download

 

O layout do arquivo remessa é semelhante ao do arquivo retorno, contendo apenas algumas diferenças relativas ao resultado do processamento. Eu tenho o pdf com informações técnicas do Itaú, se quiser me mande um email que te passo ele.

[filipefurriel 0]

Estou programando e vou fazer testes, conseguindo posto p que mtiver precisando. vwl

[filipefurriel 0]

Como prometido, voltei, e como ng pode me ajudar literalmente, quebrei um pouco a cabeça e fiquei uns dias programando. Vamos lá, para quem quer emitir remessa registrada por layout 400 é importante saber o seguinte:

 

 

1) o arquivo gerado deve ser txt.

2) o arquivo é composto de 3 linhas, a saber, somente três quebras de linhas. Isso porque o arquivo é dividido em três grandes registros, "registro header" - todos seus registros concatenados na primeira linha; "registro detalhe" - todos seus registros concatenados na segunda linha; e "registro trailer" - todos seus registros concatenados na terceira linha.

3) só deve haver os resultado nele, nada de nome de campo e assim por diante.

4) respeitar as posições e o número de caracteres de cada registro, ou seja, se o registro "nome do sacado" tem que ter 30 caracteres, e começar da posição 200 finalizando na posição 230, faça exatamente como o layout do banco te orienta.

5) se por algum motivo seu registro for menor que o numero de caracteres exigidos em algum campo, complete o restante dos caracteres, isso quer dizer que, dependendo do tipo de registro que o campo possa receber, então deve-se completar com "espaços" ou "zeros".

6) no caso de valores monetários, não digite ",", lembrando sempre de completar com zero da direita para esquerda a quantidade de caracteres que faltam no campo.

 

No demais, meu arquivo remessa foi validado e aprovado pelo banco, farei o possivel para o mais rápido disponibilizar o layout impresso, pois facilita melhor quando podemos ver o resultado, pois não tive essa oportunidade srsrs. Minha próxima resposta já será o "paste" de toda minha programação.

 

vwl.

[xanburzum 169]

dá uma olhada no pdf com informações técnicas do Itaú, ajuda também

[filipefurriel 0]

Tá aih o exemplo de programação pra quem desejar, vwl glr:

 

'OBJETO
Set OBS = Server.CreateObject("Scripting.FileSystemObject")
busca = Server.MapPath("pastaremessas\"&DOCUMENTO&".txt")
Set envia = OBS.CreateTextFile(busca,true)




TUDO=("0"&"1"&"REMESSA"&"01"&"COBRANCA       "&"5555"&"00"&"55555"&"0"&"        "&"xxxxxxxxxxxxxxxxxxxx         "&"341"&"BANCO ITAU SA  "&EMISSAO&BRANCOS294&"000001"&"<br/>"&"1"&"02"&"55555555555555"&"5555"&"00"&"55555"&"0"&"    "&"0000"&"                         "&"00000000"&"0000000000000"&"109"&"                     "&"I"&"01"&MEUNUMERO&VENCIMENTO&VALOR&"341"&"00000"&"15"&"A"&EMISSAO&"24"&"43"&"0000000000033"&VENCIMENTO&"0000000000000"&"0000000000000"&"0000000000000"&"01"&CPF&NOME&"          "&ENDERECO&BAIRRO&CEP&CIDADE&"RJ"&"                              "&"    "&"000000"&"00"&" "&"000002"&"<br/>"&"9"&BRANCOS393&"000003"&"<br/>")

'Replace(TUDO,chr(13),BR)

envia.Write(Replace(TUDO,"<br/>",vbcrLf))
envia.close
'response.write "ARQUIVO DE REMESSA GRAVADO COM SUCESSO."

[xanburzum 169]

boa... ficou simples e funcional...

[filipefurriel 0]

Galera, depois de o arquivo ser enviado com sucesso, é importante ressaltar algo, o "nosso numero" não pode se repetir a menos que já tenha passado 45 dias de sua emissão, assim, cada boleto deve ter exclusivamente um "nosso numero" diferente. Isos é o de menos, o pior é a confecção do digito que vem depois do nosso numero, que por padrão a uma forma de calcula-lo, fiz agora pouco a programação toda, demorei uma hora e estou compartilhando, pois sei que poderá adiantar algumas pessoas. Assim segue abaixo como descobrir o DAC do "nosso numero" (não rodei aind, pode ter algs erros, vwl):

 

<%
'PARA OBTER O DIGITO QUE FICA DEPOIS DO "NOSSO NUMERO", LEMBRANDO QUE O "NOSSO NUMERO" é um numero aleatório que não deve ser repetido para nenhuma outra boleta, a menos que já tenha se passado 45 dias após a emissão da mesma.


'obtem um numero que é a concatenação de, agência + conta corrente sem digito + carteira + nosso numero criado aleatoriamente.
DOCUMENTOXXX=AGENCIA&CONTA&CARTEIRA&NOSSONUMERO



'o proximo passo é, pegar cada caracter do numero criado, isso é, da esquerda para direta, sendo que, o este numero deverá ser multiplicado por dois ou um, seguindo a esta numeração já pré-determinada: 12121212121212121212. Se o resultado for um numero de duas casas, desmembrar e considerar dois numeros, isso é, se o resultado for "12", na verdade obteremos dois resultado, um de "1" e o outro de "2".


Valor1=Mid(DOCUMENTOXXX,20,1)
Valor1a=Cint(Valor1))*2
if len(Valor1a)=2 then
Valor1b=Left(Valor1a,1)
Valor1c=Right(Valor1a,1)
else
Valor1b=0
Valor1c=0
end if






Valor2=Mid(DOCUMENTOXXX,19,1)
Valor2a=Cint(Valor2)*1
if len(Valor1a)=2 then
Valor2b=Left(Valor2a,1)
Valor2c=Right(Valor2a,1)
else
Valor2b=0
Valor2c=0
end if





Valor3=Mid(DOCUMENTOXXX,18,1)
Valor3a=Cint(Valor3)*2
if len(Valor1a)=2 then
Valor3b=Left(Valor3a,1)
Valor3c=Right(Valor3a,1)
else
Valor3b=0
Valor3c=0
end if





Valor4=Mid(DOCUMENTOXXX,17,1)
Valor4a=Cint(Valor4)*1
if len(Valor4a)=2 then
Valor4b=Left(Valor4a,1)
Valor4c=Right(Valor4a,1)
else
Valor4b=0
Valor4c=0
end if





Valor5=Mid(DOCUMENTOXXX,16,1)
Valor5a=Cint(Valor5)*2
if len(Valor5a)=2 then
Valor5b=Left(Valor5a,1)
Valor5c=Right(Valor5a,1)
else
Valor5b=0
Valor5c=0
end if




Valor6=Mid(DOCUMENTOXXX,15,1)
Valor6a=Cint(Valor6)*1
if len(Valor6a)=2 then
Valor6b=Left(Valor6a,1)
Valor6c=Right(Valor6a,1)
else
Valor6b=0
Valor6c=0
end if




Valor7=Mid(DOCUMENTOXXX,14,1)
Valor7a=Cint(Valor7)*2
if len(Valor7a)=2 then
Valor7b=Left(Valor7a,1)
Valor7c=Right(Valor7a,1)
else
Valor7b=0
Valor7c=0
end if




Valor8=Mid(DOCUMENTOXXX,13,1)
Valor8a=Cint(Valor8)*1
if len(Valor8a)=2 then
Valor8b=Left(Valor8a,1)
Valor8c=Right(Valor8a,1)
else
Valor8b=0
Valor8c=0
end if




Valor9=Mid(DOCUMENTOXXX,12,1)
Valor9a=Cint(Valor9)*2
if len(Valor9a)=2 then
Valor9b=Left(Valor9a,1)
Valor9c=Right(Valor9a,1)
else
Valor9b=0
Valor9c=0
end if




Valor10=Mid(DOCUMENTOXXX,11,1)
Valor10a=Cint(Valor10)*1
if len(Valor10a)=2 then
Valor10b=Left(Valor10a,1)
Valor10c=Right(Valor10a,1)
else
Valor10b=0
Valor10c=0
end if




Valor11=Mid(DOCUMENTOXXX,10,1)
Valor11a=Cint(Valor11)*2
if len(Valor11a)=2 then
Valor11b=Left(Valor11a,1)
Valor11c=Right(Valor11a,1)
else
Valor11b=0
Valor11c=0
end if




Valor12=Mid(DOCUMENTOXXX,9,1)
Valor12a=Cint(Valor12)*1
if len(Valor12a)=2 then
Valor12b=Left(Valor12a,1)
Valor12c=Right(Valor12a,1)
else
Valor12b=0
Valor12c=0
end if




Valor13=Mid(DOCUMENTOXXX,8,1)
Valor13a=Cint(Valor13)*2
if len(Valor13a)=2 then
Valor13b=Left(Valor13a,1)
Valor13c=Right(Valor13a,1)
else
Valor13b=0
Valor13c=0
end if




Valor14=Mid(DOCUMENTOXXX,7,1)
Valor14a=Cint(Valor14)*1
if len(Valor14a)=2 then
Valor14b=Left(Valor14a,1)
Valor14c=Right(Valor14a,1)
else
Valor14b=0
Valor14c=0
end if




Valor15=Mid(DOCUMENTOXXX,6,1)
Valor15a=Cint(Valor15)*2
if len(Valor15a)=2 then
Valor15b=Left(Valor15a,1)
Valor15c=Right(Valor15a,1)
else
Valor15b=0
Valor15c=0
end if




Valor16=Mid(DOCUMENTOXXX,5,1)
Valor16a=Cint(Valor16)*1
if len(Valor16a)=2 then
Valor16b=Left(Valor16a,1)
Valor16c=Right(Valor16a,1)
else
Valor16b=0
Valor16c=0
end if




Valor17=Mid(DOCUMENTOXXX,4,1)
Valor17a=Cint(Valor17)*2
if len(Valor17a)=2 then
Valor17b=Left(Valor17a,1)
Valor17c=Right(Valor17a,1)
else
Valor17b=0
Valor17c=0
end if




Valor18=Mid(DOCUMENTOXXX,3,1)
Valor18a=Cint(Valor18)*1
if len(Valor18a)=2 then
Valor18b=Left(Valor18a,1)
Valor18c=Right(Valor18a,1)
else
Valor18b=0
Valor18c=0
end if




Valor19=Mid(DOCUMENTOXXX,2,1)
Valor19a=Cint(Valor19)*2
if len(Valor19a)=2 then
Valor19b=Left(Valor19a,1)
Valor19c=Right(Valor19a,1)
else
Valor19b=0
Valor19c=0
end if




Valor20=Mid(DOCUMENTOXXX,1,1)
Valor20a=Cint(Valor20)*1
if len(Valor20a)=2 then
Valor20b=Left(Valor20a,1)
Valor20c=Right(Valor20a,1)
else
Valor20b=0
Valor20c=0
end if



'deve-se somar todos os resultados
Valorgerala=(Valor1a)+(Valor1b)+(Valor1c)+(Valor2a)+(Valor2b)+(Valor2c)+(Valor3a)+(Valor3b)+(Valor3c)+(Valor4a)+(Valor4b)+(Valor4c)+(Valor5a)+(Valor5b)+(Valor5c)+(Valor6a)+(Valor6b)+(Valor6c)+(Valor7a)+(Valor7b)+(Valor7c)+(Valor8a)+(Valor8b)+(Valor8c)+(Valor9a)+(Valor9b)+(Valor9c)+(Valor10a)+(Valor10b)+(Valor10c)(Valor11a)+(Valor11b)+(Valor11c)+(Valor12a)+(Valor12b)+(Valor12c)+(Valor13a)+(Valor13b)+(Valor13c)+(Valor14a)+(Valor14b)+(Valor14c)+(Valor15a)+(Valor15b)+(Valor15c)+(Valor16a)+(Valor16b)+(Valor16c)+(Valor17a)+(Valor17b)+(Valor17c)+(Valor18a)+(Valor18b)+(Valor18c)+(Valor19a)+(Valor19b)+(Valor19c)+(Valor20a)+(Valor20b)+(Valor20c)





'pega-se o resultado da soma e divide por 10, e separa o RESTO desta operação.
Valorgeralb=Valorgerala Mod 10




'o valor de DAC será, o RESTO - 10.
Valorfinal=(10-(Valorgeralb))

%>

[filipefurriel 0]

JÁ TESTADO. OK. O CORRETO ESTÁ ABAIXO:

<%
'PARA OBTER O DIGITO QUE FICA DEPOIS DO "NOSSO NUMERO", LEMBRANDO QUE O "NOSSO NUMERO" é um numero aleatório que não deve ser repetido para nenhuma outra boleta, a menos que já tenha se passado 45 dias após a emissão da mesma.


'obtem um numero que é a concatenação de, agência + conta corrente sem digito + carteira + nosso numero criado aleatoriamente.
DOCUMENTOXXX=AGENCIA&CONTA&CARTEIRA&NOSSONUMERO



'o proximo passo é, pegar cada caracter do numero criado, isso é, da esquerda para direta, sendo que, o este numero deverá ser multiplicado por dois ou um, seguindo a esta numeração já pré-determinada: 12121212121212121212. Se o resultado for um numero de duas casas, desmembrar e considerar dois numeros, isso é, se o resultado for "12", na verdade obteremos dois resultado, um de "1" e o outro de "2".


Valor1=Mid(DOCUMENTOXXX,20,1)
Valor1a=FormatNumber(Valor1,1)*2
if len(Valor1a)=2 then
Valor1b=FormatNumber(Left(Valor1a,1))
Valor1c=FormatNumber(Right(Valor1a,1))
else
Valor1b=0
Valor1c=0
end if






Valor2=Mid(DOCUMENTOXXX,19,1)
Valor2a=FormatNumber(Valor2,1)*1
if len(Valor1a)=2 then
Valor2b=FormatNumber(Left(Valor2a,1))
Valor2c=FormatNumber(Right(Valor2a,1))
else
Valor2b=0
Valor2c=0
end if





Valor3=Mid(DOCUMENTOXXX,18,1)
Valor3a=FormatNumber(Valor3,1)*2
if len(Valor3a)=2 then
Valor3b=FormatNumber(Left(Valor3a,1))
Valor3c=FormatNumber(Right(Valor3a,1))
else
Valor3b=0
Valor3c=0
end if





Valor4=Mid(DOCUMENTOXXX,17,1)
Valor4a=FormatNumber(Valor4,1)*1
if len(Valor4a)=2 then
Valor4b=FormatNumber(Left(Valor4a,1))
Valor4c=FormatNumber(Right(Valor4a,1))
else
Valor4b=0
Valor4c=0
end if





Valor5=Mid(DOCUMENTOXXX,16,1)
Valor5a=FormatNumber(Valor5,1)*2
if len(Valor5a)=2 then
Valor5b=FormatNumber(Left(Valor5a,1))
Valor5c=FormatNumber(Right(Valor5a,1))
else
Valor5b=0
Valor5c=0
end if




Valor6=Mid(DOCUMENTOXXX,15,1)
Valor6a=FormatNumber(Valor6,1)*1
if len(Valor6a)=2 then
Valor6b=FormatNumber(Left(Valor6a,1))
Valor6c=FormatNumber(Right(Valor6a,1))
else
Valor6b=0
Valor6c=0
end if




Valor7=Mid(DOCUMENTOXXX,14,1)
Valor7a=FormatNumber(Valor7,1)*2
if len(Valor7a)=2 then
Valor7b=FormatNumber(Left(Valor7a,1))
Valor7c=FormatNumber(Right(Valor7a,1))
else
Valor7b=0
Valor7c=0
end if




Valor8=Mid(DOCUMENTOXXX,13,1)
Valor8a=FormatNumber(Valor8,1)*1
if len(Valor8a)=2 then
Valor8b=FormatNumber(Left(Valor8a,1))
Valor8c=FormatNumber(Right(Valor8a,1))
else
Valor8b=0
Valor8c=0
end if




Valor9=Mid(DOCUMENTOXXX,12,1)
Valor9a=FormatNumber(Valor9,1)*2
if len(Valor9a)=2 then
Valor9b=FormatNumber(Left(Valor9a,1))
Valor9c=FormatNumber(Right(Valor9a,1))
else
Valor9b=0
Valor9c=0
end if




Valor10=Mid(DOCUMENTOXXX,11,1)
Valor10a=FormatNumber(Valor10,1)*1
if len(Valor10a)=2 then
Valor10b=FormatNumber(Left(Valor10a,1))
Valor10c=FormatNumber(Right(Valor10a,1))
else
Valor10b=0
Valor10c=0
end if




Valor11=Mid(DOCUMENTOXXX,10,1)
Valor11a=FormatNumber(Valor11,1)*2
if len(Valor11a)=2 then
Valor11b=FormatNumber(Left(Valor11a,1))
Valor11c=FormatNumber(Right(Valor11a,1))
else
Valor11b=0
Valor11c=0
end if




Valor12=Mid(DOCUMENTOXXX,9,1)
Valor12a=FormatNumber(Valor12,1)*1
if len(Valor12a)=2 then
Valor12b=FormatNumber(Left(Valor12a,1))
Valor12c=FormatNumber(Right(Valor12a,1))
else
Valor12b=0
Valor12c=0
end if




Valor13=Mid(DOCUMENTOXXX,8,1)
Valor13a=FormatNumber(Valor13,1)*2
if len(Valor13a)=2 then
Valor13b=FormatNumber(Left(Valor13a,1))
Valor13c=FormatNumber(Right(Valor13a,1))
else
Valor13b=0
Valor13c=0
end if




Valor14=Mid(DOCUMENTOXXX,7,1)
Valor14a=FormatNumber(Valor14,1)*1
if len(Valor14a)=2 then
Valor14b=FormatNumber(Left(Valor14a,1))
Valor14c=FormatNumber(Right(Valor14a,1))
else
Valor14b=0
Valor14c=0
end if




Valor15=Mid(DOCUMENTOXXX,6,1)
Valor15a=FormatNumber(Valor15,1)*2
if len(Valor15a)=2 then
Valor15b=FormatNumber(Left(Valor15a,1))
Valor15c=FormatNumber(Right(Valor15a,1))
else
Valor15b=0
Valor15c=0
end if




Valor16=Mid(DOCUMENTOXXX,5,1)
Valor16a=FormatNumber(Valor16,1)*1
if len(Valor16a)=2 then
Valor16b=FormatNumber(Left(Valor16a,1))
Valor16c=FormatNumber(Right(Valor16a,1))
else
Valor16b=0
Valor16c=0
end if




Valor17=Mid(DOCUMENTOXXX,4,1)
Valor17a=FormatNumber(Valor17,1)*2
if len(Valor17a)=2 then
Valor17b=FormatNumber(Left(Valor17a,1))
Valor17c=FormatNumber(Right(Valor17a,1))
else
Valor17b=0
Valor17c=0
end if




Valor18=Mid(DOCUMENTOXXX,3,1)
Valor18a=FormatNumber(Valor18,1)*1
if len(Valor18a)=2 then
Valor18b=FormatNumber(Left(Valor18a,1))
Valor18c=FormatNumber(Right(Valor18a,1))
else
Valor18b=0
Valor18c=0
end if




Valor19=Mid(DOCUMENTOXXX,2,1)
Valor19a=FormatNumber(Valor19,1)*2
if len(Valor19a)=2 then
Valor19b=FormatNumber(Left(Valor19a,1))
Valor19c=FormatNumber(Right(Valor19a,1))
else
Valor19b=0
Valor19c=0
end if




Valor20=Mid(DOCUMENTOXXX,1,1)
Valor20a=FormatNumber(Valor20,1)*1
if len(Valor20a)=2 then
Valor20b=FormatNumber(Left(Valor20a,1))
Valor20c=FormatNumber(Right(Valor20a,1))
else
Valor20b=0
Valor20c=0
end if



'deve-se somar todos os resultados
Valorgerala=(Valor1a)+(Valor1b)+(Valor1c)+(Valor2a)+(Valor2b)+(Valor2c)+(Valor3a)+(Valor3b)+(Valor3c)+(Valor4a)+(Valor4b)+(Valor4c)+(Valor5a)+(Valor5b)+(Valor5c)+(Valor6a)+(Valor6b)+(Valor6c)+(Valor7a)+(Valor7b)+(Valor7c)+(Valor8a)+(Valor8b)+(Valor8c)+(Valor9a)+(Valor9b)+(Valor9c)+(Valor10a)+(Valor10b)+(Valor10c)+(Valor11a)+(Valor11b)+(Valor11c)+(Valor12a)+(Valor12b)+(Valor12c)+(Valor13a)+(Valor13b)+(Valor13c)+(Valor14a)+(Valor14b)+(Valor14c)+(Valor15a)+(Valor15b)+(Valor15c)+(Valor16a)+(Valor16b)+(Valor16c)+(Valor17a)+(Valor17b)+(Valor17c)+(Valor18a)+(Valor18b)+(Valor18c)+(Valor19a)+(Valor19b)+(Valor19c)+(Valor20a)+(Valor20b)+(Valor20c)





'pega-se o resultado da soma e divide por 10, e separa o RESTO desta operação.
Valorgeralb=Valorgerala Mod 10




'o valor de DAC será, o RESTO - 10.
Valorfinal=(10-(Valorgeralb))
response.write(Valorfinal)
%>

[edsonmoraes 0]

Já estamos com algum tempo nesse tema, mas eu precisaria da ajuda de vocês. O meu problema achar uma solução para arquivo remessa do banco bradesco.

 

Estou iniciando os estudos nessa área e através do exemplo do filipefurriel, consegui gerar o arquivo .txt vejam:

 

<%

codigo = request.QueryString("codigo")

sql = "SELECT * FROM parcelas where juridico = 2 and pago = 2 and cod_contrato =" &codigo& " order by data_venc asc"

Set rt = conexao.execute(sql)

var_id_banco = rt.fields("id_banco")

SQL3 = "SELECT * FROM Configuracoes WHERE CodBAnco ="&var_id_banco

'response.Write(SQL3)&" | "

Set rt3 = conexao.execute(SQL3)

Set OBS = Server.CreateObject("Scripting.FileSystemObject")

Set envia = OBS.CreateTextFile("E:\Vhosts\dominio.com.br\httpdocs\gera\data\"&codigo&".txt",True)

while NOT rt.EOF

var_valor = rt.fields("Valor")

var_num_parcela = rt.fields("num_parcela")

var_sacado = rt.fields("sacado")

var_documento = rt.fields("Documento")

var_endereco_sacado = rt.fields("Endereco")

var_bairro_sacado = rt.fields("Bairro")

var_cidade_sacado = rt.fields("Cidade")

var_cep_uf_sacado = rt.fields("CepUF")

var_demonstrativo_sacado = rt.fields("Demonstrativo")

var_instrucoes_sacado = rt.fields("Instrucoes")

var_data_venc = rt.fields("data_venc")

var_data = rt.fields("data_geracao")

var_cod_parcela = rt.fields("cod_parcela")

var_cod_contrato = rt.fields("cod_contrato")

var_nosso_numero =var_cod_contrato&var_cod_parcela

var_Cedente = rt3.fields("Cedente")

var_Banco = rt3.fields("Banco")

var_Agencia = rt3.fields("Agencia")

var_Conta = rt3.fields("Conta")

var_Modalidade = rt3.fields("Modalidade")

var_Convenio = rt3.fields("Convenio")

var_Carteira = rt3.fields("Carteira")

var_CodCedente = rt3.fields("CodCedente")

TUDO=("0"&"1"&"REMESSA"&var_num_parcela&"COBRANCA "&"5555"&"00"&"55555"&"0"&" "&"xxxxxxxxxxxxxxxxxxxx "&"237-2"&"Bradesco "&var_data&BRANCOS294&"000001"&"<br/>"&"1"&"02"&"55555555555555"&"5555"&"00"&"55555"&"0"&" "&"0000"&" "&"00000000"&"0000000000000"&"109"&" "&"I"&"01"&var_nosso_numero&var_data_venc&var_valor&"341"&"00000"&"15"&"A"&var_data&"24"&"43"&"0000000000033"&var_data_venc&"0000000000000"&"0000000000000"&"0000000000000"&"01"&var_documento&var_sacado&" "&var_endereco_sacado&var_bairro_sacado&var_cep_uf_sacado&var_cidade_sacado&"SP"&" "&" "&"000000"&"00"&" "&"000002"&"<br/>"&"9"&BRANCOS393&"000003"&"<br/>")

envia.Write(Replace(TUDO,"<br/>",vbcrLf))

rt.MoveNext

wend

'response.End()

'Replace(TUDO,chr(13),BR)

envia.close

'É necessário passar o nome do arquivo no FORM

Response.Buffer = True

Response.AddHeader "Content-Type","application/x-msdownload"

Response.AddHeader "Content-Disposition","attachment; filename=" &var_cod_contrato&".txt"

Response.Flush

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Open

objStream.Type = 1

objStream.LoadFromFile Server.MapPath("data\"&var_cod_contrato&".txt")

Response.BinaryWrite objStream.Read

objStream.Close

Set objStream = Nothing

Response.Flush

Set rt = Nothing

Set conexao = Nothing

%>

Bom feito isso, o bradesco pede que eu crie um arquivo .tst para teste e outro para produção do tipo .rem.

Como fazer esses tipos de arquivo para o cliente dar download e inserir no bradesco net.

Obrigado

[xanburzum 169]

Crie através do FSO e na extensão atribua o .tst, depois disponibilze o caminho para donwload ou faça um sisteminha simples de download (tem um exemplo que postei no fórum)

[edsonmoraes 0]

Obrigado Xanburzum, falei com o pessoal do bradesco e eles disseram que basta fazer um arquivo txt. Agora estou batalhando nos detalhes do arquivo do pdf que me enviaram. O tal do layout, mas são tantas páginas para ler e é meio confuso. Mas tenho que ler isso e tentar encaixar direito no exemplo do nosso amigo aqui filipefurriel. Tentei com eles um exemplo de arquivo gerado do tipo txt, mas eles não deram. Será que vc teria algum para eu dar uma olhada?

[xanburzum 169]

eu postei um no fórum o exemplo que vem de modelo do banco