Button.onclick(Sender:TObject)
var
i:Integer;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
begin
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
MiTabla.Edit;
FieldValues['pendiente']:=false;
FieldValues['produccion']:=true;
end;
dsflistadoart.Post;
dsflistadoart.Close;
dsflistadoart.Open;
dsflistadoproduccion.close;
dsflistadoproduccion.Open;
end;
end;
Un Saludo.
|