Centrodata Sistemas

Boa tarde @Italo Giurizzato Junior. A implementação está OK, mas deve-se alterar o ultimo Filler do registro, de 53 para 54 posições, caso contratio a linha fecha em 239 posições.

Boa tarde @Italo Giurizzato Junior Estamos no processo de implementação, quando concluirmos, postarei aqui.

Bom dia @Victor H. Gonzales - Panda Esse é um novo registro, não existe no componente ACBr. É referente ao agregador eletronico. Pelo que eu busquei de informações, é quando seu vc é responsavel por pagar um boleto que não está em seu CPF/CNPJ. Exemplo: Matriz/Filial, quando na sua conta bancaria vc tem acesso via DDA de boletos de outro CPF/CNPJ.

Bom dia O banco Ailos nos enviou um comunicado que a partir de 01/07/2024 esse segmento será obrigatório em algumas condições, como informa na obs nessa imagem. Link do manual da Febraban: https://cmsarquivos.febraban.org.br/Arquivos/documentos/PDF/Layout padrao CNAB240 V 10 11 - 21_08_2023.pdf Mais alguem no aqui está com essa demanda? comunicado banco Ailos.pdf

Boa tarde. Confome o e-mail de orientação que nossos clientes receberam da seguradora sobre a troca da URL da AT&M de HTTP para HTTPS, segue o arquivo ini ja alterado. Realizado restes de averbação e a nova URL está funcionando. Aparentemente a URL sem o HTTPS ainda está em funcionando, mas até quando, não sabemos. ACBrANeServicos.ini

OK, obg pelo retorno.

Boa tarde. No componente PagFor, ao preencher o objeto SegmentoO, não foi encontrada a propriedade TipoMovimento na classe TSegmentoO, como nos demais segmentos. Então ao gerar o arquivo de remessa no registro detalhe do Segmento O o valor informado na posição 15 esta fixo com ‘0’. Foi realizada alterações para que este segmente também tenha esta propriedade, conforme manual em anexo. ACBrPagForClass.pas CNAB240.GravarTxtRemessa.pas PagFor.BancodoBrasil.GravarTxtRemessa.pas PagFor.HSBC.GravarTxtRemessa.pas PagFor.Itau.GravarTxtRemessa.pas

Bom dia Não sei informar se houve alguma alteração no Schema, só sei dizer que pelo que li no forum sobre o provedor da GeisWeb é que pode ocorrer de existir versões diferentes dele em cada cidade. Realizado teste com a revisão e está funcionando.

Boa tarde. Estava ocorrento erro no RetornoConsultaLoteRps que algumas tags não estavam sendo preenchidas, e detectamos que nesse retorno em expecifico o XML estava diferente do previsto pelo componente, com alguns pequenos ajustes foi possivel mantar o código atual funcionando para o caso se alguma versão do webservice do provedor estar da forma prevista atualmente no ACBr e tambem conseguir ler o XML que estou recebendo do provedor na prefeitura de Cajamar - SP. unit: GeisWeb.Provider.pas procedure TACBrNFSeProviderGeisWeb.TratarRetornoConsultaLoteRps como estava: AuxNode := ANode.Childrens.FindAnyNs('IdentificacaoNfse'); if AuxNode <> nil then NumRps := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('NumeroRps'), tcStr); ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps); como ficou: AuxNode := ANode.Childrens.FindAnyNs('IdentificacaoNfse'); if AuxNode <> nil then NumRps := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('NumeroRps'), tcStr); if( NumRps = '' )then begin AuxNode := ANode.Childrens.FindAnyNs('IdentificacaoRps'); if AuxNode <> nil then NumRps := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('NumeroRps'), tcStr); end; ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps); unit: GeisWeb.LerXml.pas function TNFSeR_GeisWeb.LerXmlNfse como estava: LerIdentificacaoNfse(ANode); DataEmissao := ObterConteudo(ANode.Childrens.FindAnyNs('DataEmissao'), tcDatVcto); como ficou: LerIdentificacaoNfse(ANode); LerIdentificacaoRps(ANode); DataEmissao := ObterConteudo(ANode.Childrens.FindAnyNs('DataEmissao'), tcDatVcto); procedure TNFSeR_GeisWeb.LerIdentificacaoNfse como estava: Numero := ObterConteudo(AuxNode.Childrens.FindAnyNs('Numero'), tcStr); CodigoVerificacao := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoVerificacao'), tcStr); como ficou: Numero := ObterConteudo(AuxNode.Childrens.FindAnyNs('Numero'), tcStr); if( Numero = '' )then Numero := ObterConteudo(AuxNode.Childrens.FindAnyNs('NumeroNfse'), tcStr); CodigoVerificacao := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoVerificacao'), tcStr); XML recebido na consulta: <ConsultaLoteRpsResposta> <Rps> <IdentificacaoRps> <NumeroRps>12</NumeroRps> </IdentificacaoRps> <IdentificacaoNfse> <NumeroNfse>254</NumeroNfse> <CodigoVerificacao>NDMCFPVJKR</CodigoVerificacao> </IdentificacaoNfse> <DataEmissao>21/03/2023</DataEmissao> ... </Rps> </ConsultaLoteRpsResposta> NFSeX GeisWeb.rar

Boa tarde. Alguns de meus clientes adicionam informações na observação do CT-e para que os motoristas lerem essas informações, e segundo alguns deles, o tamanho da fonte é "pequena demais" gostariam de uma fonte com tamanho maior.

Meus clientes estão me pedindo se posso aumentar o tamanho da fonte do campo obs na DACT-e. Teria algum modo de realizar essa alteração/configuração sem alterar os fontes? Foi verificado no manual do DACTe não fala nada sobre o tamanho, só que deve ser legível Estou utilizando o componente TACBrCTeDACTeRL.

Boa tarde. A partir de hoje: 30/11/2022 a emissão de NFS-e de Tijucas - SC será realizada pelo provedor: IPM https://www.tijucas.sc.gov.br/especiais/acesso-nfe Solicito a alteração nos arquivos necessários.

Boa tarde Italo, Os pontos do manual que você indicou pertence a seção de Cobrança, que neste caso é tratado pela ACBr no componente ACBrBoleto, então em teoria o PagFor não deveria implementar esta tratativa.

Poderia informar para que serve esses tratamentos diferentes para tsBloquetoEletronico e para qual banco? E acho que será o primeiro banco com implementação diferente para o Registro1.

Boa tarde. Identificamos um problema na leitura do arquivo de retorno do banco Sicredi no PagFor. No código atual da ACBr na unit CNAB240.LerTxtRetorno.pas, ao ler o Registro1 (header do lote) é realizado um tratamento diferente quando o tipo de serviço é tsBloquetoEletronico, porém não encontramos no manual do banco Sicredi e nem no da FABRABAN tratativas de ajuste para essa situação. Parte do código atual para exemplificar: with PagFor.Lote.Last.Registro1.Servico do begin Operacao := StrToTpOperacao(mOk, LerCampo(Linha, 9, 1, tcStr)); TipoServico := StrToTpServico(mOk, LerCampo(Linha, 10, 2, tcStr)); //Quando é bloqueto Eletrônico o campo do CNPJ da empresa possui 15 caracteres //e para os demais serviços possui 14 if TipoServico = tsBloquetoEletronico then ajusteBloqueto := 1; FormaLancamento := StrToFmLancamento(mOk, LerCampo(Linha, 12, 2, tcStr)); end; Ao considerar o serviço do lote como tsBloquetoEletronico, a procedure TArquivoR_CNAB240.LerRegistro1(I: Integer) tentar ler alguns registro como: Informacao2, DataCredito que não existem no arquivo e nem manual do banco, além de ler algumas informações erradas, com uma posição a frente do correto: Segue parte do código para exemplificar: case PagFor.Lote.Last.Registro1.Servico.TipoServico of tsBloquetoEletronico: begin with PagFor.Lote.Last.Registro1 do begin Informacao2 := LerCampo(Linha, 144, 40, tcStr); ControleCobranca.NumRemRet := LerCampo(Linha, 184, 8, tcInt); ControleCobranca.DataGravacao := LerCampo(Linha, 192, 8, tcDat); DataCredito := LerCampo(Linha, 200, 8, tcDat); end; end; else begin with PagFor.Lote.Last.Registro1.Endereco do begin Logradouro := LerCampo(Linha, 143 + ajusteBloqueto, 30, tcStr); Numero := LerCampo(Linha, 173, 5, tcInt); Complemento := LerCampo(Linha, 178, 15, tcStr); Cidade := LerCampo(Linha, 193, 20, tcStr); CEP := LerCampo(Linha, 213, 8, tcInt); Estado := LerCampo(Linha, 221, 2, tcStr); end; end; end; Realizamos testes internos comentado as linhas que tratam o tipo de serviço como tsBloquetoEletronico, fazendo com que a execução caia no ELSE do CASE e o arquivo foi carregado com sucesso. Gostaríamos de uma orientação de como proceder, se o melhor a fazer é remover este código da procedure na unit geral CNAB240.LerTxtRetorno.pas, uma vez que não encontramos nos manuais ou deveríamos fazer a reimplementação procedure LerRegistro1 apenas na classe PagFor.Sicredi.LerTxtRetorno.pas especifica do banco Sicredi. Manual SICREDI: https://www.sicredi.com.br/media/produtos/filer_public/2022/07/21/manual_pagamentos_cnab_240_v33_1.pdf Manual FEBRABAN: https://cmsarquivos.febraban.org.br/Arquivos/documentos/PDF/Layout padrao CNAB240 V 10 10 - 30_08_2022_2.pdf