AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--option explicit

Browse Source
This commit is contained in:
rrene
2023-09-27 07:17:46 -07:00
parent dd53e58598
commit a888a22322
1 changed files with 57 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

122
Bancos/PagoElectronico.aspx.vb
View File

@@ -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 Style = ""
Dim TotalExitos = 0, TotalFracasos = 0
Dim i As Integer = 1
Dim Style As String = ""
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 TextoErrorArchivo = "Ocurrió un problema al leer el archivo, por favor revise que el archivo sea el correcto e intente de nuevo."
Dim ErrorArchivo As Boolean = False
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 ArrayEstatusIEs() = EstatusIEs.Split(","c)
Dim ArrayFechasMovto() = FechaMovto.Split(","c)
Dim ArrayCorreos() = Correos.Split("|"c)
Dim ArrayCveIEs As String() = CveIEs.Split(","c)
Dim ArrayEstatusIEs As String() = EstatusIEs.Split(","c)
Dim ArrayFechasMovto As String() = FechaMovto.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 FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
Dim FechaI As String = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.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