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,50 +3339,56 @@ Partial Class Bancos_PopIECompras
     End Sub
 
     Private Sub MandaCorreo(NombreArchivo As String, Correo As String, Optional ConAlerta As Boolean = True)
-        Try
-            Dim Msg As String = ""
-            If NombreArchivo <> "-1" Then ' 
 
-                Dim ObjMail As New ClsSisMail()
+        If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
-                Dim RutaXML As String = String.Format("{0}\XML\Pag\{1}.xml", UsuarioActual.Empresa.Ruta, NombreArchivo)
+            Try
-                Dim RutaPDF As String = String.Format("{0}\PDF\Pag\{1}.pdf", UsuarioActual.Empresa.Ruta, NombreArchivo)
 
-                Dim Cuerpo As String = "Se hace entrega del comprobante de pago"
+                Dim Msg As String = ""
-                Dim Asunto As String = "Entrega de comprobante de pago"
+                If NombreArchivo <> "-1" Then ' 
 
-                If IO.File.Exists(RutaPDF) AndAlso IO.File.Exists(RutaXML) Then
+                    Dim ObjMail As New ClsSisMail()
+                    Dim RutaXML As String = String.Format("{0}\XML\Pag\{1}.xml", UsuarioActual.Empresa.Ruta, NombreArchivo)
+                    Dim RutaPDF As String = String.Format("{0}\PDF\Pag\{1}.pdf", UsuarioActual.Empresa.Ruta, NombreArchivo)
 
-                    Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+                    Dim Cuerpo As String = "Se hace entrega del comprobante de pago"
+                    Dim Asunto As String = "Entrega de comprobante de pago"
 
-                    LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaPDF})
+                    If IO.File.Exists(RutaPDF) AndAlso IO.File.Exists(RutaXML) Then
-                    LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaXML})
 
-                    If ObjMail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Cuerpo, "", LSRutasMail) Then
+                        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
 
-                        If ConAlerta Then
+                        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaPDF})
-                            RegistraScript("$('#ModalDivMail').modal('hide');")
+                        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaXML})
-                            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+
+                        If ObjMail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Cuerpo, "", LSRutasMail) Then
+
+                            If ConAlerta Then
+                                RegistraScript("$('#ModalDivMail').modal('hide');")
+                                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+                            End If
+
+                        Else
+                            Msg = "No se pudo enviar el correo electrónico."
                         End If
 
                     Else
-                        Msg = "No se pudo enviar el correo electrónico."
+                        Msg = "No se pudo adjuntar el correo electrónico."
                     End If
 
-                Else
-                    Msg = "No se pudo adjuntar el correo electrónico."
                 End If
 
-            End If
+                If ConAlerta AndAlso Msg <> "" Then
-
+                    Alert(Msg, TipoMensaje.MsgError)
-            If ConAlerta AndAlso Msg <> "" Then
+                End If
-                Alert(Msg, TipoMensaje.MsgError)
-            End If
 
 
-        Catch ex As Exception
+            Catch ex As Exception
-            OnError("Ocurrió error al mandar MAIL", ex)
+                OnError("Ocurrió error al mandar MAIL", ex)
+
+            End Try
+        End If
+
 
-        End Try
     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()