zoukankan      html  css  js  c++  java
  • K3WIES 笔记

    金蝶 k3 BOS开发百问百答 :

    http://www.docin.com/p-509465103.html

    vb6.0工业单据 增加工具栏按钮:

    Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long)
          With m_BillTransfer.BillForm.tlbTool.Buttons
            .Add .Count + 1, "BtnIn", "引入数据", , 21
        End With
        iRow = 0
        iCol = 0
    End Sub
    Private Sub m_BillTransfer_RetEvents(ByVal Para As KFO.IDictionary)
     
        'TODO: 请在此处添加代码响应事件 RetEvents
    On Error GoTo ErrHandle
        If Para("EventID") = "Bill_ButtonClick" And Para("EventIDProp") = 1 Then
            If Para("Para")("Button").Key = "BtnIn" Then
            ‘触发内容
    
                
                
            End If
        End If
            
        Exit Sub
    ErrHandle:
        'MsgBox Err.Description, vbInformation, "金蝶提示"
    End Sub
    

     工业单据:装载数据之后触发事件(下推生成单据或者修改单据)

    Private Sub m_BillTransfer_EndBillFormActive()

    end sub

    工业单据如何获取字段的顺序号

        '**********************************
    '返回单据字段顺序(isEntry True是表体)
    '**********************************
    Public Function GetCtlIndexByFld(ByVal fldName As String, Optional ByVal isEntry As Boolean = False) As Long
    Dim ctlIdx As Long
    Dim i As Integer
    Dim isFind As Boolean
    Dim vValue As Variant
    fldName = UCase(fldName)
    isFind = False
    With m_BillTransfer
    If isEntry Then
        For i = LBound(.EntryCtl) To UBound(.EntryCtl)
        If UCase(.EntryCtl(i).FieldName) = fldName Then
        ctlIdx = .EntryCtl(i).FCtlOrder
        isFind = True
        Exit For
        End If
        Next i
    Else
        For i = LBound(.HeadCtl) To UBound(.HeadCtl)
        If UCase(.HeadCtl(i).FieldName) = fldName Then
        ctlIdx = .HeadCtl(i).FCtlIndex
        isFind = True
        Exit For
        End If
        Next i
    End If
    End With
    If isFind = True Then
    GetCtlIndexByFld = ctlIdx
    Else
    GetCtlIndexByFld = 0
    End If
    End Function
    
    

    新单开发 装载数据事件(下推单据后装载分录数据过程中触发事件):

    Private Sub m_BillInterface_AfterFillRow(ByVal lRow As Long, ByVal dctPage As KFO.IDictionary, ByVal dctEntryData As KFO.IDictionary, ByVal dctLink As KFO.IDictionary)
      end sub
  • 相关阅读:
    pandas replace 替换功能function
    pandas 处理文本数据
    vue-cli3使用bootstrap4
    Sass和less的区别是什么?用哪个好
    vue项目首屏加载优化实战
    NodeJS 框架一览
    pre -commit hook failed (add --no-verify to bypass)
    安装与卸载vue cli3
    vue-cli3.0之vue.config.js的配置项(注解)
    Sass-颜色运算
  • 原文地址:https://www.cnblogs.com/swallow123/p/5203391.html
Copyright © 2011-2022 走看看