Migrar o no migrar

[Casimiro Notevi]

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?