新增文章

文章标题分类内容

'S01 销售订单【工业单据客户端插件】

Private WithEvents m_BillTransfer As K3BillTransfer.Bill   '定义插件对象接口. 必须具有的声明, 以此来获得事件
 
Public Sub Show(ByVal oBillTransfer As Object)    '接口实现  '注意: 此方法必须存在, 请勿修改
 
    Set m_BillTransfer = oBillTransfer
 End Sub

Private Sub Class_Terminate()    '释放接口对象    '注意: 此方法必须存在, 请勿修改

Set m_BillTransfer = Nothing
End Sub

Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long)
    
    With m_BillTransfer.BillForm.tlbTool.Buttons   '工具栏按钮
    
    .Add .Count, "EngPrint", "英文打印", , 24    '增加按钮
    
    '.Count     最后一个按钮的位置， .Count-1 往前移1个位置，.Count+1 往后移一个位置
    ' EngPrint  英文名称
    ' 英文打印  中文名称
    ' 24        图标ID
    End With
    
    m_BillTransfer.BillForm.tlbTool.Buttons("COPY").Enabled = False         '锁定按钮
    m_BillTransfer.BillForm.tlbTool.Buttons("PRINTVIEW").Visible = False    '隐藏按钮

End Sub

Private Sub m_BillTransfer_RetEvents(ByVal Para As KFO.IDictionary)

If Para("EventID") = "Bill_ButtonClick" And Para("EventIDProp") = 1 Then    'Bill_ButtonClick  单击 工具栏按钮
    
        If Para("Para")("Button").Key = "EngPrint" Then    ' EngPrint 按钮名称
        
            MsgBox "Shell你的打印程序"  '事件代码
        End If
    End If
End Sub

以下为销售订单工具栏的内部名称
新增,NEW
复制,COPY
保存,SAVE
恢复,BillUndo
清空,UNDO
打印,PRINT
预览,PRINTVIEW
下达,CONVEY
审核,CHECK
钩稽,Hook
批录,FullStockID
红字,RedBill
蓝字,BlueBill
删除,DelEntry
添加,AddEntry
首张,MOVEFIRST
前张,MOVEPRIVOUS
后张,MOVENEXT
末张,MOVELAST
刷新,REFRESH
查看,LOOKUP
正排,ArrangeUp
SN号,mnuSNMgr
等级品,manuGradeItem
证照,manuCardWarn
倒排,ArrangeDown
替代,RepOper
分解,Schedule
退出,EXIT