Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

App_Code/ClsGenerales.vb

@@ -1368,8 +1368,7 @@ Public Class ClsGenerales
     ' IDisposable
 
 #Region "G E N E R A L E S   -  C U E N T A S  B A N C A R I A S "
-    Public Function GetCuentasDepositos(Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCuentaDeposito As Integer = -1) As Boolean
+    Public Function GetCuentasDepositos(Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCuentaDeposito As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean
-
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_CuentasDepositosGet")
@@ -1379,6 +1378,7 @@ Public Class ClsGenerales
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva
             .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -442,6 +442,34 @@ Public Class ClsPaginas
             Application("GlobalDTProveedoresCuentas") = value
         End Set
     End Property
+
+    Property GlobalDTCuentasDepositosClientes(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional Estatus As Boolean = True) As DataTable
+        Get
+            Dim AppNombre As String = String.Format("GlobalDTCuentasDepositosClientes-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+                Dim P As New ClsGenerales
+                If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then Application(AppNombre) = P.DtResultados
+                P.Dispose()
+            End If
+
+            Dim Str As New StringBuilder
+            Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
+            If CveCliente <> -1 Then Str.AppendFormat(" AND CveCliente = {0}", CveCliente)
+            If Estatus = True Then Str.AppendFormat(" AND Estatus = 1 ")
+
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+
+            GlobalDTCuentasDepositosClientes = Dv.ToTable
+            Dv.Dispose()
+
+
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTCuentasDepositosClientes-{0}", CveEmpresa)
+            Application(AppNombre) = value
+        End Set
+    End Property
     Property GlobalDTProveedorClasificacion(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion-{0}", CveEmpresa)
@@ -7254,7 +7282,7 @@ Public Class ClsPaginas
 
                 If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                     Dim ObjCuentasBancos As New ClsGenerales()
-                    If ObjCuentasBancos.GetCuentasDepositos(ObjOC.CveProveedor) Then
+                    If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=ObjOC.CveProveedor) Then
                         Dim CuentasActivas As DataTable = ObjCuentasBancos.DtResultados.FiltraParametros("EstatusTexto = 'Activo'")
                         Dim CuentasStr As New StringBuilder("")
                         For Each CuentasBancarios As DataRow In CuentasActivas.Rows

Bancos/IE.aspx.vb

@@ -4743,7 +4743,7 @@ Partial Class Bancos_IE
         If CveProveedor > 0 Then
             Dim ObjCuentasBancos As New ClsGenerales
 
-            If ObjCuentasBancos.GetCuentasDepositos() Then
+            If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
                 GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
             End If
             ObjCuentasBancos.Dispose()

Bancos/MovimientosBancarios.aspx.vb

@@ -151,7 +151,7 @@ Partial Class Bancos_MovimientosBancarios
             If GvProveedores.Rows(i).FCCheckBox("CheckAgregar").Checked = True Then
                 DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = {0}", GvProveedores.Rows(i).DataKey("CveProveedor")))
 
-                If ObjCuentasBancos.GetCuentasDepositos(21109) Then
+                If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21109) Then
                     DTProveedorBancos = ObjCuentasBancos.DtResultados
                     RowBanco = DTProveedorBancos.Rows(0)
                 Else
@@ -319,7 +319,7 @@ Partial Class Bancos_MovimientosBancarios
 
         DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = 21114"))
 
-        If ObjCuentasBancos.GetCuentasDepositos(21114) Then
+        If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21114) Then
             DTProveedorBancos = ObjCuentasBancos.DtResultados
             RowBanco = DTProveedorBancos.Rows(0)
         Else

Compras/PopUpVerFactura.aspx.vb

@@ -3976,7 +3976,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
                     params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
                     params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
-                    params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
+                    params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
                     params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
                     params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
 

Contabilidad/CatPeriodosBloqueo.aspx.vb

@@ -122,7 +122,7 @@ Partial Class Contabilidad_CatPeriodosBloqueo
 
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarPeriodosBloqueo"), "jsHideModalPeriodosBloqueo")
                 UpGral.Update()
-
+                Ejercicio = -1
                 Alert("Bloqueo Agregado Correctamente", TipoMensaje.MsgInformacion)
             Else
                 Alert("Ocurrió un error al guardar el Periodo de Bloqueo", TipoMensaje.MsgError)
@@ -138,15 +138,14 @@ Partial Class Contabilidad_CatPeriodosBloqueo
 
                 UpGral.Update()
                 Alert("Bloqueo Actualizado Correctamente", TipoMensaje.MsgInformacion)
+                Ejercicio = -1
+                Actualizar = False
             Else
                 Dim mensajeAlerta As String = AplicarBloqueso.Replace(";", Environment.NewLine)
                 Alert(String.Format("No se puede bloquear el periodo por: <br/>{0} ", mensajeAlerta), TipoMensaje.MsgError)
             End If
         End If
 
-        Ejercicio = -1
-        Actualizar = False
-
         ObjConta.Dispose()
 
     End Sub

Inventarios/RepTraspasoAlmacen.aspx.vb

@@ -77,11 +77,12 @@ Partial Class RepTraspasoAlmacen
         If ObjInventarios.RepTraspasoAlmacen(FechaI.ToDate, FechaF.ToDate, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjInventarios.DtResultados
             DtInventarios = ObjInventarios.DtResultados
-            GvDatos.DataBind()
+
-            UPDatos.Update()
         End If
 
         ObjInventarios.Dispose()
+        GvDatos.DataBind()
+        UPDatos.Update()
     End Sub
 #End Region
 

Ventas/Clientes.aspx.vb

@@ -5983,7 +5983,7 @@ Partial Class Clientes
 
 #Region "C U E N T A S - B A N C A R I A S"
 
-    Private Sub CargaCuentasBancarias()
+    Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False)
 
         If CveCliente <= 0 Then Exit Sub
 
@@ -6006,7 +6006,6 @@ Partial Class Clientes
         ObjCuentasBancos.Dispose()
         CargaPSGridCuentasBancos()
 
-        RecargaGlobalCuentasBancarias()
         CargaMonedas()
     End Sub
     Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
@@ -6209,12 +6208,9 @@ Partial Class Clientes
     End Sub
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
         If CveCliente > 0 Then
-            Dim ObjCuentasBancos As New ClsGenerales
 
-            If ObjCuentasBancos.GetCuentasDepositos() Then
+            GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
-                GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
+
-            End If
-            ObjCuentasBancos.Dispose()
         End If
     End Sub