Estimados, saludos
Quisiera saber si existe la opcion de mostrar 2 xBrowser en simultaneo, son 2 tablas distintas que quiero mostrar una al lado de la otra, ideal si podria usando xBrowser.
Gracias
SELE d_caja
Dbgotop()
oLamcla:oBrwCaja := TXBrowse():New( oCuadro )
oLamcla:oBrwCaja:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLamcla:oBrwCaja:nRowDividerStyle := LINESTYLE_LIGHTGRAY
oLamcla:oBrwCaja:nColDividerStyle := LINESTYLE_LIGHTGRAY
oLamcla:oBrwCaja:nHeaderLines := 1
oLamcla:oBrwCaja:nDataLines := 1
oLamcla:oBrwCaja:lFooter := .t.
oLamcla:oBrwCaja:nFooterLines := 1
oLamcla:oBrwCaja:nFooterHeight := 24
oLamcla:oBrwCaja:lColDividerComplete := .t.
oLamcla:oBrwCaja:lRecordSelector := .t.
oLamcla:oBrwCaja:nStretchCol := STRETCHCOL_LAST
oLamcla:oBrwCaja:l2007 := .f.
oLamcla:oBrwCaja:oFont := oFont5
oLamcla:oBrwCaja:bKeyDown := {|nKey|TeclasCa(nKey,oLamcla:oBrwCaja)}
oCol = oLamcla:oBrwCaja:AddCol()
oCol:bStrData = { || d_caja->Codig }
oCol:cHeader = "Artículo"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth = 70
oCol:= oLamcla:oBrwCaja:AddCol()
oCol:bStrData := { || d_caja->Descr}
oCol:cHeader := "Descripción"
oCol:cFooter = "TOTALES ------>"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 155
oCol:= oLamcla:oBrwCaja:AddCol()
oCol:bStrData := { || Transform(nitonu(d_caja->canti),oLamcla:PIC7)}
oCol:cHeader := "Cant."
oCol:nHeadStrAlign := AL_RIGHT
oCol:nDataStrAlign := AL_RIGHT
oCol:nWidth := 45
oCol:bFooter = {|| Transform(oLamcla:vCaCan,oLamcla:PIC2)}
oCol:nFootStrAlign = 1
oCol:cEditPicture = oLamcla:PIC2
oCol:= oLamcla:oBrwCaja:AddCol()
oCol:bStrData := { || Transform(nitonu(d_caja->PVpub),oLamcla:PIC7)}
oCol:cHeader := "PV Público"
oCol:nHeadStrAlign := AL_RIGHT
oCol:nDataStrAlign := AL_RIGHT
oCol:nWidth := 90
oCol:bFooter = {|| Transform(oLamcla:vCatot,oLamcla:PIC2)}
oCol:nFootStrAlign = 1
oCol:cEditPicture = oLamcla:PIC2
oCol := oLamcla:oBrwCaja:AddCol()
oCol:AddResource("#8001")
oCol:AddResource("#8033")
oCol:bBmpData := { || iif( d_caja->Signo="s", 1, 2) }
oCol:cHeader := "Sgn"
oCol:nWidth := 60
oLamcla:oBrwCaja:SetRDD()
oLamcla:oBrwCaja:CreateFromResource(102)
oGTerc:bKeyDown:={ |nKey| if( nKey=VK_F2 ,oLamcla:busqueda(1,1), (if(nKey=VK_F8,(oLamcla:vGTerc:=pAgreTerCp(oLamcla:vGTerc),oGTerc:refresh()),nil)) ) }
oLamcla:oArtic:bKeyDown:={ |nKey| if( nKey=VK_F2 ,oLamcla:busqueda(19), Nil ) }
oGVend:bKeyDown:={ |nKey| if( nKey=VK_F2 ,oLamcla:busqueda(1,3), (IF(nKey=VK_DOWN,oLamcla:busqueda(1,3),Nil)) ) }
****************************************************
SELE d_rapi
Dbgotop()
oBrwRa := TXBrowse():New( oCuadro )
oBrwRa:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrwRa:nRowDividerStyle := LINESTYLE_LIGHTGRAY
oBrwRa:nColDividerStyle := LINESTYLE_LIGHTGRAY
oBrwRa:nHeaderLines := 1
oBrwRa:nDataLines := 1
oBrwRa:lColDividerComplete := .t.
oBrwRa:lRecordSelector := .t.
oBrwRa:nStretchCol := STRETCHCOL_LAST
oBrwRa:l2007 := .f.
oBrwRa:oFont := oFont5
oBrwRa:blDblClick := {|| pColArti()}
oBrwRa:bKeyDown := {|nKey|iif(nKey == 13,pColArti(),(if(nKey==VK_LEFT,pColArti(),(" "))))}
oCol = oBrwRa:AddCol()
oCol:bStrData = { || d_rapi->Artic }
oCol:cHeader = "Artículo"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth = 92
oCol:= oBrwRa:AddCol()
oCol:bStrData := { || d_rapi->Descr}
oCol:cHeader := "Descripción"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 202
oBrwRa:SetRDD()
oBrwRa:CreateFromResource(4030)
****************************************************
SELE d_camb
Dbgotop()
oLamcla:oBrwCamb := TXBrowse():New( oCuadro )
oLamcla:oBrwCamb:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLamcla:oBrwCamb:nRowDividerStyle := LINESTYLE_LIGHTGRAY
oLamcla:oBrwCamb:nColDividerStyle := LINESTYLE_LIGHTGRAY
oLamcla:oBrwCamb:nHeaderLines := 1
oLamcla:oBrwCamb:nDataLines := 1
oLamcla:oBrwCamb:lColDividerComplete := .t.
oLamcla:oBrwCamb:lRecordSelector := .t.
oLamcla:oBrwCamb:nStretchCol := STRETCHCOL_LAST
oLamcla:oBrwCamb:l2007 := .f.
oLamcla:oBrwCamb:oFont := oFont5
oLamcla:oBrwCamb:bKeyDown := {|nKey|TeclasCa(nKey,oLamcla:oBrwCapt)}
oCol = oLamcla:oBrwCamb:AddCol()
oCol:bStrData = { || d_camb->Artic }
oCol:cHeader = "Artículo"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth = 90
oCol:= oLamcla:oBrwCamb:AddCol()
oCol:bStrData := { || d_camb->Descr}
oCol:cHeader := "Descripción"
oCol:cFooter = "TOTALES ------>"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 180
oCol:= oLamcla:oBrwCamb:AddCol()
oCol:bStrData := { || Transform(nitonu(d_camb->Basei),oLamcla:PIC7)}
oCol:cHeader := "PV Público"
oCol:nHeadStrAlign := AL_RIGHT
oCol:nDataStrAlign := AL_RIGHT
oCol:nWidth := 90
oCol:bFooter = {|| Transform(vCambio,oLamcla:PIC2)}
oCol:nFootStrAlign = 1
oCol:cEditPicture = oLamcla:PIC2
oLamcla:oBrwCamb:SetRDD()
oLamcla:oBrwCamb:CreateFromResource(4025)Estimados, gracias por sus respuestas, me queda claro que con TxBrowse nativo se puede, lo que Yo queria usar es esta sentencia compacta XBROWSER :
XBROWSER aSal TITLE "Seleccione Liquidacion" SETUP ( oBrw:cHeaders := { "Cuenta", "Auxiliar", "Td", "NumDoc", "Liquidac.", "Saldo MN", "Saldo ME" }, oBrw:oWnd:bInit := { |oDlg| oDlg:aControls[ 1 ]:Hide() } )SELECT nLinAct := oBrw:KeyNo
Ahi muestro el Browse de una tabla, preguntaba si con ese mismo tipo de sentencia resumen o compacta, en una o dos lineas mas podia mostrar el segun Browse, tal como los ejemplos que envian, pero con esta forma compacta de hacerlo.
USE CUSTOMER NEW SHARED VIA "DBFCDX"
USE STATES NEW SHARED VIA "DBFCDX"
XBROWSER "CUSTOMER" SETUP ( ;
oBrw:bRClicked := ;
{ |r,c,f,o,a| o:ResetData( a := StrTran( "STATESCUSTOMER", o:cAlias, "" ), ;
o:oWnd:SetText( a ) ) } ;
)
