recordclass.cls

金算盘软件代码

                        & ") AND (blnIsInActive = 0) AND blnBusinessActivity <> 0 AND BLNISSALEDATABOOK = 0 AND (MOD(bytVersion," _
                        & (gVersionType * 2) & ") > " & (gVersionType - 1) & ")  ORDER BY lngTemplateID"
            Else
                strSQL = "SELECT lngTemplateID, strTemplateName " _
                        & "From Template " _
                        & "WHERE (lngReceiptTypeID=" & lngItemID & ") AND (blnIsInActive = 0) AND blnBusinessActivity = 0 AND BLNISSALEDATABOOK = 0 " _
                        & " AND (MOD(bytVersion," & (gVersionType * 2) & ") > " & (gVersionType - 1) & ") " _
                        & " ORDER BY lngTemplateID"
            End If
        
'            strSQL = "SELECT lngTemplateID, strTemplateName " _
             & "From Template " _
             & "WHERE (lngReceiptTypeID=" & lngItemID & ") AND blnIsInActive=0 " _
             & " AND (MOD(bytVersion," & (gVersionType * 2) & ") > " & (gVersionType - 1) & ") " _
             & " ORDER BY lngTemplateID"
        Case 22 'AccountType
            strSQL = "SELECT lngAccountTypeID,strAccountTypeName " _
             & "FROM AccountType ORDER BY lngAccountTypeID"
        Case 23 'InvRecAccount
            strSQL = "SELECT lngAccountID,strAccountCode,strAccountName " _
             & "FROM Account " _
             & "WHERE (lngAccountNatureID = 3 OR lngAccountNatureID = 4) AND blnIsInActive=0 AND strAccountCode<>' ' ORDER BY strAccountCode"
        Case 24 'CustomerAddress
            strSQL = "SELECT lngCustomerAddressID,strCustomerAddressCode,strCustomerAddressName " _
               & "FROM CustomerAddress " _
               & "WHERE lngCustomerID=" & lngItemID & " ORDER BY strCustomerAddressCode"
        Case 25 'CustomerBank
             strSQL = "SELECT lngCustomerBankID,strBankName,strAccountNO " _
                 & "FROM CustomerBank " _
                 & "WHERE lngCustomerID=" & lngItemID & " ORDER BY lngCustomerBankID"
        Case 28 'ItemUnit
            strSQL = "SELECT ItemUnit.lngUnitID,ItemUnit.strUnitName,TO_CHAR(ItemUnit.dblFactor)||ItemUnit_1.strUnitName " _
                 & "FROM ItemUnit,Item,ItemUnit ItemUnit_1 " _
                 & "WHERE ItemUnit.lngItemID = Item.lngItemID AND " _
                 & "ItemUnit_1.lngUnitID = Item.lngMinUnitID AND ItemUnit.lngItemID=" & lngItemID _
                 & " ORDER BY ItemUnit.lngUnitID"
        Case 29 'Tax
            strSQL = "SELECT lngTaxID,strTaxName " _
                & "FROM Tax " _
                & "Where blnIsInActive=0 ORDER BY lngTaxID"
        Case 31 'PaymentMethod
            strSQL = "SELECT lngPaymentmethodID, strPaymentmethodCode, strPaymentmethodName " _
             & "From PaymentMethod " _
             & "WHERE blnIsInActive=0 AND strPaymentmethodCode<>' ' ORDER BY strPaymentmethodCode"
        Case 33 '特殊类的商品
            If lngItemID = 8 Then  '调价单必须是6，7
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & " WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " & _
                            "ItemNature.strItemCategory = '1' AND (ItemNature.strCostMethod ='6'or " _
                            & "ItemNature.strCostMethod ='7') AND " _
                            & "blnIsInActive=0 AND Item.strItemCode<>' ' ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 9 Then '调拔单必须是库存类型
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & " WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND ItemNature.strItemCategory='1' AND " _
                            & "blnIsInActive=0 " _
                            & " AND Item.strItemCode<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 1 Then   '组件商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & "FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND Item.blnIsCombination=1 AND " _
                            & "Item.blnIsAssembly=1 AND blnIsInActive=0 " _
                            & "AND ItemNature.strItemCategory='1' AND Item.strItemCode<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -1 Then  '存货....请传入的LngItemID为-1
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND ItemNature.strItemCategory='1' AND " _
                            & "blnIsInActive=0 " _
                            & "AND Item.strItemCode<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -2 Then  '非存货..请传入的LngItemID为-2
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory<>'1' AND blnIsInActive=0  " _
                            & "AND Item.strItemCode<>' ' ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -3 Then  '劳务....请传入的LngItemID为-3
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory='3' AND blnIsInActive=0 AND " _
                            & "Item.strItemCode<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -4 Then  '费用....请传入的LngItemID为-4
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory='4' AND blnIsInActive=0 AND " _
                            & "Item.strItemCode<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 10 Then  '受托
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "((Item.blnIsBorrow=1 AND ItemNature.strItemCategory='1') " _
                            & "OR ItemNature.strItemCategory='3' OR ItemNature.strItemCategory='4') AND " _
                            & "blnIsInActive=0 AND Item.strItemCode<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -10 Then  '非受托
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND (Item.blnIsBorrow=0 OR ItemNature.strItemCategory<>'1') AND " _
                            & "(blnIsInActive=0) AND Item.strItemCode<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -11 Then '非受托存货
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory='1' AND blnIsInActive=0 AND Item.blnIsBorrow=0 " _
                            & "AND Item.strItemCode<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -12 Then '非费用类
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND ItemNature.strItemCategory<>'4' AND " _
                            & "blnIsInActive=0  " _
                            & "AND Item.strItemCode<>' ' ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -13 Then '非配比的存货类
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "(NOT (Item.blnIsCombination<>0 AND (Item.blnIsAssembly=0))) AND (blnIsInActive=0) " _
                            & "AND ItemNature.strItemCategory='1' AND ' ' || LTRIM(Item.strItemCode) <> ' '  " _
                            & "ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 20 Then  '售价核算商品(ItemNature.strItemCategory='7')
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory<>'2' AND blnIsInActive=0 " _
                            & "AND ItemNature.strCostMethod='7' AND Item.strItemCode<>' ' " _
                            & "ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 21 Then  '计划价核算商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND blnIsInActive=0) " _
                            & "AND  ItemNature.strCostMethod='6' AND Item.strItemCode<>' ' " _
                            & "ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 22 Then  '进价核算商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND blnIsInActive=0 AND " _
                            & "(ItemNature.strCostMethod='6' AND " _
                            & "ItemNature.strCostMethod='7') AND Item.strItemCode<>' '  ORDER BY " _
                            & "Item.strItemCode ASC"
            ElseIf lngItemID = 23 Then  '售价核算受托商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND Item.blnIsBorrow=1 AND (blnIsInActive=0) AND ItemNature.strCostMethod='6' AND " _
                            & "(Item.strItemCode)<>' ' ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 24 Then  '计划价核算受托商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND Item.blnIsBorrow=1 AND (blnIsInActive=0) AND ItemNature.strCostMethod='7' AND " _
                            & "(Item.strItemCode)<>' ' ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 25 Then  '进价核算受托商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND Item.blnIsBorrow=1 AND (blnIsInActive=0) AND ItemNature.strCostMethod='6' AND " _
                            & "ItemNature.strCostMethod='7' AND (Item.strItemCode)<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 26 Then  '售价核算非费用商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND (blnIsInActive=0) AND ItemNature.strCostMethod='6' " _
                            & "AND (Item.strItemCode)<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 27 Then  '计划价核算非费用商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND (blnIsInActive=0) AND  ItemNature.strCostMethod='7' " _
                            & "AND (Item.strItemCode)<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 28 Then  '进价核算非费用商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND strItemCategory<>'4' AND " _
                            & "(blnIsInActive=0) AND (ItemNature.strCostMethod<>'6' " _
                            & "AND ItemNature.strCostMethod<>'7') AND (Item.strItemCode)<>' '  " _
                            & "ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 29 Then  '售价核算非受托商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND (Item.blnIsBorrow=0) AND " _
                            & "(blnIsInActive=0) AND ItemNature.strCostMethod='6' AND " _
                            & "(Item.strItemCode)<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 30 Then  '计划核算非受托商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND (Item.blnIsBorrow=0) AND (blnIsInActive=0) " _
                            & "AND  ItemNature.strCostMethod='7' AND " _
                            & "(Item.strItemCode)<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 31 Then  '进价核算非受托商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND (Item.blnIsBorrow=0) " _
                            & "AND (blnIsInActive=0) AND (ItemNature.strCostMethod<>'6' " _
                            & "AND ItemNature.strCostMethod<>'7') AND TRIM(Item.strItemCode)<>''  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = 32 Then  '受托存货类
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "(ItemNature.strItemCategory='1') AND Item.blnIsBorrow=1 AND (blnIsInActive=0) " _
                            & "AND (Item.strItemCode)<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -14 Then '非费用受托类
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND (ItemNature.strItemCategory<>'4') " _
                            & "AND Item.blnIsBorrow=1 AND (blnIsInActive=0) " _
                            & "AND (Item.strItemCode)<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -15 Then '非费用非受托类
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND (ItemNature.strItemCategory<>'4') " _
                            & "AND ( Item.blnIsBorrow=0) AND (blnIsInActive=0) " _
                            & "AND (Item.strItemCode)<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -16 Then '非受托非配比类
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND (NOT (Item.blnIsCombination=1 AND " _
                            & "Item.blnIsAssembly=0) AND blnIsBorrow=0) " _
                            & "AND blnIsInActive=0 AND  ItemNature.strItemCategory='1' AND (Item.strItemCode)<>' '  " _
                        & "ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -17 Then '非受托非配比存货类(入库成本)
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory = '1' AND Item.blnIsBorrow=0 AND " _
                            & "(NOT (Item.blnIsCombination=1 AND Item.blnIsAssembly=0)) AND blnIsInActive=0 " _
                            & "AND Item.strItemCode<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -18 Then '加工费用或费用类商品
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory IN ('2','4') AND blnIsInActive=0 AND " _
                            & "Item.strItemCode<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -19 Then '非加工费用类
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _
                            & "ItemNature.strItemCategory <> '2' AND blnIsInActive=0 AND " _
                            & "Item.strItemCode<>' '  ORDER BY Item.strItemCode ASC"
            ElseIf lngItemID = -20 Then '存货\加工费用类
                strSQL = "SELECT Item.lngItemID, Item.strItemCode, Item.strItemName, Item.strItemStyle " _
                            & " FROM Item,ItemNature " _
                            & "WHERE Item.lngItemNatureID = ItemNature.lngItemNatureID AND " _