Realizar un Locate en un Dataset que se encuentra en Edicion..

[[Lepe]]

No he leído el hilo al completo, pero estando en edición, si quieres saber un valor de otro registro, puedes usar el método LookUp del dataset, realiza la búsqueda sin modificar la posición actual.

Otra forma sería lanzar una consulta, pero es algo más laborioso, tú decides.

Saludos

[Rayku]

Si Funcionaria,

Disculpa Pero La Edicion La Haces Con Un Update Del Ado, O Por Consulta Sql?

Haz Una Edicion Por Sql, Y De Esa Manera Podras Usar El Locate, Filter, Incluso Recorrer El Ado Para Los Resultados Q Desees Y Luego Lanzar Tu Actualizacion Por Sql A Tu Tabla O Tablas Y Luego Refrescar Tus Datos Para Q Se Actualizen

[---baja---]

A lo que me refiero es que en mi dbgrid tengo las siguientes columnas:

codigo_articulo, descripcion_articulo, cantidad

Como la clave primaria de esta tabla esta formada por el campo codigo_articulo, el usuario al agregar nuevos registros a su venta o compra, no puede duplicar el mismo codigo!!

Por este motivo, cuando el usuario este haciendo una factura de de 20 registros en el detalle y sin querer vuelve a ingresar un codigo que ya lo habia ingresado anteriormente, el sistema quisiera que anule ese nuevo registro y se ubique en el registro anterior.

Ejemplo: Si en la 2da. linea del dbgrid el usuario ingreso el codigo 100 para una venta, y nuevamente durante la misma venta en el registro nro. 20 del dbgrid el operador vuelve a ingresar el codigo 100. En este caso el mismo codigo estara 2 veces lo que crea conflicto.

Mi intecion era que para este caso, se elimine la linea 20, y se traslade la posicion a la linea nro. 2 del dbgrid para que el operador modifique el campo de cantidad.

Espero que haya quedado un poco mas claro..

Saludos..

[Rayku]

Lo Que Debes De Hacer Es Q Antes De Que Ingrese Un Bien Deberias Verificar Si Ya Existe, Y Asi Controlar Que No Se Duplique, Ahora Te Recomiendo Que Cuando Ingreses Detalles Utilizaes Un String Grid Y Una Vez Hecho Hecho Registro Recien Graves Y Actualices

[[Lepe]]

Pues creo que lo tienes fácil:

En el evento BeforePost puedes guardar la cantidad de ese artículo en una variable temporal, hacer un lookup en esa tabla para saber si existe el código, si existe, haces lo que has comentado.

Una opción alternativa es preguntar al usuario si quiere sumar los artículos que ya ha introducido en la linea 20 a los existentes en la línea 2ª. Puesto que tienes en una variable temporal la cantidad de la línea 20 y en la BBDD almacenado, la línea 2, solo tienes que editar el registro y aumentar las cantidades.

Algo de código:

Código Delphi [-]

procedure BeforePost;
var cantidad :Variant;
     cantidad_a:integer; // la duplicada, la actual
begin
  cantidad := tabla.Lookup('codigo_articulo',tablacodigo_articulo.asInteger,'cantidad');
  if not VarisNull(cantidad) then
  cantidad_a :=  tablacantidad.Asinteger // guardamos la cantidad actual;
  codigo_a := tablacodigo_articulo.AsInteger; // guardamos el código
  if Application.Messagebox('Producto duplicado','¿Desea sumar la cantidad actual a la ya existente?',mb_iconquestion+ mbidyesno)= mbYes then
  begin
     query1.sql.text := 'update tabla set cantidad = ' inttostr(cantidad + cantidad_a) + 'where codigo_artículo = ' + inttostr(codigo_articulo);
   query1.Execsql;
  end;

Puede que tenga algunos errores, pero más o menos es así.

Saludos

[---baja---]

Si hubiera sido un stringrid hubiera sido facil, ya que moverse de un lado a otro, lo que queria es que cuando validara el codigo en el evento .., busque si encuentra un codigo igual anterior y directamente se traslade al registro anterior.

Ejemplo:

Código Delphi [-]
procedure TForm1.ClientDataSet1codigoArticuloValidate(Sender: TField);
begin
  for i:=0 to cantidad_de_registros do
  begin
    if (CodigoArticulo.Value = Array_con_codigos_anteriores[i]) then
    begin
      dbgrid1.col := i;   // i SERIA LA LINEA EN DONDE ESTA EL CODIGO 
                              //ANTERIOR.
      dbgrid1.row := 3; //COLUMNA DE LA CANTIDAD PARA EDITARLA
    end;
  end;
end;

ESTO ERA LO QUE BASICAMENTE QUERIA HACER, LA SOLUCION ES FACIL PERO COMO DIJE ANTES, CADA VEZ QUE REALIZA ESA RUTINA DISTORCIONA LOS VALORES DE LA TABLA..

SALUDOS Y GRACIAS POR EL APOYO...

[---baja---]

Rectifico algo, en el ultimo parrafo, Distorciona los valores en el DBGrid, la tabla no tiene nada que ver..

Exitos mis amigos..