-- mejora en cancelación de OS

OS/OrdenesServicios.aspx.vb

@@ -3099,6 +3099,7 @@ Partial Class OS_OrdenesServicios
             Dim ObjInventario As New ClsInventarios(ObjV.IniciaTransacSQL())
             Dim ObjConta As New ClsContabilidad(ObjV.IniciaTransacSQL())
             Dim GenerarRemisionMovimientos As Boolean = False
+            Dim AplicaDevolucion As Boolean = False
 
             If DdlTipoVenta.SelectedValue = "5" Then 'Consignación - Uso Material
                 'genera una salida de almacen.
@@ -3188,7 +3189,6 @@ Partial Class OS_OrdenesServicios
                 '' otros opciones <> 5
                 If ProcesoOK Then
 
-                    Dim AplicaDevolucion As Boolean = False
                     Dim StrCveVentasDetalle As New StringBuilder
                     For Each GvRow As GridViewRow In GvMU.Rows
                         Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero
@@ -3384,11 +3384,17 @@ Partial Class OS_OrdenesServicios
                         Alert("El material utilizado se guardó correctamente")
                     End If
                 End If
+                Dim Contenido As String = $" OS #{LblFolio.Text}<br/> Hospital: {If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text)} <br/>Folio {LblFolio.Text}<br/>"
+                'genera notificación
+                If AplicaDevolucion Then 'notif a almacen
+                    EnviaNotificacion("listado productos")
+                End If
+
 
                 RegistraScript("$('#DivModalMaterialUtilizado').modal('hide');")
-                CargaEventoBitacora()
+                    CargaEventoBitacora()
-            Else
+                Else
-                ObjV.RollBack()
+                    ObjV.RollBack()
                 Alert("Se presento un error al guardar el material", TipoMensaje.MsgAdvertencia)
             End If
 
@@ -3396,6 +3402,28 @@ Partial Class OS_OrdenesServicios
         End If
     End Sub
 
+    Private Sub EnviaNotificacion(Contenido As String)
+        Dim ObjMail As New ClsSisMail()
+        Dim Asunto As String = "Notificación de recolección de Producto"
+        Dim CorreoDestino As String = ""
+
+        If ObjMail.SendMail(UsuarioActual.Empresa, CorreoDestino, Asunto, Contenido) Then
+
+        End If
+
+    End Sub
+
+    Private Sub EnviaNotificacionSMS(Tipo As Integer, Folio As String, FechaCirugía As DateTime, Hospital As String, Medico As String, Procedimiento As String, Técnico As String, Vendedor As String, Remision As String, dtMaterial As DataTable)
+        Dim ObjMail As New ClsSisMail()
+        Dim Asunto As String = "Notificación de recolección de Producto"
+        Dim CorreoDestino As String = ""
+
+        If ObjMail.SendMail(UsuarioActual.Empresa, CorreoDestino, Asunto, Contenido) Then
+
+        End If
+
+    End Sub
+
 
     Private Function GuardarArchivoConfirmacion(ByRef transaccion As SqlTransaction, CveOSActual As Integer, CveVentaRemisionGenerada As Integer) As Boolean
         Dim respuesta As Boolean = False