-- activación de combo

Inventarios/EntregaAlmacen.aspx.vb

@@ -128,7 +128,17 @@ Partial Class Inventarios_EntregaAlmacen
         End Set
     End Property
 
-
+    Private Property SeleccionLoteCaducidadCombo As Boolean
+        Get
+            If ViewState("SeleccionLoteCaducidadCombo") Is Nothing Then
+                ViewState("SeleccionLoteCaducidadCombo") = False
+            End If
+            Return CType(ViewState("SeleccionLoteCaducidadCombo"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("SeleccionLoteCaducidadCombo") = value
+        End Set
+    End Property
 
     Private Property TipoEstatus As Integer
         Get
@@ -631,18 +641,13 @@ Partial Class Inventarios_EntregaAlmacen
         TipoEntrega = 1
         BtnGuardar.Visible = True
 
-        Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,26)"
+        Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,4, 26)"
-        If UsuarioActual.CveSubProyecto = 8804 Then
-            StrAlmacenes = "CveTipoAlmacen IN (1,2,12)"
-        End If
-
         Dim ObjInventario As New ClsInventarios
 
         If ObjInventario.EntregaAlmacenGet(CveVenta, UsuarioActual.CveEmpresa, CveAlmacen) Then
             If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
 
                 Dim CveVentaPadre As Integer = -1
-
                 ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
                 ArchivoBitacoraDetalle = String.Format("{0}Temp\EntregaDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
                 If ArchivoBitacora <> "" Then
@@ -902,6 +907,11 @@ Partial Class Inventarios_EntregaAlmacen
                         Case Else
                             Filtro = "CveConcepto = 9"
                     End Select
+                    'condicion especial cuando  es tipo uso de material 
+                    'CveTipoVenta
+                    If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(5, 6) AndAlso TipoDocto = "Ped" Then
+                        Filtro = "CveConcepto = 8" 'salida del almacen de consigna
+                    End If
 
                     If ObjInventario.GetInv_Mov(CveVentaPadre, UsuarioActual.CveEmpresa) Then
                         DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS Is Not NULL AND {Filtro} " & FiltroPS)
@@ -1064,8 +1074,6 @@ Partial Class Inventarios_EntregaAlmacen
     Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True)
 
         If DtDatos IsNot Nothing Then
-
-
             Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean
             If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
                 AplicaSerie = CBool(DtDatos.MAX("AplicaSerie"))
@@ -1079,6 +1087,7 @@ Partial Class Inventarios_EntregaAlmacen
             If AplicaCaducidad Then GvDatos.Columns(10).Visible = True
 
             If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                SeleccionLoteCaducidadCombo = True
                 GvDatos.Columns(8).Visible = True
                 GvDatos.Columns(9).Visible = False
                 GvDatos.Columns(10).Visible = False
@@ -1285,7 +1294,7 @@ Partial Class Inventarios_EntregaAlmacen
             If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then
                 Dim ValorAsignado As String = ""
                 Dim DtDatosDevolucion As DataTable = Nothing
-                If GvDatos.Columns(8).Visible AndAlso EsDevolucionVenta = 1 Then
+                If SeleccionLoteCaducidadCombo AndAlso EsDevolucionVenta = 1 Then
                     ValorAsignado = $"{e.Row.DBCampo("Lote").ToString}|{e.Row.DBCampo("FechaCaducidad").ToDate.ToString("dd/MM/yyyy")}"
                     DtDatosDevolucion = DtDatos.Copy()
                 End If
@@ -1308,8 +1317,6 @@ Partial Class Inventarios_EntregaAlmacen
         Dim Lote As String = ArrayCaducidad(0)
         Dim FechaCaducidad As String = ArrayCaducidad(1)
 
-
-
         If AplicaLote Then
             GvRow.FCTextBox("TxtLote").Text = Lote
         End If
@@ -1317,7 +1324,6 @@ Partial Class Inventarios_EntregaAlmacen
         If AplicaCaducidad Then
             GvRow.FCTextBox("TxtCaducidad").Text = FechaCaducidad
         End If
-
         UpDatos.Update()
 
     End Sub
@@ -1347,7 +1353,6 @@ Partial Class Inventarios_EntregaAlmacen
             ObjInventarios.Dispose()
         End If
 
-
         If Not String.IsNullOrEmpty(ValorAsignado) Then
             DdlLoteFechaCaducidad.SelectedValueExist(ValorAsignado)
         End If
@@ -1867,6 +1872,15 @@ Partial Class Inventarios_EntregaAlmacen
         TdSeriePS.Visible = False
         Dim Existe As Boolean = False
         Dim PSTemp As String = ""
+        'validación de impresión con CódigoQR, ej. ?CvePS=711820&Lote=220078&Fecha=04/07/2027
+        If TxtCodigoPS.Text.Trim.Contains("?CvePS") Then
+            Dim query As String = TxtCodigoPS.Text.Trim '"?CvePS=711820&Lote=220078&Fecha=04/07/2027"
+            Dim parsedQuery = HttpUtility.ParseQueryString(Query)
+
+            Dim tCvePS As String = parsedQuery("CvePS")
+            Dim tLote As String = parsedQuery("Lote")
+            Dim tFecha As String = parsedQuery("Fecha")
+        End If
 
         For Each Gvr As GridViewRow In GvDatos.Rows
             If Gvr.DataKey("CodigoBarras") = TxtCodigoPS.Text.Trim Then
@@ -2053,7 +2067,7 @@ Partial Class Inventarios_EntregaAlmacen
                     End If
 
                     If CBool(Gvr.DataKey("AplicaCaducidad")) Then
-                        If GvDatos.Columns(8).Visible Then
+                        If SeleccionLoteCaducidadCombo Then
                             If String.IsNullOrEmpty(Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim()) OrElse Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim() = "|" Then
                                 ValidaCaducidad = True
                             End If
@@ -2065,7 +2079,7 @@ Partial Class Inventarios_EntregaAlmacen
                     End If
 
                     If CBool(Gvr.DataKey("AplicaLote")) Then
-                        If GvDatos.Columns(8).Visible Then
+                        If SeleccionLoteCaducidadCombo Then
                             If String.IsNullOrEmpty(Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim()) OrElse Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim() = "|" Then
                                 ValidaLote = True
                             End If