Código Delphi
[-]
Close;
SQL.Clear;
SQL.Add('SELECT * FROM ventasareas');
Open;
articulo1 := FieldByName('articulo').value;
cantidad1 := FieldByName('cantidad').value;
precio1 := FieldByName('precio').value;
fecha1 := FieldByName('fecha').value;
Close;
SQL.Clear;
SQL.Add('INSERT INTO ventasdet (venta, orden, articulo, cantidad, precio,iva,devolucion, fecha)');
SQL.Add('VALUES (:venta, rden, :articulo, :cantidad, recio, :iva,:devolucion,:fecha)');
params.ParamByName('venta').Value := sVenta;
params.ParamByName('orden').Value := IntToStr(i);
params.ParamByName('articulo').Value := articulo1;
params.ParamByName('cantidad').Value := cantidad1;
params.ParamByName('precio').Value := precio1;
params.ParamByName('iva').Value := rIva;
params.ParamByName('devolucion').Value := riva;
params.ParamByName('fecha').Value := fecha1;
Hola a todos este codigo me copia el primer registro de ventasareas a ventasdet
ahora mi pregunta es como puedo hacer para copiar todos los registros de ventasareas a ventasdet.. ya que ventasareas no solo tiene un registro si no mas..
alguien me puede ayudar ?
gracias