Jmsilva

Para usar variáveis public e private, basta declarar no início do prg como MEMVAR. Assim campos sem alias como é preciso declarar como FIELD.

Também vi post, de que não pode iniciar uma variável ao declarar com W3. 

Pode sim, o que é verificado é a necessidade, vc declara lcerto:=.t. após no primeiro uso da variável vc usar o comando por exemplo, lcerto:= msgyesno(), isto ocorrerá a msg de advertência por iniciar a variável sem necessidade.

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?

2 horas atrás, Theotokos disse:

se é na compilação então vc não concluir a linha correto... esta linha tem um ? (exclamação) no inicio...

 

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

4 horas atrás, emotta disse:

htmp := Hash()
htmp["001","A"] = 4
htmp["003","A"] = 21
htmp["004","A"] = 14

htmp["002"] = hClone(htmp["003"])
htmp["003"] = hClone(htmp["004"])

// se precisar deletar a 004 considere a linha abaixo
hDel(htmp, '004')

 

 

* Sinceramente estou achando um pouco estranho essa sua necessidade, eu uso Hash a anos e nunca precisei fazer algo assim, acredito que você esteja usando Hash com o pensamento voltado a array.

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

2 horas atrás, emotta disse:

Jmsilva, eu obtive sim sucesso e estou usando em produção.

Sobre gravar um vídeo, quando eu tiver tempo posso sim fazer, mas seguindo exatamente os procedimentos descritos vc tb vai ter sucesso.

Sugiro em um primeiro momento fazer exatamente o que descrevi, ou seja, seguir exatamente os caminhos descritos e compilar com o visual studio "DESENVOLVIMENTO PARA DESKTOP COM C++"

O que eu vejo muita gente fazer é querer fazer diferente sem ao menos tentar antes exatamente o processo validado.

Então se vc seguir exatamente os passos descritos vc tb terá sucesso, pois é exatamente o que eu faço.

Boa sorte

abraços

 

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

43 minutos atrás, Theotokos disse:

"/Clientes/Borges/"

Substitua  oFtp:cwd( cPastaServ )   conforme abaixo, atentar para case sensitive. 

oFtp:cwd( "Clientes" )   // Pasta onde esta o Arquivo

 oFtp:cwd( "Borges" )   // Pasta onde esta o Arquivo

Qual o conteúdo desta variável cPastaServ?

Aparentemente  o erro é cusado por falta do segundo parâmetro oFtp:DownloadFile( cFile ), como o arquivo está em uma pasta diferente ao criar localmente gera o problema.

Tente assim: lRetorno := oFtp:DownloadFile( "nomefile.zip",cfile)

//downloadFile( <cLocalFile>, [<cRemoteFile>] ) --> lSuccess

vê se resolve!

Se entendi, criaria todas as mesas e deixava oculta, ao abri-la apenas exibiria.

1 hora atrás, kapiaba disse:

Dear friends, esse novo compilador é simplesmente PHODA!! Muito bom.

abs.

 

Regards, saludos.

Só para conhecimento o e erro "_dv_memcpy"  está vinculado  ao update da COMMON.LIB do xhb. Até a versão 10269 estava ok, após versão xhb 10269 passoU a ficar incompatível com a SQLRDD.

4 horas atrás, kapiaba disse:

O Enrico está esperando uma resposta, se funcionou, ok?

abs.

O erro utime resolveu, outro não (dv_memcpy) SQLRDD.

Como já disse usando xharbour versão mais antiga não ocorre.

Obrigado!

Estes erros não ocorreram, baixei o bcc com a descrição 7.60 e veio 7.40. Se não for pedir muito. Manda link 7.60 para eu testar. Quantos aos erros que reportei, após a atualização um erro resolveu, outro da sqlrdd permaceu. Se usar xhb 10269 o erro não ocorre.

Kapi, vc é o cara! Já trocaram a versão do xhb de 10274 para 10275. Quando pude vou testar.

Obrigado!

Error: Unresolved external '_dv_memcpy' referenced from C:\ROOT\SQLRDD\LIB\SQLRDD.LIB|sqlrdd1
Error: Unresolved external 'utime(const char *, utimbuf *)' referenced from C:\ROOT\XHB10274_BCC760\LIB\HBZIP.LIB|zipplatform
0 Files, 0 Warnings, 3 Errors
Compile time: 0.00s   Link time: 1.29s   Total time: 1.35s
 

Bom Dia, alguem se habilita, versão nova xHB 10274 e BCC760