批量插入子后项，仅清单编号下表格开放竖向粘贴

Forms/BatchInsertBillsFrm.dfm

@@ -317,6 +317,10 @@ object BatchInsertBillsForm: TBatchInsertBillsForm
       item
         Item = MainForm.dxbtnInsertCol
         Visible = True
+      end
+      item
+        Item = MainForm.dxbtnRemapedPaste
+        Visible = True
       end>
     UseOwnFont = False
     OnPopup = dxpmInsertBillsPopup

Forms/BatchInsertBillsFrm.pas

@@ -456,6 +456,7 @@ end;
 
 procedure TBatchInsertBillsForm.dxpmInsertBillsPopup(Sender: TObject);
 begin
+  dxpmInsertBills.ItemLinks[5].Visible := (dxpmInsertBills.Tag = 1);
   SetDxBtnAction(actnInsertCol, MainForm.dxbtnInsertCol);
 end;