FiveTech Software tech support forums

Querido Gustavo, Aqui lo tienes: (lo he desordenado más aún para que se vea que funciona). Primero ordeno por nIdPadre y luego ordeno por fechas para padres iguales #include "FiveWin.ch"FUNCTION Main()   LOCAL aDatos := { }   AAdd( aDatos, { "a", {...

... = 1 to  nRowMax            FOR j = 1 TO nColMax                nPosi := AScan( aData, { |a|  a[ nPos+2 ]  = numero } )                 IF nPosi = nPos+2    ...

nada aun?

... the frequency using the array. that is in practice how should I do? if I asked in the forum it means that I don't know how to do it I cannot use ascan() on all fields because I have to determine if it is in the first position or the second or the third or the fourth or the fifth this is my structure ...

... el nIdPadre pero calcula mal hasta donde tiene que ordenar, el "nFInal" me pasó lo mismo con un codigo anterior similar a esto usando aScan, no se si son por los => o que. Podrian ayudarme? FUNCTION prueba()   LOCAL aDatos := { }   LOCAL nInicio, nFinal   AAdd( ...

esto funciona, en cambio el Ascan no        FOR EACH o IN ::aTree            IF ( o[ 2 ][ "nId" ] == oQry:FieldGet( "c5" ) )    ...

... anterior. Lo que necesito es saber antes de crear una rama con oItem:add(...) que ya no esté creada esa rama, por lo que necesito verificar con el ascan y buscar dentro del array. el array cotiene esto:    AAdd( ::aTree, { oQry:FieldGet( "c7" ) + "     " + ::cCargo, ...

Gustavo,

No debería ser asi ?

nPosicion := AScan( ::aTree, { | xCelda | xCelda[ 2 ][ "nIdPadre" ] == oQry:FieldGet( "c5" ) } )

ó

nPosicion := AScan( ::aTree, { | xCelda | xCelda[ 2 ][ "nId" ] == oQry:FieldGet( "c4" ) } )

... recorrer ese array para buscar un determinado valor que viene desde una tabla, el valor existe y tambien existe en el array ::aTree pero el aScan me dice siempre que la posicion es cero cuando deberia de ser mayor a cero:         nPosicion := AScan( ::aTree, { ...

... recorrer ese array para buscar un determinado valor que viene desde una tabla, el valor existe y tambien existe en el array ::aTree pero el aScan me dice siempre que la posicion es cero cuando deberia de ser mayor a cero:         nPosicion := AScan( ::aTree, { ...

... NEXT return aBColors FUNCTION FindDupe(aResult,oCol) LOCAL nPosi LOCAL bColor := {255,255,255} LOCAL nCellValue nCellValue := oCol:value nPosi := ASCAN( aResult, { | e | e[ 1 ] = nCellValue } ) IF nPosi > 0 IF aResult[ nPosi ] [ 2 ] > 1 bColor := aResult[ nPosi ] [ 3 ] ENDIF ENDIF RETURN ...

... atemp := {} local nAt,nAp local cNum //check and del to aNatural the numbers are allready on alista For n=1 to Len(aLista) cNum:= alista[n] nAp:= AScan( aNatural, val(cNum) ) IF nAp>0 HB_ADel( aNatural, nAp, .t. ) Endif Next // take a number random nAt := HB_RandomInt( 1, Len( aNatural ) ) ...

My issue is solved.
I build a codeblock which does an aScan on array a1 and so I get my nAt to find the corresponding element of array a2.

Many thanks to MGA who gave me the hint about "oBrw:aCols[2]:value".

Nages sad me I can insert STYLE CBS_DROPDOWN on COMBOBOX when the value is numeric nNaturaIva: = ASCAN(aNatura, { | a | alltrim(a[ 1 ]) == alltrim("N1") } ) @ 140, 120 COMBOBOX aGet[4] VAR nNaturaIva ITEMS aItems SIZE 450,24 PIXEL OF oDlg STYLE CBS_DROPDOWN UPDATE ...

Usa hb_ascan() si existe te devuelve la posicion si no 0

if hb_ascan(...) > 0
msg( "existe" )