JJA

Bom dia Juliomar, tudo bem? Sobre a mensagem, o caminho não é igual, mas está apontando para aonde fica o repositório do ACBr do Delphi Seattle. Sobre as pastas, não possuo uma única. Como eu inicialmente tinha o Delphi 7 e depois instalei o Seattle. Eu acabei separando em pastas separadas para os componentes de cada versão pois também tenho componentes pertinentes a cada versão, mantendo assim uma padronização. Então eu tenho 2 repositórios do ACBr para cada versão. Mas reforçando que, quando instalei o Seattle e instalei o ACbr, de alguma forma deu tudo certo e ainda as 2 versões entraram em harmonia, deixando os componentes funcionando nas 2 versões. Não sei o motivo, mas imaginava que era justamente por ter 2 reposítórios separados, ou seja, o Seattle eu havia atualizado e instalado, e o ACbr do D7 que já funcionava, ficou na versão que estava. Sobre ter mudado as pastas do BPL. Quem poderia ter feito isso? O instalador? Pois eu mesmo não mexi nisso. A limpeza que o instalador do ACbr faz não resolve estes detalhes e recria os LibPaths no Delphi?

Bom dia. Estou exatamente com o mesmo problema. Já tinha o ACBr instalado e funcionando normalmente. Resolvi atualizar os fontes e reinstalar. Marco a opção para limpar os arquivos antigos, o restante mantenho default. Dessa vez, todos os BPLs do ACBr deram este erro ao abrir o Delphi. Sinceramente não consigo entender porque as vezes acontece esses problemas ao instalar. Entendo que o instalador deveria desfazer todas as configs antigas e refazer tudo do zero para evitar problemas. As vezes consigo instalar sem nenhum problema, mas dessa vez deu esse problema. Uso Delphi Seatle e funciona normal. É sério mesmo que a correção do problema seria mesmo reinstalar o Delphi? Alguns dados do meu ambiente atual: - Possuo Delphi 7 e Delphi Seattle hoje. O Delphi 7 veio primeiro, no qual instalei a anos atrás e sempre usei o ACBr. - Recentemente instalei o Seattle, deixando de lado o Delphi 7. Rodei o ACBr install para o Seattle e deu tudo certo até agora. E a instalação do Delphi 7 com os camponentes ACBr continuou funcionando, ou seja os 2 Delphis ficaram com a instalação do ACBr. - Resolvi instalar o Fortes Report para conhecer os componentes ACBr DANFE que usam Fortes. Então baixei os fontes do FR e instalei. - Com a instalação do FR, atualizei o ACBr e resolve reinstalar, marcando todos os componentes do ACBr disponíveis. - No instalador, pode-se marcar para instalar tanto para Delphi 7 quanto para Delphi Seattle 32 e 64 bits ao mesmo tempo, porém só marquei Delphi Seattle 32 e 64, deixando de lado o Delphi 7. - A instalação correu tudo bem, mas ao abrir o Delphi Seattle, a mensagem citada no tópico para todos os BPLs do ACBr apareceu. Dúvidas: 1) Como resolver o problema acima? É pelo inslalador ou precisa ser feito algo na mão? 2) É possível ter 2 Delphis com seus respectivos componentes instalados sem que haja conflito entre eles ou devo abandonar essa ideia?

Perfeito Juliomar. Baixei as DLLs do PostgresA atualizadas para x86 e deu certo. Muito obrigado pela ajuda. Problema resolvido.

Bom dia Juliomar. Obrigado pela ajuda. Eu identifiquei as DLLs que estão na pasta do PGADmin. Realmente a DLL libpq.dll que vem com o PGAdmin é mais nova (versão 13) é diferente da que eu uso (Versão 8), porém ao atualizar essa DLL e fazer o Zeos olhar para essa nova DLL, ocorreu o seguinte erro: Client-Library C:\SYSCare\DLL\PGAdmin4\libpq.dll found but could not be loaded. Check compile-target and library compatibility!. Tentei também utilizar o FireDAC, apontando para a nova DLL, porém o erro volta a ser o mesmo que ocorre com o Zeos: [FireDAC][Phys][PG][libpq] SSL SYSCALL error: Connection reset by peer (0x00002746/10054)

Bom dia pessoal. Utilizo ZeosLib (7.2.1) para conectar no banco Postgres usando localmente na máquina. (Atualmente versão 9.6). Já havia criado base de dados Postgres na AWS e havia conseguido conectar normalmente no Delphi com o mesmo componente Zeos. (Coisa de um 1 a 2 anos atrás, não lembro a versão do Postgres na época). Atualmente criei uma nova conta na AWS e criei uma base de dados Postgres 12 na AWS. Estou conectando esta base no PGAdmin 4 normalmente, então o acesso a base já está OK. Peguei as mesmas configurações que utilizei no PGADmin 4 para conectar a base e coloquei no ZConenction. Ao tentar conectar, dá o seguinte erro: SSL SYSCALL erro: Connection reset by peer Alguém sabe o que poderia ser? Obrigado.

Boa tarde pessoal, Estou tentando abrir o fonte do exemplo do SATTeste localizado no repositório \Exemplos\ACBrSAT\Delphi e não estou conseguindo abrir o projeto pois está faltando o arquivo satteste.dpr. Obrigado a todos.

Boa tarde pessoal, Estamos desenvolvendo a integração para emitir NFSe para Fortaleza-CE. Vi que no arquivos.ini está apontando para o provedor ISSForteleza, porém estava olhando no site e lá indica GINFES. Alguém aqui está usando envio para Fortaleza? Poderiam confirmar se o componente está apto? Se houve atualização em relação ao provedor? Abraço

Bom dia Juliana, por algum motivo ainda não entendido, resolveu sim. O problema que ocorreu no início do tópico não acontece mais. Estou conseguindo gerar aplicativos tanto em 32bits quanto em 64bits, porém não foi feito absolutamente nada. Obrigado pela ajuda.

Tenho 2 versões do Delphi instalados. Delphi 7 e Seattle.

Bom dia Juliomar, acredito que a instalação tenha sido concluída com sucesso. Não me lembro de qualquer problema durante ela. Mas porque simplesmente alternando para compilar em 64 bits funcionou? Porque isso seria um problema na instalação? Como se tivesse faltando algo na instalação que prejudicou compilações em 32 bits?

Acabei de descobrir. Eu estava gerando o executável em 32bits, adicionei a opção de 64bits em Target Plataform e o executável roda normalmente. Agora a dúvida: Sendo meu Windows 64bits, não deveria rodar aplicações 32 bits? Ou pelo menos a aplicação me retornar um erro?

Bom dia pessoal. Estou migrando de versão do Delphi, atualmente trabalho com a versão 2010 e estou iniciando agora do Delphi Seattle. Meu primeiro teste foi o tão famoso "Hello world" clicando em um botão, porém ao rodar, o programa simplesmente não sobe. Ele compila normalmente, cria o executável na pasta Debug, tentei também na Release. Não dá erro, não dá mensagem alguma, ele simplesmente ao tentar rodar tanto pelo Delphi quanto direto pelo executável é como se eu não tivesse executando. Não pisca tela, não faz nada. O que pode ser? Muito obrigado.

Já sim, mas ao receber o valor, ocorre a mesma coisa.

Boa tarde Italo, não é. Ela é do tipo double. Antes eu atribuía diretamente de um campo do DataSet, fazendo um Cast AsFloat. Também não resolveu. Mas reforço que da primeira vez que uso o componente, não ocorre o erro, somente a partir de segunda vez simulando o erro que eu comentei. Resolvi fazendo um POG no qual comparo o valor original com o já atribuído ao componente, convertendo para string, assim consigo achar exatamente a diferença. Ex: if '4,23' (Valor original) <> '4,2301' (Valor no componente) then conto o número de casas após a vírgula e faço uma subtração if Length(Parte decimal) = 2 then Valor := Valor - 0.01 else if Length(Parte decimal) = 4 then Valor := Valor - 0.0001; Preciso saber o número de casas pois tenho casos de alíquota inteira que também ocorre a diferença (5 fica 5,01)

Complementando minha última resposta, o problema já pode ser constatado logo após a atribuição no componente: 1) Atribuição do valor 2) Valor logo após a atribuição

Boa tarde Italo, eu constatei isso ontem. Realmente está ficando uma dízima. Após alimentar o campo do ACBr, eu subtraí este mesmo valor da minha variável, e realmente ficou um resto. Porém, o mais confuso é que isso só ocorre após algum evento, pois se for usar da primeira vez, não ocorre.

Boa tarde Juliana, já coloquei em todos os locais que trabalham com essa variável. As imagens que postei foram justamente nos pontos aonde mostra o valor antes e depois da anomalia. Vou considerar atualizar os fontes e re-instalar os componentes, porém fiz isso a algumas semanas atrás. Sobre o SAC, vou considerar a possibilidade junto com a diretoria da empresa.

Bom dia, Acredito que este seja um problema bem grave. Alguém do projeto poderia me ajudar a tentar achar esse problema? Alguma dica de onde procurar.

Bom dia Italo, estranho mesmo, e o mais estranho é que isso começou a ocorrer após a minha última atualização do ACBr. Eu já tentei acompanhar todos os passos deste campo desde o meu input até a criação dele no XML, mas não encontrei quando isso ocorre. Eu consegui criar um caso de testes que simula o problema: 1) Tenho uma nota fiscal que irei enviar com dados de CNPJ da empresa A, porém irei enviar com um certificado CNPJ B, para forçar o erro no envio: Ao carregar o componente ACBrNFSe, estou mando o valor 4,23 conforme a imagem 1: 2) Ao entrar na função que cria o XML, o valor está conforme o informado na imagem 2: 3) Ao tentar enviar o XML do RPS, é retornado o erro de CNPJ diferente do informado no certificado digital: 4) Logo após o erro do passo 3, faço exatamente o mesmo procedimento do passo 1, e reenvio a mesma nota fiscal: 5) Ao chegar na função do XML, o valor já está modificado de 4,23 para 4,2401 Acredito que com estes passos, é possível descobrir o problema. Se puderem me dar dicas do que posso testar para também ajudar a encontrar o erro, me passem que eu tento achar também. um grande abraço.

Obrigado Felipe.

Pessoal, boa tarde, agora aconteceu novamente porém com o valor de alíquota ISS = 5.00, No qual ele montou no XML do RPS o valor 5.01. A única pista que tenho que explica a anomalia é quando eu faço um envio ou consulta de NFSe e a mesma me retorna erro. Na sequência o componente fica com este problema na alíquota ISS. Aí se eu fecho a minha aplicação e executo novamente, o problema não ocorre, até repetir o caso acima que eu comentei. Ou seja, se não tiver nenhuma rejeição de NFSe, o valor da alíquota ISS fica correta conforme eu passei, mas se recebo uma rejeição, começa o problema. OBS: Acabei de notar que postei no fórum errado, poderia algum moderador transferir o tópico para o fórum de ACBrNFSe?

Bom dia pessoal, vou dar mais insistência neste problema pois neste mesmo campo está acontecendo outro problema bem bizarro. Usando o mesmo conceito e já alterando o formato do campo de tcDec4 para tcDec2 teoricamente resolveu o problema, porém "aleatóriamente" o valor que passo 4.23 agora no RPS está 4.24. Não consegui achar aonde ele faz essa "atualização". Eu informo o valor da alíquota da seguinte maneira: ACBrNFSe.NotasFiscais.Items[i].NFSe.Servico.Valores.Aliquota := 4.23; Na unit "TNFSeW_ISSDSF" na função "GerarValoresServico", na linha abaixo: Gerador.wCampoNFSe(tcDe2, '', 'AliquotaAtividade', 01, 11, 1, NFSe.Servico.Valores.Aliquota, ''); // As vezes o valor "NFSe.Servico.Valores.Aliquota" chega com o valor 4.2401 Acabou de acontecer. Fechei o sistema e rodei novamente e inacreditavelmente na mesma linha acima, o valor de "NFSe.Servico.Valores.Aliquota" estava com 4.23. Tem algum outro lugar no fonte que este valor recebe algum tratamento, conversão, equação, etc, que possa justificar este caso?

Boa tarde pessoal, me deparei agora com um erro um tanto quanto estranho. Na unit "TNFSeW_ISSDSF" na função "GerarValoresServico", temos seguinte linha: Gerador.wCampoNFSe(tcDe4, '', 'AliquotaAtividade', 01, 11, 1, NFSe.Servico.Valores.Aliquota, ''); Eu passo a alíquota 4,23 no campo NFSe.Servico.Valores.Aliquota, porém no XML do RPS, o valor da tag fica assim: <AliquotaAtividade>4.2301</AliquotaAtividade> Notem que ele adicionou 0,0001 na minha alíquota. Agora o mais esquisito: Eu já verifiquei o valor, forcei formatação para 2 casas, e estou realmente passando o valor 4,23. Só que esta anomalia de sair no RPS o valor 4.2301 ocorre somente na máquina de um cliente, já aqui na minha máquina de desenvolvimento sai corretamente os 4.2300. Eu resolvi de uma forma não muito elegante pois gostaria de desobrir o motivo e também não alterar os fontes do ACBr, porém forcei a função montar o valor somente com 2 casas: Gerador.wCampoNFSe(tcDe2, '', 'AliquotaAtividade', 01, 11, 1, NFSe.Servico.Valores.Aliquota, ''); Não achei correto pois não explica essa anomalia, porém não vejo problema pois a alíquota necessita apenas de 2 casas. Então resolveu meu problema, mas não descobri a origem de erro. Alguém tem ideia do que pode ser? Um grande abraço

Bom dia Michele, Também trabalho com ACBr com envio de RPS para prefeitura de Campinas (ISSDSF). Não tenho este tipo de problema. Se os seus fontes estão realmente desatualizados, sugiro fazer isso antes de mais nada.

Só para complementar: A exceção ocorre porque a função citada acima tem o retorno = False: // Validação de sucesso para provedores que não retornam data de recebimento if FProvedor in [proNotaBlu] then Result := UpperCase(FRetornoNFSe.ListaNFSe.Sucesso) = UpperCase('true') else // Validação através da data de recebimento Result := (FDataRecebimento <> 0); if (FProvedor = proISSDSF) and Alerta203 then Result := True; Com este result, a função 'ConsultaNFSe' gera uma exceção: function TWebServices.ConsultaNFSe(ADataInicial, ADataFinal: TDateTime; NumeroNFSe: String; APagina: Integer; ACNPJTomador, AIMTomador, ANomeInter, ACNPJInter, AIMInter, ASerie: String): Boolean; begin FConsNfse.FDataInicial := ADataInicial; FConsNfse.FDataFinal := ADataFinal; FConsNfse.FNumeroNFSe := NumeroNFSe; FConsNfse.FPagina := APagina; FConsNfse.FCNPJTomador := ACNPJTomador; FConsNfse.FIMTomador := AIMTomador; FConsNfse.FNomeInter := ANomeInter; FConsNfse.FCNPJInter := ACNPJInter; FConsNfse.FIMInter := AIMInter; FConsNfse.FSerie := ASerie; Result := FConsNfse.Executar; if not (Result) then FConsNfse.GerarException( FConsNfse.Msg ); // GERA A EXCEÇÃO, PORÉM 'FConsNfse.Msg' ESTÁ VAZIO, POIS PELO QUE ENTENDI, NÃO HÁ ERRO end;