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 521 matches

Go to advanced search

by XeviCOMAS
Tue Jul 16, 2019 5:31 pm
Forum: Spanish
Topic: Enviar mensaje WhatsApp
Replies: 3
Views: 140

Re: Enviar mensaje WhatsApp

Bingen,

No, así está.
No lo estoy utilizando, solo lo vi y me puse a probar, pero no lo he incluido en mis aplicaciones.
by XeviCOMAS
Thu Jul 04, 2019 1:19 pm
Forum: Spanish
Topic: Saber los métodos
Replies: 0
Views: 45

Saber los métodos

Necesito saber los métodos que dispongo de un Form o una Clase.

Así pues como con aControls se puede saber los controles que hay en un Form.


::aMethods()
???
existe algo para ese menester???

Gracias.
by XeviCOMAS
Sun Jun 30, 2019 9:46 pm
Forum: Spanish
Topic: TdataSet:GetRows()... parametrizar???
Replies: 3
Views: 97

Re: TdataSet:GetRows()... parametrizar???

un TDbfDataSet
by XeviCOMAS
Sun Jun 30, 2019 7:12 pm
Forum: Spanish
Topic: TdataSet:GetRows()... parametrizar???
Replies: 3
Views: 97

TdataSet:GetRows()... parametrizar???

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, apell...
by XeviCOMAS
Sun Jun 30, 2019 5:13 pm
Forum: Spanish
Topic: Seleccionar certificado
Replies: 2
Views: 146

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...
by XeviCOMAS
Wed Jun 26, 2019 12:31 pm
Forum: Spanish
Topic: Seleccionar certificado
Replies: 2
Views: 146

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 ...
by XeviCOMAS
Wed Jun 12, 2019 1:11 pm
Forum: Spanish
Topic: Enviar mensaje WhatsApp
Replies: 3
Views: 140

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 h...
by XeviCOMAS
Thu May 23, 2019 5:31 pm
Forum: Spanish
Topic: Locate en TDataSet
Replies: 2
Views: 143

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.
by XeviCOMAS
Thu May 23, 2019 4:56 pm
Forum: Spanish
Topic: Locate en TDataSet
Replies: 2
Views: 143

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:55:40 Memòr...
by XeviCOMAS
Thu May 23, 2019 12:56 pm
Forum: Spanish
Topic: Locate en TDataSet
Replies: 2
Views: 143

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' *******...
by XeviCOMAS
Wed May 22, 2019 11:25 pm
Forum: Spanish
Topic: Mover cursor en TEdit
Replies: 1
Views: 92

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 <nStart>: Prim...
by XeviCOMAS
Fri May 10, 2019 11:51 am
Forum: Spanish
Topic: Locate en un DataSet MariaDB
Replies: 1
Views: 133

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 posic...
by XeviCOMAS
Tue Apr 30, 2019 6:35 pm
Forum: Spanish
Topic: Error Printer Pdf
Replies: 2
Views: 152

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 ¿?¿? :roll:
by XeviCOMAS
Tue Apr 30, 2019 4:09 pm
Forum: Spanish
Topic: Error Printer Pdf
Replies: 2
Views: 152

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 PD...
by XeviCOMAS
Tue Apr 30, 2019 8:55 am
Forum: Spanish
Topic: Errores en campos calculados
Replies: 2
Views: 130

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 re...
by XeviCOMAS
Mon Apr 29, 2019 10:59 pm
Forum: Spanish
Topic: Errores en campos calculados
Replies: 2
Views: 130

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:AddC...
by XeviCOMAS
Sun Apr 28, 2019 6:55 pm
Forum: SQL
Topic: Como hacer un Where Upper()
Replies: 2
Views: 196

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),'%')
by XeviCOMAS
Sun Apr 28, 2019 1:39 pm
Forum: SQL
Topic: Como hacer un Where Upper()
Replies: 2
Views: 196

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... ...
by XeviCOMAS
Tue Apr 16, 2019 3:39 pm
Forum: Spanish
Topic: Ordenar Dataset
Replies: 9
Views: 1030

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: 1030

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: 1030

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: 1030

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: 1030

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: 1030

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: 1030

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...

Go to advanced search