From 9100dd7dc46fd6cc1788b88b8a8bbc8af60130bf Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 21 Oct 2024 08:34:30 -0700
Subject: [PATCH] Kardex Horizontal  opcion  separado destino, Compras cabecera
 grid AF,  Usuario link url correo usuario

---
 Compras/Compras.aspx                     | 38 ++++++++++++++++++-----
 Inventarios/KardexAlmacenHorizontal.aspx |  7 +++--
 Inventarios/RecepcionAlmacen.aspx.vb     | 11 +++++++
 Sistemas/UsuarioDetalle.aspx.vb          | 39 ++++++++++++++++++++----
 4 files changed, 79 insertions(+), 16 deletions(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 71e5d047e..bebe8fb29 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -2137,7 +2137,7 @@
 
                                     <asp:UpdatePanel ID="UpTitulosAFInsumos" runat="server" UpdateMode="Conditional">
                                         <ContentTemplate>
-                                            <table border="0" rules="none" class="table table-striped table-hover table-advance Widthall">
+                                           <%-- <table border="0" rules="none" class="table table-striped table-hover table-advance Widthall">
                                                 <tr class="Titulos TextTab">
                                                     <td style="width: 20px">#</td>
                                                     <td style="width: 60px">Cantidad</td>
@@ -2149,7 +2149,7 @@
                                                     <td style="width: 90px">Mantenimiento</td>
                                                     <td style="width: 90px">Dividir</td>
                                                 </tr>
-                                            </table>
+                                            </table>--%>
                                         </ContentTemplate>
                                     </asp:UpdatePanel>
 
@@ -2159,27 +2159,36 @@
                                             <asp:HiddenField ID="HdnTxtAFMedida" runat="server" />
                                             <asp:Button ID="BtnAFMedida" runat="server" Style="display: none;" OnClick="BtnAFMedida_Click" />
 
-                                            <asp:GridView ID="GvAFInsumos" ClientIDMode="AutoID" runat="server" DataKeyNames="Consec,CveClasificacion" ShowHeader="false" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros" CssClass="table table-striped table-hover table-advance Widthall gridconheader" RowStyle-VerticalAlign="Middle" RowStyle-HorizontalAlign="Center" GridLines="none">
+                                            <asp:GridView ID="GvAFInsumos" ClientIDMode="AutoID" runat="server" DataKeyNames="Consec,CveClasificacion" ShowHeader="true" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros" CssClass="table table-striped table-hover table-advance Widthall gridconheader" RowStyle-VerticalAlign="Middle" RowStyle-HorizontalAlign="Center" GridLines="none">
                                                 <Columns>
                                                     <asp:TemplateField>
+                                                        <HeaderTemplate>
+                                                            #
+                                                        </HeaderTemplate>
                                                         <ItemTemplate>
-                                                            <asp:Label ID="LtlConsecutivo" runat="server" Text='<%# Eval("Consec", "{0:N0}") %>' Font-Size="6pt"></asp:Label></label>
-                                                       
-                                                       
-                                                       
+                                                            <asp:Label ID="LtlConsecutivo" runat="server" Text='<%# Eval("Consec", "{0:N0}") %>' Font-Size="6pt"></asp:Label></label>                                                       
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField>
+                                                        <HeaderTemplate>
+                                                            Cantidad                                                            
+                                                        </HeaderTemplate>
                                                         <ItemTemplate>
                                                             <asp:Literal ID="LtlCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:#,##0.00##}") %>'></asp:Literal>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField>
+                                                        <HeaderTemplate>
+                                                            Unidad    
+                                                        </HeaderTemplate>
                                                         <ItemTemplate>
                                                             <asp:Literal ID="LtlUnidadMedida" runat="server" Text='<%# Eval("UM") %>'></asp:Literal>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                                                        <HeaderTemplate>
+                                                            Producto    
+                                                        </HeaderTemplate>
                                                         <ItemTemplate>
                                                             <div class="truncate" style="width: 200px;">
                                                                 <asp:HyperLink Style="display: initial;" ID="HplPS" NavigateUrl='<%# If(CInt(Eval("CvePS").ToString) > 0, String.Format("/Ventas/ProductosServicios.aspx?CvePS={0}&Ret=Comp&Popup=1&TB_iframe=true&height=500&width=950&Ret=Comp", Eval("CvePS")), "")%>' CssClass='<%# If(CInt(Eval("CvePS").ToString) > 0, "Texto thickbox", "") %>' runat="server" Text='<%# Eval("PS") %>'></asp:HyperLink>
@@ -2187,6 +2196,9 @@
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                                                        <HeaderTemplate>
+                                                            Observación    
+                                                        </HeaderTemplate>
                                                         <ItemTemplate>
                                                             <div class="truncate" style="width: 200px;">
                                                                 <asp:Literal ID="LtlObservacion" runat="server" Text='<%# Eval("Obs") %>'></asp:Literal>
@@ -2194,6 +2206,9 @@
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField>
+                                                        <HeaderTemplate>
+                                                            Vinculación    
+                                                        </HeaderTemplate>
                                                         <ItemTemplate>
                                                             <asp:Label runat="server" Visible="false" ID="LbCveAF" Text='<%# Eval("CodAF")%>'></asp:Label>
                                                             <asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="80px" Visible="true"></asp:TextBox>
@@ -2207,11 +2222,17 @@
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField ItemStyle-Width="100px">
+                                                        <HeaderTemplate>
+                                                            Horómetro /<br> Odómetro    
+                                                        </HeaderTemplate>
                                                         <ItemTemplate>
                                                             <asp:TextBox ID="TxtAFMedida" runat="server" Width="60px" Text='<%# Eval("AFMedida")%>'></asp:TextBox>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left">
+                                                        <HeaderTemplate>
+                                                            Mantenimiento    
+                                                        </HeaderTemplate>
                                                         <ItemTemplate>
                                                             <asp:DropDownList ID="DdlTipoMantemiento" runat="server" CssClass="form-control select2me" Width="100px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoMantemiento_SelectedIndexChanged">
                                                                 <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
@@ -2221,6 +2242,9 @@
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField ItemStyle-Width="80px">
+                                                        <HeaderTemplate>
+                                                            Dividir    
+                                                        </HeaderTemplate>
                                                         <ItemTemplate>
                                                             <asp:TextBox runat="server" ID="TxtDividir" Width="30px"></asp:TextBox>
                                                             <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtDividir" FilterType="Custom, Numbers" ValidChars="." />
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 770f57010..a791a8f1d 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -195,6 +195,7 @@
                                 <asp:ListItem Text="No" Value="0" Selected="True"></asp:ListItem>
                                 <asp:ListItem Text="Si (Origen)" Value="1"></asp:ListItem>
                                 <asp:ListItem Text="Si (Destino)" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Separado(Destino)" Value="3" /> 
                             </asp:DropDownList>
                             <%--<asp:CheckBox ID="ChkIncluyeTransitorios" runat="server" Checked="false" />--%>
                         </div>
@@ -228,11 +229,11 @@
                         </div>
                         <asp:Label runat="server" ID="LblProyectado" Text="Incluir Proyectados" class="col-md-1 truncate" />
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlProyeccionFiltro" runat="server" CssClass="select2me" Width="100%" >
-                                 <asp:ListItem Text="Todos (Entradas/Salidas)" Value="3" />
+                            <asp:DropDownList ID="DdlProyeccionFiltro" runat="server" CssClass="select2me" Width="100%" >                                
+                                <asp:ListItem Text="Todos (Entradas/Salidas)" Value="3" />
                                  <asp:ListItem Text="Entradas" Value="1" />
                                  <asp:ListItem Text="Salidas" Value="2" />
-                                <asp:ListItem Text="No" Value="0" Selected="True"  />
+                                <asp:ListItem Text="No" Value="0" Selected="True"  />                                
                             </asp:DropDownList>
                         </div>
                     </asp:Panel>
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index fef677302..560009b05 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -1038,11 +1038,14 @@ Partial Class Inventarios_RecepcionAlmacen
                 ' HplCargaExcel.Enabled = True
 
 
+
+
                 Dim CargaSoloUsados As Boolean = False
 
                 If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                     Dim DtRecepcion As DataTable = ObjInventario.DtResultados.Copy()
                     DtInv = DtRecepcion
+
                     Dim NumUsados As Integer = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero()
                     Dim NumProductos As Integer = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero()
                     Dim CveSubProyecto As Integer
@@ -1093,6 +1096,14 @@ Partial Class Inventarios_RecepcionAlmacen
                         End If
                     End If
 
+
+                    If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                        If ObjCompras.GetCompraDetalle(pCveCompra, UsuarioActual.CveEmpresa) Then
+                            TotalCompraOC = ObjCompras.DtResultados.SUM("Total", "CveTipoPS = 2")
+                        End If
+                    End If
+
+
                     CveSubProyecto = DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero
 
                     CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 47e2e0e46..3d3c3cd7c 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -410,8 +410,9 @@ Partial Class Sistemas_UsuarioDetalle
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-
+        If Not IsPostBack Then
+
+
             ViewState("Orden") = ""
             ViewState("CveEmpresa") = "-1"
             'ViewState("CveSucursal") = ""
@@ -1404,8 +1405,13 @@ Partial Class Sistemas_UsuarioDetalle
         '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
         'End If
     End Sub
-    Private Sub EnviaCorreo()
-
+    Private Sub EnviaCorreo()
+
+        Dim UrlsitioUrlActual As String = ObtenerUrlCompleta()
+
+        Dim Solicitud As HttpRequest = HttpContext.Current.Request
+
+
         Try
             Dim Para As String = TxtCorreo.Text.Trim
             Dim Asunto As String = "ALTA DE CUENTA"
@@ -1438,7 +1444,7 @@ Partial Class Sistemas_UsuarioDetalle
             SBBody.Append("</div>")
             SBBody.Append("<div>")
             SBBody.Append("<div class='col1'> Acceso </div>")
-            SBBody.AppendFormat("<div class='col2'><a href='{0}login.aspx'>sig.adssistemas.mx</a></div>", UrlSitio)
+            SBBody.AppendFormat("<div class='col2'><a href='{0}login.aspx'>{1}</a></div>", UrlsitioUrlActual, Solicitud.Url.Host)
             SBBody.Append("</div>")
             SBBody.Append("</div>")
             SBBody.Append("</div>")
@@ -1447,7 +1453,7 @@ Partial Class Sistemas_UsuarioDetalle
             SBBody.Append("<div Class='nota'>")
             SBBody.Append("Nota Favor de NO responder este correo. ")
             SBBody.Append("</div><br/><br/>")
-            SBBody.AppendFormat("<div class='logo'><img src='{0}Imagenes/LogoSinFondo.png' style='width:30px;'/>ADSistemas </div>", UrlSitio)
+            SBBody.AppendFormat("<div class='logo'><img src='{0}Imagenes/LogoSinFondo.png' style='width:30px;'/>ADSistemas </div>", UrlsitioUrlActual)
             SBBody.Append("</div>")
             SBBody.Append("</div>")
             'Termino Cuerpo del correo
@@ -1458,6 +1464,27 @@ Partial Class Sistemas_UsuarioDetalle
             OnError("Ocurrió error al mandar MAIL", ex)
         End Try
     End Sub
+
+
+    Public Function ObtenerUrlCompleta() As String
+
+        Dim Solicitud As HttpRequest = HttpContext.Current.Request
+        Dim url As String = Solicitud.Url.Scheme & "://" & Solicitud.Url.Host
+
+        If (Solicitud.Url.Port <> 80 AndAlso Solicitud.Url.Port <> 443) Then
+            url &= ":" & Solicitud.Url.Port
+        End If
+
+
+        url &= Solicitud.ApplicationPath
+
+        If Not url.EndsWith("/") Then
+            url &= "/"
+        End If
+
+        Return url
+    End Function
+
 #End Region