Mauro Asl

Olá bom dia @BigWings. Que mole que dei. Foram tantas coisas para programar ontem que me repassaram o problema e eu acabei não analisando o código e logo postei o problema, que não tem problema. Acabaram declarando um Currency e Double, é aqui que está a incompatibilidade. Obrigado pela atenção

Olá, boa noite. Gostaria de uma ajuda! Quando estou usando neste caso 5 casas decimais e campo vProd esta recendo o calculo com valor errado. Eu procurei nos fontes do ACBr e não achei a unit que faz este calculo. Vcs poderia me informar qual seria para que eu pudesse fazer as devidas correções e testes? No exemplo da imagem, o valor correto do vProd teria que ser 26.787,65 Eu até sei oque esta acontecendo. Ele esta fazendo o calculo com o campo vUnCom x qCom arredondando para 8.900,40 Obrigado pela atenção!

Boa tarde @Juliomar Marchetti Segue a unit modificada! Testada e funcionando as modificações ACBrNFCeDANFeFPDF.pas

Boa noite Na classe TNFCeDANFeFPDF As propriedades ExibirConsumidorNome e ExibirConsumidorEndereco não estão visíveis para chamada na aplicação cliente. Eu estava olhando as heranças da classe "TNFCeDANFeFPDF" e não vi implementações e declarações destas respectivas variáveis. Quando é realizada a chamada neste bloco não funciona: function TNFCeDANFeFPDF.GetTextoBlocoConsumidor: string; begin Result := ''; if NFe.Dest.CNPJCPF <> '' then begin if Length(NFe.Dest.CNPJCPF) = 14 then Result := 'CONSUMIDOR - CNPJ: ' + FormatarCNPJouCPF(NFe.Dest.CNPJCPF) else if Length(NFe.Dest.CNPJCPF) = 11 then Result := 'CONSUMIDOR - CPF: ' + FormatarCNPJouCPF(NFe.Dest.CNPJCPF); if ExibirConsumidorNome then Result := Result + IfThen(NFe.Dest.xNome <> '', sLineBreak + NFe.Dest.xNome); end else Result := 'CONSUMIDOR NÃO IDENTIFICADO'; if ExibirConsumidorEndereco and (NFe.Dest.EnderDest.xLgr <> '') then Result := Result + sLineBreak + Format('%s, %s %s %s %s-%s', [NFe.Dest.EnderDest.xLgr, NFe.Dest.EnderDest.nro, NFe.Dest.EnderDest.xCpl, NFe.Dest.EnderDest.xBairro, NFe.Dest.EnderDest.xMun, NFe.Dest.EnderDest.UF]); end; Deixo uma sugestão de alteração do mesmo: function TNFCeDANFeFPDF.GetTextoBlocoConsumidor: string; begin Result := ''; if NFe.Dest.CNPJCPF <> '' then begin if Length(NFe.Dest.CNPJCPF) = 14 then Result := 'CONSUMIDOR - CNPJ: ' + FormatarCNPJouCPF(NFe.Dest.CNPJCPF) else if Length(NFe.Dest.CNPJCPF) = 11 then Result := 'CONSUMIDOR - CPF: ' + FormatarCNPJouCPF(NFe.Dest.CNPJCPF); //Preenche nome de informado if (NFe.Dest.xNome <> '') then Result := Result + IfThen(NFe.Dest.xNome <> '', sLineBreak + NFe.Dest.xNome); end else Result := 'CONSUMIDOR NÃO IDENTIFICADO'; //Preenche endereço de existir nº de documento e nome if( (NFe.Dest.CNPJCPF <> '')and(NFe.Dest.xNome <> '') )then begin if (NFe.Dest.EnderDest.xLgr <> '') then Result := Result + sLineBreak + Format('%s, %s %s %s %s-%s', [NFe.Dest.EnderDest.xLgr, NFe.Dest.EnderDest.nro, NFe.Dest.EnderDest.xCpl, NFe.Dest.EnderDest.xBairro, NFe.Dest.EnderDest.xMun, NFe.Dest.EnderDest.UF]); end; end; Obrigado

Boa noite @Italo Giurizzato Junior, Obrigado!

Alteração do provedor da cidade de Petrópolis/Rj no ACBrNFSeXServicos.ini [3303906] Nome=Petropolis UF=RJ Provedor=Bauhaus ProRecepcionar=* ProGerarNFSe=https://api-nfse-petropolis-rj.prefeituramoderna.com.br/ws/services/gerar ProConsultarNFSeRps=https://api-nfse-petropolis-rj.prefeituramoderna.com.br/ws/services/consultar ProConsultarNFSe=https://api-nfse-petropolis-rj.prefeituramoderna.com.br/ws/services/consultar ProCancelarNFSe=https://api-nfse-petropolis-rj.prefeituramoderna.com.br/ws/services/cancelar ProSubstituirNFSe=https://api-nfse-petropolis-rj.prefeituramoderna.com.br/ws/services/substituir

Boa noite, Comprando no CNPJ, se você vender sua empresa a licença obrigatoriamente vai junto. A minha licença é no CPF.

Aqui no RJ também com o mesmo problema.

Bom dia @Italo Jurisato Junior, @ricamgi Para obter o link da nota, eu implementei está rotina dentro da minha classe: procedure TLtNFSe.ImprimirNFSe(NumNFSe,NumVerificador:String); var FLinkNFSe : String; begin FLinkNFSe:=FACBrNFSe.LinkNFSe( StrToIntDef(NumNFSe, 0), NumVerificador); //Substitui a insc.municipal pelo código do link do cliente. FLinkNFSe := StringReplace(FLinkNFSe, FContribuinte.IM, FWebServices.CodLink, [rfReplaceAll]); FLinkPortal:=Copy(FLinkNFSe,1,Funcao.Funcoes.PosicaoCaracterNaString('?',FLinkNFSe)-1); end; Explicações : Quando o ACBr gera o link, ele gera com o inscrição municipal e o conam utiliza um código especifico do próprio cliente, que nomeie de código do link. Como faço para obter este código? Eu peço o cliente para acessar sua conta no portal da prefeitura e enviar uma nota já gerada para meu e-mail, assim eu pego este código e coloco neste parametro chamado código do link. Faço toda esta mágica... Abraços.....

@Italo Jurisato Junior,boa noite, Segue o arquivo das cidades com inclusões. Obrigado pela atenção. Cidades.ini

@Italo Jurisato Junior, boa noite. Quando puder fazer a gentileza, de versionar. foi acrescentada a linha 2531 para correção da AliquotaSN. Eu tinha esquecido de envia-la anteriormente e acabou ficando corrigida apenas na minha máquina. Obrigado. @ricamgi, aguarda o versionamento ou usa o fonte em anexo e refaça os testes novamente. ACBrNFSeWebServices.pas

@ricamgi, vou fazer testes e breve te respondo.

@Italo Jurisato Junior, Bom dia, Mencionei o Italo, ou pode ser para qualquer versionador. Realizei uma implementação para atender a necessidade da alíquota do SN no provedor CONAM. Segue os fontes alterados. Qualquer dúvida estou a disposição. Muito obrigado. pnfsNFSeG.pas pnfsNFSe.pas

@André Medeiros - KRK , boa noite. Como você está por dentro das implementações do provedor Conam, me tira uma dúvida. Como você está fazendo quando há necessidade de se ter alíquotas diferentes para "ISS' e "SN". Como tem muito tempo que não precisei fazer mudanças, agora que um contador pediu que você alterada, percebi que nos fontes é utilizada a alíquota de ISS para os dois campos. Antes lá quando foi implementado o Conam, erá chamada a função "TNFSeW_CONAM.GerarIdentificacaoRPS" na unit pnfsNFSeW_CONAM e tinha as duas propriedades. Obrigado pela atenção.

Caro @Daniel Simoes, Depois de ter seguido sua instruções, atualização do Windows7: Os certificados mencionados A3 PenDrive menos o da Certisign trava e todos de cartão também. Nos testes com ACBr Demo percebi a questão do compartilhamento do certificado A3. Uma vez ele aberto, caso tenha que recarregar os parâmetros ocorre o erro, tendo que fechar a abrir novamente. Agora o estranho, eu tenho um aplicativo servidor de certificados "DataSnap", onde vários terminais acessam simultaneamente. Para cada conexão é instanciado o ACBrNFe e destruído no final bla...bla.. Sem que nenhuma outra conexão esteja usando, sempre gera os erros mencionados. Uma única instância e certificado não sendo compartilhado. Ao ser instanciado ele carrega os parametros do arquivo.ini normalmente como é feito no demo. Obs: windows 10 não ocorre estes tipos de erros, inclusive o compartilhamento do certificado pode ser feito normalmente. alguma luz. Att:

Blz Daniel ! Estou vendo estas atualizações para win7. vou fazer outros testes e post os resultado. Obrigado.

Boa noite, Depois de dar uma lida e nas resposta tentar corrigir o problema sem êxito, Vamos lá: Todos os testes aplicados, foram utilizando o ACBrNFe_Demo.exe Utilizando estas configurações: SSLLib =libWinCrypt CryptLib =CryWinCrypt HttpLib =HttpWinHttp ou HttpWinLNet XMLSignLib =xsMsXML e SSLType <> LT_TLSv1_2 No Windows 7 com um certificado digital A3 Certisign PenDrive ou A1 funciona tudo corretamente sem problemas. No Windows 7 com um certificado digital A3 Valid PenDrive, Leitora + Cartão, ou outra certificadora de leitora + cartão, como mencionado em outros post, quando abre o Demo na primeira vez e pede para realizar um "Status de Serviço", podendo repetir diversas vezes o clique não ocorre nenhum problema. Caso faça um simples clique no botão "Salvar Configurações" da aba certificado e voltar clicar no botão "Status de Serviço", ocorre diretamente o erro "12157 ou 12030", dependendo do staus HttpLib. com isso o problema só é resolvido fechando a abrindo o demo novamente. Percebi que este erro ocorre quando o componente ACBrNFe carrega novamente os parametros. Obs: Todos estes mencionados acima, foram também realizados com windows 10 sem nenhum problema inclusive o "SSLType = LT_TLSv1_2". Estou com clientes funcionando normalmente com A3 Certisign PenDrive, A1 e os outros parados. Obs2: Já segui o Bye Bye CAPICOM, Se alguém tiver uma idéa ou solução para testes. Abrigado. Depois de ter postado, percebi onde ele caiu e ví algumas novas soluções. Vou dar uma nova revisada no app. Desculpas pela nova postagem.

Bom dia, Tenta este site : http://www.onlinecertificadora.com.br/ Talvez terá de fazer a liberação.

Esta é uma configuração de envio smtp com a locaweb. ACBrMail1.From := // sua conta de e-mail'; ACBrMail1.FromName := 'Comerciall'; ACBrMail1.Host := 'smtplw.com.br'; ACBrMail1.Username := // usuário da conta smtp; ACBrMail1.Password := // senha da conta smtp; ACBrMail1.Port := '587'; Aqui, as configurações do host, username e password não são da conta de e-mail e sim da conta do smtp. Abraços, ACBrMail1.SetTLS := True; // Verifique se o seu servidor necessita SSL

Boa noite @Italo Jurisato Junior, Acrescentei duas linhas para atender as ExigibilidadeISS que não estavam sendo repassadas para o preenchimento da classe CONAM. Só estava atendendo quando era OptanteSimples, Fiz os teste aqui e agora esta fazendo o preenchimento corretamente. Comentei no fonte com um {Todo:// Acrescentados estas duas linhas abaixo por masl} para melhor localização. Abrigado pela atenção. ACBrNFSeWebServices.pas

Depende do ponto de vista Juliomar! Se o(s) projeto(s) tiverem muitos componentes de terceiros que não existam nas versões mais recentes do Delphi, será um pouco mais demorado a migração. O pessoal está com receio de uma hora para outra seus projetos não mais compilarem. Não estão entendendo que até chegar a este ponto, vai demorar um pouco. Na época eu fiz isto "dll', pois tinha muita dependência. Até eu me desvincular, demorei um pouco. Mas, é uma sugestão ! Cada um vê o que é melhor e nós estamos aqui para colaborar ! Abraços.

Mude para um delphi mais atualizado. Ex: Xe7 etc... Fica uma sugestão de migração. No delphi mais atualizado, instale e configure os componentes do ACBr, depois crie uma(s) dll com suas necessidades e a utilize no seu D7. Isito será bém mais rápido. Com isto você ganha mais tempo para migrar seus projetos. Há muitos anos atrás, minha migração foi feita assim do D7 para 2009. Abraços e espero ter ajudado.

Você configura o componente para um provedor que tem suporte a SMTP e envia o e-mail de teste. portas 587 e 465.

Boa boite @Dercide Alvarez, Provavelmente que o link que esta no corpo do e-mail, está caindo como "span' na análise pelo provedor de envio. Isto já aconteceu comigo, utilizando a locaweb.

Boa tarde, @Adenilde Tome, Realizei um teste de cancelamento junto ao CONAM hoje e ocorreu o cancelamento normalmente. Você deve atualizar o seus fontes, pois foram feitas várias atualizações.