JJA
Membros-
Total de ítens
131 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que JJA postou
-
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
-
Delphi Seattle. Compila mas não roda.
JJA replied to JJA's tópico in Object Pascal - Delphi & Lazarus
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. -
Delphi Seattle. Compila mas não roda.
JJA replied to JJA's tópico in Object Pascal - Delphi & Lazarus
Tenho 2 versões do Delphi instalados. Delphi 7 e Seattle. -
Delphi Seattle. Compila mas não roda.
JJA replied to JJA's tópico in Object Pascal - Delphi & Lazarus
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? -
Delphi Seattle. Compila mas não roda.
JJA replied to JJA's tópico in Object Pascal - Delphi & Lazarus
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? -
Delphi Seattle. Compila mas não roda.
um tópico no fórum postou JJA Object Pascal - Delphi & Lazarus
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. -
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)
-
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 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.
-
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;
-
Boa tarde pessoal, Atualizei os fontes do ACBr semana passada e uma programação que está então funcionava, agora está me retornando uma Exceção: Segue os detalhes da minha rotina: 1) O provedor que estou testando é o ISSDSF. 2) Ao enviar o RPS, eu executo a função 'ConsultarLoteRps', no qual recebo o número da NFSe 3) Após consultar o RPS, executo a função 'ConsultarNFSe', para poder receber o XML da NFSe. Agora com a atualização, esta função está me retornando uma Exceção. Procurando nos fontes, encontrei uma possível anomalia: function TNFSeWebService.ExtrairNotasRetorno: Boolean; var FRetNFSe, PathArq, NomeArq, xCNPJ: String; i, l, ii: Integer; xData: TDateTime; NovoRetorno, CondicaoNovoRetorno: Boolean; Alerta203: Boolean; begin FRetornoNFSe := TRetornoNFSe.Create; FRetornoNFSe.Leitor.Arquivo := FPRetWS; // AQUI JÁ TENHO O XML DA NFSE FRetornoNFSe.Provedor := FProvedor; FRetornoNFSe.TabServicosExt := FPConfiguracoesNFSe.Arquivos.TabServicosExt; FRetornoNFSe.PathIniCidades := FPConfiguracoesNFSe.Geral.PathIniCidades; FRetornoNFSe.LerXml; // ESTA FUNÇÃO DEVE PEGAR O XML EM TEXTO E ALIMENTAR O COMPONENTE ii := 0; for i := 0 to FRetornoNFSe.ListaNFSe.CompNFSe.Count -1 do // ESTA LINHA ME RETORNA O 'COUNT' = 0, QUE NO CASO ACREDITO QUE DEVERIA SER > 0 Não sei se o problema está nesta parte do código, mas acredito que o comportamento dela deveria ser diferente uma vez que a variável 'FRetornoNFSe.Leitor.Arquivo' já tenha o xml da NFSe. Grato pela ajuda.
-
Error: E2199 Packages 'ACBr_TCP' and 'vclimg' both contain unit 'pngimage'
um tópico no fórum postou JJA Dúvidas Gerais sobre o ACBr
Bom dia pessoal, acabei de atualizar os componentes ACBr e ao instalar, me deu a seguinte mensagem de erro: ACBr_NFeDanfeFR.dpk(96) Error: E2199 Packages 'ACBr_TCP' and 'vclimg' both contain unit 'pngimage' Pelo que li no fórum a respeito de erros semelhantes, era falta da instalação de outro componente antes do que ocasionou o erro. Minha instalação está marcados os seguintes componentes de relatório: Algo a mais que deveria instalar? Abraço