Search the Community

No xBrowse tem método ::bInit, pelo que vi ele é executado uma única vez quando cria, Certo ? Considerando a CRIAÇÃO prévia do xBrowse. Gostaria de saber se existe algum método que é acionado todas as vezes que o xbrowse recebe e perde o FOCO, além bWhen e bValid?

boa tarde pessoal, é possível através de uma variável por exemplo via rádio, que eu mude as colunas no meu xbrowse em tempo de execução exemplo: @45,05 RADIO oRad VAR vRad OF ODLG1 SIZE 100,12; ITEMS "NOTA DE COMPRA ESTOQUE" pixel COLOR AZULF5,CINZA ON CHANGE ATUALIZABRW(vRAD,aBtnP[4],aBtnP[5],aBtnP[6],aBtnP[7],aBtnP[8],aBtnP[9]) @45,110 RADIOITEM "NOTA DE ATIVO" COLOR AZULF5,CINZA RADIOMENU oRad OF oDlg1 pixel UPDATE @45,180 RADIOITEM "NOTA DE COMBUSTÍVEL" COLOR AZULF5,CINZA RADIOMENU oRad OF oDlg1 pixel UPDATE @45,280 RADIOITEM "NOTA DE MATERIAL OU CONSUMO" COLOR AZULF5,CINZA RADIOMENU oRad OF oDlg1 pixel UPDATE @10,10 XBROWSE OBRWF SIZE 610,150 PIXEL OF oFld:aDialogs[1] ALIAS "ARQNFEC" FASTEDIT AUTOSORT font FNORMAL14 if vrad=1 ADD COLUMN TO XBROWSE OBRWF DATA estoque HEADER "estoque" SIZE 30 CENTER else ADD COLUMN TO XBROWSE OBRWF DATA produto HEADER "estoque" SIZE 30 CENTER endif OBRWF:CreateFromCode() seria mais ou menos isso, conforme eu mudo meu radio ele atualiza as colunas no meu browse

Pessoal, Alguém tem um exemplo de xBrowse com imagem? Eu fiz esse aqui mas ele mostra em todos os registros a mesma imagem do primeiro. DEFINE DIALOG oDlg SIZE 800,600 PIXEL TITLE '(OASyS) Confime os produtos que irão para o site:' @ 10,10 XBROWSE oBrw OF oDlg ; SIZE -10,-10 PIXEL ; COLUMNS 'Grupo', 'Descr', 'VlUnit', 'Foto'; ALIAS 'SITE' LINES NOBORDER // oBrw:Married:SetCheck() // Default FWH Bitmap is Alpha WITH OBJECT oBrw:Foto :AddBitmap( Foto ) :bBmpData := { || 1 } END WITH OBJECT oBrw :nStretchCol := 1 :nMarqueeStyle := 4 END oBrw:CreateFromCode() ACTIVATE DIALOG oDlg CENTERED

@cnavarro e demais Olá! O exemplo abaixo funciona corretamente até a versão FWH 10.11 (nov2010), depois que fiz atualização para 17.05 exibe apenas uma coluna. Compilei com a ver 10.11 está ok, na 17.05 somente uma coluna, gostaria de saber se nas versões pós 17.05 o problema persiste. Obrigado! /* * Project: xbrw * File: xbrw.prg * Description: * Author: * Date: 03-04-2018 */ #include "fivewin.ch" **=================================================================== Function main() **=================================================================== Local oDlg,oExec,oBrw,cTitle Local aVet := {{1,2,3},{4,5,6},{7,8,9}} Local aVet1 := {{"a","b","c","d"},{"e","f","g","h"},{"i","j","k","l"}} DEFINE DIALOG oDlg SIZE 680,360 TITLE "Teste xBrowse colunas aleatorias" @ 2,3 XBROWSE oBrw ; SIZE 220, 170 PIXEL ; OF oDlg ; ARRAY {} AUTOCOLS ; LINES oBrw:CreateFromCode() @ 080, 270 BTNBMP oExec prompt "Vet" SIZE 60,20 CENTER 2007; OF oDlg ACTION oBrw:SetArray(aVet) @ 140, 270 BTNBMP oExec prompt "Vet1" SIZE 60,20 CENTER 2007; OF oDlg ACTION oBrw:SetArray(aVet1) ACTIVATE DIALOG oDlg CENTER //on init XBrowse(oBrw) RETURN NIL

Bom dia! É possível fazer uma pesquisa nas colunas de um xbrowse de um DBF sem seguir a ordem dos índices do DBF? Se possível, me mostre exemplo. Obrigado! Rodrigo Melo

Boas... Pessoal, desculpem a minha Santa Ignorância em perguntar algo aparentemente tão simples, porém o fato é que realmente não sei fazer. Procurei exemplos na pasta Samples e também não achei. No meu Sistema em Dbf, venho usando a wBrowse sem problemas. Estou migrando para Sql (Mariadb) e deparei com um problema ao usar a xBrowse. No meu Bd tenho o campo "Status" que recebe os valores 1,2,3,0 Com a wBrowse sempre fiz assim para representar esse Status : @ 2.30, 0 LISTBOX oBrw ; FIELDS; STR(OCO->CODIGO,10),; OCO->NOMEFOR,; DTOC(OCO->DATA),; IIF(OCO->STATUS=1,"Pendente ",; IIF(OCO->STATUS=2,"Comunicado",; IIF(OCO->STATUS=3,"Resolvido ","Indefinido"))); HEADERS ; OemToAnsi("C¢digo"),; OemToAnsi("Nome do Fornecedor"),; OemToAnsi("Data da Ocorrência"),; OemToAnsi("Status") ; FIELDSIZES 70, 450, 150, 120 ; ON DBLCLICK EditGestao( oBrw ) ; FONT oFontLbx SIZE 475, 240 ; OF oWndBrw oBrw:nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabe‡alho oBrw:nClrBackFocus := CLR_BLUE // Cor do Cursor Em Cima do Ötem oBrw:nClrForeFocus := CLR_AMARELO // cor da letra da barra ativa oBrw:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos // Cor no Pano de Fundo da Browse() Listbox-Legal - abaixo o comando oBrw:nClrPane := { || IIF( ( oBrw:cAlias )->( OrdKeyNo() ) %2 == 0, ; CLR_LGREEN, CLR_LGRAY ) } // Verde e Branco Ok ? // Justifica As Colunas dos Campos Esq. .T. = Centro oBrw:aJustify := { .F., .F., .F., .F. } oBrw:lMChange := .F. // Desabilita Mousemove oBrw:SetFocus() // Refocus on The Browse oBrw:Refresh() // Estabiliza o Browse/Listbox Tem como fazer a mesma coisa com a xBrowse ? @ 30, 0 XBROWSE oBrw OF oDlg OBJECT oQry FONT oFontLbx AUTOSORT ; COLUMNS "CODIGO", "NOMEFOR", "DATA", "STATUS" ; PICTURES "@!","@!", "@D", "@!" ; COLSIZES 100, 500, 70, 100 ; HEADERS; OemToAnsi("C¢digo"),; OemToAnsi("Fornecedor"),; OemToAnsi("Data"),; OemToAnsi("Status"); PIXEL SIZE 475, 230 LINES ; UPDATE Obrigado.

Boa tarde! Estou em processo de migração de DBF para SQL. Quando utilizo DBF, simplesmente defino para o xBrowse os campos das tabelas (sem se preocupar com o número de registros dos DBFs). Ao utilizar SQL, carrego numa matriz o resultado do Select para o xBrowse. Neste caso, fiquei preocupado com o limite dessa matriz para pesquisas que retornarem milhares de linhas... Quero saber dos nobres colegas o que utilizam / implementam nessa situação? Obrigado! Rodrigo Melo Belo Horizonte / MG

Bom Dia! Tenho um xBrowse (que vai funcionar como se fosse um painel de Aeroporto - que fica mostrando o Embarque e desembarque), Gostaria de Fazer uma atualização nele a cada 10 minutos, cmo se faz isso usando o xbrowse, ja tenho a funcao de execução toda pronta, pois hoje o usuario clica no botão do refresh para atualizar, mas se os usuario não atualizarem o xbrowse fica parado. Como eu faria isso ?

Boa Tarde!!! Eu uso colocar BMP (Imagem) na Coluna assim: oBrw:aCols[4]:AddResource("Entrega" ) oBrw:aCols[4]:AddResource("Est_UP" ) oBrw:aCols[4]:AddResource("Est_Down") oBrw:aCols[4]:bBmpData := { || If( BanMerca->M_ENTREGA, 1, 0 ) } oBrw:aCols[4]:nDataBmpAlign := 3 * Gostaria de Saber se tem como mostrar duas imagem, Ex: mostrar a 1 e 3 juntas nas mesma coluna.... (Entrega, Est_Down)

Prezados, Estou precisando mostrar em uma Window dois xBrowse: um com a relação de pedidos e outro com os itens dos pedidos. É possível? Acredito que sim... Alguém pode postar parte de um exemplo em código? Obrigado! Rodrigo Melo Belo Horizonte

Bom dia. Pessoal, tenho um xbrowse que mostra os clientes cadastrados e gostaria de que quando o usuário desse UM click ou quando o foco estivesse sobre o nome do cliente fosse executada uma função. Com duplo click eu fiz, mas gostaria de saber se tem a possibilidade de executar algo no foco. Att. Everton

Amigos... Estou fazendo uma janela com dois xBrowse, Já tenho coisas similares no meu software, porem nesta janela esta dando um erro estranho.. Quando tento abrir o segundo xBrowse o sistema não abre e da o seguinte erro Error DBCMD/2001 Workarea not in use: RDDNAME Eu uso a SQLLib e a MySql 5.0 Criei a tabela usando um utilitário que peguei no Superdownloads o MySql WorkBench, acho que deve ser da própria Oracle... mas não é a primeira tabela que crio, já criei várias e nunca deu problema, mas esta tabela, que só tem dois campos, ta dando pau. A princípio achei que tinha alguma limitação na quantidade de tabelas no BD, apaguei algumas que tinha criado e que ainda não usei, não deu certo. Criei de novo, não deu certo. Criei outra nova, não deu certo.. fiz isso por umas 10 vezes para ter certeza que não esqueci de nada, e não deu certo.. Se abro as duas xBrowse com a mesma tabela USUARIO da certo... ai resolvi tentar outra coisa, copiei a estrutura e o conteúdo da tabela USUARIO que é a primeira que abro na janela.. ( na primeira xBrowse da janela ) e que abre normalmente, para uma tabela chamada PROG_FUNC. se tento usar na segunda xBrowse a tabela nova ( copiada exatamente como a tabela USUARIO, inclusive com os registros ) da pau... E Argola? alguma idéia??? oXBrw1 := TXBrowse():New( oGrp2 ) oXBrw1:nMarqueeStyle := 5 oXBrw1:nColDividerStyle := 3 oXBrw1:nRowDividerStyle := 3 oXBrw1:lColDividerComplete := .F. oXBrw1:nHeaderLines := 1 oXBrw1:nDataLines := 1 oXBrw1:lFooter := .T. oXBrw1:nRecSelColor := 14204813 oXBrw1:cAlias := "Operador" oXBrw1:lRecordSelector := .t. oXBrw1:lHScroll := .F. oXBrw1:SetRDD() oXBrw1:CreateFromCode() oXBrw1:Move( 17.00, 5.00, 479.00, 154.00, .t. ) aCol_oXBrw1[1] := oXBrw1:aCols[1] aCol_oXBrw1[1]:nWidth := 70 aCol_oXBrw1[1]:cHeader := "Código" aCol_oXBrw1[1]:lHIDE := .F. aCol_oXBrw1[1]:oHeaderFont := oFONT1 aCol_oXBrw1[1]:oDataFont := oFONT1 aCol_oXBrw1[1]:oFooterFont := oFONT1 aCol_oXBrw1[1]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw1[1]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[1]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[1]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[1]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw1[1]:bLDClickData := {||} aCol_oXBrw1[4] := oXBrw1:aCols[4] aCol_oXBrw1[4]:nWidth := 295 aCol_oXBrw1[4]:cHeader := "Nome" aCol_oXBrw1[4]:lHIDE := .F. aCol_oXBrw1[4]:oHeaderFont := oFONT1 aCol_oXBrw1[4]:oDataFont := oFONT1 aCol_oXBrw1[4]:oFooterFont := oFONT1 aCol_oXBrw1[4]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw1[4]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[4]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[4]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[4]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw1[4]:bLDClickData := {||} aCol_oXBrw1[5] := oXBrw1:aCols[5] aCol_oXBrw1[5]:nWidth := 70 aCol_oXBrw1[5]:cHeader := "Unidade" aCol_oXBrw1[5]:lHIDE := .F. aCol_oXBrw1[5]:oHeaderFont := oFONT1 aCol_oXBrw1[5]:oDataFont := oFONT1 aCol_oXBrw1[5]:oFooterFont := oFONT1 aCol_oXBrw1[5]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw1[5]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[5]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[5]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[5]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw1[5]:bLDClickData := {||} aCol_oXBrw1[2] := oXBrw1:aCols[2] aCol_oXBrw1[2]:lHIDE := .T. aCol_oXBrw1[3] := oXBrw1:aCols[3] aCol_oXBrw1[3]:lHIDE := .T. aCol_oXBrw1[6] := oXBrw1:aCols[6] aCol_oXBrw1[6]:lHIDE := .T. aCol_oXBrw1[7] := oXBrw1:aCols[7] aCol_oXBrw1[7]:lHIDE := .T. oXBrw1:refresh() @ 187, 6 GROUP oGrp3 TO 372, 495 LABEL "Funcionalidades" PIXEL; OF oGrp1 COLOR 0, 15790320 FONT oFont2 oXBrw11 := TXBrowse():New( oGrp3 ) oXBrw11:nMarqueeStyle := 5 oXBrw11:nColDividerStyle := 3 oXBrw11:nRowDividerStyle := 3 oXBrw11:lColDividerComplete := .F. oXBrw11:nHeaderLines := 1 oXBrw11:nDataLines := 1 oXBrw11:lFooter := .T. oXBrw11:nRecSelColor := 14204813 oXBrw11:cAlias := "prg_func" oXBrw11:lRecordSelector := .t. oXBrw11:lHScroll := .F. oXBrw11:SetRDD() oXBrw11:CreateFromCode() oXBrw11:Move( 17.00, 5.00, 479.00, 154.00, .t. ) aCol_oXBrw11[1] := oXBrw11:aCols[1] aCol_oXBrw11[1]:nWidth := 70 aCol_oXBrw11[1]:cHeader := "Código" aCol_oXBrw11[1]:lHIDE := .F. aCol_oXBrw11[1]:oHeaderFont := oFONT1 aCol_oXBrw11[1]:oDataFont := oFONT1 aCol_oXBrw11[1]:oFooterFont := oFONT1 aCol_oXBrw11[1]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw11[1]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw11[1]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw11[1]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw11[1]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw1[1]:bLDClickData := {||} aCol_oXBrw11[4] := oXBrw11:aCols[4] aCol_oXBrw11[4]:nWidth := 295 aCol_oXBrw11[4]:cHeader := "Nome" aCol_oXBrw11[4]:lHIDE := .F. aCol_oXBrw11[4]:oHeaderFont := oFONT1 aCol_oXBrw11[4]:oDataFont := oFONT1 aCol_oXBrw11[4]:oFooterFont := oFONT1 aCol_oXBrw11[4]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw11[4]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw11[4]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw11[4]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw11[4]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw1[4]:bLDClickData := {||} aCol_oXBrw11[5] := oXBrw11:aCols[5] aCol_oXBrw11[5]:nWidth := 70 aCol_oXBrw11[5]:cHeader := "Unidade" aCol_oXBrw11[5]:lHIDE := .F. aCol_oXBrw11[5]:oHeaderFont := oFONT1 aCol_oXBrw11[5]:oDataFont := oFONT1 aCol_oXBrw11[5]:oFooterFont := oFONT1 aCol_oXBrw11[5]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw11[5]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw11[5]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw11[5]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw11[5]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw11[5]:bLDClickData := {||} aCol_oXBrw11[2] := oXBrw11:aCols[2] aCol_oXBrw11[2]:lHIDE := .T. aCol_oXBrw11[3] := oXBrw11:aCols[3] aCol_oXBrw11[3]:lHIDE := .T. aCol_oXBrw11[6] := oXBrw11:aCols[6] aCol_oXBrw11[6]:lHIDE := .T. aCol_oXBrw11[7] := oXBrw11:aCols[7] aCol_oXBrw11[7]:lHIDE := .T. oXBrw11:refresh() Poxa.. ficou um post kilométrico... att.

Amigos.. como faço para mudar o foco de uma xBrowse para outra? Tenho duas xBrowse na mesma janela, e quando o usuário escolhe o registro na primeira, além de atribuir valores à algumas variáveis, gostaria também de mudar o foco para a segunda xBrowse. Pesquisei no Fórum e tentei colocar algumas soluções que foram sugeridas, mas infelizmente, sem sucesso! Obrigado Att.