diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 5797aae3b..eaa4cc8f1 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -1300,8 +1300,8 @@ Partial Class OS_OrdenesServicios
             Row.FCLinkButton("imgEstatus").CssClass = "btn btn-circle btn-sm green"
         Else
             Row.FCLinkButton("imgEstatus").Enabled = False
-            'TmpDT.Rows(Row.RowIndex)("Estatus") = "False"
-            'Row.FCLinkButton("imgEstatus").CssClass = "btn btn-circle btn-sm red"
+            TmpDT.Rows(Row.RowIndex)("Estatus") = "False"
+            Row.FCLinkButton("imgEstatus").CssClass = "btn btn-circle btn-sm red"
         End If
     End Sub
     Private Sub BtnAddGvDetalle_Click(sender As Object, e As EventArgs) Handles BtnAddGvDetalle.Click
@@ -2265,9 +2265,16 @@ Partial Class OS_OrdenesServicios
                 TieneError = True
             End If
 
+            'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
+            If ErrorExistencia Then
+                Alert("Ocurrió un error en la existencia", TipoMensaje.MsgError)
+                TieneError = True
+            End If
+
             If Not TieneError Then
                 Dim ObjOS As New ClsOS
-                For Each Row As DataRow In TmpDTMaterialesDetalle.Rows
+                Dim MaterialesDetalleNuevos As DataTable = TmpDTMaterialesDetalle.FiltraParametros("CveMaterial = -1")
+                For Each Row As DataRow In MaterialesDetalleNuevos.Rows
                     Dim CveUM As Integer = Row("CveUM").ToString.ToEntero
                     Dim CvePS As Integer = Row("CvePS").ToString.ToEntero
                     Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero
@@ -2287,13 +2294,6 @@ Partial Class OS_OrdenesServicios
                 ObjOS.Dispose()
             End If
 
-
-            'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
-            If ErrorExistencia Then
-                Alert("Ocurrió un error en la existencia", TipoMensaje.MsgError)
-                TieneError = True
-            End If
-
             If Not TieneError Then
                 ObjInventario.Commit()
                 Alert($"El Traspaso se guardó correctamente con el folio #: <b>{Folio}</b>.", TipoMensaje.MsgInformacion, $"document.location.href=""/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}""")