Pendientes BDH

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2882,6 +2882,12 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
             End If
 
+            If UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 3 Then
+                If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 2, UsuarioActual.CveUsuario) Then
+                    ErrorMovInv = True
+                End If
+            End If
+
             'AGREGA BITACORA TEMPORAL
             If DtBitacora IsNot Nothing AndAlso DtBitacora.Rows.Count > 0 Then
                 ErrorMovInv = GuardaBitacoraTemporal(ObjBitacora, CveMovimiento)