Search found 561 matches

by Manuel Aranda
Wed Apr 13, 2016 12:24 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Prometheus 2000 no arranca en Windows 10
Replies: 36
Views: 6345

Re: Prometheus 2000 no arranca en Windows 10

Ufff, Ya me extrañaba que no no estuviera implementado. Muchas gracias. :oops:
by Manuel Aranda
Wed Apr 13, 2016 6:33 am
Forum: FiveWin para Harbour/xHarbour
Topic: Prometheus 2000 no arranca en Windows 10
Replies: 36
Views: 6345

Re: Prometheus 2000 no arranca en Windows 10

Antonio, ¡ perfecto ! Seguiré haciendo pruebas.
De momento tengo las necesidades cubiertas para poder sustituir Prometheus por FiveDbu.
Otra cosilla más que sería interesante implementar es poder elegir abrir el fichero con RDD asociado o en su orden natural.
by Manuel Aranda
Tue Apr 12, 2016 5:07 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Prometheus 2000 no arranca en Windows 10
Replies: 36
Views: 6345

Re: Prometheus 2000 no arranca en Windows 10

Antonio, la verdad es que no sé si estaría justificado un índice temporal para una cuestión menor como ésta. Lo que quizá sí que podría implementarse es OrdkeyCount() y si se abre el fichero de datos con un índice asociado que esté creado con !Deleted() mostraría el total de todos los registros meno...
by Manuel Aranda
Mon Apr 11, 2016 9:10 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Prometheus 2000 no arranca en Windows 10
Replies: 36
Views: 6345

Re: Prometheus 2000 no arranca en Windows 10

Antonio,

A mí

Code: Select all

Local nTotalRegistros:= ( cUsaBase )->(OrdKeyCount())
me está dando el total de registros menos los borrados.

¿Será porque los índices están construídos con FOR !DELETED() ?
by Manuel Aranda
Mon Apr 11, 2016 2:07 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Prometheus 2000 no arranca en Windows 10
Replies: 36
Views: 6345

Re: Prometheus 2000 no arranca en Windows 10

Tal vez con OrdKeyCount() ?
by Manuel Aranda
Sun Apr 10, 2016 5:18 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Prometheus 2000 no arranca en Windows 10
Replies: 36
Views: 6345

Re: Prometheus 2000 no arranca en Windows 10

Gracias Cristóbal. De momento no quiero tocar nada por si Antonio implementa más cambios y así no tener que andar tocando el código original.
Antonio, respecto al PACK ya he visto que está implementado. Lo había pasado por alto.
by Manuel Aranda
Sun Apr 10, 2016 4:23 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Prometheus 2000 no arranca en Windows 10
Replies: 36
Views: 6345

Re: Prometheus 2000 no arranca en Windows 10

¡ Sorprendente la rapidez, Antonio ! He realizado algunas pruebas y los resultados han sido correctos. Sólo he encontrado que si se deja la expresión sin contenido se produce un error irrecuperable. Igualmente, si el tipo de dato con el que se alimenta la expresión es distinto al del campo, se produ...
by Manuel Aranda
Sun Apr 10, 2016 9:10 am
Forum: FiveWin para Harbour/xHarbour
Topic: Prometheus 2000 no arranca en Windows 10
Replies: 36
Views: 6345

Re: Prometheus 2000 no arranca en Windows 10

Pues sí. Lo ideal sería poder obtener todo el código y recompilar para que funcione en win7 y win10
by Manuel Aranda
Sat Apr 09, 2016 6:56 am
Forum: FiveWin para Harbour/xHarbour
Topic: Prometheus 2000 no arranca en Windows 10
Replies: 36
Views: 6345

Re: Prometheus 2000 no arranca en Windows 10

Image

Creo que se podría simplificar bastante escribiendo la expresión sin más sin tener que abrir un nuevo cuadro de diálogo.
by Manuel Aranda
Sat Apr 09, 2016 5:42 am
Forum: FiveWin para Harbour/xHarbour
Topic: Prometheus 2000 no arranca en Windows 10
Replies: 36
Views: 6345

Re: Prometheus 2000 no arranca en Windows 10

Una de las razones por las que usaba Prometheus es porque tenía la funcionalidad de "Reemplazo global", muy útil para hacer cambios de datos masivos según alguna condición. No he encontrado esta opción en FiveDBU o no sabido encontrarla. ¿Existe? Si no existiera, Antonio, ¿seria posible im...
by Manuel Aranda
Sun Mar 20, 2016 12:49 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Error TOleAuto():New("Outlook.Application")
Replies: 0
Views: 331

Error TOleAuto():New("Outlook.Application")

Tengo instalado Outlook 2010 en un equipo con win7 64bit y estoy obteniendo este error: oOutLook := TOleAuto():New("Outlook.Application") Error description: Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW Args: [ 1] = C Outlook.Application ¿Pudiera ser por el sistema operativo?
by Manuel Aranda
Thu Mar 17, 2016 9:43 pm
Forum: FiveWin para Harbour/xHarbour
Topic: OT Recomendación diseñador paginas Web
Replies: 2
Views: 403

Re: OT Recomendación diseñador paginas Web

http://www.websitex5.com/es/ No necesitas conocimientos de html. Es muy sencillo y rápido.
by Manuel Aranda
Tue Feb 02, 2016 7:46 am
Forum: FiveWin para Harbour/xHarbour
Topic: Problemas con sepa
Replies: 16
Views: 5529

Re: Problemas con sepa

Desde esta dirección web te puedes descargar un programa para validar el xml que te dirá la linea en la que tienes el error

https://www.cajamar.es/es/empresas/prod ... agos/sepa/
by Manuel Aranda
Wed Jul 01, 2015 5:11 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Algun Ejemplo para crear un reporte PDF
Replies: 3
Views: 541

Re: Algun Ejemplo para crear un reporte PDF

Sería algo así como esto: ..........................           IF lPDF              //              PRINT oPrn FILE "HOJA4.PDF"              REPORT oReport ;              TITLE cTitulo  CENTER ;              FONT oFont1,oFont2, oFont3 ;              HEADER cHeader,cHeader2 CENTER ;        ...
by Manuel Aranda
Wed May 13, 2015 6:33 am
Forum: FiveWin para Harbour/xHarbour
Topic: Deshabilitar pestaña de un folder
Replies: 2
Views: 481

Re: Deshabilitar pestaña de un folder

Por ejemplo, así:

Code: Select all

  IF SUBSTR(cCodiCon,1,1) = "4" .OR. SUBSTR(cCodiCon,1,1) = "5"
     oFolder:aEnable = {.t.,.t.,.t.,.t.}
  ELSE
     oFolder:aEnable = {.t.,.t.,.t.,.f.}
  ENDIF