PC Toledo

Enviado: **07 Mar 2025 16:09**

https://www.youtube.com/watch?v=S6qSe8tsbGc

É somente o primeiro teste.
Ainda sobrou o gráfico de envio pra internet no final, que ficou na GTWVG.

GTWVG, multithread, dialog FIVEWIN, HWGUI existe mas não entra.
Quem atualiza a dialog FIVEWIN é o módulo GTWVG.

Os testes estão nesse modo salada.

Nem sei se seria tópico GTWVG, tópico FIVEWIN, tópico SQL, ou tópico base de dados.... kkkk

Enviado: **07 Mar 2025 16:13**

Tem coisa errada.
Não era pro aplicativo fechar.

Enviado: **07 Mar 2025 16:36**

Cheguei numa situação curiosa.

Código: Selecionar todos

      IF ! MsgYesNo( "Confirma envio pra ftp" )
         oDialog:End()
         RETURN Nil
      ENDIF
   Cls()
   FOR nCont = 1 TO 5
      IF Inkey(1) == K_ESC
         EXIT
      ENDIF
   NEXT
   IF LastKey() != K_ESC
      SayScroll( "O envio de backup pra JPA será enviado em background" )
      RunModule( "pUtilBackupEnvia", "ENVIO DE BACKUP", .F. )
   ENDIF
   oDialog:End()

   RETURN Nil

Se eu bloquear oDialog:End(), a dialog fica na tela, tem que fechar no gerenciador de tarefas.
Se eu executar oDialog:End(), fecha o aplicativo inteiro com erro, dizendo que oDialog não existe.

Só consigo imaginar uma coisa: Multithread, Um Inkey(2) talvez.

Talvez fechar a thread atual encerre a thread que ela abriu, e tudo da dialog se foi, menos a imagem na tela.

Enviado: **07 Mar 2025 16:57**

Código: Selecionar todos

         MsgExclamation( "ValType" + ValType( oDialog ) )
         oDialog:End()
         MsgExclamation( "ValType" + ValType( oDialog ) )
         Inkey(5)
         RETURN Nil

Por enquanto ferrou.
Na primeira mensagem retorna "O", oDialog é objeto
Mas oDialog:End() causa erro e causa recursividade.

Enviado: **07 Mar 2025 17:36**

Deixando o fivewin doidinho kkkkkk

SYSTEM ERROR
Error BASE/1066 Argument error: conditional
Called from TXBRWCOLUMN:VALUE(13746)
Called from TXBRWCOLUMN:PAINTCELL(15134)
Called from TXBRWCOLUMN:PAINTDATA(14900)
Called from TXBROWSE:PAINT(2547)
Called from TXBROWSE:DISPLAY(2224)
Called from TCONTROL:HANDLEEVENT(0)
Called from TXBROWSE:HANDLEEVENT(12565)
Called from _FWH(0)
Called from DIALOGBOXINDIRECT(0)
Called from TDIALOG:ACTIVATE(0)
Called from DLGTEXTMSGCLASS:EXECUTE(121)
Called from SHOWTEXTMETER(37)
Called from (b)CREATEZIP(42)
(1) = Tipo: A Valor: {0, 2008974880}

Não, não tem erro aí.
É outro erro, que matou tudo, e o array do xbrowse se foi.
É falta de variável, igual qualquer coisa em harbour + multithread, que pode causar isso.

Enviado: **07 Mar 2025 18:43**

Problema resolvido, variável errada.

Só comentário extra:
A janela GTWVG vai ficar invisível.
Por enquanto, como foi um teste aleatório, não me preocupei com isso.

PC Toledo

BACKUP SQL (Sei lá que tópico colocar)

BACKUP SQL (Sei lá que tópico colocar)

BACKUP SQL (Sei lá que tópico colocar)

BACKUP SQL (Sei lá que tópico colocar)

BACKUP SQL (Sei lá que tópico colocar)

BACKUP SQL (Sei lá que tópico colocar)

BACKUP SQL (Sei lá que tópico colocar)