FiveTech Software tech support forums

El alto de la ventana ha cambiado, de todas maneras estaría bueno que se pueda manipular en mi caso aun sigue siendo chico para que me muestre todos los datos que necesito. esta dentro de un for each y cada vez que muestra la ventana tengo que cambiar el tamaño (que es lo que quiero ...

me alegro que sigas avanzando

Porque quiero hacer esto?
porque quiero insertar el nuevo item que se crea por sobre o debajo de la fecha inmediata (menor o mayor) entonces con esto
me livero estar "ordenando" el tree.

ya voy a postear el cambio en el github

METHOD BuscaPos( a, nVal ) CLASS TAbm   LOCAL nResult:= 0   LOCAL cMenor:= ""   IF Len( a ) > 0      AScan( ASort( AClone( a ) ), ;             { | n, nPos | ;               IF( nVal < CToD( n:cargo[ "fecha" ] ),...

lo cual quiere decir que ascan(a, n:cargo["fecha"]) esta devolviendo cero

Por lo que veo, estas usando objetos en vez de números, por eso AScan() devuelve cero, no encuentra lo que buscas

Prueba con AScan( a, { | o | o:Cargo[ "fecha" ] == n:Cargo[ "fecha" ] } )

METHOD BuscaPos( a, nVal ) CLASS TAbm   LOCAL nResult:= 0   LOCAL cMenor:= ""   IF Len( a ) > 0      AScan( ASort( AClone( a ) ), ;             { | n, nPos | ; ...

AScan( ASort( AClone( a ) ), { | n, nPos | n := cToD(a:cargo["fecha"]), If( nVal < n, nResult := AScan( a, n) ) - 1,), cToD(n) > nVal } )

estás seguro de que ese código te funciona bien ?

Gracias a ambos. tomo como ejemplo este: AScan( ASort( AClone( a ) ), { | n, nPos | If( nVal < n, nResult := AScan( a, n ) - 1,), n > nVal } ) en mi caso "n" voy a usarlo asi: cToD(a:cargo["fecha"]) Mi consulta: para que el codigo no quede tan largo como: AScan( ASort&#...

Buenos dias amigos, esto para obtener el valo minimo de una array Function AMIN(aDats, lCero, nIni, nPos)local nMin := 0DEFAULT lCero := .t.DEFAULT nINi  := 1DEFAULT nPos  := 0IF VALTYPE(aDats) <> "A"  Return(0)EndIfnPos := If(nPos = 0, LEN&...

gracias

veo que me falta muchisimo para aprender a utilizar estas funciones. gracias.

function Main()   local a := { 8, 7, 10, 12, 5 }      ? BuscaPos( a, 3 )return nilfunction BuscaPos( a, nVal )   local nResult       AScan( ASort( AClone( a ) ), { | n, nPos | If&#...

Hola.
Para no hacer un bucle, puedo usar un eval para obtener la posicion del valor mas chico de un array con respecto a un valor dado?
ejempo:

array:
8
7
10
12
5

valor dado: 3
valor que deberia de obtener: 4

Creo que tendrías que poner el color según el valor mas chico para cada caso Suponte que tienes la tabla con los siguientes campos: data1, data2, data3, valor1, valor2, valor3, valor4 , donde valor1 a valor4 son los que quieres comparar #include "FiveWin.ch"//----------------------------------------------------------------//function ...

... FWH 17.09   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)   Windows version: 6.2, Build 9200   Windows 10.  He creado un PRG chico donde copie unos combos funcionales y le agregue un boton y una funcion, he realizado todo tipo de pruebas y no se actualiza el combobox al volver ...

... e estou com problemas referente a conexão no servidor linux Utilizando a função: AdsConnect60( //192.168.1.27:6262/home/sg/bases/sguario/ser.ads.chico/sgsdatabase.add, 7, "ADSSYS" ,"" , 0, @hConnection ) Error 5004: Either ACE could not find the specified file, or you do not ...