Search found 37 matches

by Manuel Aranda
Wed Jan 01, 2025 11:24 am
Forum: FiveWin para Harbour/xHarbour
Topic: A toda la familia FW
Replies: 15
Views: 630

Re: A toda la familia FW

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.
by Manuel Aranda
Sun Aug 18, 2024 10:24 am
Forum: FiveWin para Harbour/xHarbour
Topic: Propuesta para que hagan un curso virtual FW
Replies: 302
Views: 44809

Re: Propuesta para que hagan un curso virtual FW

Buenas tardes,

Leandro y Antonio, pago realizado.
by Manuel Aranda
Sun Jun 02, 2024 9:59 am
Forum: FiveWin para Harbour/xHarbour
Topic: Respaldar en la nube, cual?
Replies: 19
Views: 4416

Re: Respaldar en la nube, cual?

...."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 ! :D
by Manuel Aranda
Wed Jan 17, 2024 8:21 am
Forum: FiveWin para Harbour/xHarbour
Topic: Mostrar / ocultar boton
Replies: 12
Views: 1393

Re: Mostrar / ocultar boton

Has probado añadiendo un refresh a oBtns[2]?
by Manuel Aranda
Tue Jan 02, 2024 11:23 am
Forum: FiveWin para Harbour/xHarbour
Topic: BMP en xBrowse?
Replies: 7
Views: 1236

Re: BMP en xBrowse?

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
by Manuel Aranda
Thu Nov 30, 2023 11:10 am
Forum: FiveWin para Harbour/xHarbour
Topic: De vuelta tras 10 años por enfermedad.[Javier LLoris]
Replies: 18
Views: 4469

Re: De vuelta tras 10 años por enfermedad.[Javier LLoris]

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.
by Manuel Aranda
Wed Oct 11, 2023 8:58 pm
Forum: FiveWin para Harbour/xHarbour
Topic: hb_UnZipFile con Harbour
Replies: 10
Views: 1007

Re: hb_UnZipFile con Harbour

Hola Armando,

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

El mismo código me funciona también con harbour.
by Manuel Aranda
Mon Aug 07, 2023 2:17 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Diferencia entre 2 números iguales. Por Que?
Replies: 7
Views: 752

Re: Diferencia entre 2 números iguales. Por Que?

¿Has probado a usar esto?

Code: Select all | Expand


 if (nIngEfe-nEgrEfe) == nTotArq

 
by Manuel Aranda
Sun Jul 16, 2023 7:53 pm
Forum: FiveWin para Harbour/xHarbour
Topic: De xHarbour a Harbour error en TWord (Resuelto...casi)
Replies: 12
Views: 958

Re: De xHarbour a Harbour error en TWord

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 ...
by Manuel Aranda
Sat Jul 15, 2023 6:51 pm
Forum: FiveWin para Harbour/xHarbour
Topic: De xHarbour a Harbour error en TWord (Resuelto...casi)
Replies: 12
Views: 958

Re: De xHarbour a Harbour error en TWord

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.
by Manuel Aranda
Sat Jul 15, 2023 6:47 pm
Forum: FiveWin para Harbour/xHarbour
Topic: ayuda con Clase TWord
Replies: 15
Views: 2339

Re: ayuda con Clase TWord

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í ...
by Manuel Aranda
Sat Jul 15, 2023 5:23 pm
Forum: FiveWin para Harbour/xHarbour
Topic: De xHarbour a Harbour error en TWord (Resuelto...casi)
Replies: 12
Views: 958

Re: De xHarbour a Harbour error en TWord

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 ...
by Manuel Aranda
Sat Jul 15, 2023 12:06 pm
Forum: FiveWin para Harbour/xHarbour
Topic: De xHarbour a Harbour error en TWord (Resuelto...casi)
Replies: 12
Views: 958

Re: De xHarbour a Harbour error en TWord

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 ...
by Manuel Aranda
Sat Jul 15, 2023 7:53 am
Forum: FiveWin para Harbour/xHarbour
Topic: De xHarbour a Harbour error en TWord (Resuelto...casi)
Replies: 12
Views: 958

Re: De xHarbour a Harbour error en TWord

Este es el error que me da ahora

Compiler version: Harbour 3.2.0dev (r2008190002)
FiveWin version: FWH 23.04
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows 10 64 Bits, version: 6.2, Build 9200

Time from start: 0 hours 0 mins 8 secs
Error occurred at: 15-07-2023, 13:27:45 ...
by Manuel Aranda
Fri Jul 14, 2023 5:54 pm
Forum: FiveWin para Harbour/xHarbour
Topic: De xHarbour a Harbour error en TWord (Resuelto...casi)
Replies: 12
Views: 958

Re: De xHarbour a Harbour error en TWord

Hola Karinha, gracias por tu interés, pero sigue dando el mismo error (Me refiero a Harbour, con xHarbour va perfecto)


Time from start: 0 hours 0 mins 38 secs
Error occurred at: 14-07-2023, 19:50:58
Error description: Error BASE/1070 Argument error: ==
Args:
[ 1] = P 0x5A61C44
[ 2] = N 0 ...