FiveTech Software tech support forums

To delete a record on Array I use this function del_row( oBrowse ) if ! Empty( oBrowse:aArrayData ) ADel( oBrowse:aArrayData, oBrowse:nArrayAt, .t. ) oBrowse:Refresh() endif xbrowser oBrowse:aDeleted <------ return nil it delete the row but then when I need oBrowse:aDeleted I have the ...

... is a color         WITH OBJECT  oBrowse:aCols[6]           :bClrStd := {|| { CLR_WHITE,IIF(oBrowse:aArrayData[ oBrowse:nArrayAt,6],(oBrowse:aArrayData[ oBrowse:nArrayAt,8]),CLR_WHITE)}}           :bEditValue :={ || "" ...

... oBrw:aFilter :=aDataFilter oBrw:aCols[ 3]:nEditType :=EDIT_GET oBrw:aCols[ 3]:bOnPostEdit :={|oCol,xVal,nKey| If(nKey==VK_RETURN,(COMPONENTES[oBrw:nArrayAt][ 3]:=xVal,oBrw:Refresh(),oBrw:MakeTotals()),)} oBrw:aCols[ 3]:nFooterType :=AGGR_SUM oBrw:aCols[ 3]:nFootStrAlign :=AL_RIGHT oBrw:Maketotals() ...

Hello, I think I explained it wrong. If I change the focus from the FIRST field to the LAST field, the data is changed because oBrw:nArrayAt is still correct. On the other hand, if I change the focus by clicking on another row in xbrowse (not the one i am reading in FIRST/LAST),+ the data ...

Hi,

There is an xBrowse with an array. If there is no filter (len(oBrw:filter)=0), then the number of the current line with so
oBrw:nArrayAt. However, if there is a filter, oBrw:nArrayAt will have the value of the filter string. How do I get the current xBrowser line number when using a filter ?

if (nn:= ASCAN( oBrw:aCols. { |o| o:cHeader == "NOMBRE" } )) > 0 oBrw:aArrayData[ oBrw:nArrayAt, nn ] := "nuevo nombre" Instead, please do oBrw:oCol( "NOMBRE" ):varPut( "neuvo nombre" ) Or, even better and recommended: ...

... }, y defino :SetMultiselectCol() al hacer : if (nn:= ASCAN( oBrw:aCols. { |o| o:cHeader == "NOMBRE" } )) > 0 oBrw:aArrayData[ oBrw:nArrayAt, nn ] := "nuevo nombre" .... No lo muestra en el browse, y nn tiene un valor mas, o sea para el arraydata "nn" == 3, cuando ...

... If I make For n= 1 to Len(aPos) nRow:= aPos[n][1] nCol:= aPos[n][2] oBrw1:aCols[nCol]:bClrStd := {|| { CLR_BLACK,IIf(oBrw1:nArrayAt=nRow, nColor1,CLR_WHITE) } } next it colorize only the last nRow , so I think it need to make a codeblock but I not Know How make it Can U ...

... I need to colorize the last 5 element of the second column if are the same of first column from oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,2,3] to oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,2,7] I made the xbrowse with @ 90, 10 XBROWSE  oBrw OF oDlgRitardo  SIZE -10,-80 ...

LOCAL CellRowIndex := This.CellRowIndex LOCAL CellColIndex := This.CellColIndex LOCAL CellValue := This.CellValue CellRowIndex -> oBrw:nArrayAt CellColIndex -> oCol := oBrw:aCols[ n ] CellValue -> nCellValue := oCol:value I believe this is the case in fivewin but I'm not sure

... oBrw:aArraydata local atest:= aFindMax( aVals ) local nRow:= atest[1] local nCol:= atest[2] oBrw:aCols[nCol]:bClrStd := {|| { CLR_BLACK,IIf(oBrw:nArrayAt=nRow, nColor1,nColor2) } } return nRow any suggestion ?

I was able to find solution in sample code

oItems:aArrayData[ oItems:nArrayAt, 1 ]

... cItemFlds, { || AllTrim( FIELD->INVNUM ) = alltrim(nInvoice) }) ) If I delete a record on xbrowse I use ADel( oBrowse:aArrayData, oBrowse:nArrayAt, .t. ) when I must save I made //before the deleted of xbrowse if ! Empty( oBrowse:aDeleted ) oPartRes:ArrayToDBF( oBrowse:aDeleted, cItemFlds,nil ...

... oBrowse:aCols[ 7] :bEditValue := TotalDays(oBrowse) END I tried with ( but not run ok ) Function TotalDays(oBrowse) local nRecord := oBrowse:narrayat local dStart := oBrowse:aArrayData[nRecord][5] local dEnd := oBrowse:aArrayData[nRecord][6] local nGiorni:= (dEnd-dStart)+1 *oBrowse:aCols[7]:VarPut(nGiorni) ...

... n ] If n == 1 oCol:nEditType := EDIT_GET oCol:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,aData[oFld:nOption][oBrw[oFld:nOption]:nArrayAt,1]:=xVal,) } oCol:bEditWhen := { || IF(aData[oFld:nOption][oBrw[oFld:nOption]:nArrayAt,6]=0,.T.,.F.) } ElseIf n == 2 oCol:nEditType := EDIT_GET ...