25 de noviembre de 2003

Evitar el evento Valid al salir del formulario

Hay veces que deseamos que al salir del formulario no se active el evento Valid de cierto control...

Resulta que en ocasiones queremos que al presionar CTRL+F4 o haciendo clic en el botón Cerrar, no se active el evento Valid, imaginándonos que tal vez, dicho evento manda a llamar a algún proceso que consume tiempo, mismo que nuestros usuarios ven (y yo también) innecesario.

La forma "fácil" es forzar a que los usuarios vacíen el valor en el control y solo entonces, dejar que salga del Formulario, esto también es algo engorroso.

Veamos entonces la forma mas cómoda para evitar la validación cuando en realidad deseamos salirnos....
public oForm
oForm=CREATEOBJECT("MyForm")
oForm.Show()
DEFINE CLASS MyForm AS FORM 
  Caption="Ejemplo para evitar Validación"
  ADD OBJECT MyTextBox AS TextBox WITH Height=25
  ADD OBJECT MyText2 AS TExtBox WITH Height=25, Top=60
  ADD OBJECT cmdCancelar AS CommandButton WITH Top=90, Caption="Cancelar", Height=30
PROCEDURE MyTextbox.Valid
   DO CASE
     CASE !Wontop(Thisform.Name)
        ** Activando desde otro Form, no validar
        Return .T.
     CASE Thisform.ReleaseType>0
        ** Saliendo de VFP, o haciendo clik en Cerrar. No validar
        Return .T.
     OTHERWISE
       DO CASE
         CASE Mdown()
            *** Si es que esta haciendo Click en el boton Cancelar....
            *** No validar, cambia el nombre de cmdCancelar si no se llamara así
            loobj=Sys(1270)
            IF Vartype(loObj)='O' AND lower(loObj.Name)='cmdcancelar'
               loObj = NULL
               Return .T.
            ENDIF
         CASE Lastkey()=27
            *** Presionando la tecla Escape, no validar
            Return .T.
         ENDCASE

      ENDCASE 
      ****** Aqui se pondria el proceso normal de Validacion *******    
      Messagebox("Validando")        
    ENDPROC
    PROCEDURE cmdCancelar.Click
      Thisform.Release()
    ENDPROC
ENDDEFINE
Copie y pegue el código arriba descrito en su ventana de comandos, seleccione el código en la ventana de comandos y presione ENTER.

Podrá ver un formulario con tres controles, dos TextBox, y un Command Button. Si se pasa de un TextBox a otro se ejecuta el supuesto código de validación, pero si presiona el botón Cancelar o cierra el formulario, el código de validación no se ejecuta, sin importar si existen datos en el TextBox que tiene la validación.

Espero les sea de utilidad.

Espartaco Palma Martínez

19 de noviembre de 2003

Ejemplos de desnormalización para mejorar el rendimiento

 Por Miguel Egea.
Microsoft SQL-SERVER MVP

Introducción

No hay casi nada que produzca más dolores de cabeza que una base de datos desnormalizada, generalmente es garantía de problemas, y además de los que los usuarios no pueden entender. Si la información está en más de un sitio, es una realidad que por errores en nuestro código, por manipulaciones de los datos fuera de nuestras aplicaciones y por otro sin fin de circunstancias acabamos enfadados con los esquemas que no cumplen la 3FN al menos.

Entonces .... ¿Desnormalizamos?

Sin embargo hay veces que no queda más remedio que desnormalizar, de hecho, es una de las fórmulas más eficaces para aumentar el rendimiento. No me malinterpretéis, las bases de datos hay que diseñarlas, pensarlas y desarrollarlas en 3FN al menos. Sin embargo, una vez terminado el proceso de diseño, pueden establecerse estrategias de desnormalización que eviten hacer uniones de demasiadas tablas solamente para obtener un dato que necesitamos.

Pongamos un ejemplo: Si implementamos una aplicación de almacén, para obtener las ventas en un periodo de unos artículos, normalmente necesitaremos usar dos tablas. Considerando el ejemplo de la figura que tenéis al margen, para obtener esa información necesitaremos ejecutar una instrucción como la siguiente :

SELECT month(Fecha) Mes,idArticulo,sum(unidades) 
FROM Albaran a inner join [lineas Albaran] la on
a.idAlbaran=la.idalbaran
group by month(fecha),idarticulo

Esta instrucción supondrá SIEMPRE recorrerse ambas tablas todos sus registros, incluso si establecemos una cláusula WHERE del tipo Month(Fecha)=2, para buscar las del mes de febrero.
En estas circunstancias, si esperamos por ejemplo centenares de miles de albaranes y millones de líneas una estrategia de desnormalización que guarde en la tabla de líneas el mes de la cabecera será una estrategia más que adecuada, por varias razones. La primera de ellas, evidentemente es que si tenemos el dato que buscamos en una sola tabla no necesito unir dos tablas, por tanto tendré que filtrar en una solamente. Además de esa circunstancia hay otra, al grabar exactamente el dato que necesito (el mes en este caso) si realizo comparaciones con el dato o creo índices estos sí podrán ser usados y por tanto podremos obtener ventajas adicionales en cuanto al rendimiento.

Veamos las rutinas necesarias para implementar esta desnormalización, lo primero vamos a considerar este script, para crear las tablas tal y como vimos.

if not objectproperty(object_id('Lineas Albaran'),'IsTable') is null
    drop table [Lineas albaran]
go
if not objectproperty(object_id('Albaran'),'IsTable') is null
    drop table [albaran]
go
Create table [albaran] (idAlbaran int identity(1,1) primary key,
                        serie char(4) not null,
                        Numero int not null,
                        Fecha datetime not null default getdate(),
                        idcliente int)
go
create table [Lineas Albaran] (idAlbaran int not null,
                        idOrden int not null,
                        idArticulo int not null,
                        unidades int not null,
                        fecha datetime ,
                        constraint pk_lineas primary key (idalbaran,idorden),
                        constraint fk_linea_cab foreign key (idAlbaran) references Albaran(idAlbaran) )
go
  

Con este esquema tenemos el hueco para grabar la fecha, pero no tenemos garantía de que esa fecha sea la fecha correcta, por tanto, tendremos que asegurar esta circunstancia de alguna forma, por ejemplo mediante un trigger como el que sigue a continuación.

create trigger trg_LineasAlbaran on [lineas Albaran] instead of insert
as
    begin
    insert into [lineas albaran] 
                select i.idalbaran,i.idorden,i.idarticulo,i.unidades,a.fecha
                            from inserted i inner join albaran a on i.idalbaran=a.idalbaran
end

Con este trigger garantizamos que todas las lineas que se inserten van a tener la fecha que tiene el albaran, pero no tenemos garantizado que si la cabecera cambia, este cambio se refleje en nuestra línea. Para solucionar este inconveniente crearemos un trigger de actualización en la tabla de cabecera. El código podría ser el siguiente :

create trigger trg_Albaran_ActualizaFecha on albaran for update
    as
        begin
            if update(Fecha)
                    begin
                    update l set l.fecha=i.fecha 
                                    from inserted i inner join 
                                    [lineas Albaran] l 
                                    on i.idalbaran=l.idalbaran
                    end        
       end

El trigger solo actuará cuando se actualice la fecha, evitando así dispararse innecesariamente ante otras actualizaciones

Hemos preparado un pequeño script también para introducir datos y poder hacer las pruebas pertinentes.

Declare @contador int
Declare @Contador2 int
Declare @FechaInicial datetime
set @contador=0
set @fechainicial =getdate()
while @contador<2000
begin
-- Insertamos una cabecera y nlineas (hasta 10 máximo
insert into albaran (serie,numero,fecha,idcliente)
values ('A',@contador,GETDATE()-365*rand(),1)
set @contador=@contador+1
set @contador2=10*rand()
while @contador2>0 
begin
insert into [lineas albaran] (idAlbaran,idOrden,idArticulo,unidades) 
values (@contador,@contador2,15*rand(),100*rand())
set @contador2=@contador2-1
end
end
select datediff(ms,@fechainicial,getdate())/1000. [Segundos transcurridos]
go
set statistics io off
go

Con este script acabamos de insertar 2000 líneas, podéis comprobar si os apetece a quitar el trigger y ponerlo y ver la diferencia de rendimiento que debemos esperar, no será demasiado grande.

Después podéis probar el trigger sobre la cabecera lanzando esta instrucción

update albaran set fecha=dateadd(day,-360,fecha)

Consideremos ahora estas instrucciones :

create index ix_LineasAlbaran_fecha on [lineas albaran] (fecha)
set statistics io on 
select * from [lineas albaran] where fecha between '20020420' and '20020421'
select * from [lineas albaran] with(index(ix_lineasalbaran_fecha)) where fecha between '20020420' and '20020421'

 
Podríamos pensar que el resultado en cuanto a tiempos y ejecución serán el mismo al fin y al cabo estamos buscando por un campo de tipo fecha sobre el que existe un índice y no estamos aplicando ninguna función sobre el argumento de búsqueda, parece claro que la estrategia óptima sería usar el índice, ¿verdad?...... La verdad es que no siempre es así, esa estrategia sería con seguridad la que elegiría el optimizador de consultas si no hubiesemos escrito 'Select * from', es decir, si que puede encontrar los registros que son muy rápidamente, pero una vez obtenidos los identificadores, tiene que ir al índice clustered a buscar esos datos, y tiene que ir una vez para cada registro, por eso el resultado del plan de ejecución de la instrucción a y b es el que podéis ver a continuación.



Si nos fijamos la primera instrucción ha hecho un barrido de toda la tabla a través de su índice clustered (clustered index scan', sin embargo esa acción le ha hecho realizar 43 lecturas lógicas (en el caso nuestro y con los datos que se han generado en mi máquina). Sin embargo, la segunda instrucción, al verse forzada a usar el índice ha tenido que leer un total de 134 páginas. Es decir, el resultado es peor con el índice que sin él. en nuestro caso estaba devolviendo 120 filas de un total 9034, es decir un poco más del 10% de las filas ya perjudica sustancialmente el rendimiento usar el índice que no hacerlo.Estas afirmaciones no son extrapolables sin embargo a los índices clustered

Alguien podría pensar que dada esta explicación, puede concluirse que la desnormalización en este caso no ofrece tantas ventajas y que quizá debiese plantearse mejor. Creo sinceramente que no es así, el ejemplo que acabamos de ver, si bien es una práctica habitual de muchos desarrolladores, no es ni mucho menos el objetivo de esta desnormalización (que es obtener ventas por mes de la forma más ágil posible).

Obteniendo ventas mensuales

Lo que hemos obtenido con esta desnormalización es la posibilidad de evitar consultar la tabla de cabecera para obtener la fecha. Sin embargo, las preguntas habituales serán 'Cuantas unidades del artículo X hemos vendido en Mayo'. Veamos las instrucciones que responden a esta pregunta.

select idArticulo,count(*) Cuantas
from [lineas albaran]
where fecha between '20030501' and '20030601'
group by idArticulo



y el plan de ejecución que obtendremos será :



Este plan se está recorriendo la tabla de albaranes, agrupando por la cláusula que le hemos indicado y contando los registros para devolverlos.

Hemos necesitado 43 lecturas lógicas para obtener el resultado.

Sin embargo esta consulta no parece muy óptima, parece manifiestamente mejorable su rendimiento, si tenemos esta sospecha, lo mejor que podemos hacer es usar el 'Asistente para la optimización de índices' o 'Index tunning wizard' en la versión inglesa.

Este es el resultado que nos propone el asistente :

/* Created by: Index Tuning Wizard */
/* Fecha: 13/09/2003 */
/* Hora: 18:20:18 */
/* Nombre de servidor: PORTATIL */
/* Nombre de la base de datos: ACUMULADOS */
USE [ACUMULADOS] 
go
SET QUOTED_IDENTIFIER ON 
SET ARITHABORT ON 
SET CONCAT_NULL_YIELDS_NULL ON 
SET ANSI_NULLS ON 
SET ANSI_PADDING ON 
SET ANSI_WARNINGS ON 
SET NUMERIC_ROUNDABORT OFF 
go
DECLARE @bErrors as bit
BEGIN TRANSACTION
SET @bErrors = 0
CREATE NONCLUSTERED INDEX [Lineas Albaran3] ON [dbo].[Lineas Albaran] 
        ([fecha] ASC, [idArticulo] ASC )
IF( @@error <> 0 ) SET @bErrors = 1
IF( @bErrors = 0 )
    COMMIT TRANSACTION
ELSE
    ROLLBACK TRANSACTION


Si lo lanzamos y lo ejecutamos y comprobamos el plan de ejecución y el número de lecturas lógicas será:



En este caso hace un seek en el índice recien creado, el que sugirio el asistente y el número de lecturas lógicas es de 4, obteniendo una mejora casi del 75%.

En resumen,

La mezcla de técnicas, como la desnormalización y el uso de los recursos que nos proporciona SqlServer, unidos pueden hacer que el rendimiento de nuestras bases de datos mejore sustancialmente. Si a esto le añadimos un buen control del crecimiento y uso, y unas buenas prácticas de programación tenemos el 99% del éxito asegurado.



Miguel Egea Gómez es Ingeniero Técnico en Informática y trabaja como Consultor en Sinergia Tecnológica dentro del Grupo I.T. Deusto, es MVP en SQL-Server mantiene el site http://www.portalsql.com y colabora ocasionalmente en Encuentros Técnicos y charlas organizados por Microsoft.

14 de noviembre de 2003

Números a letras en formato ORDINAL

Esta rutina sirve para convertir números a letras en formato ordinal.

Ejemplo:

1= primero
2= segundo
...
33=Trigesimo Tercero
...

Espero que les ayude esta rutina como me ayudo a mi.

Atte

Victor Jose Gil Salcedo
************************************
FUNCTION Numero2Ordinal(tnNro)
  IF NOT BETWEEN(tnNro,1,999)
    RETURN "ERROR"
  ENDIF
  LOCAL lnEnt, lcRet, lnUni, lnDec, lnCen
  lnEnt = INT(tnNro)
  lcRet = ''
  lcRet = ''
  lnUni = MOD(lnEnt,10)
  lnEnt = INT(lnEnt/10)
  lnDec = MOD(lnEnt,10)
  lnEnt = INT(lnEnt/10)
  lnCen = MOD(lnEnt,10)
  DO CASE
    CASE lnUni = 1
      lcRet = 'primero'
    CASE lnUni = 2
      lcRet = 'segundo'
    CASE lnUni = 3
      lcRet = 'tercero'
    CASE lnUni = 4
      lcRet = 'cuarto'
    CASE lnUni = 5
      lcRet = 'quinto'
    CASE lnUni = 6
      lcRet = 'sexto'
    CASE lnUni = 7
      lcRet = 'séptimo'
    CASE lnUni = 8
      lcRet = 'octavo'
    CASE lnUni = 9
      lcRet = 'noveno'
  ENDCASE
  DO CASE
    CASE lnDec = 1
      lcRet = 'décimo ' + lcRet
    CASE lnDec = 2
      lcRet = 'vigésimo ' + lcRet
    CASE lnDec = 3
      lcRet = 'trigésimo ' + lcRet
    CASE lnDec = 4
      lcRet = 'cuadragésimo ' + lcRet
    CASE lnDec = 5
      lcRet = 'quincuagésimo ' + lcRet
    CASE lnDec = 6
      lcRet = 'sexagésimo ' + lcRet
    CASE lnDec = 7
      lcRet = 'septuagésimo ' + lcRet
    CASE lnDec = 8
      lcRet = 'octogésimo ' + lcRet
    CASE lnDec = 9
      lcRet = 'nonagésimo ' + lcRet
  ENDCASE
  DO CASE
    CASE lnCen = 1
      lcRet = 'centésimo ' + lcRet
    CASE lnCen = 2
      lcRet = 'ducentésimo ' + lcRet
    CASE lnCen = 3
      lcRet = 'tricentésimo ' + lcRet
    CASE lnCen = 4
      lcRet = 'cuadrigentésimo ' + lcRet
    CASE lnCen = 5
      lcRet = 'quingentésimo ' + lcRet
    CASE lnCen = 6
      lcRet = 'sexacentésimo ' + lcRet
    CASE lnCen = 7
      lcRet = 'septingentésimo ' + lcRet
    CASE lnCen = 8
      lcRet = 'octingentésimo ' + lcRet
    CASE lnCen = 9
      lcRet = 'Nonigentésimo ' + lcRet
  ENDCASE
  RETURN lcRet
ENDFUNC
***********************************

5 de noviembre de 2003

Separar valores devueltos por GETFONT()

GETFONT() retorna el nombre, tamaño y estilo de la fuente que se elije como una cadena de caracteres separados por comas.

Podemos separar esta cadena con el siguiente código:

lc = GETFONT()
IF NOT EMPTY(lc)
  ALINES(la,lc,",")
  lcMsg = "Nombre: " + la(1) + CHR(13) + ;
    "Tamaño: " + la(2) + CHR(13) + ;
    "Estilo: " + la(3)
ELSE
  lcMsg = "No selecciono ninguna fuente"
ENDIF
MESSAGEBOX(lcMsg,64)

Luis María Guayán

4 de noviembre de 2003

Fecha a palabras

Funciones que manejan fechas, útiles cuando usamos un runtime diferente al español.
? fecha_palabra(DATE())

FUNCTION fecha_palabra
    LPARAMETERS ldfecha
    RETURN dia_semana(ldfecha)+", "+STR(DAY(ldfecha),2)+ ;
      " de "+mes_year(ldfecha)+" de "+STR(YEAR(ldfecha),4)
ENDFUNC

FUNCTION dia_semana
    LPARAMETERS ldfecha
    LOCAL ARRAY ladia(7)
    ladia(1) = "Domingo"
    ladia(2) = "Lunes"
    ladia(3) = "Martes"
    ladia(4) = "Miercoles"
    ladia(5) = "Jueves"
    ladia(6) = "Viernes"
    ladia(7) = "Sabado"
    RETURN ladia(DOW(ldfecha))
ENDFUNC

FUNCTION mes_year
    LPARAMETERS ldfecha
    LOCAL ARRAY lames(12)
    lames(1)  = "Enero"
    lames(2)  = "Febrero"
    lames(3)  = "Marzo"
    lames(4)  = "Abril"
    lames(5)  = "Mayo"
    lames(6)  = "Junio"
    lames(7)  = "Julio"
    lames(8)  = "Agosto"
    lames(9)  = "Septiembre"
    lames(10) = "Octubre"
    lames(11) = "Noviembre"
    lames(12) = "Diciembre"
    RETURN lames(MONTH(ldfecha))
ENDFUNC
José Alberto Matute