Clipper On Line • Ver Tópico - SEFAZCLASS - Logo na DANFE

SEFAZCLASS - Logo na DANFE

Projeto hbNFe (Nota Fiscal Eletronica/Danfe) para [x]Harbour

Moderador: Moderadores

 

SEFAZCLASS - Logo na DANFE

Mensagempor mga » 17 Nov 2017 18:21

Usando a classe do mestre Jose Quintas, não estou conseguindo fazer a LOGO sair na DANFE, alguem pode me ajudar

cConteudoXML := RetornaConteudoDoXMLArquivoTabelaNFE( cChaveNFE )
cArquivoPDF := PastaPDF()+"\"+Alltrim(cChaveNFE)+".pdf"
oDanfe := hbNFeDaNFe():New()
oDanfe:cDesenvolvedor := InformacaoDoDesenvolvedor()
oDanfe:cLogoFile := "c:\danfe\imagem.jpg"
cRetorno := oDanfe:ToPDF( cConteudoXML, cArquivoPDF, "" )
mga
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 11
Data de registro: 17 Nov 2017 09:21
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

SEFAZCLASS - Logo na DANFE

Mensagempor mga » 17 Nov 2017 18:50

Resolvido assim:

METHOD DrawJPEGImage( cJPEGImage, x1, y1, x2, y2 ) CLASS hbNFeDaNFe

IF cJPEGImage == NIL .OR. Empty( cJPEGImage )
RETURN NIL
ENDIF

// IF Len( cJPEGImage ) < 100
// IF File( cJPEGImage )
// cJPEGImage := HPDF_LoadJpegImageFromFile( ::oPDF, cJPEGImage )
// ENDIF
// ELSE
// cJPEGImage := HPDF_LoadJpegImageFromMem( ::oPDF, cJPEGImage, Len( cJPEGImage ) )
// ENDIF

cJPEGImage := HPDF_LoadJpegImageFromFile( ::oPDF, cJPEGImage )

HPDF_Page_DrawImage( ::oPDFPage, cJPEGImage, x1, y1, x2, y2 )

RETURN NIL
mga
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 11
Data de registro: 17 Nov 2017 09:21
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

SEFAZCLASS - Logo na DANFE

Mensagempor JoséQuintas » 18 Nov 2017 01:40

Se reparar direito, fez o que estava no fonte, exceto testar se o arquivo existe.

/ IF Len( cJPEGImage ) < 100
// IF File( cJPEGImage )
// cJPEGImage := HPDF_LoadJpegImageFromFile( ::oPDF, cJPEGImage )
// ENDIF
// ELSE


cJPEGImage := HPDF_LoadJpegImageFromFile( ::oPDF, cJPEGImage )


Se Len() do parâmetro < 100.... seu parâmetro é menor que 100.
IF File( cJPEGImage ) .... só se falhou aqui.
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: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

SEFAZCLASS - Logo na DANFE

Mensagempor JoséQuintas » 18 Nov 2017 01:45

Ah, não... já sei o que foi....
A melhoria está no uso "não direto".

oDanfe := hbnfeDaGeral():New()
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: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

SEFAZCLASS - Logo na DANFE

Mensagempor rubens » 18 Nov 2017 08:32

Bom dia
José Quintas...
Como enviar o texto nas observações para quebrar a linha?
Por exemplo:
cObs1+'|'+cObs2?
cObs1+';'+cObs2?
cObs1+HB_Eol()+cObs2?

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

SEFAZCLASS - Logo na DANFE

Mensagempor JoséQuintas » 18 Nov 2017 09:47

Os dois são válidos, mas use preferencialmente o ponto e vírgula, pra não complicar com UTF8.

   FOR EACH cText IN { ";;", ";", "|" }
      ::aInfAdic[ "infCpl" ]     := StrTran( ::aInfAdic[ "infCpl" ], cText, hb_Eol() )
      ::aInfAdic[ "infAdFisco" ] := StrTran( ::aInfAdic[ "infAdFisco" ], cText, hb_Eol() )
   NEXT
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: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

SEFAZCLASS - Logo na DANFE

Mensagempor mga » 18 Nov 2017 10:27

Muito obrigado Sr José Quintas, e parabéns pelo trabalho com HBNFE é fantástico. :{ :{
mga
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 11
Data de registro: 17 Nov 2017 09:21
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para Projeto hbNFe

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 5 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