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

SMS - 2024.02.02

Browse Source
This commit is contained in:
rakcsle
2024-02-03 09:55:04 -07:00
parent c24b378b66
commit 725a72e7fa
10 changed files with 275 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Inventarios/EntradasSalidas.aspx
View File

@@ -62,6 +62,9 @@
<li>
<asp:HyperLink ID="HplImprimirResumen" runat="server" Visible="false"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF Resumen</asp:HyperLink>
</li>
<li>
<asp:HyperLink ID="HplImprimirConsola" runat="server" Visible="false"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF Consola</asp:HyperLink>
</li>
<li>
<asp:HyperLink ID="HplDescargaXml" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Descargar XML SAT</asp:HyperLink>
</li>
@@ -673,7 +676,7 @@
<asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
<asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" EmptyDataText="Aún no hay registros."
DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,Lote,FechaCaducidad,CveSeccionAlmacen" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" >
DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,Lote,FechaCaducidad,CveSeccionAlmacen,Codigo" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" >
<Columns>
<asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
<EditItemTemplate>

44
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -507,10 +507,51 @@ Partial Class Inventarios_EntradasSalidas
'ImgFecha.Visible = True
End If
If CveMovimiento > 0 And CveConcepto.Contiene(8) And UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
ValidaUsaConsola()
End If
End If
End Sub
Property Consola As String
Get
If ViewState("Consola") Is Nothing Then
ViewState("Consola") = ""
End If
Return ViewState("Consola").ToString
End Get
Set(value As String)
ViewState("Consola") = value
End Set
End Property
Private Function ValidaUsaConsola() As Boolean
Dim Respuesta As Boolean = False
For Each gvRow As GridViewRow In GvM.Rows
If gvRow.DataKey("Codigo").Contiene("404Q2", "404Q3", "405Q2", "405Q3", "306Q1", "306Q2") Then
Consola = "ARS600"
Respuesta = True
HplImprimirConsola.Visible = True
Exit For
End If
If gvRow.DataKey("Codigo").Contiene("106Q1A", "106Q2A", "106Q3", "106Q3WT", "106Q4", "106Q4A", "106Q5A", "106Q6A", "106Q7A") Then
Consola = "ARS800"
Respuesta = True
HplImprimirConsola.Visible = True
Exit For
End If
Next
Return Respuesta
End Function
#Region " PERMISOS PAGINAS "
Private Function PermiteGuardar() As Boolean
Return If(UsuarioActual.TienePermisoProceso(181) Or EsConsumoInterno, True, False)
@@ -909,9 +950,12 @@ Partial Class Inventarios_EntradasSalidas
HplImprimirResumen.Visible = True
HplImprimirResumen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Almr&CveMovimiento={0}", CveMovimiento)))
CveCompra = Mov.CveCompra
CveConcepto = Mov.CveConcepto
If drM("CveEstatusTimbrado").ToString.ToEntero > 0 Then
HplDescargaXml.Visible = True
HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", drM("TimbreSerieFolio"), drM("TimbreTipoDocto"))))

42
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -4,6 +4,7 @@ Option Explicit On
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Web.Management
Imports Extensiones
Imports Microsoft.Reporting.WebForms
@@ -4408,6 +4409,47 @@ Partial Class Inventarios_EntregaAlmacen
Return Cancelar
End Function
Property Consola As String
Get
If ViewState("Consola") Is Nothing Then
ViewState("Consola") = ""
End If
Return ViewState("Consola").ToString
End Get
Set(value As String)
ViewState("Consola") = value
End Set
End Property
Private Function UsaConsola() As Boolean
Dim Respuesta As Boolean = False
For Each gvRow As GridViewRow In GvDatos.Rows
If gvRow.FCCheckBox("cbInv").Checked AndAlso gvRow.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
If gvRow.DataKey("Codigo").Contiene("404Q2", "404Q3", "405Q2", "405Q3", "306Q1", "306Q2") Then
Consola = "ARS600"
Respuesta = True
Exit For
End If
If gvRow.DataKey("Codigo").Contiene("106Q1A", "106Q2A", "106Q3", "106Q3WT", "106Q4", "106Q4A", "106Q5A", "106Q6A", "106Q7A") Then
Consola = "ARS800"
Respuesta = True
Exit For
End If
End If
Next
Return Respuesta
End Function
End Class

12
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -65,13 +65,16 @@ Partial Class RepNotasSinAlmacen
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
If Not IsPostBack Then
CargaCombos()
'CargaDatos()
CargaPermisos()
End If
End Sub
End Sub
Private Sub CargaPermisos()
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
Dim TienePermisoDesmarcar As Boolean = UsuarioActual.TienePermisoProceso(278)
@@ -88,6 +91,9 @@ Partial Class RepNotasSinAlmacen
GvVentas.Columns(8).Visible = True
TxtFechaF.Text = NowADS.AddDays(3).ToShortDateString
GvVentas.Columns(4).Visible = False
GvCompras.Columns(4).Visible = False
GvVentas.Columns(0).ItemStyle.Width = Unit.Pixel(120)
'CType(GvVentas.Columns(2), Literal).DataFormatString = "{0:dd/MM/yyyy HH:mm}"
'CType(GvVentas.Columns(2), Literal).ItemStyle.Width = Unit.Pixel(120)