Ver Mensaje Individual
  #5  
Antiguo 28-07-2021
Avatar de Dexter182
Dexter182 Dexter182 is offline
Miembro
 
Registrado: jul 2005
Ubicación: Argentina
Posts: 95
Reputación: 19
Dexter182 Va por buen camino
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!
Responder Con Cita