Endrigo Rodrigues

Gostaria de saber se essa implementação será publicada no SVN?

Boa noite pessoal. Na unit ACBrPosPrinter na função LerStatusImpressora está faltando a inversão do valor quando o sinal da gaveta está fechada. ACBrPosPrinter.pas

Tive um problema na última atualização de NFC-e em contigência (Off-line). O erro é que está tentando validar antes de assinar, sendo que o XML é gerado somente na assinatura pelo que parece. ACBrECFVirtualNFCe.pas

Voltei a unit ACBrECFVirtual.pas para o original, com o desconto após o VendeItem, peguei a unit que você passou e testamos, deu tudo certo. Tem uma previsão de quando subirá para o svn?

@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.