From 64f54a081a62a6b5a8980d1cbf9e78efbff2ef57 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Sep 2023 14:03:21 -0700 Subject: [PATCH] -option explicit --- Bancos/ProveedoresAbonar.aspx.vb | 13 ++-- Compras/Proveedores.aspx | 2 +- Compras/Proveedores.aspx.vb | 116 +++++++++++++++---------------- Ventas/Ventas.aspx.vb | 26 +++---- 4 files changed, 78 insertions(+), 79 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 1c9a4b621..7fc7abe47 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -4,8 +4,6 @@ Option Strict On Imports System.Data Imports Extensiones Imports Microsoft.Reporting.WebForms -Imports Stimulsoft.Report.StiOptions.Export - Partial Class Bancos_ProveedoresAbonar Inherits ClsPaginas @@ -751,12 +749,10 @@ Partial Class Bancos_ProveedoresAbonar If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then Dim ObjGrales As New ClsGenerales(ObjIE.IniciaTransacSQL) - If Not ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(DdlCuentaDeposito.SelectedValue.ToEntero, -1, -1, "-1", TxtReferenciaCIE.Text.Trim, TxtConceptoCIE.Text.Trim) Then - MsgError = "Error al actualziar Cuanta Referencia y Concepto Deposito." + MsgError = "Error al actualizar cuenta Referencia y Concepto Deposito." End If End If - End If 'guardo el archivo @@ -840,6 +836,11 @@ Partial Class Bancos_ProveedoresAbonar Pago.ImportePago = tImporteMN If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then + Dim ObjCredito As New ClsBancos + If ObjCredito.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero) Then + CveProveedor = ObjCredito.DtResultados.FiltroPrimeroValor("CveProveedor", "").ToEntero + End If + ObjCredito.Dispose() Dim Importe42 As Decimal = Pago.ImportePago tImporteMN = If(Pago.CveMonedaPago = 2, If(DivTC.Visible, Importe42 / TxtTC.Text.ToDecimal * Pago.TCPago, Importe42 * Pago.TCPago), Importe42) @@ -1626,7 +1627,7 @@ Partial Class Bancos_ProveedoresAbonar params.Add(New ReportParameter("Importe", $"${StrImporte}")) params.Add(New ReportParameter("RazonSocial", TxtPagueseA.Text)) params.Add(New ReportParameter("Fecha", TxtFechaDocumento.Text)) - Dim Transferencia = "", Banco = "", CLABE = "", Cuenta = "", Correo = "" + Dim Transferencia As String = "", Banco As String = "", CLABE As String = "", Cuenta As String = "", Correo As String = "" If DdlTipoTransaccion.SelectedValue.Contiene("2", "8") Then Transferencia = "Si" Else Transferencia = "No" If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then Dim dtt As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index a646652f3..43b258bd9 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -792,7 +792,7 @@
- +
Tipo Tercero: diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 989b892f2..30dd0ee1c 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -978,68 +978,66 @@ Partial Class Compras_Proveedores DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);") - End If + End If - 'CxP - TxtLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero - TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString - LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero - LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString + 'CxP + TxtLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero + TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString + LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero + LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString - 'Sistema - ChkEstado.Checked = ObjProveedor.Estatus = "Activo" - LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString - LblUsuarioCapturo.Text = ObjProveedor.Usuario - TxtObservaciones.Text = ObjProveedor.Observaciones + 'Sistema + ChkEstado.Checked = ObjProveedor.Estatus = "Activo" + LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString + LblUsuarioCapturo.Text = ObjProveedor.Usuario + TxtObservaciones.Text = ObjProveedor.Observaciones - CargaCombos() + CargaCombos() - ChkAplicarEvaluacion.Checked = If(ObjProveedor.DtResultados.Rows(0)("AplicarEvaluacion").ToString = "True", True, False) - TxtFechaEva.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "") - LblFechaUltimaEvaluacion.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "") - DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString()) - DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString()) + ChkAplicarEvaluacion.Checked = If(ObjProveedor.DtResultados.Rows(0)("AplicarEvaluacion").ToString = "True", True, False) + TxtFechaEva.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "") + LblFechaUltimaEvaluacion.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "") + DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString()) + DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString()) - DdlConfianzaProveedor.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveConfianzaProveedor")) + DdlConfianzaProveedor.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveConfianzaProveedor")) - DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString() - DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString - DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString + DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString() + DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString + DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString - 'EMD: Si no es prisila desablita este campo - If UsuarioActual.CveEmpresa = 13 AndAlso Not UsuarioActual.CveUsuario.Contiene(58, 100) Then - DdlCveTipoProveedor.Enabled = False - DdlCveTipoProveedor.Attributes.Add("disabled", "disabled") - End If + 'EMD: Si no es prisila desablita este campo + If UsuarioActual.CveEmpresa = 13 AndAlso Not UsuarioActual.CveUsuario.Contiene(58, 100) Then + DdlCveTipoProveedor.Enabled = False + DdlCveTipoProveedor.Attributes.Add("disabled", "disabled") + End If - If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")") + If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")") - If UsuarioActual.TienePermisoProceso(87) Then BtnGuardar.Visible = True 'Actualizar Proveedor - If UsuarioActual.TienePermisoProceso(86) Then BtnEliminar.Visible = True ' Eliminar Proveedor - If UsuarioActual.TienePermisoProceso(256) Then LnkParametros.Visible = True 'Actualizar Límite de Crédito + If UsuarioActual.TienePermisoProceso(87) Then BtnGuardar.Visible = True 'Actualizar Proveedor + If UsuarioActual.TienePermisoProceso(86) Then BtnEliminar.Visible = True ' Eliminar Proveedor + If UsuarioActual.TienePermisoProceso(256) Then LnkParametros.Visible = True 'Actualizar Límite de Crédito - Retorno = True + Retorno = True - ' enviaractivacion() + ' enviaractivacion() + CargaEventoBitacora() - - CargaEventoBitacora() - - Else + Else Alert("El Proveedor Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) - BtnGuardar.Enabled = False - ' LbAgregarSucursal.Enabled = False + BtnGuardar.Enabled = False + ' LbAgregarSucursal.Enabled = False - End If - End If + End If + End If - CargaProveedorSucursales() + CargaProveedorSucursales() - CargaContactos(ObjProveedor) + CargaContactos(ObjProveedor) - ObjProveedor.Dispose() - Return Retorno - End Function + ObjProveedor.Dispose() + Return Retorno + End Function Private Sub CargaUsuarioEvaluacionProveedor() DdlUsuarioEvaluador.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlUsuarioEvaluador.DataBind() @@ -1125,7 +1123,7 @@ Partial Class Compras_Proveedores CountAnticipos = ObjMovtos.DtResultados.FiltraParametros(" Tipo = 'Act' AND TipoDocto <> '' AND (CveCompra > 0 OR CveIE > 0) ").Rows.Count - LblVencidoPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 And DiasVencidos > 0")).FormatoNumero + LblVencidoPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 And DiasVencidos > 0")).FormatoNumero LblTotalPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 ")).FormatoNumero LblPorVencerPesosAnt.Text = CType(LblTotalPesosAnt.Text.ToDouble - LblVencidoPesosAnt.Text.ToDouble, String).FormatoNumero @@ -1689,7 +1687,7 @@ Partial Class Compras_Proveedores AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text, CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then - Dim NuevoCveProveedor = ObjProveedores.CveProveedor + Dim NuevoCveProveedor As Integer = ObjProveedores.CveProveedor ''Agregar Cuentas Bancarias If TempDTCuentasBancos.Rows.Count > 0 Then @@ -2034,8 +2032,6 @@ Partial Class Compras_Proveedores End Sub - - Private Function AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq As String, NombreCuentaCuentaAltaCompaq As String, IdCuentaAltaCompaq As Integer, CveConceptoContable As Integer, Optional Transaccion As SqlTransaction = Nothing, Optional IdCompaqPadre As Integer = -1, Optional CveProveedorCuenta As Integer = -1) As Boolean If Not UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then @@ -2782,6 +2778,8 @@ Partial Class Compras_Proveedores End Sub Private Sub CargaEventoBitacora() + If CveProveedor <= 0 Then Exit Sub + Dim ObjEventoBitacora As New ClsOIEventos() If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2") @@ -3176,7 +3174,7 @@ Partial Class Compras_Proveedores End Sub Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) - Dim EsBancomer = False + Dim EsBancomer As Boolean = False If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then EsBancomer = True @@ -3329,7 +3327,7 @@ Partial Class Compras_Proveedores Else - Dim index = CveCuentaBancaria + Dim index As Integer = CveCuentaBancaria Dim Row As DataRow = TempDTCuentasBancos.Rows(index) Row("BancoNombre") = NombreBanco Row("Sucursal") = NumeroSucursal @@ -3380,8 +3378,8 @@ Partial Class Compras_Proveedores If e.Row.RowType = DataControlRowType.DataRow Then If CveProveedor < 0 Then - For index = 1 To TempDTCuentasBancos.Rows.Count - TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index + For Index = 1 To TempDTCuentasBancos.Rows.Count + TempDTCuentasBancos.Rows(Index - 1)("CveCuentaDeposito") = Index Next TempDTCuentasBancos.AcceptChanges() End If @@ -4426,24 +4424,24 @@ Partial Class Compras_Proveedores Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) Dim dt As New DataTable Dim Conexion As Odbc.OdbcConnection = Nothing - Dim ErrorArchivo = False + Dim ErrorArchivo As Boolean = False Try Select Case Tipo Case "CSV" Conexion = New Odbc.OdbcConnection("Driver={Microsoft Access Text Driver (*.txt, *.csv)};Dbq=" + Ruta + ";Extensions=asc,csv,tab,txt;") Conexion.Open() - Dim cmd = Conexion.CreateCommand() + Dim cmd As Odbc.OdbcCommand = Conexion.CreateCommand() cmd.CommandType = CommandType.Text cmd.CommandText = $"SELECT * FROM [{FileName}]" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) + Dim DataAdapter As New Odbc.OdbcDataAdapter(cmd) DataAdapter.Fill(dt) Case "EXCEL" Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") Conexion.Open() - Dim cmd = Conexion.CreateCommand() + Dim cmd As Odbc.OdbcCommand = Conexion.CreateCommand() cmd.CommandType = CommandType.Text cmd.CommandText = "SELECT * FROM [Hoja1$]" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) + Dim DataAdapter As New Odbc.OdbcDataAdapter(cmd) DataAdapter.Fill(dt) Case Else Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) @@ -4480,7 +4478,7 @@ Partial Class Compras_Proveedores If ObjProveedores.GetProveedoresConciliacion(CveProveedor, DataTableToXml(writer)) Then 'ObjProveedores.DtResultados.ExportToExcel("Resultados") Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fcb36539e..946d634ed 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -13779,14 +13779,14 @@ Partial Class Ventas Dim FechaMovimiento As Date = ObjFactura.Fecha Dim Concepto As String = ObjFactura.SerieFolio Dim Referencia As String = ObjFactura.SerieFolio - Dim Fecha = TxtFecha.Text.Trim.ToDate + Dim Fecha As Date = TxtFecha.Text.Trim.ToDate Dim importeMX As Decimal Dim Multiplicador As Integer Dim CveIEPago As Integer Dim FolioIE As Long Dim CveIEAnticipo As Integer - Dim CveSubProyectoVenta = DdlSubProyectoDatos.SelectedValue.ToEntero() + Dim CveSubProyectoVenta As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero() Dim CveSubProyectoContabilizar As Integer Dim SeContabiliza As Boolean = True @@ -14294,7 +14294,7 @@ Partial Class Ventas importeMovimiento = 0 Case 91 'Amortizacion Nota de Credito - Dim Contabilizable = If(UsuarioActual.CveEmpresa = 119, False, True) + Dim Contabilizable As Boolean = If(UsuarioActual.CveEmpresa = 119, False, True) If ValorMultiplicador = -1 Then 'cuando es cancelación @@ -14438,9 +14438,9 @@ Partial Class Ventas Case 4 'Venta Clasificacion If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC", "Ant", "Egs", "Dev") Then - Dim ConceptoContableAplicar = 4 - Dim CveVentaAplicar = ObjFactura.CveVenta - Dim CveVentaAmortizacionAplicar = -1 + Dim ConceptoContableAplicar As Integer = 4 + Dim CveVentaAplicar As Integer = ObjFactura.CveVenta + Dim CveVentaAmortizacionAplicar As Integer = -1 If ObjFactura.TipoDocto.Contiene("Egs") And DdlTipoComprobante.SelectedValue = "Ant" And CveDevolucion > 0 And NuevaFactura = 1 Then ConceptoContableAplicar = 11 @@ -14496,9 +14496,9 @@ Partial Class Ventas Case 150 'Descuento sobre ventas If (ObjFactura.TipoDocto.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion) OrElse NCDescuento Then - Dim ConceptoContableAplicar = 150 - Dim CveVentaAplicar = ObjFactura.CveVenta - Dim CveVentaAmortizacionAplicar = -1 + Dim ConceptoContableAplicar As Integer = 150 + Dim CveVentaAplicar As Integer = ObjFactura.CveVenta + Dim CveVentaAmortizacionAplicar As Integer = -1 DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) @@ -14975,7 +14975,7 @@ Partial Class Ventas CveConceptoAlmacen = 18 End If - Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero() + Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero() If CveAlmacen <= 0 Then OcurrioError = True @@ -16542,7 +16542,7 @@ Partial Class Ventas 'NOTIFICACION DE SMS - Dim EstatusSMS = 0 + Dim EstatusSMS As Integer = 0 If ObjFactura.TipoDocto = "Ing" Then Dim ObjEventos As New ClsOIEventos EnviarSMSTimbrado(ObjEventos) @@ -16559,7 +16559,7 @@ Partial Class Ventas 'MUESTA Alert OK 'MensajeAlert.Append("El Documento se generó correctamente") - Dim Liga = If(UsuarioActual.CveRol = 1165, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=-1"";", $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}&Opt=2"";") + Dim Liga As String = If(UsuarioActual.CveRol = 1165, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=-1"";", $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}&Opt=2"";") Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga) TrEmitir.Visible = False @@ -22352,7 +22352,7 @@ Partial Class Ventas 'Pago Tarjeta Debito If TxtImporteDebito.Text.ToDecimal > 0 Then If DdlCuentaTarjetaDebito.Items.Count > 0 Then - Dim DrDebito = DtPagos.NewRow + Dim DrDebito As DataRow = DtPagos.NewRow DrDebito("CveTipoMovimiento") = 11 DrDebito("TipoMovimiento") = "Tarjeta de Debito" DrDebito("CveCuenta") = DdlCuentaTarjetaDebito.SelectedValue