From 33ebe369fc3271fa00ef7c0837cab38c510607c0 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 28 May 2024 10:57:45 -0700 Subject: [PATCH 1/3] GDiaz 2024.05.21 --- Bancos/DepositosCaja.aspx.vb | 5 +++++ Bancos/RepCortes.aspx | 6 +++--- Compras/Compras.aspx.vb | 5 +++++ Compras/PopUpVerFactura.aspx.vb | 2 +- OC/OC.aspx.vb | 9 ++++++--- Sistemas/UsuarioDetalle.aspx.vb | 20 +++++++++++++++++--- 6 files changed, 37 insertions(+), 10 deletions(-) diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 805486a15..2f1a1fdcd 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -289,8 +289,13 @@ Partial Class Bancos_DepositosCaja End If End If + Dim CveTransaccionBanco As Integer = DdlTipoDeposito.SelectedValue.ToEntero + If CveTransaccionBanco = -1 Then + CveTransaccionBanco = 13 + End If + If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger CveTransaccionBanco = 6 End If diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index 9f9830a38..65f77f716 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -364,7 +364,7 @@

- Detalles del pago + Detalles de pago @@ -385,7 +385,7 @@

- Depósitos Caja + Depósitos de caja
@@ -406,7 +406,7 @@

- Contabilidad + Estado contable de la caja
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index b60325ce8..8449953e1 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3645,6 +3645,11 @@ Partial Class Compras_Compras Else Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia) End If + Else + Alert("Ocurrió un error al consultar el proveedor.", TipoMensaje.MsgError) + End If + + If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 29492ddf0..bbbc26edd 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3380,7 +3380,7 @@ Partial Class PopUpVerFactura If UsuarioActual.CveEmpresa.Contiene(172, 173) Then ImprimirPDFStimul("Empresas/Grales/Formatos/EntradaSalida.mrt", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString)) Else - ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + ImprimirPDF("Empresas/Grales/Formatos/Salida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") End If End If diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index c0c487db9..e162837a9 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2642,13 +2642,16 @@ Partial Class OC_OC End If + If Not ValidaTotales() Then + TieneError = True + End If + + Return TieneError End Function Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click - If Not ValidaTotales() Then - Exit Sub - End If + 'VALIDACIONES PARA GUARDAR If ValidaGuardar() Then Exit Sub diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index d4e4b6413..b8980a3bd 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1734,8 +1734,15 @@ Partial Class Sistemas_UsuarioDetalle Private Sub CargaDtSubProyectos() Dim ClsUsuarios As New ClsSisUsuarios - If ClsUsuarios.GetSubProyectos(CveUsuario) Then - DtSubProyectos = ClsUsuarios.DtResultados + If ClsUsuarios.GetSubProyectos(CveUsuario) Then + + DtSubProyectos = ClsUsuarios.DtResultados + If Not CveUsuario > 0 Then + DtSubProyectos.Rows.Clear() + DtSubProyectos.AcceptChanges() + End If + + Else DtSubProyectos = Nothing Alert("Ocurrió un Error al cargar los SubProyectos del Usuario. Por favor vuelva a intentar", TipoMensaje.MsgError) @@ -2256,8 +2263,15 @@ Partial Class Sistemas_UsuarioDetalle DdlCuentasBancarias.DataBind() DdlCuentasBancarias.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub - Private Sub CargaDtCuentasBancarias() + Private Sub CargaDtCuentasBancarias() + DtCuentasBancarias = GlobalDTBancosCuentas(CveUsuario, -1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}") + + If Not CveUsuario > 0 Then + DtCuentasBancarias.Rows.Clear() + DtCuentasBancarias.AcceptChanges() + End If + DtCuentasBancarias.Columns.Add("Accion", GetType(Integer)) CargaGvCuentasBancarias() From 511bd45cca6ab16f26a160d4eba1769f328d81d3 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 28 May 2024 10:57:45 -0700 Subject: [PATCH 2/3] GDiaz 2024.05.21 --- App_Code/Notificaciones.vb | 136 ++++++++++++++++---------------- Compras/Compras.aspx.vb | 30 ++++--- Contabilidad/RegPrePolizaS.aspx | 12 ++- Ventas/PVCobranza.aspx | 48 ++++++++++- Ventas/PVCobranza.aspx.vb | 22 ++++++ 5 files changed, 167 insertions(+), 81 deletions(-) diff --git a/App_Code/Notificaciones.vb b/App_Code/Notificaciones.vb index e6c5a9ab4..a0e44a996 100644 --- a/App_Code/Notificaciones.vb +++ b/App_Code/Notificaciones.vb @@ -1,75 +1,75 @@ -Option Strict Off -Imports System.Collections.Concurrent -Imports Extensiones -Imports Microsoft.AspNet.SignalR - -Public Enum TipoNotificacion As Integer - - ToastInformacion = 5 'succes - ToastInformacionB = 6 'info - ToastError = 7 'error - ToastAdventencia = 8 'Warning - - AlertaVentana = 2 - AlertaVentanaNoOcultar = 1 -End Enum -Public Class Notificaciones +Option Strict Off +Imports System.Collections.Concurrent +Imports Extensiones +Imports Microsoft.AspNet.SignalR + +Public Enum TipoNotificacion As Integer + + ToastInformacion = 5 'succes + ToastInformacionB = 6 'info + ToastError = 7 'error + ToastAdventencia = 8 'Warning + + AlertaVentana = 2 + AlertaVentanaNoOcultar = 1 +End Enum +Public Class Notificaciones Inherits Hub - Public Shared UsuariosConexiones As ConcurrentDictionary(Of String, String) = New ConcurrentDictionary(Of String, String) - + Public Shared UsuariosConexiones As ConcurrentDictionary(Of String, String) = New ConcurrentDictionary(Of String, String) + Public Overrides Function OnConnected() As System.Threading.Tasks.Task - NotificarConexion() - Return MyBase.OnConnected() - End Function - - Public Overrides Function OnReconnected() As System.Threading.Tasks.Task - NotificarConexion() - Return MyBase.OnReconnected() - End Function - Public Overrides Function OnDisconnected(stopCalled As Boolean) As Threading.Tasks.Task - Return MyBase.OnDisconnected(stopCalled) + NotificarConexion() + Return MyBase.OnConnected() End Function - Public Sub NotificarConexion() - If Context.User.Identity.IsAuthenticated Then - Dim ConnectionId As String = Context.ConnectionId - Dim CveUsuario As String = Context.User.Identity.Name - If UsuariosConexiones.ContainsKey(CveUsuario) Then - If UsuariosConexiones(CveUsuario) <> Context.ConnectionId Then - UsuariosConexiones.TryUpdate(CveUsuario, Context.ConnectionId, UsuariosConexiones(CveUsuario)) - End If - Else - If CveUsuario.ToEntero > 0 Then - UsuariosConexiones.TryAdd(CveUsuario, ConnectionId) - End If - End If - End If + Public Overrides Function OnReconnected() As System.Threading.Tasks.Task + NotificarConexion() + Return MyBase.OnReconnected() + End Function + Public Overrides Function OnDisconnected(stopCalled As Boolean) As Threading.Tasks.Task + Return MyBase.OnDisconnected(stopCalled) + End Function + + Public Sub NotificarConexion() + If Context.User.Identity.IsAuthenticated Then + Dim ConnectionId As String = Context.ConnectionId + Dim CveUsuario As String = Context.User.Identity.Name + If UsuariosConexiones.ContainsKey(CveUsuario) Then + If UsuariosConexiones(CveUsuario) <> Context.ConnectionId Then + UsuariosConexiones.TryUpdate(CveUsuario, Context.ConnectionId, UsuariosConexiones(CveUsuario)) + End If + Else + If CveUsuario.ToEntero > 0 Then + UsuariosConexiones.TryAdd(CveUsuario, ConnectionId) + End If + End If + End If End Sub - Public Sub TestMessage(message As String) - Clients.All.testMessage(message) - End Sub - - Public Sub AlertaVentana(Message As String, Para As String, Optional Titulo As String = "", Optional timeoutseconds As Integer = 5, Optional Tipo As TipoNotificacion = TipoNotificacion.AlertaVentanaNoOcultar) - Dim lPara As New List(Of String) - lPara.Add(Para) - AlertaVentana(Message, lPara, Titulo, timeoutseconds, Tipo) - End Sub - Public Sub AlertaVentana(Message As String, Para As List(Of String), Optional Titulo As String = "", Optional timeoutseconds As Integer = 5, Optional Tipo As TipoNotificacion = TipoNotificacion.AlertaVentanaNoOcultar) - If (Para IsNot Nothing) AndAlso Para.Count > 0 Then - Dim Clients As Hubs.IHubConnectionContext(Of Object) = GlobalHost.ConnectionManager.GetHubContext(Of Notificaciones)().Clients - Clients.Users(Para).AlertaVentana(Titulo, Message, DirectCast(Tipo, Integer), timeoutseconds) - End If - End Sub - -End Class -Public Class MyhubUserIdProvider - Implements IUserIdProvider - - - Private Function IUserIdProvider_GetUserId(request As IRequest) As String Implements IUserIdProvider.GetUserId - Dim userId = Decripta(request.User.Identity.Name) 'MyCustomUserClass.FindUserId(request.User.Identity.Name) - Return userId.ToString() - End Function -End Class + Public Sub TestMessage(message As String) + Clients.All.testMessage(message) + End Sub + + Public Sub AlertaVentana(Message As String, Para As String, Optional Titulo As String = "", Optional timeoutseconds As Integer = 5, Optional Tipo As TipoNotificacion = TipoNotificacion.AlertaVentanaNoOcultar) + Dim lPara As New List(Of String) + lPara.Add(Para) + AlertaVentana(Message, lPara, Titulo, timeoutseconds, Tipo) + End Sub + Public Sub AlertaVentana(Message As String, Para As List(Of String), Optional Titulo As String = "", Optional timeoutseconds As Integer = 5, Optional Tipo As TipoNotificacion = TipoNotificacion.AlertaVentanaNoOcultar) + If (Para IsNot Nothing) AndAlso Para.Count > 0 Then + Dim Clients As Hubs.IHubConnectionContext(Of Object) = GlobalHost.ConnectionManager.GetHubContext(Of Notificaciones)().Clients + Clients.Users(Para).AlertaVentana(Titulo, Message, DirectCast(Tipo, Integer), timeoutseconds) + End If + End Sub + +End Class +Public Class MyhubUserIdProvider + Implements IUserIdProvider + + + Private Function IUserIdProvider_GetUserId(request As IRequest) As String Implements IUserIdProvider.GetUserId + Dim userId = Decripta(request.User.Identity.Name) 'MyCustomUserClass.FindUserId(request.User.Identity.Name) + Return userId.ToString() + End Function +End Class diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 8449953e1..2beb02694 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3594,9 +3594,14 @@ Partial Class Compras_Compras End If End If +<<<<<<< HEAD CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion) CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion) + CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion) + CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion) +>>>>>>> GDiaz 2024.05.21 + LbAgregar.Enabled = True UpPSS.Update() UpPS.Update() @@ -3642,26 +3647,31 @@ Partial Class Compras_Compras PorcentajeProntoPago = ObjProveedor.PorcentajeProntoPago End If +<<<<<<< HEAD +======= + + +>>>>>>> GDiaz 2024.05.21 Else Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia) End If - Else - Alert("Ocurrió un error al consultar el proveedor.", TipoMensaje.MsgError) - End If +<<<<<<< HEAD +======= +>>>>>>> GDiaz 2024.05.21 If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then - If ObjProveedor.GetProveedoresEvaluacionPediente(Me.CveProveedor, UsuarioActual.CveEmpresa) Then - If ObjProveedor.DtResultados.Rows.Count > 0 Then - Me.RequiereEvaluacion = ObjProveedor.DtResultados.Rows(0)("RequiereEvaluacion").ToString() = "1" - Me.CveUsuarioEvaluador = ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString().ToEntero() + If ObjProveedor.GetProveedoresEvaluacionPediente(Me.CveProveedor, UsuarioActual.CveEmpresa) Then + If ObjProveedor.DtResultados.Rows.Count > 0 Then + Me.RequiereEvaluacion = ObjProveedor.DtResultados.Rows(0)("RequiereEvaluacion").ToString() = "1" + Me.CveUsuarioEvaluador = ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString().ToEntero() + End If + End If End If - End If - End If - ObjProveedor.Dispose() + ObjProveedor.Dispose() End Sub Private Sub CargaAnticipos(CveProveedor As Integer, Optional FiltroTipo As String = "-1") diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index a0173309e..6e0db8830 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -155,7 +155,7 @@
- + @@ -335,7 +335,7 @@ Concepto <%----%> - + @@ -1203,9 +1203,17 @@ } + + function valorIE() { } + + function asignaConcepto() { + let valor = $('#TxtConcepto').val(); + $('input[type="text"].selTxtConcepto').val(valor); + } + diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index a674fcf26..708c7219a 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -191,6 +191,12 @@ + +
  • + Cobros en Transcurso +
    • + +
  • Estado de Caja
    • @@ -315,7 +321,7 @@ CssClass="btn btn-circle btn-sm blue" Text="" ToolTip="Imprimir" OnClick="LnkImprimir_Click" Visible="false" />   - + @@ -952,6 +958,46 @@
    + + + + + diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 42949077a..eb52f60bb 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -1099,4 +1099,26 @@ Partial Class Ventas_PVCobranza #End Region + + Protected Sub LnkCobrosEnTranscurso_Click(sender As Object, e As EventArgs) + + Dim ObjMovtos As New ClsMovimientos() + Dim FechaI, FechaF As Date + + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha).AddDays(1) + + If ObjMovtos.GetRemisionesCobranza(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, FechaI, FechaF) Then + + Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros($"CveVenta > 0 AND CveUsuarioCobranza > 0 ") + GvModalCobrosEnTranscurso.DataSource = dtt + + End If + + ObjMovtos.Dispose() + GvModalCobrosEnTranscurso.DataBind() + UpDVModalCobrosEnTranscurso.Update() + RegistraScript("$('#DVModalCobrosEnTranscurso').modal('show');") + + End Sub End Class From e08e12334d9bfb921e16e6f5234c78f875a3f8ff Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 28 May 2024 13:52:38 -0700 Subject: [PATCH 3/3] =?UTF-8?q?--FIX.=20pago=20con=20devoluci=C3=B3n,=20gr?= =?UTF-8?q?upo=20d=C3=ADaz?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 6995a4d14..8fd465a2c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -31362,7 +31362,7 @@ Partial Class Ventas divAnticipoMsg.Visible = False - If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1" Then If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo IN('NC','RNC','IxC') ", "")}") divAmortizacionTipoRelacion.Visible = False @@ -38190,7 +38190,7 @@ Partial Class Ventas ' $get('HdnTipoDescuento').value = '3'; MuestraAnticipos(); HdnTipoDescuento.Value = "3" - If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1" Then If DdlTipoAmortizacionAnticipo.Items.FindByValue("4") Is Nothing Then DdlTipoAmortizacionAnticipo.Items.Insert(1, New ListItem("Pago con devolución", "4")) End If