Clipper On Line • Ver Tópico - PDF de NFe, CTe, MDFe, e Evento

PDF de NFe, CTe, MDFe, e Evento

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

PDF de NFe, CTe, MDFe, e Evento

Mensagempor rubens » 24 Abr 2017 13:56

Ok.. José Quintas...

Vou deixar do jeito que tá e ver o no que dá... quando a gente tem muita coisa no sistema e daqui um pouco precisa atualizar vira um Deus nos acuda... É sempre melhor deixar o original...
Se não houver um número expressivo de reclamações fica assim mesmo...

Obrigado...

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

PDF de NFe, CTe, MDFe, e Evento

Mensagempor JoséQuintas » 24 Abr 2017 14:29

Depois verifico um jeito e aviso aqui.
Acho que encontrei uma alternativa interessante.
Algo como oPDF:SetEanOff()

Mas pergunta:
Está dizendo sobre a classe dentro de um programa, ou do utilitário de teste que pode ser usado de forma independente?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 17942
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

PDF de NFe, CTe, MDFe, e Evento

Mensagempor JoséQuintas » 24 Abr 2017 18:02

Feito para a classe.

https://github.com/JoseQuintas/sefazclass/commit/9d0924debd83a2fd70b72089bdad2d0a60a2d74f

Inicio as colunas como IMPRIME_IMPRIMEXMLTEM, que seria algo como só vai imprimir se tem no XML... rs

   ::aLayout[ LAYOUT_EAN,      LAYOUT_IMPRIME ] := LAYOUT_IMPRIMEXMLTEM


E criei os métodos onde pode indicar não.

   METHOD SetEanOff()           INLINE ::aLayout[ LAYOUT_EAN,      LAYOUT_IMPRIME ] := LAYOUT_NAOIMPRIME


Na definição de layout a partir do XML, só vai considerar o campo se estiver como baseado no XML (LAYOUT_IMPRIMEXMLTEM)

      IF ! Empty( ::aItem[ "cEAN" ] )
         IF ::aLayout[ LAYOUT_EAN, LAYOUT_IMPRIME ] == LAYOUT_IMPRIMEXMLTEM
            ::aLayout[ LAYOUT_EAN, LAYOUT_IMPRIME ] := LAYOUT_IMPRIMENORMAL
         ENDIF
      ENDIF


No uso é algo como isto:

oPDF := hbnfeDaNfe():New()
oPDF:SetEanOff()
oPDF:ToPDF( "arq.xml", "arq.pdf" )


Fiz o mesmo pra todos os outros campos opcionais. Com isso, o default é pra sair se existir no XML, como era antes.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 17942
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

PDF de NFe, CTe, MDFe, e Evento

Mensagempor rubens » 25 Abr 2017 08:10

Bom dia ...

Quinta eu compilo direto a classe....
Se embutir no sistema direto é melhor e mais rápido né...
Pelo que entendi se no XML tiver ean ele vai imprimir mesmo executando o método oPDF:SetEanOff()?
Vai depender se tiver no XML?

Obrigado

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

PDF de NFe, CTe, MDFe, e Evento

Mensagempor JoséQuintas » 25 Abr 2017 08:50

Não. Entendeu errado.

// SetEanOff: ::aLayout[ LAYOUT_EAN,   LAYOUT_IMPRIME ] := LAYOUT_NAOIMPRIME

IF ! Empty( ::aItem[ "cEAN" ] ) // se existir no xml. se não estiver vazio.  tem o NOT no início (!)
    IF ::aLayout[ LAYOUT_EAN, LAYOUT_IMPRIME ] == LAYOUT_IMPRIMEXMLTEM // não entra aqui se for LAYOUT_NAOIMPRIME
      ::aLayout[ LAYOUT_EAN, LAYOUT_IMPRIME ] := LAYOUT_IMPRIMENORMAL
    ENDIF
ENDIF
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 17942
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Anterior



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro