Xailer forum

XeviCOMAS

Algo que hasta Office2010 ha estado funcionando... local oExcel TRY oExcel := GetActiveObject( "Excel.Application" ) CATCH TRY oExcel := CreateObject( "Excel.Application" ) CATCH MsgAlert( "ERROR! Excel not available. [" + Ole2TxtError()+ "]" ) Return Nil END ...

XeviCOMAS

Por si alguien se ha encontrado con el mismo problema. Utilizando TOle, Microsoft Office 2013 me da algun error al generar el fichero... siendo el mismo código, funciona correctamente en anteriores versiones de Office. y otro... Utilizando la clase nativa FileXLS, de Ramon Avendaño, o la modificada ...

XeviCOMAS

Gracias. "Alfonso" ha escrit al missatge:511c1785$[email=2@svctag-j7w3v3j....]2@svctag-j7w3v3j....[/email] Se me ocurre que hagas dos pasadas con strTran y reemplaces: en la primera pasada los . por "" en la segunda pasada las , por . Saludos Alf+. El 13/02/13 22:47, Xevi escribi...

XeviCOMAS

Si bien disponemos de la función Val( cNumero ) Val( "123") -> 123 Val( "123.45") -> 123.45 Val( 123,456.78") -> 123456.78 Pero.. y si se utiliza el formato @E ??? Val( "123,45") -> 123 Val("123.456,78") -> 123.46 Hay alguna función de conversión de númer...

XeviCOMAS

Ignacio, Gracias. Era por si estava creada una función que "resolviera" TODOS los carácteres y me ahorrara de crear una... Parecida a una función que estoy utilizando... static Function xISO_8859_1( c ) c := Upper( c ) c := StrTran( c, ",", "" ) c := StrTran( c, "....

XeviCOMAS

AEAT... Hacienda.
los campos Alfanuméricos se deben rellenar según norma ISO-8859-1
Sabeis si existe función de conversión de texto a esta norma???
Gracias.
Un Saludo,
Xevi.

XeviCOMAS

No se que he escrito!!! Estoy mirando el efecto de pintado de la ventana y no entiendo nada. El efecto se produce en OnShow no creo que haga nada. NO HE DICHO NADA!!! Un Saludo, Xevi. "Xevi" ha escrit al missatge:5112ae7a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email] José, me gu...

XeviCOMAS

José, me gusta más como propones... AnimateWindow( ::Handle, 400, AW_CENTER ) Gracias. Y si además, en lugar de ponerlo en el evento OnActivate se pone en OnShow... METHOD FormShow( oSender ) CLASS TFrmMagatzemIGLlistats AnimateWindow( ::Handle, 400, AW_CENTER ) RETURN Nil Queda de lujo!!! Se elimin...

XeviCOMAS

José, El efecto que digo és el de minimizar/maximizar... Hace un efecto de embudo que lo descomprime/comprime del o al icono del dock. el efecto "pillarlo" no se como hacerlo. Ahora bien, si quieres, tirando de las nuevas tecnologías, te conectas a mi MAC. Conectamos el TeamViewer y lo ve...

XeviCOMAS

José, Por probar... que no quede, jejeje. Está Xulo!!! Gracias. Si alguien consigue algun efecto más que sorprendente... como el de Mac al mostrar/ocultar ventanas, que tiene un efecto "abanico" de pequeño hasta la construcción total de la ventana y quiere compartirlo... es de agradecer. U...

XeviCOMAS

Martin, Funcionó!!! Gracias. Un Saludo, Xevi. "Martin Del Angel" ha escrit al missatge:51102415$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email] On 2/4/2013 2:29 PM, Xevi wrote: > Martin, > > > ::oLabel1:lVisible := ::oLabel2:lVisible := ::oLblContador:lVisible > := ::oCkboxlProces...

XeviCOMAS

Martin, ::oLabel1:lVisible := ::oLabel2:lVisible := ::oLblContador:lVisible := ::oCkboxlProces1a1:lChecked ::oProgressBar1:nValue := 0 While .T. ::oBtnCancelar:SetFocus() If ::lCancelar Exit EndIf ProcessMessages() cLectura := FReadStr( nHandle, nLenData ) If cLectura = Chr(26) .or. Empty( cLectura ...

XeviCOMAS

Un mensaje de Bingen... ProgressBar y labels. El error que le ocupa es el mismo que te puede estar pasando. La solución, ya que creo que se trata de un bug en la clase TLabel, pasa por utilizar un TEdit... *** a mi tampoco me "refresca" un label (por mas que fuerze ProcessMessages())... en...

XeviCOMAS

Gabriel, Si lo haces como te he comentado, no necesitas de ningún código!!! En un TImage cambias el nombre de la Picture asociada en cada registro... <Ruta>+<NombreImagen.Jpeg> y nada más. Un Saludo, Xevi. "Gabriel Gonzalez A" ha escrit al missatge:510c32cc$[email=1@svctag-j7w3v3j....]1@sv...

XeviCOMAS

Bingen, a mi tampoco me "refresca" un label (por mas que fuerze ProcessMessages())... en un bucle repetitivo y que muestro una ProgressBar. Lo que hago, es utilizar un TEdit con lBorder .F., lEnabled .F., nClrPaneDisabled clBtnFace, nClrTextDisabled clWindowText Vaya, que utilizo un TEdit ...

XeviCOMAS

Gabriel, Lo que hago yo... En el fichero de clientes, vehículos... tengo un botón que me enlaza a una carpeta alojada en una ubicación del PC, relacionada con un campo de la DBF, la cual es un contenedor de TODOS los archivos que deseo guardar y que hacen referencia al vehículo en cuestión... Foto...

XeviCOMAS

Yo le he añadido... Function EsFecha( cFecha ) cFecha := StrTran( cFecha, "-", "/" ) return( cFecha == DToC( CToD( cFecha ) ) ) Por el tema del Set( _SET_DATEFORMAT, ... ) y el problema está como bien dice "x", en el Century. Esto lo da como .F. "01/01/0001" H...

XeviCOMAS

De momento me he creado una para mis necesidades... //---------------------------------------------------------- -------------------- FUNCTION xIsDate(c) Local cDateFormat := Set( _SET_DATEFORMAT ) Local nLenDateFormat := Len(cDateFormat) Local n, lFormatN := .T. If ValType(c) = "C" .and. ...

XeviCOMAS

José, Ni despacito, ni con cariño .... LogDebug( "01/0001", HB_IsDate( CToD( "01/0001" ) )) LogDebug( "01/0001/01", HB_IsDate( CToD( "01/0001/01" ) ) ) LogDebug( "01/0001/01/01", HB_IsDate( CToD( "01/0001/01/01" ) ) ) LogDebug( "010100...

XeviCOMAS

José, lo he hecho despaciiiiiito... Le he añadido la conversión a fecha... Pero no funciona. LogDebug( "01/0001", IsDate( CToD( "01/0001" ) )) LogDebug( "01/0001/01", IsDate( CToD( "01/0001/01" ) ) ) LogDebug( "01/0001/01/01", IsDate( CToD( "01/...

XeviCOMAS

José, Pues existir en Harbour, existe, pues compila. Ahora bien LogDebug( "01/0001", IsDate( "01/0001" ) ) LogDebug( "01/0001/01", IsDate( "01/0001/01" ) ) LogDebug( "01/0001/01/01", IsDate( "01/0001/01/01" ) ) LogDebug( "01010001"...

XeviCOMAS

José, Demasiado deprisa!!! FUNCTION IsDate(c) Return !Empty(CToD(c)) No sirve!!! LogDebug( "01/0001", IsDate( "01/0001" ) ) LogDebug( "01/0001/01", IsDate( "01/0001/01" ) ) LogDebug( "01/0001/01/01", IsDate( "01/0001/01/01" ) ) en los 3 cas...

XeviCOMAS

José, Gracias, funciona perfecta. Así pues... FUNCTION IsDate(c) Return !Empty(CToD(c)) La incorporo en mi aplicación... aunque, tratándose de una "sencilla" función, ¿no seria mejor que alguien la incorporara en Harbour???, digo yo, no se. A mi me sirve así, pero hay funciones que con l...

XeviCOMAS

Habría que incorporar en el Wiki, también, el cambio de AIns por HB_Ains si se utiliza el 3r o 4o parámetro. Yo me acabo de encontrar con ello, y recuerdo que es como el uso del 3r paráemtro en ADel... así que lo probé, y funciona perfectamente HB_AIns() Sugiero... Sustituir AIns() con más de 2 pa...

XeviCOMAS

No lo recuerdo, pero... hay alguna función para comprovar si un valor caracter es una fecha correcta??? De momento lo compruebo así... If Day(CtoD(cVariable)) > 0 .... Pero me encuentro en que si compruebo un valor como "01/0000" lo da como ..T., y evidentemente luego me saltan errores. G...

Se encontraron 586 coincidencias

TOle Office2013

crear Fichero XLS

Convertir Caracter a Número

Convertir Caracter a Número

Convertir Texto

Convertir Texto

Efeito ao abrir formulário

Efeito ao abrir formulário

Efeito ao abrir formulário

Efeito ao abrir formulário

ProgressBar y labels

ProgressBar y labels

::cText and ::oLabel:cText

Guardar y extraer un grafico de un campo DBF

ProgressBar y labels

Guardar y extraer un grafico de un campo DBF

Para Xevi, a propósito de la validación de fechas...

Verificar fecha

Verificar fecha

Verificar fecha

Verificar fecha

Verificar fecha

Verificar fecha

Wiki Migrar de xHarbour a Harbour

Verificar fecha