金蝶VB插件开发，单据不满足条件，拒绝保存

Posted 2020-09-23 唐尧

新增一张简洁的Bos单据，功能：当文本1输入框里输入的内容是“222”，则保存数据，当内容是其他的，则拒绝保存

 

 

 

这里还要获取文本1的字段名

 

 

 

接下来是VB插件开发了

Private Sub m_BillInterface_BeforeSave(bCancel As Boolean)　　　　　　//触发事件，在单据保存前
 Dim z As String　　　　　　　　　　　　　　
     
     z = m_BillInterface.GetFieldValue("FText1")　　　　　　　　　　　　//定义变量  获取文本1的内容
    
    If (z <> "222") Then　　　　　　　　　　　　　　　　　　　　　　　　　　//如果文本1的内容不等于“222”，

    MsgBox "错误"　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　//提示错误，设置这一句的意思是：假如这句代码出现错误，我要判断代码有没有执行到这里


    bCancel = True　　　　　　　　　　　　　　　　　　　　　　　　　　　　　//bCancel(是本事件的参数)默认为false,当为True时，则拒绝保存   
    
    Else
    MsgBox "haha"
    End If
End Sub