xbrowse exemplo simples

[EDUTEK]

estou começando a mexer com a xbrowse e gostaria de um exemplo simples de como converto meu codigo abaixo

@ 2, 1 LISTBOX oLbx FIELDS codigo, nome, placa, odometro, situacao, proprio ;

HEADERS "Codigo","Nome","Placa","Odometro","Sit","Prop" ;

FIELDSIZES 60,150,80,90, 30,30 ;

SIZE 420, 255 OF oDLg FONT oFont1

id=code>id=code>

agradeço

Eduardo Mendes

eduardo@conesnet.com.br (MSN)

Fwh 9.04 + GTWVW + xH 1.0.0 + xDev + Fast Report + SQLRDD

Limeira - SP

[EDUTEK]

estou começando a mexer com a xbrowse e gostaria de um exemplo simples de como converto meu codigo abaixo

@ 2, 1 LISTBOX oLbx FIELDS codigo, nome, placa, odometro, situacao, proprio ;

HEADERS "Codigo","Nome","Placa","Odometro","Sit","Prop" ;

FIELDSIZES 60,150,80,90, 30,30 ;

SIZE 420, 255 OF oDLg FONT oFont1

id=code>id=code>

agradeço

Eduardo Mendes

eduardo@conesnet.com.br (MSN)

Fwh 9.04 + GTWVW + xH 1.0.0 + xDev + Fast Report + SQLRDD

Limeira - SP

[ricardomouramarques]

baixe o RVisual:

http://www.slicplus.com.br/rvisual/rvisual_12_04b.rar

1 - Abra um FORM novo: botão [Form]

2 - Insira um xBrowse: botão [xBr]

3 - selecione o xBrowse que vc inseriu e pressione CTRL+P, para configurar o seu xBrowse. Aqui vc poderá escolher os campos que deseja mostrar, largura da coluna, cores, etc, etc.

4 - clique no botão [source]. Aqui ele abrirá um editor com o código pronto.

Ricardo Marques

Ricado Marques

Araguari-MG

[Ale SB]

Fala Patrao Blz..isso aki deve te ajudar tb:

http://www.fivewin.com.br/exibedicas.asp?id=923

@braços Ale

Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

[aferra]

Bem atendendo a sua solicitação a GRANDE mudança seria

@ 2, 1 XBROWSEid=red> oLbx FIELDS codigo, nome, placa, odometro, situacao, proprio ;HEADERS "Codigo","Nome","Placa","Odometro","Sit","Prop" ;FIELDSIZES 60,150,80,90, 30,30 ;SIZE 420, 255 OF oDLg FONT oFont1

agora o link do meu XARà vai te dar mais informações sobre esse browse, tb indico estudar \fwh\samples\testxbrw3.prg lá tem tudo o que ela pode oferecer.

Um grande Abraço

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>

[EDUTEK]

valeu rapaziada

ja tou cavucando......

Eduardo Mendes

eduardo@conesnet.com.br (MSN)

Fwh 9.04 + GTWVW + xH 1.0.0 + xDev + Fast Report + SQLRDD

Limeira - SP

[rubensma]

citação:agora o link do meu XARà vai te dar mais informações sobre esse browse, tb indico estudar \fwh\samples\testxbrw3.prg lá tem tudo o que ela pode oferecer.

id=quote>id=quote>

Alessandro, utilizo a versão FWH 6.12 é não tem esse "testxbrw3.prg". Teria como disponibilizar??

Agradeço,

rumarti@gmail.com

Rubens Martins

rumarti@gmail.com

FWH 6.12 + xHARBOUR + Workshop

[tiaoFW]

citação:

citação:

agora o link do meu XARà vai te dar mais informações sobre esse browse, tb indico estudar \fwh\samples\testxbrw3.prg lá tem tudo o que ela pode oferecer.

Alessandro, utilizo a versão FWH 6.12 é não tem esse "testxbrw3.prg". Teria como disponibilizar??

Agradeço,

rumarti@gmail.com

Rubens Martins

rumarti@gmail.com

FWH 6.12 + xHARBOUR + Workshop

---

id=quote>id=quote>

Boa noite Rubens.

A versão 6.12 do fivewin ja tem a xbrowse, no entanto ela esta tão desatualizada que não recomendo sua utilização nessa versão.

t+

FWXH 11.09, PELLESC, MYMAKE 1.9J, DBF

Belzonte - Minas Gerais

A mente do fundamentalista é como a pupila do olho: quanto mais luz você joga, mais ela se fecha.

— Stephen Hawking

msn: tiaopessoa@hotmail.com

[Geo_sts]

VEja se te ajuda amigo

DEFINE DIALOG oDlg FROM 0,0 TO 49,129 TITLE "PDV - DIRETO" //MENU BuildMenu(.f.)

sele b // armazena vendas

use seudbf.dbf ALIAS "vendadireta" exclu

IF !NETERR()

ELSE

MsgStop("Arquivo não disponivel ","Atenção")

return nil

ENDIF

dbSelectArea("vendadireta")

vendadireta->(dbGoTop())

oBrw:= TxBrowse():New( oDlg )

oBrw:lHScroll := .F. // Barra Rolagem Horiz.

oBrw:lVScroll := .F. // Barra Rolagem vertical

oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW //--> Estilo da barra de seleçao.

*oBrw:bClrSelFocus := {|| { CLR_WHITE, nRGB( 0,0,75 ) } } // Cor da barra de seleçao.

oBrw:lAllowColSwapping := .T.

oBrw:cAlias := "vendadireta"

oCol := oBrw:AddCol()

oCol:bStrData := { ||alltrim(str(b->item,3))}

oCol:cHeader := "I"

oCol:nWidth := 18

oCol := oBrw:AddCol()

oCol:bStrData := { ||b->Descric}

oCol:cHeader := "Descrição"

oCol:nWidth := 205

oCol := oBrw:AddCol()

oCol:bStrData := { ||alltrim(str(b->valunit,12,2))}

oCol:cHeader := "Unitário"

oCol:nWidth := 50

oCol := oBrw:AddCol()

oCol:bStrData := { ||alltrim(str(b->quantid,6))}

oCol:cHeader := "Qtd"

oCol:nWidth := 25

oCol := oBrw:AddCol()

oCol:bStrData := { ||alltrim(str(b->valtota,12,2))}

oCol:cHeader := "Total Item"

oCol:nWidth := 50

oCol := oBrw:AddCol()

oCol:cHeader := "descontos"

oCol:bStrData := { ||str(b->vlcdesc,12,2)}

oCol := oBrw:AddCol()

oBrw:SetFont(Mingra) // mingra é a fonte usada defenida no topo

oBrw:nTop := 30

oBrw:nBottom := 268

oBrw:nLeft :=298

oBrw:nRight := 485

oBrw:nMarqueeStyle := 10

oBrw:lAllowRowSizing := .T.

oBrw:lHScroll := .F.

oBrw:lColDividerComplete := .F.

oBrw:SetRDD(.F.)

oBrw:l2007 = .T.

gBrw:=oBrw

oBrw:CreateFromCode()

scrollbar:=.f. // scroll off

w_tro:=0.00

ACTIVATE DIALOG oDlg CENTER

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.5 MySql

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"