FiveTech Software tech support forums

::oBrw:refresh(.T.)

Não seria o correto utilizar ::oQry:Requery()

ACTIVATE VALID()

OU

bValid

veja se isto resolve?

If GetHostByName( "bazevani.com.br" ) = "0.0.0.0"

É um exemplo de DesktopAlert, utilizando códigos de HTML. para executar utilize assim:

MsgFancy(Memvar->oDlg,"Acesso negado!!! <br/><br/> Não é permitido modificar lançamentos quando já baixado (Repassado).",nil, CLR_YELLOW,.T.,.F.)


coloque junto esta função...

#define LWA_ALPHA 2
#define GWL ...

nPathTemp
function MsgFancy(oWnd, cTexto, aPos, oCor, lAguarda, lTransparente)
local oDlg
local oBtnClose, aTexto
local oSay, lCenter
local oImage, oLbx
local lSaida:=.F., nCorFundoHTML := "#ffffcc" //azul claro

lCenter := aPos == NIL

//DEFAULT
oCor := nrgb(255,255,255)
DEFAULT aPos := {0 ...

I'm using xBrowse:

oLbx_List: lSeekBar: = .t.

When we start typing% the error below is shown:

FWH1709 + XHarbour

Tive problemas tambem, então troquei por este:

CursorWait()
cURL := "http://bazevani.com.br/asp/pesquisa.asp?tipo=L&serie=" + _Serie

oHttp := CreateObject("Microsoft.XMLHTTP")
oHttp:Open("GET",cURL,.F.)
lNetError:=.f.
TRY
oHttp:Send()
CATCH oError
lNetError := .T.
END TRY
cHtml ...

oGet:cTooltip := {"Sua mensagem","Titulo"}

Quando se utiliza %, não é necessário utilizar UPPER

Ronaldo

Antonio Linares, estou trabalhando com String SQL para fazer a leitura de arquivos DBF, veja se isto interessa para você?

Para consultas ficou muito rapido!


http://fox.wikis.com/wc.dll?Wiki~VFPOleDBProvider

à algum tempo necessitava utilizar String SQL em arquivos DBase (DBF), abaixo um exemplo:

txSql := "SELECT cod_imovel, cod_locat, Day(baixa_loca) As Dia "
txSql += "FROM rec2310 "
txSql += "HAVING Dia = 0 "
txSql += "GROUP BY cod_imovel, cod_locat, dia "
txSql += "ORDER BY cod_imovel, cod_locat ...

objeto:show()

existe tambem.

objeto:disable() / objeto:enable()

Ronaldo

I would like to implement the method cmline in TPrinter but want to do it in another prg

I did so, but gives error


winfunc.prg

CLASS TPrinter FROM TPrinter

METHOD CmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE
::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;
MoveTo( ::hDCOut ...

usrrdd.lib esta tambem...