No enviar notificaion pago layout y layout grupos

Bancos/IE.aspx.vb

@@ -3351,6 +3351,9 @@ Partial Class Bancos_IE
 
 #Region "  NOTIFICACION PAGO  "
     Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
+
+        If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
+
             Dim Param As New List(Of String)
 
             Param.Add(CorreoNotificarA) 'Para
@@ -3361,6 +3364,11 @@ Partial Class Bancos_IE
 
             Dim Hilo As New Threading.Thread(AddressOf MandaCorreo)
             Hilo.Start(Param)
+
+        End If
+
+
+
     End Sub
     Private Sub MandaCorreo(data As Object)
         Dim Parametros As List(Of String) = DirectCast(data, List(Of String))

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -966,6 +966,16 @@ Partial Class Bancos_PagoElectronicoGrupos
                 RegistrosPago.Append("PSC")
             End If
 
+
+            If drow("CLABEDestino").ToString.Trim.Length.Contiene(10, 18) Then
+                RegistrosPago.Append(drow("CLABEDestino").ToString.PadLeft(18, CeroRelleno))
+            Else
+                ErrorLayout = True
+                MENSAJEError.AppendLine("ERROR EN CLABE cuenta destino")
+                Exit For
+            End If
+
+
             If drow("CLABEOrigen").ToString.Trim.Length.Contiene(10, 18) Then
 
                 RegistrosPago.Append(drow("CLABEOrigen").ToString.PadLeft(18, CeroRelleno))
@@ -976,13 +986,7 @@ Partial Class Bancos_PagoElectronicoGrupos
                 Exit For
             End If
 
-            If drow("CLABEDestino").ToString.Trim.Length.Contiene(10, 18) Then
+
-                RegistrosPago.Append(drow("CLABEDestino").ToString.PadLeft(18, CeroRelleno))
-            Else
-                ErrorLayout = True
-                MENSAJEError.AppendLine("ERROR EN CLABE cuenta destino")
-                Exit For
-            End If
 
             RegistrosPago.Append(drow("Abreviatura").ToString)
             RegistrosPago.Append(drow("Abonado").ToString.ToDecimal.ToString("0000000000000.00"))

Bancos/ProveedoresAbonar.aspx.vb

@@ -2680,6 +2680,8 @@ Partial Class Bancos_ProveedoresAbonar
 #Region "  NOTIFICACION PAGO  "
 
     Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
+
+        If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
             'Dim Param As New List(Of String)
 
             'Param.Add(CorreoNotificarA) 'Para
@@ -2696,6 +2698,8 @@ Partial Class Bancos_ProveedoresAbonar
 
             Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, Comprobante, File))
             Hilo.Start()
+        End If
+
     End Sub
 
     Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte())