Promociones envio de correo con notifición de bloque por exceder el limite de descuento

Ventas/Promociones.aspx

@@ -282,6 +282,8 @@
                     <ContentTemplate>
                         <asp:Button ID="BtnGuardar" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="GrpGuardar" OnClick="BtnGuardar_Click" runat="server" />
 
+                        <asp:Button ID="BtnProvbarEnvio" Text="Provar envio" CssClass="btn btn-primary"   OnClick="BtnProvbarEnvio_Click" runat="server" />
+
                         <asp:Button ID="ButBtnEliminar" Text="Eliminar" CssClass="btn btn-danger"   OnClick="BtnEliminar_Click" runat="server" Visible="false"
                             data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"
                             />

Ventas/Promociones.aspx.vb

@@ -7,6 +7,7 @@ Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports Extensiones
 Imports iText.StyledXmlParser.Css.Resolve.Shorthand.Impl
 Imports Microsoft.Owin.Security.Provider
+Imports Telerik.Web.UI
 
 Partial Class Ventas_Promociones
     Inherits ClsPaginas
@@ -173,7 +174,6 @@ Partial Class Ventas_Promociones
                 LnkAgrgarPlantillaPS.Visible = False
 
 
-
                 ValidaPromosiones(False)
                 If EmpresaFnc382 AndAlso ChkEstatus.Checked = False AndAlso BloqueadoPromocionPorcentaje AndAlso Not PermisoAutorizPromocionPorcentaje Then
                     ChkEstatus.Enabled = False
@@ -792,6 +792,11 @@ Partial Class Ventas_Promociones
         End If
 
         ObjVentas.Dispose()
+
+        If Not TieneError AndAlso BloqueadoPromocionPorcentaje Then
+            MandaCorreoNotificacionPromocionBloqueo(CvePromocion, TxtPromocion.Text.Trim)
+        End If
+
     End Sub
 
 
@@ -847,24 +852,6 @@ Partial Class Ventas_Promociones
 
                     If Not TieneError Then
 
-                        '366 Estatus
-
-                        '367 CvePS
-                        '368 PUPromocion
-                        '369 CveTipoPromocion
-                        '370 Cantidad Minima
-                        '371 AplicaRestriccion
-                        '372 HoraInicio
-                        '373 HoraFin
-
-                        '374 AplicaLunes
-                        '375 AplicaMartes
-                        '376 AplicaMiercoles
-                        '377 AplicaJueves
-                        '378 AplicaViernes
-                        '379 AplicaSabado
-                        '380 AplicaDomingo
-                        '381 IncluyeImpuestos
 
 
                         Dim Dr2 As DataRow = TempDTOrigial.FiltraParametros($"CvePromocionDetalle = {Dr("CvePromocionDetalle").ToString}").Rows(0)
@@ -893,12 +880,7 @@ Partial Class Ventas_Promociones
                         End If
 
 
-                        'If Not TieneError And Dr("AplicaRestriccion").ToString <> Dr2("AplicaRestriccion").ToString Then
+
-                        '    If Not ObjGral.AddHistorialBitacora(371, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("AplicaRestriccion").ToString, $"{Dr("CodigoPS").ToString} - {Dr("AplicaRestriccion").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
-                        '        TieneError = True
-                        '        Exit For
-                        '    End If
-                        'End If
 
                         If Not TieneError And Dr("HoraInicio").ToString <> Dr2("HoraInicio").ToString Then
                             If Not ObjGral.AddHistorialBitacora(372, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("HoraInicio").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("HoraInicio").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
@@ -1043,7 +1025,7 @@ Partial Class Ventas_Promociones
         If EmpresaFnc382 AndAlso EstatusOriginal = False AndAlso ChkEstatus.Checked And BloqueadoPromocionPorcentaje Then
 
             Dim objGeneral As New ClsGenerales(ObjVentas.IniciaTransacSQL)
-            If Not objGeneral.AddHistorialBitacora(360, -1, -1, -1, -1, -1, -1, -1, "Si Autoriza con bloqueo", "No", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "", "", "", CvePromocion:=CvePromocion) Then
+            If Not objGeneral.AddHistorialBitacora(360, -1, -1, -1, -1, -1, -1, -1, "Se Autorizo con bloqueo", "No", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "", "", "", CvePromocion:=CvePromocion) Then
                 TieneError = True
             End If
 
@@ -1069,6 +1051,51 @@ Partial Class Ventas_Promociones
     End Sub
 #End Region
 
+#Region "ENVIAR CORREO PROMOSION BLOQUEADA"
+
+
+    Private Sub MandaCorreoNotificacionPromocionBloqueo(CvePromocionNueva As Integer, PromocionNueva As String)
+        Dim Asunto, Para, ArrayCC, Body, URL As String
+        Asunto = $"Promoción {PromocionNueva} requiere autorización"
+        Para = ""
+        ArrayCC = ""
+        URL = ""
+
+        If Request.Url.Port = 80 Then
+            URL = $"{Request.Url.Scheme}://{Request.Url.Host}{Request.Url.AbsolutePath}?CvePromocion={CvePromocionNueva}"
+        Else
+            URL = $"{Request.Url.Scheme}://{Request.Url.Host}:{Request.Url.Port}{Request.Url.AbsolutePath}?CvePromocion={CvePromocionNueva}"
+        End If
+
+        Body = $"Se a registrado promoción que requiere autorización <a href='{URL}' >{PromocionNueva}</a>"
+
+        Dim objUsu As New ClsSisUsuarios
+        Dim ListaCorreos As New List(Of String)
+        If objUsu.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 386, CveEmpresa:=UsuarioActual.CveEmpresa) Then
+            For Each dRow As DataRow In objUsu.DtResultados.Rows
+                If dRow("Correo").ToString.Trim.Length > 0 Then
+                    ListaCorreos.Add(dRow("Correo").ToString)
+                End If
+            Next
+        End If
+        objUsu.Dispose()
+
+        If ListaCorreos.Count > 0 Then
+
+            Para = String.Join(";", ListaCorreos)
+
+            Dim Mail As New ClsSisMail()
+            Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC, LSRutasMail)
+
+        End If
+
+
+    End Sub
+
+
+#End Region
+
 
 #Region "  ELIMINAR  "
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)
@@ -1412,4 +1439,8 @@ Partial Class Ventas_Promociones
 
     End Sub
 
+
+    Protected Sub BtnProvbarEnvio_Click(sender As Object, e As EventArgs)
+        MandaCorreoNotificacionPromocionBloqueo(CvePromocion, TxtPromocion.Text.Trim)
+    End Sub
 End Class