FiveTech Software tech support forums

Muchas gracias, Jose

Me has dado la pista que necesitaba. Estaba omitiendo el AUTOSORT.
Aunque en versiones antiguas me funciona correctamente sin autosort.

Buenas tardes,

En versiones antiguas de FW (anteriores a 2023) usando índices CDX al picar en el encabezado de una columna de un xBrowse

oLbx:aCols[2]:cSortOrder := "NUMTRABAJA"
oLbx:aCols[3]:cSortOrder := "NOMBRETRA"
oLbx:aCols[9]:cSortOrder := "DNITRA"
oLbx:aCols[10]:cSortOrder := "NAFTRA ...

Mis queridos compañeros, os deseo a todos SALUD durante todo el año que acabamos de estrenar. Todo lo demás es accesorio y secundario.

Buenas tardes,

Leandro y Antonio, pago realizado.

...."Tengo una aplicación en marcha desde hace 20 años y cada año se amplía, se jubilará conmigo."

Y yo desde hace 30 y mis sistemas de respaldo son similares. ¡ No me fio un pelo de la nube !

Has probado añadiendo un refresh a oBtns[2]?

Hola Armando,

Te pongo ejemplo con 2 BMP,s

//
oCol := oLbxTc:AddCol()
oCol:AddResource("LEVELJ")
oCol:AddResource("LEVELGC")
oCol:bBmpData := { || IIF(SSTC28C->MODOCO="J",1,2 )}
oCol:cHeader := "Ctz."
AADD(aCols,5)
//


No sé si podrás tirar de ahí para lo que pretendes

Hola Javier,

Me alegro enormemente de que estés de nuevo por aquí. Muchas gracias por tus aportaciones desinteresadas y sobre todo por compartir esa positividad ante la adversidad que te está tocando vivir.

Hola Armando,

No sé si has mirado esto: https://forums.fivetechsupport.com/view ... =unzipfile

El mismo código me funciona también con harbour.

¿Has probado a usar esto?

Concluyendo, parece ser que no es válido el mismo código para Harbour que para xHarbour en el método REPLACE. He hecho algunos cambios y ya me funciona en Harbour

METHOD Replace( cOld, cNew ) CLASS TWord

LOCAL oTexto, oFind, oReplace

//::oSelection := ::oActiveDoc // Vikthor

oTexto ...

Karinha, parece que no nos entedemos. No creo que el problema esté el SOCIOS.PRG ya que con xHarbour funciona perfectamente. El problema surge al compilar con harbour. De cualquier manera agradezco enormemente el interés que te has tomado. Muchas gracias.

A la clase TWord original de Sebastián Almirón le cambie las funciones Ole---() por la clase TOleAuto() en el 2003.
La última modificación fue en el 2015, subiré el código fuente de las clases TWord y TExcelS que tengo a GitHub.

Hola Vikthor,

¿ podrías poner la clase TWord modificada por tí ...

Muestra esta FUNCTION (b)IMPRIMIR( 1102 ) completa, pls.

Duda: la WORD.PRG que usas, és de esta version de FWH64 bits?

Slaudos.

La linea 1102 de la función IMPRIMIR es ésta:

.......................
REDEFINE BUTTON oBtn3 ID 209 OF oDlg;
ACTION FusionWord("SOCIOS",aSeleC,cRutaDoc,lPreWord ...

Creo que ya he aislado el problema
Si en el método de la clase TWord comento las lineas oFind:Set ya no se produce el error, pero obviamente no me realiza la fusión de datos que pretendo.

METHOD Replace( cOld, cNew ) CLASS TWord
LOCAL oTexto, oFind, oReplace

//::oSelection := ::oActiveDoc ...