From 3c83178c1a9527d84ae4af221b192f72c3ff24f9 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 8 Jan 2025 07:25:42 -0700
Subject: [PATCH 1/9] -  historial ancho grid

---
 OC/OC.aspx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/OC/OC.aspx b/OC/OC.aspx
index a69daf7e9..5e29f5c62 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -1948,12 +1948,12 @@
                         <div class="portlet-body">
                             <asp:GridView ID="GVH" runat="server" AutoGenerateColumns="False" GridLines="None" BorderWidth="0" Width="100%" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true">
                                 <Columns>
-                                    <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
+                                    <asp:TemplateField HeaderText="Fecha" ItemStyle-Width="155px">
                                         <ItemTemplate>
                                             <asp:Literal ID="LblFecha" runat="server" Text='<%# Eval("FechaIng")%>'></asp:Literal>
                                         </ItemTemplate>
                                     </asp:TemplateField>
-                                    <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Concepto" />
+                                    <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Concepto" ItemStyle-Width="100px" />
                                     <asp:BoundField DataField="Anterior" HeaderText="Antes" />
                                     <asp:BoundField DataField="Actual" HeaderText="Después" />
                                     <asp:BoundField DataField="Usuario" HeaderText="Usuario" />

From a29ca40990c0b96b11929f0997ab5e20f597234a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 8 Jan 2025 07:26:08 -0700
Subject: [PATCH 2/9] -- filtro de OC

---
 Ventas/PopUpBuscarFolio.aspx | 21 ++++++++-------------
 1 file changed, 8 insertions(+), 13 deletions(-)

diff --git a/Ventas/PopUpBuscarFolio.aspx b/Ventas/PopUpBuscarFolio.aspx
index 8e2f47994..146d13d7a 100644
--- a/Ventas/PopUpBuscarFolio.aspx
+++ b/Ventas/PopUpBuscarFolio.aspx
@@ -75,7 +75,7 @@
                             <%--<asp:DropDownList ID="DdlNombre" runat="server" CssClass="select2me" DataTextField="CodigoNombre" AutoPostBack="true" DataValueField="CveCliente" Width="230px"></asp:DropDownList>--%>
                         </td>
 
-                         <td class="text-right"><b>Vendedor:</b></td>
+                        <td class="text-right"><b>Vendedor:</b></td>
                         <td>                              
                              <asp:DropDownList  ID="DdlVendedor" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Width="228px" >
                                     <asp:ListItem Selected="true" Text="Todos" Value="-1" ></asp:ListItem>
@@ -165,7 +165,7 @@
                         </ContentTemplate>
                     </asp:UpdatePanel>
                     
-                    <tr align="left" style="display:none;">
+                    <tr align="left">
                         <td class="text-right"><b>Pedido:</b></td>
                         <td>
                              <asp:TextBox ID="TxtPedidoContrato" runat="server" CssClass="form-control" Width="230px" Height="30px" style="padding: 0px"></asp:TextBox>
@@ -174,18 +174,13 @@
                         <td>
                              <asp:TextBox ID="TxtOrdenCompra" runat="server" CssClass="form-control" Width="230px" Height="30px" style="padding: 0px"></asp:TextBox>
                         </td>
-                    </tr>
-                     <tr align="left" runat="server" id="TRVendedores"  >
-                         
-
-                         <td class="text-right"></td>
-                         <td>                              
-                         </td>
-                     </tr>
-
+                    </tr>                     
                     <tr>
-                        <td style="text-align: center;" colspan="4">
-                            <asp:Button ID="BtnBuscar" runat="server" Text="Buscar" class="btn btn-primary" /></td>
+                        <td colspan="4">
+                            <div class="row">                               
+                                <div class="col-md-6 " style="text-align:center"> <asp:Button ID="BtnBuscar" runat="server" Text="Buscar" class="btn btn-primary" /></div>
+                            </div>
+                        </td>
                     </tr>
                 </table>
             </asp:Panel>

From 9b9ba096fa96e94da44ac3028677e96a54eca4ab Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 8 Jan 2025 11:09:37 -0700
Subject: [PATCH 3/9] Liga a Kardex en  Gvs  OC GVPS, Compras GvInv
 GvInvMovtos, Ventas GvInv

---
 Compras/Compras.aspx                         | 10 ++++++-
 Compras/Compras.aspx.vb                      | 29 ++++++++++++++++++++
 Empresas/189/Formatos/RepComprasDetalle.rdlc |  2 +-
 OC/OC.aspx                                   |  1 +
 OC/OC.aspx.vb                                | 22 +++++++++++++++
 Ventas/Ventas.aspx                           |  2 ++
 Ventas/Ventas.aspx.vb                        | 20 ++++++++++++++
 7 files changed, 84 insertions(+), 2 deletions(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 660c5a22c..fff9c865e 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -1342,7 +1342,14 @@
                                                  </ItemTemplate>
                                              </asp:TemplateField>
                                             <%--3--%>
-                                            <asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText=" Producto" DataField="CodigoPS" />
+                                            <%--<asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText=" Producto" DataField="CodigoPS" />--%>
+                                            <asp:TemplateField>
+                                            <HeaderTemplate>Producto</HeaderTemplate>
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
+                                                <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("CodigoPS") %>' Visible="false" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
                                             <%--4--%>
                                             <asp:BoundField ItemStyle-Width="120px" HeaderText="P.U." DataField="PU" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
                                             <%--5--%>
@@ -1439,6 +1446,7 @@
                                                     <HeaderTemplate>Producto</HeaderTemplate>
                                                     <ItemTemplate>
                                                         <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
+                                                        <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("CodigoPS") %>' Visible="false" Target="_blank"></asp:HyperLink>
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
                                                 <asp:TemplateField HeaderText="Serie" Visible="false">
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 48d4a0c62..c5402f87d 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1228,6 +1228,19 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    Private Property TienePermisoKardex As Boolean
+        Get
+            If ViewState("TienePermisoKardex") Is Nothing Then
+                ViewState("TienePermisoKardex") = False
+            End If
+
+            Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("TienePermisoKardex") = value
+        End Set
+    End Property
+
     Private Property CveCompraDRMC As Integer
         Get
             If ViewState("CveCompraDRMC") Is Nothing Then
@@ -1246,6 +1259,7 @@ Partial Class Compras_Compras
             'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
             'ImgBtnBuscarOC.Attributes.Add("data-placement", "top")
             EsGrupoDiaz = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False)
+            TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
 
             CargaDatosAgregarPS()
             TieneAnticiposXML = False
@@ -11252,6 +11266,14 @@ Partial Class Compras_Compras
     Protected Sub GVINV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound
 
         If e.Row.RowType = DataControlRowType.DataRow Then
+
+
+            If TienePermisoKardex Then
+                e.Row.FCLiteral("LtlPS").Visible = False
+                e.Row.FCHyperLink("HlPS").Visible = True
+                e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}"
+            End If
+
             Dim AplicaLote As Boolean = e.Row.DBCampo("AplicaLote").ToBool
             Dim AplicaCaducidad As Boolean = e.Row.DBCampo("AplicaCaducidad").ToBool
 
@@ -19619,6 +19641,13 @@ Partial Class Compras_Compras
                     e.Row.Font.Bold = True
                 End If
             Else
+
+                If TienePermisoKardex Then
+                    e.Row.FCLiteral("LtlPS").Visible = False
+                    e.Row.FCHyperLink("HlPS").Visible = True
+                    e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}"
+                End If
+
                 e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
             End If
         End If
diff --git a/Empresas/189/Formatos/RepComprasDetalle.rdlc b/Empresas/189/Formatos/RepComprasDetalle.rdlc
index ea6b05964..e3229b8a4 100644
--- a/Empresas/189/Formatos/RepComprasDetalle.rdlc
+++ b/Empresas/189/Formatos/RepComprasDetalle.rdlc
@@ -1247,7 +1247,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value EvaluationMode="Constant">Parameters!FechaImpresion.Value</Value>
+                      <Value>=Parameters!FechaImpresion.Value</Value>
                       <Style>
                         <FontSize>9pt</FontSize>
                         <Format>D</Format>
diff --git a/OC/OC.aspx b/OC/OC.aspx
index a69daf7e9..5309c172b 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -998,6 +998,7 @@
                                                     </span>
                                                     <br />
                                                     <asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS") %>'></asp:Label>
+                                                    <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("PS") %>' Visible="false" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
                                                 <EditItemTemplate>
                                                     <asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="form-control input-sm select2me" Style="width: 100%; max-width: 600px;" OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged1">
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 124005de0..4485b59c0 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -671,6 +671,19 @@ Partial Class OC_OC
         End Set
     End Property
 
+    Private Property TienePermisoKardex As Boolean
+        Get
+            If ViewState("TienePermisoKardex") Is Nothing Then
+                ViewState("TienePermisoKardex") = False
+            End If
+
+            Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("TienePermisoKardex") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -684,6 +697,8 @@ Partial Class OC_OC
                 EsGrupoDiaz = True
             End If
 
+            TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
+
             CargaDatosAgregarPS()
             CveProveedorOriginal = -1
             InventarioPrePoliza176 = 0
@@ -4096,6 +4111,12 @@ Partial Class OC_OC
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
+            If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then
+                e.Row.FCLabel("LblPS").Visible = False
+                e.Row.FCHyperLink("HlPS").Visible = True
+                e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}"
+            End If
+
             Try
                 If e.Row.FCLabel("LtlCantidad") IsNot Nothing Then
                     e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip")
@@ -4316,6 +4337,7 @@ Partial Class OC_OC
             End If
 
 
+
         End If
     End Sub
     Protected Sub GvD_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvD.RowDeleting
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index f2dcdb177..80ad7aa25 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1983,6 +1983,7 @@
                                                                 <HeaderTemplate>Producto</HeaderTemplate>
                                                                 <ItemTemplate>
                                                                     <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
+                                                                    <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("CodigoPS") %>' Visible="false" Target="_blank"></asp:HyperLink>
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:TemplateField HeaderText="Serie" Visible="false">
@@ -2051,6 +2052,7 @@
                                                         <HeaderTemplate>Producto o Servicio</HeaderTemplate>
                                                         <ItemTemplate>
                                                             <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
+                                                            <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("PS") %>' Visible="false" Target="_blank"></asp:HyperLink>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index afec170f3..30c4cce4f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2387,7 +2387,18 @@ Partial Class Ventas
         End Set
     End Property
 
+    Private Property TienePermisoKardex As Boolean
+        Get
+            If ViewState("TienePermisoKardex") Is Nothing Then
+                ViewState("TienePermisoKardex") = False
+            End If
 
+            Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("TienePermisoKardex") = value
+        End Set
+    End Property
 
 
 #Region "VENTA MEDICA"
@@ -2446,6 +2457,8 @@ Partial Class Ventas
                 Exit Sub
             End If
 
+            TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
+
             Modalidad = ""
             Opcion = ""
             Index = 0
@@ -9515,6 +9528,7 @@ Partial Class Ventas
                     e.Row.CssClass = "SubTotales"
                 End If
             Else
+
                 Dim tFecha As Date = If(e.Row.DBCampo("Fecha") <> "", e.Row.DBCampo("Fecha").ToDate, NowADS())
                 e.Row.FCLiteral("LtlPS").Text = String.Format("<a Class='Texto'  target='_blank' href='/Inventarios/Kardex.aspx?CvePS={0}&CveAlmacen={1}&FechaI={2}&FechaF={3}'> {4}</a>", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveAlmacen"), tFecha.AddDays(-7).ToShortDateString, tFecha.AddDays(7).ToShortDateString, e.Row.DBCampo("PS"))
 
@@ -9536,6 +9550,12 @@ Partial Class Ventas
                     End If
                 End If
 
+                If TienePermisoKardex Then
+                    e.Row.FCLiteral("LtlPS").Visible = False
+                    e.Row.FCHyperLink("HlPS").Visible = True
+                    e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}"
+                End If
+
             End If
 
             If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not AplicaDevolucion Then

From 70da4a3c44b3d47764951c337189dd6df07b1497 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 8 Jan 2025 11:22:37 -0700
Subject: [PATCH 4/9] =?UTF-8?q?--=20correcci=C3=B3n=20para=20tomar=20la=20?=
 =?UTF-8?q?=C3=BAltima=20existencia?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/Kardex.aspx.vb | 78 +++++++++++++++++++-------------------
 1 file changed, 40 insertions(+), 38 deletions(-)

diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 79c0cf97a..ce49c1b67 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -281,45 +281,7 @@ Partial Class Inventarios_Kardex
                 If UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1 Then
                     LnkExistenciasPorCapas.Visible = True
                 End If
-                'CARGA INDICADORES
 
-                If UsuarioActual.TienePermisoProceso(201) Then
-                    DivIndicadores.Visible = True
-
-                    Dim Dr = DtTemp.FiltroUltimo("")
-                    Dim TC = If(GlobalTipoCambio(NowADS()) > 0, GlobalTipoCambio(NowADS()), 1)
-
-                    LtIndicador_Existencia.Text = Dr("Existencias").ToString.ToDecimal.ToString("#,##0.####")
-
-                    LtIndicador_ValorPesos.Text = Dr("ValorInventario").ToString.FormatoNumero()
-                    LtIndicador_ValorDolares.Text = (Dr("ValorInventario").ToString.ToDouble / TC).FormatoNumero()
-
-                    Dim CostoPromedio As Decimal = If(Dr("Existencias").ToString.ToDecimal.RoundSQL(4) > 0, Dr("ValorInventario").ToString.ToDecimal.RoundSQL(4) / Dr("Existencias").ToString.ToDecimal.RoundSQL(4), 0)
-                    LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero()
-                    LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero()
-
-                    'LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero()
-                    'LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").ToString.FormatoNumero()
-
-                    LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del día <b> $ {TC.FormatoNumero(4)} </b>"
-
-                    If TxtSerie.Text <> "" Then
-                        LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por número de serie: <b> {TxtSerie.Text} </b>"
-                    Else
-                        LtIndicador_MensajeSerie.Text = ""
-                    End If
-
-                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                        CargarOCPendientesCompra()
-                        DivIndicadorOC.Visible = True
-                    End If
-
-                    UpIndicadores.Update()
-
-                    GvM.Attributes.Add("data-heighterror", "430")
-                Else
-                    GvM.Attributes.Add("data-heighterror", "270")
-                End If
                 GvM.DataSource = DtTemp
                 GvM.DataBind()
                 UpAcciones.Update()
@@ -382,6 +344,46 @@ Partial Class Inventarios_Kardex
         If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                     ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
             dt = ObjInventarios.DtResultados.Copy
+
+            'CARGA INDICADORES
+
+            If UsuarioActual.TienePermisoProceso(201) Then
+                DivIndicadores.Visible = True
+
+                Dim Dr = dt.FiltroUltimo("")
+                Dim TC = If(GlobalTipoCambio(NowADS()) > 0, GlobalTipoCambio(NowADS()), 1)
+
+                LtIndicador_Existencia.Text = Dr("Existencias").ToString.ToDecimal.ToString("#,##0.####")
+
+                LtIndicador_ValorPesos.Text = Dr("ValorInventario").ToString.FormatoNumero()
+                LtIndicador_ValorDolares.Text = (Dr("ValorInventario").ToString.ToDouble / TC).FormatoNumero()
+
+                Dim CostoPromedio As Decimal = If(Dr("Existencias").ToString.ToDecimal.RoundSQL(4) > 0, Dr("ValorInventario").ToString.ToDecimal.RoundSQL(4) / Dr("Existencias").ToString.ToDecimal.RoundSQL(4), 0)
+                LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero()
+                LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero()
+
+                'LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero()
+                'LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").ToString.FormatoNumero()
+
+                LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del día <b> $ {TC.FormatoNumero(4)} </b>"
+
+                If TxtSerie.Text <> "" Then
+                    LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por número de serie: <b> {TxtSerie.Text} </b>"
+                Else
+                    LtIndicador_MensajeSerie.Text = ""
+                End If
+
+                If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                    CargarOCPendientesCompra()
+                    DivIndicadorOC.Visible = True
+                End If
+
+                UpIndicadores.Update()
+
+                GvM.Attributes.Add("data-heighterror", "430")
+            Else
+                GvM.Attributes.Add("data-heighterror", "270")
+            End If
         End If
         If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then dt = dt.FiltraParametros("", "FechaMovto DESC") ' ordenamiento descendente
         ObjInventarios.Dispose()

From fb7d0d03d08afebe1eb5c1b4ccadac4d4362888c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 8 Jan 2025 11:22:53 -0700
Subject: [PATCH 5/9] -- devoluciones de compra que retorna RNC

---
 Compras/Compras.aspx.vb | 124 +++++++++++++++++++++++-----------------
 1 file changed, 70 insertions(+), 54 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 48d4a0c62..af0516e7e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -19144,84 +19144,100 @@ Partial Class Compras_Compras
     Protected Sub BtnDevolucion_Click(sender As Object, e As EventArgs)
         Dim ObjCompras As New ClsCompras
         Dim TieneError As Boolean = False
+        Dim ImporteCompra As Decimal = 0
         Dim tCveSubProyeto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
+        Dim ModalidadDevolucion As Integer = 1  ' 1 - devolución para que alamcen la confirme, 2 - devolución en automático generando RNC
+
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then ModalidadDevolucion = 2
+
         ObjCompras.IniciaTransacSQL()
 
-        Dim ImporteCompra As Decimal = 0
-        If EstatusAlmacen = 0 Then
+        If ModalidadDevolucion = 1 Then
+            If EstatusAlmacen = 0 Then
+
+                For Each gvr As GridViewRow In GvSolDev.Rows
+                    Dim Cantidad As Decimal = gvr.FCTextBox("TxtCant").Text.ToDecimal
+                    Dim PU As Decimal = gvr.DataKey("PU").ToDecimal
+                    If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then
+                        ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0, UsuarioActual.CveUsuario, CantidadDevolucion:=gvr.FCTextBox("TxtCant").Text.ToDecimal)
+                        ImporteCompra = ImporteCompra + ((PU * Cantidad))
+                    Else
+                        ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1, UsuarioActual.CveUsuario, CantidadDevolucion:=0)
+                    End If
+                Next
+
+                If Not TieneError AndAlso ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1), UsuarioActual.CveUsuario) Then
+                    EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1)
+                    Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente."))
+                End If
+
+            End If
+            InicializaDevolucionAlmacen()
+        Else
 
             For Each gvr As GridViewRow In GvSolDev.Rows
                 Dim Cantidad As Decimal = gvr.FCTextBox("TxtCant").Text.ToDecimal
                 Dim PU As Decimal = gvr.DataKey("PU").ToDecimal
                 If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then
-                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0, UsuarioActual.CveUsuario, CantidadDevolucion:=gvr.FCTextBox("TxtCant").Text.ToDecimal)
                     ImporteCompra = ImporteCompra + ((PU * Cantidad))
-                Else
-                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1, UsuarioActual.CveUsuario, CantidadDevolucion:=0)
                 End If
             Next
-        End If
 
-        ImporteRNC = ImporteCompra.RoundSQL
+            ImporteRNC = ImporteCompra.RoundSQL
 
+            If ChkEsDevolucionDevInv.Checked Then
 
-        If ChkEsDevolucionDevInv.Checked Then
+                Dim objConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL)
 
-            Dim objConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL)
+                CvePrePoliza = objConta.AddPrePolizas("Compras/RncDevInv", 53, ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, $"RNC Devolucion Inv {TxtSerie.Text}-{TxtFolio.Text}",
+                                                        UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=0, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue,
+                                                         UsuarioActual.CveEmpresa), CveTipoPoliza:=objConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
+                If CvePrePoliza > 0 Then
 
-            CvePrePoliza = objConta.AddPrePolizas("Compras/RncDevInv", 53, ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, $"RNC Devolucion Inv {TxtSerie.Text}-{TxtFolio.Text}",
-                                                    UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=0, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue,
-                                                     UsuarioActual.CveEmpresa), CveTipoPoliza:=objConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
-            If CvePrePoliza > 0 Then
+                    Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
 
-                Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
+                    Dim CompraActual As New Compra
+                    CompraActual.CveCompra = CveCompra
+                    CompraActual.CveTipoConceptoProveedor = CveTipoConcepto
+                    CompraActual.CveProveedor = CveProveedor
+                    CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero
+                    CompraActual.Fecha = TxtFecha.Text.ToDate
+                    CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim
+                    CompraActual.ProveedorNombre = HplProveedor.Text
+                    CompraActual.TC = TipoCambio
+                    CompraActual.Total = TxtTotal.Text.ToDecimal
+                    CompraActual.IVA = TxtIVA.Text.ToDecimal
+                    CompraActual.IVADeducible = TxtIVA.Text.ToDecimal
+                    CompraActual.IEPS = TxtIEPS.Text.ToDecimal
+                    CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal
+                    CompraActual.RetISR = TxtRetISR.Text.ToDecimal
+                    CompraActual.CveConceptoRetISR = DdlRetISRConcepto.SelectedValue.ToEntero
+                    CompraActual.CveConceptoRetIVA = DdlRetIVAConcepto.SelectedValue.ToEntero
+                    CompraActual.PorcentajeIVA = PorcentajeIVA
+                    CompraActual.UsuarioActual = UsuarioActual
+                    CompraActual.CveSubProyecto = tCveSubProyeto
+                    CompraActual.EsImportacion = chkImportacion.Checked
 
-                Dim CompraActual As New Compra
-                CompraActual.CveCompra = CveCompra
-                CompraActual.CveTipoConceptoProveedor = CveTipoConcepto
-                CompraActual.CveProveedor = CveProveedor
-                CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero
-                CompraActual.Fecha = TxtFecha.Text.ToDate
-                CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim
-                CompraActual.ProveedorNombre = HplProveedor.Text
-                CompraActual.TC = TipoCambio
-                CompraActual.Total = TxtTotal.Text.ToDecimal
-                CompraActual.IVA = TxtIVA.Text.ToDecimal
-                CompraActual.IVADeducible = TxtIVA.Text.ToDecimal
-                CompraActual.IEPS = TxtIEPS.Text.ToDecimal
-                CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal
-                CompraActual.RetISR = TxtRetISR.Text.ToDecimal
-                CompraActual.CveConceptoRetISR = DdlRetISRConcepto.SelectedValue.ToEntero
-                CompraActual.CveConceptoRetIVA = DdlRetIVAConcepto.SelectedValue.ToEntero
-                CompraActual.PorcentajeIVA = PorcentajeIVA
-                CompraActual.UsuarioActual = UsuarioActual
-                CompraActual.CveSubProyecto = tCveSubProyeto
-                CompraActual.EsImportacion = chkImportacion.Checked
+                    If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, objConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero,
+                                                            TxtSerie.Text, TxtFolio.Text, EsDRMN:=True) Then
+                        TieneError = True
+                    End If
 
-                If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, objConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero,
-                                                        TxtSerie.Text, TxtFolio.Text, EsDRMN:=True) Then
+                Else
                     TieneError = True
                 End If
 
-            Else
-                TieneError = True
-            End If
-
-            If Not CveCompraDRMC > 0 Then
-                TieneError = True
-            End If
-
-            If Not TieneError Then
-                If Not RegistroInventarioDevTemporal(ObjCompras.IniciaTransacSQL, tCveSubProyeto, CveCompraDRMC, EsCancelacion:=False) Then
+                If Not CveCompraDRMC > 0 Then
                     TieneError = True
                 End If
+
+                If Not TieneError Then
+                    If Not RegistroInventarioDevTemporal(ObjCompras.IniciaTransacSQL, tCveSubProyeto, CveCompraDRMC, EsCancelacion:=False) Then
+                        TieneError = True
+                    End If
+                End If
+
             End If
-
-        End If
-
-        If Not TieneError AndAlso ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1), UsuarioActual.CveUsuario) Then
-            EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1)
-            Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente."))
         End If
 
         If Not TieneError Then
@@ -19232,7 +19248,7 @@ Partial Class Compras_Compras
         End If
 
         ObjCompras.Dispose()
-        InicializaDevolucionAlmacen()
+
     End Sub
 
     Function RegistroInventarioDevTemporal(ByRef transaccion As SqlTransaction, tCveSubProyecto As Integer, CveCompraDRMCRelacionada As Integer, EsCancelacion As Boolean) As Boolean

From 402d3b6d6838bdb75feb9b6008c062ff63823cf7 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 8 Jan 2025 11:23:21 -0700
Subject: [PATCH 6/9] -- columna nueva de tipo de venta

---
 Ventas/RepComisionesSMS.aspx | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Ventas/RepComisionesSMS.aspx b/Ventas/RepComisionesSMS.aspx
index ddba4894e..551a5035a 100644
--- a/Ventas/RepComisionesSMS.aspx
+++ b/Ventas/RepComisionesSMS.aspx
@@ -165,6 +165,7 @@
                                           <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="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="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />

From b0201d1c93b330da10809c4c7ef8a4b326140d77 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 8 Jan 2025 11:23:34 -0700
Subject: [PATCH 7/9] =?UTF-8?q?cambio=20de=20a=C3=B1o=2024=20a=202025?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 LogIn.aspx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/LogIn.aspx b/LogIn.aspx
index 89e2e8368..db61b165a 100644
--- a/LogIn.aspx
+++ b/LogIn.aspx
@@ -90,7 +90,7 @@
                             </div>
 
                             <div class="copyright">
-                                <asp:Literal ID="Ltlcopyright" runat="server">2024 © AD Sistemas.</asp:Literal>
+                                <asp:Literal ID="Ltlcopyright" runat="server">2025 © AD Sistemas.</asp:Literal>
                             </div>
                             <%--<div class="col-lg-offset-4 col-md-offset-4 col-sm-offset-3 col-lg-4 col-md-4 col-sm-6 col-xs-12 text-right">
                                 <asp:LinkButton ID="linkRegistrar" runat="server" CssClass="restaurar-password" OnClientClick="window.location.href='ActivarUsuario.aspx'">Registrar</asp:LinkButton>

From cdc0e82040fb8dca33e987ca0a1eccadc720ec02 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 8 Jan 2025 15:50:04 -0700
Subject: [PATCH 8/9] 189 Ajustes RDLC,  Ventas limpiar gvInv de link de kardex
 duplicado

---
 Empresas/189/Formatos/Entradas.rdlc |  2 +-
 Empresas/189/Formatos/OC.rdlc       | 19 ++++++++++++++-----
 Ventas/Ventas.aspx                  |  3 +--
 Ventas/Ventas.aspx.vb               | 19 ++-----------------
 4 files changed, 18 insertions(+), 25 deletions(-)

diff --git a/Empresas/189/Formatos/Entradas.rdlc b/Empresas/189/Formatos/Entradas.rdlc
index b1f0e2451..c7cf50e59 100644
--- a/Empresas/189/Formatos/Entradas.rdlc
+++ b/Empresas/189/Formatos/Entradas.rdlc
@@ -425,7 +425,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Código Prov.</Value>
+                                  <Value># Parte</Value>
                                   <Style>
                                     <FontFamily>MYRIAd Pro</FontFamily>
                                     <FontSize>7.5pt</FontSize>
diff --git a/Empresas/189/Formatos/OC.rdlc b/Empresas/189/Formatos/OC.rdlc
index 4240320a0..f7dee0b2b 100644
--- a/Empresas/189/Formatos/OC.rdlc
+++ b/Empresas/189/Formatos/OC.rdlc
@@ -359,7 +359,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Código Prov.</Value>
+                                  <Value># Parte</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>9.5pt</FontSize>
@@ -875,6 +875,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
+            <Top>0cm</Top>
             <Left>0.04788in</Left>
             <Height>0.34081in</Height>
             <Width>8.21665in</Width>
@@ -1700,7 +1701,7 @@
         <Height>3.83039in</Height>
         <Style />
       </Body>
-      <Width>8.26453in</Width>
+      <Width>8.29578in</Width>
       <Page>
         <PageHeader>
           <Height>5.96613cm</Height>
@@ -1884,7 +1885,7 @@
               <Top>0.98635in</Top>
               <Left>0.16378cm</Left>
               <Height>1.36252in</Height>
-              <Width>2.82301in</Width>
+              <Width>4.02093in</Width>
               <Style>
                 <Border>
                   <Style>None</Style>
@@ -1902,7 +1903,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>=IIF(LEN(Parameters!SubProyectoEntrega.Value) &gt; 0,"Lugar de Entrega: " + Parameters!SubProyectoEntrega.Value,"")</Value>
+                      <Value>=IIF(LEN(Parameters!SubProyectoEntrega.Value) &gt; 0 or LEN(Parameters!ProveedorLugar.Value) &gt; 0,"Lugar de Entrega: " + Parameters!SubProyectoEntrega.Value,"")</Value>
                       <Style>
                         <FontFamily>Calibri</FontFamily>
                         <FontSize>9.16pt</FontSize>
@@ -1932,6 +1933,14 @@
                         <FontWeight>Normal</FontWeight>
                       </Style>
                     </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!ProveedorLugar.Value</Value>
+                      <Style>
+                        <FontFamily>Calibri</FontFamily>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                      </Style>
+                    </TextRun>
                   </TextRuns>
                   <Style>
                     <TextAlign>Left</TextAlign>
@@ -1942,7 +1951,7 @@
               <Top>2.50885cm</Top>
               <Left>12.69644cm</Left>
               <Height>3.45728cm</Height>
-              <Width>7.11877cm</Width>
+              <Width>8.00264cm</Width>
               <ZIndex>1</ZIndex>
               <Style>
                 <Border>
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 80ad7aa25..bd9fc4df3 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1982,8 +1982,7 @@
                                                             <asp:TemplateField>
                                                                 <HeaderTemplate>Producto</HeaderTemplate>
                                                                 <ItemTemplate>
-                                                                    <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
-                                                                    <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("CodigoPS") %>' Visible="false" Target="_blank"></asp:HyperLink>
+                                                                    <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>                                                                    
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:TemplateField HeaderText="Serie" Visible="false">
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 30c4cce4f..39fa439be 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2387,18 +2387,7 @@ Partial Class Ventas
         End Set
     End Property
 
-    Private Property TienePermisoKardex As Boolean
-        Get
-            If ViewState("TienePermisoKardex") Is Nothing Then
-                ViewState("TienePermisoKardex") = False
-            End If
 
-            Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
-        End Get
-        Set(value As Boolean)
-            ViewState("TienePermisoKardex") = value
-        End Set
-    End Property
 
 
 #Region "VENTA MEDICA"
@@ -2457,7 +2446,7 @@ Partial Class Ventas
                 Exit Sub
             End If
 
-            TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
+
 
             Modalidad = ""
             Opcion = ""
@@ -9550,11 +9539,7 @@ Partial Class Ventas
                     End If
                 End If
 
-                If TienePermisoKardex Then
-                    e.Row.FCLiteral("LtlPS").Visible = False
-                    e.Row.FCHyperLink("HlPS").Visible = True
-                    e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}"
-                End If
+
 
             End If
 

From 9d9303407ffb889ff0601331d46bcaec4a3b0c99 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 8 Jan 2025 17:14:06 -0700
Subject: [PATCH 9/9] Entradas salidas fix acumulado AddNew

---
 Inventarios/EntradasSalidas.aspx.vb | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index a760288cf..356ddef0c 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1629,7 +1629,14 @@ Partial Class Inventarios_EntradasSalidas
 
             Dim Existencia As Decimal = GetExistencias(CvePS, CveUM, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, -1, If(Serie = "", "-1", Serie), If(Lote = "", "-1", Lote), FechaCaducidadVal)
             ' LbAgregar.ToolTip = Existencia.ToString
-            If Existencia - Cantidad - DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUM} {If(Serie <> "", $" AND Serie = '{Serie}'", "")}") < 0 Then
+
+            Dim Acunmulado As Decimal = DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUM} {If(Serie <> "", $" AND Serie = '{Serie}'", "")}")
+
+            If FechaCaducidadVal > MinFecha Then
+                Acunmulado = DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUM} and  Lote = '{Lote}' and FechaCaducidad = '{FechaCaducidadVal}' ")
+            End If
+
+            If Existencia - Cantidad - Acunmulado < 0 Then
                 If Existencia <= 0 Then
                     Alert("No hay existencia del producto: " & PS, TipoMensaje.MsgAdvertencia)
                     RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")