Search found 37 matches
- 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.
- 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.
Leandro y Antonio, pago realizado.
- 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 !
Y yo desde hace 30 y mis sistemas de respaldo son similares. ¡ No me fio un pelo de la nube !
- 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]?
- 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
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
- 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.
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.
- 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.
No sé si has mirado esto: https://forums.fivetechsupport.com/view ... =unzipfile
El mismo código me funciona también con harbour.
- 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
- 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 ...
METHOD Replace( cOld, cNew ) CLASS TWord
LOCAL oTexto, oFind, oReplace
//::oSelection := ::oActiveDoc // Vikthor
oTexto ...
- 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.
- 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í ...
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í ...
- 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 ...
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 ...
- 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 ...
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 ...
- 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 ...
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 ...
- 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 ...
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 ...