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;