Junior Dias

Depois de bater cabeça, pesquisando, testando, descobri uma forma de resolver esse problema e outros como a lentidão eventual na consulta no DB. No meu caso o cliente abria o sistema, deixava parado por alguns minutos e no primeiro Insert ou Select o tempo de resposta demorava 30 segundos, somente na primeira consulta, depois funcionava perfeitamente, não apresentava erro. Verifique nas propriedades do FDConnection em ResourceOptions, AutoReconnect está marcada como True, no seu Form principal coloque um Timer para executar a cada 30 segundos o FDConnection.Ping. Quando uma conexão está inativa, o método Ping tenta abrir uma conexão. Observações: banco PostgresSQL remoto, isso acontecia quando a latência entre o cliente e o servidor passava de 20ms Fontes do que estou explicando: https://docwiki.embarcadero.com/Libraries/Athens/en/FireDAC.Comp.Client.TFDCustomConnection.Ping

Boa noite, Contribuindo com o tópico, conheço a ferramenta da SIEG e tenho uma integração com o meu sistema, a ferramenta da SIEG tem parâmetros para configurar o horario de busca dos XMLs, basta a contabilidade configurar na plataforma da SIEG a busca noturna. Resumindo, durante o dia somente o ERP da empresa busca os XMLs a noite a Plataforma da SIEG.

Olá, segue arquivo ACBrNFSeXServicos.ini com alterações para NFSe da cidade e Arvoredo - SC. Recentemente a mesma migrou para IPM versão 1.01. Tenho clientes emitindo com as alterações em anexo. [4201653] Nome=Arvoredo UF=SC Provedor=IPM Versao=1.01 ProRecepcionar=https://arvoredo.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao HomRecepcionar=https://arvoredo.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao ACBrNFSeXServicos.ini

Muito obrigado Renato, fiz conforme o link que me passou e deu certo, segue arquivo para uma futura atualização. [4208005] Nome=Ita UF=SC Provedor=IPM Versao=1.01 ProRecepcionar=https://ita.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao HomRecepcionar=https://ita.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao ACBrNFSeXServicos.ini

Boa tarde, preciso implementar a emissão da nota de serviço para um cliente de Itá, a pouco tempo atrás o provedor era Betha, atualmente IPM. Analisando o componente o mesmo ainda aponta para Betha, como faço para alterar isso? Tenho outra cidade que também mudou o provedor. Agradeço pela ajuda.

Agradeço as orientações José, meu ACBr já estava atualizado, foi somente passar as informações corretas em: ACBrBoleto.banco.LayoutVersaoArquivo e ACBrBoleto.banco.LayoutVersaoLote e gerou certo a remessa. Muito obrigado.

Correção Outro detalhe, estou passando o código do CEDENTE com 7 dígitos mas na remessa está adicionando somente 6.

Boa tarde, estou fazendo uma homologação e a pessoa responsável pela validação solicitou as seguintes alterações: 20.0 No da Versão do Layout do Arquivo 164 166 9(003) Conteudo Atual:050 Conteudo Esperado:107 07.1 Nº da Versão do Layout do Lote 14 16 9(003) Conteudo Atual:030 Conteudo Esperado:067 Conforme manual em anexo, página 77: Versão ‘107’ Aplica-se para clientes com códigos de beneficiário composto por até 7 dígitos. Nesta versão, o preenchimento do campo Código do Beneficiário no arquivo deverá ser feito com alinhamento à direita. (que é o caso do meu cliente.) Analisando o arquivo ACBrBancoCaixa na linha 86: constructor TACBrCaixaEconomica.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito := 0; fpNome := 'Caixa Economica Federal'; fpNumero := 104; fpTamanhoAgencia := 5; fpTamanhoMaximoNossoNum := 15; fpTamanhoCarteira := 2; fValorTotalDocs := 0; fQtRegLote := 0; fpLayoutVersaoArquivo := 50; fpLayoutVersaoLote := 30; Vejam que o LayoutVersãoArquivo e LayoutVersão Lote está fixo. Outro detalhe, estou passando o código do convenio com 7 dígitos mas na remessa está adicionando somente 6. Como devo proceder?

Bom dia @Juliomar Marchetti O problema está na leitura do arquivo de retorno CNAB240, por isso anexei aqui o arquivo que estou lendo, o manual e o ACBrBancoCaixaSICOB.pas com as alterações. É necessário a remessa e o PDF do boleto? Manual_de_Leiaute_de_Arquivo_Eletronico_CNAB_240.pdf RET202007070451470173.RET ACBrBancoCaixaSICOB.pas

Boa tarde. Sempre que atualizo o ACBr tenho que fazer alterações manuais no arquivo ACBrBancoCaixaSICOB.pas, peço ajuda aos colegas. Estou analisando o arquivo ACBrBancoCaixaSICOB.pas, e na procedure LerRetorno240 (linha1230), penso que a função CalcularTamMaximoNossoNumero (linha 1311) sempre vai retornar zero. CalcularTamMaximoNossoNumero(Carteira, ' ', ACBrBanco.ACBrBoleto.Cedente.Convenio); Na função CalcularTamMaximoNossoNumero a carteira está indo em branco, segundo o próprio arquivo do ACBr consta isso: // Carteira := Copy(Linha,40,2); // No SICOB não retorna o numero da carteira. Retorna o seguinte: // 1 = Cobrança Simples // 3 = Cobrança Caucionada // 4 = Cobrança Descontada O copy que pega os dados da carteira está comentado, mesmo que não estivesse o retorno seria 1, 3 ou 4. Na função CalcularTamMaximoNossoNumero o código é: if (wOperacao = 870) and (Carteira = 'SR') then Result := 15 else if (Carteira = 'CR') then Result := 10; Na função CalcularTamMaximoNossoNumero o nosso numero está passando em branco ( ' ' ). Segue código original: with Titulo do begin if Copy(Linha,14,1)= 'T' then //segmento T begin ACBrBanco.TamanhoMaximoNossoNum := CalcularTamMaximoNossoNumero(Carteira, ' ', ACBrBanco.ACBrBoleto.Cedente.Convenio); SeuNumero := copy(Linha,59,11); NumeroDocumento := copy(Linha,106,25); NossoNumero := Copy(Copy(Linha,47,10), // sem o DV Length(Copy(Linha,47,10))-TamanhoMaximoNossoNum , TamanhoMaximoNossoNum); Comentei a linha que calcula CalcularTamMaximoNossoNumero e deixei o tamanho 10. E assim leu certo o Nosso Número. Atenciosamente Junior Dias ACBrBancoCaixaSICOB.pas