Indicadores Medicos, procedimientos

Ventas/CatProcedimientos.aspx.vb

@@ -22,7 +22,9 @@ Partial Class Ventas_CatProcedimientos
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+            CargaCombos()
             CargaDatos()
+            BtnConsultar_Click(Nothing, Nothing)
         End If
     End Sub
 
@@ -148,6 +150,98 @@ Partial Class Ventas_CatProcedimientos
 
     End Sub
 
+#Region "INDICADORES"
+
+    Private Sub CargaCombos()
+
+
+        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
+
+
+
+        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
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+
+
+        Dim objVentas As New ClsVentas
+        Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
+        If objVentas.GetVentasMedicasIndicadoresRep(DdlGrupo.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveCliente, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvIndicadores.DataSource = objVentas.DtResultados
+        End If
+
+        objVentas.Dispose()
+
+        GvIndicadores.DataBind()
+
+        ValidaExcelTab()
+
+        UpIndicadores.Update()
+
+
+
+    End Sub
+
+
+#End Region
+
+
+#Region "EXCEL"
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+
+        If Tabs.ActiveTabIndex = 0 Then
+            Dim SbFiltros As New StringBuilder()
+            SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
+            SbFiltros.Append($"Grupo:{DdlGrupo.SelectedItem.Text}, Médico: {DdlMedico.SelectedItem.Text}, Procedimiento: {DdlProcedimiento.SelectedItem.Text}")
+            GvIndicadores.ExportToExcelGembox("IndicadoresMedicos", UsuarioActual, "Indicadores Médicos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+        ElseIf Tabs.ActiveTabIndex = 1 Then
+            'GvDatos.Columns(10).Visible = False
+            Dim SbFiltros As New StringBuilder()
+            SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
+            GvDatos.ExportToExcelGembox("CatProcedimientos", UsuarioActual, "Catálogo de Procedimientos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+            'GvDatos.Columns(10).Visible = True
+        Else
+
+        End If
+
+
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
+
+    Sub ValidaExcelTab()
+        If Tabs.ActiveTabIndex = 0 Then
+            LnkExportar.Visible = GvDatos.Rows.Count > 0
+        Else
+            LnkExportar.Visible = GvIndicadores.Rows.Count > 0
+        End If
+    End Sub
+
+
+
+#End Region
+
 
 
 End Class