-

Bancos/CreditosPagoMultiple.aspx.vb

@@ -216,7 +216,7 @@ Partial Class Bancos_CreditosPagoMultiple
         Dim filemove As String = ""
         Dim Comprobante As String = ""
         For Each fileItem As Archivo In filesgral
-            Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
+            Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             filemove = fileItem.filename
         Next
 

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

@@ -978,7 +978,10 @@ Partial Class Bancos_PopIECompras
 
             Case 2
                 LblPagueseA.Text = "Beneficiario"
-        End Select
+        End Select
+
+
+
         CargaCuentas()
         CargaCuentasDepositos()
         UpDatos.Update()
@@ -3335,51 +3338,57 @@ Partial Class Bancos_PopIECompras
         Alert(Str.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
     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()
-                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 Cuerpo As String = "Se hace entrega del comprobante de pago"
-                Dim Asunto As String = "Entrega de comprobante de pago"
-
-                If IO.File.Exists(RutaPDF) AndAlso IO.File.Exists(RutaXML) Then
-
-                    Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
-
-                    LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaPDF})
-                    LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaXML})
-
-                    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 adjuntar el correo electrónico."
-                End If
-
-            End If
-
-            If ConAlerta AndAlso Msg <> "" Then
-                Alert(Msg, TipoMensaje.MsgError)
-            End If
+    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 ' 
+
+                    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 Cuerpo As String = "Se hace entrega del comprobante de pago"
+                    Dim Asunto As String = "Entrega de comprobante de pago"
+
+                    If IO.File.Exists(RutaPDF) AndAlso IO.File.Exists(RutaXML) Then
+
+                        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+
+                        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaPDF})
+                        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaXML})
+
+                        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 adjuntar el correo electrónico."
+                    End If
+
+                End If
+
+                If ConAlerta AndAlso Msg <> "" Then
+                    Alert(Msg, TipoMensaje.MsgError)
+                End If
+
+
+            Catch ex As Exception
+                OnError("Ocurrió error al mandar MAIL", ex)
+
+            End Try
+        End If
 
 
-        Catch ex As Exception
-            OnError("Ocurrió error al mandar MAIL", ex)
-
-        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()
 

Bancos/RepSaldosDetalle.aspx

@@ -6,25 +6,49 @@
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
     <li>
-    <asp:LinkButton ID="ImgExcel" runat="server"   ><img src="/Imagenes/IconoExcel.gif" /> Generar</asp:LinkButton></li>
+    <asp:LinkButton ID="ImgExcel" runat="server"   ><img src="/Imagenes/IconoExcel.gif" /> Excel</asp:LinkButton></li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    Reporte de Saldos Bancarios Detalle&nbsp;-&nbsp;<asp:Label ID="LblCuenta" runat="server" Text=""></asp:Label>
+    Reporte de Saldos Bancarios Detalle
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
       <li>
-        <asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-ad-pdf"></i> Imprimir</asp:LinkButton>
+        <asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-ad-pdf"></i> PDF</asp:LinkButton>
     </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
     <br />
     <div class="row">
-        <div class="col-md-11">
+        <div class="col-md-1" >
+            <asp:Label runat="server" Width="100%" Style="text-align: right;">Banco: </asp:Label>
+        </div>
+        <div class="col-md-1">
+            <asp:Label runat="server" Font-Bold="true" ID="lbBancoNombre"></asp:Label>
+        </div>
+        <div class="col-md-1">
+            <asp:Label runat="server" ID="lblBancoCuenta" Width="100%" Style="text-align: right;">Cuenta: </asp:Label>
+        </div>
+        <div class="col-md-1">
+            <asp:Label ID="LblCuenta" Font-Bold="true" runat="server" Text=""></asp:Label>
+        </div>
+        <div class="col-md-1" >
+            <asp:Label runat="server" Width="100%" Style="text-align: right;">Fecha Inicial: </asp:Label>
+        </div>
+        <div class="col-md-1">
+            <asp:Label runat="server" Font-Bold="true" ID="LblFechaI"></asp:Label>
+        </div>
+        <div class="col-md-1" >
+            <asp:Label runat="server" Width="100%" Style="text-align: right;">Fecha Fin: </asp:Label>
+        </div>
+        <div class="col-md-1">
+            <asp:Label runat="server" Font-Bold="true" ID="LblFechaF"></asp:Label>
+        </div>
+        <div class="col-md-3">
             <asp:Label ID="LblTextoSaldoInicial" runat="server" Text="Saldo Inicial: $ " Width="100%" Style="text-align: right;"></asp:Label>
         </div>
         <div class="col-md-1">
-            <asp:Label ID="LblSaldoInicial" Font-Bold="true" runat="server" Text="" Width="100%" Style="text-align: right;"></asp:Label>
+            <asp:Label ID="LblSaldoInicial" Font-Bold="true" runat="server" Text="" Width="100%" ></asp:Label>
         </div>
     </div>
     <br />

Bancos/RepSaldosDetalle.aspx.vb

@@ -155,6 +155,9 @@ Partial Class Bancos_RepSaldosDetalle
                 Cuenta = dr("NumCuenta").ToString
                 CLABE = dr("CLABE").ToString
                 Banco = dr("Banco").ToString
+                lbBancoNombre.Text = Banco
+                LblFechaI.Text = FechaInicio
+                LblFechaF.Text = FechaFin
                 If CveCuenta > 0 Then
                     LblCuenta.Text = dr("NumCuenta").ToString
                     LblSaldoInicial.Text = dr("SaldoInicial").ToString.ToDouble.FormatoNumero
@@ -174,13 +177,15 @@ Partial Class Bancos_RepSaldosDetalle
     End Sub
 
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        GvS.ExportToExcel("ReporteSaldos" & Now.ToShortDateString)
+        ImprimirReporte("Excel")
     End Sub
 
-
-
 #Region "P D F"
     Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
+        ImprimirReporte("PDF")
+    End Sub
+
+    Private Sub ImprimirReporte(formato As String)
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
@@ -215,7 +220,7 @@ Partial Class Bancos_RepSaldosDetalle
             params.Add(New ReportParameter("LogoPath", ""))
         End If
 
-        ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle")
+        ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle", Formato:=formato)
 
         Ban.Dispose()
     End Sub

Bancos/Reportes.aspx.vb

@@ -141,7 +141,7 @@ Partial Class Bancos_Reportes
                         rv.LocalReport.DataSources.Clear()
                         rv.LocalReport.DataSources.Add(rds)
                         rv.LocalReport.DataSources.Add(rds2)
-                        rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Bancos\Reportes\rptChequeMovimientos.rdlc"
+                        rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\rptChequeMovimientos.rdlc"
                         rv.LocalReport.Refresh()
 
                         Dim paramList As New List(Of ReportParameter)