云版，变更令，隐藏右键粘贴按钮

Frames/BGLFme.pas

@@ -143,6 +143,10 @@ procedure TBGLFrame.dxpmBGLPopup(Sender: TObject);
 begin
   SetDxBtnAction(actnBatchWritePos_Reason, MainForm.dxbtnBatchWritePos_Reason);
   SetDxBtnAction(actnCopyBGLBlock, MainForm.dxbtnCopyBillsBlock);
+  if _IsCloud then
+  begin
+    dxpmBGL.ItemLinks.Items[2].Visible := False;
+  end;
 end;
 
 procedure TBGLFrame.actnBatchWritePos_ReasonExecute(Sender: TObject);