Necesito ejemplo de xBrowse

[Ruben Fernandez]

Amigos:

Estoy usando en Browse de HDC (Hernán) ESPECTACULAR, pero desearía probar el xBrowse.

Alguien me puede enviar un ejemplo en dialogo desde recursos para ver
claramente como se usan las posibilidades que tiene.

Muchas gracias.

Ruben Fernandez.
rdfernandez@adinet.com.uy

[Marco A. Delgado]

Hola Ruben

Dentro de FWH en la carpeta de ejemplos hay un archivo llamado testxbrw.prg, ahi encontraras lo que buscas.

Saludos
Marco A. Delgado.

[leandro]

Amigo aqui esta espero te sirva..

Code: Select all  Expand view

DEFINE DIALOG oCuaPre RESOURCE "orPeba5" OF oCuadro ICON "#8001"

oProgress = TProgress():Redefine( 4037, oCuaPre )

REDEFINE BTNGET oGTerc VAR oLamcla:vGTerc ID 4029 OF oCuaPre RESOURCE "Bbusc" UPDATE VALID (oLamcla:valicap(1,1),oLamcla:vSVTer) ACTION (oLamcla:busqueda(1,1),.T.)
REDEFINE SAY oSDigi VAR oLamcla:vSDigi ID 4030 OF oCuaPre COLOR oLamcla:cClr5
REDEFINE SAY oSTerc VAR oLamcla:vSterc ID 4031 OF oCuaPre COLOR oLamcla:cClr5

REDEFINE BUTTONBMP Btn_Grab ID 11 OF oCuaPre BITMAP "Bgrab" ACTION pValidPeF()
REDEFINE BUTTONBMP Btn_Canc ID 10 OF oCuaPre BITMAP "Bcanc" ACTION oCuaPre:End()
REDEFINE BUTTON Btn_Apli ID 4016 OF oCuaPre ACTION pDesPed()
REDEFINE BUTTON Btn_Pref ID 4034 OF oCuaPre ACTION pImpPrefac()

REDEFINE GET oCRog1 VAR oCRvg1 ID 4017 OF oCuaPre
REDEFINE GET oCRog2 VAR vFcons ID 4028 OF oCuaPre

REDEFINE SAY oCRos1 VAR oCRvs1 ID 4003 OF oCuaPre COLOR oLamcla:cClr5
REDEFINE SAY oCRos2 VAR oCRvs2 ID 4005 OF oCuaPre COLOR oLamcla:cClr5
REDEFINE SAY oCRos3 VAR oCRvs3 ID 4006 OF oCuaPre COLOR oLamcla:cClr5
REDEFINE SAY oCRos4 VAR oCRvs4 ID 4008 OF oCuaPre COLOR oLamcla:cClr5
REDEFINE SAY oCRos5 VAR oCRvs5 ID 4010 OF oCuaPre COLOR oLamcla:cClr5

REDEFINE SAY oCRos6 ID 4036 OF oCuaPre COLOR oLamcla:cClr5

mBrw := TXBrowse():New( oCuaPre )

SELE Prefac
dbgotop()
nAregi:=reccount()
dbgotop()
mBrw:nMarqueeStyle       := MARQSTYLE_HIGHLCELL
*mBrw:nColDividerStyle    := LINESTYLE_RAISED
*mBrw:bClrSelFocus        := {|| { CLR_WHITE, RGB(24, 116, 205) } }
mBrw:nHeaderLines        := 1
*mBrw:lColDividerComplete := .t.
*mBrw:lRecordSelector     := .t.
mBrw:lFastEdit := .T.
mBrw:bClrStd          := {|| IF( (recno()%2)==0,{CLR_BLACK,oLamcla:cClr2},{CLR_BLACK,oLamcla:cClr1} ) }
*mBrw:blDblClick          := {|| pModBPre()}
*mBrw:bKeyDown            := {|nKey|iif(nKey == 13,pModBPre(),(" "))}
*mBrw:SetColor(CLR_BLACK, RGB(255,255,235))

oCol := mBrw:AddCol()
oCol:cHeader       := "Articu"
oCol:bStrData      := { || Prefac->Articu}
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth        := 60
oCol:nEditType := 1
oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, msginfo("jejejeje"), ) }

oCol := mBrw:AddCol()
oCol:cHeader       := "Nombre"
oCol:bStrData      := { || Prefac->Nombre}
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth        := 180

oCol := mBrw:AddCol()
oCol:cHeader       := "Subtotal"
oCol:bStrData      := { || Transform(Prefac->Valsub,oLamcla:PIC2)}
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth        := 80

oCol := mBrw:AddCol()
oCol:cHeader       := "Descuento"
oCol:bStrData      := { || Transform(Prefac->Valdes,oLamcla:PIC2)}
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth        := 80

oCol := mBrw:AddCol()
oCol:cHeader       := "I.V.A."
oCol:bStrData      := { || Transform(Prefac->Valiva,oLamcla:PIC2)}
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth        := 80

oCol := mBrw:AddCol()
oCol:cHeader       := "Total"
oCol:bStrData      := { || Transform(Prefac->Valtot,oLamcla:PIC2)}
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth        := 80

mBrw:SetRDD()
mBrw:CreateFromResource( 101 )

REDEFINE SAY oCRosu VAR oCRvsu ID 4019 OF oCuaPre COLOR oLamcla:cClr5 PICTURE oLamcla:PIC2
REDEFINE SAY oCRode VAR oCRvde ID 4021 OF oCuaPre COLOR oLamcla:cClr5 PICTURE oLamcla:PIC2
REDEFINE SAY oCRoiv VAR oCRviv ID 4023 OF oCuaPre COLOR oLamcla:cClr5 PICTURE oLamcla:PIC2
REDEFINE SAY oCRoto VAR oCRvto ID 4025 OF oCuaPre COLOR oLamcla:cClr5 PICTURE oLamcla:PIC2

REDEFINE SAY oLamcla:oSubto ID 4012 OF oCuaPre
REDEFINE SAY oLamcla:oImpue ID 4013 OF oCuaPre
REDEFINE SAY oLamcla:oTotal ID 4014 OF oCuaPre

oCuaPre:cTitle := "Prefactura Pedido"
oCuaPre:bStart := { || oProgress:hide(),pValidPeF2()}

ACTIVATE DIALOG oCuaPre CENTERED
Prefac->(dbclosearea())



Asi se ve en pantalla



Espero te sirva

[Ruben Fernandez]

Gracias Leandro!!!

Se ve muy bueno.

Gracias de nuevo.

Saludos

Ruben Fernandez

[Ruben Fernandez]

Gracias Marco.

Ya lo probe tambien.

El ejemplo de Leandro esta muy bueno.

Gracias y saludos

Ruben Fernandez.