-

2024-02-07 05:20:04 -07:00
parent 656c6eb746 b67caac515
commit 793b32f8c2
26 changed files with 5100 additions and 551 deletions
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -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>
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -507,10 +507,55 @@ 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
+        Consola = ""
+        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
+
+        If Respuesta Then
+            HplImprimirConsola.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Alm&CveMovimiento={0}&Consola={1}", CveMovimiento, Consola)))
+        End If
+
+        Return Respuesta
+
+
+    End Function
+
 #Region "  PERMISOS PAGINAS  "
    Private Function PermiteGuardar() As Boolean
        Return If(UsuarioActual.TienePermisoProceso(181) Or EsConsumoInterno, True, False)
@@ -909,9 +954,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"))))
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -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

@@ -1847,10 +1848,13 @@ Partial Class Inventarios_EntregaAlmacen

    Private Sub GuardaVenta()

-
-        '' INICIA: VALIDACIONES 
-
-        'Valida el estatus de la Venta, si es  = 5 O DevolucionVenta = 2, NO SE SURTE!
+        ValidaUsaConsola()
+
+
+
+        '' INICIA: VALIDACIONES 
+
+        'Valida el estatus de la Venta, si es  = 5 O DevolucionVenta = 2, NO SE SURTE!
        Dim ObjVentaInv As New ClsInventarios
        If ObjVentaInv.GetEstatusVentaPorSurtir(CveVentaSurtir) Then
            TipoEstatus = ObjVentaInv.TipoEstatus
@@ -3112,6 +3116,9 @@ Partial Class Inventarios_EntregaAlmacen

            Msg.AppendFormat("Movimiento {2}: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimiento, Folio, If(TipoMovimiento = 1, "Salida", "Entrada"))
            Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
+            If Consola.Trim.Length > 0 Then
+                Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Consola</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}&Consola={1}", CveMovimiento, Consola)))
+            End If

            If CveMovimientoEntrada > 0 Then
                Msg.AppendFormat("<br/><br/> Movimiento Entrada (Traspaso): <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioEntrada)
@@ -3160,8 +3167,10 @@ Partial Class Inventarios_EntregaAlmacen
            'SI NO ES GARANTIA MANDA A RECIBIR AL USADO
            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDocto.Contiene("Rem", "Ped") AndAlso CveMovimientoGarantia <= 0 Then
                Msg.AppendFormat("<br/><br/>Recibir Usado: <b><a href=""/Inventarios/RecepcionUsados.aspx?CveRemision={0}"" target=""_blank"" class=""Texto"">Ir a Recepción de Usados</a></b>", CveVentaSurtir)
-            End If
-
+            End If
+
+
+
            Alert(Msg.ToString(), TipoMensaje.MsgInformacion)

            Limpia()
@@ -4408,6 +4417,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 ValidaUsaConsola() As Boolean
+        Consola = ""
+        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
--- a/Inventarios/RepNotasSinAlmacen.aspx.vb
+++ b/Inventarios/RepNotasSinAlmacen.aspx.vb
@@ -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)