'****************************************************************************************************************
'* Id Application modified by:   Date(MM/dd/yyyy)   Description													*
'* -- ------------------------   --------           -------------------------------------------	    			*
'* 01 Raśl Callupe - 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_ContractorWork

    Private myDTFI As New DateTimeFormatInfo
    Private strDateFormat As String = "dd/MM/yyyy"

    Sub New()
        myDTFI.ShortDatePattern = strDateFormat
    End Sub

    Public Function GetContractorWorkLoadPerStage(ByVal nContractorID As Integer) As DataSet
        Dim strConnectionString As String = ConfigurationSettings.AppSettings("ConnectionString")
        Dim strSPName As String = "SP_CAMS_GET_REPORT_CONTRACTORPERSTAGE"
        Dim arrParams(0) As SqlParameter
        Dim dsResult As DataSet


        arrParams(0) = New SqlParameter("@CONTRACTORID", SqlDbType.Int)
        arrParams(0).Value = nContractorID

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

        Return dsResult
    End Function


    Public Function GetContractorWorkLoad() As DataSet
        Dim strConnectionString As String = ConfigurationSettings.AppSettings("ConnectionString")
        Dim strSPName As String = "SP_CAMS_GET_REPORT_CONTRACTORWORKLOAD"
        Dim dsResult As DataSet
        Try
            dsResult = SqlHelper.ExecuteDataset(strConnectionString, CommandType.StoredProcedure, strSPName)

        Catch ex As Exception
            dsResult = Nothing
        End Try
        Return dsResult
    End Function
End Class