-

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"))))