ar-siste Posted December 11, 2012 Report Share Posted December 11, 2012 Local cFile:="recibo.dot" oWord := TWord():New() If ( oWord:IsVisible() ) oWord:Hide() Endif TRY oWord:OpenDoc(cFile) oWord:Replace( "{bruto}", "120,00") oWord:Replace( "{desconto}", "0") oWord:Replace( "{liquido}", "120,00") oWord:Replace( "{recebi}", "Y YAMADA S/A") oWord:Replace( "{quantia1}", "CENTOS E VINTE REAISxxxxxxxxxxxxxxxxxxxxxxxxxxx") oWord:Replace( "{quantia2}", "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx") oWord:Replace( "{referente1}", "SERVIÇOS PRESTADOS") oWord:Replace( "{referente2}", "") oWord:Replace( "{referente3}", "") oWord:Replace( "{localidade}", BELÉM(PA), 12 de dezembro de 2012") oWord:Replace( "{empresa}", "AR SISTEMAS R/S") oWord:Replace( "{cnpj}", "99.999.999/0001-99") CATCH oError MsgStop("Erro ao Abrir Gerenciador de Textos.", "Recibo!") Return NIL End oWord:Preview() oWord:Printdoc(.F.) oWord:End() Pessoal este é meu trecho de código para usar a TWord, compilo e não dá nenhum erro, mas, no recibo não sai as informações declaradas, alguém saberia me dizer? Abs, Abraços Arlindo Reis SKYPE: arsistemas xHarbour 1.2.1 + FWH 12.09 + BCC582 + xEdit IBM + WorkShop + Dbf Cdx + xBuildW + MySql + SqlRdd Quote Link to comment Share on other sites More sharing options...
ar-siste Posted December 11, 2012 Author Report Share Posted December 11, 2012 Local cFile:="recibo.dot" oWord := TWord():New() If ( oWord:IsVisible() ) oWord:Hide() Endif TRY oWord:OpenDoc(cFile) oWord:Replace( "{bruto}", "120,00") oWord:Replace( "{desconto}", "0") oWord:Replace( "{liquido}", "120,00") oWord:Replace( "{recebi}", "Y YAMADA S/A") oWord:Replace( "{quantia1}", "CENTOS E VINTE REAISxxxxxxxxxxxxxxxxxxxxxxxxxxx") oWord:Replace( "{quantia2}", "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx") oWord:Replace( "{referente1}", "SERVIÇOS PRESTADOS") oWord:Replace( "{referente2}", "") oWord:Replace( "{referente3}", "") oWord:Replace( "{localidade}", BELÉM(PA), 12 de dezembro de 2012") oWord:Replace( "{empresa}", "AR SISTEMAS R/S") oWord:Replace( "{cnpj}", "99.999.999/0001-99") CATCH oError MsgStop("Erro ao Abrir Gerenciador de Textos.", "Recibo!") Return NIL End oWord:Preview() oWord:Printdoc(.F.) oWord:End() Pessoal este é meu trecho de código para usar a TWord, compilo e não dá nenhum erro, mas, no recibo não sai as informações declaradas, alguém saberia me dizer? Abs, Abraços Arlindo Reis SKYPE: arsistemas xHarbour 1.2.1 + FWH 12.09 + BCC582 + xEdit IBM + WorkShop + Dbf Cdx + xBuildW + MySql + SqlRdd Quote Link to comment Share on other sites More sharing options...
Theotokos Posted December 12, 2012 Report Share Posted December 12, 2012 Arlindo, eu utilizo assim: Function PrtWord( aCampos, cPOrigem, cPArqDoc, lTela, nPrtCopia ) Local oWord DEFAULT lTela := .F. DEFAULT nPrtCopia := 1 // Copia Modelo do Recibo *cOrigem := GetCurDir()+cPOrigem * cOrigem := SubStr(cPOrigem,2) cPathDoc := GetCurDir() cArqDoc := cPathDoc+cPArqDoc * If lIsDir( cPathDoc ) // Diretorio já Existe Else If lMkDir(cPathDoc) // Foi Criado o Diretório Else // Não foi possÃvel criar o Diretório End End COPY FILE (cOrigem) TO (cArqDoc) // Imprime Recibo oWord := TWord():New() If ( oWord:IsVisible() ) oWord:Hide() Endif oWord:OpenDoc( cArqDoc ) // Inicio for x=1 to len( aCampos ) oWord:Replace( '['+aCampos[x,1]+']' , aCampos[x,2] ) next // Fim If lTela oWord:Save( cArqDoc ) // ASSIM PARA VISUALIZAR *oWord:Visualizar() oWord:Preview() Else oWord:PrintDoc( .f., , , , , , , nPrtcopia) oWord:Save( cArqDoc ) oWord:Close() End Return(.T.) id=code>id=code>então qdo quero imprimir chamando a função e passo o vetor com os dados que precisa ser substituido { {"CAMPO1","DADOS1}, {"CAMPO2","DADOS2"},...}, o Arquivo .DOC Original, .DOC que será gerado, ...) Vê se te ajuda, qlq coisa dá um grito ai... Quote Link to comment Share on other sites More sharing options...
ar-siste Posted December 12, 2012 Author Report Share Posted December 12, 2012 Bom dia Rone Obrigado por responder Por favor faça um teste com meu exemplo. Pegue neste link: http://www.arsistemas.com.br/backup/rec.zip Abraços Arlindo Reis SKYPE: arsistemas xHarbour 1.2.1 + FWH 12.09 + BCC582 + xEdit IBM + WorkShop + Dbf Cdx + xBuildW + MySql + SqlRdd Quote Link to comment Share on other sites More sharing options...
ar-siste Posted December 12, 2012 Author Report Share Posted December 12, 2012 Rone Manda pro meu email sua classe talvez a minha seja antiga. arsistemas.ar@gail.com Abraços Arlindo Reis SKYPE: arsistemas xHarbour 1.2.1 + FWH 12.09 + BCC582 + xEdit IBM + WorkShop + Dbf Cdx + xBuildW + MySql + SqlRdd Quote Link to comment Share on other sites More sharing options...
ar-siste Posted December 12, 2012 Author Report Share Posted December 12, 2012 Alguém pode dar essa força ai? Abraços Arlindo Reis SKYPE: arsistemas xHarbour 1.2.1 + FWH 12.09 + BCC582 + xEdit IBM + WorkShop + Dbf Cdx + xBuildW + MySql + SqlRdd Quote Link to comment Share on other sites More sharing options...
Theotokos Posted December 12, 2012 Report Share Posted December 12, 2012 o problema esta nos replaces e o Word (.DOC) o seu: oWord:Replace( "{bruto}", "120,00") oWord:Replace( "{desconto}", "0") no word: <> <> CERTO É no word vc tem que ser igual no replace e/ou viceversa. oWord:Replace( "{bruto}", "120,00") oWord:Replace( "{desconto}", "0") {bruto} {desconto} Quote Link to comment Share on other sites More sharing options...
ar-siste Posted December 12, 2012 Author Report Share Posted December 12, 2012 Boa tarde Rone Resolveu é isso mesmo. Obrigado. Abraços Arlindo Reis SKYPE: arsistemas xHarbour 1.2.1 + FWH 12.09 + BCC582 + xEdit IBM + WorkShop + Dbf Cdx + xBuildW + MySql + SqlRdd 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.