Option Explicit On
Option Strict On

Imports System.Data
Imports System.Web.Compilation
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports System.Xml.Serialization
Imports System.IO
Imports System.Xml

Partial Class OS_RepOSMedicas
    Inherits ClsPaginas



    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")

            CargaCombos()

        End If

    End Sub


#Region "  CARGA COMBOS  "




    Private Sub CargaCombos()

        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)


        'CargaEstatus
        DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa)
        DdlEstatusOS.DataBind()
        DdlEstatusOS.Items.Insert(0, New ListItem("Todos", "-1"))


        Dim DTTecnicos = New DataTable

        Dim ObjUsuarios As New ClsSisUsuarios

        If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then
            If UsuarioActual.CveRol = 1 Then
                DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0")
            Else
                DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0 and CveUsuario <>  100")
            End If

        End If
        ObjUsuarios.Dispose()

        DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
        DdlTecnico.DataBind()
        DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlTecnico.Items.Insert(1, New ListItem("Sin Asignar", "-2"))

        'CargaClientes
        Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
        If EsWS Then
            DdlClientes.setEsWebService(True)
        Else
            DdlClientes.setEsWebService(False)
            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
            DdlClientes.DataBind()
            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
        End If

        'Vendedor
        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
        DdlVendedor.DataBind()
        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2"))

        If UsuarioActual.CveVendedor > 0 Then
            DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
            DdlVendedor.Enabled = False
        End If

        txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
        txtFechaF.Text = NowADS().ToShortDateString

    End Sub


#End Region

#Region "  CARGA DATOS  "
    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click

        CargaDatos()

    End Sub

    Private Sub CargaDatos()

        Dim ObjOS As New ClsOS
        Dim FechaI As Date = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.ToDate)
        Dim FechaF As Date = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.ToDate)
        Dim Cvecliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)

        If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, DdlVendedor.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, DdlTecnico.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjOS.DtResultados
        Else
            GvDatos.DataSource = Nothing
        End If

        ObjOS.Dispose()

        GvDatos.DataBind()


        LnkExportar.Visible = If(GvDatos.Rows.Count > 0, True, False)
        UpAcciones.Update()


        UPDatos.Update()

    End Sub


#End Region



    Private Sub CargaClientes()
        DdlClientes.ddl.Items.Clear()
        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) '.FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1")
        DdlClientes.DataBind()
        DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub




#Region "  GV DATOS - ROW DATABOUND  "
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

        End If
    End Sub
#End Region

    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click

        Dim SubProyecto As String = ""

        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
            SubProyecto = DdlSubProyecto.SelectedItem.Text
        End If

        Dim SbFiltros As New StringBuilder()
        SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
        SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto)


        GvDatos.ExportToExcelGembox("OrdenesServicio", UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())


    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
    End Sub









End Class