From 67e487f971f64bb733a40137af5678876d8e55e6 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 27 Mar 2025 11:13:24 -0700
Subject: [PATCH 1/3] -- liga ps, directa liga a ps

---
 Inventarios/Kardex.aspx.vb | 20 +++++---------------
 1 file changed, 5 insertions(+), 15 deletions(-)

diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 6e4303c84..5b031227a 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -312,38 +312,28 @@ Partial Class Inventarios_Kardex
                 GvM.DataSource = DtTemp
                 GvM.DataBind()
                 UpAcciones.Update()
-
             End If
 
             If UsuarioActual.CveEmpresa <> 119 Then
-
-                Dim drPs As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "")
+                Dim drPs As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("", "")
 
                 If drPs IsNot Nothing Then
                     Dim NumeroParte As String = drPs("NumeroParte").ToString
-                    Dim Codigo As String = drPs("Codigo").ToString
-                    Dim PS As String = drPs("PS").ToString
-
+                    Dim PS As String = drPs("PSCodigo").ToString
+                    LblNumeroParte.Visible = True
                     If NumeroParte.Trim.Length > 0 Then
                         If UsuarioActual.TienePermisoPagina(13) Then
-                            LblNumeroParte.Text = $" Producto: <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{Codigo}</a> - <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{NumeroParte}</a>  -  <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{PS}</a>"
+                            LblNumeroParte.Text = $" Producto: <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{NumeroParte}</a>  -  <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{PS}</a>"
                         Else
                             LblNumeroParte.Text = $" Producto: {NumeroParte}"
                         End If
-                        LblNumeroParte.Visible = True
+
                     End If
                 End If
-
-
-
             End If
-
-
-
         Else
             Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
         End If
-
         UpNumeroParte.Update()
 
     End Sub

From efb290d50168af60e3ec0bf9150d9fcde1d816ee Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 28 Mar 2025 07:04:20 -0700
Subject: [PATCH 2/3] -- AGRUPADOR POR TIPO ALMACEN

---
 Inventarios/RepAlmacen.aspx    | 15 +++------------
 Inventarios/RepAlmacen.aspx.vb |  2 +-
 2 files changed, 4 insertions(+), 13 deletions(-)

diff --git a/Inventarios/RepAlmacen.aspx b/Inventarios/RepAlmacen.aspx
index 0476e8b34..e771607b1 100644
--- a/Inventarios/RepAlmacen.aspx
+++ b/Inventarios/RepAlmacen.aspx
@@ -151,24 +151,15 @@
                                 <asp:ListItem Text="No Inventariable" Value="0"></asp:ListItem>
                             </asp:DropDownList>                             
                         </div>
-
-
-
-
-
+                         
                          <div class="col-md-1 truncate" style="text-align: right!important">Grupo:</div>
                             <div class="col-md-2">
                                  <asp:DropDownList ID="DdlGrupo" runat="server" CssClass="input-small input-sm select2me" Width="100%">                                    
                                     <asp:ListItem Text="Almacen" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Clasificación" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="Tipo Almacen" Value="3"></asp:ListItem>
                                 </asp:DropDownList>         
-                            </div>
-
-
-
-
-
-
+                            </div>                         
                     </div>
                 </div>
             </div>
diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb
index 1014abc19..b9e9dd4d8 100644
--- a/Inventarios/RepAlmacen.aspx.vb
+++ b/Inventarios/RepAlmacen.aspx.vb
@@ -123,7 +123,7 @@ Partial Class Inventarios_RepAlmacen
             End If
 
 
-            Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
+            Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&CveTipoAlmacen={e.Row.DBCampo("CveTipoAlmacen")}&Tipo=-1"
             e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
 
             'If DdlGrupo.SelectedValue.ToEntero = 1 Then

From 34ce7deb293535318341c9d564db102d108ef11b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 29 Mar 2025 10:21:13 -0700
Subject: [PATCH 3/3] =?UTF-8?q?--=20funci=C3=B3n=20indicadores=20SMS?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsVentas.vb | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 95d767d6f..a99b51dbe 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -7671,6 +7671,26 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
+
+    Public Function GetSMSIndicadores(Opcion As Integer, FechaInicio As Date, FechaFin As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_SMS_IndicadoresGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los indicadores de venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
 #Region "IDisposable Support"