I am using fwh 26.03 as normal use.
gtwvg + fivewin + hwgui + multithread + my own ado wrapper class
harbour 3.2 from github with no extras, compiled here mingw 15.2
No problem with my current use.
Search found 105 matches
- Sat Apr 04, 2026 9:19 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: FWH 26.03 betatesters wanted
- Replies: 76
- Views: 104942
Re: FWH 26.03 betatesters wanted
- Mon Mar 30, 2026 9:17 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: How to optimize xbrowse (on incremental search)
- Replies: 2
- Views: 1083
Re: How to optimize xbrowse (on incremental search)
Many thanks.
Code: Select all | Expand
IF NextKey() == 0 .OR. NextKey() == K_ENTER
oBrowse:Refresh()
ENDIF
- Mon Mar 30, 2026 1:44 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: How to optimize xbrowse (on incremental search)
- Replies: 2
- Views: 1083
How to optimize xbrowse (on incremental search)
On an incremental search
CASE IsRange( nKey, 32, 127 ) .AND. cFilterKey != NIL .AND. cnSQL:RecordCount() != 0
IF Chr( nKey ) $ ['/*]
nKey := 32
ENDIF
cFilter += Upper( Chr( nKey ) )
IF ! ADOFilter( cnSQL, cFilterKey, cFilter, aADOFilterList, nADOFilterPos )
cFilter := Left( cFilter, Len ...
CASE IsRange( nKey, 32, 127 ) .AND. cFilterKey != NIL .AND. cnSQL:RecordCount() != 0
IF Chr( nKey ) $ ['/*]
nKey := 32
ENDIF
cFilter += Upper( Chr( nKey ) )
IF ! ADOFilter( cnSQL, cFilterKey, cFilter, aADOFilterList, nADOFilterPos )
cFilter := Left( cFilter, Len ...
- Wed Mar 11, 2026 5:58 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Suggestion for "progress" window
- Replies: 1
- Views: 626
Suggestion for "progress" window
https://i.postimg.cc/sxpF4CrN/telanfe.png
On gtwvg I was using these 2 windows as a unique window.
The console on image was part of the normal window with a scroll.
They are pending mails with total by cnpj (Brazil company identify)
When an item have zero, it is removed from list.
This is ...
On gtwvg I was using these 2 windows as a unique window.
The console on image was part of the normal window with a scroll.
They are pending mails with total by cnpj (Brazil company identify)
When an item have zero, it is removed from list.
This is ...
- Fri Jan 30, 2026 8:50 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: URLEncoder
- Replies: 5
- Views: 686
Re: URLEncoder
Quizás necesites realizar algunas pruebas.
codepage de origen y destino, quizás utf-8 antes de llamar directamente.
Quizás IA muestre algo más práctico.
Los webservices son creados por programadores, no sabemos sí todos siguen estrictamente el estándar.
- Fri Jan 30, 2026 3:16 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: URLEncoder
- Replies: 5
- Views: 686
Re: URLEncoder
No se hace esto ya automaticamente ?
- Thu Jan 29, 2026 1:57 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: close a lost dialog thread
- Replies: 2
- Views: 913
Re: close a lost dialog thread
Thanks, I will use PostMessage().
I forgot about oDlg:bValid and :lCanClose used on it.
At momment create a property nThreadId on routine class, and change bValid codeblock
METHOD Execute()
...
::oDlg:bValid := { || ;
iif( GetKeyState( VK_ESCAPE ), ::lHitEsc := .T., Nil ), ;
iif( GetKeyState ...
I forgot about oDlg:bValid and :lCanClose used on it.
At momment create a property nThreadId on routine class, and change bValid codeblock
METHOD Execute()
...
::oDlg:bValid := { || ;
iif( GetKeyState( VK_ESCAPE ), ::lHitEsc := .T., Nil ), ;
iif( GetKeyState ...
- Wed Jan 28, 2026 1:33 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: close a lost dialog thread
- Replies: 2
- Views: 913
close a lost dialog thread
Not a normal use.
A GTWVG routine on one thread updates fivewin dialog on another thread, and closes at the end.
But when an error occurs, GTWVG routines closes, and no other routine can close the fivewin dialog.
At momment, I can think only on create another thread, using my old wrapper:
CREATE ...
A GTWVG routine on one thread updates fivewin dialog on another thread, and closes at the end.
But when an error occurs, GTWVG routines closes, and no other routine can close the fivewin dialog.
At momment, I can think only on create another thread, using my old wrapper:
CREATE ...
- Sat Jan 03, 2026 10:04 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: erro 300 con ado
- Replies: 5
- Views: 903
Re: erro 300 con ado
Yo uso ADO de forma diferente.
Code: Select all | Expand
oRs := Conexao:Execute( cSQL )
El valor de retorno difiere entre normal y terminal service, cuando esta vacio.
Uno devolve un registro sin campos, y el otro devuelve NIL, por lo tanto, no acepta oRs;RecordCount()
No sé si esto se aplica a FW_OpenRecordset()
- Sat Jan 03, 2026 9:49 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: erro 300 con ado
- Replies: 5
- Views: 903
Re: erro 300 con ado
Sugerencia:
cSQL := "SELECT tipo, sum(precio * cantidad) AS importe, sum(costo * cantidad) AS costo, "
cSQL += " sum(precio * cantidad * porc_iva) AS importei, sum(costo * cantidad*porc_iva) AS costoi"
cSQL += " FROM esp\detlici"
cSQL += " WHERE anulado <> 'S' and DATE( fecha ) BETWEEN ...
cSQL := "SELECT tipo, sum(precio * cantidad) AS importe, sum(costo * cantidad) AS costo, "
cSQL += " sum(precio * cantidad * porc_iva) AS importei, sum(costo * cantidad*porc_iva) AS costoi"
cSQL += " FROM esp\detlici"
cSQL += " WHERE anulado <> 'S' and DATE( fecha ) BETWEEN ...
- Tue Dec 16, 2025 7:12 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Confirmed asistants to HIX+AntiGravity webinar 🧙🏼♂️🪄
- Replies: 72
- Views: 10564
- Sat Sep 27, 2025 12:54 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Import XLS to MS SQL without Excel loaded on computer
- Replies: 7
- Views: 9012
Re: Import XLS to MS SQL without Excel loaded on computer
I write this a long time ago.
Initial convert to PRG source code.
This year change to json too.
Sometimes I need to open file using libreoffice and save on excel format.
/*
XLSTOPRG - Converte Excel para fonte PRG
José Quintas
Driver Microsoft 2016
https://www.microsoft.com/en-us/download ...
Initial convert to PRG source code.
This year change to json too.
Sometimes I need to open file using libreoffice and save on excel format.
/*
XLSTOPRG - Converte Excel para fonte PRG
José Quintas
Driver Microsoft 2016
https://www.microsoft.com/en-us/download ...
- Fri Sep 12, 2025 10:56 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: lDisColors on GET MEMO
- Replies: 1
- Views: 446
lDisColors on GET MEMO
To disable a get without change colors, I can use:
How to do the same on GET MEMO ?
Code: Select all | Expand
xControl:lDisColors := .F.
xControl:nClrTextDis := RGB2N(20,20,20)
- Wed Sep 10, 2025 11:38 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: JSON decode request
- Replies: 15
- Views: 3097
Re: JSON decode request
I create this function to show json content
Parameters are json decoded and a var name
result is a txt showing direct access
FUNCTION ShowJson( xHash, cTxtVariavel, cTxt, lPrimeiro )
LOCAL xItem
hb_Default( @cTxtVariavel, "Var" )
hb_Default( @cTxt, "" )
hb_Default( @lPrimeiro, .T. )
IF ...
Parameters are json decoded and a var name
result is a txt showing direct access
FUNCTION ShowJson( xHash, cTxtVariavel, cTxt, lPrimeiro )
LOCAL xItem
hb_Default( @cTxtVariavel, "Var" )
hb_Default( @cTxt, "" )
hb_Default( @lPrimeiro, .T. )
IF ...
- Wed Aug 13, 2025 10:41 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: fivewin 25.06.2 & mingw link problem
- Replies: 7
- Views: 1378
Re: fivewin 25.06.2 & mingw link problem
All ok now.
Thanks.
Thanks.