VB开发的ERP系统

    "        年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
    "        月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
    "        辅助项1:可以输入“标识+辅助项码”,其中标识为:  P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
    "例如:P0500表示编码为0500的职员?" & vbCrLf & _
    "        辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
    "例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
    ReDim mai_parmtype_qms(5) As Integer
    ReDim mai_parmdefault_qms(5) As Integer
    For i = 0 To 4
        mai_parmtype_qms(i) = 1
        mai_parmdefault_qms(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "JE_LJDFS", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '8.年净发生额
    ls_hssm = "函数名称:" & vbCrLf & _
    "        JE_NJFSE ----年净发生额" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        JE_NJFSE(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
    "参数表示:" & vbCrLf & _
    "        年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
    "        月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
    "        辅助项1:可以输入“标识+辅助项码”,其中标识为:  P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
    "例如:P0500表示编码为0500的职员?" & vbCrLf & _
    "        辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
    "例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
    ReDim mai_parmtype_qms(5) As Integer
    ReDim mai_parmdefault_qms(5) As Integer
    For i = 0 To 4
        mai_parmtype_qms(i) = 1
        mai_parmdefault_qms(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "JE_NJFSE", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '9.月净发生额
    ls_hssm = "函数名称:" & vbCrLf & _
    "        JE_YJFSE ----月净发生额" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        JE_YJFSE(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
    "参数表示:" & vbCrLf & _
    "        年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
    "        月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
    "        辅助项1:可以输入“标识+辅助项码”,其中标识为:  P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
    "例如:P0500表示编码为0500的职员?" & vbCrLf & _
    "        辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
    "例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
    ReDim mai_parmtype_qms(5) As Integer
    ReDim mai_parmdefault_qms(5) As Integer
    For i = 0 To 4
        mai_parmtype_qms(i) = 1
        mai_parmdefault_qms(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "JE_YJFSE", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '1.年初数量
    ls_hssm = "函数名称:" & vbCrLf & _
    "        SL_NC ----年初数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        SL_NC(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
    "参数表示:" & vbCrLf & _
    "        年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
    "        月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
    "        辅助项1:可以输入“标识+辅助项码”,其中标识为:  P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
    "例如:P0500表示编码为0500的职员?" & vbCrLf & _
    "        辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
    "例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
    ReDim mai_parmtype_ncs(5) As Integer
    ReDim mai_parmdefault_ncs(5) As Integer
    For i = 0 To 4
        mai_parmtype_ncs(i) = 1
        mai_parmdefault_ncs(i) = 1
    Next i
    rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "SL_NC", 4, 5, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '2.期初数量
    ls_hssm = "函数名称:" & vbCrLf & _
    "        SL_QC ----期初数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        SL_QC(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
    "参数表示:" & vbCrLf & _
    "        年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
    "        月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
    "        辅助项1:可以输入“标识+辅助项码”,其中标识为:  P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
    "例如:P0500表示编码为0500的职员?" & vbCrLf & _
    "        辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
    "例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
    ReDim mai_parmtype_qms(5) As Integer
    ReDim mai_parmdefault_qms(5) As Integer
    For i = 0 To 4
        mai_parmtype_qms(i) = 1
        mai_parmdefault_qms(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "SL_QC", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '3.期末数量
    ls_hssm = "函数名称:" & vbCrLf & _
    "        SL_QM ----期末数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        SL_QM(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
    "参数表示:" & vbCrLf & _
    "        年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
    "        月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
    "        辅助项1:可以输入“标识+辅助项码”,其中标识为:  P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
    "例如:P0500表示编码为0500的职员?" & vbCrLf & _
    "        辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
    "例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
    ReDim mai_parmtype_qms(5) As Integer
    ReDim mai_parmdefault_qms(5) As Integer
    For i = 0 To 4
        mai_parmtype_qms(i) = 1
        mai_parmdefault_qms(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "SL_QM", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '4.本期借方发生数量
    ls_hssm = "函数名称:" & vbCrLf & _
    "        SL_BQJF ----本期借方发生数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        SL_BQJF(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
    "参数表示:" & vbCrLf & _
    "        年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
    "        月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
    "        辅助项1:可以输入“标识+辅助项码”,其中标识为:  P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
    "例如:P0500表示编码为0500的职员?" & vbCrLf & _
    "        辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
    "例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
    ReDim mai_parmtype_qms(5) As Integer
    ReDim mai_parmdefault_qms(5) As Integer
    For i = 0 To 4
        mai_parmtype_qms(i) = 1
        mai_parmdefault_qms(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "SL_BQJF", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '5.本期贷方发生数量
    ls_hssm = "函数名称:" & vbCrLf & _
    "        SL_BQDF ----本期贷方发生数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        SL_BQDFS(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
    "参数表示:" & vbCrLf & _
    "        年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
    "        月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
    "        辅助项1:可以输入“标识+辅助项码”,其中标识为:  P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
    "例如:P0500表示编码为0500的职员?" & vbCrLf & _
    "        辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
    "例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
    ReDim mai_parmtype_qms(5) As Integer
    ReDim mai_parmdefault_qms(5) As Integer
    For i = 0 To 4
        mai_parmtype_qms(i) = 1
        mai_parmdefault_qms(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "SL_BQDF", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '6.累计借方发生数量
    ls_hssm = "函数名称:" & vbCrLf & _
    "        SL_LJJF ----累计借方发生数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        SL_LJJF(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
    "参数表示:" & vbCrLf & _
    "        年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
    "        月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
    "        辅助项1:可以输入“标识+辅助项码”,其中标识为:  P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
    "例如:P0500表示编码为0500的职员?" & vbCrLf & _
    "        辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
    "例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
    ReDim mai_parmtype_qms(5) As Integer
    ReDim mai_parmdefault_qms(5) As Integer
    For i = 0 To 4
        mai_parmtype_qms(i) = 1
        mai_parmdefault_qms(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "SL_LJJF", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '7.累计贷方发生数量
    ls_hssm = "函数名称:" & vbCrLf & _
    "        SL_LJDF ----累计贷方发生数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        SL_LJDF(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
    "参数表示:" & vbCrLf & _
    "        年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
    "        月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
    "        辅助项1:可以输入“标识+辅助项码”,其中标识为:  P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
    "例如:P0500表示编码为0500的职员?" & vbCrLf & _
    "        辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
    "例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
    ReDim mai_parmtype_qms(5) As Integer
    ReDim mai_parmdefault_qms(5) As Integer
    For i = 0 To 4
        mai_parmtype_qms(i) = 1
        mai_parmdefault_qms(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "SL_LJDF", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '4.项目本期借方发生数量
    ls_hssm = "函数名称:" & vbCrLf & _
    "        XMSL_BQJF ----项目本期借方发生数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        XMSL_BQJF(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
    "参数表示:" & vbCrLf & _
    "        年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
    "        月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
    "        辅助项1:可以输入“标识+辅助项码”,不能为空,其中标识为:  P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
    "例如:P0500表示编码为0500的职员?" & vbCrLf & _
    "        辅助项2:同上,可以为空?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
    "例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
    ReDim mai_parmtype_qms(5) As Integer
    ReDim mai_parmdefault_qms(5) As Integer
    For i = 0 To 4
        mai_parmtype_qms(i) = 1
        mai_parmdefault_qms(i) = 1