Rodapé Desenvolvedor na Nfe

[malcarli]

Bom dia, na nfe tem a opção de colocar o desenvolvedor no rodapé da nfe. Até aqui funciona ok, mas analisando a fonte da classe tem a opção de imprimir tb a data de emissão. Como setar isto, pois é sempre falso, mas não imprime a data?

Código: Selecionar todos

METHOD Desenvolvedor( nLinhaPDF ) CLASS hbNFeDaGeral

   hb_Default( @nLinhaPDF, 10)
   ::DrawTexto( 1, nLinhaPDF, 590, NIL, ::cDesenvolvedor, HPDF_TALIGN_RIGHT, ::oPdfFontBold, 6 )
   IF .F.
      ::DrawTexto( 20, nLinhaPDF, 300, NIL, "DATA DA IMPRESSÃO: " + Dtoc( Date() ), HPDF_TALIGN_LEFT, ::oPDFFontBold, 6 )
   ENDIF

   RETURN NIL

Att.

Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®
https://malc-informatica.ueniweb.com
Insta: @malcarli25
Email / Skype: marceloalcarli@gmail.com

[JoséQuintas]

Isso vai trazer mais problema do que solução.
Num primeiro momento o PDF é gerado na emissão da nota, e ela possui data de emissão/autorização.

Colocar data no PDF não significa que imprimiu.
Só vai servir pra gerar problema de fiscalização, isso sim.

Em todo caso, pode colocar o texto junto com o desenvolvedor.

[malcarli]

data junto como desenvolver, fica melhor a opção mesmo. obg

Outra dúvida no método desenvolvedor, tem o parametro nLinhaPDF, mas não tem como setar o mesmo, não seria o caso de usar ::nLinhaPDF, pois está como padrão 10, mas para mim ficou melhor usar 7, mas não consigo setar. obg

Código: Selecionar todos

METHOD Desenvolvedor( nLinhaPDF ) CLASS hbNFeDaGeral

   hb_Default( @nLinhaPDF, 10 )
   ::DrawTexto( 1, nLinhaPDF, 590, NIL, ::cDesenvolvedor, HPDF_TALIGN_RIGHT, ::oPdfFontBold, 6 )
   IF .F.
      ::DrawTexto( 20, nLinhaPDF, 300, NIL, "DATA DA IMPRESSÃO: " + Dtoc( Date() ), HPDF_TALIGN_LEFT, ::oPDFFontBold, 6 )
   ENDIF

   RETURN NIL

[JoséQuintas]

Teria que criar configuração pra isso.
Não lembro se a posição considera a margem, que pode impedir sair na impressora.


Lembrando:
Sempre dá pra usar herança.

Código: Selecionar todos

oDanfe := Danfe():New()

E na sua classe:

Código: Selecionar todos

CREATE CLASS Danfe INHERIT  hbNfeDanfe
   METHOD Desenvolvedor() INLINE ::SUPER:Desenvolvedor( 7 )
  ENDCLASS

Assim altera a classe sem precisar mexer na original.
E quanto atualizar, também não precisa mexer (nesse caso).

[JoséQuintas]

Código: Selecionar todos

   VAR    nLinhaDesenvolvedor INIT 7

Código: Selecionar todos

METHOD Desenvolvedor( nLinhaPDF ) CLASS hbNFeDaGeral

   hb_Default( @nLinhaPDF, ::nLinhaDesenvolvedor )

Se precisar modificar por herança, só modificar variável.

[malcarli]

obg ficou top