AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Kardex Horizontal opcion separado destino, Compras cabecera grid AF, Usuario link url correo usuario

Browse Source
This commit is contained in:
rakcsle
2024-10-21 08:34:30 -07:00
parent 909036cb12
commit 9100dd7dc4
4 changed files with 79 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
Compras/Compras.aspx
View File

@@ -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="." />

7
Inventarios/KardexAlmacenHorizontal.aspx
View File

@@ -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>

11
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -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

39
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -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