Edu

Boa tarde galera! Estou executando um filtro no xBrowse com array usando o metodo ArrayIncrFilter, porém não consigo limpar o filtro estabelecido quando a variável de pesquisa está vazia. Alguém teria uma dica para resolver ? Segue como estou fazendo: *********************************************************** * Get de pesquisa REDEFINE GET oGet2 VAR cSeek PICTURE "@!" ID 4002 OF oDlgPrd2 UPDATE ; VALID xBrFilter(oBr1, 3, cSeek, aProdAuto) * listagem oBr1:= TXBROWSE():NEW() oBr1:CreateFromResource(4008) oBr1:SetArray(aProdAuto,.T.) *********************************************************** FUNCTION xBrFilter(oBrw, nCol, cSeek, aArray) * Filtro no xbrowse com array de forma nativa. Filtra qualquer coluna no browse * Parametros: objeto, n. da coluna, variavel de pesquisa oBrw:lSeekWild := .T. DEFAULT nCol := 1 IF !Empty(cSeek) oBrw:cFilterFld:= nCol // seleciona a coluna que será ativado o filtro oBrw:ArrayIncrFilter(RTRIM(cSeek)) ELSE oBrw:aArrayData:= aArray oBrw:SetArray(aArray,.T.) ENDIF oBrw:Refresh() oBrw:Update() RETURN .T.

Isso mesmo Kapiaba ! Testei aqui e funcionou. Muito legal!

Bom dia! Alguém já usou o comando Join com DBF's ?

Esta função é nativa no xHarbour v 1.2.3 ou Harbour 3.2.x

Boa tarde! A propriedade sendemailaddress = e-mail do usuário quando a conexão é feita com um serviço SMTP. No link abaixo tem a descrição de outros campos. Have fun! Referência: https://msdn.microsoft.com/en-us/library/ms526584(v=exchg.10).aspx

Bom dia! Gostei da API! E é de graça! Tá na mão: ******************************************** Function GetDadosCNPJ() * retorna dados de um CNPJ * retorno no formato JSON * site que oferece o servico: https://www.receitaws.com.br Local oServerWS, cUrl, aArray, oCnpj:= SPACE(14) MsgGet("ReceitaWS", "Informe o CNPJ:", @oCnpj) cUrl:= "https://www.receitaws.com.br/v1/cnpj/"+Alltrim(oCnpj) Try oServerWS := CreateObject( 'MSXML2.ServerXMLHTTP.6.0' ) Catch e ? e:Description return nil End oServerWS:open('GET', cUrl, .f.) oServerWS:setRequestHeader('Content-Type' , 'text/xml; charset=utf-8') // Obtém ou define o valor de cabeçalho de Content-type HTTP. oServerWS:send() * Verifica o status do request. Exibe erro se houver IF oServerWS:Status != 200 // OK MsgStop( Alltrim(STR(oServerWS:Status)) +" - "+ oServerWS:StatusText , "Erro") RETURN NIL ENDIF WHILE oServerWS:readyState != 4 oServerWS:waitForResponse(1000) END * decodifica o arquivo json e transforma em um array multidimensional x := hb_jsondecode( oServerWS:responseText, @aArray ) if aArray == nil MsgStop("Erro ao retornar os dados. Tente novamente.") return nil endif if aArray['status'] != 'OK' // exibe erros MsgStop(aArray['message'], 'Erro') return nil endif xbrowse(aArray) // mostra o resultado return nil

Concordo com o aferra. De forma nativa, somente o Mysql e o MariaDB por enquanto. Abs.

Bom dia! Consegui com a dica do Theotokos, apesar de não fazer muito sentido, mas... Obrigado a todos!

Bom dia amigos! Estou com problemas num relatório usando fastreport. A impressão exibe normal mas ao sair da exibição o sistema para de funcionar. Alguém saberia me explicar o que estou errando ou teria algum exemplo? Obs.: Estou usando SqlRdd. Segue o código: FUNCTION Imprime_Caixa() local cQuery, cQuery2 cQuery := "Select * from tb_caixa" cQuery2:= "Select * from tb_empresa" USE (cQuery) ALIAS "CAIXA" SHARED NEW VIA "SQLRDD" USE (cQuery2) ALIAS "EMPRESA" SHARED NEW VIA "SQLRDD" oFrPrn:= frReportManager():New() oFrPrn:SetWorkArea("tb_empresa", Select("EMPRESA")) oFrPrn:SetWorkArea("tb_caixa", Select("CAIXA")) oFrPrn:LoadFromFile(".\caixa.fr3") * oFrPrn:DesignReport() // modo design oFrPrn:ShowReport() oFrPrn:ClearDataSets() oFrPrn:DestroyFR() CAIXA->(DBCLOSEAREA()) EMPRESA->(DBCLOSEAREA()) RETURN NIL *********************************

Bom dia! Evertonlb, acho que desse jeito não funciona porque ou você trabalha com DB ou array. Se você adicionar mais um elemento vai dar erro em tempo de execução pois o array interno do xbrowse : aCols, terá seu tamanho alterado. rubensma, a princípio eu não queria fazer isso não pois não sei se vai dar tempo, mas em último caso... Deixa eu tentar explicar: São 4 bitmaps. Por exemplo: A, B, C, D. Pode haver as situações A, A+B, A+C, A+D, B, B+C, B+D, C, C+D, D. TOTAL = 10. Em todo caso estou começando a considerar esta hipótese, pois tentei fazer com botões e ficou muito grande a qtde. de objs na tela e esteticamente ficou devendo um pouco. Estou dando preferência a xBrowse.

Pois é galera.. Procurei na classe e não achei, perdi um bom tempo mas tudo bem. Kkkk Eu já havia pensado na ideia do sistem mas pra mim ficará mt trabalhoso, pois eu precisava colocar 4 ícones de status na mesma célula. Teria que fazer um ícone para cada combinação, já que pode haver 4, 3, 2 ou 1 status. Contudo, agradeço a atenção. Abraço.

Boa tarde galera! É possível inserir vários bitmaps na mesma célula do xBrowse? Grato.

Show Kapiaba! Funcionou! Many Thanks.

No xDevStudio tem a tabela de Inkey Codes que tem teclas do tipo K_CTRL_P = [Ctrl + P], porém não funciona. Dá erro de variável não existe.

Não funcionou aferra. Deixa eu explicar melhor... Eu quero, no nKeyDown da Dialog, quando teclado [Ctrl + P], execute um setFocus no GET.

Prezados, Bom dia! Gostaria de uma ajuda, estou querendo colocar um atalho com duas teclas num GET. Ex: Ctrl + P. Isso é possível? Grato.

Direto da fonte! kkk https://dev.mysql.com/doc/refman/5.7/en/error-lost-connection.html

Boa tarde! Pra tabelas com grande quantidade de registros, você pode tentar aumentar o timeout para 6000 por exemplo. No WorkBench tem essa possibilidade. Caminho: Edit → Preferences → SQL Editor → DBMS. Ou via Command Line: mysql -u root -p -- net_read_timeout= 6000

Boa tarde! Alguém conseguiu fazer funcionar a Thread no xHarbour?

Resolvido! Parece que não precisava fazer nenhum #include "hbjson.h" Abs.

Bom dia pessoal. Estou tentando utitlizar a hbjson.h mas está dando vários erros de compilação _stddef.h(86) Error E0030 Syntax error: "syntax error at 'SIZE_T'" _stddef.h(91) Error E0030 Syntax error: "syntax error at 'INT'" _stddef.h(121) Error E0030 Syntax error: "syntax error at 'UNSIGNED'" _stddef.h(131) Error E0030 Syntax error: "syntax error at 'WCHAR_T'" Aguém pode me ajudar?

Blz!

Uma duvida Kapi. A pasta Bcc7 vem no pacote? Pq não veio pra mim.

Instalando aqui.... Muita emoção!! kkkk http://imgur.com/a/2aHWH

Boa tarde amigo! Fiz assim: // GET de pesquisa REDEFINE GET opesquisa VAR var_pesquisa ID 40 OF oDlg UPDATE ; ON CHANGE( ::Assign(), SetPosXbr(var_pesquisa,2,oLbx1) ) ******************************************************************************** FUNCTION SetPosXbr(Digitado, xPos, oLbx1) * Funcao de pesquisa sensitiva no xBrowse com Array LOCAL nPalavra:= UPPER(ALLTRIM(Digitado)) nPos := ASCAN(aPrinProd ,{|X| IF(nPalavra $ Substr(X[xPos], 1, LEN(nPalavra)) , .T. , .F. )}) IF nPos > 0 oLbx1:nArrayAt:= nPos ENDIF oLbx1:UPDATE() oLbx1:REFRESH() RETURN .T.