Proveedores abonar, Pop IE Compras no enviar correo cuando cuando el tipode transaccion sea Layout o layout por grupos, correciones pago electronico por grupos

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -718,13 +718,15 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         If SBErrores.ToString.Length > 0 Then
             Mensaje.Append("<a class='Texto' data-toggle='collapse' data-target='#ErroresCuentas'>Errores Cuentas</a><br>")
-            Mensaje.Append("<div id='ErroresCuentas' Class='collapse'")
+            Mensaje.Append("<div id='ErroresCuentas' Class='collapse'>")
             Mensaje.Append(SBErrores.ToString)
             Mensaje.Append("</div>")
         End If
 
         If NombreArchivoBancomer.Length > 0 Or NombreArchivoInterbancario.Length > 0 Then
             Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
+        Else
+            Alert(Mensaje.ToString, TipoMensaje.MsgAdvertencia)
         End If
 
 
@@ -1100,8 +1102,9 @@ Partial Class Bancos_PagoElectronicoGrupos
             End If
 
 
+        Else
 
-
+            Alert(MENSAJEError.ToString, TipoMensaje.MsgAdvertencia)
 
         End If
 
@@ -2417,7 +2420,7 @@ Partial Class Bancos_PagoElectronicoGrupos
             TipoMasiva = 2
             GvProveedores.Columns(0).HeaderText = "Funcionario"
             CargaFyE()
-            BtnGenerarProveedores.Text = "Generar Layout Alta Funcionarios"
+            BtnGenerarProveedores.Text = "Generar LayoutBtnGenerarPago Alta Funcionarios"
         End If
     End Sub
     Protected Sub BtnGenerarProveedores_Click(sender As Object, e As EventArgs)

Bancos/PopIECompras.aspx.vb

@@ -979,6 +979,9 @@ Partial Class Bancos_PopIECompras
             Case 2
                 LblPagueseA.Text = "Beneficiario"
         End Select
+
+
+
         CargaCuentas()
         CargaCuentasDepositos()
         UpDatos.Update()
@@ -3336,7 +3339,10 @@ Partial Class Bancos_PopIECompras
     End Sub
 
     Private Sub MandaCorreo(NombreArchivo As String, Correo As String, Optional ConAlerta As Boolean = True)
+
+        If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
             Try
+
                 Dim Msg As String = ""
                 If NombreArchivo <> "-1" Then ' 
 
@@ -3380,6 +3386,9 @@ Partial Class Bancos_PopIECompras
                 OnError("Ocurrió error al mandar MAIL", ex)
 
             End Try
+        End If
+
+
     End Sub
 #End Region
 

Bancos/ProveedoresAbonar.aspx.vb

@@ -2377,10 +2377,23 @@ Partial Class Bancos_ProveedoresAbonar
         'cuando es cheque
         If DdlTipoTransaccion.SelectedValue = "1" Then
             ChkAbonoCuenta.Visible = True
+
+
         Else
             ChkAbonoCuenta.Visible = False
         End If
 
+        If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
+            ChkEnviarCorreo.Enabled = False
+            ChkEnviarCorreo.Checked = False
+        Else
+            ChkEnviarCorreo.Enabled = True
+            ChkEnviarCorreo.Checked = True
+        End If
+
+
+
+
         CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
         RecargaCuentasDepositos()