JJA
-
Total de ítens
131 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por JJA
-
-
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
-
17 horas atrás, Juliana Tamizou disse:
Boa tarde,
Seu problema foi resolvido?
Att.
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.- 1
-
33 minutos atrás, Juliomar Marchetti disse:
Não Elton. é erro de instalação. tu tem mais alguma versão do delphi junto ? vou fazer a pergunta só para desencargo mas são versões registradas correto?
Tenho 2 versões do Delphi instalados. Delphi 7 e Seattle.
-
1 hora atrás, Juliomar Marchetti disse:
sim e não é isso seu problema mas outra coisa. sua instalação foi bem sucedida?
caso continue sugiro entrar em contato com a embarcadero pra lhe auxiliar e refazer a instalação
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. -
2 minutos atrás, Italo Jurisato Junior disse:
Boa tarde,
Já pensou em usar o RoundTo(valor, -2) para ficar com no máximo 2 casas decimais?
E no caso de alíquota inteira usar o Trunc.
Já sim, mas ao receber o valor, ocorre a mesma coisa.
-
36 minutos atrás, Italo Jurisato Junior disse:
Boa tarde,
O tipo dessa variável dAliquotaISS é do mesmo tipo da propriedade Alíquota?
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
-
21 minutos atrás, Italo Jurisato Junior disse:
Boa tarde JJA,
Pelas imagens que você anexou e analisando o código do componente notei o seguinte:
O campo Alíquota é definido como Currency na classe TValores.
Pode esta ocorrendo alguma incompatibilidade entre o Currency o Float, quando você faz a leitura do valor no campo do banco de dados.
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.
-
33 minutos atrás, Juliana Tamizou disse:
Boa tarde.
O curioso é que mais ninguém reportou este problema, recomendo pontos de debug em todos os locais onde esse valor pode ser alterado...
Obs. Considere assinar o SAC ACBr para ter acesso ao SLA de resposta de 1 dia útil, além das diversas vantagens do mesmo.
Att.
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.
- 1
-
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.
-
Em 03/04/2019 at 09:58, Italo Jurisato Junior disse:
Bom dia,
Isso é estranho, pois toda vez que vamos emitir devemos limpar o componente e alimentar ele com os novos dados, com a alíquota é igual para todas as notas, se você sempre atribuir o valor 5 não vejo porque dessa mudança para 5.01
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. -
31 minutos atrás, Felipe E. Resende Mesquita disse:
Tópico movido para o local mais indicado.
Obrigado Felipe.
- 1
-
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?
- 1
-
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.- 2
-
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. -
2 horas atrás, Daniel Simoes disse:
Faça a instalação com o ACBrInstall, e marque a opção para remover instalações anteriores do ACBr
Boa tarde Daniel,
precisei reverter todos os arquivos do ACBr. Somente a pasta Pacotes não resolveu.
Sempre uso o instalador do ACBr. Mas agora deu certo. Muito obrigado.- 2
-
18 minutos atrás, Daniel Simoes disse:
Estranho... nenhuma das Units indicadas, faz parte do Projeto ACBr... pode ser algo na sua IDE...
16 minutos atrás, BigWings disse:Se você abriu esse pacote pelo Delphi e salvou ou compilou pode ser que ele tenha acrescentado as dependências sozinho.
Faça um revert da pasta ACBr\Pacotes inteira e tente reinstalar.
Bom dia pessoal,
exclui a pasta Pacotes e fiz novo update, mas ocorreu o mesmo erro.
Estou agora apagando o projeto todo e atualizando novamente todos os arquivos do ACbr. Vamos ver se funciona. -
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
Erro ao conectar Base Postgres 12 com ZeosLib + AWS. (SSL SYSCALL erro: Connection reset by peer)
em Banco de Dados
Postado
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.