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

[JoséQuintas]

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

[JoséQuintas]

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

[JoséQuintas]

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.

[JoséQuintas]

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.

[JoséQuintas]

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.

[JoséQuintas]

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.