SAOliveira

A SqlLib roda perfeito.
Alias o Vailton bem que podia reativar a SqlLib, e implementar o postgres.

local oWnd, oActiveX
local cEvents := ""
local oMapa, mde_uf, mpara_uf, mde_cid, mpara_cid, mde_rua, mpara_rua
mpara_uf := "SP" // uf
mpara_cid := "SAO PAULO"//cidade
mpara_rua := "RUA ROCHA"//rua
mpara_uf := alltrim( mpara_uf )
mpara_cid := alltrim( mpara_cid )
mpara_rua := alltrim( mpara_rua )
msearch := mpara_rua + " " + mpara_cid + " " + mpara_uf
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"
oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )
oWnd:oClient = oActiveX // To fill the entire window surface
oActiveX:Navigate( "https://www.google.com.br/maps/place/" + msearch )
ACTIVATE WINDOW oWnd MAXIMIZED
return nil

Pra não perder a piada..
Para nuvem acho melhor Guarda-Chuva

Pra não perder a piada..
Para nuvem acho melhor Guarda-Chuva

Uso a do Vagner com algumas adaptações para mim.
O resultado é o mesmo, e bem resumida a função.

**------------------------------------------------------------------------------**
** Finalidade : Setar a transparencia em dialogs
** Parametros : 1 = Dialog origem
** 2 = Fator da transparencia de 0 at-e 255
** Original : Vagner
** Alterado : SAOliveira
**------------------------------------------------------------------------------**
#include "Fivewin.ch"
**------------------------------------------------------------------------------**
FUNCTION PCS_SetTransparencia(tDlg)
**------------------------------------------------------------------------------**
SETWINDOWLONG( &(tDlg):hWnd, -20,NOR( GETWINDOWLONG( &(tDlg):hWnd,-20 ), 524288 ) )
SETLAYEREDWINDOWATTRIBUTES( &(tDlg):hWnd, , 255, 2 )
RETURN(NIL)
**------------------------------------------------------------------------------**
FUNCTION PCS_Transparencia(tDlg)
**------------------------------------------------------------------------------**
SETLAYEREDWINDOWATTRIBUTES( &(tDlg):hWnd, , 155, 2 )
SysRefresh()
RETURN(NIL)
**------------------------------------------------------------------------------**
FUNCTION PCS_VTransparencia(tDlg)
**------------------------------------------------------------------------------**
SETLAYEREDWINDOWATTRIBUTES( &(tDlg):hWnd, , 255, 2 )
SysRefresh()
RETURN(NIL)
DLL32 FUNCTION SetLayeredWindowAttributes( hWnd As LONG, crKey As LONG,;
bAlpha As LONG, dwFlags As LONG ) AS LONG PASCAL ;
FROM "SetLayeredWindowAttributes" lib "user32.DLL"

pra não perder a piada.
Que trocadalho do carilho que dá o nome deste Alias

pra não perder a piada.
Que trocadalho do carilho que dá o nome deste Alias

Para uma maquina Windows, acessar dados em um Servido LINUX, é preciso estar com o samba rodando e startado pelo smb.conf
Tipo assim, uma rede de maquinas Windows devem estar no mesmo grupo de trabalho para que o desempenho seja satisfatório.
O samba ativo e rodando, o servidor Linux será visto na rede Windows.
Alguns parâmetros devem ser analisados e colocados em pratica no LINUX.
Se tudo estiver correto, a rede Linux/Windows é imbatível.
Outra coisa, apesar de Linux Desck poder ativar o Samba, isto nunca é aconselhável , recomenda-se instalar Linux SERVER,
pelo mesmo princípio que se usa Windows Server.

Se fosse só você ...

Se fosse só você ...

Será que li errado no primeiro post ?
"Encontro de programadores Fivewin"

Veja na pasta include do xHarbour, inkey.ch

oBrw:aCols[1]:bPaintText :={|oCol,hDC,cText,aCoord| PCS_MudaTextoXbrw( oCol, hDC, cText, aCoord, oPub:fNorm12, oPub:CorGet,oPub:CorGetW ) }
**-------------------------------------------------------------------------**
FUNCTION PCS_MudaTextoXbrw( oCol, hDC, cText, aCoord, oFonte,oCor1,oCor2 )
**-------------------------------------------------------------------------**
LOCAL nTop:=aCoord[ 1 ], nLeft := aCoord[ 2 ]
LOCAL nBottom:=aCoord[ 3 ], nRight := aCoord[ 4 ]
LOCAL nRow:= nTop
LOCAL cLine,nFontHt, nAt
LOCAL hBrush:=CreateSolidBrush( oPub:CorBege )
nAt:=AT(CRLF,cText )
IF(nAt>0)
cLine:=Left( cText, nAt - 1 )
SetTextColor( hDC, oCor1 )
nFontHt:=GetTextHeight( oCol:oBrw:hWnd, hDC )
DrawTextEx( hDC, cLine, { nRow, nLeft, nRow + nFontHt + 4, nRight }, oCol:nDataStyle )
nRow +=nFontHt + 4 //default 4
cLine:=SubStr( cText, nAt + 2 )
ELSE
cLine:=cText
ENDIF
DeleteObject( hBrush )
oFonte:Activate( hDC )
SetTextColor( hDC, oCor2 )
DrawTextEx( hDC, cLine, { nRow, nLeft, nBottom, nRight }, oCol:nDataStyle )
oFonte:DeActivate( hDC )
RETURN(NIL)

cStr:="conteúdo do_qrcode"
cFile:="c:\arq.bmp"
QRcode(cStr,cFile)
**----------------------------------------------------------**
FUNCTION QRcode(cStr,cFile)
**----------------------------------------------------------**
#Define DC_CALL_STD 0x0020
LOCAL qrDLL
Generar_QR(cStr,cFile)
RETURN(NIL)
A dll do link, devera ficar na pasta do sistema.
www.oho.com.br/fw/qr.zip

Só mais uma forma, apesar de ser da época com clipper DOS.
 
FUNCTION PCS_Trunca(valor,decimal)
LOCAL nVal:=Val(Str(Int(Valor))+"."+Subs(AllTrim(Str(Valor-Int(valor))),3,decimal))
RETURN(nVal)

Para atualizar o Browse, você pode dar um oBrw:Refresh(), que vai atualizar só ele, e não a dialog toda com oDlgCrediario:Update() .

Só não esqueça de manter seus XML do BD atualizados, para evitar furos.