'****************************************************************************************************************
'* Id Application modified by:   Date(dd/MM/yyyy)   Description													*
'* -- ------------------------   ---------------    -------------------------------------------	    			*
'* 01 Vanessa Ayala - PACNET      16/04/2006         Creation of the class
'****************************************************************************************************************
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data
Imports System.Globalization
Public Class CC_WorkByAreas
    Private myDTFI As New DateTimeFormatInfo
    Private strDateFormat As String = "dd/MM/yyyy"


    Sub New()
        myDTFI.ShortDatePattern = strDateFormat
    End Sub

    Public Function GetWorkbyAreas(ByVal prmDateIni As String, ByVal prmDateEnd As String) As DataSet
        Dim strConnectionString As String = ConfigurationSettings.AppSettings("ConnectionString")
        Dim strSPName As String = "SP_CAMS_GET_REPORT_WORK_BY_AREAS"
        Dim arrParams(1) As SqlParameter
        Dim dsResult As DataSet

        arrParams(0) = New SqlParameter("@DATEINI", SqlDbType.DateTime)
        If prmDateIni.Trim.Equals(String.Empty) Then
            arrParams(0).Value = DBNull.Value
        Else
            arrParams(0).Value = DateTime.Parse(prmDateIni, myDTFI)
        End If

        arrParams(1) = New SqlParameter("@DATEEND", SqlDbType.DateTime)
        If prmDateEnd.Trim.Equals(String.Empty) Then
            arrParams(1).Value = DBNull.Value
        Else
            arrParams(1).Value = DateTime.Parse(prmDateEnd, myDTFI)
        End If

        Try
            dsResult = SqlHelper.ExecuteDataset(strConnectionString, CommandType.StoredProcedure, strSPName, arrParams)
        Catch ex As Exception
            dsResult = Nothing
        End Try

        Return dsResult
    End Function
End Class