Impressão NFe

[SISCO]

Eu Utilizo objNFeUtilPDF da Flexdocs, mas não sei porque em alguns computadores não funciona e agora parece que piorou. A minha maior dificuldade é a descrição do produto, estou com um cliente que a descrição tem mais de 80 caracteres e essa dll me servia muito bem. 

Se alguém teve esse problema e poder dar a dica ou se tiver uma outra forma de imprimir ficarei grato.

 

[kapiaba]

Bom dia. Facilitaria mais, se você postasse o código que você usa para eu ver se lembro de alguma coisa, ou ache o "ERRO".

obg. abs.

 

Regards, saludos.

[kapiaba]

https://flexdocs.net/guiaNFe/funcao.utilidades.geraDANFE.html

Aqui, uma aula do kpeta: kkkkkk
https://fivewin.com.br/index.php?/topic/23962-erro-gerarpdfdanfe-flexdocs/

 

Regards, saludos.

 

[SISCO]

Obrigado Kapi por responde

Eu já tinha visto esse material

Estou pensando em fazer no braço essa rotina. Mas estou enviando o meu código.

 

FUNCTION IMPDANFEPDF()
 carq=Alltrim(NFECAB->Chvnfe)+".PDF"
 cDestino=CurDrive()+":\"+CurDir()+"\"+cDirPDFNFe
 If !File(cDestino + carq) 
       cFileXmlProtocolo := CurDrive()+":\"+CurDir()+"\"+cDirXMLProtocolado+NFECAB->Chvnfe+".xml"
      If File(cFileXmlProtocolo) 
         CriaPdfDanfeAutorizado( cFileXmlProtocolo, NFECAB->Chvnfe )
       cFilePdf:=CurDrive()+":\"+CurDir()+"\"+cDirPDFNFe+NFECAB->Chvnfe+".pdf"
          Run( "Start " + cDestino + carq )
     Else 
        If MsgNoYes( " Nota não enviada para a SEFA. Você deseja fazer uma Pré-Visualização ?","Atenção") 
          cFileAssinado:=CurDrive()+":\"+CurDir()+"\"+cDirXMLAssinado+NFECAB->Chvnfe+".xml"
          CriaPdfAssinado( cFileAssinado, NFECAB->Chvnfe )
          cFilePdf:=cDirPDFTrb+NFECAB->Chvnfe+".pdf"
          Run( "Start " + cFilePdf )
//           impdanfe()
         Endif        
     Endif
 Else
   cDestino := CurDrive()+":\"+CurDir()+cDirPDFNFe
     Run( "Start " + cDestino + carq )
 Endif
RETURN .T.
**
Function CriaPdfDanfeAutorizado( cFileXmlProtocolo, cChaveNFe )
LOCAL OrigDadosEmissor := "", quadroRecibo := "I", quadroFatura := "S", quadroISSQN := "S", DPEC := "", separadorItem := "T"
LOCAL gravaPDF := "[ARQUIVO="+Alltrim(cChaveNFe)+".PDF"+"][PASTA="+CurDrive()+":\"+CurDir()+"\"+cDirPDFNFeFlex+"]", nResultado:=0, msgResultado := ""
local cFileXmlProtocolo2
local objNFeUtilPDF

objNFeUtilPDF := CreateObject("NFe_Util_2G.util")

If File( CurDrive()+":\"+CurDir()+"\BMP\LogoNFE.jpg" )
    OrigDadosEmissor := CurDrive()+":\"+CurDir()+"\BMP\LogoNFE.jpg"
Endif

cFileXmlProtocolo2:=MemoRead(cFileXmlProtocolo)

nResultado := objNFeUtilPDF:geraPdfDANFE(cFileXmlProtocolo2, OrigDadosEmissor, quadroRecibo, quadroFatura, quadroISSQN, DPEC, separadorItem, gravaPDF, msgResultado)

If nresultado < 7902 
    MsgAlert(msgResultado,"Informação")
Else
    MsgAlert("Processo de geração do PDF falhou..."+CRLF+msgResultado,"Atenção")
End If

Return(Nil)

**                                                                        
Function CriaPdfAssinado( cFileXmlProtocolo, cChaveNFe )
LOCAL OrigDadosEmissor := "", quadroRecibo := "I", quadroFatura := "S", quadroISSQN := "S", DPEC := "", separadorItem := "T"
LOCAL gravaPDF := "[ARQUIVO="+Alltrim(cChaveNFe)+".PDF"+"][PASTA="+cDirPDFTrbFlex+"]", cResultado:=0, msgResultado := ""
local cFileXmlProtocolo2
objNFeUtil := CreateObject("NFe_Util_2G.util")

If File( CurDrive()+":\"+CurDir()+"\BMP\LogoNFE.jpg" )
    OrigDadosEmissor := CurDrive()+":\"+CurDir()+"\BMP\LogoNFE.jpg"
Endif

cFileXmlProtocolo2:=MemoRead(cFileXmlProtocolo)
cResultado := objNFeUtil:geraPdfDANFE(cFileXmlProtocolo2, OrigDadosEmissor, quadroRecibo, quadroFatura, quadroISSQN, DPEC, separadorItem, gravaPDF, msgResultado)
Return(Nil)
 

[kapiaba]

Bom dia Sisco, rapaz, eu nunca vi essa função na minha vida. Isso é para imprimir o DANFE, ou para gerar um .PDF da NFE?

e o que é isso?

 Run( "Start " + cFilePdf )

Se for para imprimir o DANFE, veja a classe do Gilmer, DANFE.PRG é essa que usamos para imprimir a NFE e para gerar o .PDF, é outro modo que se precisar, eu procuro aqui no HD e posto para você.

abs.

Regards, saludos.

[SISCO]

Run( "Start " + cFilePdf )

exibe o pdf na tela

Já tenho essa classe DANF.PRG vou dar uma olhada nela.

Mesmo assim obrigado.