Desenv. AT Info Sistemas

Bom dia! Tudo certo nos nossos testes, estamos aguardando o banco responder se está como eles pedem!

Obrigado! Vou baixar e testar!

Bom dia! Deu erro de registro "Registro inválido! Deve conter 240 posições." Ai identifiquei que o código da receita estava indo repetido no arquivo, corrigi e deu certo. Aqui UMA DAS LINHAS, porque o erro era em todos os Registros N, que não poderia enviar o código. Aqui a correção, a linha excluída. Segue o fonte que ajustei. ACBrPagForGravarTxt.pas

Bom dia! Vou testar. Obrigado

Obrigado!

Bom dia, A parte do Cpf e CNPJ ficou certo, só que para o Sicredi, nos Registros N, o Código da Receita é Alfa( 6) , está gerando errado, numérico com zeros a esquerda. Para Sicredi o Código da Receita é Alfa( 6) e por isso tem que ser alinhado a esquerda com espaços a direta.

Boa Tarde! Muito obrigado vou testar!

Acredito que ninguém reportou porque é um registro pouco usado, N2 no meu caso. Estou alimentando como CNPJ e está gerando 2 que para o Sicredi é CPF, para esses registros N.

Bom dia, Preciso de uma Correção nos registros N (N1, N2, etc) para o Banco Sicredi. O Sicredi trata a identificação do contribuinte diferente para os registros N, o normal é 1-CPF e 2-CNPJ e nos registros N do Sicredi segue a tabela abaixo:

Boa Tarde! Tudo certo, Remessa validada. Obrigado!

Bom Dia! Vou testar Obrigado!

Boa Tarde, Hoje enviamos uma remessa do PAGFOR para o Sicredi e foi rejeitada. O Sicredi exige que os Registros J e J-52 sigam uma sequência na numeração dos Registros, não podem ser iguais. Segundo o Sicredi não pode ser dessa maneira: Deve seguir a sequencia dentro do lote: Fico no aguardo, Obrigado

Boa Tarde! Tudo certo, funcionou. Obrigado!

Boa Tarde! Vou atualizar. Obrigado!

Boa tarde, Recebi o arquivo DDA - Pagfor do Sicredi e verifiquei que eles mandam as datas com formatos diferentes (AAAAMMDD), nos registros G e H. Segue o fonte da leitura do arquivo que alterei para poder ler o retorno. Obrigado ACBrPagForLerTxt.pas

Boa tarde, Atualizei e tudo certo. Obrigado!

Bom dia, Fico no aguardo! Obrigado

Tive que fazer mais uns ajustes nos Registros N, se existe N1 no arquivo ele criava os N2, N3, mesmo não existindo no arquivo etc.. Também ajustei os nomes dos Bancos, estava errada a lista e o Sicredi estava vindo com nome errado. Agora gerou os registros corretamente e também leu o retorno. ACBrPagForConversao.pas ACBrPagForLerTxt.pas

Certo, vou testar. Obrigado!

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.

Boa tarde, Para te ajudar eu consegui ler e gravar PIX para o Sicredi, segue os fontes alterados. ACBrPagForGravarTxt.pas ACBrPagForLerTxt.pas

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.

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.

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

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