alogo extrano no dbunlock()

[tonyx]

executo a rotina no meu computador e incuo varia vezes sem erro
quando coloco na rede ele para no dbunlock()
utilizo ntx

function ftravar()
dbrlock()
return(.t.)
return(nil)

function destrava()
dbcommit()
dbunlock()
return(.t.)
return(nil)
========== desconeco o do porque uso no unidade F ele para ---
== so tem 1 (um) usuario usando sera que eo do NTX ?

[tonyx]

mais um simples detalhe rotina e gravar e listar o protocolo para o word
ele faz isso na 1. vez
mas na segunda vez ele trava no dbcommit()
** realizei sem mandar para o word e vai traquilo quantas vezes **

1- grava
2- lista p/ word
--- no micro C faz legal mas quando e rede F para ?
no clip 53 faz beleza

[alaminojunior]

O correto e mais seguro seria testar se a trava aconteceu de fato.

Código: Selecionar todos

function ftravar() 
vezes:= 0
do while vezes <= 10
    rlock()
    if neterr()
       vezes++
       loop
    else
       return(.t.) 
    endif
enddo
return(.f.) 

[tonyx]

ACHEI A FALHA ESTA NO COMANDO
COMANDO = "START "+ARQ_DOC
RUN &COMANDO
= O ESTRANHO E QUE SO ACONTECE NO XHARBOUR NO CLIP 53 TA OK

MANDO 1. VEZ LISTA NA 2. VEZ O DBCOMMIT PARA NA GRAVACAO
SE TIRAR O COMANDO DE LISTAGEM --- VAI TRANQUILO

EXISTE ALGUMA OBSERVACAO EM USAR O -
RUN NO XHARBOUR

[alaminojunior]

Sinceridosamente... Não entendi.

[ederxc]

ACHEI A FALHA ESTA NO COMANDO
COMANDO = "START "+ARQ_DOC
RUN &COMANDO
= O ESTRANHO E QUE SO ACONTECE NO XHARBOUR NO CLIP 53 TA OK

MANDO 1. VEZ LISTA NA 2. VEZ O DBCOMMIT PARA NA GRAVACAO
SE TIRAR O COMANDO DE LISTAGEM --- VAI TRANQUILO

EXISTE ALGUMA OBSERVACAO EM USAR O -
RUN NO XHARBOUR

Nem eu , explica detalhadamente , passo a passo ...

[rochinha]

Amiguinho

Voce esta usando uma ferrari para fazer o serviço de um fusquinha, quando executa o comando START para um arquivo .DOC.

Tente direcionar seu comando para abrir o WordPad ou até mesmo o Notepad.

A cada vez que voce executa um comando RUN para executar o Word ele deixa seu rasto em evidencia, basta voce olhar no Gerenciador de Tarefas e vera que vários processos Winword estarão ativos e por algum motivo eles ficam atrapalhando depois.

[sygecom]

Abrindo o Word:
https://pctoledo.org/forum/viewtopic.php?t=6760

[Luciano Bonfim]

Caro Leonardo,

testei sua rotina para abrir arquivo .doc e deu um erro: "document/9 item"

estou usando vista ultimate e office 2003

Muito Obrigado

[sygecom]

qual versão do xharbour esta usando alguma GUI ? post como esta usando !!!

[tonyx]

deu certo IMPRIMIU SOZINHO E DIRETO NA LASER QUE E PADRAO

1- troquei o MSGRUN E O MSGSTOP POR @ lincol sau msg
2- coloquei * (asteristico na linha do temp.doc )

duvida e ele nao deveria abrir o word e exibir ficar la ( so sair ao F4)

---------------
em questao a minha outra questao do
RUN START ARQUIVO
O INTERESANTE QUE SE PERDE AS CHAVES INDEXADORAS DOS
ARQUIVOS EM REDE ISTO E NA UNIDADE F:
MAS QUANDO EXECUTO NA C: AS CHAVES PERMANECEM
--------- NAO ENTENDI NADA ----

MAS VALEU PELA DICA DA FUNCAO DO WORD

PERGUNTA
NO CASO A DICA SERVIRIA RETIRAR A IDEIA DE USAR O
DOSPRINTER.EXE E TAL USB ..

[Luciano Bonfim]

Estou usando a 0.99.71 com gtwvw

tirei os comandos da hwgui. este ted.doc é um arquivo word de 1 página

Código: Selecionar todos

abre_word("ted.doc")



*************************
PROCEDURE Abre_word(cARQ)
*************************
LOCAL oWord,oText
PRIVATE oDlgHabla:=NIL
//MsgRun("Aguarde Gerando Documento de Word...")

//RenameFile( cARQ, "TEMP.DOC" )
cARQ="ted.doc"

TRY
   oWord := GetActiveObject(  "Word.Application" )
CATCH
   TRY
      oWord := CreateObject( "Word.Application" )
   CATCH
      //MsgStop("Não foi Possivel Achar o Word Instalado","Aviso do Sistema")
      IF oDlgHabla#NIL
        oDlgHabla:CLOSE()
      ENDIF
      RETURN
   END
END

IF !FILE(cARQ)
   //MsgStop("Não Foi Localizar e Abrir o Documento de Word")
   IF oDlgHabla#NIL
     oDlgHabla:CLOSE()
   ENDIF
   RETURN
ENDIF
oWord:Documents:Open(cARQ)  //ABRE O WORD

oWord:Visible := .T. //PARA VISUALIZAR OU NÃO ANTES
oWord:WindowState := 1
oWord:PrintOut()   //PARA IMPRIMIR DIRETO

IF oDlgHabla#NIL
  oDlgHabla:CLOSE()
ENDIF
RETURN

[tonyx]

caso nao querendo enteromper .. aqui ta legal so as duvidas a cima
================

1- caso o amigo possa POR TAL FUNCAO EM CLIP 53 pois seria o maximo para o clippeiros

2-- no caso no clip 53 da erro no -
TRY
CATCH,

CREATEOBJ
GETACTIVE

[sygecom]

deu certo IMPRIMIU SOZINHO E DIRETO NA LASER QUE E PADRAO

o que faz imprimir direto é a linha oWord:PrintOut()

duvida e ele nao deveria abrir o word e exibir ficar la ( so sair ao F4)

Se vc deixar oWord:Visible := .T. e não mandar imprimir direto...ele fica lá esperando, mas não bloqueia o sistema que chamou ele.

---------------
em questao a minha outra questao do
RUN START ARQUIVO
O INTERESANTE QUE SE PERDE AS CHAVES INDEXADORAS DOS
ARQUIVOS EM REDE ISTO E NA UNIDADE F:
MAS QUANDO EXECUTO NA C: AS CHAVES PERMANECEM
--------- NAO ENTENDI NADA ----

Tmb. não entendi pq esta se perdendo...post a função inteira e dentro de [ CODE ]

PERGUNTA
NO CASO A DICA SERVIRIA RETIRAR A IDEIA DE USAR O
DOSPRINTER.EXE E TAL USB ..

Pode ser tmb. mas para impressão direta no xharbour em qualquer impressora pode usar a classe win32prn.

Abraços
Leonardo Machado

[sygecom]

Estou usando a 0.99.71 com gtwvw

tirei os comandos da hwgui. este ted.doc é um arquivo word de 1 página

Tente conforme esta abaixo:

Código: Selecionar todos

abre_word("ted.doc")

*************************
PROCEDURE Abre_word(cARQ)
*************************
LOCAL oWord,oText

RenameFile( cARQ, "TEMP.DOC" )
cARQ="TEMP.DOC"

TRY
   oWord := GetActiveObject(  "Word.Application" )
CATCH
   TRY
      oWord := CreateObject( "Word.Application" )
   CATCH
      //MsgStop("Não foi Possivel Achar o Word Instalado","Aviso do Sistema")
      RETURN
   END
END

IF !FILE(cARQ)
   RETURN
ENDIF
oWord:Documents:Open(cARQ)  //ABRE O WORD
oWord:Visible := .T. //PARA VISUALIZAR OU NÃO ANTES
oWord:WindowState := 1  // pagina que deve iniciar
oWord:PrintOut()   //PARA IMPRIMIR DIRETO
RETURN 

Abraços
Leonardo Machado