COMO VALIDAR ARQUIVO DE RETORNO FEBRABAN?
gente estou precisando validar o arquivo de retorno formato febraba(Federação Brasileira de Bancos) o arquivo é TXT
se alguem sou de algum aplicativo que fassa a validação me da um retorno!!!
vlw[ô]s
se alguem sou de algum aplicativo que fassa a validação me da um retorno!!!
vlw[ô]s
cara no site da frebaban tem o manual disponivel para download
o tratamento é +- assim
abre-se o arquivo de extensão RET
vc vai ter a linha T e a linha U
na linha T vc pega os dados (banco,Agencia,Cod Cedente, Agencia) e ,Tarifa,Juros,Multa ----totais do arquivo
na Liha U vc pega os dados(Valor,Vecimento,Tarifa,DatadoCredito,Multa,Juros) do recebimento
é só vc pegar no manual a posição de cada informação desta
Open [Ô]C:\Pasta\Arquivo.ret[Ô] For Input As #1
Do while Not EOF(1)
Line Inpute #1,Texto
IL= Mid(texto,14,1) --Identifica a linha se é U ou T
If IL=[Ô]T[Ô]
If PrimeiravezdoLoop Then
Primeiravez=true
Banco=Left(texto,3)
CodCedente=Trim(Mid(Texto,24,6)
Agencia=Trim(Mid(Texto,101.4)
end if
If Banco <> [Ô]104[Ô] then
close #1
msgbox[Ô]Este arquivo de retorno não pertence a Caixa Economica Federal[Ô]
exit sub
end if
if CodCedente <> [Ô]0946523[Ô] then
close #1
msgbox[Ô]O código do cedente não confere com os boletos gerados[Ô]
exit sub
end if
aqui vc pode fazer mais verificações do tipo agencia,Conta etc.
Nossonumero=Mid(texto,42,15)
Vecimento=Mid(texto,74,8)
Valor= Mid(texto,95,2)
Centavo=Mis(Texto,95,2)
Valor=format(Valor & [Ô],[Ô] & Centavo,[Ô]#,##0.00[Ô])
Tarifa= Mid(Texto,199,13)
Centavo=Mid(Texto,212,2)
Tarifa=Format(Tarifa & [Ô],[Ô] & centavo
Tarifa=Format(tarifa,[Ô]#,##0.00[Ô])
aqui vc tem que acumular o Valor e a tarifa
Elseif IL=[Ô]U[Ô]
DataCrdito=Mid(Texto,146,8)
Aqui vc adiciona os dados na tabela
end if
Texto=[Ô][Ô]
loop
Close #1
Por ai já dá pra vc ter uma ideia de como é, basta pegar o manual da febraban e ver as posições de cada informação
o tratamento é +- assim
abre-se o arquivo de extensão RET
vc vai ter a linha T e a linha U
na linha T vc pega os dados (banco,Agencia,Cod Cedente, Agencia) e ,Tarifa,Juros,Multa ----totais do arquivo
na Liha U vc pega os dados(Valor,Vecimento,Tarifa,DatadoCredito,Multa,Juros) do recebimento
é só vc pegar no manual a posição de cada informação desta
Open [Ô]C:\Pasta\Arquivo.ret[Ô] For Input As #1
Do while Not EOF(1)
Line Inpute #1,Texto
IL= Mid(texto,14,1) --Identifica a linha se é U ou T
If IL=[Ô]T[Ô]
If PrimeiravezdoLoop Then
Primeiravez=true
Banco=Left(texto,3)
CodCedente=Trim(Mid(Texto,24,6)
Agencia=Trim(Mid(Texto,101.4)
end if
If Banco <> [Ô]104[Ô] then
close #1
msgbox[Ô]Este arquivo de retorno não pertence a Caixa Economica Federal[Ô]
exit sub
end if
if CodCedente <> [Ô]0946523[Ô] then
close #1
msgbox[Ô]O código do cedente não confere com os boletos gerados[Ô]
exit sub
end if
aqui vc pode fazer mais verificações do tipo agencia,Conta etc.
Nossonumero=Mid(texto,42,15)
Vecimento=Mid(texto,74,8)
Valor= Mid(texto,95,2)
Centavo=Mis(Texto,95,2)
Valor=format(Valor & [Ô],[Ô] & Centavo,[Ô]#,##0.00[Ô])
Tarifa= Mid(Texto,199,13)
Centavo=Mid(Texto,212,2)
Tarifa=Format(Tarifa & [Ô],[Ô] & centavo
Tarifa=Format(tarifa,[Ô]#,##0.00[Ô])
aqui vc tem que acumular o Valor e a tarifa
Elseif IL=[Ô]U[Ô]
DataCrdito=Mid(Texto,146,8)
Aqui vc adiciona os dados na tabela
end if
Texto=[Ô][Ô]
loop
Close #1
Por ai já dá pra vc ter uma ideia de como é, basta pegar o manual da febraban e ver as posições de cada informação
Tópico encerrado , respostas não são mais permitidas