In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Search found 503 matches

Go to advanced search

by XeviCOMAS
Tue Apr 16, 2019 3:39 pm
Forum: Spanish
Topic: Ordenar Dataset
Replies: 9
Views: 288

Re: Ordenar Dataset

::oDSTable:Sort( "xCIFreal(dni)" )

Llamando a mi función, ordena el Browse a gusto!!!
by XeviCOMAS
Tue Apr 16, 2019 11:04 am
Forum: Spanish
Topic: Ordenar Dataset
Replies: 9
Views: 288

Re: Ordenar Dataset

Una cosa que me faltaria... Para ordenar "temporalmente" un TDataset MariaDB me funciona de lujo... ::oDSTable:Sort( "REGEXP_REPLACE( Upper(dni), '[^0-9,A-Z]', '' )" ) Pero, para un TDBFDataset... cómo sería una función que quitara todos los caracteres que no se corresponden a 0-...
by XeviCOMAS
Wed Apr 10, 2019 7:41 pm
Forum: Spanish
Topic: Ordenar Dataset
Replies: 9
Views: 288

Re: Ordenar Dataset

Echo!!!

Fijándome en lo que hace la funcion REGEXP_REPLACE( dni, '[^0-9,A-Z]', '' )

Añado un Upper...
REGEXP_REPLACE( Upper(dni), '[^0-9,A-Z]', '' )

Y listo el pollo, que dirian!!!

GRACIAS!!!
by XeviCOMAS
Wed Apr 10, 2019 7:38 pm
Forum: Spanish
Topic: Ordenar Dataset
Replies: 9
Views: 288

Re: Ordenar Dataset

Ahora me he fijado bien... no "discrimina" letras may/minusculas.

No me sirve 100%

Con mi funcioncilla, si que devuelvo orden discriminando donde B es lo mismo que b
by XeviCOMAS
Wed Apr 10, 2019 7:27 pm
Forum: Spanish
Topic: Ordenar Dataset
Replies: 9
Views: 288

Re: Ordenar Dataset

Gracias, José.

Esto va perfectíssimo!!!

Ahora bien, para poder profundizar en alguna función propia en SQL,...
Cómo haria esa funcióncilla que he puesto, en un bucle???
Es por ir entendiendo y desarrollando más en SQL.

Gracias por vuestro tiempo.
by XeviCOMAS
Wed Apr 10, 2019 6:18 pm
Forum: Spanish
Topic: Ordenar Dataset
Replies: 9
Views: 288

Re: Ordenar Dataset

Cada cosa que toco, SQL me sorprende más y más!!! BEGIN SET @cNifReal = ''; SET @cLectura = Upper(SUBSTRING(rtf,1,1)); IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN SET @cNifReal = CONCAT( @cNifReal, @cLectura ); END IF; SET @cLectura = Upper(SUBSTRING(rtf,2,1)); IF InStr( 'ABCD...
by XeviCOMAS
Wed Apr 10, 2019 3:25 pm
Forum: Spanish
Topic: Ordenar Dataset
Replies: 9
Views: 288

Re: Ordenar Dataset

Ignacio, gracias por el apunte. de esta manera, consigo ordenar correctamente el TDBBrowse que tiene asignado un TDataSet ::oDSTable:Sort( "REGEXP_REPLACE( REGEXP_REPLACE( dni, '-', '' ), '/', '' )" ) pero claro, hay una lista muy extensa de caracteres que deberia ir "anidando" e...
by XeviCOMAS
Wed Apr 10, 2019 9:45 am
Forum: Spanish
Topic: Ordenar Dataset
Replies: 9
Views: 288

Ordenar Dataset

Necesito ordenar un Dataset por un campo, pero "limpio"... me explico. Resulta que los NIF/CIF cada uno los va entrando a su gusto. Alguien me los entra LetraGuionNumeros Otros LetraBarraNumeros O incluso NumerosPuntosNumerosGuionLetra Pues necesito Ordenar ese campo quitando puntos, guion...
by XeviCOMAS
Sat Apr 06, 2019 9:21 pm
Forum: SQL
Topic: Añadir un registro
Replies: 5
Views: 259

Re: Añadir un registro

Al final, como lo necesito si o si "orden natural", por compatibilidad con otras funciones que utilizo... aItems := :QueryArray( "SELECT cod,descripcion FROM miBBDD.miTabla;" ) HB_AIns( aItems, 6, { 132, 'Josefa' }, .T. ) For n:=1 TO Len(aItems) cValues += IF( n>1, ",",...
by XeviCOMAS
Fri Apr 05, 2019 10:25 am
Forum: SQL
Topic: Añadir un registro
Replies: 5
Views: 259

Re: Añadir un registro

Gracias José, De la manera que propones, el registro 6 Josefa se añadirà al final de la Tabla, con el id 12... no??? No es así... yo quiero que el id 12 tome los datos del registro del id 11, los del 11 los tome del 10... i así hasta el 6 Y el id 6 hago el UPDATE con los datos del registro 132 Josef...
by XeviCOMAS
Thu Apr 04, 2019 11:20 pm
Forum: SQL
Topic: Añadir un registro
Replies: 5
Views: 259

Añadir un registro

Me estoy peleando en como hacer para insertar un registro en medio de una tabla. Suponiendo que tengo una tabla con 11 registros id cod descripcion 1 110 Pepe 2 111 Pepa 3 121 Juan 4 122 Juana 5 131 Jose 6 141 Emilio 7 142 Emilia 8 151 Fernando 9 152 Fernanda 10 161 Mario 11 162 Maria Bien, EN ORDEN...
by XeviCOMAS
Mon Mar 25, 2019 11:59 am
Forum: Spanish
Topic: TBarCode guardar imagen
Replies: 1
Views: 116

TBarCode guardar imagen

Ya pregunte hace un tiempo sobre guardar la imagen, pero el tema es "casi" lo mismo, pero no lo mismo... Resulta que estoy trabajando con TBarCode, y necesito guardar la imagen del código de barras. WITH OBJECT oBarCod := TBarcode():Create( oForm ) :nType := zbCODE128 :cText := "19001...
by XeviCOMAS
Thu Mar 14, 2019 9:44 am
Forum: Spanish
Topic: Mi aplicacion se "suspende.."
Replies: 6
Views: 248

Re: Mi aplicacion se "suspende.."

Gabo,

intenta averiguar en que parte de tu código se queda "congelada" tu aplicación.
Luego, revisa el código... igual tienes un bucle que se hace interminable. En alguna ocasión, puede suceder.
Un For...Next, While...End

Revisa código, y pon stops/alertas de donde llega tu código.
by XeviCOMAS
Tue Feb 26, 2019 9:50 pm
Forum: Spanish
Topic: TBrwColumn:OnPostEdit
Replies: 1
Views: 222

Re: TBrwColumn:OnPostEdit

Esto es así???
El funcionamiento es normal???
:?:
De momento lo soluciono hechando mano del OnExit
:?
by XeviCOMAS
Tue Feb 26, 2019 4:19 pm
Forum: Spanish
Topic: Xailer plagado de un monton de errores con MariaDB
Replies: 7
Views: 299

Re: Xailer plagado de un monton de errores con MariaDB

Hugo, Como te ha dicho el compañero Claudio, pues yo en el mismo sentido te respondo. Hace poco más de un año que me dio por cambiar (mas que cambiar, hacer la aplicación dual DBFs/MariaDBs)... en este período, ningún problema que no sea mio, de mi no saber como hacer con MariaDB, pero problema NING...
by XeviCOMAS
Mon Feb 25, 2019 10:39 am
Forum: Spanish
Topic: TBrwColumn:OnPostEdit
Replies: 1
Views: 222

TBrwColumn:OnPostEdit

De la ayuda,... Este evento se produce cuando se finaliza la edición de la columna y permite bien modificar los valores de <Value> y <lCanceled> ya que son pasados por referencia o realizar directamente la operación de salvado de datos. La primera opción sólo tiene sentido si la propiedad lAutoSave ...
by XeviCOMAS
Fri Feb 22, 2019 2:53 pm
Forum: Spanish
Topic: TRichEdit Transparente
Replies: 2
Views: 197

Re: TRichEdit Transparente

Estupendo !!!

Estava viendo que algunos controles en Xailer 6 Beta, ya llevan la propiedad nOpacity, lo he probado... y es un lujazo!!!

Gracias por vuestro tiempo.
by XeviCOMAS
Mon Feb 18, 2019 11:50 am
Forum: Spanish
Topic: Mala alineacion de controles
Replies: 4
Views: 423

Re: Mala alineacion de controles

Gracias José. Perfecto y entendido. METHOD SetClientSize( nWidth, nHeight ) INLINE ::Super:SetBounds( ,, nWidth, nHeight ) Por lo que respecta al Create, si, al ponerlo en práctica en mi aplicación, vi que de mi manera, se lanzava el método Create() dos veces, y lo quité en el Initialize. Gracias po...
by XeviCOMAS
Fri Feb 15, 2019 8:47 pm
Forum: Spanish
Topic: Mala alineacion de controles
Replies: 4
Views: 423

Re: Mala alineacion de controles

Faltavan los controles nAlign alRIGHT o alBOTTOM, si éstos tienen controles anclados RIGHT y/o BOTTOM For n:=1 to Len(::aControls) If ::aControls[n]:nAlign = alRIGHT For n2:=1 to Len(::aControls[n]:aControls) If ::aControls[n]:aControls[n2]:nAnchors = akBOTTOM .or. ::aControls[n]:aControls[n2]:nAnch...
by XeviCOMAS
Fri Feb 15, 2019 4:01 pm
Forum: Spanish
Topic: Mala alineacion de controles
Replies: 4
Views: 423

Re: Mala alineacion de controles

Bien, de momento, me apaño con... METHOD New( oParent ) CLASS TSimulForm Local n ::Super:New( oParent ) ::CreateForm( .T. ) IF !oParent:IsKindOf( "TForm" ) ::nAlign := alCLIENT ELSE oParent:SetVirtualBounds( 0, 0, ::nWidth, ::nHeight ) ENDIF For n:=1 to Len(::aControls) If ::aControls[n]:n...
by XeviCOMAS
Fri Feb 15, 2019 3:14 pm
Forum: Spanish
Topic: Mala alineacion de controles
Replies: 4
Views: 423

Mala alineacion de controles

En "practicas" con el Sample FormInAForm, me doy cuenta de un detalle. Los controles que tienen anclaje a la derecha y/o abajo, no los ancla correctamente. He añadido un par de labels al sample, uno alineado arriba/derecha y otro alineado abajo/derecha. Adjunto proyecto. Vereis que no los ...
by XeviCOMAS
Thu Feb 14, 2019 11:28 pm
Forum: Spanish
Topic: Formulario MDI o NORMAL
Replies: 10
Views: 515

Re: Formulario MDI o NORMAL

Exacto!!!

Funciona PERFECTAMENTE.

Muchas gracias.
by XeviCOMAS
Thu Feb 14, 2019 8:38 pm
Forum: Spanish
Topic: Herencia de controles... se puede cambiar???
Replies: 0
Views: 104

Herencia de controles... se puede cambiar???

Bien, un tema que me está ocupando mientras desarrollo la aplicación en entorno NO MDI, y utilizar pestañas. Hechando mano del Sample FormInAForm, creo que debo de ir por ahí, pues diseño los forms para incrustarlos en los paneles segun sea la necesidad de la ventana a abrir, en lugar de abrir la ve...
by XeviCOMAS
Thu Feb 14, 2019 8:26 pm
Forum: Spanish
Topic: Formulario MDI o NORMAL
Replies: 10
Views: 515

Re: Formulario MDI o NORMAL

Pues si... es una solución. Sólo que mis aplicaciones estan desarrolladas en entorno MDI... bien cambiaré de momento la que quiero utilizar de esta forma, y ya iré viendo. Ahora estoy cambiando el "xip". Quiero pasar a utilizar pestañas, que es como creo que se están desarrollando las apli...
by XeviCOMAS
Thu Feb 14, 2019 7:39 pm
Forum: Spanish
Topic: Control TTabs
Replies: 4
Views: 377

Re: Control TTabs

Ya, la propiedad lShowTabsMenu. La havia visto y probado, per no termina de convencerme. Con lo fácil y vistoso que era la flechita izq.-der. :D En fin, será cosa de ir acostumbrandose. De todas maneras, si se puede implementar o alguien lo implementa, le estaré agradecido. No se si se puede "s...

Go to advanced search