Merge branch 'master' of http://192.168.10.111:8383/SIG

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

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}"
 

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

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

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

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