Biolab 1.0

[[Chris]]

Empezado por DarKraZY

Hola!
He realizado una pequeña prueba. Y antes de nada, he de decir que la impresión visual es muy satisfactoria. Probaré dentro un rato con el nuevo ejecutable.

Aquí algunas mejoras o problemas que me he encontrado:

• Más opciones de instalación
• No sale el icono de la aplicación, sino el genérico de Windows, en el escritorio
• El fichero de excepciones *.elf se guarda en el escritorio
• No está preparado para multi-monitor, tengo 2, y la ventana de usuarios sale entre ambos.
• Al dar de alta el usuario, sale una nueva ventana, pero no se oculta la anterior.
• Ortografía: ficha de alta del nuevo Paciente: cédula, envío

Saludos

Gracias DarKrazy por tu observaciones. El problema del icono no sé lo que ha pasado aún. Tendré que revisar más en detalle el ejecutable. Nunca lo había probado en un sistema con más de un monitor, así que realmente me "agarras movido". Veré que puedo hacer en este caso. Gracías por las observaciones ortográficas, le daré una nueva revisada a la interfaz para encontrar estos problemas.

Con respecto a las opciones de instalación, lo hecho así porque tengo en consideración que mi público objetivo tiene pocos conocimientos técnicos. Es por esa razón que he reducido al máximo los pasos de la instalación. No entendí a lo que te refieres con: "Al dar de alta el usuario, sale una nueva ventana, pero no se oculta la anterior." Me podrías explicar mejor?

Por último, si se te creo un archivo .elf (no debió ser en el escritorio) me lo podrías enviar compañero? Es para darle análisis y reparar los problemas que aparezcan en el informe.

Saludos,
Chris

[[Chris]]

José, gracias por compartir tu experiencia conmigo. La búsqueda en Biolab funciona más o menos a cómo lo estás haciendo tú. Pero solo con SQL, no con Locate. En el código que compartiste:

Código Delphi [-]
IBDContactos.Locate(RemoveAcentos(UpperCase('EMPRESA')),
                          RemoveAcentos(UpperCase(edit1.Text)),
                          [ loCaseInsensitive,loPartialKey]);

Tienes dos problemas, uno de ellos es que no estás quitando los acentos al valor del campo, sino a una cadena constante ('EMPRESA'). Lo que estás haciendo es solo quitarle los acentos al al nombre del campo "EMPRESA". En tu caso creo que Locate no te sirve, talvez un código así te puede ayudar mejor:

Código Delphi [-]
begin
    if Edit1.Text<>'' then
    begin
        if CheckBox1.Checked=false then
        begin       //Mejor busqueda pero no admite acentos
              IBDContactos.Active:=False;
              IBDContactos.SelectSQL.Clear;
              IBDContactos.SelectSQL.Add('select * from CONTACTOS WHERE UPPER (EMPRESA) LIKE '+QuotedStr('%'+UpperCase(Edit1.Text)+'%'));
              IBDContactos.Active:=True;
        end
        else
        with IBDContactos do //Busque ignorando los acentos
        try
            DisableControls;
            First;
               
            while not Eof do
                if AnsiPos(RemoveAcentos(AnsiLowerCase(edit1.Text))
                           RemoveAcentos(AnsiLowerCase(FieldByName('empresa').AsString))) then
                    Break
                else
                    Next;                
        finally
            EnableControls;
        end;
end;

Saludos,
Chris