SIG/OS/RepOSMedicas.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones

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 As DataTable = Nothing

        Dim ObjOS As New ClsOS
        If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
            DTTecnicos = ObjOS.DtResultados
        End If
        ObjOS.Dispose()

        DdlTecnico.DataSource = DTTecnicos
        DdlTecnico.DataBind()
        DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlTecnico.Items.Insert(1, New ListItem("Sin Asignar", "-2"))


        If IfNull(Request("CveUsuarioTecnico"), 0).ToString.ToEntero > 0 Then
            DdlTecnico.SelectedValueExist(Request("CveUsuarioTecnico").ToString)
        Else
            ViewState("CveUsuarioTecnico") = -1
        End If

        '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

        DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
        DdlMedico.DataBind()

        DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
        DdlProcedimiento.DataBind()

    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,
                                                    CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) 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