[Saul Rivera]

mRoman gracias por responder, las tres lineas de otro color son las que tengo para capturar esos datos
este es el codigo de mi boton guardar

Código Delphi [-]
procedure TfrmRequisicion.ActSaveExecute(Sender: TObject);
begin

  try
    dmMain2.tblRequisicionHdr.FieldByName('USUARIO').AsString := Usuario;
    dmMain2.tblRequisicionHdr.FieldByName('POR_COBRAR').AsBoolean := ckPorCobrar.Checked;
    dmMain2.tblRequisicionHdr.Post;
  except
      on e: Exception do

      end;

  dnData.Buttons.Post.Click;
  dmMain2.muInsertarRequisicion.ParamByName('NUM_REQUISICION').AsInteger := dmMain2.tblRequisicionHdr.FieldByName('NUM_REQUISICION').AsInteger;
  dmMain2.muInsertarRequisicion.ParamByName('POR_COBRAR').AsBoolean := ckPorCobrar.Checked;
  dmMain2.muInsertarRequisicion.ParamByName('COD_PROVEEDOR').AsString := cblProveedores.EditValue;
  dmMain2.muInsertarRequisicion.ParamByName('NUM_OT_TRABAJO').AsInteger := cblOrdenTrabajo.EditValue;
  dmMain2.muInsertarRequisicion.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.EditValue;
  end;
  dmMain2.muInsertarRequisicion.Open;
  dmMain2.muInsertarRequisicion.Close;


  btnSave.Enabled := False;
  btnNew.Enabled := True;

  gbDatos.Enabled := False;
  dnData.Enabled := False;
  gvData.Enabled := False;
  DisplayReport(dmMain2.tblRequisicionHdr.FieldByName('NUM_REQUISICION').AsString);
  dmMain2.tblRequisicionHdr.Filtered := False;
end;

en mi dataset tengo este codigo para guardar esas lineas

Código SQL [-]
UPDATE  INV_REQUISICION_HDR 
SET POR_COBRAR = :POR_COBRAR, 
COD_PROVEEDOR = :COD_PROVEEDOR, 
NUM_OT_TRABAJO = :NUM_OT_TRABAJO, 
ID_PROYECTO = :ID_PROYECTO
WHERE NUM_REQUISICION = :NUM_REQUISICION