FiveTech Software tech support forums

Esta es una version viejita de la funcion Val2PrgExp incluida con xharbour, uso esta viejita y no la version actual por alguna razon de peso que no recuedo ahora si recuerdo que me toco buscar por muchos lugares para buscar esta version en particular, encontrandola en el cvs.    //guardar ...

Horacio, a lo mejor te interesa cambiar ASave() por ValToPrg()

... Main()Local aData1,aData2,cBinData    aData1:={"Tom","Dickenson","Harry"}   cBinData:=ASave(aData1)  // Converts Array Data and to Binary and stores in cStr   ? ValType( cBinData )    aData2:=ARead(cBinData)  // ...

... en disco con esta función. Estoy portandolo a MySQL y me gustaría guardar estos arrays en el motor. Si verifico el tipo de dato que devuelve ASave() con type() o ValType() me devuelven "U", pero abrá en MySQL algún tipo de dato que lo soporte ??. Alguien sabe..., Gracias de antemano

... // ----------------------------------------------- static function SelBrwGradClr( oBrw, nPart ) local aGrad := oBrw:oBrush:Cargo[ 1 ] local aSave := AClone( aGrad ) local lVert := oBrw:oBrush:Cargo[ 2 ] local nClr nClr := If( nPart == 1, aGrad[ 1 ][ 2 ], If( nPart == 2, aGrad[ 1 ][ 3 ], ...

I built a program and used the following code to save an array to a memo field: // Convert the parts array to a memo string cQuoPts := aSave( aQuoPar ) And the following line to put it back into an array: // Convert the memo string to a parts array aQuoPar := aRead( oQuo:quopts ) It all worked ...

This is the def file linking TWindow. The file is only 100Kb LIBRARY TESTDLL.DLL EXPORTS _HB_FUN_AREAD @8 ; _HB_FUN_AREAD _HB_FUN_ASAVE @7 ; _HB_FUN_ASAVE _HB_FUN_ATOTEXT @6 ; _HB_FUN_ATOTEXT _HB_FUN_GETALLWIN @2 ; _HB_FUN_GETALLWIN _HB_FUN_GETDROPINFO @14 ; _HB_FUN_GETDROPINFO _HB_FUN_GETWNDDEFAULT...

... := {} <<<===== linea 165 AADD( aArrTmp, xExpresion ) DO CASE CASE UPPER(ALLTRIM(cALIAS)) == "SISTEMA" Sistema->ContenidoE := aSave( aArrTmp[1] ) CASE UPPER(ALLTRIM(cALIAS)) == "SISTSTD" SistStd->ContenidoE := aSave( aArrTmp[1] ) CASE UPPER(ALLTRIM(cALIAS)) == ...

I use ASave and AREAD to store arrays. Now I become this error when i restore the array: Error description: Error BASE/1131 Bound error: array dimension Args: [ 1] = N -25279 Stack Calls =========== Called from: => ARRAY(0) ...

Querido Antonio,

No hay de que disculparse, estoy de acuerdo en simpre seguir ampliando la capacidad de FWH, yo no lo cambio por ningun otro, solo es que estas mudanzas de versiones, hacen a veces volverse loco buscando que paso, de todas maneras adelante con FWH!!!

Saludso,

Gustavo, Los cambios siempre se detallan en el fichero FWH\whatsnew.txt. En la version 8.12 se explico: "* New: We are doing many changes and enhacements for the development of the free Visual IDE." Siempre entendiendo que la primera prioridad es mantener compatibilidad con versiones anter...

Estimado Antonio, Me pregunto cuantos cambios se han realizado y en que funciones, ya que hace 2 semanas estamos probando cada funcion de la aplicación para ver si funciona al igual que con los compiladores viejos. Hay algún registro de los cambios que se realizan de versióna versión del compilador ...

Gustavo,

Si, esos cambios se han hecho para la construccion del IDE visual.

Me alegro de que hayas podido solucionarlo para mantener la compatibilidad.

NO SE SI A ALGUIEN LE PASO PERO ENCONTRE DENTRO DE WINDOWS.PRG function ARead( cInfo ) local nPos := 1, nLen, n local aArray, cType, cBuffer Veran que nPos esta definido como 1, bien cambiando este parametro a 4 funciona correctamente, esto comparado con un WINDOWS.PRG de versiones anteriores, d...

Antonio, Me he encontrado con un error que no entiendo en la migración a FWH 8.12 xh uso ASAVE y AREAD para grabar en archivos planos arrays multidimensionales, ,los grabo pero al leerlos ahora AREAD me devuelve cualquier cosa por ejemplo LOCAL a_pru:={{"","",""},{"","",""},{"","",""}} ...