SISCO Posted February 16 Report Share Posted February 16 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 17 Report Share Posted February 17 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 17 Report Share Posted February 17 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. Quote Link to comment Share on other sites More sharing options...
SISCO Posted February 17 Author Report Share Posted February 17 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) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 18 Report Share Posted February 18 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. Quote Link to comment Share on other sites More sharing options...
SISCO Posted February 18 Author Report Share Posted February 18 Run( "Start " + cFilePdf ) exibe o pdf na tela Já tenho essa classe DANF.PRG vou dar uma olhada nela. Mesmo assim obrigado. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.