SP:
CREATE PROCEDURE [dbo].sp_deletetblTelephoneInputCalls
@TelephoneInputCallsID int
AS
DELETE FROM [dbo].[tblTelephoneInputCalls]
WHERE
[TelephoneInputCallsID] = @TelephoneInputCallsID
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 27 January 2005
-- Created By: Generated by CodeSmith
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].sp_gettblTelephoneInputCalls
@TelephoneInputCallsID int
AS
SET TRANSACTION ISOLATION LEVEL READ COMMITTED
SELECT
[TelephoneInputCallsID],
[TelephoneInputFormID],
[LocalDaytime],
[LocalEvening],
[LocalWeekend],
[NationalDaytime],
[NationalEvening],
[NationalWeekend],
[MobileDaytime],
[MobileEvening],
[MobileWeekend],
[VodafoneDaytime],
[VodafoneEvening],
[Vodafoneweekend],
[O2Daytime],
[O2Evening],
[O2Weekend],
[OrangeDaytime],
[OrangeEvening],
[OrangeWeekend],
[TMobileDaytime],
[TMobileEvening],
[TMobileWeekend],
[ThreeDaytime],
[ThreeEvening],
[ThreeWeekend],
[Country1ID],
[Country1Daytime],
[Country1Eveining],
[Country1Weekend],
[Country2ID],
[Country2Daytime],
[Country2Evening],
[Country2Weekend],
[Country3ID],
[Country3Daytime],
[Country3Evening],
[Country3Weekend]
FROM
[dbo].[tblTelephoneInputCalls]
WHERE
[TelephoneInputCallsID] = @TelephoneInputCallsID
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 27 January 2005
-- Created By: Generated by CodeSmith
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].sp_gettblTelephoneInputCallsList
AS
SET TRANSACTION ISOLATION LEVEL READ COMMITTED
SELECT
[TelephoneInputCallsID],
[TelephoneInputFormID],
[LocalDaytime],
[LocalEvening],
[LocalWeekend],
[NationalDaytime],
[NationalEvening],
[NationalWeekend],
[MobileDaytime],
[MobileEvening],
[MobileWeekend],
[VodafoneDaytime],
[VodafoneEvening],
[Vodafoneweekend],
[O2Daytime],
[O2Evening],
[O2Weekend],
[OrangeDaytime],
[OrangeEvening],
[OrangeWeekend],
[TMobileDaytime],
[TMobileEvening],
[TMobileWeekend],
[ThreeDaytime],
[ThreeEvening],
[ThreeWeekend],
[Country1ID],
[Country1Daytime],
[Country1Eveining],
[Country1Weekend],
[Country2ID],
[Country2Daytime],
[Country2Evening],
[Country2Weekend],
[Country3ID],
[Country3Daytime],
[Country3Evening],
[Country3Weekend]
FROM
[dbo].[tblTelephoneInputCalls]
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 27 January 2005
-- Created By: Generated by CodeSmith
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].sp_inserttblTelephoneInputCalls
@TelephoneInputFormID int,
@LocalDaytime real,
@LocalEvening real,
@LocalWeekend real,
@NationalDaytime real,
@NationalEvening real,
@NationalWeekend real,
@MobileDaytime real,
@MobileEvening real,
@MobileWeekend real,
@VodafoneDaytime real,
@VodafoneEvening real,
@Vodafoneweekend real,
@O2Daytime real,
@O2Evening real,
@O2Weekend real,
@OrangeDaytime real,
@OrangeEvening real,
@OrangeWeekend real,
@TMobileDaytime real,
@TMobileEvening real,
@TMobileWeekend real,
@ThreeDaytime real,
@ThreeEvening real,
@ThreeWeekend real,
@Country1ID real,
@Country1Daytime real,
@Country1Eveining real,
@Country1Weekend real,
@Country2ID real,
@Country2Daytime real,
@Country2Evening real,
@Country2Weekend real,
@Country3ID real,
@Country3Daytime real,
@Country3Evening real,
@Country3Weekend real
AS
INSERT INTO [dbo].[tblTelephoneInputCalls] (
[TelephoneInputFormID],
[LocalDaytime],
[LocalEvening],
[LocalWeekend],
[NationalDaytime],
[NationalEvening],
[NationalWeekend],
[MobileDaytime],
[MobileEvening],
[MobileWeekend],
[VodafoneDaytime],
[VodafoneEvening],
[Vodafoneweekend],
[O2Daytime],
[O2Evening],
[O2Weekend],
[OrangeDaytime],
[OrangeEvening],
[OrangeWeekend],
[TMobileDaytime],
[TMobileEvening],
[TMobileWeekend],
[ThreeDaytime],
[ThreeEvening],
[ThreeWeekend],
[Country1ID],
[Country1Daytime],
[Country1Eveining],
[Country1Weekend],
[Country2ID],
[Country2Daytime],
[Country2Evening],
[Country2Weekend],
[Country3ID],
[Country3Daytime],
[Country3Evening],
[Country3Weekend]
) VALUES (
@TelephoneInputFormID,
@LocalDaytime,
@LocalEvening,
@LocalWeekend,
@NationalDaytime,
@NationalEvening,
@NationalWeekend,
@MobileDaytime,
@MobileEvening,
@MobileWeekend,
@VodafoneDaytime,
@VodafoneEvening,
@Vodafoneweekend,
@O2Daytime,
@O2Evening,
@O2Weekend,
@OrangeDaytime,
@OrangeEvening,
@OrangeWeekend,
@TMobileDaytime,
@TMobileEvening,
@TMobileWeekend,
@ThreeDaytime,
@ThreeEvening,
@ThreeWeekend,
@Country1ID,
@Country1Daytime,
@Country1Eveining,
@Country1Weekend,
@Country2ID,
@Country2Daytime,
@Country2Evening,
@Country2Weekend,
@Country3ID,
@Country3Daytime,
@Country3Evening,
@Country3Weekend
)
SELECT SCOPE_IDENTITY()
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 27 January 2005
-- Created By: Generated by CodeSmith
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].sp_updatetblTelephoneInputCalls
@TelephoneInputCallsID int,
@TelephoneInputFormID int,
@LocalDaytime real,
@LocalEvening real,
@LocalWeekend real,
@NationalDaytime real,
@NationalEvening real,
@NationalWeekend real,
@MobileDaytime real,
@MobileEvening real,
@MobileWeekend real,
@VodafoneDaytime real,
@VodafoneEvening real,
@Vodafoneweekend real,
@O2Daytime real,
@O2Evening real,
@O2Weekend real,
@OrangeDaytime real,
@OrangeEvening real,
@OrangeWeekend real,
@TMobileDaytime real,
@TMobileEvening real,
@TMobileWeekend real,
@ThreeDaytime real,
@ThreeEvening real,
@ThreeWeekend real,
@Country1ID real,
@Country1Daytime real,
@Country1Eveining real,
@Country1Weekend real,
@Country2ID real,
@Country2Daytime real,
@Country2Evening real,
@Country2Weekend real,
@Country3ID real,
@Country3Daytime real,
@Country3Evening real,
@Country3Weekend real
AS
UPDATE [dbo].[tblTelephoneInputCalls] SET
[TelephoneInputFormID] = @TelephoneInputFormID,
[LocalDaytime] = @LocalDaytime,
[LocalEvening] = @LocalEvening,
[LocalWeekend] = @LocalWeekend,
[NationalDaytime] = @NationalDaytime,
[NationalEvening] = @NationalEvening,
[NationalWeekend] = @NationalWeekend,
[MobileDaytime] = @MobileDaytime,
[MobileEvening] = @MobileEvening,
[MobileWeekend] = @MobileWeekend,
[VodafoneDaytime] = @VodafoneDaytime,
[VodafoneEvening] = @VodafoneEvening,
[Vodafoneweekend] = @Vodafoneweekend,
[O2Daytime] = @O2Daytime,
[O2Evening] = @O2Evening,
[O2Weekend] = @O2Weekend,
[OrangeDaytime] = @OrangeDaytime,
[OrangeEvening] = @OrangeEvening,
[OrangeWeekend] = @OrangeWeekend,
[TMobileDaytime] = @TMobileDaytime,
[TMobileEvening] = @TMobileEvening,
[TMobileWeekend] = @TMobileWeekend,
[ThreeDaytime] = @ThreeDaytime,
[ThreeEvening] = @ThreeEvening,
[ThreeWeekend] = @ThreeWeekend,
[Country1ID] = @Country1ID,
[Country1Daytime] = @Country1Daytime,
[Country1Eveining] = @Country1Eveining,
[Country1Weekend] = @Country1Weekend,
[Country2ID] = @Country2ID,
[Country2Daytime] = @Country2Daytime,
[Country2Evening] = @Country2Evening,
[Country2Weekend] = @Country2Weekend,
[Country3ID] = @Country3ID,
[Country3Daytime] = @Country3Daytime,
[Country3Evening] = @Country3Evening,
[Country3Weekend] = @Country3Weekend
WHERE
[TelephoneInputCallsID] = @TelephoneInputCallsID
DataProvider SQL:
#Region " TelephoneInputCalls "
Public Shared Function insertTelephoneInputCalls(ByRef objTelephoneInputCalls As TelephoneInputCalls) As Long
Dim conn As New SqlConnection(ConnectionString)
Dim cmd As New SqlCommand("sp_inserttblTelephoneInputCalls", conn)
Dim newTelephoneInputCallsID As Long = 0
cmd.CommandType = CommandType.StoredProcedure
With cmd.Parameters
.Add("@TelephoneInputFormID", SqlDbType.Int).Value = objTelephoneInputCalls.TelephoneInputFormID
.Add("@LocalDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.LocalDaytime
.Add("@LocalEvening", SqlDbType.Real).Value = objTelephoneInputCalls.LocalEvening
.Add("@LocalWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.LocalWeekend
.Add("@NationalDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.NationalDaytime
.Add("@NationalEvening", SqlDbType.Real).Value = objTelephoneInputCalls.NationalEvening
.Add("@NationalWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.NationalWeekend
.Add("@MobileDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.MobileDaytime
.Add("@MobileEvening", SqlDbType.Real).Value = objTelephoneInputCalls.MobileEvening
.Add("@MobileWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.MobileWeekend
.Add("@VodafoneDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.VodafoneDaytime
.Add("@VodafoneEvening", SqlDbType.Real).Value = objTelephoneInputCalls.VodafoneEvening
.Add("@Vodafoneweekend", SqlDbType.Real).Value = objTelephoneInputCalls.Vodafoneweekend
.Add("@O2Daytime", SqlDbType.Real).Value = objTelephoneInputCalls.O2Daytime
.Add("@O2Evening", SqlDbType.Real).Value = objTelephoneInputCalls.O2Evening
.Add("@O2Weekend", SqlDbType.Real).Value = objTelephoneInputCalls.O2Weekend
.Add("@OrangeDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.OrangeDaytime
.Add("@OrangeEvening", SqlDbType.Real).Value = objTelephoneInputCalls.OrangeEvening
.Add("@OrangeWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.OrangeWeekend
.Add("@TMobileDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.TMobileDaytime
.Add("@TMobileEvening", SqlDbType.Real).Value = objTelephoneInputCalls.TMobileEvening
.Add("@TMobileWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.TMobileWeekend
.Add("@ThreeDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.ThreeDaytime
.Add("@ThreeEvening", SqlDbType.Real).Value = objTelephoneInputCalls.ThreeEvening
.Add("@ThreeWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.ThreeWeekend
.Add("@Country1ID", SqlDbType.Real).Value = objTelephoneInputCalls.Country1ID
.Add("@Country1Daytime", SqlDbType.Real).Value = objTelephoneInputCalls.Country1Daytime
.Add("@Country1Eveining", SqlDbType.Real).Value = objTelephoneInputCalls.Country1Eveining
.Add("@Country1Weekend", SqlDbType.Real).Value = objTelephoneInputCalls.Country1Weekend
.Add("@Country2ID", SqlDbType.Real).Value = objTelephoneInputCalls.Country2ID
.Add("@Country2Daytime", SqlDbType.Real).Value = objTelephoneInputCalls.Country2Daytime
.Add("@Country2Evening", SqlDbType.Real).Value = objTelephoneInputCalls.Country2Evening
.Add("@Country2Weekend", SqlDbType.Real).Value = objTelephoneInputCalls.Country2Weekend
.Add("@Country3ID", SqlDbType.Real).Value = objTelephoneInputCalls.Country3ID
.Add("@Country3Daytime", SqlDbType.Real).Value = objTelephoneInputCalls.Country3Daytime
.Add("@Country3Evening", SqlDbType.Real).Value = objTelephoneInputCalls.Country3Evening
.Add("@Country3Weekend", SqlDbType.Real).Value = objTelephoneInputCalls.Country3Weekend
End With
conn.Open()
newTelephoneInputCallsID = cmd.ExecuteScalar
conn.Close()
Return newTelephoneInputCallsID
End Function
Public Shared Sub updateTelephoneInputCalls(ByRef objTelephoneInputCalls As TelephoneInputCalls)
Dim conn As New SqlConnection(ConnectionString)
Dim cmd As New SqlCommand("sp_updatetblTelephoneInputCalls", conn)
cmd.CommandType = CommandType.StoredProcedure
With cmd.Parameters
.Add("@TelephoneInputCallsID", SqlDbType.Int).Value = objTelephoneInputCalls.TelephoneInputCallsID
.Add("@TelephoneInputFormID", SqlDbType.Int).Value = objTelephoneInputCalls.TelephoneInputFormID
.Add("@LocalDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.LocalDaytime
.Add("@LocalEvening", SqlDbType.Real).Value = objTelephoneInputCalls.LocalEvening
.Add("@LocalWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.LocalWeekend
.Add("@NationalDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.NationalDaytime
.Add("@NationalEvening", SqlDbType.Real).Value = objTelephoneInputCalls.NationalEvening
.Add("@NationalWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.NationalWeekend
.Add("@MobileDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.MobileDaytime
.Add("@MobileEvening", SqlDbType.Real).Value = objTelephoneInputCalls.MobileEvening
.Add("@MobileWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.MobileWeekend
.Add("@VodafoneDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.VodafoneDaytime
.Add("@VodafoneEvening", SqlDbType.Real).Value = objTelephoneInputCalls.VodafoneEvening
.Add("@Vodafoneweekend", SqlDbType.Real).Value = objTelephoneInputCalls.Vodafoneweekend
.Add("@O2Daytime", SqlDbType.Real).Value = objTelephoneInputCalls.O2Daytime
.Add("@O2Evening", SqlDbType.Real).Value = objTelephoneInputCalls.O2Evening
.Add("@O2Weekend", SqlDbType.Real).Value = objTelephoneInputCalls.O2Weekend
.Add("@OrangeDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.OrangeDaytime
.Add("@OrangeEvening", SqlDbType.Real).Value = objTelephoneInputCalls.OrangeEvening
.Add("@OrangeWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.OrangeWeekend
.Add("@TMobileDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.TMobileDaytime
.Add("@TMobileEvening", SqlDbType.Real).Value = objTelephoneInputCalls.TMobileEvening
.Add("@TMobileWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.TMobileWeekend
.Add("@ThreeDaytime", SqlDbType.Real).Value = objTelephoneInputCalls.ThreeDaytime
.Add("@ThreeEvening", SqlDbType.Real).Value = objTelephoneInputCalls.ThreeEvening
.Add("@ThreeWeekend", SqlDbType.Real).Value = objTelephoneInputCalls.ThreeWeekend
.Add("@Country1ID", SqlDbType.Real).Value = objTelephoneInputCalls.Country1ID
.Add("@Country1Daytime", SqlDbType.Real).Value = objTelephoneInputCalls.Country1Daytime
.Add("@Country1Eveining", SqlDbType.Real).Value = objTelephoneInputCalls.Country1Eveining
.Add("@Country1Weekend", SqlDbType.Real).Value = objTelephoneInputCalls.Country1Weekend
.Add("@Country2ID", SqlDbType.Real).Value = objTelephoneInputCalls.Country2ID
.Add("@Country2Daytime", SqlDbType.Real).Value = objTelephoneInputCalls.Country2Daytime
.Add("@Country2Evening", SqlDbType.Real).Value = objTelephoneInputCalls.Country2Evening
.Add("@Country2Weekend", SqlDbType.Real).Value = objTelephoneInputCalls.Country2Weekend
.Add("@Country3ID", SqlDbType.Real).Value = objTelephoneInputCalls.Country3ID
.Add("@Country3Daytime", SqlDbType.Real).Value = objTelephoneInputCalls.Country3Daytime
.Add("@Country3Evening", SqlDbType.Real).Value = objTelephoneInputCalls.Country3Evening
.Add("@Country3Weekend", SqlDbType.Real).Value = objTelephoneInputCalls.Country3Weekend
End With
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
End Sub
Public Shared Function getTelephoneInputCalls(ByVal TelephoneInputCallsID As Long) As TelephoneInputCalls
Dim conn As New SqlConnection(ConnectionString)
Dim cmd As New SqlCommand("sp_gettblTelephoneInputCalls", conn)
Dim dr As SqlDataReader
Dim objTelephoneInputCalls As TelephoneInputCalls
' We are using a stored proc
cmd.CommandType = CommandType.StoredProcedure
' Add the parameter
cmd.Parameters.Add("@TelephoneInputCallsID", SqlDbType.Int).Value = TelephoneInputCallsID
' Open and execute
conn.Open()
dr = cmd.ExecuteReader()
' Populate an object from the reader
While dr.Read
objTelephoneInputCalls = DrToTelephoneInputCalls(dr)
End While
' Clean up
dr.Close()
conn.Close()
' Return the requested TelephoneInputCalls
Return objTelephoneInputCalls
End Function
Public Shared Function getTelephoneInputCallsList() As TelephoneInputCallsCollection
Dim conn As New SqlConnection(ConnectionString)
Dim cmd As New SqlCommand("sp_gettblTelephoneInputCallsList", conn)
Dim dr As SqlDataReader
Dim newTelephoneInputCallsCollection As New TelephoneInputCallsCollection()
' We are using a stored proc
cmd.CommandType = CommandType.StoredProcedure
' Open and execute
conn.Open()
dr = cmd.ExecuteReader()
' Populate an object from the reader
While dr.Read
newTelephoneInputCallsCollection.Add(DrToTelephoneInputCalls(dr))
End While
' Clean up
dr.Close()
conn.Close()
' Return the list
Return newTelephoneInputCallsCollection
End Function
Private Shared Function DrToTelephoneInputCalls(ByRef dr As IDataReader) As TelephoneInputCalls
Dim newTelephoneInputCalls As New TelephoneInputCalls()
With newTelephoneInputCalls
If Not IsDBNull(dr.Item("TelephoneInputCallsID")) Then .TelephoneInputCallsID = dr.Item("TelephoneInputCallsID")
If Not IsDBNull(dr.Item("TelephoneInputFormID")) Then .TelephoneInputFormID = dr.Item("TelephoneInputFormID")
If Not IsDBNull(dr.Item("LocalDaytime")) Then .LocalDaytime = dr.Item("LocalDaytime")
If Not IsDBNull(dr.Item("LocalEvening")) Then .LocalEvening = dr.Item("LocalEvening")
If Not IsDBNull(dr.Item("LocalWeekend")) Then .LocalWeekend = dr.Item("LocalWeekend")
If Not IsDBNull(dr.Item("NationalDaytime")) Then .NationalDaytime = dr.Item("NationalDaytime")
If Not IsDBNull(dr.Item("NationalEvening")) Then .NationalEvening = dr.Item("NationalEvening")
If Not IsDBNull(dr.Item("NationalWeekend")) Then .NationalWeekend = dr.Item("NationalWeekend")
If Not IsDBNull(dr.Item("MobileDaytime")) Then .MobileDaytime = dr.Item("MobileDaytime")
If Not IsDBNull(dr.Item("MobileEvening")) Then .MobileEvening = dr.Item("MobileEvening")
If Not IsDBNull(dr.Item("MobileWeekend")) Then .MobileWeekend = dr.Item("MobileWeekend")
If Not IsDBNull(dr.Item("VodafoneDaytime")) Then .VodafoneDaytime = dr.Item("VodafoneDaytime")
If Not IsDBNull(dr.Item("VodafoneEvening")) Then .VodafoneEvening = dr.Item("VodafoneEvening")
If Not IsDBNull(dr.Item("Vodafoneweekend")) Then .Vodafoneweekend = dr.Item("Vodafoneweekend")
If Not IsDBNull(dr.Item("O2Daytime")) Then .O2Daytime = dr.Item("O2Daytime")
If Not IsDBNull(dr.Item("O2Evening")) Then .O2Evening = dr.Item("O2Evening")
If Not IsDBNull(dr.Item("O2Weekend")) Then .O2Weekend = dr.Item("O2Weekend")
If Not IsDBNull(dr.Item("OrangeDaytime")) Then .OrangeDaytime = dr.Item("OrangeDaytime")
If Not IsDBNull(dr.Item("OrangeEvening")) Then .OrangeEvening = dr.Item("OrangeEvening")
If Not IsDBNull(dr.Item("OrangeWeekend")) Then .OrangeWeekend = dr.Item("OrangeWeekend")
If Not IsDBNull(dr.Item("TMobileDaytime")) Then .TMobileDaytime = dr.Item("TMobileDaytime")
If Not IsDBNull(dr.Item("TMobileEvening")) Then .TMobileEvening = dr.Item("TMobileEvening")
If Not IsDBNull(dr.Item("TMobileWeekend")) Then .TMobileWeekend = dr.Item("TMobileWeekend")
If Not IsDBNull(dr.Item("ThreeDaytime")) Then .ThreeDaytime = dr.Item("ThreeDaytime")
If Not IsDBNull(dr.Item("ThreeEvening")) Then .ThreeEvening = dr.Item("ThreeEvening")
If Not IsDBNull(dr.Item("ThreeWeekend")) Then .ThreeWeekend = dr.Item("ThreeWeekend")
If Not IsDBNull(dr.Item("Country1ID")) Then .Country1ID = dr.Item("Country1ID")
If Not IsDBNull(dr.Item("Country1Daytime")) Then .Country1Daytime = dr.Item("Country1Daytime")
If Not IsDBNull(dr.Item("Country1Eveining")) Then .Country1Eveining = dr.Item("Country1Eveining")
If Not IsDBNull(dr.Item("Country1Weekend")) Then .Country1Weekend = dr.Item("Country1Weekend")
If Not IsDBNull(dr.Item("Country2ID")) Then .Country2ID = dr.Item("Country2ID")
If Not IsDBNull(dr.Item("Country2Daytime")) Then .Country2Daytime = dr.Item("Country2Daytime")
If Not IsDBNull(dr.Item("Country2Evening")) Then .Country2Evening = dr.Item("Country2Evening")
If Not IsDBNull(dr.Item("Country2Weekend")) Then .Country2Weekend = dr.Item("Country2Weekend")
If Not IsDBNull(dr.Item("Country3ID")) Then .Country3ID = dr.Item("Country3ID")
If Not IsDBNull(dr.Item("Country3Daytime")) Then .Country3Daytime = dr.Item("Country3Daytime")
If Not IsDBNull(dr.Item("Country3Evening")) Then .Country3Evening = dr.Item("Country3Evening")
If Not IsDBNull(dr.Item("Country3Weekend")) Then .Country3Weekend = dr.Item("Country3Weekend")
End With
Return newTelephoneInputCalls
End Function
#End Region