K3老单据如何设备未审核不能打印？

wangyl

目前K3老单据是没有未审核不能打印的功能，我想自己写个插件，但不知道单击打印时会触发哪个事件，求高手指点，感谢

kingzqc

金蝶新版本有地方可以设置未审核不能够打印功能。
如果要写插件，估计要咨询金蝶研发部门或者分公司

wangyl

kingzqc 发表于 2012/8/9 10:52
金蝶新版本有地方可以设置未审核不能够打印功能。
如果要写插件，估计要咨询金蝶研发部门或者分公司

BOS单据是可以设置的，老单据不行
我后面找到方法，我把源码贴出来，大家共享一下

Private Sub m_BillTransfer_RetEvents(ByVal Para As KFO.IDictionary)

    'TODO: 请在此处添加代码响应事件 RetEvents
If Para.GetValue("EventID", "") = "Bill_ButtonClick" And Para.GetValue("EventIDProp", 0) = 0 Then
     
     FcheckerID = CStr(m_BillTransfer.GetHeadText(GetCtlIndexByFld("FMultiCheckDate1", False)))
     If UCase(Para("para")("Button").Key) = UCase("Print") Then '按纽的Key
            If FcheckerID = "" Then
                MsgBox "一级审核未审核的生产领料单，不允许预览、打印，请审核后再进行预览打印！", vbExclamation, "金蝶提示"
                Para("EventIDCancel") = True '终止事件,加上这句，系统不会往下执行
                Exit Sub
            End If
     End If
     
     If UCase(Para("para")("Button").Key) = UCase("PRINTVIEW") Then '按纽的Key
            If FcheckerID = "" Then
               MsgBox "一级审核审核的生产领料单，不允许预览、打印，请审核后再进行预览打印！", vbExclamation, "金蝶提示"
               Para("EventIDCancel") = True '终止事件,加上这句，系统不会往下执行
               Exit Sub
            End If
     End If
      
End If
End Sub