FiveTech Software tech support forums

... el foro pero no vi nada parecido a una rutina de dos browses en ARRAY , solo veo uno, de eso no tengo ningun problema, pero...en segundo browse oBrw2 , no me muestra nada ....solo la primera columna de datos y tampoco me refresca datos cada que selecciono con la flecha de cada cuenta,y no se ...

... el foro pero no vi nada parecido a una rutina de dos browses en ARRAY , solo veo uno, de eso no tengo ningun problema, pero...en segundo browse oBrw2 , no me muestra nada ....solo la primera columna de datos y tampoco me refresca datos cada que selecciono con la flecha de cada cuenta,y no se ...

Antonio,

thank You very much for the info.
I noticed a response of bchanged with adding this line, but there is a error.

oBrw2:lColChangeNotify := .T.

from class xbrowse :
DATA lColChangeNotify AS LOGICAL INIT .f.
// if true bChange is evaluated when col is changed

Best Regards
Uwe

Hello, it seems, oBrw2:bChange only works VERTICAL. Changing the Col-pos with the KEYBOARD, nothing happens. oBrw2:bChange := { | nRow, nCol | ( nRPos := oBrw2:KeyNo(), ; nCPos := oBrw2:SelectedCol():nCreationOrder, ; SEL_VKEYS(nRPos,nCPos, ...

... @ 245, 240 BTNBMP oBtn2 OF oDlg ; SIZE 50, 25 PIXEL; NOBORDER ; PROMPT "&Excel " ; ACTION ( IIF( oFld:nOption = 1, oBrw1:ToExcel(), oBrw2:ToExcel() ), ; // ASC or VKEYS SETFOCUSAFTER( FINDWINDOW( "XLMAIN", 0 ) ) ) ; FILENAME c_path1 + "Excel.Bmp" ; FONT oFont2 ...

... a[ 1 ] ), 1, nLen ) } ) ) != 0 nKey := ALLTRIM( STR( aTable2[nAt][2] ) ) ENDIF // Jump to the xBrowse Column and Row IF nAt < 25 // Group1 oBrw2:nColSel := 1 oBrw2:nArrayAt := nAt ENDIF IF nAt > 24 .and. nAt < 48 // Group2 oBrw2:nColSel := 3 oBrw2:nArrayAt := nAt - 24 ENDIF IF nAt ...

... @ 245, 240 BTNBMP oBtn2 OF oDlg ; SIZE 50, 25 PIXEL; NOBORDER ; PROMPT "&Excel " ; ACTION IIF( oFld:nOption = 1, oBrw1:ToExcel(,1), oBrw2:ToExcel() ) ; FILENAME c_path1 + "Excel.Bmp" ; FONT oFont1 2007 ; LEFT oBtn2:lTransparent := .t. oBtn2:cToolTip = { "Export " ...

... "xbrowse.ch"PROC MAIN()********************LOCAL oDlgLOCAL WinTit := "Test BrwFitSize"LOCAL oBrw1 , oBrw2 , aData1 , aData2 , aDataaData1 := {"el 1","el 2", "el 3"}aData2 := {{"el 1",{"el ...

... local aPnels := {} local aClrPnels := {} local oBrush1 local cPanel := "wcia21.bmp" //"wcia2.bmp" Local oBrw1 Local oBrw2 hDC := GetDeskTopWindow() aRes := GetClientRect( hDC ) nAlto := aRes[3] nAncho := aRes[4] hDC := Nil aRes := Nil Do Case Case nAncho <= 1366 ...

... oBrw1 Control. aoGET[5]:blostfocus :={|| aoGET[5]:ojump := obrw1 , obrw1:setfocus() ,obrw1:refresh() } @120,10 XBROWSE oBrw1 @220,10 XBROWSE oBrw2 @410,10 BUTTONBMP aoGET[ 11 ] PROMPT "&Save" @410,150 BUTTONBMP aoGET[ 12 ] PROMPT "&Quit" regards, kok

... var g5 --> Control is moving to "Save" Button but it should move to Browse oBrw1 Control. @120,10 XBROWSE oBrw1 @220,10 XBROWSE oBrw2 @410,10 BUTTONBMP aoGET[ 11 ] PROMPT "&Save" @410,150 BUTTONBMP aoGET[ 12 ] PROMPT "&Quit" Thanks Shridhar

... = "Nombre de la Cuenta" oCol1:nWidth = 350 oBrw1:CreateFromResource(180) oBrw1:SetRDD() oBrw1:bChange:={|| Saldos(cAlias2,cAlias1), oBrw2:MakeTotals(), oBrw2:Refresh() } //esta funct es la que filtra el oBrw2, segun seleccion en el oBrw1 //******* BROWSE NUMERO DOS ****** oBrw2 := ...

... = "Nombre de la Cuenta" oCol1:nWidth = 350 oBrw1:CreateFromResource(180) oBrw1:SetRDD() oBrw1:bChange:={|| Saldos(cAlias2,cAlias1), oBrw2:MakeTotals(), oBrw2:Refresh() } //esta funct es la que filtra el oBrw2, segun seleccion en el oBrw1 //******* BROWSE NUMERO DOS ****** oBrw2 := ...

... que no me refresca los totales de cargo y abono, en segundo Browse , adjunto codigo, pantalla no recuerdo como anexarle. Tengo la variable : oBrw2:aCols[6]:nTotal := Trans( aSum[1,2],"99,999,999.99") // Total Cargo Si le pongo asi : oBrw2:aCols[6]:bFooter := Trans( aSum[1,2],"99,999,999.99") ...

... 455 BTNBMP oBtn[15] ; SIZE 32, 11 OF oDlg1 PIXEL 2007 ROUND ; PROMPT "C 50%" ; FONT oTxtfont ; ACTION ( nCPos := INT(nSGet[3] * 0.5), oBrw2:SelectCol( Min( nCPos, Len( oBrw2:aCols ) ), .t. ), ; oBrw2:Refresh(), oSay4:Refresh(), nObject := 0, oSay6:Refresh() ) oBtn[15]:cTooltip := "Jump ...