[[Caral]]

Hola
Actualizar la tabla LOTE:
Coloca un query en el form que actualiza, llamalo IBQueryTemp y añade el final del codigo a lo que tienes:

Código Delphi [-]
procedure TForm1.ts3Enter(Sender: TObject);
begin
       if Vedi then
         begin
            TbVentas.Insert;
      
            dbePIEDRAS2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('PIEDRA_NL').AsInteger);
            dbeTIPO_VE.Text := 'V';

      
            dbeCUAD2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CUAD_NL').AsInteger);
            dbeREDO2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('REDO_NL').AsInteger);
            dbeOVAL2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('OVAL_NL').AsInteger);
            dbeLAGR2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('LAGR_NL').AsInteger);
            dbeCORA2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CORA_NL').AsInteger);
            dbeCAUC2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CAUC_NL').AsInteger);
            dbeDROP2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('DRP_NL').AsInteger);
            dbeOtr2.Text  := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('OTRAS_NL').AsInteger);
            dbeTPIED_VEN.Text :=IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('TPIED_NL').AsInteger);
            cbbLoDi.ItemIndex := cbbMoVe.ItemIndex;
            lbl77.Caption := cbbMoVe.Text;
            lbl78.Caption := cbbMoVe.Text;
            dbeMONED_VEN.Text := cbbMoVe.Text;
            dbeKilaC.Text := FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('KILATES_NL').AsFloat);
            dbeVAL_KIL1.Text:= FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('VAL_KIL_NL').AsFloat);
            dbeVAL_TO4.Text := FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('VAL_TO_NL').AsFloat);
      
         end;
       // query que hace el update de status tabla LOTE
      IBQueryTemp.Sql.Text:= 'Update Lote set Status = ''I'' where ID = '+
                             IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('ID').AsInteger);
      IBQueryTemp.ExecSQL;

end;

Saludos