Centrodata Sistemas

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

Boa tarde, é necessário realizar uma alteração na geração do arquivo no segmento B para PIX, pois não está utilizando os campos corretos conforme o manual. Como o código está: GravarCampo(' ', 95, tcStr); GravarCampo(PixMensagem, 99, tcStr); Como deve ser: GravarCampo(PixTXID, 30, tcStr); GravarCampo(PixMensagem, 65, tcStr); GravarCampo(PixChave, 99, tcStr); manual utilizado para orientação: https://www.sicredi.com.br/media/produtos/filer_public/2022/07/21/manual_pagamentos_cnab_240_v33_1.pdf PagFor.Sicredi.GravarTxtRemessa.pas

Boa tarde. Na geração do arquivo de remessa de pagamento CNAB através do componente PagFor, quando gerado utilizando o Banco Ailos (pagCECREDE), na posição 14 até 16 (versão do layout do lote) do header do lote o componente está preenchendo com ‘000’, porem o manual do banco informa que o dado esperado é ‘045’. PagFor.BancoCECRED.GravarTxtRemessa.pas

Também foi necessário alterar a função: TGerador.wCampo para identificar a const tcDe5. pcnGerador.pas

Bom dia Na unit pcnCIOTW_eFrete.pas está definindo 2 casas decimais na tag PesoCarga porem conforme manual da E-Frete, a quantidade de decimais é 5 casas decimais. O campo QuantidadeDaMercadoriaNoEmbarque também está definido como 2 casas decimais, porem os campos PesoCarga e QuantidadeDaMercadoriaNoEmbarque devem possuir a mesma quantidade de casas decimais, pois a E-Frete realiza validação da soma das notas pelo campo: QuantidadeDaMercadoriaNoEmbarque deve estar com o mesmo valor informado em PesoCarga. pcnCIOTW_eFrete.pas