From slibre en natio.co.cu Wed Feb 1 22:29:10 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Wed, 1 Feb 2017 16:29:10 -0500 Subject: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit Message-ID: <86D325C151DE4C96BAC102262C74757A@natio.co.cu> Baje los .deb de sourceforge para 32 bit y los instale en una PC con Devuan versión 1 de 32 bit Todo se instalo perfectamente, pero a la hora de instalar el Lazreport me da el siguiente error: Compile package lazreport 0.9.9: Código de salida 256, Errores: 1 lr_about.pas(18,22) Fatal: no puedo encontrar LResourcesutilizado por LR_About, ppu incompatible=/usr/share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu, paquete LCLBase Como podré solucionar este problema? Desde ya Gracias ======== | ISMAEL | ======== From slibre en citricos.co.cu Wed Feb 1 22:21:05 2017 From: slibre en citricos.co.cu (Ismael L. Donis Garcia) Date: Wed, 1 Feb 2017 16:21:05 -0500 Subject: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit Message-ID: Baje los .deb de sourceforge para 32 bit y los instale en una PC con Devuan versión 1 de 32 bit Todo se instalo perfectamente, pero a la hora de instalar el Lazreport me da el siguiente error: Compile package lazreport 0.9.9: Código de salida 256, Errores: 1 lr_about.pas(18,22) Fatal: no puedo encontrar LResourcesutilizado por LR_About, ppu incompatible=/usr/share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu, paquete LCLBase Como podré solucionar este problema? Desde ya Gracias ======== | ISMAEL | ======== From r.bidegain en gmail.com Thu Feb 2 13:28:40 2017 From: r.bidegain en gmail.com (Rafael Bidegain) Date: Thu, 2 Feb 2017 09:28:40 -0300 Subject: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit In-Reply-To: <86D325C151DE4C96BAC102262C74757A@natio.co.cu> References: <86D325C151DE4C96BAC102262C74757A@natio.co.cu> Message-ID: Hola Ismael Lo mas fácil es buscar el archivo resources.ppu cd /usr find . -name resources.ppu después de eso (suponé que lo encontrás en /usr/lib/lazarus/1.6/lcl/units/i386-linux/lresources.ppu) hacés un link a donde lo está buscando Lazreport sudo ln /usr/share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu /usr/lib/lazarus/1.6/lcl/units/i386-linux/lresources.ppu El día 1 de febrero de 2017, 18:29, Ismael L. Donis Garcia via Lazarus-es escribió: > Baje los .deb de sourceforge para 32 bit y los instale en una PC con Devuan > versión 1 de 32 bit > Todo se instalo perfectamente, pero a la hora de instalar el Lazreport me da > el siguiente error: > > Compile package lazreport 0.9.9: Código de salida 256, Errores: 1 > lr_about.pas(18,22) Fatal: no puedo encontrar LResourcesutilizado por > LR_About, ppu > incompatible=/usr/share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu, > paquete LCLBase > > Como podré solucionar este problema? > > Desde ya Gracias > ======== > | ISMAEL | > ======== > > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es -- Rafael Bidegain Ya que los cuerdos no hablan, hablará el loco. (The Fool, Padraic Pearse) # yo quiero educación libre. ¡YA! From slibre en natio.co.cu Thu Feb 2 14:43:10 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Thu, 2 Feb 2017 08:43:10 -0500 Subject: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit References: <86D325C151DE4C96BAC102262C74757A@natio.co.cu> Message-ID: <5FBD265F01984E8995A1A4857830E92C@natio.co.cu> No el problema es que el archivo lresources.ppu si esta en: /usr/share/lazarus/1.6.2/lcl/units/i386-linux root en vir-pc-dev1:/usr# find . -name lresources.ppu ./share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu root en vir-pc-dev1:/usr# La carpeta /usr/lib/lazarus no existe en el sistema. Existe un error sulucionado el día 27/1/2017 bien parecido, pero en 64 bit y con otra librería: 0031279: Lazarus 1.6.2 DEB ruined and not functional Description Fresh installed Debian and Lazarus. 1. all PPUs has version 173 instead required 172 (using ppudump): Analyzing interfaces.ppu (v173) Unsupported PPU version 173. Expecting PPU version 172. root en debian:/usr/share/lazarus/1.6.2/lcl/units/x86_64-linux/gtk2# 2. as result: IDE failed build and run default empty form application: project1.lpr(9,3) Fatal: Cannot find Interfaces used by Project1. Make sure all ppu files of a package are in its output directory. ppu in wrong directory=/usr/share/lazarus/1.6.2/lcl/units/x86_64-linux/gtk2/interfaces.ppu. Clean up package "LCL".. and 3. IDE can not even rebuild itself: lazarus.pp(54,3) Fatal: Cannot find Interfaces used by Lazarus, incompatible ppu=/usr/share/lazarus/1.6.2/lcl/units/x86_64-linux/gtk2/interfaces.ppu, package LCL What a shame you not even testing distros before release. Pls fix ASAP. Saludos Reiterados ======== | ISMAEL | ======== ----- Original Message ----- From: "Rafael Bidegain via Lazarus-es" To: "Spanish version of Lazarus List" Cc: "Rafael Bidegain" Sent: Thursday, February 02, 2017 7:28 AM Subject: Re: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit > Hola Ismael > > Lo mas fácil es buscar el archivo resources.ppu > cd /usr > find . -name resources.ppu > > después de eso (suponé que lo encontrás en > /usr/lib/lazarus/1.6/lcl/units/i386-linux/lresources.ppu) > hacés un link a donde lo está buscando Lazreport > > sudo ln /usr/share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu > /usr/lib/lazarus/1.6/lcl/units/i386-linux/lresources.ppu > > El día 1 de febrero de 2017, 18:29, Ismael L. Donis Garcia via > Lazarus-es escribió: >> Baje los .deb de sourceforge para 32 bit y los instale en una PC con >> Devuan >> versión 1 de 32 bit >> Todo se instalo perfectamente, pero a la hora de instalar el Lazreport me >> da >> el siguiente error: >> >> Compile package lazreport 0.9.9: Código de salida 256, Errores: 1 >> lr_about.pas(18,22) Fatal: no puedo encontrar LResourcesutilizado por >> LR_About, ppu >> incompatible=/usr/share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu, >> paquete LCLBase >> >> Como podré solucionar este problema? >> >> Desde ya Gracias >> ======== >> | ISMAEL | >> ======== >> >> >> _______________________________________________ >> Lazarus-es mailing list >> Lazarus-es en lists.lazarus-ide.org >> http://lists.lazarus-ide.org/listinfo/lazarus-es > > > > -- > Rafael Bidegain > > Ya que los cuerdos no hablan, hablará el loco. > (The Fool, Padraic Pearse) > > # yo quiero educación libre. ¡YA! > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > From r.bidegain en gmail.com Thu Feb 2 16:58:11 2017 From: r.bidegain en gmail.com (Rafael Bidegain) Date: Thu, 2 Feb 2017 12:58:11 -0300 Subject: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit In-Reply-To: <5FBD265F01984E8995A1A4857830E92C@natio.co.cu> References: <86D325C151DE4C96BAC102262C74757A@natio.co.cu> <5FBD265F01984E8995A1A4857830E92C@natio.co.cu> Message-ID: 2017-02-02 10:43 GMT-03:00 Ismael L. Donis Garcia via Lazarus-es : > No el problema es que el archivo lresources.ppu si esta en: > /usr/share/lazarus/1.6.2/lcl/units/i386-linux > > root en vir-pc-dev1:/usr# find . -name lresources.ppu > ./share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu > root en vir-pc-dev1:/usr# > > La carpeta /usr/lib/lazarus no existe en el sistema. podés crearla con sudo mkdir -p usr/share/lazarus/1.6.2/lcl/units/i386-linux luego hacés el link -- Rafael Bidegain Ya que los cuerdos no hablan, hablará el loco. (The Fool, Padraic Pearse) # yo quiero educación libre. ¡YA! From slibre en natio.co.cu Thu Feb 2 17:32:08 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Thu, 2 Feb 2017 11:32:08 -0500 Subject: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit References: <86D325C151DE4C96BAC102262C74757A@natio.co.cu> <5FBD265F01984E8995A1A4857830E92C@natio.co.cu> Message-ID: Vuelve a leer lo que respondí: El archivo está donde lo pide Lazarus. Incluso cuando mandas a compilar a lazarus te da el error y te abre la unit LR_About y si das control + click del mause en la referencia a la librería te abre el archivo LResources perfectamente. Lo que no le da la gana a Lazarus compilar. Tu me habias comentado: >después de eso (suponé que lo encontrás en > /usr/lib/lazarus/1.6/lcl/units/i386-linux/lresources.ppu) > hacés un link a donde lo está buscando Lazreport Pero no está en /usr/lib/lazarus/1.6/lcl/units/i386-linux Está donde mismo lo busca Lazarus, ósea en: /usr/share/lazarus/1.6.2/lcl/units/i386-linux Como te dije antes si dentro del ide de lazarus aprieto control + click el mismo lazarus me lo abre pero no le da la gana compilar. Saludos Reiterados ======== | ISMAEL | ======== ----- Original Message ----- From: "Rafael Bidegain via Lazarus-es" To: "Spanish version of Lazarus List" Cc: "Rafael Bidegain" Sent: Thursday, February 02, 2017 10:58 AM Subject: Re: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit > 2017-02-02 10:43 GMT-03:00 Ismael L. Donis Garcia via Lazarus-es > : >> No el problema es que el archivo lresources.ppu si esta en: >> /usr/share/lazarus/1.6.2/lcl/units/i386-linux >> >> root en vir-pc-dev1:/usr# find . -name lresources.ppu >> ./share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu >> root en vir-pc-dev1:/usr# >> >> La carpeta /usr/lib/lazarus no existe en el sistema. > > podés crearla con > sudo mkdir -p usr/share/lazarus/1.6.2/lcl/units/i386-linux > > luego hacés el link > > > > -- > Rafael Bidegain > > Ya que los cuerdos no hablan, hablará el loco. > (The Fool, Padraic Pearse) > > # yo quiero educación libre. ¡YA! > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > From jesusrmx en gmail.com Thu Feb 2 19:47:44 2017 From: jesusrmx en gmail.com (Jesus Reyes A.) Date: Thu, 02 Feb 2017 12:47:44 -0600 Subject: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit In-Reply-To: <86D325C151DE4C96BAC102262C74757A@natio.co.cu> References: <86D325C151DE4C96BAC102262C74757A@natio.co.cu> Message-ID: On Wed, 01 Feb 2017 15:29:10 -0600, Ismael L. Donis Garcia via Lazarus-es wrote: > Baje los .deb de sourceforge para 32 bit y los instale en una PC con > Devuan versión 1 de 32 bit > Todo se instalo perfectamente, pero a la hora de instalar el Lazreport > me da el siguiente error: > > Compile package lazreport 0.9.9: Código de salida 256, Errores: 1 > lr_about.pas(18,22) Fatal: no puedo encontrar LResourcesutilizado por > LR_About, ppu > incompatible=/usr/share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu, > paquete LCLBase > > Como podré solucionar este problema? > > Desde ya Gracias > ======== > | ISMAEL | > ======== Todo depende de cuando has descargado los archivos .deb, de acuerdo con las notas del bugreport http://bugs.freepascal.org/view.php?id=31279 Mattias dijo que había subido un nuevo archivo que corrige algunos problemas, el nuevo archivo esta disponible desde el 26 de enero del 2017. Jesus Reyes A. From jesusrmx en gmail.com Thu Feb 2 19:50:12 2017 From: jesusrmx en gmail.com (Jesus Reyes A.) Date: Thu, 02 Feb 2017 12:50:12 -0600 Subject: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit In-Reply-To: References: <86D325C151DE4C96BAC102262C74757A@natio.co.cu> Message-ID: On Thu, 02 Feb 2017 12:47:44 -0600, Jesus Reyes A. wrote: > On Wed, 01 Feb 2017 15:29:10 -0600, Ismael L. Donis Garcia via > Lazarus-es wrote: > >> Baje los .deb de sourceforge para 32 bit y los instale en una PC con >> Devuan versión 1 de 32 bit >> Todo se instalo perfectamente, pero a la hora de instalar el Lazreport >> me da el siguiente error: >> >> Compile package lazreport 0.9.9: Código de salida 256, Errores: 1 >> lr_about.pas(18,22) Fatal: no puedo encontrar LResourcesutilizado por >> LR_About, ppu >> incompatible=/usr/share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu, >> paquete LCLBase >> >> Como podré solucionar este problema? >> >> Desde ya Gracias >> ======== >> | ISMAEL | >> ======== > > > Todo depende de cuando has descargado los archivos .deb, de acuerdo con > las notas del bugreport http://bugs.freepascal.org/view.php?id=31279 > Mattias dijo que había subido un nuevo archivo que corrige algunos > problemas, el nuevo archivo esta disponible desde el 26 de enero del > 2017. > Perdón, ya vi que los archivos corregidos son para amd64 y tu tienes el problema en un sistema de 32 bits. :( Jesus Reyes A. From slibre en natio.co.cu Thu Feb 2 22:04:51 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Thu, 2 Feb 2017 16:04:51 -0500 Subject: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit References: <86D325C151DE4C96BAC102262C74757A@natio.co.cu> Message-ID: <113C3B55A08342E2A62DBF933C4D663F@natio.co.cu> Si parece ser que debe ser un problema parecido o el mismo que aun no se ha corregido en 32 bit. No me quedará otra que esperar a que lo solucionen. El archivo que está en el sitio de descarga tiene fecha 03/12/2016 Saludos Cordiales ======== | ISMAEL | ======== ----- Original Message ----- From: "Jesus Reyes A. via Lazarus-es" To: "Spanish version of Lazarus List" Cc: "Jesus Reyes A." Sent: Thursday, February 02, 2017 1:50 PM Subject: Re: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit > On Thu, 02 Feb 2017 12:47:44 -0600, Jesus Reyes A. > wrote: > >> On Wed, 01 Feb 2017 15:29:10 -0600, Ismael L. Donis Garcia via >> Lazarus-es wrote: >> >>> Baje los .deb de sourceforge para 32 bit y los instale en una PC con >>> Devuan versión 1 de 32 bit >>> Todo se instalo perfectamente, pero a la hora de instalar el Lazreport >>> me da el siguiente error: >>> >>> Compile package lazreport 0.9.9: Código de salida 256, Errores: 1 >>> lr_about.pas(18,22) Fatal: no puedo encontrar LResourcesutilizado por >>> LR_About, ppu >>> incompatible=/usr/share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu, >>> paquete LCLBase >>> >>> Como podré solucionar este problema? >>> >>> Desde ya Gracias >>> ======== >>> | ISMAEL | >>> ======== >> >> >> Todo depende de cuando has descargado los archivos .deb, de acuerdo con >> las notas del bugreport http://bugs.freepascal.org/view.php?id=31279 >> Mattias dijo que había subido un nuevo archivo que corrige algunos >> problemas, el nuevo archivo esta disponible desde el 26 de enero del >> 2017. >> > > Perdón, ya vi que los archivos corregidos son para amd64 y tu tienes el > problema en un sistema de 32 bits. > :( > > Jesus Reyes A. > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > From alfonsoariaslemas en gmail.com Fri Feb 3 01:56:41 2017 From: alfonsoariaslemas en gmail.com (Alfonso Arias Lemas) Date: Thu, 2 Feb 2017 23:56:41 -0100 Subject: [Lazarus-es] Socket. Message-ID: <000501d27db8$62e44ff0$28acefd0$@gmail.com> Hola compañeros. Alguien ha trabajado ya con Sockets. Instale Indy y ya conseguí trabajar con FTP y envió de Email más necesito hacer clientes y servidores socket Alguna sugerencia o ejemplo?? Saludos. ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Fri Feb 3 18:34:38 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Fri, 3 Feb 2017 12:34:38 -0500 Subject: [Lazarus-es] Dibujar linea verticar en reporte de lazreport Message-ID: <3CF4EFEB98364F6B87E8D4D6F05D3C46@natio.co.cu> Estoy tratando de diseñar un reporte con Lazreport y no encuentro la forma de que me imprima una línea que comience en el encabezado de la página continúe por todo el detalle y finalice en un ponto determinado de la banda del pie del maestro de detalles. Ósea que se dibuje en 3 bandas - Parta de un punto determinado del encabezado de la página - Continúe por todo el detalle de la página - Finalice en un punto determinado de la banda Pie maestro Es posible hacer esto? Como? Gracias desde ya ======== | ISMAEL | ======== ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Fri Feb 3 18:37:45 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Fri, 3 Feb 2017 12:37:45 -0500 Subject: [Lazarus-es] Dibujar linea verticar en reporte de lazreport Message-ID: <26086F3A883F42BEB86204B958EEA818@natio.co.cu> Estoy tratando de diseñar un reporte con Lazreport y no encuentro la forma de que me imprima una línea que comience en el encabezado de la página continúe por todo el detalle y finalice en un ponto determinado de la banda del pie del maestro de detalles. Ósea que se dibuje en 3 bandas - Parta de un punto determinado del encabezado de la página - Continúe por todo el detalle de la página - Finalice en un punto determinado de la banda Pie maestro Es posible hacer esto? Como? Gracias desde ya ======== | ISMAEL | ======== ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jesusrmx en gmail.com Fri Feb 3 18:58:57 2017 From: jesusrmx en gmail.com (Jesus Reyes A.) Date: Fri, 03 Feb 2017 11:58:57 -0600 Subject: [Lazarus-es] Dibujar linea verticar en reporte de lazreport In-Reply-To: <26086F3A883F42BEB86204B958EEA818@natio.co.cu> References: <26086F3A883F42BEB86204B958EEA818@natio.co.cu> Message-ID: On Fri, 03 Feb 2017 11:37:45 -0600, Ismael L. Donis Garcia via Lazarus-es wrote: >> Estoy tratando de diseñar un reporte con Lazreport y no encuentro la >> forma de que me imprima una línea que comience en el encabezado de la >> página continúe por todo el detalle y finalice en >un ponto determinado >> de la banda del pie del maestro de detalles. >Ósea que se dibuje en 3 bandas > - Parta de un punto determinado del encabezado de la página > - Continúe por todo el detalle de la página > - Finalice en un punto determinado de la banda Pie maestro >Es posible hacer esto? > Como? >Gracias desde ya > ======== > | ISMAEL | > ======== Intenta este procedimiento: 1. Coloca la banda encabezado de manera que su parte superior quede alineada con el borde superior de la hoja. 2. Dibuja la línea dentro del encabezado. 3. Selecciona la banda con un clic. 4. Selecciona la línea que acabas de dibujar con SHIFT+clic. 5. Presiona el botón de alinear objetos a la parte inferior (último botón de la segunda barra de la paleta de alineación que se encuentra en el borde derecho del diseñador). 6. Coloca la banda pie de página de manera que su parte inferior quede alineada con el borde inferior de la página. 7. Dibuja la línea dentro del pie de pagina. 8. Selecciona la banda con un clic. 9. Selecciona la línea con SHIFT+clic. 10. Presiona el botón de alinea objetos a la parte superior (primer botón de la segunda barra de la paleta de alineación). 11. Dibuja la línea de la página en el espacio restante de la pagina. Puede que sea necesario seleccionar las tres líneas y alinearlas a la izquierda (o derecha) para que queden en la misma posición. La línea de página quedará en el fondo, ésta no hay manera de cambiar su tamaño de manera dinámica (que yo sepa). En todo caso, si el diseñador no te ayuda en éste caso, puedes intentar con lrCodeReport donde puedes (mediante código) diseñar tu reporte al milímetro. Jesus Reyes A. ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Fri Feb 3 20:13:06 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Fri, 3 Feb 2017 14:13:06 -0500 Subject: [Lazarus-es] Dibujar linea verticar en reporte de lazreport References: <26086F3A883F42BEB86204B958EEA818@natio.co.cu> Message-ID: 1 Millón de gracias Jesús Me diste el pie para resolverlo, aunque es un poco trabajazo en el caso que estoy porque son muchas líneas, pero es así como se hace. Solo te equivocaste al mencionarme la banda porque no era pie de página sino pie de maestro, pero eso no tiene nada que ver. Lo importante lo dijiste Hay que dibujar la línea en cada banda y ajustarla con la barra de herramienta a la posición que quieras que se ancle. Saludos Cordiales y Gracias Reiteradas por todo tu inmenso trabajo en Lazarus ======== | ISMAEL | ======== ----- Original Message ----- From: Jesus Reyes A. via Lazarus-es To: Spanish version of Lazarus List Cc: Jesus Reyes A. Sent: Friday, February 03, 2017 12:58 PM Subject: Re: [Lazarus-es] Dibujar linea verticar en reporte de lazreport On Fri, 03 Feb 2017 11:37:45 -0600, Ismael L. Donis Garcia via Lazarus-es wrote: Estoy tratando de diseñar un reporte con Lazreport y no encuentro la forma de que me imprima una línea que comience en el encabezado de la página continúe por todo el detalle y finalice en un ponto determinado de la banda del pie del maestro de detalles. Ósea que se dibuje en 3 bandas - Parta de un punto determinado del encabezado de la página - Continúe por todo el detalle de la página - Finalice en un punto determinado de la banda Pie maestro Es posible hacer esto? Como? Gracias desde ya ======== | ISMAEL | ======== Intenta este procedimiento: 1. Coloca la banda encabezado de manera que su parte superior quede alineada con el borde superior de la hoja. 2. Dibuja la línea dentro del encabezado. 3. Selecciona la banda con un clic. 4. Selecciona la línea que acabas de dibujar con SHIFT+clic. 5. Presiona el botón de alinear objetos a la parte inferior (último botón de la segunda barra de la paleta de alineación que se encuentra en el borde derecho del diseñador). 6. Coloca la banda pie de página de manera que su parte inferior quede alineada con el borde inferior de la página. 7. Dibuja la línea dentro del pie de pagina. 8. Selecciona la banda con un clic. 9. Selecciona la línea con SHIFT+clic. 10. Presiona el botón de alinea objetos a la parte superior (primer botón de la segunda barra de la paleta de alineación). 11. Dibuja la línea de la página en el espacio restante de la pagina. Puede que sea necesario seleccionar las tres líneas y alinearlas a la izquierda (o derecha) para que queden en la misma posición. La línea de página quedará en el fondo, ésta no hay manera de cambiar su tamaño de manera dinámica (que yo sepa). En todo caso, si el diseñador no te ayuda en éste caso, puedes intentar con lrCodeReport donde puedes (mediante código) diseñar tu reporte al milímetro. Jesus Reyes A. ------------------------------------------------------------------------------ _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Fri Feb 3 22:06:37 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Fri, 3 Feb 2017 16:06:37 -0500 Subject: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit Message-ID: Jesús como podría reportar este error para ver si lo corrigen y puedo trabajar con Lazarus 1.6.2 en mi sistema principal. Ahora he estado trabajando en una PC virtual de Windows mientras tanto. Mi sistema base es Devuan 1 de 32 bit y el error que me da al tratar de reconstruir el IDE de Lazarus es: Compile package lazreport 0.9.9: Código de salida 256, Errores: 1 lr_about.pas(18,22) Fatal: no puedo encontrar LResourcesutilizado por LR_About, ppu incompatible=/usr/share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu, paquete LCLBase Más sin embargo si doy click sobre la referencia del archivo lresources.ppu en la unit LR_About si lo busca y lo abre, pero aun ni abierto después de dar click en la referencia el IDE quiere reconstruirse. Sigue dando el mismo error. Una cosa mi Ingles es pésimo, pero puedo apoyarme en el traductor de google. Saludos ======== | ISMAEL | ======== > ----- Original Message ----- > From: "Jesus Reyes A. via Lazarus-es" > To: "Spanish version of Lazarus List" > Cc: "Jesus Reyes A." > Sent: Thursday, February 02, 2017 1:50 PM > Subject: Re: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en > Devuan jessie 32bit > > >> On Thu, 02 Feb 2017 12:47:44 -0600, Jesus Reyes A. >> wrote: >> >>> On Wed, 01 Feb 2017 15:29:10 -0600, Ismael L. Donis Garcia via >>> Lazarus-es wrote: >>> >>>> Baje los .deb de sourceforge para 32 bit y los instale en una PC con >>>> Devuan versión 1 de 32 bit >>>> Todo se instalo perfectamente, pero a la hora de instalar el Lazreport >>>> me da el siguiente error: >>>> >>>> Compile package lazreport 0.9.9: Código de salida 256, Errores: 1 >>>> lr_about.pas(18,22) Fatal: no puedo encontrar LResourcesutilizado por >>>> LR_About, ppu >>>> incompatible=/usr/share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu, >>>> paquete LCLBase >>>> >>>> Como podré solucionar este problema? >>>> >>>> Desde ya Gracias >>>> ======== >>>> | ISMAEL | >>>> ======== >>> >>> >>> Todo depende de cuando has descargado los archivos .deb, de acuerdo con >>> las notas del bugreport http://bugs.freepascal.org/view.php?id=31279 >>> Mattias dijo que había subido un nuevo archivo que corrige algunos >>> problemas, el nuevo archivo esta disponible desde el 26 de enero del >>> 2017. >>> >> >> Perdón, ya vi que los archivos corregidos son para amd64 y tu tienes el >> problema en un sistema de 32 bits. >> :( >> >> Jesus Reyes A. >> _______________________________________________ >> Lazarus-es mailing list >> Lazarus-es en lists.lazarus-ide.org >> http://lists.lazarus-ide.org/listinfo/lazarus-es >> > From slibre en natio.co.cu Tue Feb 7 17:25:04 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Tue, 7 Feb 2017 11:25:04 -0500 Subject: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit (SOLUCIONADO) References: <86D325C151DE4C96BAC102262C74757A@natio.co.cu> <5FBD265F01984E8995A1A4857830E92C@natio.co.cu> Message-ID: <35452E89B8C14E1D9A72580C4A6026F7@natio.co.cu> Ya pude reconstruir el IDE pero solo como root. Saludos ======== | ISMAEL | ======== ----- Original Message ----- From: "Rafael Bidegain via Lazarus-es" To: "Spanish version of Lazarus List" Cc: "Rafael Bidegain" Sent: Thursday, February 02, 2017 10:58 AM Subject: Re: [Lazarus-es] Error al compilar Lazarus 1.6.2 con fpc 3.0.0 en Devuan jessie 32bit > 2017-02-02 10:43 GMT-03:00 Ismael L. Donis Garcia via Lazarus-es > : >> No el problema es que el archivo lresources.ppu si esta en: >> /usr/share/lazarus/1.6.2/lcl/units/i386-linux >> >> root en vir-pc-dev1:/usr# find . -name lresources.ppu >> ./share/lazarus/1.6.2/lcl/units/i386-linux/lresources.ppu >> root en vir-pc-dev1:/usr# >> >> La carpeta /usr/lib/lazarus no existe en el sistema. > > podés crearla con > sudo mkdir -p usr/share/lazarus/1.6.2/lcl/units/i386-linux > > luego hacés el link > > > > -- > Rafael Bidegain > > Ya que los cuerdos no hablan, hablará el loco. > (The Fool, Padraic Pearse) > > # yo quiero educación libre. ¡YA! > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > From slibre en natio.co.cu Wed Feb 8 16:23:10 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Wed, 8 Feb 2017 10:23:10 -0500 Subject: [Lazarus-es] Eliminar registros de un dbgrid en Lazarus Message-ID: Existe alguna forma de eliminar todos los registros de un DBGrid que este enlazado a un DataSource el cual esta enlazado a un MemDataset sin tenerlo que hacer mediante un ciclo? Ósea eliminar todos los registros del grid sin tener que hacer un while o un for Probé dbg.DataSource.DataSet.ClearFields Pero solo me elimina 1 registro y no todos. Desde Ya Gracias ======== | ISMAEL | ======== ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jcuello en artextrading.com Wed Feb 8 17:32:47 2017 From: jcuello en artextrading.com (Artex trading) Date: Wed, 8 Feb 2017 17:32:47 +0100 Subject: [Lazarus-es] Eliminar registros de un dbgrid en Lazarus In-Reply-To: References: Message-ID: <0997886F-2B9C-468E-AFD6-F05B23EF51DB@artextrading.com> Cierra el dataset y lo vuelves a abrir Enviado desde mi iPhone > El 8 feb 2017, a las 16:23, Ismael L. Donis Garcia via Lazarus-es escribió: > > Existe alguna forma de eliminar todos los registros de un DBGrid que este enlazado a un DataSource el cual esta enlazado a un MemDataset sin tenerlo que hacer mediante un ciclo? > > Ósea eliminar todos los registros del grid sin tener que hacer un while o un for > > Probé > dbg.DataSource.DataSet.ClearFields > > Pero solo me elimina 1 registro y no todos. > > Desde Ya Gracias > ======== > | ISMAEL | > ======== > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From fredyg1965 en gmail.com Wed Feb 8 17:37:42 2017 From: fredyg1965 en gmail.com (Fredy Gonzales) Date: Wed, 8 Feb 2017 11:37:42 -0500 Subject: [Lazarus-es] Lazarus mvc In-Reply-To: References: Message-ID: Alguien está trabajando con mvc, estoy trabajando los ejemplos de tutorial de Delphi mvc y trabaja bien, pero siento que hay un exceso de trabajo porque en el ejemplo trabaja con 4 componentes Modelo Controlador Vista Y datos Creo que todo debería ir en modelo pero no se porque serapa los datos, alguien tiene alguna idea? Puedo compartir lo trabajado. Saludos. Fg ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Wed Feb 8 18:13:23 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Wed, 8 Feb 2017 12:13:23 -0500 Subject: [Lazarus-es] Eliminar registros de un dbgrid en Lazarus References: <0997886F-2B9C-468E-AFD6-F05B23EF51DB@artextrading.com> Message-ID: He probado de varias formas y de ninguna funciona: if (dbg.DataSource.DataSet.RecordCount > 0) then begin dbg.DataSource.DataSet.Close; // de esta forma dbg.DataSource.DataSet.Open; dt.DataSet.Close; // de esta otra forma dt.DataSet.Open; //dbg.DataSource.DataSet.First; //while not dbg.DataSource.DataSet.EOF do // dbg.DataSource.DataSet.Delete; end; Solo funciona el ciclo, pero si el grid tiene muchos datos no se ve bien porque se ve como decrese Desde Ya Gracias ======== | ISMAEL | ======== ----- Original Message ----- From: Artex trading via Lazarus-es To: Spanish version of Lazarus List Cc: Artex trading Sent: Wednesday, February 08, 2017 11:32 AM Subject: Re: [Lazarus-es] Eliminar registros de un dbgrid en Lazarus Cierra el dataset y lo vuelves a abrir Enviado desde mi iPhone El 8 feb 2017, a las 16:23, Ismael L. Donis Garcia via Lazarus-es escribió: Existe alguna forma de eliminar todos los registros de un DBGrid que este enlazado a un DataSource el cual esta enlazado a un MemDataset sin tenerlo que hacer mediante un ciclo? Ósea eliminar todos los registros del grid sin tener que hacer un while o un for Probé dbg.DataSource.DataSet.ClearFields Pero solo me elimina 1 registro y no todos. Desde Ya Gracias ======== | ISMAEL | ======== _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------------------------------------------------------------------------ _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jesusrmx en gmail.com Wed Feb 8 18:45:31 2017 From: jesusrmx en gmail.com (Jesus Reyes A.) Date: Wed, 08 Feb 2017 11:45:31 -0600 Subject: [Lazarus-es] Eliminar registros de un dbgrid en Lazarus In-Reply-To: References: <0997886F-2B9C-468E-AFD6-F05B23EF51DB@artextrading.com> Message-ID: On Wed, 08 Feb 2017 11:13:23 -0600, Ismael L. Donis Garcia via Lazarus-es wrote: > He probado de varias formas y de ninguna funciona: > if (dbg.DataSource.DataSet.RecordCount > 0) then begin > dbg.DataSource.DataSet.Close; // de esta forma > dbg.DataSource.DataSet.Open; > dt.DataSet.Close; // de esta otra forma > dt.DataSet.Open; > //dbg.DataSource.DataSet.First; > //while not dbg.DataSource.DataSet.EOF do > // dbg.DataSource.DataSet.Delete; > end; > Solo funciona el ciclo, pero si el grid tiene muchos datos no se ve bien > porque se ve como decrese > En realidad solo necesitas trabajar con el dataset, no con el grid. Congela/Descongela la visualización de datos con DisableControls/EnableControls: Dataset.DisableControls; Dataset.First; while not Dataset.EOF do Dataset.Delete; Dataset.EnableControls; Saludos. Jesus Reyes A. ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From osvaldocol en yahoo.com Wed Feb 8 18:49:28 2017 From: osvaldocol en yahoo.com (Osvaldo A. Cifuentes R.) Date: Wed, 8 Feb 2017 17:49:28 +0000 (UTC) Subject: [Lazarus-es] Lazarus mvc In-Reply-To: References: Message-ID: <403293994.851606.1486576168518@mail.yahoo.com> He trabajado con orientación a objetos en  java y C#, este año tome un proyecto en lazaurus, me pasa lo contrario, no entiendo porque todo en una sola unidad, tengo la sensación que tienen la tendencia a repetir código en cada pantalla. El MVC implica al comienzo mas trabajo, es algo complicado de entender para aplicaciones cliente/servidor y se ve mas claro en aplicaciones web, pero solo piensa en crear toda la arquitectura sin pantallas (vista), es el punto inicial, veras que a lo largo del tiempo reutilizaras el código, te adjunto un link de wikipedia desacoplamiento informatico (Acoplamiento informático), ese modelador que tu defines yo lo entiendo mas como el DAO (Data Access Object) que también es un patrón de software.    -- OsvaldoC El Miércoles, 8 de febrero, 2017 11:37:48, Fredy Gonzales via Lazarus-es escribió: Alguien está trabajando con mvc, estoy trabajando los ejemplos de tutorial de Delphi mvc y trabaja bien, pero siento que hay un exceso de trabajo porque en el ejemplo trabaja con 4 componentes ModeloControladorVistaY datos Creo que todo debería ir en modelo pero no se porque serapa los datos, alguien tiene alguna idea? Puedo compartir lo trabajado. Saludos. Fg _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From osvaldocol en yahoo.com Wed Feb 8 18:49:28 2017 From: osvaldocol en yahoo.com (Osvaldo A. Cifuentes R.) Date: Wed, 8 Feb 2017 17:49:28 +0000 (UTC) Subject: [Lazarus-es] Lazarus mvc In-Reply-To: References: Message-ID: <403293994.851606.1486576168518@mail.yahoo.com> He trabajado con orientación a objetos en  java y C#, este año tome un proyecto en lazaurus, me pasa lo contrario, no entiendo porque todo en una sola unidad, tengo la sensación que tienen la tendencia a repetir código en cada pantalla. El MVC implica al comienzo mas trabajo, es algo complicado de entender para aplicaciones cliente/servidor y se ve mas claro en aplicaciones web, pero solo piensa en crear toda la arquitectura sin pantallas (vista), es el punto inicial, veras que a lo largo del tiempo reutilizaras el código, te adjunto un link de wikipedia desacoplamiento informatico (Acoplamiento informático), ese modelador que tu defines yo lo entiendo mas como el DAO (Data Access Object) que también es un patrón de software.    -- OsvaldoC El Miércoles, 8 de febrero, 2017 11:37:48, Fredy Gonzales via Lazarus-es escribió: Alguien está trabajando con mvc, estoy trabajando los ejemplos de tutorial de Delphi mvc y trabaja bien, pero siento que hay un exceso de trabajo porque en el ejemplo trabaja con 4 componentes ModeloControladorVistaY datos Creo que todo debería ir en modelo pero no se porque serapa los datos, alguien tiene alguna idea? Puedo compartir lo trabajado. Saludos. Fg _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Wed Feb 8 19:42:09 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Wed, 8 Feb 2017 13:42:09 -0500 Subject: [Lazarus-es] Eliminar registros de un dbgrid en Lazarus References: <0997886F-2B9C-468E-AFD6-F05B23EF51DB@artextrading.com> Message-ID: <079B2E8F2C6E4257AD5033931B2BE72E@natio.co.cu> ok, Muchas Gracias ======== | ISMAEL | ======== ----- Original Message ----- From: Jesus Reyes A. via Lazarus-es To: Spanish version of Lazarus List Cc: Jesus Reyes A. Sent: Wednesday, February 08, 2017 12:45 PM Subject: Re: [Lazarus-es] Eliminar registros de un dbgrid en Lazarus On Wed, 08 Feb 2017 11:13:23 -0600, Ismael L. Donis Garcia via Lazarus-es wrote: He probado de varias formas y de ninguna funciona: if (dbg.DataSource.DataSet.RecordCount > 0) then begin dbg.DataSource.DataSet.Close; // de esta forma dbg.DataSource.DataSet.Open; dt.DataSet.Close; // de esta otra forma dt.DataSet.Open; //dbg.DataSource.DataSet.First; //while not dbg.DataSource.DataSet.EOF do // dbg.DataSource.DataSet.Delete; end; Solo funciona el ciclo, pero si el grid tiene muchos datos no se ve bien porque se ve como decrese En realidad solo necesitas trabajar con el dataset, no con el grid. Congela/Descongela la visualización de datos con DisableControls/EnableControls: Dataset.DisableControls; Dataset.First; while not Dataset.EOF do Dataset.Delete; Dataset.EnableControls; Saludos. Jesus Reyes A. ------------------------------------------------------------------------------ _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Wed Feb 22 20:49:13 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Wed, 22 Feb 2017 14:49:13 -0500 Subject: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. Message-ID: <675323AAA0FA45AB8E48DBDC6A73FF9A@natio.co.cu> Estoy tratando de filtar un SQLQuery incluyendo un campo Decimal de Firebird 2.5 y Lazarus me devuelve el siguiente error: Field "Haber" has an invalid field type (BCD) to base index on. Si quito dicho campo no se produce el error. Como podré filtrar el SQLQuery con dichos tipos de campos "Decimales"? Esto es un error de Lazarus o del FPC? Es posible solventarlo de alguna forma? dm.rssc5.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0))' Desde ya Gracias ======== | ISMAEL | ======== ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jesusrmx en gmail.com Wed Feb 22 21:04:15 2017 From: jesusrmx en gmail.com (Jesus Reyes A.) Date: Wed, 22 Feb 2017 14:04:15 -0600 Subject: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. In-Reply-To: <675323AAA0FA45AB8E48DBDC6A73FF9A@natio.co.cu> References: <675323AAA0FA45AB8E48DBDC6A73FF9A@natio.co.cu> Message-ID: On Wed, 22 Feb 2017 13:49:13 -0600, Ismael L. Donis Garcia via Lazarus-es wrote: > Estoy tratando de filtar un SQLQuery incluyendo un campo Decimal de > Firebird 2.5 y Lazarus me devuelve el siguiente error: > >> Field "Haber" has an invalid field type (BCD) to base index on. >Si quito dicho campo no se produce el error. >Como podré filtrar el SQLQuery con dichos tipos de campos "Decimales"? > Esto es un error de Lazarus o del FPC? > Es posible solventarlo de alguna forma? >dm.rssc5.Filter:='((cuenta = ' + > dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + > dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + > dm.rssc1.FieldByName>('capitulo').AsString + ''') and (subcap = ''' + > dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = '''') and > (empresa = ''' + stremp + ''') and (haber > 0))' > Desde ya Gracias > ======== > | ISMAEL | > ======== Seguro es Haber>0 y no Haber.AsInteger ? En caso de que este no sea el caso y Haber es una variable entera derivado de Haber.asInteger entonces es probable sea un problema de implementación en sqldb (o sea FPC). Aún podrías filtrar el dataset usando el evento OnFilterRecord, cuando haces dataset.Filtered := true, se dispara el evento OnFilterRecord para cada uno de los registros, en este evento solo tienes que regresar accept := true/false; y de esta manera el registro aparecerá o no como parte del dataset. En tu caso quizás se podría implementar de esta manera: accept := (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0) and (cuenta=dm.rssc1.FieldByName('cuenta').AsString) and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + '''); Jesus Reyes A. ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Wed Feb 22 21:37:12 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Wed, 22 Feb 2017 15:37:12 -0500 Subject: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. References: <675323AAA0FA45AB8E48DBDC6A73FF9A@natio.co.cu> Message-ID: <6ACB75E8CC884407B0D1FCD9477CDC83@natio.co.cu> Muchas gracias Jesús pero casi estoy seguro que es un problema del FPC. El campo haber no es entero ya que es un campo donde se guarda el valor de los adeudos, por ese motivo es monetario. Filtro para ver si una persona ya a pagado algún tipo específico de adeudo en el año. Analizando me di cuenta "o al menos pienso yo" que es un problema del FPC ya que me puse a analizar el error y cambié la consulta y me funcionó. Antes tenía la consulta. Campo Haber como Decimal, así está por diseño en la BD. select ....., a.haber, ... from creditos a .... De esta forma me da error al intentar filtrar el SQLQuery. Entonces probé de la siguiente forma: select ....., cast(a.haber as double precision) as haber, ... from creditos a .... Y de esta forma el filtro me funciona correctamente. Por ese motivo es que creo que es un problema de tipos del FPC que no está definido los tipos de campos DECIMALES de firebird No probé lo que me dijiste del filtro en el evento OnFilterRecord ya que el filtro es dinámico, ósea cambia según los datos devueltos por la consulta. Yo solo en la pregunta puse un caso específico de filtro, pero de todos modos se podría probar a ver que pasa, pero estoy casi seguro que va a fallar por el error: SErrIndexBasedOnInvField = 'Field "%s" has an invalid field type (%s) to base index on.'; de la unit dbconst Saludos Cordiales ======== | ISMAEL | ======== ----- Original Message ----- From: Jesus Reyes A. via Lazarus-es To: Spanish version of Lazarus List Cc: Jesus Reyes A. Sent: Wednesday, February 22, 2017 3:04 PM Subject: Re: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. On Wed, 22 Feb 2017 13:49:13 -0600, Ismael L. Donis Garcia via Lazarus-es wrote: Estoy tratando de filtar un SQLQuery incluyendo un campo Decimal de Firebird 2.5 y Lazarus me devuelve el siguiente error: Field "Haber" has an invalid field type (BCD) to base index on. Si quito dicho campo no se produce el error. Como podré filtrar el SQLQuery con dichos tipos de campos "Decimales"? Esto es un error de Lazarus o del FPC? Es posible solventarlo de alguna forma? dm.rssc5.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0))' Desde ya Gracias ======== | ISMAEL | ======== Seguro es Haber>0 y no Haber.AsInteger ? En caso de que este no sea el caso y Haber es una variable entera derivado de Haber.asInteger entonces es probable sea un problema de implementación en sqldb (o sea FPC). Aún podrías filtrar el dataset usando el evento OnFilterRecord, cuando haces dataset.Filtered := true, se dispara el evento OnFilterRecord para cada uno de los registros, en este evento solo tienes que regresar accept := true/false; y de esta manera el registro aparecerá o no como parte del dataset. En tu caso quizás se podría implementar de esta manera: accept := (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0) and (cuenta=dm.rssc1.FieldByName('cuenta').AsString) and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + '''); Jesus Reyes A. ------------------------------------------------------------------------------ _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From maximiliano.duarte en gmail.com Thu Feb 23 15:22:40 2017 From: maximiliano.duarte en gmail.com (Maxi) Date: Thu, 23 Feb 2017 11:22:40 -0300 Subject: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. In-Reply-To: <6ACB75E8CC884407B0D1FCD9477CDC83@natio.co.cu> References: <675323AAA0FA45AB8E48DBDC6A73FF9A@natio.co.cu> <6ACB75E8CC884407B0D1FCD9477CDC83@natio.co.cu> Message-ID: El filtrado de registros es bastante limitado, y lo fue siempre desde delphi. Creo que lo mejor es hacer el firtro en el where de la consulta y traer solo que que necesitas. El 22 de febrero de 2017, 17:37, Ismael L. Donis Garcia via Lazarus-es < lazarus-es en lists.lazarus-ide.org> escribió: > Muchas gracias Jesús pero casi estoy seguro que es un problema del FPC. > > El campo haber no es entero ya que es un campo donde se guarda el valor de > los adeudos, por ese motivo es monetario. > Filtro para ver si una persona ya a pagado algún tipo específico de adeudo > en el año. > > Analizando me di cuenta "o al menos pienso yo" que es un problema del FPC > ya que me puse a analizar el error y cambié la consulta y me funcionó. > > Antes tenía la consulta. Campo Haber como Decimal, así está por diseño en > la BD. > > select ....., a.haber, ... from creditos a .... > > De esta forma me da error al intentar filtrar el SQLQuery. Entonces probé > de la siguiente forma: > > select ....., cast(a.haber as double precision) as haber, ... from > creditos a .... > > Y de esta forma el filtro me funciona correctamente. > > Por ese motivo es que creo que es un problema de tipos del FPC que no está > definido los tipos de campos DECIMALES de firebird > > No probé lo que me dijiste del filtro en el evento OnFilterRecord ya que > el filtro es dinámico, ósea cambia según los datos devueltos por la > consulta. > > Yo solo en la pregunta puse un caso específico de filtro, pero de todos > modos se podría probar a ver que pasa, pero estoy casi seguro que va a > fallar por el error: > > SErrIndexBasedOnInvField = 'Field "%s" has an invalid field type (%s) to > base index on.'; > > de la unit dbconst > > > Saludos Cordiales > ======== > | ISMAEL | > ======== > ----- Original Message ----- > > *From:* Jesus Reyes A. via Lazarus-es > *To:* Spanish version of Lazarus List > *Cc:* Jesus Reyes A. > *Sent:* Wednesday, February 22, 2017 3:04 PM > *Subject:* Re: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid > field type (BCD) to base index on. > > On Wed, 22 Feb 2017 13:49:13 -0600, Ismael L. Donis Garcia via Lazarus-es < > lazarus-es en lists.lazarus-ide.org> wrote: > > Estoy tratando de filtar un SQLQuery incluyendo un campo Decimal de > Firebird 2.5 y Lazarus me devuelve el siguiente error: > > Field "Haber" has an invalid field type (BCD) to base index on. > > Si quito dicho campo no se produce el error. > > Como podré filtrar el SQLQuery con dichos tipos de campos "Decimales"? > Esto es un error de Lazarus o del FPC? > Es posible solventarlo de alguna forma? > > dm.rssc5.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString > + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') > and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') > and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and > (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0))' > Desde ya Gracias > ======== > | ISMAEL | > ======== > > > Seguro es Haber>0 y no Haber.AsInteger ? > > En caso de que este no sea el caso y Haber es una variable entera derivado > de Haber.asInteger entonces es probable sea un problema de implementación > en sqldb (o sea FPC). > > Aún podrías filtrar el dataset usando el evento OnFilterRecord, cuando > haces dataset.Filtered := true, se dispara el evento OnFilterRecord para > cada uno de los registros, en este evento solo tienes que regresar accept > := true/false; y de esta manera el registro aparecerá o no como parte del > dataset. En tu caso quizás se podría implementar de esta manera: > > accept := (elemento = '''') and > (empresa = ''' + stremp + ''') and > (haber > 0) and > (cuenta=dm.rssc1.FieldByName('cuenta').AsString) and > (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') > and > (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + > ''') and > (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + '''); > > Jesus Reyes A. > > > ------------------------------ > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > -- El que pregunta aprende, y el que contesta aprende a responder. No a la obsolecencia programada: http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml Linux User #495070 http://domonetic.com/blog ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From fredyg1965 en gmail.com Thu Feb 23 16:10:16 2017 From: fredyg1965 en gmail.com (Fredy Gonzales) Date: Thu, 23 Feb 2017 10:10:16 -0500 Subject: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. In-Reply-To: References: <675323AAA0FA45AB8E48DBDC6A73FF9A@natio.co.cu> <6ACB75E8CC884407B0D1FCD9477CDC83@natio.co.cu> Message-ID: yo creo que intentes hacer el query desde un store procedure y devuelvas. query, creo que es ub problema de conversión a la hora de la consulta. El 23/2/2017 09:23, "Maxi via Lazarus-es" escribió: El filtrado de registros es bastante limitado, y lo fue siempre desde delphi. Creo que lo mejor es hacer el firtro en el where de la consulta y traer solo que que necesitas. El 22 de febrero de 2017, 17:37, Ismael L. Donis Garcia via Lazarus-es < lazarus-es en lists.lazarus-ide.org> escribió: > Muchas gracias Jesús pero casi estoy seguro que es un problema del FPC. > > El campo haber no es entero ya que es un campo donde se guarda el valor de > los adeudos, por ese motivo es monetario. > Filtro para ver si una persona ya a pagado algún tipo específico de adeudo > en el año. > > Analizando me di cuenta "o al menos pienso yo" que es un problema del FPC > ya que me puse a analizar el error y cambié la consulta y me funcionó. > > Antes tenía la consulta. Campo Haber como Decimal, así está por diseño en > la BD. > > select ....., a.haber, ... from creditos a .... > > De esta forma me da error al intentar filtrar el SQLQuery. Entonces probé > de la siguiente forma: > > select ....., cast(a.haber as double precision) as haber, ... from > creditos a .... > > Y de esta forma el filtro me funciona correctamente. > > Por ese motivo es que creo que es un problema de tipos del FPC que no está > definido los tipos de campos DECIMALES de firebird > > No probé lo que me dijiste del filtro en el evento OnFilterRecord ya que > el filtro es dinámico, ósea cambia según los datos devueltos por la > consulta. > > Yo solo en la pregunta puse un caso específico de filtro, pero de todos > modos se podría probar a ver que pasa, pero estoy casi seguro que va a > fallar por el error: > > SErrIndexBasedOnInvField = 'Field "%s" has an invalid field type (%s) to > base index on.'; > > de la unit dbconst > > > Saludos Cordiales > ======== > | ISMAEL | > ======== > ----- Original Message ----- > > *From:* Jesus Reyes A. via Lazarus-es > *To:* Spanish version of Lazarus List > *Cc:* Jesus Reyes A. > *Sent:* Wednesday, February 22, 2017 3:04 PM > *Subject:* Re: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid > field type (BCD) to base index on. > > On Wed, 22 Feb 2017 13:49:13 -0600, Ismael L. Donis Garcia via Lazarus-es < > lazarus-es en lists.lazarus-ide.org> wrote: > > Estoy tratando de filtar un SQLQuery incluyendo un campo Decimal de > Firebird 2.5 y Lazarus me devuelve el siguiente error: > > Field "Haber" has an invalid field type (BCD) to base index on. > > Si quito dicho campo no se produce el error. > > Como podré filtrar el SQLQuery con dichos tipos de campos "Decimales"? > Esto es un error de Lazarus o del FPC? > Es posible solventarlo de alguna forma? > > dm.rssc5.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString > + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') > and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') > and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and > (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0))' > Desde ya Gracias > ======== > | ISMAEL | > ======== > > > Seguro es Haber>0 y no Haber.AsInteger ? > > En caso de que este no sea el caso y Haber es una variable entera derivado > de Haber.asInteger entonces es probable sea un problema de implementación > en sqldb (o sea FPC). > > Aún podrías filtrar el dataset usando el evento OnFilterRecord, cuando > haces dataset.Filtered := true, se dispara el evento OnFilterRecord para > cada uno de los registros, en este evento solo tienes que regresar accept > := true/false; y de esta manera el registro aparecerá o no como parte del > dataset. En tu caso quizás se podría implementar de esta manera: > > accept := (elemento = '''') and > (empresa = ''' + stremp + ''') and > (haber > 0) and > (cuenta=dm.rssc1.FieldByName('cuenta').AsString) and > (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') > and > (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + > ''') and > (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + '''); > > Jesus Reyes A. > > > ------------------------------ > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > -- El que pregunta aprende, y el que contesta aprende a responder. No a la obsolecencia programada: http://www.rtve.es/noticias/ 20110104/productos-consumo-duran-cada-vez-menos/392498.shtml Linux User #495070 http://domonetic.com/blog _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Thu Feb 23 17:53:12 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Thu, 23 Feb 2017 11:53:12 -0500 Subject: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. References: <675323AAA0FA45AB8E48DBDC6A73FF9A@natio.co.cu> <6ACB75E8CC884407B0D1FCD9477CDC83@natio.co.cu> Message-ID: <88CF12C3B3DC4ABDBB6936C57D226970@natio.co.cu> No ese no es el problema la consulta la obtengo vacia y el error me ocurre cuando voy llenando la consulta. La consulta la he tenido que dajar de la siguiente forma (original): strsql := 'select s.entidad, s.reg, s.numc, s.fecha, s.cuenta, s.subcta, s.capitulo, s.subcap, s.elemento, s.empresa, cast(s.debe as double precision) as debe, cast(s.haber as double precision) as haber, s.nota, s.clave, s.sctaor, s.eleor, s.empor from scsal s where (s.idsa is null)'; Si la consulta la dejo como sigue me da error al hacer el filtro: strsql := 'select s.entidad, s.reg, s.numc, s.fecha, s.cuenta, s.subcta, s.capitulo, s.subcap, s.elemento, s.empresa, s.debe, s.haber, s.nota, s.clave, s.sctaor, s.eleor, s.empor from scsal s where (s.idsa is null)'; Pongo la llave primaria idsa = null para no obtener ningun registro. Después a la hora de actualizar era cuando me daba el error. Por ese motivo es que no puedo usar where, ósea porque la colsulta solo me da la estructura de los campos if dm.rssc6.RecordCount > 0 then begin if ((dm.rssc1.FieldByName('elemento').AsInteger = 0) and (dm.rssc1.FieldByName('empresa').AsInteger = 0)) then dm.rssc6.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = '''') and (empresa = '''') and (haber > 0))' else if ((dm.rssc1.FieldByName('elemento').AsInteger = 0) and (dm.rssc1.FieldByName('empresa').AsInteger <> 0)) then dm.rssc6.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0))' else if ((dm.rssc1.FieldByName('elemento').AsInteger <> 0) and (dm.rssc1.FieldByName('empresa').AsInteger = 0)) then dm.rssc6.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = ''' + strele + ''') and (empresa = '''') and (haber > 0))' else dm.rssc6.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = ''' + strele + ''') and (empresa = ''' + stremp + ''') and (haber > 0))'; dm.rssc6.Filtered:=true; if dm.rssc6.EOF then dm.rssc6.Append else dm.rssc6.Edit; Lo que me queda es buscar en el FPC a ver si lo puedo parchear, debe ser relativamente facil de arregla en el FPC, tan solo debe bastar con agregar el tipo DECIMAL = DOUBLE Talves lo hallan agregado ya en el FPC 3.0.1, habría que revisar. Saludos Reiterados ======== | ISMAEL | ======== ----- Original Message ----- From: Fredy Gonzales via Lazarus-es To: Spanish version of Lazarus List Cc: Fredy Gonzales Sent: Thursday, February 23, 2017 10:10 AM Subject: Re: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. yo creo que intentes hacer el query desde un store procedure y devuelvas. query, creo que es ub problema de conversión a la hora de la consulta. El 23/2/2017 09:23, "Maxi via Lazarus-es" escribió: El filtrado de registros es bastante limitado, y lo fue siempre desde delphi. Creo que lo mejor es hacer el firtro en el where de la consulta y traer solo que que necesitas. El 22 de febrero de 2017, 17:37, Ismael L. Donis Garcia via Lazarus-es escribió: Muchas gracias Jesús pero casi estoy seguro que es un problema del FPC. El campo haber no es entero ya que es un campo donde se guarda el valor de los adeudos, por ese motivo es monetario. Filtro para ver si una persona ya a pagado algún tipo específico de adeudo en el año. Analizando me di cuenta "o al menos pienso yo" que es un problema del FPC ya que me puse a analizar el error y cambié la consulta y me funcionó. Antes tenía la consulta. Campo Haber como Decimal, así está por diseño en la BD. select ....., a.haber, ... from creditos a .... De esta forma me da error al intentar filtrar el SQLQuery. Entonces probé de la siguiente forma: select ....., cast(a.haber as double precision) as haber, ... from creditos a .... Y de esta forma el filtro me funciona correctamente. Por ese motivo es que creo que es un problema de tipos del FPC que no está definido los tipos de campos DECIMALES de firebird No probé lo que me dijiste del filtro en el evento OnFilterRecord ya que el filtro es dinámico, ósea cambia según los datos devueltos por la consulta. Yo solo en la pregunta puse un caso específico de filtro, pero de todos modos se podría probar a ver que pasa, pero estoy casi seguro que va a fallar por el error: SErrIndexBasedOnInvField = 'Field "%s" has an invalid field type (%s) to base index on.'; de la unit dbconst Saludos Cordiales ======== | ISMAEL | ======== ----- Original Message ----- From: Jesus Reyes A. via Lazarus-es To: Spanish version of Lazarus List Cc: Jesus Reyes A. Sent: Wednesday, February 22, 2017 3:04 PM Subject: Re: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. On Wed, 22 Feb 2017 13:49:13 -0600, Ismael L. Donis Garcia via Lazarus-es wrote: Estoy tratando de filtar un SQLQuery incluyendo un campo Decimal de Firebird 2.5 y Lazarus me devuelve el siguiente error: Field "Haber" has an invalid field type (BCD) to base index on. Si quito dicho campo no se produce el error. Como podré filtrar el SQLQuery con dichos tipos de campos "Decimales"? Esto es un error de Lazarus o del FPC? Es posible solventarlo de alguna forma? dm.rssc5.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0))' Desde ya Gracias ======== | ISMAEL | ======== Seguro es Haber>0 y no Haber.AsInteger ? En caso de que este no sea el caso y Haber es una variable entera derivado de Haber.asInteger entonces es probable sea un problema de implementación en sqldb (o sea FPC). Aún podrías filtrar el dataset usando el evento OnFilterRecord, cuando haces dataset.Filtered := true, se dispara el evento OnFilterRecord para cada uno de los registros, en este evento solo tienes que regresar accept := true/false; y de esta manera el registro aparecerá o no como parte del dataset. En tu caso quizás se podría implementar de esta manera: accept := (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0) and (cuenta=dm.rssc1.FieldByName('cuenta').AsString) and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + '''); Jesus Reyes A. ------------------------------------------------------------------------ _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es -- El que pregunta aprende, y el que contesta aprende a responder. No a la obsolecencia programada: http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml Linux User #495070 http://domonetic.com/blog _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------------------------------------------------------------------------ _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jcuello en artextrading.com Fri Feb 24 08:05:04 2017 From: jcuello en artextrading.com (Jose Antonio Cuello) Date: Fri, 24 Feb 2017 08:05:04 +0100 (CET) Subject: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. In-Reply-To: <88CF12C3B3DC4ABDBB6936C57D226970@natio.co.cu> References: <675323AAA0FA45AB8E48DBDC6A73FF9A@natio.co.cu> <6ACB75E8CC884407B0D1FCD9477CDC83@natio.co.cu> <88CF12C3B3DC4ABDBB6936C57D226970@natio.co.cu> Message-ID: <327265995.274796.1487919904975.JavaMail.zimbra@artextrading.com> Hola, por qué no pruebas a cambiar el campo Decimal a Numeric. El resultado para campos con pocos decimales es el mismo pero no te dará problemas. Un saludo De: "Ismael L. Donis Garcia via Lazarus-es" Para: "Spanish version of Lazarus List" CC: "Ismael L. Donis Garcia" Enviados: Jueves, 23 de Febrero 2017 17:53:12 Asunto: Re: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. No ese no es el problema la consulta la obtengo vacia y el error me ocurre cuando voy llenando la consulta. La consulta la he tenido que dajar de la siguiente forma (original): strsql := 'select s.entidad, s.reg, s.numc, s.fecha, s.cuenta, s.subcta, s.capitulo, s.subcap, s.elemento, s.empresa, cast(s.debe as double precision) as debe, cast(s.haber as double precision) as haber, s.nota, s.clave, s.sctaor, s.eleor, s.empor from scsal s where (s.idsa is null)'; Si la consulta la dejo como sigue me da error al hacer el filtro: strsql := 'select s.entidad, s.reg, s.numc, s.fecha, s.cuenta, s.subcta, s.capitulo, s.subcap, s.elemento, s.empresa, s.debe, s.haber, s.nota, s.clave, s.sctaor, s.eleor, s.empor from scsal s where (s.idsa is null)'; Pongo la llave primaria idsa = null para no obtener ningun registro. Después a la hora de actualizar era cuando me daba el error. Por ese motivo es que no puedo usar where, ósea porque la colsulta solo me da la estructura de los campos if dm.rssc6.RecordCount > 0 then begin if ((dm.rssc1.FieldByName('elemento').AsInteger = 0) and (dm.rssc1.FieldByName('empresa').AsInteger = 0)) then dm.rssc6.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = '''') and (empresa = '''') and (haber > 0))' else if ((dm.rssc1.FieldByName('elemento').AsInteger = 0) and (dm.rssc1.FieldByName('empresa').AsInteger <> 0)) then dm.rssc6.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0))' else if ((dm.rssc1.FieldByName('elemento').AsInteger <> 0) and (dm.rssc1.FieldByName('empresa').AsInteger = 0)) then dm.rssc6.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = ''' + strele + ''') and (empresa = '''') and (haber > 0))' else dm.rssc6.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = ''' + strele + ''') and (empresa = ''' + stremp + ''') and (haber > 0))'; dm.rssc6.Filtered:=true; if dm.rssc6.EOF then dm.rssc6.Append else dm.rssc6.Edit; Lo que me queda es buscar en el FPC a ver si lo puedo parchear, debe ser relativamente facil de arregla en el FPC, tan solo debe bastar con agregar el tipo DECIMAL = DOUBLE Talves lo hallan agregado ya en el FPC 3.0.1, habría que revisar. Saludos Reiterados ======== | ISMAEL | ======== ----- Original Message ----- From: [ mailto:lazarus-es en lists.lazarus-ide.org | Fredy Gonzales via Lazarus-es ] To: [ mailto:lazarus-es en lists.lazarus-ide.org | Spanish version of Lazarus List ] Cc: [ mailto:fredyg1965 en gmail.com | Fredy Gonzales ] Sent: Thursday, February 23, 2017 10:10 AM Subject: Re: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. yo creo que intentes hacer el query desde un store procedure y devuelvas. query, creo que es ub problema de conversión a la hora de la consulta. El 23/2/2017 09:23, "Maxi via Lazarus-es" < [ mailto:lazarus-es en lists.lazarus-ide.org | lazarus-es en lists.lazarus-ide.org ] > escribió: BQ_BEGIN El filtrado de registros es bastante limitado, y lo fue siempre desde delphi. Creo que lo mejor es hacer el firtro en el where de la consulta y traer solo que que necesitas. El 22 de febrero de 2017, 17:37, Ismael L. Donis Garcia via Lazarus-es < [ mailto:lazarus-es en lists.lazarus-ide.org | lazarus-es en lists.lazarus-ide.org ] > escribió: BQ_BEGIN Muchas gracias Jesús pero casi estoy seguro que es un problema del FPC. El campo haber no es entero ya que es un campo donde se guarda el valor de los adeudos, por ese motivo es monetario. Filtro para ver si una persona ya a pagado algún tipo específico de adeudo en el año. Analizando me di cuenta "o al menos pienso yo" que es un problema del FPC ya que me puse a analizar el error y cambié la consulta y me funcionó. Antes tenía la consulta. Campo Haber como Decimal, así está por diseño en la BD. select ....., a.haber, ... from creditos a .... De esta forma me da error al intentar filtrar el SQLQuery. Entonces probé de la siguiente forma: select ....., cast(a.haber as double precision) as haber, ... from creditos a .... Y de esta forma el filtro me funciona correctamente. Por ese motivo es que creo que es un problema de tipos del FPC que no está definido los tipos de campos DECIMALES de firebird No probé lo que me dijiste del filtro en el evento OnFilterRecord ya que el filtro es dinámico, ósea cambia según los datos devueltos por la consulta. Yo solo en la pregunta puse un caso específico de filtro, pero de todos modos se podría probar a ver que pasa, pero estoy casi seguro que va a fallar por el error: SErrIndexBasedOnInvField = 'Field "%s" has an invalid field type (%s) to base index on.'; de la unit dbconst Saludos Cordiales ======== | ISMAEL | ======== ----- Original Message ----- BQ_BEGIN From: [ mailto:lazarus-es en lists.lazarus-ide.org | Jesus Reyes A. via Lazarus-es ] To: [ mailto:lazarus-es en lists.lazarus-ide.org | Spanish version of Lazarus List ] Cc: [ mailto:jesusrmx en gmail.com | Jesus Reyes A. ] Sent: Wednesday, February 22, 2017 3:04 PM Subject: Re: [Lazarus-es] Error: Field "Nombre_Campo" has an invalid field type (BCD) to base index on. On Wed, 22 Feb 2017 13:49:13 -0600, Ismael L. Donis Garcia via Lazarus-es < [ mailto:lazarus-es en lists.lazarus-ide.org | lazarus-es en lists.lazarus-ide.org ] > wrote: BQ_BEGIN Estoy tratando de filtar un SQLQuery incluyendo un campo Decimal de Firebird 2.5 y Lazarus me devuelve el siguiente error: Field "Haber" has an invalid field type (BCD) to base index on. Si quito dicho campo no se produce el error. Como podré filtrar el SQLQuery con dichos tipos de campos "Decimales"? Esto es un error de Lazarus o del FPC? Es posible solventarlo de alguna forma? dm.rssc5.Filter:='((cuenta = ' + dm.rssc1.FieldByName('cuenta').AsString + ') and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + ''') and (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0))' Desde ya Gracias ======== | ISMAEL | ======== Seguro es Haber>0 y no Haber.AsInteger ? En caso de que este no sea el caso y Haber es una variable entera derivado de Haber.asInteger entonces es probable sea un problema de implementación en sqldb (o sea FPC). Aún podrías filtrar el dataset usando el evento OnFilterRecord, cuando haces dataset.Filtered := true, se dispara el evento OnFilterRecord para cada uno de los registros, en este evento solo tienes que regresar accept := true/false; y de esta manera el registro aparecerá o no como parte del dataset. En tu caso quizás se podría implementar de esta manera: accept := (elemento = '''') and (empresa = ''' + stremp + ''') and (haber > 0) and (cuenta=dm.rssc1.FieldByName('cuenta').AsString) and (subcta = ''' + dm.rssc1.FieldByName('subcta').AsString + ''') and (capitulo = ''' + dm.rssc1.FieldByName('capitulo').AsString + ''') and (subcap = ''' + dm.rssc1.FieldByName('subcap').AsString + '''); Jesus Reyes A. _______________________________________________ Lazarus-es mailing list [ mailto:Lazarus-es en lists.lazarus-ide.org | Lazarus-es en lists.lazarus-ide.org ] [ http://lists.lazarus-ide.org/listinfo/lazarus-es | http://lists.lazarus-ide.org/listinfo/lazarus-es ] BQ_END _______________________________________________ Lazarus-es mailing list [ mailto:Lazarus-es en lists.lazarus-ide.org | Lazarus-es en lists.lazarus-ide.org ] [ http://lists.lazarus-ide.org/listinfo/lazarus-es | http://lists.lazarus-ide.org/listinfo/lazarus-es ] BQ_END -- El que pregunta aprende, y el que contesta aprende a responder. No a la obsolecencia programada: [ http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml | http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml ] Linux User #495070 [ http://domonetic.com/blog | http://domonetic.com/blog ] _______________________________________________ Lazarus-es mailing list [ mailto:Lazarus-es en lists.lazarus-ide.org | Lazarus-es en lists.lazarus-ide.org ] [ http://lists.lazarus-ide.org/listinfo/lazarus-es | http://lists.lazarus-ide.org/listinfo/lazarus-es ] BQ_END _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es BQ_END _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus-es ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From 5593102580 en txt.att.net Fri Feb 24 08:06:30 2017 From: 5593102580 en txt.att.net (5593102580 en txt.att.net) Date: Thu, 23 Feb 2017 23:06:30 -0800 Subject: [Lazarus-es] Error: Field "Nombre_Campo" has an invalidfield In-Reply-To: 327265995.274796.1487919904975.JavaMail.zimbra@artextrading.com Message-ID: Stop texting me, I don't know Spanish at all -----Original Message----- From: Sent: Fri, 24 Feb 2017 08:05:04 +0100 (CET) To: 5593102580 en txt.att.net Subject: Re: [Lazarus-es] Error: Field "Nombre_Campo" has an invalidfield >Hola, por qué no pruebas a cambiar el campo Decimal a Numeric. El resultado para campos con pocos decimales es el mismo pero no te dará problemas. > >Un saludo > > >De: "Isma ================================================================== This mobile text message is brought to you by AT&T From rubymotions en gmail.com Fri Feb 24 23:06:47 2017 From: rubymotions en gmail.com (Python) Date: Fri, 24 Feb 2017 16:06:47 -0600 Subject: [Lazarus-es] Duda Message-ID: <58c9f273-5757-a783-6dd9-12ab037797d9@gmail.com> /Hola quisiera saber porque lazarus no viene como viene delphi [en una sola ventana incluyendo los forms]/ ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From mmgomez en gmail.com Fri Feb 24 23:18:30 2017 From: mmgomez en gmail.com (Martin Gomez) Date: Fri, 24 Feb 2017 19:18:30 -0300 Subject: [Lazarus-es] Duda In-Reply-To: <58c9f273-5757-a783-6dd9-12ab037797d9@gmail.com> References: <58c9f273-5757-a783-6dd9-12ab037797d9@gmail.com> Message-ID: Viene como Delphi 7, con el las ventanas sueltas. Si quieres tener todo en una sola ventana, tienes que instalar un paquete, fíjate acá: http://wiki.freepascal.org/New_IDE_features_since#Docked_IDE Ojo, hay varios paquetes para hacer eso, prueba el que más te guste y cuando lo acomodas, grabas el Layout de ventanas como default. 2017-02-24 19:06 GMT-03:00 Python via Lazarus-es < lazarus-es en lists.lazarus-ide.org>: > > *Hola quisiera saber porque lazarus no viene como viene delphi [en una > sola ventana incluyendo los forms]* > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > > -- ​ Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program. ​ ​ *Linus Torvalds* ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From mmgomez en gmail.com Sat Feb 25 00:48:01 2017 From: mmgomez en gmail.com (Martin Gomez) Date: Fri, 24 Feb 2017 20:48:01 -0300 Subject: [Lazarus-es] Duda In-Reply-To: References: <58c9f273-5757-a783-6dd9-12ab037797d9@gmail.com> Message-ID: http://wiki.freepascal.org/Anchor_Docking#Docking_in_the_IDE el paquete a instalar es *AnchorDockingDsgn* Lo agregas y recompilas el IDE, luego se reinicia y ya tienes soporte de docking y todas las ventanas unidas. 2017-02-24 19:18 GMT-03:00 Martin Gomez : > Viene como Delphi 7, con el las ventanas sueltas. > Si quieres tener todo en una sola ventana, tienes que instalar un paquete, > fíjate acá: > http://wiki.freepascal.org/New_IDE_features_since#Docked_IDE > > Ojo, hay varios paquetes para hacer eso, prueba el que más te guste y > cuando lo acomodas, grabas el Layout de ventanas como default. > > > 2017-02-24 19:06 GMT-03:00 Python via Lazarus-es < > lazarus-es en lists.lazarus-ide.org>: > >> >> *Hola quisiera saber porque lazarus no viene como viene delphi [en una >> sola ventana incluyendo los forms]* >> >> _______________________________________________ >> Lazarus-es mailing list >> Lazarus-es en lists.lazarus-ide.org >> http://lists.lazarus-ide.org/listinfo/lazarus-es >> >> > > > -- > ​ > Most good programmers do programming not because they expect to get paid > or get adulation by the public, but because it is fun to program. > ​ ​ > *Linus Torvalds* > -- ​ Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program. ​ ​ *Linus Torvalds* ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From mmgomez en gmail.com Sat Feb 25 01:25:33 2017 From: mmgomez en gmail.com (Martin Gomez) Date: Fri, 24 Feb 2017 21:25:33 -0300 Subject: [Lazarus-es] Duda In-Reply-To: References: <58c9f273-5757-a783-6dd9-12ab037797d9@gmail.com> Message-ID: 2017-02-24 20:49 GMT-03:00 Python : > ya lo tiene instalado la cuestion es que los forms siguen desanclados > > :-[ > ​Raro, la documentación dice que al reiniciar aparecen dockeados. ​ ​Recuerdo cuando lo usé, en las ventanas apareció una nueva sección, como gris con dos rayitas, y desde ahí se podían mover y pegar unas con otras. Intenta acomodarlas a tu gusto y despues en Tools -> Save Layout se graba la configuración de ventanas que armaste. ​ -- ​ Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program. ​ ​ *Linus Torvalds* ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From slibre en natio.co.cu Tue Feb 28 22:18:50 2017 From: slibre en natio.co.cu (Ismael L. Donis Garcia) Date: Tue, 28 Feb 2017 16:18:50 -0500 Subject: [Lazarus-es] Ordenar registros en TSQLQuery Message-ID: <0B4861E1B79A4232A9B4C1AC24D6C7A8@natio.co.cu> Es posible ordenar los registros que haya previamente captado en un TSQLQuery? Estoy buscando algo como: query.sort := 'campo1, campo2, ....'; Los registro no están en ninguna tabla, por tal motivo no los puedo traer ordenados. Saludos ======== | ISMAEL | ======== From mmgomez en gmail.com Tue Feb 28 23:08:26 2017 From: mmgomez en gmail.com (Martin Gomez) Date: Tue, 28 Feb 2017 19:08:26 -0300 Subject: [Lazarus-es] Ordenar registros en TSQLQuery In-Reply-To: <0B4861E1B79A4232A9B4C1AC24D6C7A8@natio.co.cu> References: <0B4861E1B79A4232A9B4C1AC24D6C7A8@natio.co.cu> Message-ID: Dices que el ORDER BY en el TSQLQuery no funciona? 2017-02-28 18:18 GMT-03:00 Ismael L. Donis Garcia via Lazarus-es < lazarus-es en lists.lazarus-ide.org>: > Es posible ordenar los registros que haya previamente captado en un > TSQLQuery? > > Estoy buscando algo como: > > query.sort := 'campo1, campo2, ....'; > > Los registro no están en ninguna tabla, por tal motivo no los puedo traer > ordenados. > > Saludos > ======== > | ISMAEL | > ======== > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus-ide.org > http://lists.lazarus-ide.org/listinfo/lazarus-es > -- ​ Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program. ​ ​ *Linus Torvalds* ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: From 5593102580 en txt.att.net Tue Feb 28 23:09:42 2017 From: 5593102580 en txt.att.net (5593102580 en txt.att.net) Date: Tue, 28 Feb 2017 14:09:42 -0800 Subject: [Lazarus-es] Ordenar registros en TSQLQuery In-Reply-To: CAFGJXk1jD4UASWZGY_RvuSEfEefoc=kA=SitMOCbwQrxUD+c=Q@mail.gmail.com Message-ID: No habla Espanola -----Original Message----- From: Sent: Tue, 28 Feb 2017 19:08:26 -0300 To: 5593102580 en txt.att.net Subject: Re: [Lazarus-es] Ordenar registros en TSQLQuery >Dices que el ORDER BY en el TSQLQuery no funciona? > >2017-02-28 18:18 GMT-03:00 Ismael L. Donis Garcia via Lazarus-es < >lazarus-es en lists.lazarus-ide.org>: > >> Es posible orden ================================================================== This mobile text message is brought to you by AT&T