Jump to content
Fivewin Brasil

Jmsilva

Membros
  • Posts

    714
  • Joined

  • Last visited

  • Days Won

    14

Jmsilva last won the day on July 6 2020

Jmsilva had the most liked content!

Contact Methods

  • Website URL
    https://br.linkedin.com/in/jmsilva-69b65241

Profile Information

  • Gender
    Male
  • Location
    Caraguatatuba

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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
  2. 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
  3. 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.
  4. 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 !
  5. 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
  6. 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
  7. Parabéns pelo feito! Obrigado pela atenção!
  8. 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
  9. #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
  10. Verifiquei é a rtl.lib .
  11. 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
  12. #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
  13. 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
  14. Qual o conteúdo desta variável cPastaServ?
  15. 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!
×
×
  • Create New...