diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 7aac560f3..8b60b8ae6 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1673,27 +1673,6 @@ Public Class ClsBancos Return Retorno End Function - Public Function UpdateBancos_IETipoCambio(TipoCambio As Double, CveIE As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Banc_IETipoCambioUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@TipoCambio", SqlDbType.Float).Value = TipoCambio - .Add("@CveIE", SqlDbType.Int).Value = CveIE - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el tipo cambio del IE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function Public Function UpdateBancosTipoCambioValuacion(TipoCambio As Decimal, CveIE As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index c5a241bcb..e5bbc8640 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2892,7 +2892,7 @@ Partial Class Bancos_IE Dim importeMX As Decimal Dim Multiplicador As Integer - Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("CveSubProyecto").ToEntero + Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero 'OTROS INGRESOS/EGRESOS Dim TCC As Decimal = 1 @@ -3139,7 +3139,7 @@ Partial Class Bancos_IE Dim ImporteAplicarMN = 0.0D Dim ImporteAplicarME = 0.0D Dim ReferenciaAplicar = ObjIE.Folio - Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("CveSubProyecto").ToEntero + Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}" diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 810c4c6c6..acb22ef22 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -848,7 +848,7 @@ Partial Class Bancos_ProveedoresAbonar CompraActual.CveConceptoRetISR = gvr.DataKey("CveRetISRConcepto").ToEntero CompraActual.CveConceptoRetIVA = gvr.DataKey("CveRetIVAConcepto").ToEntero CompraActual.PorcentajeIVA = gvr.DataKey("PorcentajeIVA").ToDecimal - CompraActual.EsImportacion = gvr.DataKey("EsImportacion") = "True" + CompraActual.EsImportacion = gvr.DataKey("EsImportacion") = "1" CompraActual.UsuarioActual = UsuarioActual CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero CompraActual.IdCtaContableProv = CtaProveedor diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 98e6ba9c4..70d75f8be 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -474,8 +474,10 @@ Partial Class Inventarios_RecepcionAlmacen CargaPermisos() If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True + Dim PermisoEspecialCambioFecha As Boolean = False + If UsuarioActual.CveUsuario = 1937 Then PermisoEspecialCambioFecha = True - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 AndAlso Not PermisoEspecialCambioFecha Then TxtFecha.Enabled = False ImgFecha.Visible = False diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 771a5a7f4..ebfe1f113 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -226,15 +226,14 @@ Partial Class Inventarios_TraspasoAlmacen CantidadTotal = 0 CvePS = 0 TipoSeccionAlmacen = 0 + Dim PermisoEspecialCambioFecha As Boolean = False + If UsuarioActual.CveUsuario = 1937 Then PermisoEspecialCambioFecha = True - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then - + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Then TxtFecha.Enabled = False ImgFecha.Visible = False - TxtFechaRecepcion.Enabled = False ImgFechaRecepcion.Visible = False - End If Else diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index 219ec8aed..31effa199 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -482,9 +482,12 @@ Partial Class Sistemas_CatSesiones End Sub 'Compras - Private Sub CargaProveedores() + Private Sub CargaProveedores() + GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing + + Dim ObjProveedores As New ClsCompProveedores - If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProveedores.DtResultados Else Application("GlobalDTCompProveedores") = Nothing + 'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProveedores.DtResultados Else Application("GlobalDTCompProveedores") = Nothing If ObjProveedores.GetClasificacionProveedores Then Application("GlobalDTProveedorClasificacion") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorClasificacion") = Nothing If ObjProveedores.GetSucursales(-1, -1) Then Application("GlobalDTProveedorSucursales") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorSucursales") = Nothing ObjProveedores.Dispose()