netsuite-soap 2025.2.3

data/spec/netsuite/records/account_spec.rb

@@ -0,0 +1,107 @@
+require 'spec_helper'
+
+describe NetSuite::Records::Account do
+  let(:account) { NetSuite::Records::Account.new }
+
+  it 'has all the right fields' do
+    [
+      :acct_name, :acct_number, :acct_type, :cash_flow_rate, :cur_doc_num, :description, :eliminate, :exchange_rate,
+      :general_rate, :include_children, :inventory, :is_inactive, :opening_balance, :revalue, :tran_date
+    ].each do |field|
+      expect(account).to have_field(field)
+    end
+  end
+
+  it 'has all the right record refs' do
+    [
+      :billable_expenses_acct, :category1099misc, :currency, :deferral_acct, :department, :klass, :location, :parent
+    ].each do |record_ref|
+      expect(account).to have_record_ref(record_ref)
+    end
+  end
+
+
+
+
+  describe '.get' do
+    context 'when the response is successful' do
+      let(:response) { NetSuite::Response.new(:success => true, :body => { :acct_name => 'Account 1' }) }
+
+      it 'returns a Account instance populated with the data from the response object' do
+        expect(NetSuite::Actions::Get).to receive(:call).with([NetSuite::Records::Account, {:external_id => 1}], {}).and_return(response)
+        account = NetSuite::Records::Account.get(:external_id => 1)
+        expect(account).to be_kind_of(NetSuite::Records::Account)
+        expect(account.acct_name).to eql('Account 1')
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'raises a RecordNotFound exception' do
+        expect(NetSuite::Actions::Get).to receive(:call).with([NetSuite::Records::Account, {:external_id => 1}], {}).and_return(response)
+        expect {
+          NetSuite::Records::Account.get(:external_id => 1)
+        }.to raise_error(NetSuite::RecordNotFound,
+          /NetSuite::Records::Account with OPTIONS=(.*) could not be found/)
+      end
+    end
+  end
+
+  describe '#add' do
+    let(:test_data) { { :acct_name => 'Test Account', :description => 'An example account' } }
+
+    context 'when the response is successful' do
+      let(:response) { NetSuite::Response.new(:success => true, :body => { :internal_id => '1' }) }
+
+      it 'returns true' do
+        account = NetSuite::Records::Account.new(test_data)
+        expect(NetSuite::Actions::Add).to receive(:call).
+            with([account], {}).
+            and_return(response)
+        expect(account.add).to be_truthy
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'returns false' do
+        account = NetSuite::Records::Account.new(test_data)
+        expect(NetSuite::Actions::Add).to receive(:call).
+            with([account], {}).
+            and_return(response)
+        expect(account.add).to be_falsey
+      end
+    end
+  end
+
+  describe '#delete' do
+    let(:test_data) { { :internal_id => '1' } }
+
+    context 'when the response is successful' do
+      let(:response)  { NetSuite::Response.new(:success => true, :body => { :internal_id => '1' }) }
+
+      it 'returns true' do
+        account = NetSuite::Records::Account.new(test_data)
+        expect(NetSuite::Actions::Delete).to receive(:call).
+            with([account], {}).
+            and_return(response)
+        expect(account.delete).to be_truthy
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'returns false' do
+        account = NetSuite::Records::Account.new(test_data)
+        expect(NetSuite::Actions::Delete).to receive(:call).
+            with([account], {}).
+            and_return(response)
+        expect(account.delete).to be_falsey
+      end
+    end
+  end
+
+end

data/spec/netsuite/records/accounting_period_spec.rb

@@ -0,0 +1,138 @@
+require 'spec_helper'
+
+describe NetSuite::Records::AccountingPeriod do
+  let(:accounting_period) { NetSuite::Records::AccountingPeriod.new }
+
+  it 'has all the right fields' do
+    [
+      :allow_non_gl_changes, :end_date, :is_adjust, :is_quarter, :is_year, :period_name, :start_date
+    ].each do |field|
+      expect(accounting_period).to have_field(field)
+    end
+  end
+
+  it 'has all the right record refs' do
+    [
+      :parent
+    ].each do |record_ref|
+      expect(accounting_period).to have_record_ref(record_ref)
+    end
+  end
+
+  describe '.get' do
+    context 'when the response is successful' do
+      let(:response) { NetSuite::Response.new(:success => true, :body => { :period_name => 'Accounting Period 1' }) }
+
+      it 'returns a Account instance populated with the data from the response object' do
+        expect(NetSuite::Actions::Get).to receive(:call).with([NetSuite::Records::AccountingPeriod, {:external_id => 1}], {}).and_return(response)
+        accounting_period = NetSuite::Records::AccountingPeriod.get(:external_id => 1)
+        expect(accounting_period).to be_kind_of(NetSuite::Records::AccountingPeriod)
+        expect(accounting_period.period_name).to eql('Accounting Period 1')
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'raises a RecordNotFound exception' do
+        expect(NetSuite::Actions::Get).to receive(:call).with([NetSuite::Records::AccountingPeriod, {:external_id => 1}], {}).and_return(response)
+        expect {
+          NetSuite::Records::AccountingPeriod.get(:external_id => 1)
+        }.to raise_error(NetSuite::RecordNotFound,
+          /NetSuite::Records::AccountingPeriod with OPTIONS=(.*) could not be found/)
+      end
+    end
+  end
+
+  describe ".search" do
+    context 'when the response is successful' do
+
+      it 'returns a Account instance populated with the data from the response object' do
+        body = {
+          total_records: 2,
+          record_list: {
+            record: [
+              {period_name: "Accounting Period 1"},
+              {period_name: "Accounting Period 2"}
+            ]
+          }
+        }
+
+        allow(NetSuite::Actions::Search).to receive(:call).with(
+          [NetSuite::Records::AccountingPeriod, {:external_id => 1}], {}
+        ).and_return(
+          NetSuite::Response.new(:success => true, :body => body)
+        )
+
+        search_result = NetSuite::Records::AccountingPeriod.search(:external_id => 1)
+
+        expect(search_result).to be_a NetSuite::Support::SearchResult
+        expect(search_result.total_records).to eq 2
+
+        period1, period2 = search_result.results
+
+        expect(period1).to be_a NetSuite::Records::AccountingPeriod
+        expect(period1.period_name).to eq 'Accounting Period 1'
+
+        expect(period2).to be_a NetSuite::Records::AccountingPeriod
+        expect(period2.period_name).to eq 'Accounting Period 2'
+      end
+    end
+  end
+
+  describe '#add' do
+    let(:test_data) { { :acct_name => 'Test Accounting Period', :description => 'An example accounting period' } }
+
+    context 'when the response is successful' do
+      let(:response) { NetSuite::Response.new(:success => true, :body => { :internal_id => '1' }) }
+
+      it 'returns true' do
+        accounting_period = NetSuite::Records::AccountingPeriod.new(test_data)
+        expect(NetSuite::Actions::Add).to receive(:call).
+            with([accounting_period], {}).
+            and_return(response)
+        expect(accounting_period.add).to be_truthy
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'returns false' do
+        accounting_period = NetSuite::Records::AccountingPeriod.new(test_data)
+        expect(NetSuite::Actions::Add).to receive(:call).
+            with([accounting_period], {}).
+            and_return(response)
+        expect(accounting_period.add).to be_falsey
+      end
+    end
+  end
+
+  describe '#delete' do
+    let(:test_data) { { :internal_id => '1' } }
+
+    context 'when the response is successful' do
+      let(:response)  { NetSuite::Response.new(:success => true, :body => { :internal_id => '1' }) }
+
+      it 'returns true' do
+        accounting_period = NetSuite::Records::AccountingPeriod.new(test_data)
+        expect(NetSuite::Actions::Delete).to receive(:call).
+            with([accounting_period], {}).
+            and_return(response)
+        expect(accounting_period.delete).to be_truthy
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'returns false' do
+        accounting_period = NetSuite::Records::AccountingPeriod.new(test_data)
+        expect(NetSuite::Actions::Delete).to receive(:call).
+            with([accounting_period], {}).
+            and_return(response)
+        expect(accounting_period.delete).to be_falsey
+      end
+    end
+  end
+end

data/spec/netsuite/records/address_spec.rb

@@ -0,0 +1,139 @@
+require 'spec_helper'
+
+describe NetSuite::Records::Address do
+  let(:attributes) do
+    {
+      :addr1        => '123 Happy Lane',
+      :addr2        => '#10-10 Big Building',
+      :addressee    => 'Happy Pizza',
+      :addr_text    => "123 Happy Lane\nLos Angeles CA 90007",
+      :addr_phone   => '91828232',
+      :attention    => 'Mr. Happy',
+      :city         => 'Los Angeles',
+      :country      => '_unitedStates',
+      :internal_id  => '1232',
+      :override     => false,
+      :state        => 'CA',
+      :zip          => '90007'
+    }
+  end
+  let(:list) { NetSuite::Records::Address.new(attributes) }
+
+  it 'has all the right fields' do
+    [
+      :addr1, :addr2, :addressee, :addr_phone, :attention, :city, :internal_id, :override, :state, :zip
+    ].each do |field|
+      expect(list).to have_field(field)
+    end
+  end
+
+  it 'has all the right read_only_fields' do
+    [
+      :addr_text
+    ].each do |field|
+      expect(NetSuite::Records::Address).to have_read_only_field(field)
+    end
+  end
+
+  describe '#initialize' do
+    context 'when taking in a hash of attributes' do
+      it 'sets the attributes for the object given the attributes hash' do
+        expect(list.addr1).to eql('123 Happy Lane')
+        expect(list.addr2).to eql('#10-10 Big Building')
+        expect(list.addressee).to eql('Happy Pizza')
+        expect(list.addr_text).to eql("123 Happy Lane\nLos Angeles CA 90007")
+        expect(list.addr_phone).to eql('91828232')
+        expect(list.attention).to eql('Mr. Happy')
+        expect(list.city).to eql('Los Angeles')
+        expect(list.country.to_record).to eql('_unitedStates')
+        expect(list.internal_id).to eql('1232')
+        expect(list.override).to be_falsey
+        expect(list.state).to eql('CA')
+        expect(list.zip).to eql('90007')
+      end
+    end
+
+    context 'when taking in a CustomerAddressbookList instance' do
+      it 'sets the attributes for the object given the record attributes' do
+        old_list = NetSuite::Records::Address.new(attributes)
+        list     = NetSuite::Records::Address.new(old_list)
+        expect(list.addr1).to eql('123 Happy Lane')
+        expect(list.addr2).to eql('#10-10 Big Building')
+        expect(list.addressee).to eql('Happy Pizza')
+        expect(list.addr_text).to eql("123 Happy Lane\nLos Angeles CA 90007")
+        expect(list.addr_phone).to eql('91828232')
+        expect(list.attention).to eql('Mr. Happy')
+        expect(list.city).to eql('Los Angeles')
+        expect(list.country.to_record).to eql('_unitedStates')
+        expect(list.internal_id).to eql('1232')
+        expect(list.override).to be_falsey
+        expect(list.state).to eql('CA')
+        expect(list.zip).to eql('90007')
+      end
+    end
+  end
+
+  describe '#to_record' do
+    it 'can represent itself as a SOAP record' do
+      record = {
+        'platformCommon:addr1'       => '123 Happy Lane',
+        'platformCommon:addr2'       => '#10-10 Big Building',
+        'platformCommon:addressee'   => 'Happy Pizza',
+        'platformCommon:addrPhone'   => '91828232',
+        'platformCommon:attention'   => 'Mr. Happy',
+        'platformCommon:city'        => 'Los Angeles',
+        'platformCommon:country'     => '_unitedStates',
+        'platformCommon:internalId'  => '1232',
+        'platformCommon:override'    => false,
+        'platformCommon:state'       => 'CA',
+        'platformCommon:zip'         => '90007'
+      }
+      expect(list.to_record).to eql(record)
+    end
+  end
+
+  describe '#record_type' do
+    it 'returns a string of the record SOAP type' do
+      expect(list.record_type).to eql('platformCommon:Address')
+    end
+  end
+
+  describe "#country" do
+    context "when it's specified as a 2 character ISO code" do
+      it "is converted to the appropriate NetSuite enum value" do
+        addressbook = NetSuite::Records::Address.new country: "US"
+        expect(addressbook.to_record["platformCommon:country"]).to eql "_unitedStates"
+      end
+
+      it 'properly evaluates equality against another country of the same ISO code' do
+        addressbook = NetSuite::Records::Address.new country: "US"
+        addressbook_2 = NetSuite::Records::Address.new country: "US"
+
+        expect(addressbook.country == addressbook_2.country).to eq(true)
+      end
+    end
+
+    context "when the country code is a YAML reserved word (NO)" do
+      it "is converted to the appropriate NetSuite enum value" do
+        addressbook = NetSuite::Records::Address.new country: "NO"
+        expect(addressbook.to_record["platformCommon:country"]).to eql "_norway"
+      end
+    end
+
+    it "can be specified as the NetSuite enum value" do
+      addressbook = NetSuite::Records::Address.new country: "_unitedStates"
+      expect(addressbook.to_record["platformCommon:country"]).to eql "_unitedStates"
+
+      # country with two uppercase letters (looks like ISO2)
+      addressbook = NetSuite::Records::Address.new country: "_unitedKingdomGB"
+      expect(addressbook.to_record["platformCommon:country"]).to eql "_unitedKingdomGB"
+    end
+
+    it "can be unspecified" do
+      addressbook = NetSuite::Records::Address.new country: ''
+      expect(addressbook.country.to_record).to eql ""
+      expect(addressbook.to_record["platformCommon:country"]).to eql ""
+    end
+  end
+
+end

data/spec/netsuite/records/assembly_item_spec.rb

@@ -0,0 +1,64 @@
+require 'spec_helper'
+
+describe NetSuite::Records::AssemblyItem do
+  let(:item) { described_class.new }
+
+  describe '#member_list' do
+    it 'can be set from attributes' do
+      attributes = {
+        :item_member => [{
+          :item => { :internal_id => 1 },
+          :quantity => 20
+        }]
+      }
+      item.member_list = attributes
+      expect(item.member_list).to be_kind_of(NetSuite::Records::MemberList)
+      expect(item.member_list.item_member.length).to eql(1)
+
+      expect(item.member_list.item_member.first.item.internal_id).to eq(1)
+      expect(item.member_list.item_member.first.quantity).to eq(20)
+    end
+  end
+
+  describe '#subsidiary_list' do
+    it 'creates record refs from attributes' do
+      item = described_class.new({
+        subsidiary_list: {
+          record_ref: [
+            { internal_id: 1 },
+            { internal_id: 2 },
+          ]
+        }
+      })
+
+      expect(item.subsidiary_list.record_ref[0].internal_id).to eq(1)
+      expect(item.subsidiary_list.record_ref[1].internal_id).to eq(2)
+    end
+  end
+
+  describe '#item_vendor_list' do
+    it 'can be set from attributes' do
+      attributes = {
+        :item_vendor => {
+          :vendor=>{
+            :name=>"Spring Water",
+            :"@xmlns:platform_core"=>"urn:core_2016_1.platform.webservices.netsuite.com",
+            :@internal_id=>"20"
+          },
+         :purchase_price=>"16.14",
+         :preferred_vendor=>true
+        }
+      }
+
+      item.item_vendor_list = attributes
+      expect(item.item_vendor_list).to be_kind_of(NetSuite::Records::ItemVendorList)
+      expect(item.item_vendor_list.item_vendors.length).to eql(1)
+    end
+
+    it 'can be set from a ItemVendorList object' do
+      item_vendor_list = NetSuite::Records::ItemVendorList.new
+      item.item_vendor_list = item_vendor_list
+      expect(item.item_vendor_list).to eql(item_vendor_list)
+    end
+  end
+end

data/spec/netsuite/records/basic_record_spec.rb

@@ -0,0 +1,128 @@
+require 'spec_helper'
+
+describe 'basic records' do
+  # all records with internal IDs should be added to this list
+  let(:basic_record_list) {
+    [
+      NetSuite::Records::Currency,
+      NetSuite::Records::CashSale,
+      NetSuite::Records::CashRefund,
+      NetSuite::Records::Location,
+      NetSuite::Records::JobStatus,
+      NetSuite::Records::TimeBill,
+      NetSuite::Records::Customer,
+      NetSuite::Records::Invoice,
+      NetSuite::Records::PayrollItem,
+      NetSuite::Records::Opportunity,
+      NetSuite::Records::VendorCategory,
+      NetSuite::Records::VendorCredit,
+      NetSuite::Records::VendorBill,
+      NetSuite::Records::Deposit,
+      NetSuite::Records::RevRecTemplate,
+      NetSuite::Records::RevRecSchedule,
+      NetSuite::Records::JournalEntry,
+      NetSuite::Records::Classification,
+      NetSuite::Records::SalesOrder,
+      NetSuite::Records::CustomerDeposit,
+      NetSuite::Records::NonInventoryPurchaseItem,
+      NetSuite::Records::NonInventoryResaleItem,
+      NetSuite::Records::LotNumberedInventoryItem,
+      NetSuite::Records::TaxGroup,
+      NetSuite::Records::Folder,
+      NetSuite::Records::CustomerCategory,
+      NetSuite::Records::File,
+      NetSuite::Records::TransferOrder,
+      NetSuite::Records::Partner,
+      NetSuite::Records::PurchaseOrder,
+      NetSuite::Records::ItemReceipt,
+      NetSuite::Records::GiftCertificate,
+      NetSuite::Records::ContactRole,
+      NetSuite::Records::PaymentItem,
+      NetSuite::Records::CreditMemo,
+      NetSuite::Records::InventoryItem,
+      NetSuite::Records::DescriptionItem,
+      NetSuite::Records::SubtotalItem,
+      NetSuite::Records::Term,
+      NetSuite::Records::Note,
+      NetSuite::Records::OtherChargeSaleItem,
+      NetSuite::Records::GiftCertificateItem,
+      NetSuite::Records::ReturnAuthorization,
+      NetSuite::Records::SerializedInventoryItem,
+      NetSuite::Records::DepositApplication,
+      NetSuite::Records::InventoryAdjustment,
+      NetSuite::Records::Vendor,
+      NetSuite::Records::VendorReturnAuthorization,
+      NetSuite::Records::AssemblyBuild,
+      NetSuite::Records::AssemblyUnbuild,
+      NetSuite::Records::AssemblyComponent,
+      NetSuite::Records::InventoryNumber,
+      NetSuite::Records::PriceLevel,
+      NetSuite::Records::LotNumberedAssemblyItem,
+      NetSuite::Records::InboundShipment,
+      NetSuite::Records::InterCompanyJournalEntry,
+      NetSuite::Records::BinTransfer,
+      NetSuite::Records::SerializedAssemblyItem,
+      NetSuite::Records::CustomerStatus,
+      NetSuite::Records::CustomerPayment,
+      NetSuite::Records::TransactionBodyCustomField,
+      NetSuite::Records::TransactionColumnCustomField,
+      NetSuite::Records::EntityCustomField
+    ]
+  }
+
+  it 'can be initialized, has fields, and can be converted into a record' do
+    basic_record_list.each do |record_class|
+      record_instance = record_class.new
+
+      # most records have a
+      expect(record_class.fields.size).to be > 0
+      expect(record_class.record_refs).to_not be_nil
+      expect(record_instance).to respond_to(:internal_id)
+
+      # NOTE all records have externalIds, not testing exernalId setter
+      if record_class.respond_to?(:upsert)
+        expect(record_instance).to respond_to(:external_id)
+        expect(record_instance).to respond_to(:external_id=)
+      end
+
+      standard_fields = (record_class.fields - record_class.record_refs).to_a
+      custom_object_fields = standard_fields.select { |f| !record_instance.send(f).nil? }
+      sublist_fields = custom_object_fields.select { |f| record_instance.send(f).kind_of?(NetSuite::Support::Sublist) }
+
+      custom_object_fields -= sublist_fields
+      standard_fields -= custom_object_fields
+      standard_fields -= sublist_fields
+
+      # ensure that all fields can be set
+      standard_fields.each { |f| expect(record_instance).to have_field(f) }
+      record_class.record_refs.each { |f| expect(record_instance).to have_record_ref(f) }
+
+      # TODO handle custom object fields
+
+      6.times do
+        record_instance.send(:"#{standard_fields.sample}=", "Test Value")
+      end
+
+      if !record_class.record_refs.empty?
+        sample_record_ref_field = record_class.record_refs.to_a.sample
+
+        record_instance.send(:"#{sample_record_ref_field}=".to_sym, { internal_id: 1 })
+      end
+
+      if !sublist_fields.empty?
+        sublist_fields.each do |sublist_field|
+          sublist = record_instance.send(sublist_field)
+
+          # TODO make a sublist entry with some fields valid for that sublist item
+          sublist << {}
+
+          expect(sublist.send(sublist.sublist_key).count).to be(1)
+        end
+      end
+
+      expect(record_instance.to_record).to be_a(Hash)
+
+      # TODO should test for correct value output
+    end
+  end
+end

data/spec/netsuite/records/bill_address_spec.rb

@@ -0,0 +1,52 @@
+require 'spec_helper'
+
+describe NetSuite::Records::BillAddress do
+  let(:bill_address) { NetSuite::Records::BillAddress.new }
+
+  it 'has all the right fields' do
+    [
+      :bill_attention, :bill_addressee, :bill_phone, :bill_addr1, :bill_addr2,
+      :bill_addr3, :bill_city, :bill_state, :bill_zip, :bill_country
+    ].each do |field|
+      expect(bill_address).to have_field(field)
+    end
+  end
+
+  describe '#to_record' do
+    before do
+      bill_address.bill_attention = 'Mr. Smith'
+      bill_address.bill_addressee = 'Mr. Robert Smith'
+      bill_address.bill_phone     = '1234567890'
+      bill_address.bill_addr1     = '123 Happy Lane'
+      bill_address.bill_addr2     = '#4'
+      bill_address.bill_addr3     = 'Box 6'
+      bill_address.bill_city      = 'Los Angeles'
+      bill_address.bill_state     = 'CA'
+      bill_address.bill_zip       = '90007'
+      bill_address.bill_country   = '_unitedStates'
+    end
+
+    it 'can represent itself as a SOAP record' do
+      record = {
+        'platformCommon:billAttention' => 'Mr. Smith',
+        'platformCommon:billAddressee' => 'Mr. Robert Smith',
+        'platformCommon:billPhone'     => '1234567890',
+        'platformCommon:billAddr1'     => '123 Happy Lane',
+        'platformCommon:billAddr2'     => '#4',
+        'platformCommon:billAddr3'     => 'Box 6',
+        'platformCommon:billCity'      => 'Los Angeles',
+        'platformCommon:billState'     => 'CA',
+        'platformCommon:billZip'       => '90007',
+        'platformCommon:billCountry'   => '_unitedStates'
+      }
+      expect(bill_address.to_record).to eql(record)
+    end
+  end
+
+  describe 'record_namespace' do
+    it 'belongs to the platformCommon namespace' do
+      expect(bill_address.record_namespace).to eql('platformCommon')
+    end
+  end
+
+end

data/spec/netsuite/records/billing_schedule_milestone_list_spec.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+
+describe NetSuite::Records::BillingScheduleMilestoneList do
+  let(:list) { NetSuite::Records::BillingScheduleMilestoneList.new }
+  let(:milestone) { NetSuite::Records::BillingScheduleMilestone.new }
+
+  it 'can have milestones be added to it' do
+    list.milestones << milestone
+    milestone_list = list.milestones
+    expect(milestone_list).to be_kind_of(Array)
+    expect(milestone_list.length).to eql(1)
+    milestone_list.each { |i| expect(i).to be_kind_of(NetSuite::Records::BillingScheduleMilestone) }
+  end
+
+  describe '#to_record' do
+    it 'can represent itself as a SOAP record' do
+      record = {
+        'listAcct:billingScheduleMilestone' => []
+      }
+      expect(list.to_record).to eql(record)
+    end
+  end
+
+end