二开-老单单据自定义日期字段默认为空

首先看这个帖子，了解插件如何开发 https://wenku.my7c.com/link/s/ltfaZ，这个帖子里已经有源码了，再这个源码基础上添加文中代码编译后放到k3erp目录即可查看效果；

效果图

首先找到自定义字段再表头的位置

添加代码，加载单据事件

Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long)   

 If m_BillTransfer.SaveVect Is Nothing Then        

If lngUserDatePlace > 0 Then            

m_BillTransfer.SetHead lngUserDatePlace, ""       

 End If    

End If 

End Sub 

Private Sub m_BillTransfer_NewBillEnd()     

If lngUserDatePlace > 0 Then        

m_BillTransfer.SetHead lngUserDatePlace, ""    

End If 

End Sub

Private Function GetHeadCtlOrderByFieldName(ByVal strFieldNa