maketrans.cls

金算盘软件代码

                                            If blnOK = False Then Exit Function
                                            
                                            dblValue = Val(Format(dblValue, gclsBase.GetFormat(gclsBase.NaturalCurDec)))
                                            If dblValue <> 0 Then '将数据写入临时表
                                                If Not WriteTemp(arrAccount(), arrSelect(), lngTransVoucherID, lngTransVoucherDetailID, strAccountId, strCustomerID, strDepartmentID, strEmployeeID, strJobID, strClassID1, strClassID2, intDirection, dblValue, dblCurrValue, dblQuanValue) Then Exit Function
                                            End If
                                            recTemp_4.MoveNext
                                        Loop
                                    End If
                                    intLoopLevel = 4
                                    Exit Do
                                Else
                                    intLoopLevel = 4
                                    Exit Do
                                End If
                            End If
                        Loop While arrSelect(4)  '(4)
                        '------------------------------------------------------------------------
                        
                        If intEditLevel <= 3 Then '如果内层未执行(科目不包括上一曾的核算项目)
                            If arrSelect(3) Then     '如果科目包括本级核算项目
                                intEditLevel = 3
                                If lngEmployeeID_MJ <> 0 Then
                                    strEmployeeID = lngEmployeeID_MJ
                                    dblValue = mclsBaseFun.EvalueFunc(NatureFunc, blnOK, strAccountId * Abs(arrSelect(0)), strCustomerID * Abs(arrSelect(1)), strDepartmentID * Abs(arrSelect(2)), strEmployeeID * Abs(arrSelect(3)), strJobID * Abs(arrSelect(4)), strClassID1 * Abs(arrSelect(5)), lngCurID, , strClassID2 * Abs(arrSelect(6)))
                                    If CurrencyFunc <> "" Then
                                            lngResult = mclsBaseFun.SetCurrentCond(CurrencyFunc)
                                            InitArr arrSelect2, lngResult
                                            dblCurrValue = mclsBaseFun.EvalueFunc(CurrencyFunc, blnOK, strAccountId * Abs(arrSelect2(0)), strCustomerID * Abs(arrSelect2(1)), strDepartmentID * Abs(arrSelect2(2)), _
                                                           strEmployeeID * Abs(arrSelect2(3)), strJobID * Abs(arrSelect2(4)), strClassID1 * Abs(arrSelect2(5)), lngCurID, , strClassID2 * Abs(arrSelect2(6)))
                                    End If
                                    If QuantityFunc <> "" Then
                                            lngResult = mclsBaseFun.SetCurrentCond(QuantityFunc)
                                            InitArr arrSelect2, lngResult
                                            dblQuanValue = mclsBaseFun.EvalueFunc(QuantityFunc, blnOK, strAccountId * Abs(arrSelect2(0)), strCustomerID * Abs(arrSelect2(1)), strDepartmentID * Abs(arrSelect2(2)), _
                                                           strEmployeeID * Abs(arrSelect2(3)), strJobID * Abs(arrSelect2(4)), strClassID1 * Abs(arrSelect2(5)), lngCurID, , strClassID2 * Abs(arrSelect2(6)))
                                    End If
                                    If blnOK = False Then Exit Function
                                        
                                    dblValue = Val(Format(dblValue, gclsBase.GetFormat(gclsBase.NaturalCurDec)))
                                    If dblValue <> 0 Then '将数据写入临时表
                                        If Not WriteTemp(arrAccount(), arrSelect(), lngTransVoucherID, lngTransVoucherDetailID, strAccountId, strCustomerID, strDepartmentID, strEmployeeID, strJobID, strClassID1, strClassID2, intDirection, dblValue, dblCurrValue, dblQuanValue) Then Exit Function
                                    End If
                                Else
                                recTemp_3.MoveFirst
                                    Do While Not recTemp_3.EOF
                                        strEmployeeID = recTemp_3(0)
                                        dblValue = mclsBaseFun.EvalueFunc(NatureFunc, blnOK, strAccountId * Abs(arrSelect(0)), strCustomerID * Abs(arrSelect(1)), strDepartmentID * Abs(arrSelect(2)), strEmployeeID * Abs(arrSelect(3)), strJobID * Abs(arrSelect(4)), strClassID1 * Abs(arrSelect(5)), lngCurID, , strClassID2 * Abs(arrSelect(6)))
                                        If CurrencyFunc <> "" Then
                                                lngResult = mclsBaseFun.SetCurrentCond(CurrencyFunc)
                                                InitArr arrSelect2, lngResult
                                                dblCurrValue = mclsBaseFun.EvalueFunc(CurrencyFunc, blnOK, strAccountId * Abs(arrSelect2(0)), strCustomerID * Abs(arrSelect2(1)), strDepartmentID * Abs(arrSelect2(2)), _
                                                               strEmployeeID * Abs(arrSelect2(3)), strJobID * Abs(arrSelect2(4)), strClassID1 * Abs(arrSelect2(5)), lngCurID, , strClassID2 * Abs(arrSelect2(6)))
                                        End If
                                        If QuantityFunc <> "" Then
                                                lngResult = mclsBaseFun.SetCurrentCond(QuantityFunc)
                                                InitArr arrSelect2, lngResult
                                                dblQuanValue = mclsBaseFun.EvalueFunc(QuantityFunc, blnOK, strAccountId * Abs(arrSelect2(0)), strCustomerID * Abs(arrSelect2(1)), strDepartmentID * Abs(arrSelect2(2)), _
                                                               strEmployeeID * Abs(arrSelect2(3)), strJobID * Abs(arrSelect2(4)), strClassID1 * Abs(arrSelect2(5)), lngCurID, , strClassID2 * Abs(arrSelect2(6)))
                                        End If
                                        If blnOK = False Then Exit Function
                                            
                                        dblValue = Val(Format(dblValue, gclsBase.GetFormat(gclsBase.NaturalCurDec)))
                                        If dblValue <> 0 Then '将数据写入临时表
                                            If Not WriteTemp(arrAccount(), arrSelect(), lngTransVoucherID, lngTransVoucherDetailID, strAccountId, strCustomerID, strDepartmentID, strEmployeeID, strJobID, strClassID1, strClassID2, intDirection, dblValue, dblCurrValue, dblQuanValue) Then Exit Function
                                        End If
                                                    
                                        recTemp_3.MoveNext
                                    Loop
                                End If
                                intLoopLevel = 3
                                Exit Do
                            Else
                                intLoopLevel = 3
                                Exit Do
                            End If
                        End If
                    Loop While arrSelect(3)  '(3)
                    '------------------------------------------------------------------------

                    If intEditLevel <= 2 Then '如果内层未执行(科目不包括上一曾的核算项目)
                        If arrSelect(2) Then     '如果科目包括本级核算项目
                            intEditLevel = 2
                            If lngDepartmentID_MJ <> 0 Then
                                strDepartmentID = lngDepartmentID_MJ
                                dblValue = mclsBaseFun.EvalueFunc(NatureFunc, blnOK, strAccountId * Abs(arrSelect(0)), strCustomerID * Abs(arrSelect(1)), strDepartmentID * Abs(arrSelect(2)), strEmployeeID * Abs(arrSelect(3)), strJobID * Abs(arrSelect(4)), strClassID1 * Abs(arrSelect(5)), lngCurID, , strClassID2 * Abs(arrSelect(6)))
                                If CurrencyFunc <> "" Then
                                    lngResult = mclsBaseFun.SetCurrentCond(CurrencyFunc)
                                    InitArr arrSelect2, lngResult
                                    dblCurrValue = mclsBaseFun.EvalueFunc(CurrencyFunc, blnOK, strAccountId * Abs(arrSelect2(0)), strCustomerID * Abs(arrSelect2(1)), strDepartmentID * Abs(arrSelect2(2)), _
                                                   strEmployeeID * Abs(arrSelect2(3)), strJobID * Abs(arrSelect2(4)), strClassID1 * Abs(arrSelect2(5)), lngCurID, , strClassID2 * Abs(arrSelect2(6)))
                                End If
                                If QuantityFunc <> "" Then
                                        lngResult = mclsBaseFun.SetCurrentCond(QuantityFunc)
                                        InitArr arrSelect2, lngResult
                                        dblQuanValue = mclsBaseFun.EvalueFunc(QuantityFunc, blnOK, strAccountId * Abs(arrSelect2(0)), strCustomerID * Abs(arrSelect2(1)), strDepartmentID * Abs(arrSelect2(2)), _
                                                       strEmployeeID * Abs(arrSelect2(3)), strJobID * Abs(arrSelect2(4)), strClassID1 * Abs(arrSelect2(5)), lngCurID, , strClassID2 * Abs(arrSelect2(6)))
                                End If
                                If blnOK = False Then Exit Function

                                dblValue = Val(Format(dblValue, gclsBase.GetFormat(gclsBase.NaturalCurDec)))
                                If dblValue <> 0 Then '将数据写入临时表
                                    If Not WriteTemp(arrAccount(), arrSelect(), lngTransVoucherID, lngTransVoucherDetailID, strAccountId, strCustomerID, strDepartmentID, strEmployeeID, strJobID, strClassID1, strClassID2, intDirection, dblValue, dblCurrValue, dblQuanValue) Then Exit Function
                                End If
                            Else
                                recTemp_2.MoveFirst
                                Do While Not recTemp_2.EOF
                                    strDepartmentID = recTemp_2(0)
                                    dblValue = mclsBaseFun.EvalueFunc(NatureFunc, blnOK, strAccountId * Abs(arrSelect(0)), strCustomerID * Abs(arrSelect(1)), strDepartmentID * Abs(arrSelect(2)), strEmployeeID * Abs(arrSelect(3)), strJobID * Abs(arrSelect(4)), strClassID1 * Abs(arrSelect(5)), lngCurID, , strClassID2 * Abs(arrSelect(6)))
                                    If CurrencyFunc <> "" Then
                                        lngResult = mclsBaseFun.SetCurrentCond(CurrencyFunc)
                                        InitArr arrSelect2, lngResult
                                        dblCurrValue = mclsBaseFun.EvalueFunc(CurrencyFunc, blnOK, strAccountId * Abs(arrSelect2(0)), strCustomerID * Abs(arrSelect2(1)), strDepartmentID * Abs(arrSelect2(2)), _
                                                       strEmployeeID * Abs(arrSelect2(3)), strJobID * Abs(arrSelect2(4)), strClassID1 * Abs(arrSelect2(5)), lngCurID, , strClassID2 * Abs(arrSelect2(6)))
                                    End If
                                    If QuantityFunc <> "" Then
                                        lngResult = mclsBaseFun.SetCurrentCond(QuantityFunc)
                                        InitArr arrSelect2, lngResult
                                        dblQuanValue = mclsBaseFun.EvalueFunc(QuantityFunc, blnOK, strAccountId * Abs(arrSelect2(0)), strCustomerID * Abs(arrSelect2(1)), strDepartmentID * Abs(arrSelect2(2)), _
                                                       strEmployeeID * Abs(arrSelect2(3)), strJobID * Abs(arrSelect2(4)), strClassID1 * Abs(arrSelect2(5)), lngCurID, , strClassID2 * Abs(arrSelect2(6)))
                                    End If
                                    If blnOK = False Then Exit Function
    
                                    dblValue = Val(Format(dblValue, gclsBase.GetFormat(gclsBase.NaturalCurDec)))
                                    If dblValue <> 0 Then '将数据写入临时表
                                        If Not WriteTemp(arrAccount(), arrSelect(), lngTransVoucherID, lngTransVoucherDetailID, strAccountId, strCustomerID, strDepartmentID, strEmployeeID, strJobID, strClassID1, strClassID2, intDirection, dblValue, dblCurrValue, dblQuanValue) Then Exit Function
                                    End If
    
                                    recTemp_2.MoveNext
                                Loop
                            End If
                            intLoopLevel = 2
                            Exit Do
                        Else
                            intLoopLevel = 2
                            Exit Do
                        End If
                    End If
                Loop While arrSelect(2)  '(2)
                '------------------------------------------------------------------------
                If intEditLevel <= 1 Then '如果内层未执行(科目不包括上一曾的核算项目)
                    If arrSelect(1) Then     '如果科目包括本级核算项目
                        intEditLevel = 1
                        If lngCustomerID_MJ <> 0 Then
                            strCustomerID = lngCustomerID_MJ
                            dblValue = mclsBaseFun.EvalueFunc(NatureFunc, blnOK, strAccountId * Abs(arrSelect(0)), strCustomerID * Abs(arrSelect(1)), strDepartmentID * Abs(arrSelect(2)), strEmployeeID * Abs(arrSelect(3)), strJobID * Abs(arrSelect(4)), strClassID1 * Abs(arrSelect(5)), lngCurID, , strClassID2 * Abs(arrSelect(6)))
                            If CurrencyFunc <> "" Then
                                lngResult = mclsBaseFun.SetCurrentCond(CurrencyFunc)
                                InitArr arrSelect2, lngResult
                                dblCurrValue = mclsBaseFun.EvalueFunc(CurrencyFunc, blnOK, strAccountId * Abs(arrSelect2(0)), strCustomerID * Abs(arrSelect2(1)), strDepartmentID * Abs(arrSelect2(2)), _
                                               strEmployeeID * Abs(arrSelect2(3)), strJobID * Abs(arrSelect2(4)), strClassID1 * Abs(arrSelect2(5)), lngCurID, , strClassID2 * Abs(arrSelect2(6)))
                            End If
                            If QuantityFunc <> "" Then
                                lngResult = mclsBaseFun.SetCurrentCond(QuantityFunc)
                                InitArr arrSelect2, lngResult
                                dblQuanValue = mclsBaseFun.EvalueFunc(QuantityFunc, blnOK, strAccountId * Abs(arrSelect2(0)), strCustomerID * Abs(arrSelect2(1)), strDepartmentID * Abs(arrSelect2(2)), _
                                               strEmployeeID * Abs(arrSelect2(3)), strJobID * Abs(arrSelect2(4)), strClassID1 * Abs(arrSelect2(5)), lngCurID, , strClassID2 * Abs(arrSelect2(6)))
                            End If
                            If blnOK = False Then Exit Function

                            dblValue = Val(Format(dblValue, gclsBase.GetFormat(gclsBase.NaturalCurDec)))
                            If dblValue <> 0 Then '将数据写入临时表
                                If Not WriteTemp(arrAccount(), arrSelect(), lngTransVoucherID, lngTransVoucherDetailID, strAccountId, strCustomerID, strDepartmentID, strEmployeeID, strJobID, strClassID1, strClassID2, intDirection, dblValue, dblCurrValue, dblQuanValue) Then Exit Function
                            End If
                        Else
                            recTemp_1.MoveFirst
                            Do While Not recTemp_1.EOF
                                strCustomerID = recTemp_1(0)
                                dblValue = mclsBaseFun.EvalueFunc(NatureFunc, blnOK, strAccountId * Abs(arrSelect(0)), strCustomerID * Abs(arrSelect(1)), strDepartmentID * Abs(arrSelect(2)), strEmployeeID * Abs(arrSelect(3)), strJobID * Abs(arrSelect(4)), strClassID1 * Abs(arrSelect(5)), lngCurID, , strClassID2 * Abs(arrSelect(6)))
                                If CurrencyFunc <> "" Then
                                    lngResult = mclsBaseFun.SetCurrentCond(CurrencyFunc)
                                    InitArr arrSelect2, lngResult
                                    dblCurrValue = mclsBaseFun.EvalueFunc(CurrencyFunc, blnOK, strAccountId * Abs(arrSelect2(0)), strCustomerID * Abs(arrSelect2(1)), strDepartmentID * Abs(arrSelect2(2)), _
                                                   strEmployeeID * Abs(arrSelect2(3)), strJobID * Abs(arrSelect2(4)), strClassID1 * Abs(arrSelect2(5)), lngCurID, , strClassID2 * Abs(arrSelect2(6)))
                                End If
                                If QuantityFunc <> "" Then
                                    lngResult = mclsBaseFun.SetCurrentCond(QuantityFunc)
                                    InitArr arrSelect2, lngResult
                                    dblQuanValue = mclsBaseFun.EvalueFunc(QuantityFunc, b