Desenv. AT Info Sistemas

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

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.

Boa Tarde! Vou atualizar e testar e depois dou retorno. Obrigado

Perfeito, obrigado.

Na mosca, era exatamente isso o que faltava. Muitíssimo obrigado pela resposta rápida. Aproveitando o tópico relevante, gostaria de confirmar outra coisa: Depois de gerar um novo ACBrNFSeXServicos.res e colocá-lo junto com os .dcu compilados do ACBr, parece que preciso dar um 'build' no projeto inteiro para começar a valer o novo arquivo, senão os valores antigos permanecem. Existe outra maneira de fazer essa atualização? Só peço isso porque o build aqui é meio demorado, mas de qualquer modo meu real problema foi resolvido Obrigado mais uma vez.

Boa tarde meus nobres, Estou com algumas dificuldades na migração para o ACBrNFSeX, mais especificamente acerca da embarcação do ACBrNFSeXServicos.res na aplicação. Quando chega a hora de ler o conteúdo do .res (no método TGeralConfNFSe.LerParamsMunicipio), ele vem sempre vazio. Interpreto que o arquivo .res simplesmente não esteja sendo carregado, mesmo colocando ele em diversas pastas para o agrado do compilador. O que pode estar acontecendo, ou existe outro método para contornar isso? Curiosamente, tudo funciona no projeto de exemplo (ACBrNFSeX_Exemplo.dpr), mas na minha aplicação existente ou até criando uma nova do zero ele se recusa a carregar. Se eu renomear o ACBrNFSeXServicos.res para outra coisa a minha aplicação compila normalmente, mas o projeto de exemplo vai apitar que falta o arquivo .res. Até mesmo copiando o componente ACBrNFSeX1 do exemplo para uma nova aplicação apresenta os mesmos sintomas. Qualquer ajuda é apreciada, e obrigado pela atenção.

Bom dia, Deu certo, homologuei no Sicredi.

Bom dia, Foi homologado no Sicredi, subi os fontes no outro chamado.

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

Sim, ainda não homologaram!

Bom dia! Sim, ainda não homologaram!

Certo, Vou tentar me achar na estrutura aqui. Muito obrigado!

Sim, mas o meu laço dos pagamentos está acima da criação do lote, e quando eu dar um next no meu pagamento eu não quero criar o lote de novo, apenas criar novo SEg. A, pois quero que fique no mesmo lote se for do mesmo Serviço. No Dataset dos Pagamentos eu tenho vários serviços, ordenado pelo código e quando o próximo registro for outro serviço eu crio um novo lote para o serviço específico.