O que falta no browse?

[JoséQuintas]

O erro é este:

SYSTEM ERROR
Error BASE/1100 Argument error: TRIM
Called from RTRIM(0)
Called from TDIALOG:NEW(0)
Called from BROWSE(0)
Called from CMDBROWSE(1727)
Called from PUTILDBASE(70)
Called from DO(0)
Called from DOPRG(171)
Called from (b)RUNMODULE(113)
(1) = Tipo: N Valor: 2

exemplo do fivewin

Código: Selecionar todos

#include "FiveWin.ch"

function Main()

   USE Customer

   Browse()

   USE

return nil
[/quote]

parte do fonte é esta:
[code]
STATIC FUNCTION cmdBrowse()

   IF ! Used()
      SayScroll( "No file in use" )
      RETURN Nil
   ENDIF
   MsgExclamation( "Do not change in browse mode" )
   wSave()
   Mensagem( "Select and ENTER, ESC abort, to change record exit and use EDIT" )
   //Browse( 2, 0, MaxRow() - 3, MaxCol() )
   Browse()
   wRestore()
   RecUnlock()

   RETURN Nil

Mas acho que já sei.... só fazer igual... vou testar.

[JoséQuintas]

Uia, deu certo.

Código: Selecionar todos

STATIC FUNCTION cmdBrowse()

   IF ! Used()
      SayScroll( "No file in use" )
      RETURN Nil
   ENDIF
   MsgExclamation( "Do not change in browse mode" )
   wSave()
   Mensagem( "Select and ENTER, ESC abort, to change record exit and use EDIT" )
   //Browse( 2, 0, MaxRow() - 3, MaxCol() )
   BrowseFivewin()
   wRestore()
   RecUnlock()

   RETURN Nil

E no final do fonte:

Código: Selecionar todos

STATIC FUNCTION BrowseFivewin()

#include "fivewin.ch"

   Browse()

   RETURN Nil

o #include "fivewin" antes do browse.

Agora só falta ajustar o tamanho da janela. mas sei lá onde se faz isso.
A rotina completa do fivewin é esta:

Código: Selecionar todos

Browse()

Aonde se ajusta o tamanho nisso....
Não tem init, onload, nem nada...
Estou sendo obrigado a alterar, porque o browse do harbour também é Browse(), e entra o do fivewin.
Faz muito tempo que não fazia uso do meu "dbase" embutido.

[JoséQuintas]

Lembrei que várias coisas do fivewin tem fonte.
Só alterar o fonte do browse, inclusive pra português-Brasil.

[Kapiaba]

Use XBROWSE() é mais moderno.

Abs.

Regards, saludos.

[JoséQuintas]

Concordo e discordo ao mesmo tempo.
Só vai ser mais moderno se usar os recursos que ele tem.
Aqui inicialmente é só pra "tapar buraco", pra substituir o anterior que não tem mais.

Até ia mexer no fonte desse browse, mas ele trabalha com linha/coluna, vou deixar como está por um bom tempo.

A propósito... é justamente naquela rotina que você queria (não queria).... igual FOXPRO.
Fui usar nestes dias, e o browse estava sem funcionar mais, porque está chamando do fivewin.

[Kapiaba]

A parte que eu queria continuar usando o FOX-BASE como editor de *.DBF, foi resolvido com o:

Código: Selecionar todos

 26/08/2015  13:48           427.520 xdbx.exe

de 32 bits.

Funciona muito bem no windows de 64 bits. -> For Windows eu tenho um "monte".

Valeu.

Regards, saludos.

[rochinha]

Amiguinhos,

26/08/2015 13:48 427.520 xdbx.exe

kapiaba, manda preu poh.

[Kapiaba]

Tá na mão meu rei:

https://mega.nz/file/0QEiBLwC#JemeDpLMC ... 6-XOz6qElo

Regards, saludos.