FiveTech Software tech support forums

... := .T. :lIncrFilter := .F. :nStretchCol := STRETCHCOL_WIDEST :bClrSel := { || { CLR_BLACK, CLR_HGRAY } } :bClrStd := {|| IIf( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 198, 255, 198 ) }, { CLR_BLACK, RGB( 232, 255, 232 ) } ) } END AEval( oBrw:aCols, {|o| o:nHeadStrAlign := AL_CENTER, ...

METHODS: RecCount(), LastRec(), KeyCount(),RecNo(), KeyNo() GoTop(),GoBottom(),GoTo(nRec),KeyGoTo(nKey),Skip(n) FCount(),FieldPos(c),FieldName(),FieldLen(),FieldDec(),FieldType() FieldGet(),FieldPut() SetOrder(cSort,,lDescend) Save() Close() or End() ...

To better explain I can do this:

for each h in oJson
Msginfo( h["keyno"] )
Msginfo( h["name"] )
Msginfo( h["abbr"] )
next

It goes through all of the 7 records in the table.

I am using Microsoft Sql 2016 calling this query:
select keyno,name,abbr from hospital for json auto

It returns JSON which I use HB_JsonDecode(cJson,@oJson)

oJson is an array of hashes.

Can I browse this, if so how do I set it up.

Thanks,

... := 2 // Número de líneas en el footer oBrw:bClrHeader := {|| { nRGB(000,000,000), nRGB(128,255,128) } } oBrw:bClrStd := {|| If( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) } oBrw:bClrFooter := {|| { nRGB(000,000,000), nRGB(150,200,200) ...

... := 2 // Número de líneas en el footer oBrw:bClrHeader := {|| { nRGB(000,000,000), nRGB(128,255,128) } } oBrw:bClrStd := {|| If( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) } oBrw:bClrFooter := {|| { nRGB(000,000,000), nRGB(150,200,200) ...

... COLSIZES 150,150,250; ARRAY acDatos UPDATE FOOTERS LINES AUTOCOLS CELL olbx1:l2007:=.t. olbx1:gotop() olbx1:bClrStd:={|| aClrCol [ olbx1:keyno%2+1]} olbx1:bClrSel:={|| { nRGB( 0, 0,255), aGradBarSel } } olbx1:bClrSelFocus := { || { CLR_BLACK, aGradBarSelFocus } } olbx1:nColDividerStyle ...

oBrw:KeyNo

... etc. oBrw:BookMark := n is equivalent to ( oBrw:cAlias )-> GOTO( n ) for DBF and is equivalent to oBrw:oRs:BookMark := n for ADO Same way oBrw:KeyNo is same is OrdKeyNo() for DBF, AbsolutePosition of ADO, etc XBrowse can handle many types of datasources, which use different methods, functions ...

Buenos días Usando XBrowse, estas 3 opciones para lograr el efecto pijama oBrw:bClrStd:= { || { CLR_Txt, { CLR_Fdo1, CLR_Fdo2 }[ oBrw:KeyNo % 2 +1 ] } } oBrw:bClrStd:= { || { CLR_Txt, if( oBrw:KeyNo % 2 == 0, CLR_Fdo1, CLR_Fdo2 ) } } oBrw:bClrStd:= { || { CLR_Txt, if( int( oBrw:KeyNo / 2 ...

coloring alternate rows we can do oBrw:bClrStd := { || { CLR_BLACK, If( oBrw:KeyNo % 2 == 0, nColor1, nColor2 ) } } how can we color the columns alternately? For a sample if I wish colorized only the 4th colomn I made Function Alternate_Columns(nColor1,oBrw)  ...

... siguiente: - Si en la base de datos la forma de pago es Giro, y está pagada, (Color fuente y fondo normal) :bClrStd:= { || { CLR_BLACK, If( oLbx:KeyNo % 2 == 0, nRGB(242,247,252),nRGB(226,226,208) ) } } - Si en la base de datos la forma de pago es Giro y no está pagada, (Color fuente normal y ...

... If(((aAlias[22])->clasef="1" .and. (aAlias[22])->estado="1" ),{CLR_BLACK,nRGB(250,219,216)}, {CLR_BLACK,If( oLbx:KeyNo % 2 == 0, nRGB(242,247,252),nRGB(226,226,208) )}) } nRGB(242,247,252),nRGB(226,226,208) )}) } Endif Next I

I have the xbrowse with oApp():oGrid:bClrStd := { || { CLR_BLACK, If( oApp():oGrid:KeyNo % 2 == 0, RGB(160,225,255), CLR_WHITE ) } } this is the pijama effect I need to colorize all columns but in different groups I have these groups :SetGroupHeader( "Estrazione", ...

... to do it and anyway I think it always takes the last calculated? I made nRowSelect:=Colorize_Max(oBrw,RGB( 255, 0,0 ),RGB( 252, 235, 220 )) oBrw:KeyNo:= nRowSelect static Function Colorize_Max(oBrw,nColor1,nColor2) local avals:= oBrw:aArraydata local atest:= aFindMax( aVals ) local nRow:= atest[1] ...