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

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.