From 143f09e1e226da075dd984a604ea3648af76ed0a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 14 Apr 2021 17:08:46 -0700 Subject: [PATCH 01/11] Correciones API E141 --- App_Code/ClsClientes.vb | 57 +++++++++ Ashx/E141.ashx | 258 ++++++++++++++++++++++++++++++++++------ 2 files changed, 276 insertions(+), 39 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 69ac29dc8..42e66ad44 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1680,6 +1680,63 @@ Public Class ClsClientes Return Retorno End Function + Public Function UpdateClienteNoFrencuente(CveCliente As Integer, Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer, + RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, + NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_ClientesNoFrecuenteUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@Nombre", SqlDbType.VarChar).Value = Nombre + .Add("@Direccion", SqlDbType.VarChar).Value = Direccion + .Add("@NoExt", SqlDbType.VarChar).Value = NoExt + .Add("@NoInt", SqlDbType.VarChar).Value = NoInt + .Add("@Colonia", SqlDbType.VarChar).Value = Colonia + .Add("@Localidad", SqlDbType.VarChar).Value = Localidad + .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + .Add("@CveEstado", SqlDbType.Int).Value = CveEstado + ' .Add("@Pais", SqlDbType.VarChar).Value = Pais + .Add("@RFC", SqlDbType.VarChar).Value = RFC + .Add("@CP", SqlDbType.VarChar).Value = CP + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@Mail", SqlDbType.VarChar).Value = Mail + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveMetodoPago33", SqlDbType.Int).Value = CveMetodoPago33 + .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 + .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago + .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + If Ex1.Message.Contains("Número: 2627;") Then + Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia) + + ElseIf Ex1.Message.Contains("Número: 2601;") Then + If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then + Alert("Ya existe un cliente registrado con el mismo RFC.", TipoMensaje.MsgAdvertencia) + End If + + If Ex1.Message.Contains("IND_Clientes_Codigo") Then + Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) + End If + Else + Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar el cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #Region "UNIFICAR CLIENTES" Public Function UnificarClientes(CveClienteAUnificar As Integer, CveClienteOriginal As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 801f1ab28..fca4a8b19 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -115,6 +115,45 @@ Public Class E141 : Implements IHttpHandler End Get End Property + Public Property GlobalDTPSSimplificado(Optional CveClasificacion As Integer = -1, Optional Codigo As String = "-1", Optional Estatus As Integer = 1, Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1) As DataTable + Get + Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa) + If CveEmpresa <> -1 Then + 'sino existe, recarga los datos + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjPS As New ClsProductosServicios + If ObjPS.GetPSSimplificado(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjPS.DtResultados.AsEnumerable() + ObjPS.Dispose() + + End If + + + Dim Cons = DirectCast(HttpContext.Current.Application(AppNombre), EnumerableRowCollection(Of DataRow)) + + Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) + If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion)) + Codigo = Codigo.ToUpper() + If Codigo <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!Codigo).ToUpper() = Codigo)) + If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus)) + If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta)) + If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS)) + + Try + GlobalDTPSSimplificado = Cons.OrderBy(Function(a) a!PSCodigo).CopyToDataTable + Catch ex As Exception + GlobalDTPSSimplificado = New DataTable + End Try + + Else + GlobalDTPSSimplificado = DirectCast(HttpContext.Current.Application(AppNombre), EnumerableRowCollection(Of DataRow)).CopyToDataTable + End If + End Get + Set(value As DataTable) + Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa) + HttpContext.Current.Application(AppNombre) = value + End Set + End Property + Property GlobalDTMonedas() As DataTable Get GlobalDTMonedas = DirectCast(HttpContext.Current.Application("GlobalDTMonedas"), DataTable) @@ -632,11 +671,14 @@ Public Class E141 : Implements IHttpHandler Dim ObjClientes As New ClsClientes() Dim ObjInventario As New ClsInventarios(ObjClientes.IniciaTransacSQL()) - ObjClientes.IniciaTransacSQL() Try - If Not String.IsNullOrEmpty(JsonRequest("timbrar").ToString) Then - DebeTimbrar = CBool(JsonRequest("timbrar")) + Dim timbrar_request As String = If(JsonRequest("timbrar") Is Nothing, "", JsonRequest("timbrar").ToString()) + + If Not String.IsNullOrEmpty(timbrar_request) Then + DebeTimbrar = CBool(timbrar_request) + Else + DebeTimbrar = False End If ObjFactura = CreaFactura(ObjInventario, ObjClientes, "Ing", Resp, JsonRequest, Usuario) @@ -646,7 +688,7 @@ Public Class E141 : Implements IHttpHandler If Resp.CveVenta > 0 Then Respuesta.status = "success" - Respuesta.data = Resp.CveVenta.ToString() + Respuesta.data = Resp.SerieFolio Else TieneError = True End If @@ -674,9 +716,11 @@ Public Class E141 : Implements IHttpHandler If TieneError Then ObjClientes.RollBack() ObjClientes.Dispose() + ObjInventario.Dispose() Else ObjClientes.Commit() ObjClientes.Dispose() + ObjInventario.Dispose() If DebeTimbrar Then Dim SeTimbro As Boolean = ObjFactura.TimbrarFactura() @@ -690,6 +734,10 @@ Public Class E141 : Implements IHttpHandler End If End If + If ObjFactura IsNot Nothing Then + ObjFactura.Dispose() + End If + Else TieneError = True RespuestaError.message = "No hay un usuario disponible" @@ -708,26 +756,83 @@ Public Class E141 : Implements IHttpHandler #Region "D E F I N I R - O B J E T O S" - Private Function CrearCliente(ObjClientes As ClsClientes, ByRef Resp As Modelos.Factura.MMensajeFactura, JsonRequest As JObject, UsuarioActual As Usuario) As Integer + Private Function CrearCliente(TipoDocto As String, ObjClientes As ClsClientes, ByRef Resp As Modelos.Factura.MMensajeFactura, JsonRequest As JObject, UsuarioActual As Usuario) As Integer Dim CveCliente As Integer = -1 Dim CveSubProyecto As Integer = JsonRequest("branch_office_id").ToEntero() - Dim Nombre As String = If(JsonRequest("contact_name") Is Nothing, "", JsonRequest("contact_name").ToString()) - Dim Direccion As String = If(JsonRequest("contact_address") Is Nothing, "", JsonRequest("contact_address").ToString()) - Dim NumExt As String = If(JsonRequest("contact_ext_number") Is Nothing, "", JsonRequest("contact_ext_number").ToString()) - Dim NumInt As String = If(JsonRequest("contact_int_number") Is Nothing, "", JsonRequest("contact_int_number").ToString()) - Dim Colonia As String = If(JsonRequest("contact_neighborhood") Is Nothing, "", JsonRequest("contact_neighborhood").ToString()) - Dim Localidad As String = If(JsonRequest("contact_city") Is Nothing, "", JsonRequest("contact_city").ToString()) - Dim Ciudad As String = Localidad - Dim RFC As String = If(JsonRequest("invoice_rfc") Is Nothing, "XAXX010101000", JsonRequest("invoice_rfc").ToString()) - Dim CP As String = If(JsonRequest("contact_zip_code") Is Nothing, "", JsonRequest("contact_zip_code").ToString()) - Dim Telefono As String = If(JsonRequest("contact_phone") Is Nothing, "", JsonRequest("contact_phone").ToString()) - Dim Correo As String = If(JsonRequest("contact_email") Is Nothing, "", JsonRequest("contact_email").ToString()) + + + Dim Nombre As String = "" + Dim Direccion As String = "" + Dim NumExt As String = "" + Dim NumInt As String = "" + Dim Colonia As String = "" + Dim Localidad As String = "" + Dim Ciudad As String = "" + Dim Estado As String = "" + Dim RFC As String = "" + Dim CP As String = "" + Dim Telefono As String = "" + Dim Correo As String = "" + + 'DATOS DE CONTACTO + Dim contact_name As String = If(JsonRequest("contact_name") Is Nothing, "", JsonRequest("contact_name").ToString()) + Dim contact_address As String = If(JsonRequest("contact_address") Is Nothing, "", JsonRequest("contact_address").ToString()) + Dim contact_ext_number As String = If(JsonRequest("contact_ext_number") Is Nothing, "", JsonRequest("contact_ext_number").ToString()) + Dim contact_int_number As String = If(JsonRequest("contact_int_number") Is Nothing, "", JsonRequest("contact_int_number").ToString()) + Dim contact_neighborhood As String = If(JsonRequest("contact_neighborhood") Is Nothing, "", JsonRequest("contact_neighborhood").ToString()) + Dim contact_city As String = If(JsonRequest("contact_city") Is Nothing, "", JsonRequest("contact_city").ToString()) + Dim contact_zip_code As String = If(JsonRequest("contact_zip_code") Is Nothing, "", JsonRequest("contact_zip_code").ToString()) + Dim contact_phone As String = If(JsonRequest("contact_phone") Is Nothing, "", JsonRequest("contact_phone").ToString()) + Dim contact_email As String = If(JsonRequest("contact_email") Is Nothing, "", JsonRequest("contact_email").ToString()) + Dim contact_state As String = If(JsonRequest("contact_state") Is Nothing, "", JsonRequest("contact_state").ToString()) + + 'DATOS DE FACTURACION + Dim invoice_rfc As String = If(JsonRequest("invoice_rfc") Is Nothing, "", JsonRequest("invoice_rfc").ToString()) + Dim invoice_name As String = If(JsonRequest("invoice_name") Is Nothing, "", JsonRequest("invoice_name").ToString()) + Dim invoice_address As String = If(JsonRequest("invoice_address") Is Nothing, "", JsonRequest("invoice_address").ToString()) + Dim invoice_city As String = If(JsonRequest("invoice_city") Is Nothing, "", JsonRequest("invoice_city").ToString()) + Dim invoice_state As String = If(JsonRequest("invoice_state") Is Nothing, "", JsonRequest("invoice_state").ToString()) + Dim invoice_email As String = If(JsonRequest("invoice_email") Is Nothing, "", JsonRequest("invoice_email").ToString()) + Dim invoice_phone As String = If(JsonRequest("invoice_phone") Is Nothing, "", JsonRequest("invoice_phone").ToString()) Dim CveEstado As Integer = -1 - If Not String.IsNullOrEmpty(JsonRequest("contact_state").ToString()) Then - CveEstado = GlobalDTEstado("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{JsonRequest("contact_state").ToString().Trim}'").ToEntero() + If TipoDocto = "Ing" Then + RFC = If(Not String.IsNullOrEmpty(invoice_rfc), invoice_rfc, "XAXX010101000") + Nombre = If(Not String.IsNullOrEmpty(invoice_name), invoice_name, contact_name) + Direccion = If(Not String.IsNullOrEmpty(invoice_address), invoice_address, contact_address) + 'SI LA DIRECCION ES LA MISMA QUE LA DE CONTACTO + If Direccion = contact_address Then + NumExt = If(Not String.IsNullOrEmpty(contact_ext_number), contact_ext_number, "") + NumInt = If(Not String.IsNullOrEmpty(contact_int_number), contact_int_number, "") + Colonia = If(Not String.IsNullOrEmpty(contact_neighborhood), contact_neighborhood, "") + End If + Ciudad = If(Not String.IsNullOrEmpty(invoice_city), invoice_city, contact_city) + Localidad = Ciudad + Estado = If(Not String.IsNullOrEmpty(invoice_state), invoice_state, contact_state) + CP = If(Not String.IsNullOrEmpty(contact_zip_code), contact_zip_code, "") + Correo = If(Not String.IsNullOrEmpty(invoice_email), invoice_email, contact_email) + Telefono = If(Not String.IsNullOrEmpty(invoice_phone), invoice_phone, contact_phone) + + Else + + Nombre = If(Not String.IsNullOrEmpty(contact_name), contact_name, "") + Direccion = If(Not String.IsNullOrEmpty(contact_address), contact_address, "") + NumExt = If(Not String.IsNullOrEmpty(contact_ext_number), contact_ext_number, "") + NumInt = If(Not String.IsNullOrEmpty(contact_int_number), contact_int_number, "") + Colonia = If(Not String.IsNullOrEmpty(contact_neighborhood), contact_neighborhood, "") + Ciudad = If(Not String.IsNullOrEmpty(contact_city), contact_city, "") + Localidad = Ciudad + Estado = If(Not String.IsNullOrEmpty(contact_state), contact_state, "") + CP = If(Not String.IsNullOrEmpty(contact_zip_code), contact_zip_code, "") + Correo = If(Not String.IsNullOrEmpty(contact_email), contact_email, "") + Telefono = If(Not String.IsNullOrEmpty(contact_phone), contact_phone, "") + + End If + + If Not String.IsNullOrEmpty(Estado) Then + CveEstado = GlobalDTEstado("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero() 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA If CveEstado <= 0 Then @@ -737,11 +842,18 @@ Public Class E141 : Implements IHttpHandler CveEstado = 26 End If + 'SI NO EXISTE EL RFC UTILIZA EL GENERICO If String.IsNullOrEmpty(RFC) Then RFC = "XAXX010101000" End If + If String.IsNullOrEmpty(Nombre) Then + Resp.TieneError = False + Resp.Mensajes.Add("El cliente no tiene un nombre") + Return -1 + End If + 'VALIDAR QUE NO EXISTA EL RFC If RFC <> "XAXX010101000" Then If ObjClientes.GetClientes(-1, "-1", "-1", "-1", RFC, "-1", "-1", -1, UsuarioActual.CveEmpresa, 1, TipoCliente:=-1, TopSelect:=1) Then @@ -774,11 +886,19 @@ Public Class E141 : Implements IHttpHandler Resp.TieneError = False Dim Serie As String = "-1" Dim CveMoneda As Integer = 1 + Dim CveSubProyecto As Integer = JsonRequest("branch_office_id").ToEntero() + + If CveSubProyecto <= 0 Then + Resp.TieneError = False + Resp.Mensajes.Add("La sucursal es requerida") + Return Nothing + End If + Dim CveCliente As Integer = If(JsonRequest("user_id") Is Nothing, 0, JsonRequest("user_id").ToEntero()) If CveCliente <= 0 Then - CveCliente = CrearCliente(ObjClientes, Resp, JsonRequest, UsuarioActual) + CveCliente = CrearCliente(TipoDocto, ObjClientes, Resp, JsonRequest, UsuarioActual) End If If CveCliente <= 0 Then @@ -854,19 +974,6 @@ Public Class E141 : Implements IHttpHandler ElseIf ObjFactura.TipoDocto = "Ing" Then - If ObjFactura.Cliente IsNot Nothing AndAlso Not String.IsNullOrEmpty(JsonRequest("invoice_name").ToString()) Then - ObjFactura.Cliente.Nombre = JsonRequest("invoice_name").ToString() - ObjFactura.Cliente.NombreComercial = JsonRequest("invoice_name").ToString() - ObjFactura.Cliente.Direccion = JsonRequest("invoice_address").ToString() - ObjFactura.Cliente.Colonia = "" - ObjFactura.Cliente.NoInt = "" - ObjFactura.Cliente.NoExt = "" - ObjFactura.Cliente.Localidad = JsonRequest("invoice_city").ToString() - ObjFactura.Cliente.Estado = JsonRequest("invoice_state").ToString() - ObjFactura.Cliente.Mail = JsonRequest("invoice_email").ToString() - ObjFactura.Cliente.Telefono = JsonRequest("invoice_phone").ToString() - End If - 'FORMA DE PAGO If JsonRequest("invoice_way_to_pay") Is Nothing Then Resp.TieneError = False @@ -941,10 +1048,73 @@ Public Class E141 : Implements IHttpHandler End If + If ObjFactura.Cliente IsNot Nothing AndAlso TipoDocto = "Ing" Then + + 'DATOS DE CONTACTO + Dim contact_name As String = If(JsonRequest("contact_name") Is Nothing, "", JsonRequest("contact_name").ToString()) + Dim contact_address As String = If(JsonRequest("contact_address") Is Nothing, "", JsonRequest("contact_address").ToString()) + Dim contact_ext_number As String = If(JsonRequest("contact_ext_number") Is Nothing, "", JsonRequest("contact_ext_number").ToString()) + Dim contact_int_number As String = If(JsonRequest("contact_int_number") Is Nothing, "", JsonRequest("contact_int_number").ToString()) + Dim contact_neighborhood As String = If(JsonRequest("contact_neighborhood") Is Nothing, "", JsonRequest("contact_neighborhood").ToString()) + Dim contact_city As String = If(JsonRequest("contact_city") Is Nothing, "", JsonRequest("contact_city").ToString()) + Dim contact_zip_code As String = If(JsonRequest("contact_zip_code") Is Nothing, "", JsonRequest("contact_zip_code").ToString()) + Dim contact_phone As String = If(JsonRequest("contact_phone") Is Nothing, "", JsonRequest("contact_phone").ToString()) + Dim contact_email As String = If(JsonRequest("contact_email") Is Nothing, "", JsonRequest("contact_email").ToString()) + Dim contact_state As String = If(JsonRequest("contact_state") Is Nothing, "", JsonRequest("contact_state").ToString()) + + 'DATOS DE FACTURACION + Dim invoice_rfc As String = If(JsonRequest("invoice_rfc") Is Nothing, "", JsonRequest("invoice_rfc").ToString()) + Dim invoice_name As String = If(JsonRequest("invoice_name") Is Nothing, "", JsonRequest("invoice_name").ToString()) + Dim invoice_address As String = If(JsonRequest("invoice_address") Is Nothing, "", JsonRequest("invoice_address").ToString()) + Dim invoice_city As String = If(JsonRequest("invoice_city") Is Nothing, "", JsonRequest("invoice_city").ToString()) + Dim invoice_state As String = If(JsonRequest("invoice_state") Is Nothing, "", JsonRequest("invoice_state").ToString()) + Dim invoice_email As String = If(JsonRequest("invoice_email") Is Nothing, "", JsonRequest("invoice_email").ToString()) + Dim invoice_phone As String = If(JsonRequest("invoice_phone") Is Nothing, "", JsonRequest("invoice_phone").ToString()) + + Dim CveEstado As Integer = -1 + + ObjFactura.Cliente.RFC = If(Not String.IsNullOrEmpty(invoice_rfc), invoice_rfc, ObjFactura.Cliente.RFC) + ObjFactura.Cliente.Nombre = If(Not String.IsNullOrEmpty(invoice_name), invoice_name, contact_name) + ObjFactura.Cliente.NombreComercial = ObjFactura.Cliente.NombreComercial + ObjFactura.Cliente.Direccion = If(Not String.IsNullOrEmpty(invoice_address), invoice_address, contact_address) + ObjFactura.Cliente.Mail = If(Not String.IsNullOrEmpty(invoice_email), invoice_email, contact_email) + ObjFactura.Cliente.Telefono = If(Not String.IsNullOrEmpty(invoice_phone), invoice_phone, contact_phone) + ObjFactura.Cliente.Localidad = If(Not String.IsNullOrEmpty(invoice_city), invoice_city, contact_city) + ObjFactura.Cliente.Ciudad = ObjFactura.Cliente.Localidad + ObjFactura.Cliente.Estado = If(Not String.IsNullOrEmpty(invoice_state), invoice_state, contact_state) + + If String.IsNullOrEmpty(ObjFactura.Cliente.RFC) Then + Resp.Mensajes.Add("No se ha ingresado un RFC") + Return Nothing + End If + + If String.IsNullOrEmpty(ObjFactura.Cliente.Nombre) Then + Resp.Mensajes.Add("No se ha ingresado un nombre para el cliente") + Return Nothing + End If + + If Not String.IsNullOrEmpty(ObjFactura.Cliente.Estado) Then + CveEstado = GlobalDTEstado("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{ObjFactura.Cliente.Estado.Trim}'").ToEntero() + + 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA + If CveEstado <= 0 Then + CveEstado = 26 + End If + Else + CveEstado = 26 + End If + + Dim Cliente = ObjFactura.Cliente + If Not ObjClientes.UpdateClienteNoFrencuente(CveCliente, Cliente.Nombre, Cliente.Direccion, Cliente.NoExt, Cliente.NoInt, Cliente.Colonia, Cliente.Localidad, Cliente.Ciudad, CveEstado, Cliente.RFC, Cliente.CP, Cliente.Telefono, Cliente.Mail, CveSubProyecto, UsuarioActual.CveUsuario, CveEmpresa, "-1", ObjFactura.CveMetodoPago33, ObjFactura.CveFormaPago33) Then + Resp.TieneError = False + Resp.Mensajes.Add("No se puedo actualizar un cliente") + Return Nothing + End If + + End If + ObjFactura.CveAlmacen = GlobalDTAlmacen(CveEmpresa, CveTipoAlmacen:=1).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() - - 'DETALLES ObjFactura.DtDetalle = CreaDTDetalle(ObjInventario, ObjFactura, Resp, UsuarioActual, JsonRequest) @@ -958,7 +1128,6 @@ Public Class E141 : Implements IHttpHandler End If End If - 'INVENTARIO If TipoDocto = "Ing" Then ObjFactura.DtInventario = ObjFactura.DtDetalle.Copy.FiltraParametros("CveTipoPS = 2") @@ -1235,7 +1404,9 @@ Public Class E141 : Implements IHttpHandler TmpDT.Columns.Add("ClaveSATFraccionArancelariaDescripcion", GetType(String)) TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String)) - TmpDT.Columns.Add("CveTamaño", GetType(Integer)) + TmpDT.Columns.Add("CveTamaño", GetType(Integer)) + + Try Dim ListaPS = JArray.Parse(JsonRequest("details").ToString()) Dim DescuentoTotal As Decimal = JsonRequest("discount").ToString().ToDecimal() @@ -1245,7 +1416,9 @@ Public Class E141 : Implements IHttpHandler For Each JsonPS As JObject In ListaPS Dim Cantidad As Decimal = JsonPS("quantity").ToString.ToDecimal() - Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=JsonPS("product_sku").ToString()).FiltroPrimero("") + Dim CvePS As Integer = GlobalDTPSSimplificado(Codigo:=JsonPS("product_sku").ToString()).FiltroPrimeroValor("CvePS").ToEntero() + + Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If DrPS Is Nothing Then Retorno.TieneError = True @@ -1487,7 +1660,7 @@ Public Class E141 : Implements IHttpHandler If Resp.CveVenta > 0 Then Respuesta.status = "success" - Respuesta.data = Resp.CveVenta.ToString() + Respuesta.data = Resp.SerieFolio Else TieneError = True End If @@ -1499,6 +1672,8 @@ Public Class E141 : Implements IHttpHandler Next RespuestaError.message = sb.ToString() End If + + ObjFactura.Dispose() Else TieneError = True Dim sb As New StringBuilder() @@ -2077,7 +2252,8 @@ Public Class E141 : Implements IHttpHandler New JProperty("age", 0), New JProperty("gender", 0), New JProperty("address", ""), - New JProperty("code", "") + New JProperty("code", RowVendedor("CodigoVendedor")), + New JProperty("default_branchoffice", RowVendedor("CveSubProyecto")) ) ArrayVendedores.Add(vendedor) @@ -2097,6 +2273,10 @@ Public Class E141 : Implements IHttpHandler End If End If + If CountPeticionesExitosas > 0 Then + Retorno = True + End If + Return Retorno End Function #End Region From 1a2422b613fb3ab5856963d966afef8ea31d54ae Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 14 Apr 2021 17:09:04 -0700 Subject: [PATCH 02/11] Cambio en correo de notificaciones --- App_Code/ClsSisNotificaciones.vb | 14 +-- Sistemas/PopUpAddUsuario.aspx.vb | 175 +++++++++++++++++++++++++++---- 2 files changed, 162 insertions(+), 27 deletions(-) diff --git a/App_Code/ClsSisNotificaciones.vb b/App_Code/ClsSisNotificaciones.vb index be0a9a61e..4aafd6454 100644 --- a/App_Code/ClsSisNotificaciones.vb +++ b/App_Code/ClsSisNotificaciones.vb @@ -357,7 +357,7 @@ Public Class ClsSisNotificaciones If LSRutasMail.Count > 0 Then Dim ObjMail As New ClsSisMail() Dim ResultadoMail As Integer = 0 - If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then + If ObjMail.SendMail(ClsPaginas.EmpresaNotificacionesGPS, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1) End If End If @@ -418,7 +418,7 @@ Public Class ClsSisNotificaciones End If If Archivos.Count > 0 Then - If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", $"Se adjunta el {Formato} en el Reporte Programado.", "", Archivos) Then + If ObjMail.SendMail(ClsPaginas.EmpresaNotificacionesGPS, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", $"Se adjunta el {Formato} en el Reporte Programado.", "", Archivos) Then UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1) End If End If @@ -467,7 +467,7 @@ Public Class ClsSisNotificaciones If LSRutasMail.Count > 0 Then Dim ObjMail As New ClsSisMail() Dim ResultadoMail As Integer = 0 - If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then + If ObjMail.SendMail(ClsPaginas.EmpresaNotificacionesGPS, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1) End If End If @@ -509,7 +509,7 @@ Public Class ClsSisNotificaciones If LSRutasMail.Count > 0 Then Dim ObjMail As New ClsSisMail() Dim ResultadoMail As Integer = 0 - If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then + If ObjMail.SendMail(ClsPaginas.EmpresaNotificacionesGPS, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1) End If End If @@ -557,7 +557,7 @@ Public Class ClsSisNotificaciones If LSRutasMail.Count > 0 Then Dim ObjMail As New ClsSisMail() Dim ResultadoMail As Integer = 0 - If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then + If ObjMail.SendMail(ClsPaginas.EmpresaNotificacionesGPS, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1) End If End If @@ -596,7 +596,7 @@ Public Class ClsSisNotificaciones If LSRutasMail.Count > 0 Then Dim ObjMail As New ClsSisMail() Dim ResultadoMail As Integer = 0 - If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then + If ObjMail.SendMail(ClsPaginas.EmpresaNotificacionesGPS, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1) End If End If @@ -635,7 +635,7 @@ Public Class ClsSisNotificaciones If LSRutasMail.Count > 0 Then Dim ObjMail As New ClsSisMail() Dim ResultadoMail As Integer = 0 - If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then + If ObjMail.SendMail(ClsPaginas.EmpresaNotificacionesGPS, Correos, $"Reporte Programado {Date.Today.ToShortDateString}", "Se adjunta en pdf el Reporte Programado.", "", LSRutasMail) Then UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1) End If End If diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb index b48a4fd17..1ec6d9763 100644 --- a/Sistemas/PopUpAddUsuario.aspx.vb +++ b/Sistemas/PopUpAddUsuario.aspx.vb @@ -1,7 +1,7 @@ Imports Extensiones Imports System.Data Partial Class Sistemas_PopUpAddUsuario - Inherits ClsPaginas + Inherits ClsPaginas #Region "PROPIEDADES" Public Property CveCliente As Integer Get @@ -51,7 +51,7 @@ Partial Class Sistemas_PopUpAddUsuario Set(value As Integer) ViewState("CvePlataforma") = value End Set - End Property + End Property #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then @@ -164,8 +164,14 @@ Partial Class Sistemas_PopUpAddUsuario If ObjUsuario.UpdateUsuario(LtlUsuario.Text, TxtNombre.Text, -1, TxtEmail.Text, -1, -1, True, True, -1, CveUsuario, -1, -1) Then Alert("La contraseña se reestableció correctamente a la contraseña por default '-acceso-'.") Dim Liga As String = $"{Context.Request.Url.OriginalString.Substring(0, Context.Request.Url.OriginalString.Length - Context.Request.Url.PathAndQuery.Length)}/LogIn.aspx" - Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks& & "&CveE=" & UsuarioActual.CveEmpresa) - EnviaCorreo(Liga, LigaActivar) + Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks& & "&CveE=" & UsuarioActual.CveEmpresa) + + If UsuarioActual.Empresa.CvePlataforma = 3 Then + EnviaCorreoGPS(Liga, LigaActivar) + Else + EnviaCorreo(Liga, LigaActivar) + End If + End If End If ObjUsuario.Dispose() @@ -251,8 +257,14 @@ Partial Class Sistemas_PopUpAddUsuario 'ENVIA CORREO If CveUsuario > 0 Then Dim Liga As String = $"{Context.Request.Url.OriginalString.Substring(0, Context.Request.Url.OriginalString.Length - Context.Request.Url.PathAndQuery.Length)}/LogIn.aspx" - Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks& & "&CveE=" & UsuarioActual.CveEmpresa) - Mensaje = EnviaCorreo(Liga, LigaActivar) + Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks& & "&CveE=" & UsuarioActual.CveEmpresa) + + If UsuarioActual.Empresa.CvePlataforma = 3 Then + Mensaje = EnviaCorreoGPS(Liga, LigaActivar) + Else + Mensaje = EnviaCorreo(Liga, LigaActivar) + End If + Else HuboError = True End If @@ -651,16 +663,139 @@ Partial Class Sistemas_PopUpAddUsuario OnError("Ocurrió error al mandar MAIL", ex) End Try + Return Retorno + End Function + + Private Function EnviaCorreoGPS(Liga As String, LigaActivar As String) As String + Dim Retorno As String = "" + Try + 'Dim URL As String = "https://gps.signalsgps.com/" + LigaActivar + + Dim Para = TxtEmail.Text.Trim + Dim Asunto = "ACCESO A SIGNALS GPS" + + 'Dim SBBody As New StringBuilder + ''Linia de estilos + 'SBBody.Append("") + ''incio Cuerpo del correo + 'SBBody.Append("
") + 'SBBody.Append("
") + 'SBBody.Append("
") + 'SBBody.Append("ALTA DE CUENTA") + 'SBBody.Append("
") + 'SBBody.Append("
") + 'SBBody.AppendFormat(" Estimado {0}:
", TxtNombre.Text.ToUpper) + 'SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso a la Plataforma de: {0}

", UsuarioActual.Empresa.Empresa) + 'SBBody.Append("
") + 'SBBody.Append("
Datos de usuario
") + 'SBBody.Append("
") + 'SBBody.Append("
") + 'SBBody.Append("
") + 'SBBody.Append("
Usuario
") + 'SBBody.AppendFormat("
{0}
", TxtEmail.Text) + 'SBBody.Append("
") + 'SBBody.Append("
") + 'SBBody.Append("
Accesé al sistema dando click a la liga y estableciendo su contraseña
") + 'SBBody.AppendFormat("
Activar
", LigaActivar) + 'SBBody.Append("
") + 'SBBody.Append("
") + 'SBBody.Append("
") + 'SBBody.Append("
") + 'SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.

") + 'SBBody.Append("
") + 'SBBody.Append("Nota Favor de NO responder este correo. ") + 'SBBody.Append("


") + 'SBBody.AppendFormat("", URL) + 'SBBody.Append("
") + 'SBBody.Append("
") + + Dim SBBody As New StringBuilder() + + SBBody.Append("
") + SBBody.Append("
") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append("
 ") + SBBody.Append("

DATOS DE ACCESO

") + SBBody.Append("

 

") + SBBody.Append("
") + SBBody.Append("
") + SBBody.AppendFormat("


Estimado / a {0}:

", TxtNombre.Text) + SBBody.Append("

El presente correo es para informarle que se le han asignado los siguentes datos para el acceso a la plataforma SIGNALS GPS

") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append(" ") + SBBody.Append("") + SBBody.Append("
") + SBBody.Append("

USUARIO ASIGNADO

") + SBBody.Append("
") + SBBody.Append("

Usuario:

") + SBBody.AppendFormat("

{0}

", TxtEmail.Text) + SBBody.Append("
") + SBBody.Append("

Contraseña:

") + SBBody.Append("

-acceso-

") + SBBody.Append("
") + SBBody.AppendFormat("

👆INGRESAR A SIGNALS GPS👆

", LigaActivar) + SBBody.Append("
") + SBBody.Append("
") + SBBody.Append("


Favor de NO responder este correo.

") + SBBody.Append("
") + SBBody.Append("

 

") + SBBody.Append("
") + 'Termino Cuerpo del correo + + Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo(Asunto, Para, SBBody.ToString)) + Hilo.Start() + + 'Dim JSBTN As String = "" + 'If UsuarioActual.CveCliente > 0 Then + ' JSBTN = $"document.location.href=""javascript: Ir2({CveCliente})"";" + 'ElseIf CveCliente > 0 Then + ' JSBTN = $"document.location.href=""javascript:Ir({CveCliente})"";" + 'End If + 'If UsuarioActual.Empresa.CvePlataforma = 3 Then + ' Alert("El correo se ha enviado correctamente a: " + TxtEmail.Text + ".", TipoMensaje.MsgInformacion, JSBTN) + 'End If + + Retorno = $"El correo se ha enviado correctamente a: {TxtEmail.Text}." + + Catch ex As Exception + OnError("Ocurrió error al mandar MAIL", ex) + End Try + Return Retorno End Function Private Sub MandaCorreo(Asunto As String, Para As String, Body As String) Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para) a.GuardaLog() Dim Mail As New ClsSisMail() - Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body) - End Sub -#End Region + Dim EmpresaEnvio As Empresa = ClsPaginas.EmpresaNotificaciones + + If UsuarioActual.Empresa.CvePlataforma = 3 Then + EmpresaEnvio = ClsPaginas.EmpresaNotificacionesGPS + End If + + Mail.SendMail(EmpresaEnvio, Para, Asunto, Body) + End Sub +#End Region + #Region "M O D U L O S" Public Sub CargaModulosAcceso() Dim ObjPermisos As New ClsSisUsuarios @@ -808,11 +943,11 @@ Partial Class Sistemas_PopUpAddUsuario End If End If - End Sub - - + End Sub + + #End Region - + #Region "V E H I C U L O S" Private Sub CargaDispositivos() GvDispositivos.DataSource = GlobalDTDispositivos(CveCliente).FiltraParametros("Estatus = 1 ") @@ -826,10 +961,10 @@ Partial Class Sistemas_PopUpAddUsuario End If End If End If - End Sub - + End Sub + #End Region - + #Region "N O T I F I C A C I O N E S" Private Sub CargarNotificaciones() Dim ObjNotificaciones As New ClsSisNotificaciones @@ -851,11 +986,11 @@ Partial Class Sistemas_PopUpAddUsuario e.Row.FCCheckBox("chkApp").Checked = If(DtNotificacionesUsuarios.FiltroPrimeroValor("Alerta_App", $"CveNotificacion = {e.Row.DBCampo("CveNotificacion")}").ToString = "True", True, False) End If End If - End Sub - - + End Sub + + #End Region - + Protected Sub BtnCambiarUsuario_Click(sender As Object, e As EventArgs) CveUsuario = -1 From 0a60c8d18246b198c703d3ea2059fa0c813e871f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 14 Apr 2021 17:09:30 -0700 Subject: [PATCH 03/11] Favicon site.master para empresas de GPS --- Site.master | 2 +- Site.master.vb | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/Site.master b/Site.master index 0996ebb05..6c399c64c 100644 --- a/Site.master +++ b/Site.master @@ -6,7 +6,7 @@ - Sistema de Información Gerencial + Sistema de Información Gerencial diff --git a/Site.master.vb b/Site.master.vb index e35e3893b..899461f8d 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -76,6 +76,7 @@ Partial Class Site If UsuarioActual.Empresa.CvePlataforma = 3 Then lnkFavicon.Href = "/Imagenes/favicongps.ico" + tTitulo.Text = "SIGNALS GPS" Else lnkFavicon.Href = "/Imagenes/favicon.ico" End If From 905ce69fb7549e80f366c3d9871ef07934e26c9c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 14 Apr 2021 17:09:54 -0700 Subject: [PATCH 04/11] Movimiento de salida en cancelacion de devoluciones --- App_Code/Modelos.vb | 60 ++++++++++++++++++++++++++++++++------------- 1 file changed, 43 insertions(+), 17 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 96d8c619a..adda24263 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -580,6 +580,14 @@ Namespace Modelos Me.DtRemisionesDocumentosRelacionados = ObjVentas.DtResultados.Copy() End If + 'CARGA LOS IMPUESTOS LOCALES + If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + DtImpuestosLocales = ObjVentas.DtResultados.Copy() + End If + End If + + ObjVentas.Dispose() If Me.RealizarDevolucionAlmacen Then @@ -1618,8 +1626,8 @@ Namespace Modelos End If 'Impuestos Locales - If DtImpuestosLocales IsNot Nothing Then - For Each gvr As DataRow In DtImpuestosLocales.Rows + If factura.DtImpuestosLocales IsNot Nothing Then + For Each gvr As DataRow In factura.DtImpuestosLocales.Rows If Not ObjVentas.AddVentaImpuestoLocales(factura.CveVenta, gvr("CveImpuestoLocal").ToString.ToEntero(), gvr("Importe").ToString().ToDouble()) Then ErrorList.Add("Ocurrió un error al Guardar Impuestos Locales") End If @@ -1627,8 +1635,8 @@ Namespace Modelos End If - If DtFirmas IsNot Nothing AndAlso DtFirmas.Rows.Count > 0 Then - For Each Row As DataRow In DtFirmas.Rows + If factura.DtFirmas IsNot Nothing AndAlso factura.DtFirmas.Rows.Count > 0 Then + For Each Row As DataRow In factura.DtFirmas.Rows If Not ObjVentas.AddVentasFirmas(factura.CveVenta, Row("Titulo").ToString, Row("Nombre").ToString, Row("Puesto").ToString, Row("Lado").ToString.ToEntero) Then ErrorList.Add("Ocurrio un error al Guardar Firmas") End If @@ -4828,8 +4836,10 @@ Namespace Modelos If Not ErrorCancelar Then Dim Filtro As String = "" Select Case ObjFactura.TipoDocto - Case "Ing", "Ped", "Dev" + Case "Ing", "Ped" Filtro = "CveConcepto IN (3, 40)" + Case "Dev" + Filtro = "CveConcepto = 18" Case Else Filtro = "CveConcepto = 9" End Select @@ -4860,19 +4870,22 @@ Namespace Modelos If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen Then 'REALIZA DEVOLUCION A LAS SALIDAS PENDIENTES For Each RowMovimiento As DataRow In DtSalidas.Rows - Dim CveConceptoDevolucion As Integer = -1 - Dim CveAlmacenDevolucion As Integer = -1 + Dim CveConceptoMovimiento As Integer = -1 + Dim CveAlmacenMovimiento As Integer = -1 Dim CveMovimientoDevolucion As Integer = 0 Dim Folio As Integer = 0 Select Case RowMovimiento("CveConcepto").ToString().ToEntero() Case 3 - CveConceptoDevolucion = 18 'DEVOLUCION DEL CLIENTE - CveAlmacenDevolucion = RowMovimiento("CveAlmacen").ToString().ToEntero() + CveConceptoMovimiento = 18 'DEVOLUCION DEL CLIENTE + CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero() Case 40 - CveConceptoDevolucion = 41 'DEVOLUCIÓN DEL CLIENTE DIRECTA - CveAlmacenDevolucion = RowMovimiento("CveAlmacen").ToString().ToEntero() + CveConceptoMovimiento = 41 'DEVOLUCIÓN DEL CLIENTE DIRECTA + CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero() + Case 18 + CveConceptoMovimiento = 3 'DEVOLUCIÓN DEL CLIENTE DIRECTA + CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero() ''SI TIENE REMISIONES RELACIONADAS 'If DtRemisionesFacturadas.Rows.Count > 0 Then ' Dim RowRemision As DataRow = DtExistencias.FiltroPrimero($"CveMovimiento = {RowMovimiento("CveMovimiento").ToString()}") @@ -4896,12 +4909,20 @@ Namespace Modelos 'SI TIENE SALDO PENDIENTE POR DEVOLVER GENERA UN MOVIMIENTO DE DEVOLUCION If ObjFactura.SaldoAlmacen <> 0 Then 'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN) - CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenDevolucion, CveConceptoDevolucion, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, Modulo:="Mod/CV1") + CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenMovimiento, CveConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, Modulo:="Mod/CV1") Folio = ObjInventario.Folio If CveMovimientoDevolucion > 0 Then For Each Dr As DataRow In DtExistencias.FiltraParametros($"CveMovimiento = {RowMovimiento("CveMovimiento").ToString()}").Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero) Then + + Dim FechaCaducidad As Date = MinFecha + If Not String.IsNullOrEmpty(Dr("FechaCaducidad").ToString()) Then + If IsDate(Dr("FechaCaducidad")) Then + FechaCaducidad = Dr("FechaCaducidad").ToString().ToDate() + End If + End If + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, FechaCaducidad:=FechaCaducidad) Then ErrorCancelar = True MensajeError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar." Exit For @@ -4920,12 +4941,17 @@ Namespace Modelos DtCostos = ObjInventario.DtResultados Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"}) - Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero + Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {CveAlmacenMovimiento}").ToEntero 'Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero Dim IdCtaContable As Integer = 0 Dim CveCuenta As Integer = 0 If tmpCostos.Rows.Count > 0 Then + Dim Multiplicador As Decimal = -1D + If ObjFactura.TipoDocto = "Dev" Then + Multiplicador = 1D + End If + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then Dim Fecha As Date = Now Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero @@ -4950,7 +4976,7 @@ Namespace Modelos CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero If Not ErrorCancelar Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, False, -1 * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, False, Multiplicador * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=Multiplicador * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then ErrorCancelar = True End If End If @@ -4958,7 +4984,7 @@ Namespace Modelos cont += 1 Next - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, -1 * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * TotalCosto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, Multiplicador * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=Multiplicador * TotalCosto) Then ErrorCancelar = True End If @@ -4995,7 +5021,7 @@ Namespace Modelos 'DEVOLUCION REMISION - REGRESA LAS EXISTENCIAS A ENTREGA POR ADELANTADO SI LA FACTURA VIENE DE REMISION 'SI ES DEVOLUCION DEL CLIENTE DEBE REGRESAR A ENTREGA POR ADELANTADO - If Not ErrorCancelar AndAlso CveConceptoDevolucion = 18 AndAlso RevivirRemisiones Then + If Not ErrorCancelar AndAlso CveConceptoMovimiento = 18 AndAlso RevivirRemisiones Then If Not GeneraMovimientosEntregaPorAdelantadoRemision(CveMovimientoDevolucion, ObjVentas, ObjInventario, DtDevRem, ListaRemisionesCancelar) Then ErrorCancelar = True MensajeError = "Ocurrió un error al generar los movimientos de devolución a remisión" From a826b2f1d4b0347549e920269cc0f00525596a16 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 14 Apr 2021 17:10:15 -0700 Subject: [PATCH 05/11] Correcion en complementos de PAGO --- Bancos/RepComplementoPago.aspx.vb | 32 ++++++++++++++++--------------- Compras/PopUpVerFactura.aspx.vb | 6 +++++- 2 files changed, 22 insertions(+), 16 deletions(-) diff --git a/Bancos/RepComplementoPago.aspx.vb b/Bancos/RepComplementoPago.aspx.vb index ba740b104..79693c956 100644 --- a/Bancos/RepComplementoPago.aspx.vb +++ b/Bancos/RepComplementoPago.aspx.vb @@ -72,23 +72,25 @@ Partial Class Bancos_RepComplementoPago Dim Banco As New ClsBancos Banco.IniciaTransacSQL() - - If Banco.GeneraTimbrePago(gvr.DataKey("CveIE").ToEntero, -1, UsuarioActual, FechaTimbrado:=FechaTimbrado) Then - If Banco.Mensaje = "" Then - Banco.Commit() - PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False) - Str.AppendFormat("Folio: {0}  ", Banco.ComplementoSerieFolio) - Str.AppendFormat("XML    ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) - Str.AppendFormat("PDF   ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) - Str.AppendFormat("{1}   {2}
", gvr.DataKey("CveIE"), gvr.DataKey("Folio"), gvr.DataKey("NombreCliente")) - MandaCorreo(Banco.ComplementoSerieFolio, gvr.DataKey("CobranzaCorreo")) + Try + If Banco.GeneraTimbrePago(gvr.DataKey("CveIE").ToEntero, -1, UsuarioActual, FechaTimbrado:=FechaTimbrado) Then + If Banco.Mensaje = "" Then + Banco.Commit() + PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False) + Str.AppendFormat("Folio: {0}  ", Banco.ComplementoSerieFolio) + Str.AppendFormat("XML    ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) + Str.AppendFormat("PDF   ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) + Str.AppendFormat("{1}   {2}
", gvr.DataKey("CveIE"), gvr.DataKey("Folio"), gvr.DataKey("NombreCliente")) + MandaCorreo(Banco.ComplementoSerieFolio, gvr.DataKey("CobranzaCorreo")) + End If + Else + Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), Banco.Mensaje) + Banco.RollBack() End If - - Else - Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), Banco.Mensaje) + Catch ex As Exception + OnError("Ocurrió un error al generar el complemento de pago", ex) Banco.RollBack() - End If - + End Try Banco.Dispose() End If Next diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 9ec3b4e3e..29ddcca3a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -456,7 +456,11 @@ Partial Class PopUpVerFactura If UrlParametros("EXT").ToString.ToUpper = "PDF" Then If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then - PDFReciboDePagos(-1, UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir + Dim CveIE As Integer = -1 + If UrlParametros("CVEIE") IsNot Nothing Then + CveIE = UrlParametros("CVEIE").ToString.ToEntero + End If + PDFReciboDePagos(-1, CveIE, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir End If End If From 4b50700b4508d1f114deacee8413f474c698cbc5 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 14 Apr 2021 17:10:30 -0700 Subject: [PATCH 06/11] Correciones en impresiones de EXCEL en GPS --- GPS/Rastreo.aspx.vb | 222 +++++++++++++++++++++++++++++++++++++++----- 1 file changed, 198 insertions(+), 24 deletions(-) diff --git a/GPS/Rastreo.aspx.vb b/GPS/Rastreo.aspx.vb index 154536392..9200f00dd 100644 --- a/GPS/Rastreo.aspx.vb +++ b/GPS/Rastreo.aspx.vb @@ -1578,22 +1578,39 @@ Partial Class GPS_Rastreo If Opcion = "KM" Then If GVKm.Rows.Count > 0 Then - RutaReporte = "Empresas/Grales/ReportesProgramados/RPTKmRecorridos.rdlc" - NombreReporte = "ReporteKMRecorridos" + If Format = "PDF" Then + RutaReporte = "Empresas/Grales/ReportesProgramados/RPTKmRecorridos.rdlc" + NombreReporte = "ReporteKMRecorridos" + + Try + Dim RptParametro As New List(Of ReportParameter) + RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString)) + RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString)) + RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) + RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString)) + + retorno = StreamPDF(RutaReporte, DtDatos, RptParametro, $"{NombreReporte}{Date.Now.ToShortDateString}", Format, MR:=Nothing, RDSName:="DsOC") + + ImprimirbytesPDF(retorno, $"{NombreReporte}{Date.Now.ToShortDateString}", Format) + Catch ex As Exception + GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex)) + End Try + + Else + Dim filtros As String = $"Fechas: {FechaI.ToString("dd/MM/yyyy")} a {FechaF.ToString("dd/MM/yyyy")}" + + If DtDatos.Rows.Count > 0 AndAlso String.IsNullOrEmpty(DtDatos.Rows(0)("Vehiculo").ToString()) Then + DtDatos.Rows(0)("Vehiculo") = "Total Kilometros Recorridos" + End If + + DtDatos.Columns.RemoveAt(0) + DtDatos.Columns("Vehiculo").ColumnName = "Vehículo" + DtDatos.Columns("TiempoOperativo").ColumnName = "Tiempo Operativo" + DtDatos.Columns("Dist").ColumnName = "Kilometros Recorridos" + + ImprimirExcelG(DtDatos, "ReporteKMRecorridos.xlsx", "Reporte de Kilometros Recorridos", filtros, NombreHoja:="RepKM") + End If - Try - Dim RptParametro As New List(Of ReportParameter) - RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString)) - RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString)) - RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString)) - - retorno = StreamPDF(RutaReporte, DtDatos, RptParametro, $"{NombreReporte}{Date.Now.ToShortDateString}", Format, MR:=Nothing, RDSName:="DsOC") - - ImprimirbytesPDF(retorno, $"{NombreReporte}{Date.Now.ToShortDateString}", Format) - Catch ex As Exception - GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex)) - End Try Else Alert("No se pudo imprimir el pdf, ya que no se ha hecho una consulta, o ésta no arrojó resultados.", TipoMensaje.MsgInformacion) End If @@ -1737,8 +1754,16 @@ Partial Class GPS_Rastreo GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex)) End Try - retorno = StreamPDF(RutaReporte, DtDatos, RptParametro, $"{NombreReporte}{Date.Now.ToShortDateString}", Format, MR:=Nothing, RDSName:="DsOC") - ImprimirbytesPDF(retorno, $"{NombreReporte}{Date.Now.ToShortDateString}", Format) + If Opcion = "Idle" AndAlso Format = "EXCEL" Then + Dim filtros As String = $"Fechas: {FechaI.ToString("dd/MM/yyyy")} a {FechaF.ToString("dd/MM/yyyy")}, Tiempo Muerto: {TxtMinutos.Text} minutos" + + ImprimirExcelG(DtDatos, "ReporteKMRecorridos.xlsx", "Reporte de KM Recorridos", filtros) + Else + retorno = StreamPDF(RutaReporte, DtDatos, RptParametro, $"{NombreReporte}{Date.Now.ToShortDateString}", Format, MR:=Nothing, RDSName:="DsOC") + ImprimirbytesPDF(retorno, $"{NombreReporte}{Date.Now.ToShortDateString}", Format) + End If + + DtDatos.Clear() Else Alert("No se pudo imprimir el pdf, ya que no se ha hecho una consulta, o ésta no arrojó resultados.", TipoMensaje.MsgInformacion) @@ -1785,7 +1810,7 @@ Partial Class GPS_Rastreo SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) Dim FileExcel As ExcelFile = New ExcelFile Dim Dt = DtPosiciones.Copy() - Dt.Columns.Add("Direccion", GetType(String)) + Dt.Columns.Add("Dirección", GetType(String)) Dt.Columns.Remove("CveDispositivo") Dt.Columns.Remove("Evento") Dt.Columns.Remove("Icono") @@ -1797,11 +1822,42 @@ Partial Class GPS_Rastreo Dt.Columns.Remove("Posicion") For Each Dir As JObject In Direcciones - Dt.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString() + Dt.Rows(Dir("Indice").ToEntero())("Dirección") = Dir("Direccion").ToString() Next - Dim item = FileExcel.Worksheets.Add("Última Posición") - item.InsertDataTable(Dt, New InsertDataTableOptions() With + Dt.Columns("Vehiculo").ColumnName = "Vehículo" + Dt.Columns("Velocidad").ColumnName = "Velocidad (KM/H)" + + ImprimirExcelG(Dt, FileName, "Última Posición", "", NombreHoja:="UltimaPosicion") + + 'Dim item = FileExcel.Worksheets.Add("Última Posición") + 'item.InsertDataTable(Dt, New InsertDataTableOptions() With + ' { + ' .ColumnHeaders = True, + ' .StartRow = 0, + ' .StartColumn = 0 + ' }) + 'item.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255)) + 'item.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255) + + 'Dim columnCount = item.CalculateMaxUsedColumns() + 'For i = 0 To columnCount + ' item.Columns(i).AutoFit(1, item.Rows(i), item.Rows(item.Rows.Count - 1)) + 'Next + 'FileExcel.Save(Me.Response, FileName, SaveOptions.XlsxDefault) + + End Sub + + + Private Sub ImprimirExcelG(DtDatos As DataTable, Archivo As String, Titulo As String, Filtros As String, Optional NombreHoja As String = "Hoja1") + SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) + Dim excel As ExcelFile = New ExcelFile + + Dim TotalRowHeader As Integer = 8 + Dim TotalRowFooter As Integer = 2 + + Dim item = excel.Worksheets.Add(NombreHoja) + item.InsertDataTable(DtDatos, New InsertDataTableOptions() With { .ColumnHeaders = True, .StartRow = 0, @@ -1813,9 +1869,127 @@ Partial Class GPS_Rastreo Dim columnCount = item.CalculateMaxUsedColumns() For i = 0 To columnCount item.Columns(i).AutoFit(1, item.Rows(i), item.Rows(item.Rows.Count - 1)) - Next - FileExcel.Save(Me.Response, FileName, SaveOptions.XlsxDefault) - + Next + + + Dim worksheet = excel.Worksheets(0) + worksheet.Rows.InsertEmpty(0, TotalRowHeader) + Dim celdasConTexto = worksheet.GetUsedCellRange(True) + celdasConTexto.Style.Font.Name = "Calibri Light" + + Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) + RangoNombreEmpresa.Merged = True + RangoNombreEmpresa.Value = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=UsuarioActual.CveCliente).FiltroPrimeroValor("Nombre") + RangoNombreEmpresa.Style.Font.Size = 18 * 20 + RangoNombreEmpresa.Style.Font.Name = "Calibri Light" + RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) + RangoTitulo.Merged = True + RangoTitulo.Value = Titulo + RangoTitulo.Style.Font.Size = 20 * 20 + RangoTitulo.Style.Font.Name = "Calibri Light" + RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + 'If FechaIMes.Trim.Length > 0 And FechaFMes.Trim.Length > 0 Then + ' Dim RangoFechas = worksheet.Cells.GetSubrangeAbsolute(4, celdasConTexto.FirstColumnIndex, 4, celdasConTexto.LastColumnIndex) + ' RangoFechas.Merged = True + ' RangoFechas.Value = $"Fechas: {FechaIMes} a {FechaFMes}" + ' RangoFechas.Style.Font.Size = 15 * 20 + ' RangoFechas.Style.Font.Name = "Calibri Light" + ' RangoFechas.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + ' RangoFechas.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + 'End If + + + 'If SubProyecto.Length > 0 Then + ' Dim RangoSubProyecto = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex) + ' RangoSubProyecto.Merged = True + ' RangoSubProyecto.Value = SubProyecto + ' RangoSubProyecto.Style.Font.Size = 20 * 20 + ' RangoSubProyecto.Style.Font.Name = "Calibri Light" + ' RangoSubProyecto.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + ' RangoSubProyecto.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + 'End If + + + If Not String.IsNullOrEmpty(Filtros) Then + Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex) + RangoDatoTituloExtra.Merged = True + RangoDatoTituloExtra.Value = Filtros + RangoDatoTituloExtra.Style.Font.Size = 15 * 20 + RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" + RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + End If + + + For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + + worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20 + worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + + + + If i > 0 Then + Try + worksheet.Columns(i).AutoFit(1) + Catch ex As Exception + End Try + End If + + Next + + + + Dim IndexEndTable As Integer = DtDatos.Rows.Count + TotalRowHeader + TotalRowFooter + + worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió" + worksheet.Rows(IndexEndTable + 1).Cells(0).Value = UsuarioActual.Nombre + + worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión" + worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy") + + 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + + 'If Imagen.Exists Then + ' Dim Ruta As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta) + ' Using sr As New StreamReader(Ruta) + ' Dim ms As New MemoryStream() + ' sr.BaseStream.CopyTo(ms) + ' worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", 100, 100, LengthUnit.Pixel) + ' End Using + 'End If + + + For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + + If I > 0 Then + + 'If Divisor = 1 Then + ' worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" + 'Else + ' worksheet.Columns(I + 1).Style.NumberFormat = "#,##" + 'End If + + Try + worksheet.Columns(I).AutoFit(1) + Catch ex As Exception + End Try + + End If + Next + + excel.Save(Me.Response, Archivo, SaveOptions.XlsxDefault) + End Sub Private Function CargaDireccion(ByVal lat As String, ByVal lng As String) As String Try From dcb0a375913dbf31269ce0ae1b7a3d1c37ee8fb7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 14 Apr 2021 17:11:29 -0700 Subject: [PATCH 07/11] Correciones de folios de garantia en PV --- Ventas/PV.aspx.vb | 2 -- 1 file changed, 2 deletions(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index f908576ee..e481299ef 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -6274,8 +6274,6 @@ Partial Class PV GvRecepcionUsados.DataSource = DtTamanios GvRecepcionUsadosModal.DataSource = DtTamanios - - DdlFolioGarantia.DataBind() DdlTipoUso.DataBind() DdlTipoDefecto.DataBind() DdlFacturas.DataBind() From 1c53e4b0acb8885519a488dbe54696cf6961e69d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 14 Apr 2021 17:13:32 -0700 Subject: [PATCH 08/11] Complementos INE, cuenta de pago en empresa llantera, correciones en RNC descuento --- Ventas/Ventas.aspx | 795 +++++++++++++++++++++++------------- Ventas/Ventas.aspx.vb | 913 +++++++++++++++++++++++++++++++----------- 2 files changed, 1198 insertions(+), 510 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index c0658934e..81aaae32d 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -756,8 +756,7 @@ Servicio a Domicilio:  - - activado + activado @@ -1263,7 +1262,7 @@ - <%--22--%> + <%--22--%> @@ -1428,7 +1427,8 @@ - + <%-- --%> + @@ -2210,8 +2210,7 @@ - - - + + + + +
- +
@@ -2343,8 +2342,7 @@
- +
@@ -2435,123 +2433,7 @@
- -
-
-
- - 7Eleven - -
-
-
-
-
- -
- -
-
- -
-
- - - - - - - - - - - - - - - - - -
Proveedor:  -
- -
-
Folio:  -
- -
-
Tienda:  -
- -
- <%----%> -
Fecha:  - -
- - - - - - - - -
-
-
-
-
-
-
-
- - FORD - -
-
-
-
-
- -
- -
-
-
-
- - - - - - - - - - - - - -
GSDB:   -
- -
-
ASN :   -
- -
-   - - -
- - -
-
-
-
-
+
@@ -2723,6 +2605,230 @@
+
+
+
+ + 7Eleven + +
+
+
+
+
+ +
+ +
+
+ +
+
+ + + + + + + + + + + + + + + + + +
Proveedor:  +
+ +
+
Folio:  +
+ +
+
Tienda:  +
+ +
+ <%----%> +
Fecha:  + +
+ + + + + + + + +
+
+
+
+
+ 		+
+
+
+ + FORD + +
+
+
+
+
+ +
+ +
+
+
+
+ + + + + + + + + + + + + +
GSDB:   +
+ +
+
ASN :   +
+ +
+   + + +
+ + +
+
+
+
+ 		+
+
+
+ + Complementos INE +
+
+
+
+
+
+ +
+
+
+
+
+
+ + + + + + +
+
+ + + + + + + + + + + + + + + + + + + +
Tipo Campaña: + + + + +
Ambito: + + + + +
Entidad: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Id Conta: + + + +
+ + +
+
+
+
+
+
@@ -2840,9 +2946,9 @@
- + - +
@@ -3366,7 +3472,7 @@
- +
$ @@ -3947,7 +4053,7 @@
- +
--%> <%-- ******************************************** Corte de Caja *************************************************************************************************************************************** --%> @@ -6060,7 +6166,8 @@
-
+ +
@@ -6069,12 +6176,14 @@
-
+ +
- Agregar
+ Agregar +

@@ -6349,7 +6458,7 @@
- +
@@ -6907,75 +7016,124 @@
-
-
-
- - Cargos -
-
-
-
-
-
- -
+ + + + + +
+
+ +
+
+
+
+
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
-
-
- - - - - - - - - - - - - - - - - - - - - - - - - - - +
+
+
+
+
+
+ + + +
+
+
+
+
+
+ +
-
-
-
- - - - - - -
Saldo Maximo Utilizable.: -   -
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + +
+
+
+
+ + + + + + +
Saldo Maximo Utilizable.: +   +
+
+
-
+
@@ -7021,7 +7179,7 @@ - + @@ -7046,6 +7204,7 @@
+
@@ -7344,13 +7503,66 @@ } function CalculaSaldoRNCBonChk(TxtImporte, Saldo, Chk) { + //if (Chk.checked) { + // TxtImporte.value = FormatoNumero(Saldo, 2); + //} else { + // TxtImporte.value = ""; + //} if (Chk.checked) { - TxtImporte.value = FormatoNumero(Saldo, 2); + let SaldoMaximoUtilizable = ToDouble(HdnSMUBonDesc.value) + let ImportesAsignados = 0; + + $('.ImportesRNCBon').each(function () { + if ($(this).context.id != TxtImporte.id) { + ImportesAsignados += ToDouble($(this).val()); + } + }); + let Importe = SaldoMaximoUtilizable - ImportesAsignados; + + if (Importe > 0) { + if (Saldo > Importe) { + TxtImporte.value = FormatoNumero(Importe, 2); + } else { + TxtImporte.value = FormatoNumero(Saldo, 2); + } + } else { + if (SaldoMaximoUtilizable > 0) { + TxtImporte.value = ""; + Chk.checked = false; + } else { + TxtImporte.value = FormatoNumero(Saldo, 2); + } + + } + } else { TxtImporte.value = ""; } } function LimitaSaldoRNCBonChk(TxtImporte, Saldo) { + //var Importe = 0; + + //if (TxtImporte.value.includes('.')) { + // return; + //} + //if (TxtImporte.value.includes(',')) { + // return; + //} + + //var regex = new RegExp("^[-+]?[0-9]+\.[0-9]+$"); + + //if (regex.test(TxtImporte.value)) { + // if (TxtImporte.value != '') { + // Importe = parseFloat(TxtImporte.value); + // } + + // if (Importe > Saldo) { + // TxtImporte.value = FormatoNumero(Saldo, 2); + // } else { + // TxtImporte.value = FormatoNumero(Importe, 2);; + // } + //} + var Importe = 0; if (TxtImporte.value.includes('.')) { @@ -7367,8 +7579,17 @@ Importe = parseFloat(TxtImporte.value); } - if (Importe > Saldo) { - TxtImporte.value = FormatoNumero(Saldo, 2); + let SaldoMaximoUtilizable = parseFloat(HdnSMUBonDesc.value) + let ImportesAsignados = 0; + $('.ImportesRNCBon').each(function () { + if ($(this).context.id != TxtImporte.id) { + ImportesAsignados += ToDouble($(this).val()); + } + }); + let ImporteDiferencia = SaldoMaximoUtilizable - ImportesAsignados; + + if (Importe > ImporteDiferencia) { + TxtImporte.value = FormatoNumero(ImporteDiferencia, 2); } else { TxtImporte.value = FormatoNumero(Importe, 2);; } @@ -8402,99 +8623,99 @@ function ConvertirDolares(ChkConvertirDolares) { //LIMPIA $('#<%= LblDolaresConvertidos.ClientID %>').text(''); - $("#TrConversionDolaresTexto").hide(); - - //CALCULA - if (ChkConvertirDolares.checked) { - ConvertirPesosDlls(); - } - } - - //FUNCIONES PARA MODAL "ModalAplicarNC" - function CalculaImporteNC() { - var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); - //var ImporteReferencia = ToDouble($get('TxtTotal').value); - - $get('TxtNCImporte').value = FormatoNumero((ToDouble($get('TxtNCPorcentaje').value) * ImporteReferencia) / 100, 2); - } - - function CalculaPorcentajeNC() { - var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); - //var ImporteReferencia = ToDouble($get('TxtTotal').value); - $get('TxtNCPorcentaje').value = FormatoNumero((ToDouble($get('TxtNCImporte').value) * 100) / ImporteReferencia, 4); - } - - function CambioTipoMoneda(chk, saldo, txt, tipocambio, CveMoneda) { - debugger; - if (tipocambio.value.length > 0) { - - if (CveMoneda == 1) { - txt.value = FormatoNumero(ToDouble(saldo / tipocambio.value), 2); - } else { - txt.value = FormatoNumero(ToDouble(saldo * tipocambio.value), 2); + $("#TrConversionDolaresTexto").hide(); + //CALCULA + if (ChkConvertirDolares.checked) { + ConvertirPesosDlls(); } } - } - function BuscarOCRegistrada() { - $('#btnBuscarOCRegistrada').click(); - } + //FUNCIONES PARA MODAL "ModalAplicarNC" + function CalculaImporteNC() { + var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); + //var ImporteReferencia = ToDouble($get('TxtTotal').value); - function ValidaAnticipoBoton() { + $get('TxtNCImporte').value = FormatoNumero((ToDouble($get('TxtNCPorcentaje').value) * ImporteReferencia) / 100, 2); + } - var Descuentototal = ToDouble($('#LblDescuentos').text()).toFixed(2); - var TotalAnticipos = ToDouble($('#LblTotalAnticipos').text()).toFixed(2); + function CalculaPorcentajeNC() { + var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); + //var ImporteReferencia = ToDouble($get('TxtTotal').value); + $get('TxtNCPorcentaje').value = FormatoNumero((ToDouble($get('TxtNCImporte').value) * 100) / ImporteReferencia, 4); + } - var IndexActualDdl = parseInt($('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').prop('selectedIndex')); + function CambioTipoMoneda(chk, saldo, txt, tipocambio, CveMoneda) { + debugger; + if (tipocambio.value.length > 0) { + + if (CveMoneda == 1) { + txt.value = FormatoNumero(ToDouble(saldo / tipocambio.value), 2); + } else { + txt.value = FormatoNumero(ToDouble(saldo * tipocambio.value), 2); + + } + } + } + + function BuscarOCRegistrada() { + $('#btnBuscarOCRegistrada').click(); + } + + function ValidaAnticipoBoton() { + + var Descuentototal = ToDouble($('#LblDescuentos').text()).toFixed(2); + var TotalAnticipos = ToDouble($('#LblTotalAnticipos').text()).toFixed(2); + + var IndexActualDdl = parseInt($('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').prop('selectedIndex')); - if (IndexActualDdl == 1 && IndexActualDd2 > 0 && TotalAnticipos > 0) { + if (IndexActualDdl == 1 && IndexActualDd2 > 0 && TotalAnticipos > 0) { - if (TotalAnticipos > 0) { - $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', false); + if (TotalAnticipos > 0) { + $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', false); + } else { + $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', true); + } } else { $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', true); } - } else { - $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', true); + } - } + function showDivEC() { + $('#<%= TxtRFCCliente.ClientID %>').val(''); + $('#<%= TxtNombreCliente.ClientID %>').val(''); + $('#<%= TxtDireccionCliente.ClientID %>').val(''); + $('#<%= TxtNumExtCliente.ClientID %>').val(''); + $('#<%= TxtNumIntCliente.ClientID %>').val(''); + $('#<%= TxtCPCliente.ClientID %>').val(''); + $('#<%= TxtColoniaCliente.ClientID %>').val(''); + $('#<%= TxtTelefonoCliente.ClientID %>').val(''); + $('#<%= TxtCiudadCliente.ClientID %>').val(''); + $('#<%= TxtLocalidadCliente.ClientID %>').val(''); + $('#<%= DdlSATPais.ClientID %>').val(''); + $('#<%= DdlEstadoSAT.ClientID %>').val(''); + $('#<%= TxtCorreoCliente.ClientID %>').val(''); - function showDivEC() { - $('#<%= TxtRFCCliente.ClientID %>').val(''); - $('#<%= TxtNombreCliente.ClientID %>').val(''); - $('#<%= TxtDireccionCliente.ClientID %>').val(''); - $('#<%= TxtNumExtCliente.ClientID %>').val(''); - $('#<%= TxtNumIntCliente.ClientID %>').val(''); - $('#<%= TxtCPCliente.ClientID %>').val(''); - $('#<%= TxtColoniaCliente.ClientID %>').val(''); - $('#<%= TxtTelefonoCliente.ClientID %>').val(''); - $('#<%= TxtCiudadCliente.ClientID %>').val(''); - $('#<%= TxtLocalidadCliente.ClientID %>').val(''); - $('#<%= DdlSATPais.ClientID %>').val(''); - $('#<%= DdlEstadoSAT.ClientID %>').val(''); - $('#<%= TxtCorreoCliente.ClientID %>').val(''); + $('#divAgregarCliente').modal(); + } - $('#divAgregarCliente').modal(); - } + function hideDivEC() { + $('#divAgregarCliente').modal('hide'); + } - function hideDivEC() { - $('#divAgregarCliente').modal('hide'); - } + var ValidarRNC = false; + function AplicarValidarRNC(Valor) { + ValidarRNC = Valor; + } + function CompararNC() { + if (ValidarRNC) { + var TotalRem = ToDouble(document.getElementById('<%= TxtImportesRemisionesNC.ClientID %>').value); + var TotalNC = ToDouble(document.getElementById('<%= TxtNCImporte.ClientID %>').value); - var ValidarRNC = false; - function AplicarValidarRNC(Valor) { - ValidarRNC = Valor; - } - function CompararNC() { - if (ValidarRNC) { - var TotalRem = ToDouble(document.getElementById('<%= TxtImportesRemisionesNC.ClientID %>').value); - var TotalNC = ToDouble(document.getElementById('<%= TxtNCImporte.ClientID %>').value); - - if (TotalRem == TotalNC) { - document.getElementById('<%= TxtImportesRemisionesNC.ClientID %>').style.border = "2px solid #04B431"; + if (TotalRem == TotalNC) { + document.getElementById('<%= TxtImportesRemisionesNC.ClientID %>').style.border = "2px solid #04B431"; document.getElementById('<%= TxtNCImporte.ClientID %>').style.border = "2px solid #04B431"; document.getElementById('<%= TxtImportesRemisionesNC.ClientID %>').style.color = ""; document.getElementById('<%= TxtNCImporte.ClientID %>').style.color = ""; @@ -8519,22 +8740,22 @@ var verficaRNC = function () { var total = 0; if ('<%= UsuarioActual.CveEmpresa %>' == '140') { - $(".ChkAplicaRNC > input").each(function () { - if (this.checked) { - total = total + 1; - } - if (total == 2) { - alert("No se puede seleccionar mas de una remisión de nota de crédito."); - this.checked = false; - return false; - } - }); - } - }; + $(".ChkAplicaRNC > input").each(function () { + if (this.checked) { + total = total + 1; + } + if (total == 2) { + alert("No se puede seleccionar mas de una remisión de nota de crédito."); + this.checked = false; + return false; + } + }); + } + }; - function showDivAgregarSucursal() { + function showDivAgregarSucursal() { - $('#<%= TxtNombreSucursal.ClientID %>').val(''); + $('#<%= TxtNombreSucursal.ClientID %>').val(''); $('#<%= TxtDireccionSucursal.ClientID %>').val(''); $('#<%= TxtNumExtSucursal.ClientID %>').val(''); $('#<%= TxtNumIntSucursal.ClientID %>').val(''); diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ceecd7d8f..82cf85254 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2174,7 +2174,7 @@ Partial Class Ventas ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';") ImgAntiPend.Attributes.Add("onclick", "$get('HdnTipoDescuento').value = '3'; MuestraAnticipos();") ImgOtrosConceptos.Attributes.Add("onclick", "javascript:$('#ModalOtrosConceptos').modal();") - LkbAgregarComplementos.Attributes.Add("onclick", "javascript:$('#ModalComplementos').modal();") + 'LkbAgregarComplementos.Attributes.Add("onclick", "javascript:$('#ModalComplementos').modal();") 'ImgCerrar.Attributes.Add("OnClick", "$('#DivAnticipos').hide();") 'LkbEstadodeCaja.Attributes.Add("OnClick", "MuestraEstadoCaja();") 'LkbIngreso.Attributes.Add("OnClick", "MuestraIngresoEgreso(1);") @@ -2820,7 +2820,7 @@ Partial Class Ventas UpParametros.Update() DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento) CambiaTipoDocto() - LimpiaEscondeContado(CveFormaPago33Cliente) + LimpiaEscondeContado() End If InicializaAplicarNC() @@ -4263,7 +4263,10 @@ Partial Class Ventas If Not HplSaldoAuxiliar.Text.ToDouble > 0 Then HplSaldoAuxiliar.Visible = False HplPagado.Visible = True - + Dim EsCancelado = GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {CveEstatus}").ToEntero() = 5 + If EsCancelado Then + HplPagado.Text = "CANCELADO" + End If If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then ImgAntiPend.Visible = True Else @@ -4871,8 +4874,60 @@ Partial Class Ventas Else BtnGenerarRemision.Visible = False End If + If UsuarioActual.TienePermisoProceso(60) Then BtnsFacturar.Visible = True 'puede facturar + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(60) Then + + Select Case UsuarioActual.Empresa.Funcionalidad(135) + Case "1" ' POR SUPERVISOR + Dim ObjVendedores As New ClsVtaVendedores + + If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then + Dim DTVendedores As New DataTable + If DbRowVenta("CveVendedor").ToString().ToEntero() > 0 AndAlso UsuarioActual.CveVendedor > 0 Then + DTVendedores = ObjVendedores.DtResultados.FiltraParametros(String.Format("CveVendedor = {0}", DbRowVenta("CveVendedor").ToString())).FiltraParametros(String.Format("CveSupervisor = {0}", UsuarioActual.CveVendedor)) + End If + + 'Verifico si es su supervisor asignado + If DTVendedores.Rows.Count > 0 Then + If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then + BtnsFacturar.Visible = True + + If UsuarioActual.TienePermisoProceso(199) Then + BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True) + Else + BtnGenerarRemision.Visible = False + End If + + Else + BtnsFacturar.Visible = False + BtnGenerarRemision.Visible = False + End If + End If + + DTVendedores.Dispose() + End If + ObjVendedores.Dispose() + + Case "2" ' POR PERMISO + If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then + BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60) + + If UsuarioActual.TienePermisoProceso(199) Then + BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True) + Else + BtnGenerarRemision.Visible = False + End If + Else + BtnsFacturar.Visible = False + BtnGenerarRemision.Visible = False + End If + + End Select + + End If + LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274) End If End If @@ -4951,14 +5006,16 @@ Partial Class Ventas ObjVendedores.Dispose() Case "2" ' POR PERMISO - If UsuarioActual.TienePermisoProceso(116) Then - If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then - BtnsFacturar.Visible = True - BtnGenerarRemision.Visible = True + If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then + BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60) + If UsuarioActual.TienePermisoProceso(199) Then + BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True) Else - BtnsFacturar.Visible = False BtnGenerarRemision.Visible = False End If + Else + BtnsFacturar.Visible = False + BtnGenerarRemision.Visible = False End If End Select @@ -5170,7 +5227,7 @@ Partial Class Ventas 'End If End Sub - Private Sub CargaFormaPago(CveMetodoPago As Integer, Optional CveFormaPago As Integer = -1) + Private Sub CargaFormaPago(CveMetodoPago As Integer) 'FACTURACION 3.3 'permiso para desbloquear la relación entre Método de pago y forma de pago @@ -5186,14 +5243,9 @@ Partial Class Ventas 'DdlFormaPago33.ClearSelection() 'DdlFormaPago33.DataBind() DdlFormaPago33.DataSource = dtt + DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "") DdlFormaPago33.DataBind() - If CveFormaPago > 0 Then - DdlFormaPago33.SelectedValueExist(CveFormaPago) - Else - DdlFormaPago33.SelectedValueExist(dtt.FiltroPrimeroValor("CveFormaPago", "")) - End If - DdlFormaCliente.DataSource = GlobalDTVtaFormaPago DdlFormaCliente.DataBind() DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago @@ -7974,7 +8026,9 @@ Partial Class Ventas 'SOLO GENERAR NC POR DESCUENTO PRONTO PAGO SI EL PAGO ES DE CONTADO If RBLPago.SelectedValue = "2" AndAlso ObjFactura.DescuentoProntoPago > 0 Then Dim ImportePagado = DtPagos.SUM("Importe").ToString().ToDecimal - If (ImportePagado + ObjFactura.DescuentoProntoPago) >= ObjFactura.Total Then + Dim ImporteRNC As Decimal = LblDescuentosRNC.Text.ToDecimal() + + If (ImportePagado + ImporteRNC + ObjFactura.DescuentoProntoPago) >= ObjFactura.Total Then Dim RespFacturaProntoPago = GenerarNCProntoPago(ObjVentas.IniciaTransacSQL(), ObjClientes, ObjContPaq, ObjFactura) If RespFacturaProntoPago.ObjFacturaProntoPago Is Nothing OrElse RespFacturaProntoPago Is Nothing Then @@ -7990,7 +8044,8 @@ Partial Class Ventas Obj2.Add(RespFacturaProntoPago.ObjFacturaProntoPago) End If End If - + Else + ErrorList.Add("No se pudo generar la nota de crédito de pronto pago, no coiciden los pagos con el total a pagar de la factura") End If @@ -9762,6 +9817,22 @@ Partial Class Ventas If Not CveEmpresaCRM > 0 Then ObjFactura.Timbre = PreParaTimbre(ObjFactura) + 'SI SE ESTA EDITANDO ACTUALIZA LOS IMPORTES DEL DT + If GvImpuestosLocales2.Visible AndAlso GvImpuestosLocales2.Enabled Then + For Each gvr As GridViewRow In GvImpuestosLocales2.Rows + If gvr.RowType = DataControlRowType.DataRow Then + + Dim DrsImpuestos = TmpDTImpuestos.Select($"CveImpuestoLocal={gvr.DataKey("CveImpuestoLocal")}") + + If DrsImpuestos IsNot Nothing AndAlso DrsImpuestos.Length = 1 Then + DrsImpuestos(0)("Importe") = gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble + End If + + End If + Next + End If + + 'RMF. faltan impuestos locales If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto = 1").Rows.Count > 0 Then @@ -15048,31 +15119,31 @@ Partial Class Ventas RegistraScript("$('#ModalOtrosConceptos').modal('hide')", "hidemodal") End Sub - Private Sub BtnAplicarComplementos_Click(sender As Object, e As EventArgs) Handles AplicarComplementosTimbrado.Click - LkbAgregarComplementos.CssClass = "btn btn-circle btn-xs green" - UpPS.Update() + 'Private Sub BtnAplicarComplementos_Click(sender As Object, e As EventArgs) Handles AplicarComplementosTimbrado.Click + ' LkbAgregarComplementos.CssClass = "btn btn-circle btn-xs green" + ' UpPS.Update() - RegistraScript("$('#ModalComplementos').modal('hide')", "hidemodal") - End Sub - Private Sub BtnCancelarComplementos_Click(sender As Object, e As EventArgs) Handles CancelarComplementosTimbrado.Click - trEntidad.Visible = False - trContaComplementos.Visible = False - trAmbito.Visible = False - trTipoCampaña.Visible = False + ' RegistraScript("$('#ModalComplementos').modal('hide')", "hidemodal") + 'End Sub + 'Private Sub BtnCancelarComplementos_Click(sender As Object, e As EventArgs) Handles CancelarComplementosTimbrado.Click + ' trEntidad.Visible = False + ' trContaComplementos.Visible = False + ' trAmbito.Visible = False + ' trTipoCampaña.Visible = False - RblComplementos.SelectedIndex = -1 - TxtIdConta.Text = "" - DdlTipoCampaña.SelectedIndex = -1 - DdlAmbitoComplemento.SelectedIndex = -1 - DdlINEEntidad.SelectedIndex = -1 + ' RblComplementos.SelectedIndex = -1 + ' TxtIdConta.Text = "" + ' DdlTipoCampaña.SelectedIndex = -1 + ' DdlAmbitoComplemento.SelectedIndex = -1 + ' DdlINEEntidad.SelectedIndex = -1 - LkbAgregarComplementos.CssClass = "btn btn-circle btn-xs gray" - UpComplementos.Update() - UpDatosComplementos.Update() - UpPS.Update() + ' LkbAgregarComplementos.CssClass = "btn btn-circle btn-xs gray" + ' UpComplementos.Update() + ' UpDatosComplementos.Update() + ' UpPS.Update() - RegistraScript("$('#ModalComplementos').modal('hide')", "hidemodal") - End Sub + ' RegistraScript("$('#ModalComplementos').modal('hide')", "hidemodal") + 'End Sub '2019-07-31 OSCAR Nuevo cancela usando el metodo de cancelacion de facturas Protected Sub LnkCancelarComplemetno_Click(sender As Object, e As EventArgs) @@ -19983,7 +20054,7 @@ Partial Class Ventas TxtImporteOtrosContado.Text = "0.00" End Sub - Private Sub LimpiaEscondeContado(Optional CveFormaPagoCliente As Integer = -1) + Private Sub LimpiaEscondeContado() 'LIMPIA DivContado.Visible = False DivTerminal.Visible = False @@ -20002,7 +20073,7 @@ Partial Class Ventas If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then DdlFormaPago33.Enabled = False DdlFormaPago33.SelectedValueExist("20") - CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPagoCliente) + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) End If End If @@ -20020,7 +20091,7 @@ Partial Class Ventas If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then DdlFormaPago33.Enabled = True - CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPagoCliente) + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) End If End If @@ -20061,9 +20132,17 @@ Partial Class Ventas Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) - DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) - DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) - DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + Else + DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + End If + DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DtCC.Dispose() @@ -20367,7 +20446,7 @@ Partial Class Ventas End Sub Private Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged - LimpiaEscondeContado(CveFormaPago33Cliente) + LimpiaEscondeContado() End Sub Private Function ValidaPagosContado() As Boolean Dim Retorno = False @@ -24497,6 +24576,48 @@ Partial Class Ventas End Select End Sub + + Protected Sub RblRNCTipoDesc_SelectedIndexChanged(sender As Object, e As EventArgs) + Select Case RblRNCTipoDesc.SelectedValue + Case "1" 'CARGOS + LtlCargoDesc.Text = "CARGOS" + DivRNCCargoDesc.Visible = True + DivRNCBonDesc.Visible = True + + If ChkMostarProductosRNCDesc.Checked Then + DivRNCCargoDescTotal.Visible = False + DivRNCCargoDescDetalle.Visible = True + CargaRNCDetalleDesc() + Else + DivRNCCargoDescTotal.Visible = True + DivRNCCargoDescDetalle.Visible = False + CargaRNCDesc(False, False) + End If + + CargaBonificacionesDesc("-1", True) + + Case "2" 'BONIFICACIONES + DivRNCCargoDesc.Visible = False + DivRNCBonDesc.Visible = True + CargaRNCDesc(True, False) + Case "3" 'AJUSTE/GARANTIAS + LtlCargoDesc.Text = "AJUSTES/GARANTIAS" + DivRNCCargoDesc.Visible = True + DivRNCBonDesc.Visible = True + + If ChkMostarProductosRNCDesc.Checked Then + DivRNCCargoDescTotal.Visible = False + DivRNCCargoDescDetalle.Visible = True + CargaRNCDetalleDesc(True) + Else + DivRNCCargoDescTotal.Visible = True + DivRNCCargoDescDetalle.Visible = False + CargaRNCDesc(False, True) + End If + + CargaBonificacionesDesc("-1", True) + End Select + End Sub Protected Sub ChkMostarProductosRNC_CheckedChanged(sender As Object, e As EventArgs) If ChkMostarProductosRNC.Checked Then DivRNCCargos.Visible = False @@ -24509,6 +24630,12 @@ Partial Class Ventas End If UpModalRemisionesNC.Update() End Sub + Protected Sub ChkMostarProductosRNCDesc_CheckedChanged(sender As Object, e As EventArgs) + + RblRNCTipoDesc_SelectedIndexChanged(RblRNCTipo, EventArgs.Empty) + + UpModalRemisionesNC.Update() + End Sub Private Sub CargaRNC(Optional CveVentaUsado As Integer = -1, Optional CargarBonificaciones As Boolean = False, Optional CargarSoloGarantias As Boolean = False) Dim DtNC As DataTable = Nothing @@ -24572,6 +24699,41 @@ Partial Class Ventas UpModalRemisionesNC.Update() UpDescNC.Update() End Sub + Private Sub CargaRNCDesc(Optional CargarBonificaciones As Boolean = False, Optional CargarSoloGarantias As Boolean = False) + Dim DtNC As DataTable = Nothing + + Dim ObjMovtos As New ClsMovimientos() + If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then + DtNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio") + End If + ObjMovtos.Dispose() + + Me.TmpDTRNCBonificacionesSeleccionadas = Nothing + + Me.TmpDTRNCBonificacionesCliente = DtNC.FiltraParametros("TipoRNC = 2") + Me.TmpDTRNCBonificacionesCliente.Columns.Add("ImporteBonificacion", GetType(Decimal)) + Me.TmpDTRNCBonificacionesCliente.Columns.Add("IVABonificacion", GetType(Decimal)) + Me.TmpDTRNCBonificacionesCliente.Columns.Add("CveVentaRNCCargo", GetType(Integer)) + + If CargarBonificaciones Then + 'Me.TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Copy() + CargaBonificacionesDesc("-1", True) + End If + + If CargarSoloGarantias Then + GvDescNCCargos.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = True") + Else + GvDescNCCargos.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = False") + End If + GvDescNCCargos.DataBind() + + Dim SaldoMaximoUsados As Decimal = Me.TmpDT.SUM("Total", "EsCargo = True").ToDecimal() + Me.TmpDT.SUM("ImporteIVA", "EsCargo = True").ToDecimal() + HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString() + LblSaldoMaximoUsados.Text = String.Format("{0:N2}", SaldoMaximoUsados) + + UpDescNC.Update() + End Sub + Private Sub CargaRNCDetalle(Optional CveVentaUsado As Integer = -1) Dim DtNC As DataTable = Nothing @@ -24629,124 +24791,41 @@ Partial Class Ventas UpModalRemisionesNC.Update() UpDescNC.Update() End Sub - Private Sub CargaDescRNC() + Private Sub CargaRNCDetalleDesc(Optional CargarSoloGarantias As Boolean = False) Dim DtNC As DataTable = Nothing + Dim ObjMovtos As New ClsMovimientos() - If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then - DtNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio") + If ObjMovtos.GetRemisionesNCCliente(CveCliente, True, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then + Me.TmpDTRNCDetalle = ObjMovtos.DtResultados.Copy() End If ObjMovtos.Dispose() - TmpDTRNCBonificacionesSeleccionadas = Nothing + Me.TmpDTRNCDetalle.Columns.Add(New DataColumn("CveVentaDetalleNCGenerada", GetType(Integer))) - GvDescNCCargos.DataSource = DtNC.FiltraParametros("TipoRNC = 1") - GvDescNCBonificaciones.DataSource = TmpDTRNCBonificacionesSeleccionadas + Me.TmpDTRNCDetalleSelecciondas = Nothing + Me.TmpDTRNCDetalleSelecciondas = TmpDTRNCDetalle.Clone() + Me.TmpDTRNCDetalleSelecciondas.Clear() - Me.TmpDTRNCBonificacionesCliente = DtNC.FiltraParametros("TipoRNC = 2") - Me.TmpDTRNCBonificacionesCliente.Columns.Add("ImporteBonificacion", GetType(Decimal)) - Me.TmpDTRNCBonificacionesCliente.Columns.Add("IVABonificacion", GetType(Decimal)) - Me.TmpDTRNCBonificacionesCliente.Columns.Add("CveVentaRNCCargo", GetType(Integer)) - - GvDescNCCargos.DataBind() - GvDescNCBonificaciones.DataBind() + If CargarSoloGarantias Then + GvDescNCCargosDetalle.DataSource = TmpDTRNCDetalle.FiltraParametros("TipoRNC = 1") + Else + GvDescNCCargosDetalle.DataSource = TmpDTRNCDetalle.FiltraParametros("TipoRNC = 1") + End If + GvDescNCCargosDetalle.DataBind() Dim SaldoMaximoUsados As Decimal = Me.TmpDT.SUM("Total", "EsCargo = True").ToDecimal() + Me.TmpDT.SUM("ImporteIVA", "EsCargo = True").ToDecimal() + If SaldoMaximoUsados > 0 Then - LblSaldoMaximoUsados.Text = String.Format("{0:N2}", SaldoMaximoUsados) HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString() + LblSaldoMaximoUsados.Text = String.Format("{0:N2}", SaldoMaximoUsados) Else HdnSaldoMaximoUsados.Value = "0" - LtlSMU.Text = "0" + LblSaldoMaximoUsados.Text = "0" End If - UpDescNC.Update() End Sub - Protected Sub ChkAplicarRNC_CheckedChanged(sender As Object, e As EventArgs) - Dim ChkAplicarRNC As CheckBox = DirectCast(sender, CheckBox) - Dim GvRow As GridViewRow = DirectCast(ChkAplicarRNC.NamingContainer, GridViewRow) - - CargaBonificacionesDesc(GvRow.DataKey("CveVenta").ToEntero(), ChkAplicarRNC.Checked) - - End Sub - - Private Sub CargaBonificacionesDesc(CveVentaRNCCargo As Integer, AplicarRNC As Boolean) - If TmpDTRNCBonificacionesSeleccionadas Is Nothing Then - TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Clone() - End If - - Dim ListaBon As New List(Of VentasBonificaciones) - Dim DtBon As DataTable = Nothing - Dim SbFiltro As New StringBuilder() - SbFiltro.Append("CveVenta IN(") - Using ObjAcum As New ClsAcumuladores - If ObjAcum.DistribuidorMovtosGet(CveCliente, UsuarioActual.CveEmpresa, CveVentaRNCCargo:=CveVentaRNCCargo) Then - DtBon = ObjAcum.DtResultados.Copy() - End If - End Using - - If DtBon IsNot Nothing Then - Dim queryBonificacion = From dr In DtBon - Group By CveVentaBonificacion = dr("CveVentaBonificacion").ToString().ToEntero - Into x = Group - Select New With { - .CveVentaBonificacion = CveVentaBonificacion, - .ImporteBonificacion = x.Sum(Function(s) s("ImporteBonificacion").ToString().ToDecimal), - .IVABonificacion = x.Sum(Function(s) s("IVABonificacion").ToString().ToDecimal) - } - - For Each bon In queryBonificacion - SbFiltro.AppendFormat("'{0}',", bon.CveVentaBonificacion) - ListaBon.Add(New VentasBonificaciones() With {.CveVentaRNCCargo = CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion}) - Next - SbFiltro.Remove(SbFiltro.Length - 1, 1) - SbFiltro.Append(")") - End If - - If ListaBon.Count > 0 Then - Dim Bonificaciones = Me.TmpDTRNCBonificacionesCliente.Select(SbFiltro.ToString()) - - For Each RowBonificacion As DataRow In Bonificaciones - Dim RNCBonificacion = ListaBon.Where(Function(x) x.CveVentaBonificacion = RowBonificacion("CveVenta").ToString().ToEntero()) - - RowBonificacion("ImporteBonificacion") = RNCBonificacion.Sum(Function(x) x.ImporteBonificacion) - RowBonificacion("IVABonificacion") = RNCBonificacion.Sum(Function(x) x.IVABonificacion) - RowBonificacion("CveVentaRNCCargo") = CveVentaRNCCargo - - If AplicarRNC Then - TmpDTRNCBonificacionesSeleccionadas.Rows.Add(RowBonificacion.ItemArray) - Else - For Each RowEliminar In Me.TmpDTRNCBonificacionesSeleccionadas.Select(SbFiltro.ToString()) - RowEliminar.Delete() - Next - End If - Next - - End If - - 'VERIFICA SI TIENE BONIFICACIONES PARA AGREGARLAS - If TmpDTRNCBonificacionesSeleccionadas IsNot Nothing AndAlso TmpDTRNCBonificacionesSeleccionadas.Rows.Count > 0 Then - DivRNCBonificaciones.Visible = True - Else - DivRNCBonificaciones.Visible = False - End If - - GvDescNCBonificaciones.DataSource = TmpDTRNCBonificacionesSeleccionadas - GvDescNCBonificaciones.DataBind() - - LblSaldoMaximoBonificacion.Text = String.Format("{0:N2}", Me.TmpDTRNCBonificacionesSeleccionadas.SUM("ImporteBonificacion").ToDecimal() + Me.TmpDTRNCBonificacionesSeleccionadas.SUM("IVABonificacion").ToDecimal()) - - UpDescNC.Update() - End Sub - Protected Sub ChkAplicarNCBon_CheckedChanged(sender As Object, e As EventArgs) - Dim ChkAplicarRNC As CheckBox = DirectCast(sender, CheckBox) - Dim GvRow As GridViewRow = DirectCast(ChkAplicarRNC.NamingContainer, GridViewRow) - - CargaBonificaciones(GvRow.DataKey("CveVenta").ToEntero(), ChkAplicarRNC.Checked) - - End Sub - Private Sub CargaBonificaciones(CveVentaRNCCargo As Integer, AplicarRNC As Boolean) If TmpDTRNCBonificacionesSeleccionadas Is Nothing Then TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Clone() @@ -24817,6 +24896,158 @@ Partial Class Ventas UpModalRemisionesNC.Update() End Sub + + 'Protected Sub ChkAplicarRNC_CheckedChanged(sender As Object, e As EventArgs) + ' Dim ChkAplicarRNC As CheckBox = DirectCast(sender, CheckBox) + ' Dim SbRNC As New StringBuilder() + + ' For Each GvRow As GridViewRow In GvDescNCCargos.Rows + ' If GvRow.RowType = DataControlRowType.DataRow Then + ' If GvRow.FCCheckBox("ChkAplicar").Checked Then + ' SbRNC.AppendFormat("{0},", GvRow.DataKey("CveVenta")) + ' End If + ' End If + ' Next + + ' If SbRNC.Length > 0 Then + ' SbRNC.Remove(SbRNC.Length - 1, 1) + ' CargaBonificacionesDesc(SbRNC.ToString(), True) + ' Else + ' CargaBonificacionesDesc(SbRNC.ToString(), ChkAplicarRNC.Checked) + ' End If + + 'End Sub + + 'Protected Sub ChkAplicarRNCDesc_CheckedChanged(sender As Object, e As EventArgs) + ' Dim ChkAplicarRNC As CheckBox = DirectCast(sender, CheckBox) + ' Dim SbRNC As New StringBuilder() + + ' For Each GvRow As GridViewRow In GvDescNCCargosDetalle.Rows + ' If GvRow.RowType = DataControlRowType.DataRow Then + ' If GvRow.FCCheckBox("ChkAplicar").Checked Then + ' SbRNC.AppendFormat("{0},", GvRow.DataKey("CveVenta")) + ' End If + ' End If + ' Next + + ' If SbRNC.Length > 0 Then + ' SbRNC.Remove(SbRNC.Length - 1, 1) + ' CargaBonificacionesDesc(SbRNC.ToString(), True) + ' Else + ' CargaBonificacionesDesc(SbRNC.ToString(), ChkAplicarRNC.Checked) + ' End If + + 'End Sub + + + Private Sub CargaBonificacionesDesc(CvesVentaRNCCargo As String, AplicarRNC As Boolean) + If TmpDTRNCBonificacionesSeleccionadas Is Nothing Then + TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Clone() + Else + TmpDTRNCBonificacionesSeleccionadas.Clear() + End If + + Dim ListaVentasRNCCargos As String() = {} + + If CvesVentaRNCCargo <> "-1" OrElse Not String.IsNullOrEmpty(CvesVentaRNCCargo) Then + ListaVentasRNCCargos = CvesVentaRNCCargo.Split(","c) + End If + + Dim ListaBon As New List(Of VentasBonificaciones) + Dim DtBon As DataTable = Nothing + Dim SbFiltro As New StringBuilder() + SbFiltro.Append("CveVenta IN(") + + Using ObjAcum As New ClsAcumuladores + For Each CveVentaRNC As String In ListaVentasRNCCargos + If ObjAcum.DistribuidorMovtosGet(CveCliente, UsuarioActual.CveEmpresa, CveVentaRNCCargo:=CveVentaRNC.ToEntero()) Then + Dim DtDist = ObjAcum.DtResultados.Copy() + + If DtBon Is Nothing Then + DtBon = DtDist.Clone() + End If + + DtBon.Merge(DtDist) + End If + Next + End Using + + If DtBon IsNot Nothing Then + Dim queryBonificacion = From dr In DtBon + Group By CveVentaBonificacion = dr("CveVentaBonificacion").ToString().ToEntero, CveVentaRNCCargo = dr("CveVentaRNCCargo").ToString().ToEntero + Into x = Group + Select New With { + .CveVentaRNCCargo = CveVentaRNCCargo, + .CveVentaBonificacion = CveVentaBonificacion, + .ImporteBonificacion = x.Sum(Function(s) s("ImporteBonificacion").ToString().ToDecimal), + .IVABonificacion = x.Sum(Function(s) s("IVABonificacion").ToString().ToDecimal) + } + + For Each bon In queryBonificacion + SbFiltro.AppendFormat("'{0}',", bon.CveVentaBonificacion) + ListaBon.Add(New VentasBonificaciones() With {.CveVentaRNCCargo = bon.CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion}) + Next + + SbFiltro.Remove(SbFiltro.Length - 1, 1) + SbFiltro.Append(")") + End If + + If ListaBon.Count > 0 Then + Dim Bonificaciones = Me.TmpDTRNCBonificacionesCliente.Select(SbFiltro.ToString()) + + For Each RowBonificacion As DataRow In Bonificaciones + Dim RNCBonificacion = ListaBon.Where(Function(x) x.CveVentaBonificacion = RowBonificacion("CveVenta").ToString().ToEntero()) + + RowBonificacion("ImporteBonificacion") = RNCBonificacion.Sum(Function(x) x.ImporteBonificacion) + RowBonificacion("IVABonificacion") = RNCBonificacion.Sum(Function(x) x.IVABonificacion) + RowBonificacion("CveVentaRNCCargo") = RNCBonificacion(0).CveVentaRNCCargo + + If AplicarRNC Then + TmpDTRNCBonificacionesSeleccionadas.Rows.Add(RowBonificacion.ItemArray) + Else + For Each RowEliminar In Me.TmpDTRNCBonificacionesSeleccionadas.Select(SbFiltro.ToString()) + RowEliminar.Delete() + Next + End If + Next + + End If + + 'VERIFICA SI TIENE BONIFICACIONES PARA AGREGARLAS + If TmpDTRNCBonificacionesSeleccionadas IsNot Nothing AndAlso TmpDTRNCBonificacionesSeleccionadas.Rows.Count > 0 Then + DivRNCBonDesc.Visible = True + Else + DivRNCBonDesc.Visible = False + End If + + GvDescNCBonificaciones.DataSource = TmpDTRNCBonificacionesSeleccionadas + GvDescNCBonificaciones.DataBind() + + 'SI ES CREDITO + If RBLPago.SelectedValue = "1" Then + Dim ImporteUsados As Decimal = Me.TmpDTRNCBonificacionesSeleccionadas.SUM("ImporteBonificacion").ToDecimal() + Me.TmpDTRNCBonificacionesSeleccionadas.SUM("IVABonificacion").ToDecimal() + HdnSMUBonDesc.Value = ImporteUsados.ToString() + LblSaldoMaximoBonificacion.Text = String.Format("{0:N2}", ImporteUsados) + 'SI ES CONTADO + ElseIf RBLPago.SelectedValue = "2" Then + Dim ImporteUsados As Decimal = 0 + + For Each Row As DataRow In Me.TmpDT.FiltraParametros("EsCargo = True").Rows + Dim PUBonificacion As Decimal = GlobalDTAcumTamaños().FiltroPrimeroValor("Bonificacion", $"CvePSCargo={Row("CvePS")}").ToDecimal() + + Dim TotalBonificacion As Decimal = (Row("Cantidad").ToString().ToDecimal() * PUBonificacion) + Dim IVABonificacion As Decimal = (TotalBonificacion * Row("PorcentajeIVA").ToString().ToDecimal()).RoundSQL(2) + + ImporteUsados += TotalBonificacion + IVABonificacion + Next + HdnSMUBonDesc.Value = ImporteUsados.ToString() + LblSaldoMaximoBonificacion.Text = String.Format("{0:N2}", ImporteUsados) + + End If + + UpDescNC.Update() + End Sub + Protected Sub GvDescNCCargos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDescNCCargos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then e.Row.FCCheckBox("ChkAplicar").Attributes.Add("onclick", $"CalculaSaldoRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);") @@ -24842,6 +25073,7 @@ Partial Class Ventas e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", $"LimitaSaldoRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);") End If End Sub + Protected Sub GvRemisionesNCDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRemisionesNCDetalle.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CveVentaDetalleRNC").ToEntero() = 0 Then @@ -24851,13 +25083,22 @@ Partial Class Ventas End If End If End Sub + Protected Sub GvDescNCCargosDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDescNCCargosDetalle.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CveVentaDetalleRNC").ToEntero() = 0 Then + e.Row.CssClass = "Totales" + e.Row.FCCheckBox("ChkAplicar").Visible = False + e.Row.FCTextBox("TxtCantidadRNC").Visible = False + End If + End If + End Sub + Protected Sub GvRemisionesNCBon_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRemisionesNCBon.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then e.Row.FCCheckBox("ChkAplicar").Attributes.Add("onclick", $"CalculaSaldoRNCBonChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);") e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", $"LimitaSaldoRNCBonChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble});") End If End Sub - Protected Sub DdlNCNivelImporte_SelectedIndexChanged(sender As Object, e As EventArgs) Dim ImporteReferencia As Double = 0, PorcentajeMaximo As Double = 0 If Not AplicaNCMasiva Then @@ -25123,7 +25364,7 @@ Partial Class Ventas TmpDTDescNC = TmpDT.Clone() TmpDTDescNC.Clear() - If UsuarioActual.CveEmpresa = 140 Then + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If AplicaRNCXDetalle Then CrearDTNCCargoDetalle(ListaNCDesc, TmpDTDescNC, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) Else @@ -25141,10 +25382,10 @@ Partial Class Ventas 'EN LA NC DE BONIFICACION EL CONCEPTO DEBE SER SIEMPRE 'BONIFICACION POR USADO' Dim DrPSBonificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCBonificacion).FiltroPrimero("") If DrPSBonificacion IsNot Nothing Then - CrearDTNCBonificacion(ListaNCDesc, DtImpuestosBonificacion, TmpDTDescNC, DrPSBonificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + CrearDTNCBonificacionDesc(DtImpuestosBonificacion, TmpDTDescNC, DrPSBonificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) Else Alert("No se encontró el concepto de BONIFICACION POR USADO", TipoMensaje.MsgAdvertencia) - CrearDTNCBonificacion(ListaNCDesc, DtImpuestosBonificacion, TmpDTDescNC, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + CrearDTNCBonificacionDesc(DtImpuestosBonificacion, TmpDTDescNC, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) End If Else @@ -25174,7 +25415,7 @@ Partial Class Ventas Dim Ajuste As Decimal = 0 'DEBE AGREGAR LOS USADOS DE LA REMISION EN LA NOTA DE CREDITO - If UsuarioActual.CveEmpresa = 140 AndAlso (ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0) Then + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0) Then If AplicaRNCXDetalle Then CrearDTNCCargoDetalle(ListaRemisionesNC, TmpDT, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) @@ -25189,6 +25430,7 @@ Partial Class Ventas If ArrayNC.Length > 4 Then NCBonificacion = ArrayNC(4).ToEntero() End If + Dim DrPSBonificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCBonificacion).FiltroPrimero("") If DrPSBonificacion IsNot Nothing Then CrearDTNCBonificacion(ListaRemisionesNC, DtImpuestosBonificacion, TmpDT, DrPSBonificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) @@ -25349,8 +25591,8 @@ Partial Class Ventas 'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR If GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then Obs = RowUsado("CodigoPS").ToString() - Else - Obs = RowUsado("Obs").ToString() + 'Else + ' Obs = RowUsado("Obs").ToString() End If If Not String.IsNullOrEmpty(TxtNCObservaciones.Text.Trim()) Then @@ -25418,7 +25660,6 @@ Partial Class Ventas Next End Sub - Private Sub CrearDTNCBonificacion(ListaNC As List(Of Modelos.Factura), DtImpuestosBonificacion As DataTable, ByRef TmpDTNC As DataTable, DrPS As DataRow, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String) 'SI TIENE DE BONIFICACION LOS AGREGA If DtImpuestosBonificacion IsNot Nothing AndAlso ListaNCBonificacion IsNot Nothing AndAlso ListaNCBonificacion.Count > 0 Then @@ -25503,6 +25744,92 @@ Partial Class Ventas Next End If End Sub + Private Sub CrearDTNCBonificacionDesc(DtImpuestosBonificacion As DataTable, ByRef TmpDTNC As DataTable, DrPS As DataRow, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String) + 'SI TIENE DE BONIFICACION LOS AGREGA + If DtImpuestosBonificacion IsNot Nothing AndAlso ListaNCBonificacion IsNot Nothing AndAlso ListaNCBonificacion.Count > 0 Then + + TmpDTDescNCBonificacion = TmpDTNC.Clone() + TmpDTDescNCBonificacion.Clear() + + For Each RNCBonificacion In ListaNCBonificacion + Dim UltimoRenglonRNC As Integer = 1 + Dim TotalAcumuladoRNC As Decimal = 0 + Dim Terminar As Boolean = False + + 'Dim RNCCargo = ListaNC.Where(Function(f) f.CveVenta = RNCBonificacion.CveVentaRNCCargo).FirstOrDefault() + + For Each RowCargo As DataRow In TmpDT.FiltraParametros("EsCargo = True", Orderby:="PU").Rows + + Dim PorcentajeAplicado = (RNCBonificacion.TotalRemNCAplicado / RNCBonificacion.Total) + + Dim Cantidad As Decimal = RowCargo("Cantidad").ToString().ToDecimal() '* PorcentajeAplicado + + Dim Obs = RowCargo("CodigoPS").ToString() + + If Not String.IsNullOrEmpty(TxtNCObservaciones.Text.Trim()) Then + Obs = String.Format("{0} - {1}", Obs, TxtNCObservaciones.Text.Trim()) + End If + + 'Dim ImportePU = RowCargo("PUBonificacion").ToString().ToDecimal + + Dim ImportePU As Decimal = GlobalDTAcumTamaños().FiltroPrimeroValor("Bonificacion", $"CvePSCargo={RowCargo("CvePS")}").ToDecimal() + + Dim TotalCalculableImpuestos As Decimal = (Cantidad * ImportePU) + + Dim ImporteIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2) + Dim ImporteIEPS = (TotalCalculableImpuestos * RowCargo("PorcentajeIEPS").ToString().ToDecimal).RoundSQL(2) + Dim ImporteRetIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeRetIVA").ToString().ToDecimal).RoundSQL(2) + Dim ImporteRetISR = (TotalCalculableImpuestos * RowCargo("PorcentajeRetISR").ToString().ToDecimal).RoundSQL(2) + Dim ImporteTotal = TotalCalculableImpuestos + + TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + + 'SI EL IMPORTE ES MAYOR REALIZA EL AJUSTE + If TotalAcumuladoRNC > RNCBonificacion.TotalRemNCAplicado Then + Terminar = True + 'RESTA LO SUMANDO DEL ACUMULADO + TotalAcumuladoRNC -= (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + + Dim Diferencia As Decimal = RNCBonificacion.TotalRemNCAplicado - TotalAcumuladoRNC + + Dim TotalPartida As Decimal = (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + + Dim PorcentajePorAplicar As Decimal = (Diferencia / TotalPartida) + + Cantidad = Cantidad * PorcentajePorAplicar + + TotalCalculableImpuestos = (Cantidad * ImportePU) + ImporteIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2) + ImporteIEPS = (TotalCalculableImpuestos * RowCargo("PorcentajeIEPS").ToString().ToDecimal).RoundSQL(2) + ImporteRetIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeRetIVA").ToString().ToDecimal).RoundSQL(2) + ImporteRetISR = (TotalCalculableImpuestos * RowCargo("PorcentajeRetISR").ToString().ToDecimal).RoundSQL(2) + + ImporteTotal = TotalCalculableImpuestos + + TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + End If + + 'SI ES EL ULTIMO REGLON REALIZA UN AJUSTE + If UltimoRenglonRNC = TmpDT.FiltraParametros("EsCargo = True", Orderby:="PU").Rows.Count Then + Dim Ajuste As Decimal = 0 + If Math.Abs(RNCBonificacion.TotalRemNCAplicado - TotalAcumuladoRNC) > 0.00 Then + Ajuste = RNCBonificacion.TotalRemNCAplicado - TotalAcumuladoRNC + + ImporteIVA += Ajuste + End If + End If + UltimoRenglonRNC += 1 + + AgregaTempDT(TmpDTDescNCBonificacion, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(), + DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto, + Obs, Cantidad, ImportePU, RowCargo("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, RowCargo("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA, + RowCargo("PorcentajeRetISR").ToString().ToDecimal, ImporteRetISR, RowCargo("PorcentajeIEPS").ToString().ToDecimal, ImporteIEPS, -1, 0, ImporteTotal, "", "", -1, -1, + DrPS("SATClavePS").ToString(), DrPS("SATClaveUnidadMedida").ToString(), -1, -1, -1, -1, -1, -1) + Next + + Next + End If + End Sub Private Function CargaDtImpuestosNC(CveVentaNC As Integer, Importe As Decimal, Optional NCDescuento As Boolean = False, Optional AplicaImpuestosLocales As Boolean = True, Optional NivelTotal As Integer = 1, Optional AplicaNCUsado As Boolean = False) As DataTable Dim Total As Decimal = 0, SubTotal As Decimal = 0, Saldo As Decimal = 0 @@ -27112,7 +27439,7 @@ Partial Class Ventas Next Return Nothing End Function - Private Function AgregaPSCotizacion() As Boolean + Private Function AgregaPSCotizacion(Optional RecalculaImpustosLocales As Boolean = True) As Boolean 'Dim ObjFactCotizacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa) 'Dim TotalCotizacion As Decimal = ObjFactCotizacion.Total 'TmpDT.SUM("TotalImporte").ToDecimal() + TmpDT.SUM("ImporteIVA").ToDecimal() + TmpDT.SUM("ImporteIEPS").ToDecimal() - TmpDT.SUM("ImporteRetIVA").ToDecimal() - TmpDT.SUM("ImporteRetISR").ToDecimal() @@ -27142,7 +27469,7 @@ Partial Class Ventas ' LastRow("ImporteIVA") = LastRow("ImporteIVA").ToString().ToDecimal() - Diferencia 'End If - CalculaTotalesVenta() + CalculaTotalesVenta(RecalculaImpuestosLocales:=RecalculaImpustosLocales) Return True Else Return False @@ -27180,7 +27507,7 @@ Partial Class Ventas End If ObjClientes.Dispose() - If Not AgregaPSCotizacion() Then + If Not AgregaPSCotizacion(RecalculaImpustosLocales:=False) Then Alert("Ocurrió un error al agregar los conceptos de la cotización. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Return False End If @@ -27603,8 +27930,8 @@ Partial Class Ventas If ChkRemProductos.Checked Then Valido = Not (From GvRow In GvRemPS.Rows.Cast(Of GridViewRow) - Let Cantidad = GvRow.FCTextBox("TxtCantidadRem").Text.Trim().ToEntero(), Aplicar = GvRow.FCCheckBox("Chk").Checked - Where GvRow.RowType = DataControlRowType.DataRow AndAlso Cantidad <= 0 AndAlso Aplicar + Let Cantidad = GvRow.FCTextBox("TxtCantidadRem").Text.Trim().ToDecimal(), Aplicar = GvRow.FCCheckBox("Chk").Checked + Where GvRow.RowType = DataControlRowType.DataRow AndAlso Cantidad <= 0D AndAlso Aplicar Select GvRow ).Any @@ -28810,6 +29137,7 @@ Partial Class Ventas TotalRNC += TotalRNCDetalle + End If End If @@ -28936,11 +29264,13 @@ Partial Class Ventas End Sub Protected Sub LnkDescuentosRNC_Click(sender As Object, e As EventArgs) - CargaDescRNC() + RblRNCTipoDesc_SelectedIndexChanged(RblRNCTipoDesc, EventArgs.Empty) + RegistraScript("$('#ModalAplicarDescuentoNC').modal('show'); ") End Sub Protected Sub BtnAplicarDesc_Click(sender As Object, e As EventArgs) Try + Me.AplicaRNCXDetalle = False Dim DrPS As DataRow = Nothing Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) @@ -28972,11 +29302,82 @@ Partial Class Ventas End If Dim TotalRemNCAplicado As Decimal = 0 - For Each GvRow As GridViewRow In GvDescNCCargos.Rows - If GvRow.RowType = DataControlRowType.DataRow Then - If GvRow.FCCheckBox("ChkAplicar").Checked Then - Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) - RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() + + Dim LimiteUsados As Decimal = LblSaldoMaximoUsados.Text.Trim().ToDecimal() + + If RblRNCTipoDesc.SelectedValue.Contiene("1", "3") Then + If ChkMostarProductosRNCDesc.Checked Then + TmpDTRNCDetalleSelecciondas.Clear() + Dim TotalAcumulado As Decimal = 0 + Me.AplicaRNCXDetalle = True + + For Each GvRow As GridViewRow In GvDescNCCargosDetalle.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkAplicar").Checked Then + Dim Rows = TmpDTRNCDetalle.Select($"CveVentaDetalleRNC = {GvRow.DataKey("CveVentaDetalleRNC").ToEntero()}") + For Each row In Rows + row("Cantidad") = GvRow.FCTextBox("TxtCantidadRNC").Text.ToDecimal() + + Dim TotalCalculableImpuestos As Decimal = row("Cantidad").ToString().ToDecimal() * row("PU").ToString().ToDecimal() + Dim IVA As Decimal = (TotalCalculableImpuestos * row("PorcentajeIVA").ToString().ToDecimal()).RoundSQL() + + row("IVA") = IVA + row("Total") = (TotalCalculableImpuestos + IVA).RoundSQL + + TmpDTRNCDetalleSelecciondas.Rows.Add(row.ItemArray) + Next + End If + End If + Next + + + If TmpDTRNCDetalleSelecciondas.SUMD("Total") > LblSaldoMaximoUsados.Text.ToDecimal() Then + Alert($"El importe no debe exceder el saldo maximo utilizable. Importe:{TmpDTRNCDetalleSelecciondas.SUMD("Total"):N2}", TipoMensaje.MsgAdvertencia) + TmpDTRNCDetalleSelecciondas.Clear() + ListaNCDesc.Clear() + Exit Sub + End If + + Dim TerminarCiclo As Boolean = False + + For Each Dr As DataRow In TmpDTRNCDetalleSelecciondas.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows + Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa) + + Dim TotalRNC As Decimal = 0 + For Each GvRow As GridViewRow In GvDescNCCargosDetalle.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + + If GvRow.FCCheckBox("ChkAplicar").Checked AndAlso GvRow.DataKey("CveVenta").ToEntero() = Dr("CveVenta").ToString().ToEntero() Then + + Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidadRNC").Text.ToDecimal() + Dim PU = GvRow.DataKey("PU").ToDecimal() + Dim PorcentajeIVA As Decimal = GvRow.DataKey("PorcentajeIVA").ToDecimal() + + Dim TotalCalculableImpuestos As Decimal = (Cantidad * PU) + Dim ImporteIVA As Decimal = (TotalCalculableImpuestos * PorcentajeIVA).RoundSQL(2) + + Dim TotalRNCDetalle As Decimal = (TotalCalculableImpuestos + ImporteIVA) + + TotalRNC += TotalRNCDetalle + + If RemNC.CveVentaRNCCargo <= 0 Then + RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVenta").ToEntero() + End If + + End If + + End If + Next + TotalAcumulado += TotalRNC + + 'SI SE EXECE RESTA AL ULTIMO + If TotalAcumulado > LblSaldoMaximoUsados.Text.ToDecimal() Then + TerminarCiclo = True + TotalAcumulado -= TotalRNC + TotalRNC = LblSaldoMaximoUsados.Text.ToDecimal() - TotalAcumulado + End If + + RemNC.TotalRemNCAplicado = TotalRNC TotalRemNCAplicado += RemNC.TotalRemNCAplicado If RemNC.TotalRemNCAplicado <= 0 Then @@ -28986,76 +29387,144 @@ Partial Class Ventas End If ListaNCDesc.Add(RemNC) - End If - End If - Next - 'SI TIENE ALGUN AJUSTE O GARANTIA - If ListaNCDesc.Any(Function(RNC) RNC.Num2 = 1) Then - For Each RNC In ListaNCDesc.Where(Function(x) x.Num2 = 1) - Dim Salir As Boolean = False + If TerminarCiclo Then + Exit For + End If + Next - Dim NCAjuste As Integer = -1 - Dim NCGarantiaTotal As Integer = -1 - If ArrayNC.Length > 2 Then - NCAjuste = ArrayNC(1).ToEntero() - NCGarantiaTotal = ArrayNC(2).ToEntero() + If ListaNCDesc.Sum(Function(x) x.TotalRemNCAplicado) > LblSaldoMaximoUsados.Text.ToDecimal() Then + Alert($"El importe no debe exceder el saldo maximo utilizable", TipoMensaje.MsgAdvertencia) + ListaNCDesc.Clear() + TmpDTRNCDetalleSelecciondas.Clear() + Exit Sub End If - Using ObjAcum As New ClsAcumuladores - If ObjAcum.GetGarantiasDetalle(RNC.CveVenta) Then - 'SI ES GARANTIA TOTAL - If ObjAcum.DtResultados.MAX("PorcentajeAjuste") = "1" Then - DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCGarantiaTotal, AplicaParaVenta:=1).Rows(0) - Salir = True - Else - DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCAjuste, AplicaParaVenta:=1).Rows(0) + Else + + For Each GvRow As GridViewRow In GvDescNCCargos.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkAplicar").Checked Then + Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) + RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() + TotalRemNCAplicado += RemNC.TotalRemNCAplicado + + If RemNC.TotalRemNCAplicado <= 0 Then + Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) + ListaNCDesc.Clear() + Exit Sub + End If + + ListaNCDesc.Add(RemNC) End If End If - End Using + Next - If Salir Then - Exit For - End If - Next - End If + End If - Dim LimiteUsados As Decimal = LblSaldoMaximoUsados.Text.Trim().ToDecimal() + 'SI TIENE ALGUN AJUSTE O GARANTIA + If ListaNCDesc.Any(Function(RNC) RNC.Num2 = 1) Then + For Each RNC In ListaNCDesc.Where(Function(x) x.Num2 = 1) + Dim Salir As Boolean = False - 'VERIFICA EL LIMITE DE LOS USADOS - If TotalRemNCAplicado > LimiteUsados Then - Alert($"La suma de las remisiones de nota de crédito de tipo 'Cargo' no debe superar el total de Usados.
Total RNC: {TotalRemNCAplicado:N2}.
Total Usados: {LimiteUsados:N2}", TipoMensaje.MsgAdvertencia) - ListaNCDesc.Clear() - Exit Sub - End If - - - For Each GvRow As GridViewRow In GvDescNCBonificaciones.Rows - If GvRow.RowType = DataControlRowType.DataRow Then - If GvRow.FCCheckBox("ChkAplicar").Checked Then - Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) - RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() - RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVentaRNCCargo").ToEntero() - TotalRemNCAplicado += RemNC.TotalRemNCAplicado - - If RemNC.TotalRemNCAplicado <= 0 Then - Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) - ListaNCBonificacion.Clear() - Exit Sub + Dim NCAjuste As Integer = -1 + Dim NCGarantiaTotal As Integer = -1 + If ArrayNC.Length > 2 Then + NCAjuste = ArrayNC(1).ToEntero() + NCGarantiaTotal = ArrayNC(2).ToEntero() End If - ListaNCBonificacion.Add(RemNC) - End If + Using ObjAcum As New ClsAcumuladores + If ObjAcum.GetGarantiasDetalle(RNC.CveVenta) Then + 'SI ES GARANTIA TOTAL + If ObjAcum.DtResultados.MAX("PorcentajeAjuste") = "1" Then + DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCGarantiaTotal, AplicaParaVenta:=1).Rows(0) + Salir = True + Else + DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCAjuste, AplicaParaVenta:=1).Rows(0) + End If + End If + End Using + + If Salir Then + Exit For + End If + Next End If - Next - Dim LimiteBonficaciones As Decimal = LblSaldoMaximoBonificacion.Text.Trim().ToDecimal() + 'VERIFICA EL LIMITE DE LOS USADOS + If TotalRemNCAplicado > LimiteUsados Then + Alert($"La suma de las remisiones de nota de crédito de tipo 'Cargo' no debe superar el total de Usados.
Total RNC: {TotalRemNCAplicado:N2}.
Total Usados: {LimiteUsados:N2}", TipoMensaje.MsgAdvertencia) + ListaNCDesc.Clear() + Exit Sub + End If + + For Each GvRow As GridViewRow In GvDescNCBonificaciones.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkAplicar").Checked Then + Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) + RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() + RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVentaRNCCargo").ToEntero() + TotalRemNCAplicado += RemNC.TotalRemNCAplicado + + If RemNC.TotalRemNCAplicado <= 0 Then + Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) + ListaNCBonificacion.Clear() + Exit Sub + End If + + ListaNCBonificacion.Add(RemNC) + End If + End If + Next + + Dim LimiteBonficaciones As Decimal = LblSaldoMaximoBonificacion.Text.Trim().ToDecimal() + + 'VERIFICA EL LIMITE DE LOS USADOS + If ListaNCBonificacion.Sum(Function(x) x.TotalRemNCAplicado) > LimiteBonficaciones Then + Alert($"La suma de las remisiones de nota de crédito de tipo 'Bonificación' no debe superar el limite.
Total RNC: {ListaNCBonificacion.Sum(Function(x) x.TotalRemNCAplicado):N2}.
Total Usados: {LimiteUsados:N2}", TipoMensaje.MsgAdvertencia) + ListaNCDesc.Clear() + ListaNCBonificacion.Clear() + Exit Sub + End If + + ElseIf RblRNCTipoDesc.SelectedValue.Contiene("2") Then + + For Each GvRow As GridViewRow In GvDescNCBonificaciones.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkAplicar").Checked Then + Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) + RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() + RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVentaRNCCargo").ToEntero() + TotalRemNCAplicado += RemNC.TotalRemNCAplicado + + If RemNC.TotalRemNCAplicado <= 0 Then + Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) + ListaNCBonificacion.Clear() + Exit Sub + End If + + ListaNCBonificacion.Add(RemNC) + End If + End If + Next + + Dim LimiteBonficaciones As Decimal = LblSaldoMaximoBonificacion.Text.Trim().ToDecimal() + + 'VERIFICA EL LIMITE DE LOS USADOS + If ListaNCBonificacion.Sum(Function(x) x.TotalRemNCAplicado) > LimiteBonficaciones Then + Alert($"La suma de las remisiones de nota de crédito de tipo 'Bonificación' no debe superar el limite.
Total RNC: {ListaNCBonificacion.Sum(Function(x) x.TotalRemNCAplicado):N2}.
Total Usados: {LimiteUsados:N2}", TipoMensaje.MsgAdvertencia) + ListaNCDesc.Clear() + ListaNCBonificacion.Clear() + Exit Sub + End If + + 'SI SON SOLO BONIFICACIONES GENERA LA NC PRINCIPAL EN BASE A ESAS + If RblRNCTipoDesc.SelectedValue.ToString() = "2" AndAlso ListaNCDesc.Count = 0 Then + ListaNCDesc.AddRange(ListaNCBonificacion) + ListaNCBonificacion.Clear() + End If - 'VERIFICA EL LIMITE DE LOS USADOS - If ListaNCBonificacion.Sum(Function(x) x.TotalRemNCAplicado) > LimiteBonficaciones Then - Alert($"La suma de las remisiones de nota de crédito de tipo 'Cargo' no debe superar el total de Usados.
Total RNC: {TotalRemNCAplicado:N2}.
Total Usados: {LimiteUsados:N2}", TipoMensaje.MsgAdvertencia) - ListaNCDesc.Clear() - Exit Sub End If Dim TotalProntoPago As Decimal = 0 @@ -29071,12 +29540,10 @@ Partial Class Ventas Dim CvePS = DrPS("CvePS").ToString().ToEntero() - AplicarNC(CvePS, True) + AplicarNC(CvePS, NCDescuento:=True) Catch ex As Exception OnError("Ocurrió un error al aplicar remisiones de nota de crédito", ex) End Try - - UpPS.Update() RegistraScript("$('#ModalAplicarDescuentoNC').modal('hide'); ") From c81b68e607b042c137247093eda1b51815c87aac Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 14 Apr 2021 22:36:55 -0700 Subject: [PATCH 09/11] --- Nomina/Aguinaldo.aspx.cs | 64 ++++++++++++++++++++++++---------------- Nomina/Nomina2.aspx.cs | 5 +++- vwd.webinfo | 8 +++++ 3 files changed, 51 insertions(+), 26 deletions(-) diff --git a/Nomina/Aguinaldo.aspx.cs b/Nomina/Aguinaldo.aspx.cs index b89c02fb9..8177fa3e8 100644 --- a/Nomina/Aguinaldo.aspx.cs +++ b/Nomina/Aguinaldo.aspx.cs @@ -44,8 +44,21 @@ public partial class Nomina_Aguinaldo : ClsPaginas { DdlTipoPeriodo.SelectedIndex = 0; } + + LtlUma.Text = ""; + int cveempresa = 1; + if (UsuarioActual != null) { cveempresa = UsuarioActual.CveEmpresa; } + using (ClsClaseBaseD objbase = new ClsClaseBaseD()) + { + if (objbase.runQuerystr($"SELECT Valor UMA FROM [dbo].[RH_TablasValores] WHERE Tipo =1 AND CveEmpresa ={cveempresa} AND Fecha<'{DateTime.Now:yyyy/MM/dd}' ORDER BY Fecha DESC")) + { + if(objbase.DtResultados.Rows.Count > 0) + { + LtlUma.Text = objbase.DtResultados.Rows[0]["UMA"].ToString(); + } + } + } } - LtlUma.Text = "86.88"; } @@ -269,7 +282,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas protected void BtnRecalcular_Click(object sender, EventArgs e) { - decimal uma = 86.88m; + decimal uma = LtlUma.Text.ToDecimal(); decimal aguiexentogral = uma * 30; decimal salariodiario = 0; decimal diasanio = 366; @@ -308,24 +321,25 @@ public partial class Nomina_Aguinaldo : ClsPaginas aguinaldo = diasaguipago * salariodiario; aguinaldoexcento = (aguiexentogral > aguinaldo ? aguinaldo : aguiexentogral); aguinaldogravado = aguinaldo - aguinaldoexcento; - if (aguinaldogravado > 0) { - FraccionI = (aguinaldogravado / diasanio) * diasmes; - FraccionII_1 = salariomensual + FraccionI; - str.Clear(); - str.AppendFormat("SELECT dbo.Fnc_NomValues(40, 0, 00, -1, {0}, {1}, {1}) isrFraccionII_2,", FraccionII_1, diasmes); - str.AppendFormat(" dbo.Fnc_NomValues(40, 0, 00, -1, {0}, {1}, {1}) isrFraccionIII_1", salariomensual, diasmes); - if (objbase.runQuerystr(str.ToString())) + if (aguinaldogravado > 0) { - DataRow drow = objbase.DtResultados.Rows[0]; - FraccionII_2 = drow["isrFraccionII_2"].ToString().ToDecimal(); - FraccionIII_1 = drow["isrFraccionIII_1"].ToString().ToDecimal(); - } - else { break; } + FraccionI = (aguinaldogravado / diasanio) * diasmes; + FraccionII_1 = salariomensual + FraccionI; + str.Clear(); + str.AppendFormat("SELECT dbo.Fnc_NomValues(40, 0, 00, -1, {0}, {1}, {1}) isrFraccionII_2,", FraccionII_1, diasmes); + str.AppendFormat(" dbo.Fnc_NomValues(40, 0, 00, -1, {0}, {1}, {1}) isrFraccionIII_1", salariomensual, diasmes); + if (objbase.runQuerystr(str.ToString())) + { + DataRow drow = objbase.DtResultados.Rows[0]; + FraccionII_2 = drow["isrFraccionII_2"].ToString().ToDecimal(); + FraccionIII_1 = drow["isrFraccionIII_1"].ToString().ToDecimal(); + } + else { break; } - FraccionIII_2 = FraccionII_2 - FraccionIII_1; - FraccionV = FraccionIII_2 / FraccionI; - FraccionIV = aguinaldogravado * FraccionV; - Aguinaldoapagar = aguinaldo - FraccionIV; + FraccionIII_2 = FraccionII_2 - FraccionIII_1; + FraccionV = FraccionIII_2 / FraccionI; + FraccionIV = aguinaldogravado * FraccionV; + Aguinaldoapagar = aguinaldo - FraccionIV; } else { @@ -349,7 +363,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas } } - LtlTotal.Text =string.Format("${0:N2}", AguinaldoapagarTotal); + LtlTotal.Text = string.Format("${0:N2}", AguinaldoapagarTotal); /* * @@ -389,7 +403,7 @@ Aguinaldoapagar } } - class ClsClaseBaseD : IDisposable +class ClsClaseBaseD : IDisposable { protected SqlConnection SqlConexion; protected SqlDataAdapter SqlAdapter; @@ -534,11 +548,11 @@ Aguinaldoapagar SqlAdapter.SelectCommand.CommandText = Query; SqlAdapter.SelectCommand.CommandType = CommandType.Text; datos = new DataTable(); - if (Listaparametros!= null) + if (Listaparametros != null) { foreach (parametroQuery pr in Listaparametros) - { - SqlAdapter.SelectCommand.Parameters.Add(pr.ParameterName, pr.SqlDataType).Direction = pr.ParameterDirection; + { + SqlAdapter.SelectCommand.Parameters.Add(pr.ParameterName, pr.SqlDataType).Direction = pr.ParameterDirection; } } @@ -574,11 +588,11 @@ Aguinaldoapagar SqlAdapter.SelectCommand.Parameters.Clear(); SqlAdapter.SelectCommand.CommandText = Query; SqlAdapter.SelectCommand.CommandType = CommandType.Text; - if (Listaparametros!= null) + if (Listaparametros != null) { foreach (parametroQuery pr in Listaparametros) { - SqlAdapter.SelectCommand.Parameters.Add(pr.ParameterName, pr.SqlDataType).Direction = pr.ParameterDirection; + SqlAdapter.SelectCommand.Parameters.Add(pr.ParameterName, pr.SqlDataType).Direction = pr.ParameterDirection; } } diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 6c2a89619..7cb9a5f34 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -2714,7 +2714,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } paragraphh = new GemBox.Document.Paragraph(document, string.Format("Fecha Ingr:{0:dd/MM/yyyy}, S.D.:{1:N2}, S.D.I.:{2:N2}, S.B.C.:{3:N2} ", drow2["FechaIngreso"], drow2["SalarioDiario"], drow2["SalarioDiarioIntegrado"], drow2["SalarioDiarioIMSS"])); cell.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Style = styilo; - paragraphh = new GemBox.Document.Paragraph(document, string.Format("Días pagados:{0}, Retardos: {1}, Ausencias:{2}, Centro de costos: {3}", drow2["DiasLaborados"], drow2["DiasRetardos"], drow2["DiasFaltados"], drow2["SubProyecto"])); cell.Blocks.Add(paragraphh); + paragraphh = new GemBox.Document.Paragraph(document, string.Format("Días pagados:{0}, Retardos: {1}, Ausencias:{2},Incapacidad:{4}, Centro de costos: {3}", drow2["DiasLaborados"], drow2["DiasRetardos"], drow2["DiasFaltados"], drow2["SubProyecto"],drow2["DiasIncapacidad"])); cell.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Style = styilo; row = new GemBox.Document.Tables.TableRow(document); @@ -2957,6 +2957,8 @@ public partial class Nomina_Nomina2 : ClsPaginas section.Blocks.Add(paragraphh); paragraphh = new GemBox.Document.Paragraph(document, string.Format("Total Centro de costos {0}", SubProyecto.ToUpper())); paragraphh.ParagraphFormat.Style = styilostrong; + + section.Blocks.Add(paragraphh); #region "totaldepto" { @@ -3344,6 +3346,7 @@ public partial class Nomina_Nomina2 : ClsPaginas keeptablesamepage(sobrereciboTable); } #endregion + section.Blocks.Add(new GemBox.Document.Paragraph(document, new GemBox.Document.SpecialCharacter(document, GemBox.Document.SpecialCharacterType.PageBreak))); } paragraphh = new GemBox.Document.Paragraph(document, "TOTAL "); diff --git a/vwd.webinfo b/vwd.webinfo index 67035e8a8..be971a4e1 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -212,6 +212,14 @@ + + + + + + + + From 191f3c08d43c724d990e8d3f006c5d4958997c9c Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 15 Apr 2021 07:08:07 -0700 Subject: [PATCH 10/11] --- Nomina/Nomina2.aspx | 68 +++- Nomina/Nomina2.aspx.cs | 803 ++++++++++++++++++++--------------------- RH/Personal.aspx | 14 +- vwd.webinfo | 2 + 4 files changed, 452 insertions(+), 435 deletions(-) diff --git a/Nomina/Nomina2.aspx b/Nomina/Nomina2.aspx index cc836c276..333d3376b 100644 --- a/Nomina/Nomina2.aspx +++ b/Nomina/Nomina2.aspx @@ -127,6 +127,9 @@ font-weight: bold; font-size: 15px; } + .form-group.form-md-line-input .form-control.input-sm ~ label { + padding-bottom: 20px; +} @@ -1104,7 +1107,7 @@
-
+
@@ -1117,10 +1120,49 @@
+ + + + + + + + <%----%> + + <%----%> + + +
+ + + + + +
+ + + + + + + + <%----%> + <%-- + --%> + + +
-
+
@@ -1138,59 +1180,49 @@
+ Días feriados - Días feriados
-
-
+ Fecha pago - - Fecha pago -
-
-
+ Fecha Inicio - - Fecha Inicio -
+ Fecha Fin - - Fecha Fin -
- Actualizar - Agregar + Actualizar + Agregar
diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 7cb9a5f34..01f0ca03e 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -1500,12 +1500,28 @@ public partial class Nomina_Nomina2 : ClsPaginas LblEmpleado.Text = Nombre; TabPersonal.ActiveTabIndex = 0; mostrarConceptos(); + CargaVacaciones(); pnlAddupMovto.Visible = false; CargaMovtoPermanente(); CargaPersonalIncapacidad(); RegistraScript("$('#ModalConceptos').modal();"); } + private void CargaVacaciones() + { + ClsRH objRH = new ClsRH(); + + if (objRH.VacacionesGet(SRCvePersonal, UsuarioActual.Empresa.CveEmpresa)) + { + GvVacaciones.DataSource = objRH.DtResultados; + + } + else { GvVacaciones.DataSource = null; } + + objRH.Dispose(); + GvVacaciones.DataBind(); + UpGvVacaciones.Update(); + } protected void LnkConcepto_Click(object sender, EventArgs e) { @@ -2714,7 +2730,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } paragraphh = new GemBox.Document.Paragraph(document, string.Format("Fecha Ingr:{0:dd/MM/yyyy}, S.D.:{1:N2}, S.D.I.:{2:N2}, S.B.C.:{3:N2} ", drow2["FechaIngreso"], drow2["SalarioDiario"], drow2["SalarioDiarioIntegrado"], drow2["SalarioDiarioIMSS"])); cell.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Style = styilo; - paragraphh = new GemBox.Document.Paragraph(document, string.Format("Días pagados:{0}, Retardos: {1}, Ausencias:{2},Incapacidad:{4}, Centro de costos: {3}", drow2["DiasLaborados"], drow2["DiasRetardos"], drow2["DiasFaltados"], drow2["SubProyecto"],drow2["DiasIncapacidad"])); cell.Blocks.Add(paragraphh); + paragraphh = new GemBox.Document.Paragraph(document, string.Format("Días pagados:{0}, Retardos: {1}, Ausencias:{2},Incapacidad:{4}, Centro de costos: {3}", drow2["DiasLaborados"], drow2["DiasRetardos"], drow2["DiasFaltados"], drow2["SubProyecto"], drow2["DiasIncapacidad"])); cell.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Style = styilo; row = new GemBox.Document.Tables.TableRow(document); @@ -2958,7 +2974,7 @@ public partial class Nomina_Nomina2 : ClsPaginas paragraphh = new GemBox.Document.Paragraph(document, string.Format("Total Centro de costos {0}", SubProyecto.ToUpper())); paragraphh.ParagraphFormat.Style = styilostrong; - + section.Blocks.Add(paragraphh); #region "totaldepto" { @@ -3687,7 +3703,7 @@ public partial class Nomina_Nomina2 : ClsPaginas cellx = new GemBox.Document.Tables.TableCell(document); rowx.Cells.Add(cellx); cellx.CellFormat.PreferredWidth = new GemBox.Document.Tables.TableWidth(11, GemBox.Document.Tables.TableWidthUnit.Percentage); - paragraphh = new GemBox.Document.Paragraph(document, string.Format("${0:N2}", dtempleados.SUM("Total","CvePersonal > 0"))); cellx.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Alignment = GemBox.Document.HorizontalAlignment.Right; + paragraphh = new GemBox.Document.Paragraph(document, string.Format("${0:N2}", dtempleados.SUM("Total", "CvePersonal > 0"))); cellx.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Alignment = GemBox.Document.HorizontalAlignment.Right; paragraphh.ParagraphFormat.Style = styilostrong; @@ -4188,126 +4204,133 @@ public partial class Nomina_Nomina2 : ClsPaginas DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", FiltroCvePersonal), "", getcolumnas); DataTable dtconp = null; int CvePeriodoSeleccionado = DdlPeriodo.SelectedValue.ToEntero();//cambiar reparar - #region PropNomina - int CvePersonal = 0; - int CveNomina = 0; - int CveMetodoPago = 0; - double SubTotal = 0; - double Total = 0; - int CveMoneda = 1; - #endregion - #region PropNominaDetalle - int CveConcepto = 0; - decimal ImporteConcepto = 0, ImporteGravadoConcepto = 0, ImporteExentoConcepto = 0, ImporteValor = 0; - #endregion - - - using (ClsNominas objNomina = new ClsNominas()) + if (FiltCveSubProyecto == -1 && DdlRegimenContratacion.SelectedValue == "-1") { - objNomina.IniciaTransacSQL(); - foreach (DataRow rtemp in dtr.Rows) - { - CveNomina = 0; - CvePersonal = rtemp["CvePersonal"].ToString().ToEntero(); - CveMetodoPago = rtemp["CveMetodoPago"].ToString().ToEntero(); - SubTotal = rtemp["SumaPercepciones"].ToString().ToDouble(); - Total = rtemp["Total"].ToString().ToDouble(); - if (CvePersonal > 0) - { - if (continuar) - { - if (objNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodoSeleccionado, -1, UsuarioActual.CveEmpresa)) - { + #region PropNomina + int CvePersonal = 0; + int CveNomina = 0; + int CveMetodoPago = 0; + double SubTotal = 0; + double Total = 0; + int CveMoneda = 1; + #endregion + #region PropNominaDetalle + int CveConcepto = 0; + decimal ImporteConcepto = 0, ImporteGravadoConcepto = 0, ImporteExentoConcepto = 0, ImporteValor = 0; + #endregion - if (objNomina.DtResultados.Rows.Count > 0) + + using (ClsNominas objNomina = new ClsNominas()) + { + objNomina.IniciaTransacSQL(); + foreach (DataRow rtemp in dtr.Rows) + { + CveNomina = 0; + CvePersonal = rtemp["CvePersonal"].ToString().ToEntero(); + CveMetodoPago = rtemp["CveMetodoPago"].ToString().ToEntero(); + SubTotal = rtemp["SumaPercepciones"].ToString().ToDouble(); + Total = rtemp["Total"].ToString().ToDouble(); + if (CvePersonal > 0) + { + if (continuar) + { + if (objNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodoSeleccionado, -1, UsuarioActual.CveEmpresa)) { - CveNomina = objNomina.CveNomina; - } - else - { - if (objNomina.AddNom_Nominas(-1, 1, CvePersonal, CvePeriodoSeleccionado, SubTotal, 0, 0, Total, CveMoneda, 1, CveMetodoPago, DateTime.Now, "Deducciones nómina", - "", "", "", "", 0, 0, 0, new DateTime(), new DateTime(), new DateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + + if (objNomina.DtResultados.Rows.Count > 0) { CveNomina = objNomina.CveNomina; } else { - continuar = false; + if (objNomina.AddNom_Nominas(-1, 1, CvePersonal, CvePeriodoSeleccionado, SubTotal, 0, 0, Total, CveMoneda, 1, CveMetodoPago, DateTime.Now, "Deducciones nómina", + "", "", "", "", 0, 0, 0, new DateTime(), new DateTime(), new DateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + { + CveNomina = objNomina.CveNomina; + } + else + { + continuar = false; + } } } } - } - if (CveNomina == 0) - { - continuar = false; - } - - - if (continuar) - { - dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0} AND Importe<>0", CvePersonal)); - foreach (DataRow rcon in dtconp.Rows) + if (CveNomina == 0) { + continuar = false; + } - CveConcepto = rcon["CveConcepto"].ToString().ToEntero(); - ImporteConcepto = rcon["Importe"].ToString().ToDecimal(); - ImporteGravadoConcepto = rcon["ImporteGravado"].ToString().ToDecimal(); - ImporteExentoConcepto = ImporteConcepto - ImporteGravadoConcepto; - ImporteValor = rcon["Valor"].ToString().ToDecimal(); - if (continuar) + + if (continuar) + { + dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0} AND Importe<>0", CvePersonal)); + foreach (DataRow rcon in dtconp.Rows) { - if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario)) + CveConcepto = rcon["CveConcepto"].ToString().ToEntero(); + ImporteConcepto = rcon["Importe"].ToString().ToDecimal(); + ImporteGravadoConcepto = rcon["ImporteGravado"].ToString().ToDecimal(); + ImporteExentoConcepto = ImporteConcepto - ImporteGravadoConcepto; + ImporteValor = rcon["Valor"].ToString().ToDecimal(); + if (continuar) { - continuar = false; - } - } + if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario)) + { + continuar = false; + } + } + + } } + if (continuar) + { + decimal SalarioDiario = rtemp["SalarioDiario"].ToString().ToEntero(); + decimal SalarioDiarioIMSS = rtemp["SalarioDiarioIMSS"].ToString().ToEntero(); + decimal SalarioDiarioIntegrado = rtemp["SalarioDiarioIntegrado"].ToString().ToEntero(); + int DiasLaborados = rtemp["DiasLaborados"].ToString().ToEntero(); + int DiasFaltados = rtemp["DiasFaltados"].ToString().ToEntero(); + int DiasVacaciones = rtemp["DiasVacaciones"].ToString().ToEntero(); + int DiasIncapacidad = rtemp["DiasIncapacidad"].ToString().ToEntero(); + continuar = objNomina.PA_Nom_NominasAutorizarUP(CvePersonal, CvePeriodoSeleccionado, SalarioDiario, SalarioDiarioIMSS, SalarioDiarioIntegrado, 0, 0, Total, SubTotal, DiasLaborados, DiasFaltados, DiasVacaciones, DiasIncapacidad); + } + } - if (continuar) - { - decimal SalarioDiario = rtemp["SalarioDiario"].ToString().ToEntero(); - decimal SalarioDiarioIMSS = rtemp["SalarioDiarioIMSS"].ToString().ToEntero(); - decimal SalarioDiarioIntegrado = rtemp["SalarioDiarioIntegrado"].ToString().ToEntero(); - int DiasLaborados = rtemp["DiasLaborados"].ToString().ToEntero(); - int DiasFaltados = rtemp["DiasFaltados"].ToString().ToEntero(); - int DiasVacaciones = rtemp["DiasVacaciones"].ToString().ToEntero(); - int DiasIncapacidad = rtemp["DiasIncapacidad"].ToString().ToEntero(); - continuar = objNomina.PA_Nom_NominasAutorizarUP(CvePersonal, CvePeriodoSeleccionado, SalarioDiario, SalarioDiarioIMSS, SalarioDiarioIntegrado, 0, 0, Total, SubTotal, DiasLaborados, DiasFaltados, DiasVacaciones, DiasIncapacidad); - } + } + + + + if (continuar) + { + continuar = objNomina.AutorizaNom_Nominas(-1, CvePeriodoSeleccionado, true); + } + + if (continuar) + { + objNomina.Commit(); + Alert("La nomina se autorizó correctamente."); + cargaDatos(); + } + else + { + objNomina.RollBack(); } } - - - - if (continuar) + if (dtr != null) { - continuar = objNomina.AutorizaNom_Nominas(-1, CvePeriodoSeleccionado, true); + dtr.Dispose(); + } - - if (continuar) + if (dtconp != null) { - objNomina.Commit(); - Alert("La nomina se autorizó correctamente."); - cargaDatos(); - } - else - { - objNomina.RollBack(); + dtconp.Dispose(); } } - if (dtr != null) + else { - dtr.Dispose(); - - } - if (dtconp != null) - { - dtconp.Dispose(); - + Alert("para poder autorizar debe seleccionar a todos en el centro de costo y en Régimen de contratación.", TipoMensaje.MsgAdvertencia); } } @@ -4764,7 +4787,7 @@ public partial class Nomina_Nomina2 : ClsPaginas e.Row.Cells[celda].CssClass = "cellFail"; e.Row.Cells[celda + 1].CssClass = "cellFail"; } - celda = celda + 2; + celda = celda + 4; string CuotaFijaSUA = string.Format("{0:N2}", e.Row.DataKey("CuotaFijaSUA").ToDecimal()); string CuotaFijaSIG = string.Format("{0:N2}", e.Row.DataKey("CuotaFijaSIG").ToDecimal()); if (CuotaFijaSUA != CuotaFijaSIG) @@ -5090,7 +5113,264 @@ public partial class Nomina_Nomina2 : ClsPaginas protected void LnkSRVacacionesADD_Click(object sender, EventArgs e) { + DateTime fInicio = TxtvacFechaInicio.Text.ToDate(); + DateTime fFin = TxtvacFechaFin.Text.ToDate(); + string fechapago = TxtvacFechaPago.Text.ToDate().ToString("yyyy/MM/dd"); + int diasinhabil = TxtvacDiasFeriados.Text.ToEntero(); + // Dim motivoVacaciones As String = TxtMotivoVacaciones.Text + int VacCveSupervisor = 0; + int VacFolioActual = 0; + if (fInicio <= fFin) + { + using (ClsRH objRHx = new ClsRH()) + { + + if (objRHx.VacacionesResumenGet(SRCvePersonal, UsuarioActual.Empresa.CveEmpresa)) + { + if (objRHx.DtResultados.Rows.Count > 0) + { + VacCveSupervisor = objRHx.DtResultados.Rows[0]["SupervisorCorreo"].ToString().ToEntero(); + } + } + + if (objRHx.VacacionesGet(SRCvePersonal, UsuarioActual.Empresa.CveEmpresa)) + { + if (objRHx.DtResultados.Rows.Count > 0) + { + VacFolioActual = objRHx.DtResultados.Compute("Max(Folio)", string.Empty).ToString().ToEntero(); + } + } + } + + VacFolioActual = VacFolioActual + 1; + ClsRH objRH = new ClsRH(); + // Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones) + bool continuar = objRH.SolicitudVacacionesAdd(SRCvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago: fechapago, diasinabiles: diasinhabil); + if (objRH.DtResultados.Rows.Count > 0) + { + string ShowError = objRH.DtResultados.Rows[0]["ShowError"].ToString(); + if (ShowError.Length > 0) + { + Alert(ShowError, TipoMensaje.MsgAdvertencia); + continuar = false; + } + } + objRH.Dispose(); + if (continuar) + { + + + TxtvacFechaInicio.Text = ""; + TxtvacFechaFin.Text = ""; + TxtvacFechaPago.Text = ""; + TxtvacDiasFeriados.Text = ""; + CargaVacaciones(); + //CargaVacacionesResumenPeriodoActual(); + //VacacionesMandaCorreoSupervisor("Solicitud Vacaciones " + NombreCompleto, VacSupervisorCorreo, VacSupervisorNombre, NombreCompleto, fInicio, fFin); + Alert("Las vacaciones se han actualizodo"); + } + } + else { Alert("La fecha Inicial debe ser inferior a la fecha final.", TipoMensaje.MsgAdvertencia); } } + protected void GvVacaciones_RowDataBound(object sender, System.Web.UI.WebControls.GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + bool _Estatus = bool.Parse(e.Row.DBCampo("Estatus").ToString()); + string _Documento = e.Row.DataKey("Documento"); + int _CveAutoriza = e.Row.DataKey("CveAutoriza").ToEntero(); + string RutaDocuemntoAutorizacion = string.Format(@"{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, SRCvePersonal, _Documento); + LinkButton lnkDescargaFormato = e.Row.FCLinkButton("ImgDescargaFormato"); + LinkButton lnkDescargaAutorizacion = e.Row.FCLinkButton("ImgDescargaAutorizacion"); + LinkButton lnkEditar = e.Row.FCLinkButton("ImgEditar"); + if (_CveAutoriza > 0 | !_Estatus) + lnkEditar.Visible = false; + lnkDescargaFormato.Visible = true; + // ScriptManager.GetCurrent(Me).RegisterAsyncPostBackControl(lnkDescargaFormato) + if (File.Exists(RutaDocuemntoAutorizacion) & _Estatus) + lnkDescargaAutorizacion.Visible = true; + else + lnkDescargaAutorizacion.Visible = false; + } + } + protected void LnkEliminarSolicitud_Click(object sender, EventArgs e) + { + GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; + int CvePersonalVacaciones = GvRow.DataKey("CvePersonalVacaciones").ToEntero(); + + ClsRH objRH = new ClsRH(); + if (objRH.RemoverSolicitudVacaciones(CvePersonalVacaciones)) + { + CargaVacaciones(); + Alert("Las vacaciones se ha eliminado"); + } + objRH.Dispose(); + } + public void Edit_ClickVacacionDia(object sender, EventArgs e) + { + GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; + + //CvePersonalVacaciones = GvRow.DataKey("CvePersonalVacaciones").ToEntero; + //VacFolio = GvRow.DataKey("Folio").ToString().ToEntero; + + + TxtvacFechaInicio.Text = GvRow.DataKey("FechaInicio").ToString().ToDate().ToString("dd/MM/yyyy"); + TxtvacFechaFin.Text = GvRow.DataKey("FechaFin").ToString().ToDate().ToString("dd/MM/yyyy"); + + RegistraScript("$('#divEditarDiaVacacion').modal({ backdrop: 'static', keyboard: false});"); + } + + public void DownLoad_ClickSolicitudVacaciones(object sender, EventArgs e) + { + /* + GridViewRow GvRow = (GridViewRow)(LinkButton)sender.NamingContainer; + + // Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero + + // DescarSolicitudVacaciones(Folio) + string RutaFormato = string.Format(@"{0}Formatos\SolicitudVacaciones.docx", UsuarioActual.Empresa.Ruta); + + string NombreEmpleado = string.Format("{0} {1} {2}", TxtAPaterno.Text, TxtAMaterno.Text, TxtNombres.Text); + string Codigo = TxtCodigo.Text; + string Departamento = DdlDepartamento.SelectedItem.Text; + string JefeInmediato = DdlSupervisorOrganigrama.SelectedItem.Text; + DateTime fechaIngreso = TxtFechaIngreso.Text.ToDate(); + int Periodoingreso = fechaIngreso.ToString("MMdd").ToEntero(); + int PeriodoInicio = GvRow.DataKey("FechaInicio").ToDate().ToString("MMdd").ToEntero(); + string FechaInicio = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy"); + string FechaFin = GvRow.DataKey("FechaFin").ToDateTime().ToString("dd/MM/yyyy"); + string diasPermiso = GvRow.DataKey("Dias"); + string MotivoPermiso = GvRow.DataKey("Motivo"); + string Puesto = DdlPuesto.SelectedItem.Value; + string Fecha = DateTime.Now.ToString("dd/MM/yyyy"); + string Solicitante = UsuarioActual.Nombre; + int anio = GvRow.DataKey("FechaInicio").ToDate().Year; + string FechaPeriodo = GvRow.DataKey("Periodo"); + + + + + if (Periodoingreso > PeriodoInicio) + anio = anio - 1; + + + + if (File.Exists(RutaFormato)) + { + clsGemBoxDocument objGemDocument = new clsGemBoxDocument(RutaFormato); + List ListaTags = new List(); + + ListaTags = GetDatosTagsDocumentos(); + + ListaTags.Add(new TagsDocumentos("{Solicitante}", Solicitante)); + ListaTags.Add(new TagsDocumentos("{Fecha}", Fecha)); + ListaTags.Add(new TagsDocumentos("{NombreEmpleado}", NombreEmpleado)); + ListaTags.Add(new TagsDocumentos("{Codigo}", Codigo)); + ListaTags.Add(new TagsDocumentos("{Departamento}", Departamento)); + ListaTags.Add(new TagsDocumentos("{JefeInmediato}", JefeInmediato)); + ListaTags.Add(new TagsDocumentos("{FechaInicio}", FechaInicio)); + ListaTags.Add(new TagsDocumentos("{FechaFin}", FechaFin)); + ListaTags.Add(new TagsDocumentos("{diasPermiso}", diasPermiso)); + ListaTags.Add(new TagsDocumentos("{MotivoPermiso}", MotivoPermiso)); + ListaTags.Add(new TagsDocumentos("{Puesto}", Puesto)); + ListaTags.Add(new TagsDocumentos("{anio}", anio.ToString())); + ListaTags.Add(new TagsDocumentos("{FechaPeriodo}", FechaPeriodo)); + + objGemDocument.SustituirTags(ListaTags); + + // objGemDocument.GuardarStream() + objGemDocument.GuardarStreamPDF(); + + byte[] bytesInStream = objGemDocument.GetBytesDocumento(); + // Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray + + objGemDocument.Dispose(); + + Response.Clear(); + Response.ContentType = "application/force-download"; + Response.AddHeader("content-disposition", "attachment; filename=" + CvePersonal + "_Solicitud_Vacaciones_" + DateTime.Now.ToString("yyyyMMddhhmmss") + ".pdf"); + Response.BinaryWrite(bytesInStream); + Response.End(); + } + else + Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.", TipoMensaje.MsgAdvertencia);*/ + } + + public void DownLoad_ClickSolicitudPermiso(object sender, EventArgs e) + { + /* GridViewRow GvRow = (GridViewRow)(LinkButton)sender.NamingContainer; + // Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero + // DescarSolicitudVacaciones(Folio) + string RutaFormato = string.Format(@"{0}Formatos\PermisoSolicitud.docx", UsuarioActual.Empresa.Ruta); + + string NombreEmpleado = string.Format("{0} {1} {2}", TxtAPaterno.Text, TxtAMaterno.Text, TxtNombres.Text); + string Codigo = TxtCodigo.Text; + string Departamento = DdlDepartamento.SelectedItem.Text; + string JefeInmediato = DdlSupervisorOrganigrama.SelectedItem.Text; + string FechaInicio = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy"); + string FechaFin = GvRow.DataKey("FechaFin").ToDateTime().ToString("dd/MM/yyyy"); + string diasPermiso = $"{(GvRow.DataKey("FechaFin").ToDate() - GvRow.DataKey("FechaInicio").ToDate()).Days}"; + string HorasPermiso = ""; // String.Format("{0}", ((GvRow.DataKey("FechaInicio").ToDateTime() - GvRow.DataKey("FechaFin").ToDateTime()).Hours)) + string MotivoPermiso = string.Format("{0},{1}", GvRow.DataKey("Descripcion"), GvRow.DataKey("Motivo")); + if (File.Exists(RutaFormato)) + { + clsGemBoxDocument objGemDocument = new clsGemBoxDocument(RutaFormato); + List ListaTags = new List(); + + ListaTags = GetDatosTagsDocumentos(); + + ListaTags.Add(new TagsDocumentos("{NombreEmpleado}", NombreEmpleado)); + ListaTags.Add(new TagsDocumentos("{Codigo}", Codigo)); + ListaTags.Add(new TagsDocumentos("{Departamento}", Departamento)); + ListaTags.Add(new TagsDocumentos("{JefeInmediato}", JefeInmediato)); + ListaTags.Add(new TagsDocumentos("{FechaInicio}", FechaInicio)); + ListaTags.Add(new TagsDocumentos("{FechaFin}", FechaFin)); + ListaTags.Add(new TagsDocumentos("{diasPermiso}", diasPermiso)); + ListaTags.Add(new TagsDocumentos("{HorasPermiso}", HorasPermiso)); + ListaTags.Add(new TagsDocumentos("{MotivoPermiso}", MotivoPermiso)); + + objGemDocument.SustituirTags(ListaTags); + + // objGemDocument.GuardarStream() + objGemDocument.GuardarStreamPDF(); + byte[] bytesInStream = objGemDocument.GetBytesDocumento(); + // Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray + objGemDocument.Dispose(); + + Response.Clear(); + Response.ContentType = "application/force-download"; + Response.AddHeader("content-disposition", "attachment; filename=" + CvePersonal + "_Solicituddepermiso_" + DateTime.Now.ToString("yyyyMMddhhmmss") + ".pdf"); + Response.BinaryWrite(bytesInStream); + Response.End(); + } + else + Alert("No se encontro el formato de Permisos", TipoMensaje.ToastAdventencia); + */ + } + + public void DownLoad_ClickSolicitudAutorizacion(object sender, EventArgs e) + { + /* + GridViewRow GvRow = (GridViewRow)(LinkButton)sender.NamingContainer; + string _Documento = GvRow.DataKey("Documento"); + string RutaDocuemntoAutorizacion = string.Format(@"{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento); + + if (File.Exists(RutaDocuemntoAutorizacion)) + { + byte[] bytesInStream = File.ReadAllBytes(RutaDocuemntoAutorizacion); + Response.Clear(); + Response.ContentType = "application/force-download"; + Response.AddHeader("content-disposition", "attachment; filename=" + _Documento); + Response.AddHeader("content-disposition", "attachment; filename=" + _Documento); + Response.BinaryWrite(bytesInStream); + Response.End(); + } + else + Alert("No se encontro el documento que intenta descargar."); + } + */ + } + protected void BtnGeneratepdf_Click(object sender, EventArgs e) { @@ -5263,7 +5543,19 @@ public partial class Nomina_Nomina2 : ClsPaginas protected void LnkRegistrarProvision_Click(object sender, EventArgs e) { - + using(ClsNominas objnom = new ClsNominas() ) + { + int CvePrePolizaProvision = 0; int CvePrePolizaasmilidos=0; + if(objnom.DtResultados.Rows.Count > 0) + { + CvePrePolizaProvision= objnom.DtResultados.Rows[0]["CvePrePoliza"].ToString().ToEntero(); + CvePrePolizaasmilidos = objnom.DtResultados.Rows[0]["CvePrePolizaAsimilables"].ToString().ToEntero(); + } + if (objnom.Autorizaperiodoconta(CvePeriodoSeleccionado, UsuarioActual.CveEmpresa)){ + string mensaje = string.Format("La provision a sido autorizada.
Provision
Asimilados", CvePrePolizaProvision, CvePrePolizaasmilidos); + Alert(mensaje); + } + } } @@ -5373,321 +5665,14 @@ public partial class Nomina_Nomina2 : ClsPaginas protected void LnkLayoutContable_Click(object sender, EventArgs e) { - using (ClsClaseBasez objbase = new ClsClaseBasez()) + using (ClsNominas objnom = new ClsNominas()) { - if (objbase.runQuerystr($"PA_NomDispersiondenomina @CvePeriodo ={CvePeriodoSeleccionado}, @CveEmpresa ={UsuarioActual.CveEmpresa}")) + if (objnom.GetDispersiondenomina(CvePeriodoSeleccionado, UsuarioActual.CveEmpresa)) { - CrearLayout(objbase.DtResultados); + CrearLayout(objnom.DtResultados); } - } + + } } } - -class ClsClaseBasez : IDisposable -{ - protected SqlConnection SqlConexion; - protected SqlDataAdapter SqlAdapter; - protected DataTable datos; - protected DataSet DTSet; - public DataTable DtResultados - { - get - { - return datos; - } - } - public DataSet DTSetResultados - { - get - { - return DTSet; - } - } - protected bool disposedValue = false; - protected bool EsTransaccion = false; - public string MyCurrentError; - // REGISTRAR CONEXIÓN - private int CveConexion = 0; - - public ClsClaseBasez(ClsClaseBasez adsObj = null) - { - if (adsObj != null && adsObj.SqlAdapter != null && adsObj.SqlAdapter.SelectCommand != null && adsObj.SqlAdapter.SelectCommand.Transaction != null) - { - SqlConexion = adsObj.SqlConexion; - SqlAdapter = adsObj.SqlAdapter; - EsTransaccion = true; - } - else - { - SqlConexion = new SqlConnection(); - SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString; - try - { - SqlConexion.Open(); - SqlAdapter = new SqlDataAdapter("", SqlConexion); - ConexionAdd(); - } - catch (Exception ex) - { - this.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex); - } - } - } - - public void SqlDataAdapter(string StrSQL, CommandType TipoComando = CommandType.StoredProcedure) - { - if (SqlConexion.State == ConnectionState.Open) - { - SqlAdapter.SelectCommand.Parameters.Clear(); - SqlAdapter.SelectCommand.CommandText = StrSQL; - SqlAdapter.SelectCommand.CommandType = TipoComando; - datos = new DataTable(); - DTSet = new DataSet(); - } - } - protected void DataAdapter(string StrSQL, CommandType TipoComando = CommandType.Text) - { - - // if (SqlAdapter.SelectCommand == null) - // { - // if ((sqlCommand != null)) - // { - // SqlAdapter.SelectCommand = sqlCommand; - // } - // else - // { - // SqlAdapter.SelectCommand = new SqlCommand(); - // } - // SqlAdapter.SelectCommand.Connection = SqlConexion; - // } - - if (SqlConexion.State == ConnectionState.Open) - { - SqlAdapter.SelectCommand.Parameters.Clear(); - SqlAdapter.SelectCommand.CommandText = StrSQL; - SqlAdapter.SelectCommand.CommandType = TipoComando; - datos = new DataTable(); - DTSet = new DataSet(); - } - } - - private void ConexionAdd() - { - if (ConfigurationManager.AppSettings["RegistraConexion"] != null && ConfigurationManager.AppSettings["RegistraConexion"].ToString() == "1") - { - try - { - SqlDataAdapter("PA_Sis_RegistrarConexion"); - { - var withBlock = SqlAdapter.SelectCommand.Parameters; - withBlock.Add("@Clase", SqlDbType.VarChar).Value = this.GetType().Name; - withBlock.Add("@Modulo", SqlDbType.VarChar).Value = string.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString(), HttpContext.Current.Request.QueryString.ToString()); - withBlock.Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output; - } - SqlAdapter.Fill(datos); - CveConexion = SqlAdapter.SelectCommand.Parameters["@IDConexion"].Value.ToString().ToEntero(); - } - catch (Exception ex) - { - this.OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()); - } - } - } - - private void ConexionClose() - { - if (CveConexion > 0 && ConfigurationManager.AppSettings["RegistraConexion"] != null && ConfigurationManager.AppSettings["RegistraConexion"].ToString() == "1") - { - SqlDataAdapter(string.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text); - - try - { - SqlAdapter.Fill(datos); - } - catch (Exception ex) - { - this.OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()); - } - CveConexion = 0; - } - } - protected void addParameters(string name, SqlDbType tipo, object valor) - { - if (SqlConexion.State == ConnectionState.Open) - SqlAdapter.SelectCommand.Parameters.Add(name, tipo).Value = valor; - } - - public bool runQuerystr(string Query, List Listaparametros = null, string msgError = "", bool mostrarError = true) - { - bool retorno = false; - try - { - if (SqlConexion.State == ConnectionState.Open) - { - SqlAdapter.SelectCommand.Parameters.Clear(); - SqlAdapter.SelectCommand.CommandText = Query; - SqlAdapter.SelectCommand.CommandType = CommandType.Text; - datos = new DataTable(); - if (Listaparametros != null) - { - foreach (parametroQuery pr in Listaparametros) - { - SqlAdapter.SelectCommand.Parameters.Add(pr.ParameterName, pr.SqlDataType).Direction = pr.ParameterDirection; - } - } - - SqlAdapter.Fill(datos); - retorno = true; - } - else - { - string InfoAdicional = "Se intenta realizar una conexion con una conexion cerrada"; - InfoAdicional = $"{InfoAdicional}{Environment.NewLine}{msgError}{Environment.NewLine}"; - ModExtensiones.GuardaLog(InfoAdicional); - } - } - catch (SqlException sqEx) - { - retorno = false; - setOnError(msgError, sqEx); - } - catch (Exception ex) - { - retorno = false; - setOnError(msgError, ex); - } - return retorno; - } - public int ExecQuery(string Query, List Listaparametros = null, string msgError = "", bool mostrarError = true) - { - int retorno = -1; - try - { - if (SqlConexion.State == ConnectionState.Open) - { - SqlAdapter.SelectCommand.Parameters.Clear(); - SqlAdapter.SelectCommand.CommandText = Query; - SqlAdapter.SelectCommand.CommandType = CommandType.Text; - if (Listaparametros != null) - { - foreach (parametroQuery pr in Listaparametros) - { - SqlAdapter.SelectCommand.Parameters.Add(pr.ParameterName, pr.SqlDataType).Direction = pr.ParameterDirection; - } - } - - retorno = SqlAdapter.SelectCommand.ExecuteNonQuery(); - } - else - { - string InfoAdicional = "Se intenta realizar una conexion con una conexion cerrada"; - InfoAdicional = $"{InfoAdicional}{Environment.NewLine}{msgError}{Environment.NewLine}"; - this.GuardaLog(InfoAdicional); - } - } - catch (SqlException sqEx) - { - retorno = -1; - setOnError(msgError, sqEx); - } - catch (Exception ex) - { - retorno = -1; - setOnError(msgError, ex); - } - return retorno; - } - - - protected bool RunQuery(string msgOnError) - { - bool retorno = false; - - try - { - SqlAdapter.Fill(datos); - retorno = true; - } - catch (Exception ex) - { - retorno = false; - - setOnError(msgOnError, ex); - } - return retorno; - } - protected bool RunQueryDS(string msgOnError) - { - bool retorno = false; - - try - { - SqlAdapter.Fill(DTSet); - retorno = true; - } - catch (Exception ex) - { - retorno = false; - - setOnError(msgOnError, ex); - } - return retorno; - } - public void setOnError(string Mensaje, Exception Exeption) - { - string InfoAdicional = ""; - if (SqlAdapter != null && SqlAdapter.SelectCommand != null && SqlAdapter.SelectCommand.Parameters != null) - InfoAdicional = SqlAdapter.SelectCommand.Parameters.ParametrosInfo(); - MyCurrentError = string.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString(), "\r\n", InfoAdicional); - this.OnError(Mensaje, Exeption, InfoAdicional); - } - public void IniciaTransacSQL() - { - SqlAdapter.SelectCommand.Transaction = SqlConexion.BeginTransaction(); - EsTransaccion = true; - } - - public void Commit() - { - SqlAdapter.SelectCommand.Transaction.Commit(); - SqlConexion.Close(); - } - - public void RollBack() - { - SqlAdapter.SelectCommand.Transaction.Rollback(); - SqlConexion.Close(); - } - public void Dispose() - { - ConexionClose(); - if ((SqlConexion != null)) - { - if (SqlConexion.State == ConnectionState.Open) - { - try - { - if ((SqlAdapter != null)) - SqlAdapter.Dispose(); - - SqlConexion.Close(); - } - catch (Exception ex) - { - this.OnError("Ocurrió un error al intentar cerrar la base de datos.", ex); - } - } - SqlConexion.Dispose(); - } - - if (datos != null) - datos.Dispose(); - if (SqlAdapter != null) - SqlAdapter.Dispose(); - - if (DTSet != null) - DTSet.Dispose(); - - GC.SuppressFinalize(this); - } -} \ No newline at end of file + \ No newline at end of file diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 87b4dd413..18702c868 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -2293,7 +2293,7 @@
-
+
@@ -2307,8 +2307,7 @@
- -
+
@@ -2322,8 +2321,9 @@
-
- +
+
+
@@ -2337,15 +2337,13 @@
-
+
- <%--Motivo - --%>
diff --git a/vwd.webinfo b/vwd.webinfo index be971a4e1..b69679b40 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -226,6 +226,8 @@ + + From 9f89a3ba31cac6b463522e80453b919b308288df Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 15 Apr 2021 07:26:39 -0700 Subject: [PATCH 11/11] --- Nomina/Nomina2.aspx.cs | 12 ++++++++---- RH/Personal.aspx | 31 ++++++++++++++++--------------- 2 files changed, 24 insertions(+), 19 deletions(-) diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 01f0ca03e..521c66e52 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -365,16 +365,18 @@ public partial class Nomina_Nomina2 : ClsPaginas if (FiltCvePeriodo > 0) { + int Estatus = 0; using (ClsNominas objnom = new ClsNominas()) { if (objnom.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, FiltCvePeriodo)) { DataRow drow = objnom.DtResultados.Rows[0]; - int Estatus = drow["Estatus"].ToString().ToEntero(); + Estatus = drow["Estatus"].ToString().ToEntero(); int CvePrePolizaProvision = drow["CvePrePolizaProvision"].ToString().ToEntero(); + int CvePrePolizaProvisionAsimilados = drow["CvePrePolizaAsimilables"].ToString().ToEntero(); LnkConceptoEmpleado.Visible = (Estatus == 1); - LnkAutorizar.Visible = true;// (Estatus == 1); - LnkRegistrarProvision.Visible = (Estatus > 2) && CvePrePolizaProvision < 0; + LnkAutorizar.Visible = (Estatus == 1); + LnkRegistrarProvision.Visible = (Estatus >= 2) && CvePrePolizaProvision <= 0; LnkConceptoEmpleado.Visible = (Estatus < 2); LnkCargaAsistenciaMasiva.Visible = (Estatus < 2); LnkModalPlantillaNomina.Visible = (Estatus < 2); @@ -382,7 +384,9 @@ public partial class Nomina_Nomina2 : ClsPaginas LnkLayoutContable.Visible = (Estatus > 2); LnkProvisionNomina.Visible = CvePrePolizaProvision > 0; - LnkProvisionNomina.NavigateUrl = $"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaProvision}&Tipo=NOMPROV"; + LnkProvisionNomina.NavigateUrl = $"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaProvision}"; + LnkProvisionNominaAsimilados.Visible = CvePrePolizaProvision > 0; + LnkProvisionNominaAsimilados.NavigateUrl = $"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaProvisionAsimilados}"; UpAccciones.Update(); } LnkListaRaya.Visible = true; diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 18702c868..0bb63c1e6 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -1032,11 +1032,12 @@ + <%----%> - +   @@ -1046,7 +1047,7 @@ - +   @@ -1054,7 +1055,7 @@ - +   @@ -1064,7 +1065,7 @@ - +   @@ -1074,7 +1075,7 @@ - +   @@ -1082,7 +1083,7 @@ - +   @@ -1090,7 +1091,7 @@ - +   @@ -1099,7 +1100,7 @@ <%----%> - +   @@ -1108,7 +1109,7 @@ - +   @@ -1117,7 +1118,7 @@ - +   @@ -1129,7 +1130,7 @@ - +   @@ -1139,13 +1140,13 @@ - + '> - + @@ -1154,7 +1155,7 @@ - + @@ -1165,7 +1166,7 @@ - +