SMS - 2024.01.27

Inventarios/EntregaAlmacen.aspx.vb

@@ -117,6 +117,19 @@ Partial Class Inventarios_EntregaAlmacen
         End Set
     End Property
 
+    Private Property CveTipoVenta As Integer
+        Get
+            If ViewState("CveTipoVenta") Is Nothing Then
+                ViewState("CveTipoVenta") = -1
+            End If
+            Return CType(ViewState("CveTipoVenta"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("CveTipoVenta") = value
+        End Set
+    End Property
+
+
 
     Private Property TipoEstatus As Integer
         Get
@@ -320,15 +333,15 @@ Partial Class Inventarios_EntregaAlmacen
     End Property
 
 
-    Private Property PedidoBloqueCantidad As Boolean
+    Private Property BloqueCantidad As Boolean
         Get
-            If ViewState("PedidoBloqueCantidad") Is Nothing Then
-                ViewState("PedidoBloqueCantidad") = False
+            If ViewState("BloqueCantidad") Is Nothing Then
+                ViewState("BloqueCantidad") = False
             End If
-            Return Boolean.Parse(ViewState("PedidoBloqueCantidad").ToString)
+            Return Boolean.Parse(ViewState("BloqueCantidad").ToString)
         End Get
         Set(value As Boolean)
-            ViewState("PedidoBloqueCantidad") = value
+            ViewState("BloqueCantidad") = value
         End Set
     End Property
 
@@ -675,6 +688,7 @@ Partial Class Inventarios_EntregaAlmacen
                     LbObservacionesAlmacen.Text = drE("ObservacionesAlmacen").ToString()
                     CveVentaSurtir = CveVenta
                     CveOSSurtir = CveOS
+                    CveTipoVenta = drE("CveTipoVenta").ToString().ToEntero
                     CveAlmacenTraspasoDestino = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString().ToEntero()
                     CveAlmacenTraspasoOrigen = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString().ToEntero()
                     CveContrato = drE("CveContrato").ToString().ToEntero()
@@ -842,14 +856,19 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         ObjInventario.Dispose()
-        UpGenerales.Update()
-        If CveAlmacen <= 0 Then CargaGvDatos()
+        UpGenerales.Update()
+
+        If (EsDevolucionVenta = 1 AndAlso CveOSSurtir > 0 AndAlso TipoMovimiento = 2 AndAlso TipoDocto = "Ped") Or (UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso CveTipoVenta <> 3) Then
+            BloqueCantidad = True
+        Else
+            BloqueCantidad = False
+        End If
 
-
-
-        If EsDevolucionVenta = 1 AndAlso CveOSSurtir > 0 AndAlso TipoMovimiento = 2 AndAlso TipoDocto = "Ped" Then
-            PedidoBloqueCantidad = True
-        End If
+        If CveAlmacen <= 0 Then CargaGvDatos()
+
+
+
+
 
 
 
@@ -1106,7 +1125,7 @@ Partial Class Inventarios_EntregaAlmacen
                 CType(e.Row.FindControl("RFVCaducidad"), RequiredFieldValidator).Enabled = False
 
                 'si aplica caducidad y viene vacía (posible por venta anterior), que se active su registro
-                If (e.Row.FCTextBox("TxtCaducidad").Text = "" OrElse e.Row.FCTextBox("TxtCaducidad").Text.ToDate <= MinFecha) OrElse UsuarioActual.TienePermisoProceso(364) Then
+                If (e.Row.FCTextBox("TxtCaducidad").Text = "" OrElse e.Row.FCTextBox("TxtCaducidad").Text.ToDate <= MinFecha) OrElse UsuarioActual.TienePermisoProceso(364) OrElse UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
                     e.Row.FCTextBox("TxtCaducidad").ReadOnly = False
                     CType(e.Row.FindControl("RFVCaducidad"), RequiredFieldValidator).Enabled = True
                     e.Row.FCTextBox("TxtCaducidad").Enabled = True
@@ -1120,7 +1139,7 @@ Partial Class Inventarios_EntregaAlmacen
             If CBool(e.Row.DBCampo("AplicaLote")) Then
                 e.Row.FCTextBox("TxtLote").Visible = True
                 'si aplica caducidad y viene vacía (posible por venta anterior), que se active su registro
-                If e.Row.FCTextBox("TxtLote").Text = "" OrElse UsuarioActual.TienePermisoProceso(364) Then
+                If e.Row.FCTextBox("TxtLote").Text = "" OrElse UsuarioActual.TienePermisoProceso(364) OrElse UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
                     e.Row.FCTextBox("TxtLote").ReadOnly = False
                     e.Row.FCTextBox("TxtLote").Enabled = True
                 Else
@@ -1165,7 +1184,7 @@ Partial Class Inventarios_EntregaAlmacen
                 e.Row.FCCheckBox("cbInv").Enabled = False
             End If
 
-            If PedidoBloqueCantidad Then
+            If BloqueCantidad Then
                 e.Row.FCTextBox("TbCantidadF").Enabled = False
             End If