SISCO

Run( "Start " + cFilePdf ) exibe o pdf na tela Já tenho essa classe DANF.PRG vou dar uma olhada nela. Mesmo assim obrigado.

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)

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.

Obrigado Kapi Mas era o xml que gerei que estava com problema.

Boa noite a todos esse erro: Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20190307) FiveWin version: FWH 19.05 C compiler version: Borland/Embarcadero C++ 7.4 (32-bit) Windows version: 6.2, Build 9200 Time from start: 0 hours 3 mins 48 secs Error occurred at: 15/01/2024, 20:09:42 Error description: Error BASE/1004 Class: 'NIL' has no exported method: OCHILD pelo que vi se refere a essa linha Method ImportXml() Class TVoImpDanFe Local oxmlNode := ::oXmlDoc:oRoot:oChild,nPos,cAtributos:="" ::aFieldsValue:={} ::cChaveAcesso:="" ::lXmlAssinado:=.f. Estava normal e hoje que deu esse erro Alguém já viu

Estou testando essa https://www.hoptodesk.com/pt dica do Luiz Fernando está funcionando bem

Obrigado vou testar esses

O Anyndesk vai passar a ser pago, já me deram um prazo até dia 20. Estou fazendo um levantamento de um aplicativo que seja viável em custo e benefício. Se alguém souber me avisa

Consegui pela DLL Function Generar_QR(cStr AS STRING ,cFile AS STRING ) AS LONG PASCAL FROM "FastQRCode" LIB ".\QRCodelib.dll" Funcionou normal. Obrigado a todos

já está importando HBZEBRA.LIB eu acho que está faltando CODEBAR.CH

Application =========== Path and name: C:\Sistemas\MySISCCO\MySISCCO.EXE (32 bits) Size: 8,709,120 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20190307) FiveWin version: FWH 19.05 C compiler version: Borland/Embarcadero C++ 7.4 (32-bit) Windows version: 6.2, Build 9200 Time from start: 0 hours 0 mins 9 secs Error occurred at: 16/02/2023, 15:07:21 Error description: Error BASE/1003 Vari vel nÆo existe: DEFAULT_CODEBAR

Valeu Kapi Esses links tem um vasto material de QRCode. Fiz uns testes e gerou normalmente, mas não ficou como eu queria. Utilizo o XDevStudio 0.70 e ele está reclamando do codebar.ch e não estou conseguindo encontrar ele. Se poder me ajudar ficarei grato.

Bom dia a todos Onde encontro CODBAR.CH ? Estou com a versão 16.2 do fivewin.

Obrigado Kap pela resposta Eu já tinha atualizado, mas acabei encontrando isso no forum Compatibilizar com xHarbour: Basicamente basta ajustar o Metodo: Draw_Zebra Method Draw_Zebra( ... ) // Harbour Method Draw_Zebra( x, y, w, z ) // xHarbou

Olá Everton Conseguiu resolver esse erro? Utilizo o xDev e não estou conseguindo compilar, as libes já estão instaladas e importei também pro xdev. Não consegui enviar o erro, o upload não funcionou