WesleyAS

Na emissão da NFe (XML) existem as informações de unidade de medida comercial e tributável (bem como valor unitário e quantidade) e esta informação deve ser impressa na DANFE para alguns produtos, como o GLP no estado do Mato Grosso. Alteração feita no post original: http://www.projetoacbr.com.br/forum/topic/27636-impressão-de-nfe-com-a-unidade-comercial-e-tributável-fastreport/#comment-220835

Bom dia, Como solicitado, estou enviando em anexo alterações que permitem a impressão na DANFE da NFe (Fast e Fortes) das duas unidades de medida (comercial e tributável), quando as mesmas são diferentes, assim como é feito no Emissor Gratuito da Sefaz SP. Os fontes estão atualizados com a versão de hoje (18/11/2016), utilizando o Fortes 4.0 e Fast 5.4.3. Foram alterados os arquivos: Fontes/PCNComum/pcnConversao.pas Criado o tipo "TImprimirUnidQtdeValor" com as opções: iuComercial (impressão apenas das informações comerciais) iuTributavel (impressão apenas das informações tributáveis) iuComercialETributavel (impressão apenas das informações comerciais e tributáveis) Exemplos/ACBrDFe/ACBrNFe/Delphi/Report/DANFePaisagem.fr3 Exemplos/ACBrDFe/ACBrNFe/Delphi/Report/DANFeRetrato.fr3 Exemplos/ACBrDFe/ACBrNFe/Delphi/Report/DANFeRetratoNovo.fr3 Alterado nos campos Unidade, Valor Unitario e Quantidade a propriedade WordWrap para True, para permitir que seu valor tenha mais de 1 linha (servirá para imprimir os dados da unidade comercial na primeira linha e da tributável na segunda linha). No arquivo DanfePaisagem.fr3 foi corrigido os campos Unidade, Qtde e Valor Unitário que estavam sempre retornando os valores da unidade tributável. Fontes/ACBrDFe/ACBrNFe/DANFE/ACBrNFeDANFEClass.pas Foram criados 3 funções formatar a Unidade de Medida, Quantidade e Valor Unitário quando utilizada a impressão da unidade comercial e tributada. Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fast/ACBrNFeDANFEFR.pas O tipo da propriedade "ImprimirUnQtVlComercial" for alterada de "boolean" para "TImprimirUnidQtdeValor" (pcnConversao.pas) e inicializada por padrão como "iuTributavel". Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fast/ACBrNFeDANFEFRDM.pas O tipo da propriedade "ImprimirUnQtVlComercial" for alterada de "boolean" para "TImprimirUnidQtdeValor" (pcnConversao.pas). A rotina "CarregaDadosProdutos" foi alterada para contemplar a alteração da propriedade "ImprimirUnQtVlComercial". Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fortes/ACBrNFeDANFeRLClass.pas Criada a propriedade "ImprimirUnQtVlComercial: TImprimirUnidQtdeValor" (pcnConversao.pas) e inicializada por padrão como "iuTributavel". Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fortes/ACBrNFeDANFeRLPaisagem.dfm Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fortes/ACBrNFeDANFeRLPaisagem.pas Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fortes/ACBrNFeDANFeRLRetrato.dfm Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fortes/ACBrNFeDANFeRLRetrato.pas Alterados os componentes dos objetos txtUnidade, txtQuantidade e txtValorUnitario de "TRLLabel" para "TRLMemo". A rotina "rlbItensBeforePrint" foi alterada para contemplar a alteração da propriedade "ImprimirUnQtVlComercial". Anteriormente estava fixo a impressão apenas das informações comerciais. Arquivos de exemplo Fast-DANFePaisagem.pdf Fast-DANFeRetrato.pdf Fast-DANFeRetratoNovo.pdf Fortes-DANFePaisagem.pdf Fortes-DANFeRetrato.pdf acbr3.zip

As alterações já foram feitas e estão anexadas no tópico, mas ainda não foram analisadas e integradas no SVN.

Alguma novidade? Pois precisamos dessa alteração na DANFE.

Com essa alteração da erro de "Access Violation" quando executa "frxReport.PrepareReport" utilizando o arquivo "DANFSE.fr3".

Acabei de atualizar o repositório e o erro continua ocorrendo. Testei no Delphi 2010 e no Seattle. Aparentemente tem relação com a ordem de criação dos objetos em memória. Apenas quando é criado o objeto da NF-e primeiro e depois da NFS-e ocorre o erro. Em anexo esta o projeto atualizado com os testes de criação dos objetos. NFS-e.zip

O erro em anexo começou a ocorrer quando migramos para o Trunk2. Fiz alguns testes e verifiquei o seguinte: Internamente a impressão da DANFE (NF-e e NFS-e) cria alguns objetos "TfrxDBDataset" e a propriedade "UserName" é especificada manualmente (como por exemplo "Parametros"). Ocorre que as classes "TACBrNFSeDANFSeFR" (NFS-e) e "TACBrNFeFRClass" (NF-e) utilizam os mesmos valores para esta propriedade e se existir a instancia dessas duas classes ao mesmo tempo, ocorre o erro em anexo. Este erro começou a ocorrer na migração pois antes utilizávamos a impressão da NF-e com Rave e a NFS-e em FastReport. Agora temos tudo em FastReport. Para simular o erro basta criar um projeto e adicionar no mesmo formulário os componentes para NF-e (TACBrNFe e TACBrNFeDANFEFR) e NFS-e (TACBrNFSe e TACBrNFSeDANFSeFR), carregar o XML de uma NFS-e e imprimir. Em anexo tem um exemplo do fonte. No momento estamos alterando o sistema para contornar esse erro, mas a alteração necessária seria apenas utilizar nomes específicos em cada projeto, como "ParametrosNFe" e "ParametrosNFSe". Não vi ainda se teremos estes problemas com a CT-e e MDF-e. NFS-e.zip