SEFAZCLASS - Logo na DANFE

[mga]

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]

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

[JoséQuintas]

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

Código: Selecionar todos

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

Código: Selecionar todos

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éQuintas]

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

oDanfe := hbnfeDaGeral():New()

[rubens]

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

[JoséQuintas]

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

Código: Selecionar todos

   FOR EACH cText IN { ";;", ";", "|" }
      ::aInfAdic[ "infCpl" ]     := StrTran( ::aInfAdic[ "infCpl" ], cText, hb_Eol() )
      ::aInfAdic[ "infAdFisco" ] := StrTran( ::aInfAdic[ "infAdFisco" ], cText, hb_Eol() )
   NEXT

[mga]

Muito obrigado Sr José Quintas, e parabéns pelo trabalho com HBNFE é fantástico. :{ :{