From fc07453a11a239f60e461b3a59ee2fc996968b42 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 20 Nov 2024 20:48:16 -0700 Subject: [PATCH 1/8] --parametro de tipoventa, en notificaciones SMS --- App_Code/ClsPaginas.vb | 6 +++--- Inventarios/EntregaAlmacen.aspx.vb | 2 +- OS/Asignaciones.aspx.vb | 4 ++-- Ventas/Ventas.aspx.vb | 6 +++--- 4 files changed, 9 insertions(+), 9 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 17eb43f04..d761591fe 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -11124,7 +11124,7 @@ Public Class ClsPaginas End Function #End Region - Public Shared Sub EnviaNotificacionSMS(Tipo As Integer, tEmpresa As Empresa, CveOS As Integer, Folio As String, FechaCirugía As DateTime, Hospital As String, Medico As String, Procedimiento As String, Tecnico As String, Vendedor As String, Remision As String, ListaPS As List(Of GenericaCantidadProducto), CorreoDestino As String) + Public Shared Sub EnviaNotificacionSMS(Tipo As Integer, tEmpresa As Empresa, CveOS As Integer, Folio As String, FechaCirugía As DateTime, Hospital As String, TipoVenta As String, Medico As String, Procedimiento As String, Tecnico As String, Vendedor As String, Remision As String, ListaPS As List(Of GenericaCantidadProducto), CorreoDestino As String) Dim ObjMail As New ClsSisMail() Dim Asunto As String = "" Dim OpcionNegritas As String = "" @@ -11200,6 +11200,7 @@ Public Class ClsPaginas Contenido.AppendFormat("Fecha y hora de cx: {0}
", FechaCirugía.ToString("dd/MM/yyyy HH:mm"), If(OpcionNegritas = "T", "Negritas", "")) Contenido.AppendFormat("Hospital: {0}
", Hospital) + If TipoVenta <> "" Then Contenido.AppendFormat("Tipo Venta: {0}
", TipoVenta) If Medico <> "" Then Contenido.AppendFormat("Médico: {0}
", Medico) If Procedimiento <> "" Then Contenido.AppendFormat("Procedimiento: {0}
", Procedimiento) If Tecnico <> "" Then Contenido.AppendFormat("Técnico: {0}
", If(OpcionNegritas = "T", $"{Tecnico}", Tecnico)) @@ -11223,11 +11224,10 @@ Public Class ClsPaginas Contenido.AppendFormat("
{0}
", TextoFinal) 'Contenido.AppendFormat("
CorreoDestino: {0}
", CorreoDestino) + 'CorreoDestino = "rene.molina@adssistemas.mx" Contenido.Append(" ") Contenido.Append("") - 'CorreoDestino = "rene.molina@adssistemas.mx" - If ObjMail.SendMail(tEmpresa, CorreoDestino, Asunto, Contenido.ToString) Then End If diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 07a695bd1..a974ad4ba 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -4003,7 +4003,7 @@ Partial Class Inventarios_EntregaAlmacen objOS.Dispose() ' TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F. Cirugía {drE("FechaParaSurtir").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}" - EnviaNotificacionSMS(6, UsuarioActual.Empresa, tCveOS, FolioOS, dr("FechaParaSurtir").ToString.ToDateTime, dr("ClienteNombre").ToString, dr("Medico").ToString, dr("Procedimiento").ToString, "", dr("VendedorNombre").ToString, FolioRemision.ToString, ListMateriales, CorreoVendedor) + EnviaNotificacionSMS(6, UsuarioActual.Empresa, tCveOS, FolioOS, dr("FechaParaSurtir").ToString.ToDateTime, dr("ClienteNombre").ToString, dr("TipoVenta").ToString, dr("Medico").ToString, dr("Procedimiento").ToString, "", dr("VendedorNombre").ToString, FolioRemision.ToString, ListMateriales, CorreoVendedor) End If ObjVentas.Dispose() diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index a76437c92..a27e02761 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -524,10 +524,10 @@ Partial Class OS_Asignaciones 'técnico CorreoDestino = CorreoUsuarioAsignado - EnviaNotificacionSMS(7, UsuarioActual.Empresa, CveOS, Folio, FechaCirugia, NombreCliente, Medico, Procedimiento, Tecnico, Vendedor, "", ListMateriales, CorreoDestino) + EnviaNotificacionSMS(7, UsuarioActual.Empresa, CveOS, Folio, FechaCirugia, NombreCliente, TipoVenta, Medico, Procedimiento, Tecnico, Vendedor, "", ListMateriales, CorreoDestino) 'vendedor CorreoDestino = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo", $"CveVendedor ={dr("CveVendedor")}") - EnviaNotificacionSMS(8, UsuarioActual.Empresa, CveOS, Folio, FechaCirugia, NombreCliente, Medico, Procedimiento, Tecnico, Vendedor, "", ListMateriales, CorreoDestino) + EnviaNotificacionSMS(8, UsuarioActual.Empresa, CveOS, Folio, FechaCirugia, NombreCliente, TipoVenta, Medico, Procedimiento, Tecnico, Vendedor, "", ListMateriales, CorreoDestino) End If End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ac468f62c..a32e747a9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -11452,14 +11452,14 @@ Partial Class Ventas For Each dRow As DataRow In TmpDT.Rows ListMateriales.Add(New GenericaCantidadProducto With {.Cantidad = dRow("Cantidad").ToString.ToEntero, .Producto = dRow("PS").ToString}) Next - EnviaNotificacionSMS(3, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, "", DdlVendedor.SelectedItem.Text, "", ListMateriales, CorreoDestino) + EnviaNotificacionSMS(3, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", ListMateriales, CorreoDestino) Else - EnviaNotificacionSMS(4, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, "", DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino) + EnviaNotificacionSMS(4, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino) End If 'cirugía en el mismo día o si es despues de las 9 y requiere técnico, 'jefe de técnicos If TxtFechaOS.Text.ToDate.ToShortDateString = NowADS.ToShortDateString OrElse (NowADS.Hour > 21 And NowADS.AddDays(1).ToShortDateString = TxtFechaOS.Text.ToDate.ToShortDateString AndAlso ChkRequiereTecnicoModal.Checked) Then CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("JefeTécnicos") - EnviaNotificacionSMS(5, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, "", DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino) + EnviaNotificacionSMS(5, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino) End If End If End If From fe51b921a64c38d35b88a0a702f928dce70e0488 Mon Sep 17 00:00:00 2001 From: RPimienta Date: Thu, 21 Nov 2024 12:11:40 -0600 Subject: [PATCH 2/8] Cambios en el dashboard de ventas --- Ventas/DashboardVentas.aspx | 41 +++++++++ Ventas/DashboardVentas.aspx.vb | 153 ++++++++++++++++++++++++++++----- 2 files changed, 171 insertions(+), 23 deletions(-) diff --git a/Ventas/DashboardVentas.aspx b/Ventas/DashboardVentas.aspx index c4b4ac610..32730effa 100644 --- a/Ventas/DashboardVentas.aspx +++ b/Ventas/DashboardVentas.aspx @@ -127,6 +127,47 @@ +
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+
Date: Fri, 22 Nov 2024 10:44:07 -0700 Subject: [PATCH 3/8] Ajuste balanza de comprobaciones, efacturas valida de copia de pdf --- Compras/eFacturas.aspx.vb | 13 ++-- Contabilidad/RepBalanzaComprobacion.aspx | 86 +++++++++++++----------- 2 files changed, 52 insertions(+), 47 deletions(-) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 90552b507..85d60f4d8 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1704,15 +1704,12 @@ Partial Class Compras_eFacturas Hilo.Start() Else Dim PDfDestino As String = $"{UsuarioActual.Empresa.Ruta}\Compras\{FF.EmisorRFC}\{FF.CveFactura}.PDF" - If File.Exists(PDfDestino) Then - File.Delete(PDfDestino) - End If - Try + If File.Exists(RutaPDF) Then + If File.Exists(PDfDestino) Then + File.Delete(PDfDestino) + End If File.Move(RutaPDF, PDfDestino) - Catch ex As Exception - - End Try - + End If End If End If diff --git a/Contabilidad/RepBalanzaComprobacion.aspx b/Contabilidad/RepBalanzaComprobacion.aspx index ac8bff60e..49604813d 100644 --- a/Contabilidad/RepBalanzaComprobacion.aspx +++ b/Contabilidad/RepBalanzaComprobacion.aspx @@ -11,7 +11,15 @@ Exportar por
- + + + + + + + + +
  • @@ -231,7 +239,7 @@ function BtnImprimirPoSubProyecto_Click() { - setTimeout(checkFileStatus, 5000); + //setTimeout(checkFileStatus, 5000); $('#BtnImprimirPorsubProyecto').click(); //checkFileStatus(); @@ -239,46 +247,46 @@ } - function callMyStaticFunction() { - $.ajax({ - type: "POST", - url: "MyPage.aspx/MyStaticFunction", - data: JSON.stringify({ parameter: "TuParametro" }), - contentType: "application/json; charset=utf-8", - dataType: "json", - success: function (response) { - alert("Resultado: " + response.d); - }, - error: function (xhr, status, error) { - console.error("Error: " + error); - } - }); - } + //function callMyStaticFunction() { + // $.ajax({ + // type: "POST", + // url: "MyPage.aspx/MyStaticFunction", + // data: JSON.stringify({ parameter: "TuParametro" }), + // contentType: "application/json; charset=utf-8", + // dataType: "json", + // success: function (response) { + // alert("Resultado: " + response.d); + // }, + // error: function (xhr, status, error) { + // console.error("Error: " + error); + // } + // }); + //} - function checkFileStatus() { - //$.ajax({ - // url: 'RepBalanzaComprobacion.aspx', - // success: function (response) { - // setTimeout(checkFileStatus, 20000); - // } - //}); + //function checkFileStatus() { + // //$.ajax({ + // // url: 'RepBalanzaComprobacion.aspx', + // // success: function (response) { + // // setTimeout(checkFileStatus, 20000); + // // } + // //}); - $.ajax({ - type: "POST", - url: 'RepBalanzaComprobacion.aspx', - data: JSON.stringify({ parameter: "TuParametro" }), - contentType: "application/json; charset=utf-8", - dataType: "json", - success: function (response) { - //alert("Resultado: " + response.d); - setTimeout(checkFileStatus, 20000); - }, - error: function (xhr, status, error) { - console.error("Error: " + error); - } - }); - } + // $.ajax({ + // type: "POST", + // url: 'RepBalanzaComprobacion.aspx', + // data: JSON.stringify({ parameter: "TuParametro" }), + // contentType: "application/json; charset=utf-8", + // dataType: "json", + // success: function (response) { + // //alert("Resultado: " + response.d); + // setTimeout(checkFileStatus, 20000); + // }, + // error: function (xhr, status, error) { + // console.error("Error: " + error); + // } + // }); + //} From a999d244dbc253b3cf6cf36eb9f63587b9dfb471 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 22 Nov 2024 14:14:24 -0700 Subject: [PATCH 4/8] =?UTF-8?q?--=20correcci=C3=B3n=20en=20liga?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/RepAnexoCatalogoCI.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad/RepAnexoCatalogoCI.aspx.vb b/Contabilidad/RepAnexoCatalogoCI.aspx.vb index 6efd877a4..8ea261a8b 100644 --- a/Contabilidad/RepAnexoCatalogoCI.aspx.vb +++ b/Contabilidad/RepAnexoCatalogoCI.aspx.vb @@ -286,7 +286,7 @@ Partial Class AC_RepAnexoCatalogo e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red End If - e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FI={1}&FF={2}&IdSegNeg={3}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, DdlSegmentoNegocio.SelectedValue.ToEntero) + e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogoCI.aspx?ID={0}&FI={1}&FF={2}&IdSegNeg={3}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, DdlSegmentoNegocio.SelectedValue.ToEntero) End If End Sub #End Region From 3843d919e254e4c92877f40357f8d4b6f87fdd42 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 22 Nov 2024 14:14:43 -0700 Subject: [PATCH 5/8] -- tarifas de nov-dic --- Transportes/CatRutas.aspx | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/Transportes/CatRutas.aspx b/Transportes/CatRutas.aspx index fddccb971..358f6af35 100644 --- a/Transportes/CatRutas.aspx +++ b/Transportes/CatRutas.aspx @@ -134,6 +134,16 @@ + + + + + + + + + + From b6598b1748aaf8c1e53f5136ce5afed27a88e806 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 22 Nov 2024 14:14:59 -0700 Subject: [PATCH 6/8] =?UTF-8?q?--=20bandera=20de=20bloqueos=20por=20horas?= =?UTF-8?q?=20y=20d=C3=ADas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsSisUsuarios.vb | 11 +++++++++-- Sistemas/UsuarioDetalle.aspx.vb | 6 +++--- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index 60c06690b..b189d8340 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -62,6 +62,7 @@ Public Class ClsSisUsuarios Public Property AsignarAutomaticamenteSubProyecto As Boolean Public Property AsignarAutomaticamenteOC As Boolean Public Property DescuentoAutorizado As Double + Public Property AplicaRestriccionAcceso As Boolean #End Region Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing, Optional UsuarioActual As Usuario = Nothing) @@ -507,6 +508,7 @@ Public Class ClsSisUsuarios Me.AsignarAutomaticamenteSubProyecto = If(Data.Rows(0)("AsignarAutomaticamenteSubProyecto").ToString = "Si", True, False) Me.AsignarAutomaticamenteOC = If(Data.Rows(0)("AsignarAutomaticamenteOC").ToString = "Si", True, False) Me.DescuentoAutorizado = Data.Rows(0)("DescuentoAutorizado").ToString.ToDouble + AplicaRestriccionAcceso = If(Data.Rows(0)("AplicaRestriccionAcceso").ToString = "SI", True, False) 'Me.TipoControl = Data.Rows(0)("TipoControl").ToString.ToEntero 'Me.EsLogIn = Data.Rows(0)("EsLogIn").ToString.ToEntero End If @@ -551,7 +553,8 @@ Public Class ClsSisUsuarios CvePersonal As Integer, CveVendedor As Integer, CambiarContraseña As Boolean, CveUsuarioIng As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Optional Rol As String = "-1", Optional CveAlmacenAsignado As Integer = -1, Optional AsignarSubProyecto As Boolean = False, Optional AsignarOC As Boolean = False, Optional CvePlataforma As Integer = -1, Optional CveClientePlataforma As Integer = -1, Optional CveProveedorPlataforma As Integer = -1, Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1", - Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, Optional DiasMaximoAutorizacion As Integer = 0, Optional Celular As String = "") As Integer + Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, + Optional DiasMaximoAutorizacion As Integer = 0, Optional Celular As String = "", Optional AplicaRestriccionAcceso As Boolean = False) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Sis_UsuarioAdd") With SqlAdapter.SelectCommand.Parameters @@ -576,6 +579,7 @@ Public Class ClsSisUsuarios .Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion .Add("@DiasMaximoAutorizacion", SqlDbType.Int).Value = DiasMaximoAutorizacion .Add("@Celular", SqlDbType.VarChar).Value = Celular + .Add("@AplicaRestriccionAcceso", SqlDbType.Bit).Value = If(AplicaRestriccionAcceso, 1, 0) .Add("@CveUsuario", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -703,7 +707,9 @@ Public Class ClsSisUsuarios End Function Public Function UpdateUsuario(Usuario As String, Nombre As String, CveRol As Integer, Correo As String, CvePersonal As Integer, CveVendedor As Integer, CambiarContraseña As Boolean, Activo As Boolean, CveEmpresa As Integer, CveUsuario As Integer, CveAlmacenAsignado As Integer, CveSubProyecto As Integer, Optional CveUsuarioModifico As Integer = -1, Optional AsignarSubProyecto As Boolean = False, Optional AsignarOC As Boolean = False, - Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1", Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, Optional DiasMaximoAutorizacion As Integer = 0, Optional Celular As String = "") As Boolean + Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1", + Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, + Optional DiasMaximoAutorizacion As Integer = 0, Optional Celular As String = "", Optional AplicaRestriccionAcceso As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Sis_UsuarioUpdate") @@ -729,6 +735,7 @@ Public Class ClsSisUsuarios .Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion .Add("@DiasMaximoAutorizacion", SqlDbType.Int).Value = DiasMaximoAutorizacion .Add("@Celular", SqlDbType.VarChar).Value = Celular + .Add("@AplicaRestriccionAcceso", SqlDbType.Bit).Value = If(AplicaRestriccionAcceso, 1, 0) End With Try diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index b03e4bd84..8141ec2a3 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -604,8 +604,8 @@ Partial Class Sistemas_UsuarioDetalle LtlFechaUltimoCambioContraseña.Text = ObjUsuario.FechaUltimoCambioContraseña.ToString ChkCambiarContraseña.Checked = ObjUsuario.PolCambiarContraseña ChkAsignarSubProyecto.Checked = ObjUsuario.AsignarAutomaticamenteSubProyecto - ChkAsignarOC.Checked = ObjUsuario.AsignarAutomaticamenteOC - + ChkAsignarOC.Checked = ObjUsuario.AsignarAutomaticamenteOC + ChkAplicaRestriccion.Checked = ObjUsuario.AplicaRestriccionAcceso CargaBitacora() LblFechaCaptura.Text = ObjUsuario.Fecha.ToShortDateString @@ -877,7 +877,7 @@ Partial Class Sistemas_UsuarioDetalle End If Next Else - If Not ObjUsuarios.UpdateUsuario(TxtUsuario.Text.Trim, TxtNombre.Text.Trim, DdlRol.SelectedValue.ToEntero, TxtCorreo.Text.Trim, DdlPersonal.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, ChkCambiarContraseña.Checked, ChkEstatus.Checked, DdlEmpresa.SelectedValue.ToEntero, CveUsuario, DdlAlmacenGeneral.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, AsignarSubProyecto:=ChkAsignarSubProyecto.Checked, AsignarOC:=ChkAsignarOC.Checked, DescuentoAutorizado:=TxtDescuentoAutorizado.Text.ToDouble, CodigoAcceso:=CodigoAcceso, LimiteCreditoAutorizado:=TxtLimiteAutorizado.Text.ToDecimal(), PorcentajeMaximoAutorizacion:=TxtPorcentajeMaximoAutorizacion.Text.ToDecimal(), DiasMaximoAutorizacion:=TxtDiasVencidos.Text.ToEntero(), Celular:=TxtTelefono.Text.Trim()) Then + If Not ObjUsuarios.UpdateUsuario(TxtUsuario.Text.Trim, TxtNombre.Text.Trim, DdlRol.SelectedValue.ToEntero, TxtCorreo.Text.Trim, DdlPersonal.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, ChkCambiarContraseña.Checked, ChkEstatus.Checked, DdlEmpresa.SelectedValue.ToEntero, CveUsuario, DdlAlmacenGeneral.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, AsignarSubProyecto:=ChkAsignarSubProyecto.Checked, AsignarOC:=ChkAsignarOC.Checked, DescuentoAutorizado:=TxtDescuentoAutorizado.Text.ToDouble, CodigoAcceso:=CodigoAcceso, LimiteCreditoAutorizado:=TxtLimiteAutorizado.Text.ToDecimal(), PorcentajeMaximoAutorizacion:=TxtPorcentajeMaximoAutorizacion.Text.ToDecimal(), DiasMaximoAutorizacion:=TxtDiasVencidos.Text.ToEntero(), Celular:=TxtTelefono.Text.Trim(), AplicaRestriccionAcceso:=ChkAplicaRestriccion.Checked) Then TieneError = True End If From fea766c169f57ddd2d3c12ed5ce11b79131b26ce Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 22 Nov 2024 14:15:13 -0700 Subject: [PATCH 7/8] =?UTF-8?q?--=20mejora=20en=20visualizaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/TrasladoSolicitud.aspx | 1 + Inventarios/TrasladoSolicitud.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index 233a9f6af..1d551f1c3 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -105,6 +105,7 @@ <%--
    +
    diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index a8afffaac..3c77c4262 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -353,7 +353,7 @@ Partial Class Inventarios_TrasladoSolicitud If TieneError = False Then ObjInventarios.Commit() - Alert($"La Solicitud de Traspaso se guardó correctamente en el folio #: {Folio}.", TipoMensaje.MsgInformacion) + Alert($"La Solicitud de Traspaso se guardó correctamente con folio #: {Folio}.", TipoMensaje.MsgInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalSolicitudAdd")) CargaDatos() Else From 939af4859246bec9cdae6f13d181356b80655d02 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 22 Nov 2024 14:16:02 -0700 Subject: [PATCH 8/8] notificaciones SMS - autoconta, cuando es contasig --- OS/Asignaciones.aspx.vb | 2 +- OS/OrdenesServicios.aspx.vb | 17 +++++++++-------- Ventas/Ventas.aspx.vb | 31 ++++++++++--------------------- 3 files changed, 20 insertions(+), 30 deletions(-) diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index a27e02761..dbb99d5ff 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -521,7 +521,7 @@ Partial Class OS_Asignaciones End If Dim CorreoDestino As String = CorreoUsuarioAsignado Dim Vendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor ={dr("CveVendedor")}") - + Dim TipoVenta As String = "" 'técnico CorreoDestino = CorreoUsuarioAsignado EnviaNotificacionSMS(7, UsuarioActual.Empresa, CveOS, Folio, FechaCirugia, NombreCliente, TipoVenta, Medico, Procedimiento, Tecnico, Vendedor, "", ListMateriales, CorreoDestino) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index c41c24b6c..c54a3d52e 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3414,19 +3414,20 @@ Partial Class OS_OrdenesServicios CargaEventoBitacora() Dim CorreoDestino As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo", $"CveVendedor ={ CveVendedor }") Dim NombreVendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor ={ CveVendedor }") + Dim TipoVenta As String = "" If ListMaterialesUtil.Count > 0 Then 'notif a almacen de mat utilizado - EnviaNotificacionSMS(9, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino) + EnviaNotificacionSMS(9, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino) End If CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("Almacén") 'genera notificación almacen If AplicaDevolucion Then 'notif a almacen de devolución - EnviaNotificacionSMS(10, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino) + EnviaNotificacionSMS(10, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino) Else - EnviaNotificacionSMS(11, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino) + EnviaNotificacionSMS(11, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino) End If CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("Facturación") If Respuesta IsNot Nothing AndAlso Respuesta.CveVenta > 0 Then 'notif de remisión generada - EnviaNotificacionSMS(12, UsuarioActual.Empresa, Respuesta.CveVenta, Respuesta.SerieFolio, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino) + EnviaNotificacionSMS(12, UsuarioActual.Empresa, Respuesta.CveVenta, Respuesta.SerieFolio, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, NombreVendedor, TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino) End If Else ObjV.RollBack() @@ -3757,18 +3758,18 @@ Partial Class OS_OrdenesServicios ObjOS.Dispose() Dim Vendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor ={ CveVendedor }") Dim CorreoVendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo", $"CveVendedor ={ CveVendedor }") - + Dim TipoVenta As String = "" 'vendedor - EnviaNotificacionSMS(13, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoVendedor) + EnviaNotificacionSMS(13, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoVendedor) Dim CorreoDestino As String = "" 'almacen CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("Almacén") - EnviaNotificacionSMS(14, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoDestino) + EnviaNotificacionSMS(14, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoDestino) If DdlTecnico.SelectedValue.ToEntero > 0 Then 'jefe de técnicos CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("JefeTécnicos") - EnviaNotificacionSMS(15, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoDestino) + EnviaNotificacionSMS(15, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), TipoVenta, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlUsuarioAtendio.SelectedItem.Text, Vendedor, TxtFolioAdicional.Text, ListMateriales, CorreoDestino) End If End If End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index a32e747a9..391f0b455 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -9842,6 +9842,11 @@ Partial Class Ventas Exit Sub End If + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlVendedor.SelectedValue.ToEntero <= 0 Then ' SMS. vendedor requerido + Alert("El Vendedor es requerido. Favor de seleccionarlo", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If Not ValidaImportePublicoGeneral() Then Exit Sub End If @@ -11051,6 +11056,7 @@ Partial Class Ventas 'ContPAQ El movimiento 1 es el de Venta Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" + If UsuarioActual.Empresa.TipoContabilidad = 1 Then AutoConta = True AutoConta = AutocontaMatriz(AutoConta) If DdlTipoComprobante.SelectedValue.Contiene("Rem", "RNC", "Cot", "Ped", "PA") Then @@ -11061,10 +11067,6 @@ Partial Class Ventas AutoConta = False End If - If UsuarioActual.CveEmpresa = 140 Then - AutoConta = True - End If - If ErrorList.Count = 0 AndAlso ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=5, AutoConta:=AutoConta) Then If ObjConta.ValorPolizaDescuadre > 0 Then ErrorList.Add("Ocurrió un error al validar la prepóliza") @@ -11072,17 +11074,6 @@ Partial Class Ventas End If End If - 'Try - ' If AutoConta Then - ' If Not ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa) Then - ' ErrorList.Add("Ocurrió un error al contabilizar, pongase en contacto con soporte técnico") - ' End If - ' End If - 'Catch ex As Exception - ' ErrorList.Add("Ocurrió un error al contabilizar, pongase en contacto con soporte técnico") - ' OnError("Ocurrió un error al contabilizar la factura", ex) - 'End Try - If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso (SeGuardoPrePoliza Or ObjFactura.TipoDocto.Contiene("Ped", "Cot", "DPe", "PeC", "PA")) Then ObjVentas.Commit() @@ -11452,14 +11443,14 @@ Partial Class Ventas For Each dRow As DataRow In TmpDT.Rows ListMateriales.Add(New GenericaCantidadProducto With {.Cantidad = dRow("Cantidad").ToString.ToEntero, .Producto = dRow("PS").ToString}) Next - EnviaNotificacionSMS(3, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", ListMateriales, CorreoDestino) + EnviaNotificacionSMS(3, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text.Trim, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", ListMateriales, CorreoDestino) Else - EnviaNotificacionSMS(4, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino) + EnviaNotificacionSMS(4, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text.Trim, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino) End If 'cirugía en el mismo día o si es despues de las 9 y requiere técnico, 'jefe de técnicos If TxtFechaOS.Text.ToDate.ToShortDateString = NowADS.ToShortDateString OrElse (NowADS.Hour > 21 And NowADS.AddDays(1).ToShortDateString = TxtFechaOS.Text.ToDate.ToShortDateString AndAlso ChkRequiereTecnicoModal.Checked) Then CorreoDestino = UsuarioActual.Empresa.Funcionalidad(199).ListaBusquedaValor("JefeTécnicos") - EnviaNotificacionSMS(5, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino) + EnviaNotificacionSMS(5, UsuarioActual.Empresa, CveVenta, TxtFolio.Text, TxtFechaOS.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), RBLTipoVenta.SelectedItem.Text.Trim, DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, LblTipoVenta.Text, DdlVendedor.SelectedItem.Text, "", Nothing, CorreoDestino) End If End If End If @@ -26620,7 +26611,7 @@ Partial Class Ventas ChkDevAlm.Checked = True End If - If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFacturaCancelacion.TipoDocto = "Rem" Then + If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Ing") Then ChkDevAlm.Checked = True End If @@ -26635,8 +26626,6 @@ Partial Class Ventas AplicaCancelacionConPagos = True End If - - resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos) strMensaje.Append(resp.Mensaje) Dim DtBonificaciones As DataTable = Nothing