Inserido Zoom padrão e campo vPMC para impressão de Danfe da NF-e

[Cesar Cardoso - Solusys]

Pessoal, realizei uma alteração para poder configurar o zoom inicial na impressão do Danfe da NF-e, e também adicionei o campo vPMC para poder ser utilizado na impressão. Peço que se possível adicionem ao projeto.

Atualizei o componente ontem e fiz as alterações hoje, os arquivos alterados foram: ACBrNFeDANFEFR.pas e ACBrNFeDANFEFRDM.pas, estou mandando os dois em anexo. Agradeço desde já.

Segue a forma de chamada para configurar o Zoom:

 case(TB_nfe_confZoomPadraoNFE.AsInteger)of
     1: ACBrNFeDANFEFR1.ZoomModePadrao := zmManyPages; //Muitas Páginas
     2: ACBrNFeDANFEFR1.ZoomModePadrao := zmPageWidth;  //Largura da Página (Enche a página toda)
     3: ACBrNFeDANFEFR1.ZoomModePadrao := zmWholePage; //Página Inteira (Mostra a nota inteira na página)
   else
      ACBrNFeDANFEFR1.ZoomModePadrao := zmDefault; //Zoom Padrão (Zoom 100%) 
   end;

 

ACBrNFeDANFEFR.pas ACBrNFeDANFEFRDM.pas

Editado 7 Maio, 2019 por César A. S. Cardoso
Erro ao digitar

[Juliana Tamizou]

Boa tarde,

Obrigada pela contribuição, assim que for possível análise será retornado aqui.

Att.

[Juliomar Marchetti]

Em 07/05/2019 at 12:47, César A. S. Cardoso disse:

Pessoal, realizei uma alteração para poder configurar o zoom inicial na impressão do Danfe da NF-e, e também adicionei o campo vPMC para poder ser utilizado na impressão. Peço que se possível adicionem ao projeto.

Atualizei o componente ontem e fiz as alterações hoje, os arquivos alterados foram: ACBrNFeDANFEFR.pas e ACBrNFeDANFEFRDM.pas, estou mandando os dois em anexo. Agradeço desde já.

Segue a forma de chamada para configurar o Zoom:

 case(TB_nfe_confZoomPadraoNFE.AsInteger)of
     1: ACBrNFeDANFEFR1.ZoomModePadrao := zmManyPages; //Muitas Páginas
     2: ACBrNFeDANFEFR1.ZoomModePadrao := zmPageWidth;  //Largura da Página (Enche a página toda)
     3: ACBrNFeDANFEFR1.ZoomModePadrao := zmWholePage; //Página Inteira (Mostra a nota inteira na página)
   else
      ACBrNFeDANFEFR1.ZoomModePadrao := zmDefault; //Zoom Padrão (Zoom 100%) 
   end;

 

ACBrNFeDANFEFR.pas 16 kB · 2 downloads ACBrNFeDANFEFRDM.pas 93 kB · 1 download

No svn

[Cesar Cardoso - Solusys]

Muito obrigado Juliomar.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[hleorj]

@Juliomar Marchetti, 

Poderia me informar se e uma implementação particular ?

        if(FNFe.Det.Items[inItem].Prod.med.Count > 0)then
        begin
           FieldByName('vPMC').AsString := FormatFloatBr(FNFe.Det.Items[inItem].Prod.med.Items[0].vPMC,'###,###,##0.00');
        end
        else
        begin
           FieldByName('vPMC').AsString := '0.00';
        end;

O Código já existe em Detalhamentos de medicamentos.

[hleorj]

Corrigido na At revision: 17337

[BigWings]

1 hora atrás, hleorj disse:

Poderia me informar se e uma implementação particular ?

Reabrindo tópico para feedback do @César A. S. Cardoso.

[Cesar Cardoso - Solusys]

1 hora atrás, BigWings disse:

Reabrindo tópico para feedback do @César A. S. Cardoso.

Criamos esse campo pois temos uns clientes que precisam que o PMC seja exibido nos itens do Danfe e com ele fica mais fácil o acesso. Mas pensei não ter enviado ele junto com a alteração do Zoom, por isso não avisei. Peço desculpa caso tenha causado algum problema.

Editado 18 Julho, 2019 por César A. S. Cardoso

[hleorj]

Faça alguns testes utilizando :