From 62aabff160ae7f27da6c1e8b19a5c97a01602d31 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 5 Apr 2025 18:13:23 -0700
Subject: [PATCH] -- filtro por gerente

---
 Ventas/RepComisionesSMS.aspx    | 15 ++++++++-------
 Ventas/RepComisionesSMS.aspx.vb | 24 ++++++++++++------------
 2 files changed, 20 insertions(+), 19 deletions(-)

diff --git a/Ventas/RepComisionesSMS.aspx b/Ventas/RepComisionesSMS.aspx
index 05185b7d7..0126ce39a 100644
--- a/Ventas/RepComisionesSMS.aspx
+++ b/Ventas/RepComisionesSMS.aspx
@@ -160,14 +160,15 @@
                                       <Columns>
 
                                           <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta"  DatatextField="SerieFolio" ItemStyle-HorizontalAlign="Left" />
-                                          <asp:BoundField HeaderText="Nombre Hospital" DataField="Hospital" ItemStyle-HorizontalAlign="Left" />
-                                          <asp:BoundField HeaderText="Especialidad" DataField="Especialidad" ItemStyle-HorizontalAlign="Left" />
-                                          <asp:BoundField HeaderText="Médico" DataField="Medico" ItemStyle-HorizontalAlign="Left" />
-                                          <asp:BoundField HeaderText="Fecha Hora Cirugia" DataField="FechaCirugia" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:dd/MM/yyyy hh:mm}" />
-                                          <asp:BoundField HeaderText="Procedimiento" DataField="Procedimiento" ItemStyle-HorizontalAlign="Left" />
+                                          <asp:BoundField HeaderText="Folio Rem" DataField="Alfa1"  />
+                                          <asp:BoundField HeaderText="Nombre Hospital" DataField="Hospital" />
+                                          <asp:BoundField HeaderText="Especialidad" DataField="Especialidad" />
+                                          <asp:BoundField HeaderText="Médico" DataField="Medico"  />
+                                          <asp:BoundField HeaderText="Fecha Hora Cirugia" DataField="FechaCirugia"  DataFormatString="{0:dd/MM/yyyy hh:mm}" />
+                                          <asp:BoundField HeaderText="Procedimiento" DataField="Procedimiento"  />
                                           <asp:BoundField HeaderText="Tipo Venta" DataField="TipoVenta" />
-                                          <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
-                                          <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
+                                          <asp:BoundField HeaderText="Código" DataField="Codigo"  />
+                                          <asp:BoundField HeaderText="Producto" DataField="PS"  />
                                           <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
                                           <asp:BoundField HeaderText="P Unitario" DataField="PU" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />                                          
                                           <asp:BoundField HeaderText="Venta Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
diff --git a/Ventas/RepComisionesSMS.aspx.vb b/Ventas/RepComisionesSMS.aspx.vb
index deb0d41f6..c06b9b639 100644
--- a/Ventas/RepComisionesSMS.aspx.vb
+++ b/Ventas/RepComisionesSMS.aspx.vb
@@ -35,7 +35,7 @@ Partial Class Ventas_RepComisionesSMS
 
     Private Sub CargaCombos()
 
-        If UsuarioActual.CveVendedor = 0 Then GvDatos.Columns(16).Visible = True 'columna de comisiones de gerente
+        If UsuarioActual.CveVendedor = 0 Then GvDatos.Columns(17).Visible = True 'columna de comisiones de gerente
 
         'If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
         '    DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros(String.Format("VendedorTipo IN (1,4) AND (CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue))
@@ -47,8 +47,8 @@ Partial Class Ventas_RepComisionesSMS
         If UsuarioActual.CveVendedor > 0 Then
             DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
             DdlVendedor.Enabled = False
-            GvDatos.Columns(16).Visible = False 'gerente
-            GvDatos.Columns(19).Visible = False 'pagada
+            GvDatos.Columns(17).Visible = False 'gerente
+            GvDatos.Columns(20).Visible = False 'pagada
         End If
 
         DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
@@ -61,10 +61,10 @@ Partial Class Ventas_RepComisionesSMS
         If UsuarioActual.TienePermisoProceso(376) Then
             DdlUsuarioAtendio.Enabled = False
             DdlUsuarioAtendio.SelectedValueExist(UsuarioActual.CveUsuario)
-            GvDatos.Columns(16).Visible = False 'gerente
-            GvDatos.Columns(17).Visible = False 'ed.medica
-            GvDatos.Columns(18).Visible = False 'fecha pago
-            GvDatos.Columns(19).Visible = False 'pagada
+            GvDatos.Columns(17).Visible = False 'gerente
+            GvDatos.Columns(18).Visible = False 'ed.medica
+            GvDatos.Columns(19).Visible = False 'fecha pago
+            GvDatos.Columns(20).Visible = False 'pagada
         End If
     End Sub
 
@@ -76,7 +76,7 @@ Partial Class Ventas_RepComisionesSMS
 
         Dim ObjVentas As New ClsVentas
 
-        If ObjVentas.GetComisionesMedicasRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, -1, -1, DdlMedico.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, -1, FechaIPago, FechaFPago) Then
+        If ObjVentas.GetComisionesMedicasRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, -1, -1, DdlMedico.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, UsuarioActual.CveUsuario, -1, FechaIPago, FechaFPago) Then
             GvDatos.DataSource = ObjVentas.DtResultados
 
             If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
@@ -105,11 +105,11 @@ Partial Class Ventas_RepComisionesSMS
         Dim SbFiltros As New StringBuilder()
         SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
 
-        GvDatos.Columns(10).Visible = False
-        GvDatos.Columns(19).Visible = False
+        GvDatos.Columns(11).Visible = False
+        GvDatos.Columns(20).Visible = False
         GvDatos.ExportToExcelGembox("Comisiones", UsuarioActual, "Comisiones", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
-        GvDatos.Columns(10).Visible = True
-        GvDatos.Columns(19).Visible = True
+        GvDatos.Columns(11).Visible = True
+        GvDatos.Columns(20).Visible = True
 
     End Sub