Migrar o no migrar

[Neftali [Germán.Estévez]]

Empezado por Dexter182

Si, voy a esperar a que salga la nueva versión de la Community y voy a probar a hacer eso como para tener un panorama de los problemas que pueda tener.

La nueva versión Community es posible que tarde unos meses.
Puedes descargar la actual, empezar con la pruebas, y cuando salga la nueva, compilará seguro sin problemas, lo que estés haciendo con la 10.3.

[Dexter182]

Empezado por Neftali [Germán.Estévez]

La nueva versión Community es posible que tarde unos meses.
Puedes descargar la actual, empezar con la pruebas, y cuando salga la nueva, compilará seguro sin problemas, lo que estés haciendo con la 10.3.

OK Germán. Gracias.
Entonces el fin de semana me bajo la actual para ir probando y de paso les cuento como me fue.
Saludos!

[Dexter182]

Buenas!

Quería decirles que estuve jugando con Delphi Community y el programa compila sin hacer prácticamente ningún cambio (solo quitando la parte de los reportes y los componentes de terceros).
Obviamente que habría que probar exhaustivamente todo para estar seguro, pero que compile ya es una buena noticia.
Me hace algunos defectos estéticos que luego iré viendo como acomodo (algunos son detalles tontos; por ejemplo en los DbGrid y StringGrid lo solucioné con el DrawingStyle en "gdsClassic").

En Lazarus no tuve tanta suerte. Tendría que hacer muchos cambios para que al menos compile.
Igualmente cuando terminé la limpieza del código voy a intentarlo de nuevo.

PD: Que lindo que es el StringGrid que trae Lazarus. Tiene prácticamente todo lo que he tenido que buscar en componentes de terceros. ¿Por que Delphi prácticamente no ha agregado características a este componente?.


Saludos!

[MAXIUM]

Empezado por Dexter182

B
PD: Que lindo que es el StringGrid que trae Lazarus. Tiene prácticamente todo lo que he tenido que buscar en componentes de terceros. ¿Por que Delphi prácticamente no ha agregado características a este componente?.

Hay un Grid espectacular Delphi 7. Y gratis http://www.bergsoft.net/en-us/downloads

[Dexter182]

Gracias MAXIUM!

Lo probaré. Ahora estoy usando este: http://users.otenet.gr/~tsoyran/THyperGrid.htm

Saludos!

[Casimiro Noteví]

Empezado por MAXIUM

Hay un Grid espectacular Delphi 7. Y gratis http://www.bergsoft.net/en-us/downloads

Tanto como gratis, no sé si hay una versión gratis, pero estará limitada, se supone:

[Dexter182]

Empezado por Casimiro Notevi

Tanto como gratis, no sé si hay una versión gratis, pero estará limitada, se supone:

Me encontré con lo mismo cuando fui a descargarlo.
Encima el antivirus me bloqueó el instalador.

[Dexter182]

Después de varios meses he vuelto!!!

Ya he comenzado con la migración y, aunque voy lento, felizmente mi sistema compila en Delphi 10.3 Community.

He leído (y estoy leyendo) mucho y he seguido sus sabios consejos:
- Implementé control de versiones (descubrí la existencia de GIT!!!)

- Organicé la migración en una planilla de Calc, anotando el grado de dificultad y la prioridad de cada una de las tareas (Investigué sobre Trello y otros similares que fui descubriendo, pero me resultó más sencillo lo de la planilla, aplicando formatos condicionales, etc.)

- Finalicé la migración desde Rave Reports a Fast Reports. Me costó un poco que todo quede en su lugar, pero renegando un poco lo logré. El concepto WYSWYG no funcionó muy bien.

- Compatiblidad Unicode: me asustaba mucho este tema, pero el paper de Cary Jensen me sacó un poco el miedo. Tuve que hacer unos pequeños cambios en un llamado a una .DLL y, si bien no doy por terminado el asunto, en teoría ya está todo en orden.

- Refactorización: leí el libro de Michael Feathers, pero me resultó muy difícil de comprender. Ahora estoy con "Refactoring: Improving the Design of Existing Code" de Martin Fowler, que se me está haciendo más llevadero.

Después de leer he aprendido mucho y tengo las cosas bastante más claras que antes de empezar la migración, pero empiezan a surgir nuevas dudas.

Por ejemplo, con respecto a lo de separar la lógica de negocios de la parte UI, leyendo me di cuenta que hice varias cosas mal: validaciones en los eventos de los Edit, ComboBox, etc.; lo que me comentaba mamcx del armado de SQL, etc.

Lo primero, creo que lo puedo resolver, pero no tengo muy claro cómo hacer lo que me comentaba mamcx.
Por ejemplo, un código como este:

Código Delphi [-]
  Modulo.Consulta.Active := FALSE;
  Modulo.Consulta.SQL.Clear;
  Modulo.Consulta.SQL.Add('SELECT Cod_Producto as Código, Desc_Producto as Descripción,');
  Modulo.Consulta.SQL.Add('FORMAT(Precio*(1+(Valor/100))*(1+(Porcentaje_Ganancia/100)), "Currency") as Precio,');
  Modulo.Consulta.SQL.Add('Cant_Existente as Stock FROM Productos, IVA');

  /////////////////////////////// FILTRO ///////////////////////////////////////

  //Si se trata de un código de barras
  If Edit_Buscar.Text[1] = '+' then
    begin
      Modulo.Consulta.SQL.Add('WHERE (Porcentaje_IVA = Codigo) AND (Cod_Barras LIKE CodBarras)');
      Modulo.Consulta.Parameters.ParamByName('pCodBarras').Value := Copy(Edit_Buscar.Text,2,Edit_Buscar.MaxLength);
    end

  Else ////Realiza la búsqueda tanto por Código como por Descripción
    If CheckBox_Codigo.Checked AND CheckBox_Descripcion.Checked then
      begin
          Modulo.Consulta.SQL.Add('WHERE (Porcentaje_IVA = Codigo) AND (Cod_Producto LIKE Codigo OR Desc_Producto LIKE Descripcion)');
          Modulo.Consulta.Parameters.ParamByName('pCodigo').Value := '%'+TrimRight(Edit_Buscar.Text)+'%';
          Modulo.Consulta.Parameters.ParamByName('pDescripcion').Value := '%'+Edit_Buscar.Text+'%';
      end

    Else //Realiza la búsqueda por Código o por Descripción (según corresponda)
      If CheckBox_Codigo.Checked AND not CheckBox_Descripcion.Checked then
        begin
          Modulo.Consulta.SQL.Add('WHERE (Porcentaje_IVA = Codigo) AND (Cod_Producto LIKE Codigo)');
          Modulo.Consulta.Parameters.ParamByName('pCodigo').Value := '%'+TrimRight(Edit_Buscar.Text)+'%';
        end

      Else
        begin
          Modulo.Consulta.SQL.Add('WHERE (Porcentaje_IVA = Codigo) AND (Desc_Producto LIKE Descripcion)');
          Modulo.Consulta.Parameters.ParamByName('pDescripcion').Value := '%'+Edit_Buscar.Text+'%';
        end;

  /////////////////////////////// FILTRO ///////////////////////////////////////

  Modulo.Consulta.Active := TRUE;

¿Armo un procedimiento en el Data Module y paso los datos como parámetros en el procedimiento?.

Después tengo varias dudas más, pero quizás sería mejor armar un hilo nuevo ¿no?