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()
            CargaDatos()
        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"))

        '376
        If UsuarioActual.TienePermisoProceso(376) Then
            DdlTecnico.Enabled = False
            DdlTecnico.SelectedValueExist(UsuarioActual.CveUsuario)
        End If


        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().AddDays(2).ToShortDateString

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

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



        Dim ObjVentas As New ClsVentas

        If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
            DdlEspecialidad.DataSource = ObjVentas.DtResultados
        Else
            DdlEspecialidad.DataSource = Nothing
        End If

        ObjVentas.Dispose()

        DdlEspecialidad.DataBind()
        DdlEspecialidad.Items.Insert(0, New ListItem("Todas", "-1"))


        Dim objcliente As New ClsClientes

        If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
            DdlClienteSucursal.DataSource = objcliente.DtResultados
        Else
            DdlClienteSucursal.DataSource = Nothing
        End If

        objcliente.Dispose()

        DdlClienteSucursal.DataBind()
        DdlClienteSucursal.Items.Insert(0, New ListItem("Todos", "-1"))



        'Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
        'If EsWS Then
        '    DdlCliente.setEsWebService(True)

        'Else
        '    DdlCliente.setEsWebService(False)
        '    DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
        '    DdlCliente.DataBind()
        '    DdlCliente.ddl.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
        'End If

    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 = DdlClienteSucursalCliente()
        Dim CveClienteSucursal As Integer = DdlClienteSucursalSucursal()
        LnkPersonalizar.Visible = False

        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, CveEspecialidad:=DdlEspecialidad.SelectedValue.ToEntero,
                                                    CveClienteSucursal:=CveClienteSucursal) Then
            GvDatos.DataSource = ObjOS.DtResultados
            If ObjOS.DtResultados IsNot Nothing AndAlso ObjOS.DtResultados.Rows.Count > 0 Then
                LnkPersonalizar.Visible = True
            End If
        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
            e.Row.Cells(1).Attributes.Add("data-order", e.Row.DBCampo("FechaCita").ToDateTime.ToString("yyyyMMddHHmm"))
        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

    Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)

        ' ChkGuardarPersonalizacion.Checked = False
        RegistraScript("$('#DivPersonalizar').modal('show')")

    End Sub

    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
        Personaliza()
    End Sub

    Private Sub Personaliza()
        GvDatos.Columns(13).Visible = ChkObservaciones.Checked
        GvDatos.Columns(14).Visible = ChkFolioAdicional.Checked
        CargaDatos()
    End Sub

    Private Function DdlClienteSucursalCliente() As Integer
        If DdlClienteSucursal.SelectedValue = "-1" Then
            Return -1
        Else
            Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c)
            Return If(array(0).ToEntero > 0, array(0).ToEntero, -1)
        End If
    End Function

    Private Function DdlClienteSucursalSucursal() As Integer
        If DdlClienteSucursal.SelectedValue = "-1" Then
            Return -1
        Else
            Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c)
            Return If(array(1).ToEntero > 0, array(1).ToEntero, -1)
        End If
    End Function


End Class