Endrigo Rodrigues

@Daniel Simoes, é que o processo de cálculo do desconto é feito sempre na venda do item, se não é definido os valores de desconto ou acréscimo para o item antes da venda, o XML é gerado sem os mesmos.

Segue em anexo os arquivos com as respectivas modificações. @Juliomar Marchetti, peço que faça as devidas confrontações e quando possível subir para o SVN. Obrigado. ACBrECFVirtualNFCe.zip ACBrECFVirtual.zip

Essa já são alterações da atual. Vou aguardar os testes do pessoal da depuração daqui da empresa para passar o arquivo para vocês.

Sim Daniel, isso eu já havia compreendido. Porém a questão da NFC-e não está realizando o cálculo do desconto do item corretamente, e não tem codificação para rateio dos itens quando desconto ou acréscimo no cupom. No arquivo ACBrECFVirtualNFCe.pas Linha 496: Está assim: Det.Prod.vDesc := ItemCupom.DescAcres; Deveria estar assim: Det.Prod.vDesc := ItemCupom.DescAcres * -1; Linha 519: Está assim: Det.Imposto.ICMS.vBC := RoundABNT(ItemCupom.Qtd*ItemCupom.ValorUnit,2); Deveria estar assim: Det.Imposto.ICMS.vBC := RoundABNT((ItemCupom.Qtd*ItemCupom.ValorUnit)+ItemCupom.DescAcres,2); O procedimento SubtotalizaCupomVirtual que se inicia na linha 545 que deveria realizar o rateio do desconto ou acréscimo do cupom para os itens, não faz. Avalie se esse procedimento para o rateio seria o correto: procedure TACBrECFVirtualNFCeClass.SubtotalizaCupomVirtual( MensagemRodape: AnsiString); var i, ItMaior: Integer; ItDescAcre: Array of Extended; Total, Valor, TotDescAcre, VlItMaior: Extended; begin with fsACBrNFCe do begin if fpCupom.DescAcresSubtotal > 0 then Valor := fpCupom.DescAcresSubtotal else Valor := fpCupom.DescAcresSubtotal * -1; if Valor <> 0 then begin Total := 0; ItMaior := -1; VlItMaior := 0; TotDescAcre := 0; SetLength(ItDescAcre, NotasFiscais.Items[0].NFe.Det.Count); for i := 0 to NotasFiscais.Items[0].NFe.Det.Count - 1 do Total := Total + NotasFiscais.Items[0].NFe.Det[i].Prod.vProd; for i := 0 to NotasFiscais.Items[0].NFe.Det.Count - 1 do begin ItDescAcre[i] := RoundABNT(Valor * (NotasFiscais.Items[0].NFe.Det[i].Prod.vProd / Total),2); TotDescAcre := TotDescAcre + ItDescAcre[i]; if ItDescAcre[i] > VlItMaior then begin VlItMaior := ItDescAcre[i]; ItMaior := i; end; end; if TotDescAcre <> Valor then ItDescAcre[ItMaior] := ItDescAcre[ItMaior] - (TotDescAcre - Valor); for i := 0 to NotasFiscais.Items[0].NFe.Det.Count - 1 do begin if fpCupom.DescAcresSubtotal > 0 then NotasFiscais.Items[0].NFe.Det[i].Prod.vOutro := NotasFiscais.Items[0].NFe.Det[i].Prod.vOutro + ItDescAcre[i] else NotasFiscais.Items[0].NFe.Det[i].Prod.vDesc := NotasFiscais.Items[0].NFe.Det[i].Prod.vDesc + ItDescAcre[i]; end; end; if fpCupom.DescAcresSubtotal > 0 then NotasFiscais.Items[0].NFe.Total.ICMSTot.vOutro := Valor else NotasFiscais.Items[0].NFe.Total.ICMSTot.vDesc := Valor; NotasFiscais.Items[0].NFe.InfAdic.infCpl := MensagemRodape; end; end; Já passei para o pessoal do departamento de depuração realizar os testes, mas ainda estou aguardando respostas. Mas já vou adiantando para vocês avaliarem as alterações.

Sim Daniel, o problema que estou tendo é com o ACBrECFVirtualNFCe.

Juliomar, estou fazendo isso agora mas observo que foi retirado o parâmetro DescontoAcrescimo no procedimento SubtotalizaCupomVirtual, necessário para fazer o rateio que eu havia feito do desconto/acréscimo do cupom para os itens. Existe algum outro lugar onde posso capturar o desconto ou acréscimo aplicado ao cupom para poder realizar o rateio no momento do SubtotalizaCupomVirtual? Esquece já descobri, agora é no fpCupom.DescAcresSubtotal.

Eu havia enviado essa correção para ajudar a resolver o problema do desconto no item, mas não foi inserida na última versão, estou fazendo algo de errado?

Então, estou utilizando o DANFeRetrato_Basic.fr3 e está dando o erro de classe datasets e variables. Terei que realizar o processo então de abrir o arquivo, ignorar os erros e adicionar os datasets?

Juliomar, eu trabalho com o XE2 e uso o FastReport 4 que vem no Delphi, para que eu consiga utilizar os relatórios novos eu teria que comprar uma versão paga do FastReport VCL 5 ou somente fazendo o processo de abrir o arquivo, ignorar os erros e adicionar todos os datasets funcionará? Muito obrigado.

Corrigi uma questão no desconto do item que estava duplicando o desconto no total. ACBrECFVirtualNFCe.pas

Fiz algumas alterações para possibilitar o desconto no item e no cupom corretamente. ACBrECFVirtualNFCe.pas

procedure TACBrECFVirtualNFCeClass.SubtotalizaCupomVirtual( DescontoAcrescimo: Double; MensagemRodape: AnsiString); begin with fsACBrNFCe do begin //TODO: Precisa ratear desconto entre os itens if DescontoAcrescimo > 0 then NotasFiscais.Items[0].NFe.Total.ICMSTot.vOutro := DescontoAcrescimo else NotasFiscais.Items[0].NFe.Total.ICMSTot.vDesc := DescontoAcrescimo; NotasFiscais.Items[0].NFe.InfAdic.infCpl := MensagemRodape; end; end; //TODO: Precisa ratear desconto entre os itens Posso tentar fazer esse rateio ou já tem alguém fazendo?

Estou tendo problemas ao finalizar uma NFC-e utilizando o ECFVirtual quando utilizo desconto no item ou desconto no cupom. Para o desconto no cupom (nesse exemplo tentei dar um desconto de R$ 3,00) recebo o seguinte retorno: Rejeicao: NFC-e com somatorio dos pagamentos diferente do total da Nota Fiscal Para o desconto no item (nesse exemplo tentei dar um desconto de R$ 0,50) recebo o seguinte retorno: '-0.50' violates pattern constraint of '0\.[0-9]{1}[1-9]{1}|0\.[1-9]{1}[0-9]{1}|[1-9]{1}[0-9]{0,12}(\.[0-9]{2})?'. The element '{http://www.portalfiscal.inf.br/nfe}vDesc' with value '-0.50' failed to parse. Alguém já teve esse tipo de problema com o ECFVirtual para a NFC-e? http://www.projetoacbr.com.br/forum/topic/25627-acbrecfvirtual-vendeitem-e-iniciafechamentocupom-com-desconto/#comment-166015

Estou tendo problemas ao finalizar uma NFC-e utilizando o ECFVirtual quando utilizo desconto no item ou desconto no cupom. Para o desconto no cupom (nesse exemplo tentei dar um desconto de R$ 3,00) recebo o seguinte retorno: Rejeicao: NFC-e com somatorio dos pagamentos diferente do total da Nota Fiscal Arquivos: 130000017364989-proc-rec.xml 7-env-lot.xml Para o desconto no item (nesse exemplo tentei dar um desconto de R$ 0,50) recebo o seguinte retorno: '-0.50' violates pattern constraint of '0\.[0-9]{1}[1-9]{1}|0\.[1-9]{1}[0-9]{1}|[1-9]{1}[0-9]{0,12}(\.[0-9]{2})?'. The element '{http://www.portalfiscal.inf.br/nfe}vDesc' with value '-0.50' failed to parse. Arquivo: acbrecfnfce.xml Alguém já teve esse tipo de problema com o ECFVirtual para a NFC-e? 7-env-lot.xml 130000017364989-pro-rec.xml acbrecfnfce.xml

Bom dia Juliomar, agradeço o contato. Sim tenho ciência de que só poderei utilizar o A1, porém esse erro está me intrigando, o erro só ocorre quando tento instalar o pacote, compila normalmente, vou tentar utilizá-lo diretamente em minha aplicação, se conseguir utilizar informo aqui. Outro erro que observei e corrigi manualmente foi de compilação da unit ACBrNFSeWebServices.pas, a declaração uses do ActiveX estava fora do {$IFNDEF ACBrNFSeOpenSSL}.

Estou obtendo um erro no momento de instalar o pacote NFSe. Compila normalmente, sem erro algum, o erro acontece no momento de instalar. LUbuntu 64bits Lazarus 1.2.6 FPC 2.6.4 x86_64-linux-gtk 2 Pacotes já compilados e instalados: ACBrComum ACBrDiversos ACBrOpenSSL laz_synapse PCN2 (0,0) Fatal: Can not find unit ACBrProvedorIssCuritiba used by ACBrNFSeWebServices. Check if package ACBr_NFSe is in the dependencies. Alguém saberia me dizer o que pode estar acontecendo?

Correção do arquivo ACBrIBPTax.pas. Na revisão 7899, a verificação da quantidade de colunas estava errada (12) modifiquei para (13). ACBrIBPTax.pas

Alguém tem notícias do que será adotado em Minas Gerais?

Italo, no caso da NFS-e só funcionará CAPICOM, ou poderá funcionar com OpenSSL também?

Para usar o ACBrNFeMonitor em meu servidor Web para sistemas em PHP terei que usar somente Windows ou poderei utilizar servidor Linux? Sei que para isso só poderei aceitar certificados tipo A1, pois estará rodando somente no servidor, nesse caso posso utilizar a versão OpenSSL e armazenar a senha do certificado digital em banco de dados? Obrigado a todos.

Muito bom Márcio. Resolveu o meu problema aqui também.

Olá pessoal. Seguinte, estou em Belo Horizonte/MG utilizando BHISS. Estou enviando um lote com 20 notas e estou recebendo o seguinte XML de retorno: <?xml version="1.0" encoding="UTF-8" ?> <ConsultarSituacaoLoteRpsResposta xmlns="http://www.abrasf.org.br/nfse.xsd"> <NumeroLote>936</NumeroLote> <Situacao>2</Situacao> </ConsultarSituacaoLoteRpsResposta> Mas pelo que vejo, por ter me retornado Situacao=2, deveria ter vindo também a chave ListaMensagemRetorno, mas não veio, e não tenho como saber o que está dando erro, deve ser o mesmo problema da Vanessa. Tem alguma coisa que posso fazer para ajudar a corrigir o problema?

Muito bom. Também estou no aguardo.

Obrigado Daniel.

Na linha 2431 deve ser feita a seguinte correção: DtHrStr := DtHrStr + ' ' + copy(LinhaVer, I-2, 8 ) ; O fonte atual está da seguinte forma: DtHrStr := ' ' + copy(LinhaVer, I-2, 8 ) ;