Ayuda con refactorización

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

Otra opción es "separar" la parte visual de la parte de "los datos".
Igual que de entrada, has eliminado el Edit_Codigo.Text de donde tenías la consulta y lo has convertido en un parámetro, puedes hacer lo mismo con el Dataset.

Código Delphi [-]
Modulo.EliminarArticulo(Edit_Codigo.Text);

De forma que esta llamada quedaría así:

Código Delphi [-]
Modulo.EliminarArticulo(Edit_Codigo.Text, ADataset);

Y luego podrías tener u procedimiento (en la parte voisual) que cogiera los valores del Dataset y los asignara a los campos visuales:

Código Delphi [-]
Modulo.EliminarArticulo(Edit_Codigo.Text, ADataset); 
AsignarVvaloresRetorna(ADataset);

Y el procedimiento quedaría así (en la parte visual):

Código Delphi [-]
procedure AsignarValoresRetorna(ADataset:TDataset);
begin
  //Carga los campos con los datos de la tabla
  With ADataset do
  begin
    Edit_Descripcion.Text      := FieldByName('Desc_Producto').AsString;
    Edit_PreUnitario.Text      := FieldByName('Precio').AsString;
    ComboBox_IVA.Text          := FieldByName('Valor_IVA').AsString;
    Edit_Ganancia.Text         := FieldByName('Porcentaje_Ganancia').AsString;
    SpinEdit_Stock.Text        := FieldByName('Cant_Existente').AsString;
    SpinEdit_StockMinimo.Text  := FieldByName('Cant_Minima').AsString;
    SpinEdit_CantRep.Text      := FieldByName('Cant_Reposicion').AsString;
    ComboBox_Seccion.Text      := FieldByName('Desc_Seccion').AsString;
    ComboBox_Categoria.Text    := FieldByName('Desc_Categoria').AsString;
    ComboBox_Proveedor.Text    := FieldByName('Denominacion').AsString;
    Edit_CodProveedor.Text     := FieldByName('Cod_Producto_Proveedor').AsString;
    SpinEdit_UniProveedor.Text := FieldByName('Unidad_Proveedor').AsString;
    Edit_CodBarras.Text        := FieldByName('Cod_Barras').AsString;
  end;  
end;

[Dexter182]

¡Muchas gracias a ambos!


Había pensado en un record, pero pasándolo como parámetro.
Mis conocimientos son un poco más rudimentarios, jaja.


Me gustan ambas opciones.
La de Germán es la más fácil de implementar con mis conocimientos actuales, pero lo de la interface me despertó curiosidad.
Voy a leer un poco y veo por cual me decido.

¡Muchas gracias de nuevo a ambos por la ayuda!

[Dexter182]

No se si es correcto, pero lo implementé de la siguiente manera:

Código Delphi [-]
procedure TForm_Articulo.AsignarValores;

var
  Consulta: TDataSet;
begin
  Consulta := Modulo.DatosArticulo(eCodigo.Text);

  //Carga los campos con los datos de la tabla
  With Consulta do
    begin
      eDescripcion.Text  := FieldByName('Desc_Producto').AsString;
      ePreUnitario.Text  := FieldByName('Precio').AsString;
      cbIVA.Text         := FieldByName('Valor_IVA').AsString;
      eGanancia.Text     := FieldByName('Porcentaje_Ganancia').AsString;
      eStock.Text        := FieldByName('Cant_Existente').AsString;
      eStockMinimo.Text  := FieldByName('Cant_Minima').AsString;
      eCantRep.Text      := FieldByName('Cant_Reposicion').AsString;
      cbSeccion.Text     := FieldByName('Desc_Seccion').AsString;
      cbCategoria.Text   := FieldByName('Desc_Categoria').AsString;
      cbProveedor.Text   := FieldByName('Denominacion').AsString;
      eCodProveedor.Text := FieldByName('Cod_Producto_Proveedor').AsString;
      eUniProveedor.Text := FieldByName('Unidad_Proveedor').AsString;
      eCodBarras.Text    := FieldByName('Cod_Barras').AsString;
    end;
end;

Leí sobre las interfaces y está muy bueno, pero necesito leer más para entender bien como usarlas.
Saludos!

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

Mejor si el Dataset lo pasas como parámetro.
De esa forma el procedimiento de asignar valores no tiene que hacer referencia al módulo (queda independiente) y se podría llamar con otro dataset que estiviera en "Modulo2" (por decir algo).
Aunque ahora no lo vayas a utilizar ayuda a crear piezas (procedimientos) independientes (cajas negras) y te acostumbras a trabajar así.

Te evitas esta línea:

Código Delphi [-]
Consulta := Modulo.DatosArticulo(eCodigo.Text);

Los Interfaces son potentes y también ayudan a crear piezas "estancas". Para que te hagas una idea una Interfaz es como un contrato. Creas un contrato y todos aquellos elementos que lo usen deben cumplir ese contrato (esas normas).
Pero si es cierto que no es algo "inicial".

[Dexter182]

¡Gracias Germán, como siempre!

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

Aunque ahora no lo vayas a utilizar ayuda a crear piezas (procedimientos) independientes (cajas negras) y te acostumbras a trabajar así.

Más claro imposible.
La idea es mejorar mi manera de programar, así que gracias por la explicación.
Saludos!!!!