Clipper On Line • Ver Tópico - Como Fechar o word apos impressão ??

Como Fechar o word apos impressão ??

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Como Fechar o word apos impressão ??

Mensagempor carlos moc » 02 Nov 2018 11:15

** Desde já obrigado pela atenção e colaboração **

Não estou conseguindo finalizar o word após a impressão de documentos,aparece a seguinte mensagem :

Error description: Error BASE/1004 Class: 'NIL' has no exported method: INVOKE
Args:
[ 1] = C Close

Stack Calls
===========
Called from INVOKE(0)
Called from TWORD:END(249)
Called from FICHAMODELO17(685)

//----------------------------------------------------------------------------------//
oWord := TWord():New() // inicia o objeto OLE Word
//TRY
if oWord:IsVisible()
oWord:Hide()
endif
oWord:OpenDoc( cArqDoc ) // abre o documento modelo
for xx := 1 to len( aCampos )
oWord:Replace( '['+aCampos[xx,1]+']' , aCampos[xx,2] )
next


if aRadio[1] = 1
oWord:preview() // visualiza o documento
else
oWord:PrintDoc(.f.) // imprime o documento
oWord:end()
endif
//oWord:Visualizar() // visualiza o documento

oWord:CloseDoc( cArqDoc )
oWord:end()
carlos moc
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 68
Data de registro: 16 Out 2017 15:00
Cidade/Estado: Montes Claros MG - Zap (38)99831-5319
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Como Fechar o word apos impressão ??

Mensagempor fladimir » 02 Nov 2018 12:12

Percebi q esta usando uma classe, não conheço essa classe q usa, mas talvez o erro não esteja em fechar propriamente e sim no método END

Experimenta trocar a linha

oWord:End()


por

oWord := NIL


Digo isso sem analisar a classe baseado no erro retornado, pq vi q antes de chamar o método END() o colega já chamou o método pra fechar o documento, então talvez a sugestão acima resolva.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Como Fechar o word apos impressão ??

Mensagempor alxsts » 03 Nov 2018 01:38

Olá!

Esta classe é do FiveWin. Remova a linha destacada abaixo e veja se funciona. Este método End deve ser o destrutor da classe. Está finalizando duas vezes e na segunda vez a variável que continha a instância já deve estar com o valor NIL.

if aRadio[1] = 1
   oWord:preview() // visualiza o documento
else
   oWord:PrintDoc(.f.) // imprime o documento
   // oWord:end() ============================> Remover esta linha
endif
//oWord:Visualizar() // visualiza o documento

oWord:CloseDoc( cArqDoc )
oWord:end()
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Como Fechar o word apos impressão ??

Mensagempor fladimir » 03 Nov 2018 02:48

Bem observado Alexandre, provavelmente esta encerrando antes e ao tentar depois ocorre o erro.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro