Solicitud de devolución dede OS

Inventarios/EntregaAlmacen.aspx.vb

@@ -3010,6 +3010,15 @@ Partial Class Inventarios_EntregaAlmacen
             OnError("Ocurrió un error al guardar", ex)
         End Try
 
+
+
+        If EsDevolucionVenta = 1 AndAlso CveOSSurtir > 0 AndAlso TipoMovimiento = 2 Then
+            If Not CierreOS(CveOSSurtir) Then
+                ErrorMovInv = True
+                Alert("Error al finalizar orden de servicio", TipoMensaje.MsgError)
+            End If
+        End If
+
         If Not ErrorMovInv Then
 
             ObjInventario.Commit()
@@ -4217,5 +4226,25 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
 
-    End Sub
+    End Sub
+
+    Private Function CierreOS(CveOSCerrar As Integer) As Boolean
+
+        Dim Respuesta As Boolean = True
+
+        Dim CveOSEstatusFinalizada As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 4").ToEntero
+
+        If CveOSEstatusFinalizada > 0 Then
+            Dim ObjOS As New ClsOS()
+            Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
+            ObjOS.Dispose()
+        Else
+            Alert("No se pudo obtener el estado para finalizar la orden de servicio.")
+            Respuesta = False
+        End If
+
+        Return Respuesta
+
+    End Function
+
 End Class