[Rofocale]

este codigo es el que uso para copiar unos datos a determinada tabla mediante un stringgrid que viene a ser grdDatos.Cells el stringgrid de donde es copiado los datos a la tabla

bueno el caso es que lo copio desde el stringgrid los datos que estan en pantalla pero estos datos ya han sido guardados en otra tabla ventasarea.. como podria hacer para copiar directamente los datos de ventasarea de ventasdet

para hacer mas o menos algo como

Código Delphi [-]
dmsdatos.ventasdetparams.ParamByName('articulo').Value := dmstados.areasventa.params.ParamByName('articulo').Value

espero se haya entendido gracias

Código Delphi [-]
for i := 0 to grdDatos.RowCount - 1 do begin


            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 := grdDatos.Cells[0,i];
            params.ParamByName('cantidad').Value :=grdDatos.Cells[3,i];
            params.ParamByName('precio').Value :=  grdDatos.Cells[4,i];
            params.ParamByName('iva').Value :=  rIva;
            if(grdDatos.Cells[12,i] = '') then
               params.ParamByName('devolucion').Value := NULL
            else
               params.ParamByName('devolucion').Value := grdDatos.Cells[12,i];

            params.ParamByName('fecha').Value :=  grdDatos.Cells[15,i];
            ExecSQL;