VB开发的ERP系统

    Next i
    
    rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "XMSL_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 & _
    "        XMSL_BQDF ----项目本期贷方发生数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        XMSL_BQDF(""科目编码"",""年"",""月"",""辅助项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("财务总帐函数", "XMSL_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 & _
    "        XMSL_LJJF ----项目累计借方发生数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        XMSL_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("财务总帐函数", "XMSL_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 & _
    "        XMSL_LJDF ----项目累计贷方发生数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        XMSL_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("财务总帐函数", "XMSL_LJDF", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '8.年净发生数量
    ls_hssm = "函数名称:" & vbCrLf & _
    "        SL_NJFS ----年净发生数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        SL_NJFS(""科目编码"",""年"",""月"",""辅助项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_NJFS", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '9.月净发生数量
    ls_hssm = "函数名称:" & vbCrLf & _
    "        SL_YJFS ----月净发生数量" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        SL_YJFS(""科目编码"",""年"",""月"",""辅助项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_YJFS", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '1.年初外币
    ls_hssm = "函数名称:" & vbCrLf & _
    "        WB_NC ----年初外币" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        WB_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("财务总帐函数", "WB_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 & _
    "        WB_QC ----期初外币" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        WB_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("财务总帐函数", "WB_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 & _
    "        WB_QM ----期末外币" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        WB_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("财务总帐函数", "WB_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 & _
    "        WB_BQJF ----本期借方发生外币" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        WB_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("财务总帐函数", "WB_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 & _
    "        WB_BQDF ----本期贷方发生外币" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        WB_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("财务总帐函数", "WB_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 & _
    "        WB_LJJF ----累计借方发生外币" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "        WB_LJJF(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
    "参数表示:" & vbCrLf & _