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.

Boa tarde, Depois das melhorias e correções que foram implementadas na classe ACBrDFeWinCrypt nestes últimos dias pelo @Daniel Simoes, os erros mencionados por mim com alguns certificados principalmente os de cartões já não apresentam mais. Obrigado.