Registro Pix no Pagfor para Sicredi

[Desenv. AT Info Sistemas]

Bom dia!

Meu nome á Adriano, estou desenvolvendo o Pagfor para o banco Sicredi e não estou achando como fazer o registro do Lote para PIX, não encontrei a forma de lançamento para Pix.

Gostaria de saber se já desenvolveram e quais as tags devo informar?

Segue imagens do Manual do Banco.

Obrigado

[Daniel Simoes]

@Italo Giurizzato Junior, tem alguma informação sobre esse Banco ?

[Italo Giurizzato Junior]

Boa tarde a todos,

Analisando o código do componente ACBrPagFor, na Unit ACBrPagForGravarTxt notei que para o banco Itaú consta uma alteração para gerar os campos referente ao PIX no SegmentoB.

Para os demais bancos não tem nada.

@suporteatinfoabra a unit que indiquei acima e veja como foi feito para o banco Itaú. - Procedure: GeraSegmentoB, tente fazer algo semelhante para o banco Sicred.

[Desenv. AT Info Sistemas]

Obrigado, vou verificar.

[Desenv. AT Info Sistemas]

Boa Tarde, 

Consegui montar o Segmento B para o Pix, só tem um detalhe conforme comentei antes, não tem a forma de pagamento do tipo Pix e no Manual o Header do Lote do  Segmento A e B,  o tipo de serviço = 20 - Pagto Fornecedor e a forma de pagamento febraban = 45 - Pix.

O Header nas posições 10 a 13  devem ser =  2045

[Italo Giurizzato Junior]

Bom dia,

É necessário verificar como esta sendo gerado os registros dos seguimentos A e B e fazer as alterações para que quando se tratar de PIX sejam gerados do forma diferente.

[Desenv. AT Info Sistemas]

Bom dia, 

Certo, vou criar um novo tipo de forma de lançamento e tratar no header do lote.

Depois que o banco homologar enviarei os fontes para vocês.

Obrigado

[Juliana Tamizou]

Bom dia,

Em 23/02/2022 at 11:55, suporteatinfo disse:

Depois que o banco homologar enviarei os fontes para vocês

Você ainda está aguardando retorno do banco?

At.

[Desenv. AT Info Sistemas]

Bom dia! 

 Sim, ainda não homologaram!

[Desenv. AT Info Sistemas]

Bom dia, 

 Foi homologado no Sicredi, segue os fontes que precisei alterar para tratar o envio e retorno.

ACBrPagForGravarTxt.pas ACBrPagForLerTxt.pas ACBrPagForConversao.pas ACBrPagForClass.pas

[Italo Giurizzato Junior]

Boa tarde,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2507

[Italo Giurizzato Junior]

Bom dia,

Já esta no SVN.

[Desenv. AT Info Sistemas]

Boa Tarde!

Vou atualizar e testar e depois dou retorno.

Obrigado

[Desenv. AT Info Sistemas]

Bom dia!

Fui testar e está dando erro ao gerar remessa e ler retorno, o que identifiquei que está gerando para banco errado, estou testando com banco 748 - Sicredi e está dando erro como Sicob.

[Italo Giurizzato Junior]

Bom dia,

Como tive que fazer um merge, pois o seus fontes estavam desatualizados, posso ter feito o merge de forma errada em algum ponto.

[Desenv. AT Info Sistemas]

Certo, fico no aguardo, mas o que está causando erro é isto, eu passo o banco 748 - Sicredi e ele está tratando como 366-Sicob e está dando erro nos registros 

[Italo Giurizzato Junior]

Boa tarde,

Em todos os registros ou em só alguns?

[Desenv. AT Info Sistemas]

Não sei porque não gerou o arquivo e na leitura do retorno tinha registro A e B.

[Italo Giurizzato Junior]

Vai ser necessário debugar para saber o que esta ocorrendo.

[Desenv. AT Info Sistemas]

E nas rotinas que lê o banco (StrToBanco, BancoToStr, etc), no Conversão, eu estou gerando para o 748 - Sicredi e a rotina retorna 756-Sicob e ai da erro porque não tem rotinas de registros para este banco.

Edited March 30, 2022 by suporteatinfo

[Italo Giurizzato Junior]

Boa tarde,

Estou revendo essas funções.

[Desenv. AT Info Sistemas]

Bom dia!

Para continuar os meus testes eu não usei estas funções e descobri outros erros:

Ao gerar uma remessa para 748-Sicredi com registro A com Pix está dando este erro abaixo, pelo que vi ele está gerando outros campos zerados, ( Nome da Rua, Av, Pça, Etc ), que eu não alimento nos meus fontes, pois não devem ir quando o registro é PIX.

Não Foi Possível incluir Registros no Arquivo: 
Registro inválido!
Deve conter 240 posições.
Registro: [7480001300002B   241549383000148                              00000                                                  00000000  03 241549383000148                                                                                               41549383000148                                                                                                   ]
possui 353 posições.

 

 

E ao tentar ler um retorno com registro A e B está dando erro porque está tentando ler um registro N que não existe no

arquivo, eu faço o seguinte teste para saber se existe registro no lote, mas está retornando valor mesmo não tendo este Registro no arquivo de retorno.

               // N1  - GPS
               if ACBrPagFor1.Arquivos.Last.PagFor.Lote.Items[i].SegmentoN1.Count > 0 then
               begin

Mesmo não tendo registro N no arquivo de retorno, no teste o count retorna valor e entra na rotina de leitura e da erro.

 

 

 

 

[Desenv. AT Info Sistemas]

Boa tarde, 

Para te ajudar eu consegui  ler e gravar PIX para o Sicredi, segue os fontes alterados.

 

 

ACBrPagForGravarTxt.pas ACBrPagForLerTxt.pas

[Desenv. AT Info Sistemas]

Mas esta situação ainda continua com problema, eu comentei nos meus fontes as rotinas e deixei apenas os Registros A e B para testar o PIX.

Ao tentar ler um retorno com registro A e B está dando erro porque está tentando ler um registro N que não existe no

arquivo, eu faço o seguinte teste para saber se existe registro no lote, mas está retornando valor mesmo não tendo este Registro no arquivo de retorno.

               // N1  - GPS
               if ACBrPagFor1.Arquivos.Last.PagFor.Lote.Items[i].SegmentoN1.Count > 0 then
               begin

Mesmo não tendo registro N no arquivo de retorno, no teste o count retorna valor e entra na rotina de leitura e da erro.

[Italo Giurizzato Junior]

Boa tarde,

Conforme o seu relato tudo indica que o "Exit" da linha abaixo não esta sendo executado:

      //Tributo N1 - GPS
      if StrToInt(Copy(FArquivoTXT.Strings[i], 133, 2)) <> 17 then
        Exit;

Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

Coloque um ponto de parada no IF mencionado acima para descobrir qual é o valor de "i" para sabermos qual é a linha do arquivo de retorno ele esta lendo.