Jmsilva

CLASS TExplorerBar FROM TControl METHOD AddPanel( cName, cBmpName, nTitleH, nRound, aGrad, oFnt,nClrT, nClrP ) ENDCLASS METHOD AddPanel( cName, cBmpName, nBodyHeight, nTitleH, nRound, aGrad, oFnt, nClrT, nClrP ) CLASS TExplorerBar O bug trata-se da definição dos parâmetros no method, definição 8 e no method 9, ou seja 3º parâmetro "nBodyHeight" que está faltante. Dá para conviver com o bug pacificamente, peço a gentileza de quem tem contato do Linhares, para correções futuras. JMSilva

Valeu era FLAT que estava faltando.....Obrigado

Alguém sabe como fazer?

Vc está usando o #include "fivewin.ch" ? Tem haver com ponto exclamação. #command ? [ <list,...> ] => WQout( [ \{ <list> \} ] ) O Ponto de exclamação eu uso para visualizar, pode mudar para: msginfo(oGetAtual:oGet:Name) //nome da variável msginfo(oGetAtual:oGet:Buffer) //conteúdo

Function MostraGet(oDlg) Local oGetAtual := oDlg:oCtlFocus //exibe nome da variável e seu conteúdo ? oGetAtual:oGet:Name,oGetAtual:oGet:Buffer Return nil Na linha não. Get atual ele pega do objeto janela, vc poderia verificar se foco está em um objeto get. Assim: Function MostraGet(oDlg) Local oGetAtual := oDlg:oCtlFocus //exibe nome da variável e seu conteúdo If Hb_IsObject(oGetAtual) .and. oGetAtual:ClassName() == "TGET" ? oGetAtual:oGet:Name,oGetAtual:oGet:Buffer Endif Return Nil Possível erro pode ser focu em outro objeto que não seja o objeto do TGET. ok

Obrigado, vc está certissimo, muito estranho. Gostei de saber a solução acima(não será necessária), pois quebrei a cabeça hj, mas a solução foi simples em relação a codificação, gastei uma horas a mais hj.

Por gentileza podem me ajudar ? htmp := Hash() htmp["001","A"] = 4 htmp["003","A"] = 21 htmp["004","A"] = 14 No exemplo acima preciso que a Key '003' passa a ser '002, e a '004' passe a ser '003' Obrigado !

WITH OBJECT oBrw:oCol(1) //1=COLUNA QUE VC DEFINE :AddBmpHandle(LoadBitmap(GetResources(),"BITMAP")) //OU :AddResource( "BITMAP" ) :nDataBmpAlign := AL_RIGHT :bBmpData := {|| IIF(ANOTABOL->(DBSEEK(ARQBOL->NUMERO)),1,0)} END

Sugestão: Vc pode chamar a rotina abaixo na sua func_valid e exibir num browse ou gravar em log(melhor), com isto vc poderia verificar de onde vem a segunda chamada. // The example implements a user defined function that collects call stack // information in an array. FUNCTION GetCallStack() LOCAL aStack := {} LOCAL nStack := 1 // Skip the GetCallStack() function in the result DO WHILE .NOT. Empty( ProcName(nStack) ) AAdd( aStack, { ProcFile(nStack), ProcName(nStack), ProcLine(nStack) }) nStack ++ ENDDO RETURN aStack este exemplo é proprio help do xHB

Parabéns pelo feito! Obrigado pela atenção!

Aproveitando o post do amigo sobre o assunto, vai uma pergunta ao @emotta Parece que vc obteve sucesso na compilação e geração da lib sqlrdd, certo? Vc chegou a usá-la comercialmente ou apenas testes? Fica uma dica ao amigo possibilidade de gravar vídeo instrução para pessoal. Tentei e ainda não obtive sucesso ! Jmsilva

#include "FiveWin.ch" function Main() LOCAL oDlg, oGet LOCAL cCad := "Testing " // pad("Testing Gets",40) LOCAL nNum := 0 LOCAL dDat := Date() Set century On Set Date Ansi Set Date format "mm/dd/yyyy" SET _3DLOOK ON DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION SetKey(VK_F3, {|| MostraGet(oDlg) } ) @ 1, 2 SAY "Text..:" OF oDlg @ 1, 6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K" @ 1.8, 2 SAY "Number:" OF oDlg @ 2, 6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE "9999999.99" @ 2.6, 2 SAY "Date:" OF oDlg @ 3, 6 GET oGet VAR dDat PICTURE "@E" OF oDlg SIZE 60, 10 // "@D" @ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End() @ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL ACTIVATE DIALOG oDlg CENTERED return nil //------------------------------------------------------------------------// Function MostraGet(oDlg) Local oGetAtual := oDlg:oCtlFocus //exibe nome da variável e seu conteúdo ? oGetAtual:oGet:Name,oGetAtual:oGet:Buffer Return nil

Verifiquei é a rtl.lib .

Seria isso ? #include "fivewin.ch" Function Main() Orion_jornada_AchaEndereco('-23.820724', '-45.370145') //LATITUDE E LONGITUDE Return Nil Function orion_jornada_AchaEndereco(mLat, mLong) local cGoogleURL := "https://nominatim.openstreetmap.org/reverse?format=xml&" local cAddress := "lat="+alltrim(mLat)+"&lon="+alltrim(mLong) local cXml := WebPageContents( cGoogleURL + cAddress) XBrowseXML(cXml) //fw23.07 Return Nil

#include "fivewin.ch" function Main() ? GetWMIC() Return nil Function GetWMIC() Local cResp,oDatos Local oLoc:= CreateObject( "wbemScripting.SwbemLocator" ) Local oWMI:= oLoc:ConnectServer() Local oProc := oWMI:ExecQuery("Select parentprocessid from Win32_Process where processid=820") FOR EACH oDatos IN oProc cResp := cValtoChar(oDatos:parentprocessid) NEXT Return cResp