--option explicit

Bancos/PagoElectronico.aspx.vb

@@ -350,9 +350,9 @@ Partial Class Bancos_PagoElectronico
         Return True
     End Function
     Private Function GuardaTXT() As Boolean
-        Dim Retorno = True
+        Dim Retorno As Boolean = True
         Try
-            Dim Ruta = ""
+            Dim Ruta As String = ""
             Dim FileName As String = Path.GetFileName(FUTxt.PostedFile.FileName)
             NombreArchivo = FileName
             Dim Extension As String = Path.GetExtension(FUTxt.PostedFile.FileName)
@@ -438,7 +438,7 @@ Partial Class Bancos_PagoElectronico
         End If
     End Sub
     Protected Sub LBRegenerar_Click(sender As Object, e As EventArgs)
-        Dim CveBLE = CType(sender, LinkButton).CommandArgument.ToEntero
+        Dim CveBLE As Integer = CType(sender, LinkButton).CommandArgument.ToEntero
         Dim DtRegenerar As New DataTable
 
         Dim ObjBancos As New ClsBancos
@@ -523,11 +523,11 @@ Partial Class Bancos_PagoElectronico
         TotalAcumulado = 0
 
         ''VALIDA CUENTAS DEPOSITOS
-        Dim ErrorCuenta = False
+        Dim ErrorCuenta As Boolean = False
         Dim ProveedoresError As StringBuilder = New StringBuilder
         ProveedoresError.AppendFormat("<table width='600px'><thead><tr><td width='300px'>Proveedor</td><td width='150px'>Cuenta</td><td width='150px'>Error</td></tr></thead><tbody>")
         Dim TotalDetalles As Integer = 0
-        Dim EsBancomer = False
+        Dim EsBancomer As Boolean = False
         For Each gvr As DataRow In DtTemp.Rows
             If gvr("CveCuentaDeposito").ToString <> "" AndAlso gvr("EstatusPagoElectronico").ToString <> "True" AndAlso gvr("AltaCuenta").ToString = "1" Then
                 DTPendienteActual = DtTemp.FiltraParametros(String.Format("CveCuentaDeposito = {0}", gvr("CveCuentaDeposito").ToString))
@@ -626,7 +626,7 @@ Partial Class Bancos_PagoElectronico
             Descargas.AppendFormat("<li><a href=""#"" class=""Texto"" onclick=""fncg();"">Descargar Reporte</a></li>", NombreArchivo)
 
 
-            Dim TextoErrorProveedores = ""
+            Dim TextoErrorProveedores As String = ""
             If ProveedoresError.Length > 160 Then TextoErrorProveedores = String.Format("<br /><br /><br />Proveedores con Error: <br/><br/>------------------------------------------------------------------<br/>{0}<br /><br />", ProveedoresError.ToString)
 
             Alert(String.Format("<br />El Layout fue creado satisfactoriamente.{1}<br />Descargas:<ul>{0}</ul>", Descargas, TextoErrorProveedores), TipoMensaje.MsgInformacion)
@@ -639,7 +639,7 @@ Partial Class Bancos_PagoElectronico
 
     End Sub
     Protected Sub CrearDetalle()
-        Dim Resultado = True
+        Dim Resultado As Boolean = True
         Dim CuentaDeposito As String = ""
         Dim TipoCuentaDeposito As String = ""
         Dim TipoCuenta As String = ""
@@ -710,7 +710,7 @@ Partial Class Bancos_PagoElectronico
 
 
         ''LLENA DT PARA REPORTE
-        Dim Row = DtAlta.NewRow()
+        Dim Row As DataRow = DtAlta.NewRow()
         Row("Proveedor") = DTPendienteActual(0)("RazonSocial").ToString
         Row("Banco") = DTPendienteActual(0)("BancoNombre").ToString
         Row("TipoCuenta") = TipoCuentaDeposito
@@ -722,7 +722,7 @@ Partial Class Bancos_PagoElectronico
         'Persona Moral
         If DTPendienteActual(0)("RFC").ToString.Length = 12 Then
             Dim fecha As String = DTPendienteActual(0)("FechaIng").ToString
-            Dim NombreProveedor = DTPendienteActual(0)("RazonSocial").ToString.Replace("‚"c, Vacio).Replace("‚"c, Vacio).ToUpper.PadRight(50)
+            Dim NombreProveedor As String = DTPendienteActual(0)("RazonSocial").ToString.Replace("‚"c, Vacio).Replace("‚"c, Vacio).ToUpper.PadRight(50)
             NombreProveedor = If(NombreProveedor.Length > 50, NombreProveedor.Substring(0, 50), NombreProveedor)
 
             'Campo 18-20 del detalle
@@ -759,7 +759,7 @@ Partial Class Bancos_PagoElectronico
                     Dim NombreComplejo As New List(Of String)
 
                     'ignoramos cualquier palabra del nombre que tenga un length igual o menor a 2
-                    For index = 0 To Nombre.Length - 1
+                    For index As Integer = 0 To Nombre.Length - 1
                         If Nombre(index).Length > 2 Then
                             NombreComplejo.Add(Nombre(index))
                         End If
@@ -772,10 +772,10 @@ Partial Class Bancos_PagoElectronico
                     ElseIf NombreComplejo.Count = 4 Then
                         DetalleTexto &= String.Format("F{0}{1}{2}{3}", Vacio.PadRight(70), (NombreComplejo.Item(0) & " " & NombreComplejo.Item(1)).PadRight(20).Substring(0, 20), NombreComplejo.Item(2).PadRight(20).Substring(0, 20), NombreComplejo.Item(3).PadRight(20).Substring(0, 20))
                     ElseIf NombreComplejo.Count > 4 Then
-                        Dim Nombres = ""
+                        Dim Nombres As String = ""
 
                         'todas las palabras menos las 2 ultimas forman parte del nombre 
-                        For index = 0 To NombreComplejo.Count - 3
+                        For index As Integer = 0 To NombreComplejo.Count - 3
                             If Nombres <> "" Then Nombres += " "
                             Nombres += NombreComplejo.Item(index)
                         Next
@@ -810,7 +810,7 @@ Partial Class Bancos_PagoElectronico
         HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
         'Campos #6-8 del Header
         HeaderTexto &= String.Format("00").PadRight(586)
-        Dim HeaderLength = HeaderTexto.Length
+        Dim HeaderLength As Integer = HeaderTexto.Length
 
         ''''' LLENADO DE TRAILER
         TrailerTexto = String.Format("T{0}{1}{2}", Registros.ToString.PadLeft(10, PadCeros), Vacio.PadRight(50, PadCeros), Vacio.PadRight(575))
@@ -873,18 +873,18 @@ Partial Class Bancos_PagoElectronico
         'Insertar en LayoutEnvios
         Dim ObjBancos As New ClsBancos
         ObjBancos.IniciaTransacSQL()
-        Dim ErrorLayout = False
+        Dim ErrorLayout As Boolean = False
 
         Dim TotalDetalles As Integer = 0
 
         'CREA CARPETA SI NO EXISTE
         Dim path As String = Server.MapPath(String.Format("~/Empresas/{0}/Layout/", UsuarioActual.CveEmpresa))
-        Dim exists = System.IO.Directory.Exists(path)
+        Dim exists As Boolean = System.IO.Directory.Exists(path)
         If Not exists Then
             System.IO.Directory.CreateDirectory(path)
         End If
 
-        Dim CveIEs = ""
+        Dim CveIEs As String = ""
         CreaDtPago()
 
         For Each gvr As DataRow In DTTemp.Rows
@@ -915,7 +915,7 @@ Partial Class Bancos_PagoElectronico
 
             'GUARDAMOS EL ENVIO SI NO ES REGENERACION
         Else
-            Dim CveLayoutEnvio = ObjBancos.AddLayoutEnvios(NombreArchivo, Date.Now, CveCuenta)
+            Dim CveLayoutEnvio As Integer = ObjBancos.AddLayoutEnvios(NombreArchivo, Date.Now, CveCuenta)
 
             If CveLayoutEnvio > 0 Then
                 For Each dr As DataRow In DTTemp.Rows
@@ -937,7 +937,7 @@ Partial Class Bancos_PagoElectronico
             ObjBancos.Dispose()
 
 
-            Dim Des = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)
+            Dim Des As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)
             Dim Descargas As New StringBuilder()
             Descargas.AppendFormat("<li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?File={0}"" target='_blank'>TXT</a></li>", NombreArchivo)
             ' Descargas.AppendFormat("<li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?REPORTE=S"" target='_blank'>Reporte</a></li>", NombreArchivo)
@@ -978,7 +978,7 @@ Partial Class Bancos_PagoElectronico
 
 
         ''CLAVE DE REGISTRO PARA CONTROL PROPIO ADSISTEMAS -- orita se esta guardando en el campo #9
-        Dim Cve = String.Format("CVEIE{0}", DTPendienteActual(0)("CveIE").ToString).ToUpper 'cveIE
+        Dim Cve As String = String.Format("CVEIE{0}", DTPendienteActual(0)("CveIE").ToString).ToUpper 'cveIE
 
 
         ''''' LLENADO DE DETALLE
@@ -1002,17 +1002,15 @@ Partial Class Bancos_PagoElectronico
         End If
 
         'OBTENEMOS EL CORREO DEL PROVEEDOR 
-        Dim Correo = CorreoNotificacionesEmpresa.ToUpper.PadRight(50)
+        Dim Correo As String = CorreoNotificacionesEmpresa.ToUpper.PadRight(50)
         'Correo = If(Correo.Length > 0, Correo.ToUpper.PadRight(50), Vacio.PadRight(50))
 
         'Campos 24-50 del Detalle                                                                  0             1                                                     2                                                 3                 4                       5                                     6                      7              8                     9
         DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Correo, Vacio.PadRight(12, PadCeros), DateTime.Now.ToString("yyyy-MM-dd"), "0001-01-01", Observaciones.PadRight(700), Vacio.PadRight(52))
         TotalAcumulado += Importe.ToDouble
 
-
-
         ''LLENA DTPAGOS PARA REPORTE
-        Dim Row = DtPago.NewRow()
+        Dim Row As DataRow = DtPago.NewRow()
         Row("Proveedor") = DTPendienteActual(0)("RazonSocial").ToString
 
         If DTPendienteActual(0)("CIE").ToString <> "" Then
@@ -1070,7 +1068,7 @@ Partial Class Bancos_PagoElectronico
 
 
     Protected Sub BtnCargarAlta_Click(sender As Object, e As EventArgs)
-        Dim ErrorArchivo = False
+        Dim ErrorArchivo As Boolean = False
 
         If FUTxt.HasFile Then
             If Not GuardaTXT() Then
@@ -1090,18 +1088,18 @@ Partial Class Bancos_PagoElectronico
         Texto = sr.ReadToEnd()
         sr.Close()
 
-        Dim TextoArreglo() = Texto.Split(CChar(vbCrLf))
+        Dim TextoArreglo As String() = Texto.Split(CChar(vbCrLf))
 
         'Alert(TextoArreglo.Length.ToString)
 
         'LEE LINEA POR LINEA
-        Dim RespuestaHeader = "", RespuestaDetalle = "", RespuestaTrailer = "", CveCuentasDeposito = ""
+        Dim RespuestaHeader As String = "", RespuestaDetalle As String = "", RespuestaTrailer As String = "", CveCuentasDeposito As String = ""
         CreaDtAlta()
         Dim ObjGrales As New ClsGenerales
         Dim Row As DataRow = Nothing
-        Dim TipoCuentaDeposito = ""
+        Dim TipoCuentaDeposito As String = ""
 
-        For i = 0 To TextoArreglo.Length - 1 Step 1
+        For i As Integer = 0 To TextoArreglo.Length - 1 Step 1
             'Valida que el primer renglon sea el HEADER
             If i = 0 Then
                 If TextoArreglo(i).Substring(0, 1) <> "H" Then
@@ -1211,10 +1209,10 @@ Partial Class Bancos_PagoElectronico
             End If
 
             'DIVIDE DETALLE
-            Dim Detalle() = RespuestaDetalle.Split(CChar(vbCrLf))
+            Dim Detalle As String() = RespuestaDetalle.Split(CChar(vbCrLf))
 
             'DIVIDE TRAILER
-            Dim Trailer() = RespuestaTrailer.Split(CChar(vbCrLf))
+            Dim Trailer As String() = RespuestaTrailer.Split(CChar(vbCrLf))
 
             'ARMADO DE RESPUESTA
             Respuesta.AppendFormat("<br/>Resumen de respuesta:  {0} <br/>", RespuestaHeader)
@@ -1225,9 +1223,9 @@ Partial Class Bancos_PagoElectronico
             'For i = 0 To Detalle.Length - 1
             '    Respuesta.AppendFormat("<tr><td align='center'>{0}</td>{1}</tr>", i + 1, Detalle(i).Trim)
             'Next
-            Dim i = 1
+            Dim i As Integer = 1
-            Dim Style = ""
+            Dim Style As String = ""
-            Dim TotalExitos = 0, TotalFracasos = 0
+            Dim TotalExitos As Integer = 0, TotalFracasos As Integer = 0
             For Each dr As DataRow In DtAlta.Rows
 
                 If dr("estatus").ToString.Trim.Contiene("OPERACION EXITOSA", "ALTA TERCERO EXITOSO") Then
@@ -1258,11 +1256,11 @@ Partial Class Bancos_PagoElectronico
 
             If CveCuentasDeposito <> "" Then
                 Dim ObjIE As New ClsBancos
-                Dim ErrorDB = False
+                Dim ErrorDB As Boolean = False
                 ObjIE.IniciaTransacSQL()
-                Dim ArrayCuentasDeposito() = CveCuentasDeposito.Split(","c)
+                Dim ArrayCuentasDeposito As String() = CveCuentasDeposito.Split(","c)
 
-                For index = 0 To ArrayCuentasDeposito.Length - 1
+                For index As Integer = 0 To ArrayCuentasDeposito.Length - 1
                     If Not ObjIE.UpdateCuentaDepositoPagoElectronico(ArrayCuentasDeposito(index).ToEntero) Then
                         ErrorDB = True
                     End If
@@ -1323,8 +1321,8 @@ Partial Class Bancos_PagoElectronico
 
 
     Protected Sub BtnCargarPago_Click(sender As Object, e As System.EventArgs)
-        Dim ErrorArchivo = False
+        Dim ErrorArchivo As Boolean = False
-        Dim TextoErrorArchivo = "Ocurrió un problema al leer el archivo, por favor revise que el archivo sea el correcto e intente de nuevo."
+        Dim TextoErrorArchivo As String = "Ocurrió un problema al leer el archivo, por favor revise que el archivo sea el correcto e intente de nuevo."
 
         If FUTxt.HasFile Then
             If Not GuardaTXT() Then
@@ -1342,17 +1340,17 @@ Partial Class Bancos_PagoElectronico
         Dim sr As New System.IO.StreamReader(NombreArchivo)
         Texto = sr.ReadToEnd()
         sr.Close()
-        Dim TextoArreglo() = Texto.Split(CChar(vbCrLf))
+        Dim TextoArreglo As String() = Texto.Split(CChar(vbCrLf))
 
         'INICIALIZA VARIABLES
         Dim ObjBancos As New ClsBancos
-        Dim RespuestaHeader = "", RespuestaDetalle = "", RespuestaTrailer = "", Proveedor = "", CuentaAbono = "", Estatus = "", CveIEs = "", EstatusIEs = "", FechaMovto = "", Correos = ""
+        Dim RespuestaHeader As String = "", RespuestaDetalle As String = "", RespuestaTrailer As String = "", Proveedor As String = "", CuentaAbono As String = "", Estatus As String = "", CveIEs As String = "", EstatusIEs As String = "", FechaMovto As String = "", Correos As String = ""
         Dim Row As DataRow = Nothing
-        Dim Convenio = ""
+        Dim Convenio As String = ""
         CreaDtPago()
 
         'LEE LINEA POR LINEA
-        For i = 0 To TextoArreglo.Length - 1
+        For i As Integer = 0 To TextoArreglo.Length - 1
             'Valida que el primer renglon sea el HEADER
             If i = 0 Then
                 If TextoArreglo(i).Substring(0, 1) <> "H" Then
@@ -1504,7 +1502,7 @@ Partial Class Bancos_PagoElectronico
         If Not ErrorArchivo Then
 
             'DIVIDE HEADER
-            Dim Header() = RespuestaHeader.Split(CChar("|"))
+            Dim Header As String() = RespuestaHeader.Split(CChar("|"))
             'TRADUCE CODIGO RESPUESTA HEADER
             If Header(0) = "01" Then
                 RespuestaHeader = "ACEPTADO TOTAL"
@@ -1516,14 +1514,14 @@ Partial Class Bancos_PagoElectronico
             RespuestaHeader += String.Format("<br/>Cuenta Cargo: {0}", Header(1))
 
             'DIVIDE DETALLE
-            Dim Detalle() = RespuestaDetalle.Split(CChar(vbCrLf))
+            Dim Detalle As String() = RespuestaDetalle.Split(CChar(vbCrLf))
 
             'ARMADO DE RESPUESTA
             Respuesta.AppendFormat("<br/>Resumen de respuesta: {0}<br/>", RespuestaHeader)
             Respuesta.AppendFormat("Numero de movimientos: {0} <br/><br/>", Detalle.Length.ToString)
             Respuesta.Append("----------------------------------------------------- Detalle de los movimientos -------------------------------------------------- <br/> ")
             Respuesta.Append("<table width='700px'><thead><tr><td width='30px' align='center'>#</td><td width='200px'>Proveedor</td><td width='50px'>Importe($)</td><td width='10px'></td><td width='30px' align='center'>Moneda</td><td width='300px'>Estatus</td></tr></thead><tbody>")
-            For i = 0 To Detalle.Length - 1
+            For i As Integer = 0 To Detalle.Length - 1
                 Respuesta.AppendFormat("<tr><td align='center'>{0}</td>{1}</tr>", i + 1, Detalle(i).Trim)
             Next
             Respuesta.Append("</tbody></table> ---------------------------------------------------------------------------------------------------------------------- <br/>")
@@ -1535,17 +1533,17 @@ Partial Class Bancos_PagoElectronico
         If Not ErrorArchivo Then
             If CveIEs <> "" Then
                 Dim ObjIE As New ClsBancos
-                Dim ErrorDB = False
+                Dim ErrorDB As Boolean = False
                 ObjIE.IniciaTransacSQL()
-                Dim ArrayCveIEs() = CveIEs.Split(","c)
+                Dim ArrayCveIEs As String() = CveIEs.Split(","c)
-                Dim ArrayEstatusIEs() = EstatusIEs.Split(","c)
+                Dim ArrayEstatusIEs As String() = EstatusIEs.Split(","c)
-                Dim ArrayFechasMovto() = FechaMovto.Split(","c)
+                Dim ArrayFechasMovto As String() = FechaMovto.Split(","c)
-                Dim ArrayCorreos() = Correos.Split("|"c)
+                Dim ArrayCorreos As String() = Correos.Split("|"c)
 
                 Dim ArregloHilos As New Generic.List(Of System.Threading.Thread)
                 Dim ArregloParametros As New Generic.List(Of List(Of String))
 
-                For index = 0 To ArrayCveIEs.Length - 1
+                For index As Integer = 0 To ArrayCveIEs.Length - 1
                     If ObjIE.UpdatePagoElectronicoCarga(ArrayCveIEs(index).ToEntero, ArrayEstatusIEs(index).ToEntero) Then
 
                         'Cuando salio exitoso actualizamos el IE 
@@ -1613,11 +1611,6 @@ Partial Class Bancos_PagoElectronico
                         EnviarCorreoNotificacion(CveIENotificar, NotificarA, "", UsuarioActual, False)
 
                     Next
-
-
-
-
-
                     Respuesta.Append("<br/><br/>NOTA: El archivo se analizo correctamente y se efectuaron todos los cambios en el sistema.")
                     Alert(Respuesta.ToString, TipoMensaje.MsgInformacion)
 
@@ -1679,12 +1672,12 @@ Partial Class Bancos_PagoElectronico
         DtTemp = DTFyE
 
         ''VALIDA CUENTAS DEPOSITOS
-        Dim ErrorCuenta = False
+        Dim ErrorCuenta As Boolean = False
         Dim FyEError As StringBuilder = New StringBuilder
         FyEError.AppendFormat("<table width='600px'><thead><tr><td width='300px'>Personal</td><td width='150px'>Cuenta</td><td width='150px'>Error</td></tr></thead><tbody>")
 
         Dim TotalDetalles As Integer = 0
-        Dim EsBancomer = False
+        Dim EsBancomer As Boolean = False
         For Each gvr As DataRow In DtTemp.Rows
             If gvr("CvePersonal").ToString <> "" AndAlso gvr("EstatusPagoElectronico").ToString <> "True" AndAlso gvr("AltaCuenta").ToString = "1" Then
                 DTPendienteActual = DtTemp.FiltraParametros(String.Format("CveCuentaDeposito = {0}", gvr("CveCuentaDeposito").ToString))
@@ -1758,7 +1751,7 @@ Partial Class Bancos_PagoElectronico
             Descargas.AppendFormat("<li><a href=""#"" class=""Texto"" onclick=""fncg();"">Descargar Reporte</a></li>", NombreArchivo)
 
 
-            Dim TextoErrorProveedores = ""
+            Dim TextoErrorProveedores As String = ""
             If FyEError.Length > 160 Then TextoErrorProveedores = String.Format("<br /><br /><br />Proveedores con Error: <br/><br/>------------------------------------------------------------------<br/>{0}<br /><br />", FyEError.ToString)
 
             Alert(String.Format("<br />El Layout fue creado satisfactoriamente.{1}<br />Descargas:<ul>{0}</ul>", Descargas, TextoErrorProveedores), TipoMensaje.MsgInformacion)
@@ -1772,7 +1765,7 @@ Partial Class Bancos_PagoElectronico
 
     End Sub
     Private Sub GeneraAltaDetalleFyE()
-        Dim Resultado = True
+        Dim Resultado As Boolean = True
         Dim CuentaDeposito As String = ""
         Dim TipoCuentaDeposito As String = ""
         Dim TipoCuenta As String = ""
@@ -1845,9 +1838,8 @@ Partial Class Bancos_PagoElectronico
         'Campos 37-39 -- FILLER
         DetalleTexto &= String.Format("00{0}", Vacio.PadRight(38))
 
-
         ''LLENA DT PARA REPORTE
-        Dim Row = DtAlta.NewRow()
+        Dim Row As DataRow = DtAlta.NewRow()
         Row("Proveedor") = DTPendienteActual(0)("RazonSocial").ToString
         Row("Banco") = DTPendienteActual(0)("BancoNombre").ToString
         Row("TipoCuenta") = TipoCuentaDeposito
@@ -1863,7 +1855,7 @@ Partial Class Bancos_PagoElectronico
         HeaderTexto &= String.Format("{0}{1}", UsuarioActual.CveUsuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
         'Campos #6-8 del Header
         HeaderTexto &= String.Format("00").PadRight(586)
-        Dim HeaderLength = HeaderTexto.Length
+        Dim HeaderLength As Integer = HeaderTexto.Length
 
         ''''' LLENADO DE TRAILER
         TrailerTexto = String.Format("T{0}{1}{2}", Registros.ToString.PadLeft(10, PadCeros), Vacio.PadRight(50, PadCeros), Vacio.PadRight(575))
@@ -1883,8 +1875,8 @@ Partial Class Bancos_PagoElectronico
 
     Private Sub CargaReporte()
         Dim ObjBancos As New ClsBancos
-        Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+        Dim FechaI As String = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
-        Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+        Dim FechaF As String = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
 
         If ObjBancos.GetLayoutPagosEnviados(DdlCuentaReportes.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, DdlTipoReportes.SelectedValue, FechaI, DateAdd(DateInterval.Day, 1, FechaF.ToDate).ToShortDateString) Then
             DTReportes = ObjBancos.DtResultados