gibaf

1) no get, estou identificando no: oGet1:aProperties[2] := "VAR_GET_1" oGet2:aProperties[2] := "VAR_GET_2" oGet3:aProperties[2] := "VAR_GET_3" 2) dae, na funcao, estou fazendo assim (mas, ao pressionar o F1, tipo, no primeiro get mostra o segundo, ou se tiver no segundo, mostra do terceiro): nWnd := aScan( GetAllWin() , {|Obj|Obj:lFocused .and. Obj:ClassName()$"TGET/TCOMBOBOX/ETC"} ) oGet := If( nWnd != 0 , GetAllWin()[nWnd] , Nil ) If ValType(oGet) = "O" cVarGet := oGet:aProperties[2] Endif mas, ainda penso, no demo abaixo, se conseguiria ter o OBJ do WINDOW e\ou da DIALOG eu consguiria fazer o q preciso: *----------------- Function TestGet() *----------------- Local nCon,oCon For nCon := 1 To Len(oDlg:aControls) oCon := oDlg:aControls[nCon] If oCon:ClassName() $ "TGET/TCOMBOBOX/ETC" If oCon:lFocused // executando... Exit Endif Endif Next nCon Return(Nil)

esse eh somente para o WINDOW, veja o manual do comando: Retrieves a window object through his handle. Note: Does not work for dialogs eu preciso de um q pega tambem o DIALOG att

bom dia.. tudo bem ? estou fazendo um manual (help) on-line da aplicacao atraves da tecla F1 no get... uso dicionario de dados, e para as rotinas q usam isso ja esta 100%, mas, estou precisando implementar para as tantas rotinas q nao eh utilizado do dicionario de dados... ae que cheguei no exemplo da postagem dessa discucao, mas, nao estou conseguindo fazer... PS: no clipper era tao facil com o RedVar()...kkkkk...

quase consegui assim: aaa := GetAllWin() // acho q so pega os WINDOWs = NAO FUNCIONA PARA DIALOG For xxxx := 1 to len(aaa) If IsWindow( aaa[xxxx,2] ) // eh WINDOW = NAO FUNCIONA PARA DIALOG oObj := oWndFromhWnd( aaa[xxxx,2] ) //GetActiveWindow() For nCon := 1 To Len(oObj:aControls) oCon := oObj:aControls[nCon] If .T. //oCon:ClassName() $ "TGET" If oCon:lFocused ? "executando..." Exit Endif Endif Next nCon Endif Next xxxx ainda precido de ajuda !

ola eu ja tinha conseguido pegar o Handle da WINDOW e DIALOG (como vi nesses links), mas nao consegui achar o objeto. se alguem tiver mais alguma outra dica, q ainda estou precisando...

ola, obrigado por responder... infelizmente, esse link nao me ajudou, pois nesse, eh sabido o oDlg, tanto eh q eh passado no parametro para a funcao, q nao eh o meu caso... alguma outro dica ??

ola a todos !!! estou fazendo uma funcao generica (pode ser chamada de varias funcoes) e como fazer para saber qual eh a variavel do objeto do WINDOW ou do DIALOG ? segue exemplo abaixo: *----------------- Function TestGet() *----------------- Local nCon,oCon For nCon := 1 To Len(oDlg:aControls) oCon := oDlg:aControls[nCon] If .T. //oCon:ClassName() $ "TGET" If oCon:lFocused // executando... Exit Endif Endif Next nCon Return(Nil) desde ja agradeco a ajuda: MUITO OBRIGADO !!!

ola primeiramente, obrigado por responder.... segundamente, as suas perguntas laskaram mais ainda....kkk

ola a todos, alguem ja implementou no sistema ? como ? att Gilberto

ola a todos... digamos q eu tenho: 1) um DIALOG 2) um FOLDER 3) um browse esse browse, hora, quero q esteja na DIALOG (OF oDlg), e hora quero q esteja na FOLDER (OF oFld), sem ter q fazer o browse duas vezes (no dialog e no folder) e hora dar um oBrw1:Hide() no Dialog e oBrw2:Show() no Folder, e vice-versa... alguem sabe se tem como (e como), transferir o browse do dialog para o folder (e vice-versa) em tempo de execucao ? desde ja agradeco a ajuda: MUITO OBRIGADO !!!

certo... muito obrigado pelas ajudas !

uma ultima coisa... pra mim, esta ficando a linha selecionada toda marcada... eu queria mudar pra ficar marcada somente a celula q estou (e nao a linha inteira)... mas como ?

na veia... isso mesmo.. deu certo... mil % resolvido MUITO OBRIGADO (A TODOS) !!

digamos q eu tenho a matriz aProdutos: aadd( aProdutos , { "Lapis", 15 }) aadd( aProdutos , { "Caneta", 0 }) aadd( aProdutos , { "Borracha", 15 }) o meu browse esta funcionando perfeitamente, apenas, gostaria q o(s) produtos com saldo (segunda coluna da matriz) zerado se destacassem com uma cor direrente. ESTOU FAZENDO ASSIM: oBrw:aCols[2]:bClrStd := {||{ CLR_WHITE , iif( aProdutos[oBrw:nAt(),2] < 0 , CLR_RED , CLR_BLACK ) } } mas esta dando erro.

ola.. obrigado por responder... tem certeza q passou com o xBrowse ? q tem tem o bLine e outros... obrigado

ola obrigado por responder... eu preciso fazer num wbrowse com array, e nao numa tabela... ae q esta o detalhe.. .tipo digamos q a matriz eh aProdutos, e a segunda posicao eh o saldo em estoque, dae, quando for zero queria destacar uma cor diferente... obrigado.

ola a todos como colorir uma determinada coluna para uma condicao, por exemplo, valor menor q zera, ser vermelho ? se alguem pouder me ajudar, fico agradecido: MUITO OBRIGADO

ola a todos me deu um branco agora..hehhe se algum puder me ajudar, fico agradecido: MUITO OBRIGADO

ola a todos como simplificar esse codigo ? *--------------------------------- Static Function FinA080ConfBaixa() *--------------------------------- Local lRet := .T. Local cTipDocs := TPDOCBXTIT //o conteudo deste campo eh uma strings: "01,08,27,28,30" Local aTipDocs := {} , cTmp , nTmp , lAdd If !Empty(cTipDocs) cTmp := "" For nTmp := 1 to Len(cTipDocs) lAdd := .F. If Substr(cTipDocs,nTmp,1) $ "0123456789" cTmp += Substr(cTipDocs,nTmp,1) If nTmp = Len(cTipDocs) lAdd := .T. Endif Else lAdd := .T. Endif If lAdd Aadd( aTipDocs , cTmp ) cTmp := "" Endif Next nTmp Else MsgAlert("Nao Informado as Opcoes do(s) Tipo(s) de Documentos p/ Baixar o Titulo.") lRet := .F. Endif Return(lRet) Sera q tem algo, para substituir todo o bloco, entre a linha 8 ate 23, tipo, se existisse um Aadd( aTipDocs , cTipDocs ), mas assim ja sei q nao da, pois iria ter somente 1 elemento na matriz, com a strings inteira.. alguem poderia ajuda, por favor ? desde ja agradeco: MUITO OBRIGADO !!!

ola ninguem mais viu isso ?? obrigado

ola a todos faz tempo que vi um demo onde faz com que a app seja executado dentro do navegador... alguem saberia me dizer ? desde ja agradeco: MUITO OBRIGADO !!!

ola vai funcionar sim, salvo em caso de erros de programacao, tipo, variaveis nao definidas/declaracao, type mismach, etc... att Gilberto

ola eu nao sei se eh isso q vou escrever, mesmo assim, segue: pra vc saber se uma FUNCAO existe na APP (mesmo q estiver num .hrb), faz assim: cFuncao := "ExecRotina()" If Type( cFuncao ) <> "UI" MsgAlert( "Funcao ainda nao Compilada no Projeto." ) Endif repito, nao sei se eh isso que esta precisando... att Gilberto

desculpa, mas como faz pra tratar o que ? poderia explicar melhor a sua necessidade ?

que eu saiba isso nao sera possivel, uma vez q o .ch vc ja usa na linkacao e compilacao. att Gilberto