Seria posible poder pasar unos parámetros al método GetRows, con fin de "seleccionar" registros y campos y no traerlos TODOS ???
Algo así como :GetRows( nFirst, nLast, aCamps )
donde nFirst, primer Id/Recno
nLast, último id/Recno
aCamps, nombres de campos a traer
Traer campos nombre, apellidos y ...
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.
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.
Se encontraron 593 coincidencias
- Dom Jun 30, 2019 7:12 pm
- Foro: Xailer Spanish
- Tema: TdataSet:GetRows()... parametrizar???
- Respuestas: 3
- Vistas: 3473
- Dom Jun 30, 2019 5:13 pm
- Foro: Xailer Spanish
- Tema: Seleccionar certificado
- Respuestas: 2
- Vistas: 3247
Re: Seleccionar certificado
Esto, lo que hace es "ocultar" y no mostrar los mensajes warning... lo que busco, es "limpiar" el código del wrapper para que esos warnings no se lanzen, vaya, depurar código siempre es bueno. Hay unas variables que no se utilizan, esas ya he comentado las lineas y ya no me avisa, pero las demás, no ...
- Mié Jun 26, 2019 12:31 pm
- Foro: Xailer Spanish
- Tema: Seleccionar certificado
- Respuestas: 2
- Vistas: 3247
Seleccionar certificado
Para tener integrado en mis aplicaciones, la selección de un certificado de firma digital...
Adjunto un proyecto, que si bien compila y se ejecuta, creo que correctamente, al compilar/enlazar da unos mensajes avisos que seria bueno de poderlos eliminar... si hay quien pueda "limpiar" esos mensajes ...
Adjunto un proyecto, que si bien compila y se ejecuta, creo que correctamente, al compilar/enlazar da unos mensajes avisos que seria bueno de poderlos eliminar... si hay quien pueda "limpiar" esos mensajes ...
- Mié Jun 12, 2019 1:11 pm
- Foro: Xailer Spanish
- Tema: Enviar mensaje WhatsApp
- Respuestas: 3
- Vistas: 3606
Enviar mensaje WhatsApp
De momento se puede enviar mostrando la ventana de Chrome + WhatsApp.
Seguro que se puede mejorar, por ejemplo, a hacerla correr en modo "silencioso", sin mostrar ninguna ventana.
Function Main()
Local oShell
oShell := CreateObject( "WScript.Shell" )
oShell:run("chrome.exe https://api ...
Seguro que se puede mejorar, por ejemplo, a hacerla correr en modo "silencioso", sin mostrar ninguna ventana.
Function Main()
Local oShell
oShell := CreateObject( "WScript.Shell" )
oShell:run("chrome.exe https://api ...
- Jue May 23, 2019 5:31 pm
- Foro: Xailer Spanish
- Tema: Locate en TDataSet
- Respuestas: 2
- Vistas: 2983
Re: Locate en TDataSet
:Locate( "MICAMPO = '" + xStrDBF( "Carte d'Or" ) + "'" )
He hecho esta funcioncilla
FUNCTION xStrDBF( cText )
RETURN StrTran( cText, "'", ['+"'"+'] )
Y está funcionando correctamente!!!
Igual a alguno le puede servir.
Gracias por vuestro tiempo.
He hecho esta funcioncilla
FUNCTION xStrDBF( cText )
RETURN StrTran( cText, "'", ['+"'"+'] )
Y está funcionando correctamente!!!
Igual a alguno le puede servir.
Gracias por vuestro tiempo.
- Jue May 23, 2019 4:56 pm
- Foro: Xailer Spanish
- Tema: Locate en TDataSet
- Respuestas: 2
- Vistas: 2983
Re: Locate en TDataSet
He probado con la función StrSQLite(), pero no resuelve el problema.
****************************** Registre d'errors ******************************
Exe: D:\XeviXailer (local)\GWin\GWin.exe
Version: 4.19.5.22
Build: 22
User name: Xevi
Computer name: HPPORTATILI7
Data: 23/05/2019
Hora: 16 ...
****************************** Registre d'errors ******************************
Exe: D:\XeviXailer (local)\GWin\GWin.exe
Version: 4.19.5.22
Build: 22
User name: Xevi
Computer name: HPPORTATILI7
Data: 23/05/2019
Hora: 16 ...
- Jue May 23, 2019 12:56 pm
- Foro: Xailer Spanish
- Tema: Locate en TDataSet
- Respuestas: 2
- Vistas: 2983
Locate en TDataSet
Siguiendo con el Locate, después del mensaje que ya postee y que no se me contestó, otro detalle que si que me es un problema, es cuando en ese Locate de un TDataSet, más concretamente un TDbfDataSet, si el campo a localizar contiene alguna comilla simple, lanza error.
texto a localizar A D ...
texto a localizar A D ...
- Mié May 22, 2019 11:25 pm
- Foro: Xailer Spanish
- Tema: Mover cursor en TEdit
- Respuestas: 1
- Vistas: 2305
Mover cursor en TEdit
Como no puedo postear en el Foro Pro...
Daniel, mira la ayuda de Xailer
TEdit:SetSel
Selecciona un rango de texto del control.
Los valores indicados son de raiz cero, es decir, la primera posición comienza por cero y no por uno como es habitual
Tipo
Sólo después de Create()
Parámetros ...
Daniel, mira la ayuda de Xailer
TEdit:SetSel
Selecciona un rango de texto del control.
Los valores indicados son de raiz cero, es decir, la primera posición comienza por cero y no por uno como es habitual
Tipo
Sólo después de Create()
Parámetros ...
- Vie May 10, 2019 11:51 am
- Foro: Xailer Spanish
- Tema: Locate en un DataSet MariaDB
- Respuestas: 1
- Vistas: 2988
Locate en un DataSet MariaDB
Por lo que he podido probar, un DataSet MariaDB no funciona correctamente cuando se requiere hacer una búsqueda de u campo 'vacio'
así pues...
:Locate( "MICAMPO = 'nose'" ) //Se posiciona en el registro que corresponde
logdebug( :id )
:Locate( "MICAMPO = ''" ) //Devuelve la posición de un ...
así pues...
:Locate( "MICAMPO = 'nose'" ) //Se posiciona en el registro que corresponde
logdebug( :id )
:Locate( "MICAMPO = ''" ) //Devuelve la posición de un ...
- Mar Abr 30, 2019 6:35 pm
- Foro: Xailer Spanish
- Tema: Error Printer Pdf
- Respuestas: 2
- Vistas: 3070
Re: Error Printer Pdf
Para el tema de que no me imprimía en apaisado... he puesto nOrientation después del Printer:StartDocPdf() y ya imprime en apaisado. Me ocurria en alguna máquina... pero queda solucionado de esta manera.
Sin embargo, el error me lo sigue lanzando en un Server2012 ¿?¿?
Sin embargo, el error me lo sigue lanzando en un Server2012 ¿?¿?

- Mar Abr 30, 2019 4:09 pm
- Foro: Xailer Spanish
- Tema: Error Printer Pdf
- Respuestas: 2
- Vistas: 3070
Error Printer Pdf
Con este código
METHOD Button1Click( oSender ) CLASS TForm1
Printer:lPreview := .F.
Printer:nOrientation := DMORIENT_LANDSCAPE
Printer:StartDocPdf( "C:\MiCarpeta\FilePDF.Pdf", "FilePDF" )
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:oCanvas:TextOut( 1820, 1920, "Prueba PDF" )
Printer ...
METHOD Button1Click( oSender ) CLASS TForm1
Printer:lPreview := .F.
Printer:nOrientation := DMORIENT_LANDSCAPE
Printer:StartDocPdf( "C:\MiCarpeta\FilePDF.Pdf", "FilePDF" )
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:oCanvas:TextOut( 1820, 1920, "Prueba PDF" )
Printer ...
- Mar Abr 30, 2019 8:55 am
- Foro: Xailer Spanish
- Tema: Errores en campos calculados
- Respuestas: 2
- Vistas: 2682
Re: Errores en campos calculados
Exacto,
Se me vino a la mente esta noche esa solución.
Puesta e implementada perfectamente!!!
miDataSet:AddCalcField( "BASE1", {|| If( miDataSet:TOTAL = Nil, 0, miDataSet:TOTAL - miDataSet:DTO ) } )
Es como si se creara un registro "fantasma" por unos instantes, al eliminar un registro o al hacer ...
Se me vino a la mente esta noche esa solución.
Puesta e implementada perfectamente!!!
miDataSet:AddCalcField( "BASE1", {|| If( miDataSet:TOTAL = Nil, 0, miDataSet:TOTAL - miDataSet:DTO ) } )
Es como si se creara un registro "fantasma" por unos instantes, al eliminar un registro o al hacer ...
- Lun Abr 29, 2019 10:59 pm
- Foro: Xailer Spanish
- Tema: Errores en campos calculados
- Respuestas: 2
- Vistas: 2682
Errores en campos calculados
Me està ocurriendo un error, y no veo como poder salvarlo...
Bien, en DBFs, me está funcionando correctamente, el tema va por MariaDB
Dispongo de un TDBBrowse y una de las columnas pertenece a un campo calculado
Además, el TDataSet dispone de más campos calculados, como por ejemplo...
miDataSet ...
Bien, en DBFs, me está funcionando correctamente, el tema va por MariaDB
Dispongo de un TDBBrowse y una de las columnas pertenece a un campo calculado
Además, el TDataSet dispone de más campos calculados, como por ejemplo...
miDataSet ...
- Dom Abr 28, 2019 6:55 pm
- Foro: SQL
- Tema: Como hacer un Where Upper()
- Respuestas: 2
- Vistas: 58546
Re: Como hacer un Where Upper()
Gracias, Claudio.
Lo he podido hacer de esta forma...
SELECT * FROM factures WHERE BINARY b LIKE CONCAT('%',UPPER(b),'%')
Lo he podido hacer de esta forma...
SELECT * FROM factures WHERE BINARY b LIKE CONCAT('%',UPPER(b),'%')
- Dom Abr 28, 2019 1:39 pm
- Foro: SQL
- Tema: Como hacer un Where Upper()
- Respuestas: 2
- Vistas: 58546
Como hacer un Where Upper()
En una consulta a una tabla... cómo puedo hacer un Where que me "filtre" y me devuelva los datos de la tabla que SOLO tiene un campo concreto en mayúsculas???
SELECT * FROM mitabla WHERE micampo = UPPER( micampo )
SELECT * FROM mitabla WHERE UPPER( micampo )
Esto no me está funcionando... pues me ...
SELECT * FROM mitabla WHERE micampo = UPPER( micampo )
SELECT * FROM mitabla WHERE UPPER( micampo )
Esto no me está funcionando... pues me ...
- Mar Abr 16, 2019 3:39 pm
- Foro: Xailer Spanish
- Tema: Ordenar Dataset
- Respuestas: 9
- Vistas: 7823
Re: Ordenar Dataset
::oDSTable:Sort( "xCIFreal(dni)" )
Llamando a mi función, ordena el Browse a gusto!!!
Llamando a mi función, ordena el Browse a gusto!!!
- Mar Abr 16, 2019 11:04 am
- Foro: Xailer Spanish
- Tema: Ordenar Dataset
- Respuestas: 9
- Vistas: 7823
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-9 A-Z ???
Puedo ...
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-9 A-Z ???
Puedo ...
- Mié Abr 10, 2019 7:41 pm
- Foro: Xailer Spanish
- Tema: Ordenar Dataset
- Respuestas: 9
- Vistas: 7823
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!!!
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!!!
- Mié Abr 10, 2019 7:38 pm
- Foro: Xailer Spanish
- Tema: Ordenar Dataset
- Respuestas: 9
- Vistas: 7823
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
No me sirve 100%
Con mi funcioncilla, si que devuelvo orden discriminando donde B es lo mismo que b
- Mié Abr 10, 2019 7:27 pm
- Foro: Xailer Spanish
- Tema: Ordenar Dataset
- Respuestas: 9
- Vistas: 7823
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.
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.
- Mié Abr 10, 2019 6:18 pm
- Foro: Xailer Spanish
- Tema: Ordenar Dataset
- Respuestas: 9
- Vistas: 7823
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 ...
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 ...
- Mié Abr 10, 2019 3:25 pm
- Foro: Xailer Spanish
- Tema: Ordenar Dataset
- Respuestas: 9
- Vistas: 7823
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" en funciones REGEXP ...
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" en funciones REGEXP ...
- Mié Abr 10, 2019 9:45 am
- Foro: Xailer Spanish
- Tema: Ordenar Dataset
- Respuestas: 9
- Vistas: 7823
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, guiones ...
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, guiones ...
- Sab Abr 06, 2019 9:21 pm
- Foro: SQL
- Tema: Añadir un registro
- Respuestas: 5
- Vistas: 71180
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, ",", "" ) + Chr(10 ...
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, ",", "" ) + Chr(10 ...
- Vie Abr 05, 2019 10:25 am
- Foro: SQL
- Tema: Añadir un registro
- Respuestas: 5
- Vistas: 71180
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 ...
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 ...