SMS - Entrega almacén. con lotes

Inventarios/EntregaAlmacen.aspx.vb

@@ -1028,7 +1028,7 @@ Partial Class Inventarios_EntregaAlmacen
         CargaGvDatos()
 
     End Sub
-    Private Sub CargaGvDatos(Optional CveAlmacen As Integer = -1)
+    Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True)
 
         If DtDatos IsNot Nothing Then
 
@@ -1054,10 +1054,10 @@ Partial Class Inventarios_EntregaAlmacen
             If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then
                 GvDatos.Columns(10).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
             End If
-            'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
-
-            'SugerirFecha()
-            If DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
+            'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
+
+            'SugerirFecha()
+            If RecargaVenta AndAlso DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
                 CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, CveOS:=CveOSSurtir)
 
                 If CargaBitacora Then
@@ -4182,8 +4182,13 @@ Partial Class Inventarios_EntregaAlmacen
         Next
         DtDatos.AcceptChanges()
 
-        CargaGvDatos()
-
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            CargaGvDatos(False)
+        Else
+            CargaGvDatos(True)
+        End If
+
+
         index2 = 0
         For Each Row As DataRow In DtDatos.Rows
             GvDatos.Rows(index2).FCCheckBox("cbInv").Checked = CBool(Row("Seleccionado"))
@@ -4328,8 +4333,8 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
 
     Private Sub RecargaporAlmacenes()
-        If DdlAlmacen.SelectedValue <> "-1" Then
-            CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero)
+        If DdlAlmacen.SelectedValue <> "-1" AndAlso Not (UsuarioActual.Empresa.Funcionalidad(578) = "1") Then
+            CargaGvDatos()
         End If
     End Sub