SMS - 2024.02.02

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