-option explicit

Compras/Proveedores.aspx

@@ -792,7 +792,7 @@
                                 </div>
                                 <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom">
                                     <div class="form-body">
-                                        <table border="0">
+                                        <table border="0"  >
                                             <tr>
                                                 <td>Tipo Tercero:</td>
                                                 <td>

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))