diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index d72277ae2..2370b8389 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -11024,5 +11024,63 @@ Public Class ClsPaginas
     End Function
 #End Region
 
+    Public Shared Sub EnviaNotificacionSMS(Tipo As Integer, tEmpresa As Empresa, CveOS As Integer, Folio As String, FechaCirugía As DateTime, Hospital As String, Medico As String, Procedimiento As String, Tecnico As String, Vendedor As String, Remision As String, ListaPS As List(Of GenericaCantidadProducto), CorreoDestino As String)
+        Dim ObjMail As New ClsSisMail()
+        Dim Asunto As String = ""
+        Dim Contenido As New StringBuilder
+        Contenido.Append("<html>")
+        Contenido.Append("<head>")
+        Contenido.Append("<meta charset='UTF-8'>")
+        Contenido.Append("</head>")
+        Contenido.Append("  <body style='width:800px'>")
+        'Contenido.Append("<div>")
+        'Contenido.Append($"<img src='http://sms.adssistemas.mx/Empresas/186/Logo.png' style='width:200px'></img>")
+        'Contenido.Append("</div>")
+        Select Case Tipo
+            Case 6
+                Asunto = "Tu pedido ha sido entregado"
+                Contenido.AppendFormat("    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
+            Case 9
+                Asunto = "Material Utilizado en tu CX"
+                Contenido.AppendFormat("    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
+            Case 10
+                Asunto = "Material por recolectar; Remisión: " & Remision
+                Contenido.AppendFormat("    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
+            Case 11
+                Asunto = "Sin material por recolectar ; Remisión " & Remision
+                Contenido.AppendFormat("    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
+            Case 12
+                Asunto = "Remisión por facturar ### (folio de Remisión)"
+                Contenido.AppendFormat("Remisión: <a href='https://sms.adssistemas.mx/Ventas/Vetas.aspx?CveVenta={0}'>{1}</a><br/>", CveOS, Folio)
+        End Select
+
+        Contenido.AppendFormat("Fecha y hora de cx: {0}<br/>", FechaCirugía.ToString("dd/MM/yyyy HH:mm"))
+        Contenido.AppendFormat("Hospital: {0}<br/>", Hospital)
+        Contenido.AppendFormat("Médico: {0}<br/>", Medico)
+        Contenido.AppendFormat("Procedimiento: {0}<br/>", Procedimiento)
+        If Tecnico <> "" Then Contenido.AppendFormat("Técnico: {0}<br/>", Tecnico)
+        Contenido.AppendFormat("Vendedor: {0}<br/>", Vendedor)
+        Contenido.AppendFormat("Remisión: {0}<br/>", Remision)
+
+        If ListaPS.Count > 0 Then
+            Contenido.Append("  <div style='width:100%;text-align:left'>")
+            Contenido.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>")
+            Contenido.AppendFormat("<b>Productos.</b><br/>", Remision)
+            For Each ps As GenericaCantidadProducto In ListaPS
+                Contenido.AppendFormat("<tr><td style='width:25%'>{0}</td><td style='width:75%'>{1}</td></tr>", ps.Cantidad.FormatoNumero(0), ps.Producto)
+            Next
+            Contenido.Append("    </table>")
+            Contenido.Append("  </div>")
+        Else
+            Contenido.AppendFormat("<b>Sin material sobrante.</b><br/>", Remision)
+        End If
+        Contenido.AppendFormat("Remisión: {0}<br/>", Remision)
+        Contenido.Append("  </body>")
+        Contenido.Append("</html>")
+        If ObjMail.SendMail(tEmpresa, CorreoDestino, Asunto, Contenido.ToString) Then
+
+        End If
+
+    End Sub
 End Class
 
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 8715a1619..c006c98f5 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -4094,6 +4094,11 @@ Namespace Extensiones
 
 
 
+    End Class
+
+    Public Class GenericaCantidadProducto
+        Public Property Cantidad As Decimal
+        Public Property Producto As String
     End Class
 #End Region
 
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 36010d5c9..fef677302 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -4766,21 +4766,17 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim CantidadSeleccionadaOriginal As Decimal = dr1("CantidadSeleccionada").ToString.ToDecimal
         dr1("CantidadSeleccionada") = If(CantidadSeleccionadaOriginal > dr1("CantidadF").ToString.ToDecimal, dr1("CantidadF").ToString.ToDecimal, CantidadSeleccionadaOriginal)
         CantidadSeleccionadaOriginal = CantidadSeleccionadaOriginal - dr1("CantidadF").ToString.ToDecimal
-
-        Dim CostoIndirectoOriginal As Decimal = dr1("CostoIndirecto").ToString.ToDecimal
-        dr1("CostoIndirecto") = (CostoIndirectoOriginal * dr1("CantidadF").ToString.ToDecimal) / CantidadFOriginal
-        Dim CostoIndirectoExtranjeroOriginal As Decimal = dr1("CostoIndirectoExtranjero").ToString.ToDecimal
-        dr1("CostoIndirectoExtranjero") = (CostoIndirectoExtranjeroOriginal * dr1("CantidadF").ToString.ToDecimal) / CantidadFOriginal
-
         DtInv.AcceptChanges()
+        Dim CostoIndirectoOriginal As Decimal = dr1("CostoIndirecto").ToString.ToDecimal
+        Dim CostoIndirectoExtranjeroOriginal As Decimal = dr1("CostoIndirectoExtranjero").ToString.ToDecimal
 
         dr("CantidadC") = Cantidad.ToDecimal
         dr("CantidadF") = Cantidad.ToDecimal
         dr("CantidadS") = (CantidadSOriginal * dr("CantidadF").ToString.ToDecimal) / CantidadFOriginal
         dr("CantidadSeleccionada") = If(CantidadSeleccionadaOriginal > 0, CantidadSeleccionadaOriginal, 0)
         dr("Seleccionado") = If(CantidadSeleccionadaOriginal > 0, True, False)
-        dr("CostoIndirecto") = (CostoIndirectoOriginal * dr("CantidadF").ToString.ToDecimal) / CantidadFOriginal
-        dr("CostoIndirectoExtranjero") = (CostoIndirectoExtranjeroOriginal * dr("CantidadF").ToString.ToDecimal) / CantidadFOriginal
+        dr("CostoIndirecto") = CostoIndirectoOriginal
+        dr("CostoIndirectoExtranjero") = CostoIndirectoExtranjeroOriginal
         DtInv.Rows.InsertAt(dr, Index)
         DtInv.AcceptChanges()