diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb index 44dbcf836..05748e891 100644 --- a/App_Code/CalendarEvent.vb +++ b/App_Code/CalendarEvent.vb @@ -42,6 +42,9 @@ Public Class CalendarEvent Public Property CveSubProyectoUsuarioAtendio As Integer + Public Property CveCompra As Integer + Public Property SerieFolioCompra As String + End Class diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index c812a6f51..56d781b38 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -2488,12 +2488,12 @@ Public Class ClsOIEventos Optional RecurrenciaTipo As Integer = -1, Optional Frecuencia As Integer = -1, Optional DiasSemana As String = "-1", Optional Dia As Integer = -1, Optional Mes As Integer = -1, Optional RecurrenciaFin As String = "-1", Optional CveTipoEvento As Integer = 2, Optional Importe As Double = -1, Optional CveEmpresaCRM As Integer = -1, Optional CveContactoCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional CveTipoProcesoCRM As Integer = -1, Optional CveEtapaProcesoCRM As Integer = -1, - Optional CveSubProyecto As Integer = -1, Optional CveUsuarioPara As Integer = -1) As Boolean + Optional CveSubProyecto As Integer = -1, Optional CveUsuarioPara As Integer = -1, Optional CveCompra As Integer = -1) As Boolean Dim Retorno As Boolean = False Retorno = AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, CveUsuarioPara, CveUsuarioIng, FechaInicio, FechaFin, -1, -1, "-1", CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveEventoPadre:=CveEventoPadre, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dia, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, Importe:=Importe, - CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM, CveSubProyecto:=CveSubProyecto) + CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM, CveSubProyecto:=CveSubProyecto, CveCompra:=CveCompra) Return Retorno End Function diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 844f12976..93df3907e 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9188,7 +9188,7 @@ Public Class ClsPaginas 'PaginaDict.Add("/Sistemas/CatEmpresas.aspx".ToUpper(), 2) PaginaDict.Add("/Sistemas/CatEmpresas.aspx".ToUpper(), 24) PaginaDict.Add("/Sistemas/Empresa.aspx".ToUpper(), 2) - PaginaDict.Add("/Sistemas/Empresa2.aspx".ToUpper(), 1341) + PaginaDict.Add("/Sistemas/DefinicionEmpresa.aspx".ToUpper(), 1341) PaginaDict.Add("/Sistemas/CatUsuarios.aspx".ToUpper(), 20) PaginaDict.Add("/Sistemas/Usuarios.aspx".ToUpper(), 20) PaginaDict.Add("/Sistemas/UsuarioDetalle.aspx".ToUpper(), 20) diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 57ddbf5e6..ba91cbbbd 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -38,33 +38,33 @@ Public Class LogicNominas Else If hasfiniquito Then - cfdi = PreTimbrar(CveNomina, UsuarioActual, True, versionTimbre) 'CvePersonal, CvePeriodo, - If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then + 'cfdi = PreTimbrar(CveNomina, UsuarioActual, True, versionTimbre) 'CvePersonal, CvePeriodo, + 'If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then - If Not cfdi.Timbrado Then - Dim ObjTimbrado As New Timbrado - Dim ObjFactura As New Modelos.Factura - ObjFactura.TipoDocto = "Nomina" - ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero() - ObjFactura.Serie = cfdi.Comprobante.Serie - ObjFactura.Timbre = cfdi - If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, versionTimbre) Then - Retorno = ObjTimbrado.MensajeErrorCFDI - End If - If Retorno <> "" Then - Retorno = $"{Retorno} - {cfdi.Receptor.Nombre}" - Else + ' If Not cfdi.Timbrado Then + ' Dim ObjTimbrado As New Timbrado + ' Dim ObjFactura As New Modelos.Factura + ' ObjFactura.TipoDocto = "Nomina" + ' ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero() + ' ObjFactura.Serie = cfdi.Comprobante.Serie + ' ObjFactura.Timbre = cfdi + ' If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, versionTimbre) Then + ' Retorno = ObjTimbrado.MensajeErrorCFDI + ' End If + ' If Retorno <> "" Then + ' Retorno = $"{Retorno} - {cfdi.Receptor.Nombre}" + ' Else - End If + ' End If - End If - Else - If cfdi Is Nothing Then - Retorno = $"No se pudo generar el pretimbre(GetError):
{GetError}" - Else - Retorno = $"No se pudo generar el pretimbre:
{cfdi.Mensaje}" - End If - End If + ' End If + 'Else + ' If cfdi Is Nothing Then + ' Retorno = $"No se pudo generar el pretimbre(GetError):
{GetError}" + ' Else + ' Retorno = $"No se pudo generar el pretimbre:
{cfdi.Mensaje}" + ' End If + 'End If End If End If @@ -106,7 +106,7 @@ Public Class LogicNominas Dim TotalExcento As Decimal = 0 Dim TotalGravado As Decimal = 0 - Dim AntiguedadSemanas As Integer = 0 + Dim AntiguedadSemanas As String = "" Dim FormatoReciboCFDi As String = "" Dim FechaInicio, FechaFin, FechaPago As Date @@ -158,32 +158,33 @@ Public Class LogicNominas Dim drow As DataRow = objNomina.DtResultados.Rows(0) CvePersonal = drow("CvePersonal").ToString().ToEntero() CvePeriodo = drow("CvePeriodo").ToString().ToEntero() - If TimbreIndemnizacion Then - totalDb = drow("TotalFin").ToString().ToDecimal() - subTotalDb = drow("SubTotalFin").ToString().ToDecimal() - Else - totalDb = drow("Total").ToString().ToDecimal() + 'If TimbreIndemnizacion Then + ' totalDb = drow("TotalFin").ToString().ToDecimal() + ' subTotalDb = drow("SubTotalFin").ToString().ToDecimal() + 'Else + totalDb = drow("Total").ToString().ToDecimal() subTotalDb = drow("SubTotal").ToString().ToDecimal() - End If + 'End If cfdi.Nomina.Antiguedad = drow("Antiguedad").ToString().ToEntero() cfdi.Nomina.UltimoSueldoOrdinario = drow("UltimoSueldoOrdinario").ToString().ToDecimal() Serie = objNomina.Serie Folio = objNomina.Folio.ToString() - + FechaInicioContrato = drow("FechaIngreso").ToString() + AntiguedadSemanas = drow("AntiguedadSemanas").ToString() MetodoPagoFijo = drow("MetodoPagoFijo").ToString().ToUpper().Contiene("1", "TRUE") ClaveBanco = drow("ClaveBanco").ToString() BancoNumCuenta = drow("BancoNumCuenta").ToString() - If TimbreIndemnizacion Then - cfdi.Timbrado = drow("SeTimbroFiniquitoVal").ToString().ToEntero() = 1 - cfdi.IStimbreFiniquito = True - Serie = $"{objNomina.Serie}F" - Else - cfdi.Timbrado = drow("SeTimbroVal").ToString().ToEntero() = 1 + 'If TimbreIndemnizacion Then + ' cfdi.Timbrado = drow("SeTimbroFiniquitoVal").ToString().ToEntero() = 1 + ' cfdi.IStimbreFiniquito = True + ' Serie = $"{objNomina.Serie}F" + 'Else + cfdi.Timbrado = drow("SeTimbroVal").ToString().ToEntero() = 1 cfdi.IStimbreFiniquito = False - End If - Else + 'End If + Else If continuar Then GetError = "No se pudo obtener la información de la nomina" 'si continuar= true el error se origino en este nodo y se le asigno el error continuar = False End If @@ -195,7 +196,7 @@ Public Class LogicNominas Sindicalizado = objPersonal.DtResultados.Rows(0)("Sindicalizado").ToString().ToUpper().Contiene("TRUE", "1") CURP = objPersonal.CURP NumeroSS = objPersonal.NumeroSS - FechaInicioContrato = objPersonal.FechaInicioContrato.ToString() + 'FechaInicioContrato = objPersonal.FechaInicioContrato.ToString() CodigoTipoContrato = objPersonal.CodigoTipoContrato ClaveTipoJornada = objPersonal.ClaveTipoJornada CveRegimenContratacion = objPersonal.CveRegimenContratacion @@ -220,27 +221,27 @@ Public Class LogicNominas End If If continuar AndAlso objNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then If objNomina.DtResultados.Rows.Count > 0 Then - Dim filtropercepciones As String = "Tipo = 'P' AND EsPadre = 1 AND SoloVisible =0 AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) AND SATCveConcepto NOT IN ('022', '023','025')" - If TimbreIndemnizacion Then - filtropercepciones = " Tipo = 'P' AND SATCveConcepto IN ('022', '023','025') AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) " - End If + Dim filtropercepciones As String = "Tipo = 'P' AND EsPadre = 1 AND SoloVisible =0 AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) " ' AND SATCveConcepto NOT IN ('022', '023','025') + 'If TimbreIndemnizacion Then + ' filtropercepciones = " Tipo = 'P' AND SATCveConcepto IN ('022', '023','025') AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) " + 'End If DtPercepciones = objNomina.DtResultados.FiltraParametros(filtropercepciones) - Dim filtrodeduc As String = "Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0 AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) AND CveSistema <> 47" - If TimbreIndemnizacion Then - filtrodeduc = " Tipo = 'D' AND CveSistema =47" - End If + Dim filtrodeduc As String = "Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0 AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) " 'AND CveSistema <> 47 + 'If TimbreIndemnizacion Then + ' filtrodeduc = " Tipo = 'D' AND CveSistema =47" + 'End If DtDeducciones = objNomina.DtResultados.FiltraParametros(filtrodeduc) - If Not TimbreIndemnizacion Then - DtOtrosPagos = objNomina.DtResultados.FiltraParametros(" TipoConceptoSAT='O'") + DtOtrosPagos = objNomina.DtResultados.FiltraParametros(" TipoConceptoSAT='O'") + 'If Not TimbreIndemnizacion Then - End If + 'End If Dim disrcomp As DataRow = DtOtrosPagos.FiltroPrimero("Codigo ='D999'") For Each drow As DataRow In DtDeducciones.Rows If drow("Codigo").ToString() = "D038" Then End If Next - hasfiniquito = objNomina.DtResultados.COUNT("SATCveConcepto", "(Tipo = 'P' AND SATCveConcepto IN ('022', '023','025')) ") > 0 'OR (Tipo = 'D' AND SATCveConcepto = '101') + hasfiniquito = False 'objNomina.DtResultados.COUNT("SATCveConcepto", "(Tipo = 'P' AND SATCveConcepto IN ('022', '023','025')) ") > 0 'OR (Tipo = 'D' AND SATCveConcepto = '101') TotalPercepciones = DtPercepciones.SUM("Importe").ToString().ToDecimal() @@ -266,21 +267,21 @@ Public Class LogicNominas FechaFin = DrPeriodo("FechaFin").ToString().ToDate() FechaPago = DrPeriodo("FechaPago").ToString().ToDate() PeriodicidadPago = DrPeriodo("ClavePerioricidadPago").ToString() - AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, FechaFin).ToEntero() + 'AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, FechaFin).ToEntero() - If Not TimbreIndemnizacion Then - FechaInicio = DrPeriodo("FechaInicio").ToString().ToDate() + 'If Not TimbreIndemnizacion Then + FechaInicio = DrPeriodo("FechaInicio").ToString().ToDate() TipoNomina = If(objNomina.CveTipoPeriodo = 6, "E", "O") - Else - FechaInicio = FechaFin - TipoNomina = "E" - End If + 'Else + ' FechaInicio = FechaFin + ' TipoNomina = "E" + 'End If Else If continuar Then GetError = "No se pudo obtener la información del periodo" 'si continuar= true el error se origino en este nodo y le asigno el error continuar = False End If - If Not TimbreIndemnizacion Then - If continuar AndAlso objPersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, -1, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then + 'If Not TimbreIndemnizacion Then + If continuar AndAlso objPersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, -1, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then Dim Asistencias As Integer = objPersonal.DtResultados.SUM("AplicaAsistencia").ToEntero() 'If Asistencias > 15 Then @@ -296,14 +297,14 @@ Public Class LogicNominas Else continuar = False End If - Else - DiasPagados = 1 - DiasIncapacitados = 0 - End If - If continuar AndAlso DiasIncapacitados > 0 Then - If Not TimbreIndemnizacion Then + 'Else + ' DiasPagados = 1 + ' DiasIncapacitados = 0 + 'End If + If continuar AndAlso DiasIncapacitados > 0 Then + 'If Not TimbreIndemnizacion Then - If objNomina.GetIncapacidades(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then + If objNomina.GetIncapacidades(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then If objNomina.DtResultados IsNot Nothing AndAlso objNomina.DtResultados.Rows.Count > 0 Then For Each dr As DataRow In objNomina.DtResultados.Rows ObjIncapacidades.Add(New CFDINominaIncapacidades With {.DiasIncapacidad = dr("Dias").ToString().ToEntero().ToString(), .TipoIncapacidad = dr("ClaveTipoIncapacidad").ToString(), .Importe = dr("Descuento").ToString().ToDecimal}) @@ -313,8 +314,8 @@ Public Class LogicNominas If continuar Then GetError = "No se pudo obtener las incapacidades del periodo" 'si continuar= true el error se origino en este nodo y le asigno el error continuar = False End If + 'End If End If - End If End Using End Using @@ -446,7 +447,7 @@ Public Class LogicNominas Next End If - If Not TimbreIndemnizacion AndAlso CveRegimenContratacion.ToEntero() = 2 AndAlso ((ObjOtrosPagos.FirstOrDefault(Function(m) m.TipoOtroPago.ToEntero().Contiene(2, 7, 8))) Is Nothing) Then + If CveRegimenContratacion.ToEntero() = 2 AndAlso ((ObjOtrosPagos.FirstOrDefault(Function(m) m.TipoOtroPago.ToEntero().Contiene(2, 7, 8))) Is Nothing) Then ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser referente a subsidio al empleo .Clave = "D051", .Concepto = "Subs al Empleo acreditado", .Importe = 0D, .Subsidiocausado = 0D}) @@ -484,7 +485,7 @@ Public Class LogicNominas cfdi.Nomina.Receptor.CURP = CURP cfdi.Nomina.Receptor.NSS = NumeroSS cfdi.Nomina.Receptor.FechaInicioContrato = FechaInicioContrato - cfdi.Nomina.Receptor.Antiguedad = $"P{AntiguedadSemanas}W" + cfdi.Nomina.Receptor.Antiguedad = AntiguedadSemanas '$"P{AntiguedadSemanas}W" cfdi.Nomina.Receptor.TipoContrato = If(TimbreIndemnizacion, "99", CodigoTipoContrato) cfdi.Nomina.Receptor.CodigoTipoJornada = ClaveTipoJornada cfdi.Nomina.Receptor.CodigoRegimenContratacion = If(TimbreIndemnizacion, "13", CveRegimenContratacion) diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 5be0ee8b2..6dfb8875c 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -196,6 +196,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.NombreProveedor = dr("NombreProveedor").ToString cevent.NomprePersonal = dr("NomprePersonal").ToString + cevent.CveCompra = dr("CveCompra").ToString.ToEntero + cevent.SerieFolioCompra = dr("SerieFolioCompra").ToString cevent.CveOS = dr("CveOS").ToString.ToEntero cevent.CveOSDetalle = dr("CveOSDetalle").ToString.ToEntero diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index 53d1ec98b..ceb7351e6 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -1408,7 +1408,7 @@ public partial class CRM_Acercamiento : ClsPaginas BtnGuardarAcercamiento.Visible = false; BtnEliminarAcercamiento.Visible = false; - DivAccionesBitacoraActividades.Visible = false; + DivAccionesBitacoraActividades.Visible = true; DivAccionesBitacoraArchivos.Visible = false; LnkCerrarAcercamiento.Visible = false; diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 7644e534e..7e8e59b76 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -3014,8 +3014,9 @@ Agregar --%> -
-
+
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 9c21cafd4..cb772c048 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1296,6 +1296,8 @@ Partial Class Compras_Compras DivEsNoDeducible.Visible = True DivActualizarVincular.Visible = True DVModalAnticipoFechaEjecucion.Visible = True + HlEvento.Visible = True + HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveCompra=" & CveCompra & "&TB_iframe=true&height=370&width=600;" Else ViewState("CveProveedor") = -1 diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index ede08210b..e878fb243 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -3044,8 +3044,14 @@ Agregar --%> -
- Agendar +
+ + Agendar +
+ + + + @@ -3055,6 +3061,7 @@ + diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index cfdbc97fb..9ecc4b10e 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -536,9 +536,13 @@ Partial Class Compras_Proveedores End If HlEvento.Visible = True HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveProveedor=" & CveProveedor & "&TB_iframe=true&height=370&width=600;" + LtlTareaNueva.Visible = True + LtlTareaNueva.Text = String.Format(" Tarea", CveProveedor) CargaRepresentantes() + + Else 'Configuración de Modalidad Insert @@ -2776,6 +2780,9 @@ Partial Class Compras_Proveedores ObjEventoBitacora.Dispose() GvEB.DataBind() End Sub + Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) + CargaEventoBitacora() + End Sub Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs) Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument) diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad2/RepAnexoCatalogoMensual.aspx index a42290962..540d7c725 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx @@ -7,7 +7,7 @@ @@ -2557,7 +2557,9 @@ - CodigoObjetoImpuesto @@ -2571,6 +2573,7 @@ 2pt + true diff --git a/Finanzas/RepRazonesFinancieras2.aspx b/Finanzas/RepRazonesFinancieras2.aspx index 11a59f2d3..ada18d8e4 100644 --- a/Finanzas/RepRazonesFinancieras2.aspx +++ b/Finanzas/RepRazonesFinancieras2.aspx @@ -450,14 +450,17 @@ <%----%> + +
- - + <%----%> + +
@@ -650,381 +653,234 @@ - - - - - - - diff --git a/Finanzas/RepRazonesFinancieras2.aspx.vb b/Finanzas/RepRazonesFinancieras2.aspx.vb index 4b372cd9a..a20971500 100644 --- a/Finanzas/RepRazonesFinancieras2.aspx.vb +++ b/Finanzas/RepRazonesFinancieras2.aspx.vb @@ -5,6 +5,7 @@ Imports System.Data Imports System.Drawing Imports System.IO Imports System.Windows.Forms +Imports DocumentFormat.OpenXml.EMMA Imports Extensiones Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms @@ -452,13 +453,16 @@ Partial Class Finanzas_RepRazonesFinancieras2 Dim Titulo As String = e.Row.FCLabel("LblRatio").Text Dim SubTitulo As String = "" - Dim YReferencia As String = "$" + Dim YReferencia As String = "Valor" Dim Info As String = "" - Dim XReferencia As String = "" + Dim XReferencia As String = "Periodos" Dim Promedio As String = "" - Dim lista As New List(Of Object) - Dim Lista2 As New List(Of String) + 'Dim lista As New List(Of Object) + 'Dim Lista2 As New List(Of String) + Dim ListaDatos As New List(Of String) + Dim ListaCategorias As New List(Of String) + For x = 2 To GVRatios.Columns.Count - 1 If GVRatios.Columns(x).Visible = True Then @@ -469,8 +473,8 @@ Partial Class Finanzas_RepRazonesFinancieras2 Dim valor As String = e.Row.Cells(x).Text.ToString.Replace("%", "").Replace(" ", "").Replace(" ", "").Replace(",", "").Trim If valor.Length > 0 Then - lista.Add(New With {.Texto = headerString, .Valor = valor.ToDecimal, .Color = "#FF0F00"}) - Lista2.Add($"['{headerString}',{valor}]") + ListaDatos.Add(valor.ToDecimal.ToString("###########0.00")) + ListaCategorias.Add($"""{headerString}""") End If End If @@ -481,11 +485,18 @@ Partial Class Finanzas_RepRazonesFinancieras2 'e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista)) If e.Row.DataKey("Tipo").ToEntero <> 1 Then - Info = String.Join(",", Lista2) + e.Row.FCHyperLink("hpl2").Attributes.Add("onclick", "$('#DivModalGrafica').modal('show'); " & - String.Format("graficahighchartsFinan('{0}','{1}','{2}','{3}',[{4}],1,'{5}','{6}',[{8}],[{7}],'{9}');", chartdiv2.ClientID, "", SubTitulo, YReferencia, Info, XReferencia, Promedio, "", "", Titulo)) + String.Format("graficahighchartsFinan('{0}','{1}','{2}','{3}',[{4}],'{5}','{5}','{6}',[{8}],[{7}],'{9}');", chartdiv2.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia, Promedio, "", "", e.Row.FCCheckBox("chkgraf").ClientID)) + + e.Row.FCCheckBox("chkgraf").InputAttributes.Add("class", "chksel") + e.Row.FCCheckBox("chkgraf").InputAttributes.Add("data-name", e.Row.FCLabel("LblRatio").Text) + e.Row.FCCheckBox("chkgraf").InputAttributes.Add("data-data", $"[{String.Join(",", ListaDatos)}]") + e.Row.FCCheckBox("chkgraf").InputAttributes.Add("data-categorias", $"[{String.Join(",", ListaCategorias)}]") + Else e.Row.FCHyperLink("hpl2").Visible = False + e.Row.FCCheckBox("chkgraf").Visible = False End If @@ -493,6 +504,11 @@ Partial Class Finanzas_RepRazonesFinancieras2 End If + If e.Row.RowType = DataControlRowType.Header Then + + e.Row.FCHyperLink("hpl2").Attributes.Add("onclick", "$('#DivModalGrafica').modal('show'); " & + String.Format("graficahighchartsFinan('{0}','{1}','{2}','{3}',[{4}],'{5}','{5}','{6}',[{8}],[{7}],'{9}' );", chartdiv2.ClientID, "Selección multiple", "", "Valores", "", "Periodos", "", "", "", "")) + End If End Sub diff --git a/Inicio.aspx b/Inicio.aspx index aac7cdca9..125ebff4c 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -1877,7 +1877,7 @@ //Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM - if (event.CveEmpresaCRM > 0 || event.CveAcercamientoCRM > 0 || event.CvePersonal > 0 || event.CveCliente > 0 || event.CveProveedor > 0 ) { + if (event.CveEmpresaCRM > 0 || event.CveAcercamientoCRM > 0 || event.CvePersonal > 0 || event.CveCliente > 0 || event.CveProveedor > 0 || event.CveCompra > 0) { $("#<%=LnkTituloLink.ClientID%>").css("display", ""); @@ -1907,6 +1907,13 @@ $("#<%=LnkTituloLink.ClientID%>").attr("href", "/Compras/Proveedores.aspx?CveProveedor=" + event.CveProveedor); } + if (event.CveCompra > 0) { + $("#<%=LnkTituloLink.ClientID%>").text("Comppra: " + event.SerieFolioCompra); + $("#<%=LnkTituloLink.ClientID%>").attr("href", "/Compras/Compras.aspx?CveCompra=" + event.CveCompra); + } + + + } else { $("#<%=LnkTituloLink.ClientID%>").css("display", "none") diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 4ee949807..387ac14dd 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -236,7 +236,7 @@ public partial class Nomina_Finiquito : ClsPaginas { DateTime fechafin = TxtFechaBaja.Text.ToDateTime(); decimal antiguedad = getyearsresult(fechafin, FechaInicio); - TxtAntiguedad.Text = string.Format("{0}", antiguedad); + TxtAntiguedad.Text = string.Format("{0:##0.00###}", antiguedad); TxtDiasTransAnio.Text = string.Format("{0}", fechafin.DayOfYear); } else diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index fd42cbdd9..a5b271700 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -827,7 +827,14 @@ Partial Class OC_OC DdlSubProyecto.Items.Clear() ' aqui tiene otras condiciones especiales - DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) + If CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) + Else + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) + End If + + + DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoContrato.Items.Clear() @@ -1597,7 +1604,7 @@ Partial Class OC_OC lblPendientes.Text = objOC.Pendiente.ToString - If objOC.Pendiente > 0 Then + If objOC.Pendiente > 0 AndAlso TipoOC = "OC" Then If objOC.Pendiente > 1 Then lblPendientes.Text = objOC.Pendiente.ToString("0.###") & " Articulos Pendientes de vincular." @@ -1959,7 +1966,14 @@ Partial Class OC_OC Dim Filtro As String = If(DdlProyecto.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(4, 5), String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "") DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, CveEmpresaActual, 1)) 'DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) ' GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero) + + If CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) + Else + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ").FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) + 'DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) + End If + DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -2543,6 +2557,12 @@ Partial Class OC_OC End If End If + + If TipoOC.ToUpper = "REQ" AndAlso CveEstatusFinalOK = CboE.SelectedValue.ToEntero AndAlso DdlProveedores.SelectedValue.ToEntero <= 0 Then + Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia) + TieneError = True + End If + 'VALIDA QUE TENGA LAS COTIZACIONES QUE DEBEN TENER If UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso (TipoOC.ToUpper = "REQ" And CveEstatusFinalOK = CboE.SelectedValue.ToEntero) Then If CveConfianzaProveedor > 0 Then diff --git a/OI/PopUpAgenda.aspx.vb b/OI/PopUpAgenda.aspx.vb index 39af5e7be..11d980faf 100644 --- a/OI/PopUpAgenda.aspx.vb +++ b/OI/PopUpAgenda.aspx.vb @@ -334,6 +334,10 @@ Partial Class OI_PopUpAgenda CargaContarto(Request("CveContrato").ToEntero) End If + If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then + CargaCompra(CveCompra:=Request("CveCompra").ToEntero) + End If + If Request("CveEvento") IsNot Nothing AndAlso IsNumeric(Request("CveEvento")) AndAlso Request("CveEvento").ToEntero > 0 Then @@ -355,6 +359,9 @@ Partial Class OI_PopUpAgenda End If End If End Sub + + + Private Sub Tarea() '1 CveTipoEvento = 1 @@ -684,6 +691,12 @@ Partial Class OI_PopUpAgenda CveUsuario = Request("CveUsuario").ToEntero End If + + Dim CveCompra As Integer = -1 + If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then + CveCompra = Request("CveCompra").ToEntero + End If + '------------------------------------------ 'Recorrro Grid para obtener el usuario PARA For Each RowPara As GridViewRow In GVUsuarios.Rows @@ -710,7 +723,7 @@ Partial Class OI_PopUpAgenda Alert("La Nueva Tarea se guardó correctamente.", TipoMensaje.MsgInformacion) End If ElseIf CveTipoEvento = 2 Then - If ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaInicio.ToDateTime, FechaFin.ToDateTime, CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor) Then + If ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaInicio.ToDateTime, FechaFin.ToDateTime, CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveCompra:=CveCompra) Then Alert("La Nueva Agenda se guardó correctamente.", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") End If ElseIf CveTipoEvento = 3 Then @@ -1260,13 +1273,13 @@ Partial Class OI_PopUpAgenda End Sub Private Sub CargaProveedor(CveProveedor As Integer) - 'Dim ObjClaves As New ClsCompProveedores - ' hacerlo con el global dt - 'If ObjClaves.GetProveedores(CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then - ' If ObjClaves.DtResultados.Rows.Count > 0 Then - ' LtlAgenda.Text = ObjClaves.CveProveedor & " - " & ObjClaves.NombreComercial - ' End If - 'End If + Dim ObjClaves As New ClsCompProveedores + + If ObjClaves.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then + If ObjClaves.DtResultados.Rows.Count > 0 Then + LtlAgenda.Text = ObjClaves.CveProveedor & " - " & ObjClaves.NombreComercial + End If + End If End Sub Private Sub CargaUsuario(CveUsuario As Integer) @@ -1290,6 +1303,16 @@ Partial Class OI_PopUpAgenda End If End Sub + Private Sub CargaCompra(CveCompra As Integer) + Dim objCompra As New ClsCompras + + If objCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = objCompra.DtResultados.Rows(0) + LtlAgenda.Text = $" Compra: {dr("SerieFolio").ToString}" + End If + objCompra.Dispose() + End Sub + #End Region End Class diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 26402db8a..70ca358a1 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -2534,7 +2534,7 @@ + AutoPostBack="true" OnSelectedIndexChanged="DdlTipoAsistencias_SelectedIndexChangedP"> diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index ce432f1d8..d0291a9fd 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -714,6 +714,33 @@ Partial Class RH_Personal #End Region + Public Property GlobalDTSubProyectosUsuariosB(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatus As Integer = -1) As DataTable + Get + Dim AppNombre As String = $"GlobalDTSubProyectosUsuarios-{CveEmpresa}" + HttpContext.Current.Application(AppNombre) = Nothing + If HttpContext.Current.Application(AppNombre) Is Nothing OrElse DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0 Then + Dim ObjSubProyectos As New ClsSubProyectos() + If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados + ObjSubProyectos.Dispose() + End If + Dim filtros As New List(Of String) + If CveProyecto <> -1 Then filtros.Add($"CveProyecto = {CveProyecto}") + If CveSubProyecto <> -1 Then filtros.Add($"CveSubProyecto = {CveSubProyecto}") + If CveUsuario <> -1 Then filtros.Add($"CveUsuario = {CveUsuario}") + If CveEstatus <> -1 Then filtros.Add($"CveEstatus = {CveEstatus}") + If filtros.Count > 0 Then + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows) + GlobalDTSubProyectosUsuariosB = Dv.ToTable + Dv.Dispose() + Else + GlobalDTSubProyectosUsuariosB = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) + End If + End Get + Set(ByVal value As DataTable) + Dim AppNombre As String = $"GlobalDTSubProyectosUsuarios-{CveEmpresa}" + HttpContext.Current.Application(AppNombre) = value + End Set + End Property Private Shared Function sendURL(ByVal URL As String, Optional Methodo As String = "POST", Optional Cookie As String = "", Optional maxTimeMilliseconds As Integer = 120000) As String Dim resultado As String = "" @@ -856,6 +883,7 @@ Partial Class RH_Personal 'Configuración Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then + Dim dt = GlobalDTSubProyectosUsuariosB(1360, -1, 172, -1, -1) If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then pnlSalarioIMSS.Visible = False End If @@ -6735,6 +6763,12 @@ Partial Class RH_Personal #End Region + Protected Sub DdlTipoAsistencias_SelectedIndexChangedP(sender As Object, e As EventArgs) + Dim ddl As DropDownList = DirectCast(sender, DropDownList) + If ddl.SelectedItem.Text = "Retardo" Then + TxtPorPago.Text = "87.5" + End If + End Sub Protected Sub DdlTipoAsistencias_SelectedIndexChanged(sender As Object, e As EventArgs) Dim ddl As DropDownList = DirectCast(sender, DropDownList) Dim gvrow As GridViewRow = DirectCast(ddl.NamingContainer, GridViewRow) diff --git a/Sistemas/Empresa2.aspx b/Sistemas/DefinicionEmpresa.aspx similarity index 99% rename from Sistemas/Empresa2.aspx rename to Sistemas/DefinicionEmpresa.aspx index 71875ef12..4255787c4 100644 --- a/Sistemas/Empresa2.aspx +++ b/Sistemas/DefinicionEmpresa.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Empresa2.aspx.vb" Inherits="Sistemas_Empresa2" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="DefinicionEmpresa.aspx.vb" Inherits="Sistemas_DefinicionEmpresa" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> diff --git a/Sistemas/Empresa2.aspx.vb b/Sistemas/DefinicionEmpresa.aspx.vb similarity index 99% rename from Sistemas/Empresa2.aspx.vb rename to Sistemas/DefinicionEmpresa.aspx.vb index a326f9178..1ec831d97 100644 --- a/Sistemas/Empresa2.aspx.vb +++ b/Sistemas/DefinicionEmpresa.aspx.vb @@ -9,7 +9,7 @@ Imports Microsoft.Reporting.WebForms Imports Microsoft.Owin.Security.Provider Imports log4net.Util -Partial Class Sistemas_Empresa2 +Partial Class Sistemas_DefinicionEmpresa Inherits ClsPaginas #Region " PROPIEDADES " @@ -502,8 +502,8 @@ Partial Class Sistemas_Empresa2 TxtPlantillaVenta.Text = .PlantillaMailVenta TxtAsunto.Text = .AsuntoPlantillaMailVenta - TxtPlantillaCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion - TxtAsuntoCotizacion.Text = .PlantillaMailVentaCotizacion + TxtPlantillaCotizacion.Text = .PlantillaMailVentaCotizacion + TxtAsuntoCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion 'NUEVOS TxtAreaGeografica.Text = .AreaGeografica @@ -914,7 +914,7 @@ Partial Class Sistemas_Empresa2 If TextoError = "" Then ObjEmpresas.Commit() If ObjContPAQ IsNot Nothing Then ObjContPAQ.Commit() - Alert(TextoOK, TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Empresa2.aspx"";") + Alert(TextoOK, TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/DefinicionEmpresa.aspx"";") Session("FileUpload") = "" CargaDatos() UpDatos.Update() diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index c52366fff..fbd6f8e67 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4853,11 +4853,17 @@ Agregar --%> -
-
+ +
+ + Agendar
+ + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index acbd6665c..e07fabcd9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2928,6 +2928,7 @@ Partial Class Ventas ChkEnviarFactura.Checked = False ChkEnviarFactura.Visible = True LblEnviarMail.Visible = True + End If 'Modalidad Contrato @@ -3180,6 +3181,8 @@ Partial Class Ventas ChkEnviarFactura.Checked = False ChkEnviarFactura.Visible = True LblEnviarMail.Visible = True + + If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente Else ChkEnviarFactura.Checked = EnviarCorreoCliente ChkEnviarFactura.Visible = True @@ -10275,7 +10278,7 @@ Partial Class Ventas Try 'MANDA CORREO Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port) - Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False) + Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False) Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST)) Hilo.Start() Catch ex As Exception @@ -16524,7 +16527,7 @@ Partial Class Ventas Try 'MANDA CORREO Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port) - Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False) + Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False) Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST)) Hilo.Start() Catch ex As Exception @@ -17289,6 +17292,7 @@ Partial Class Ventas ChkEnviarFactura.Visible = True LblEnviarMail.Visible = True + If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente End If If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "PA", "Pd2") AndAlso (ReceptorRFC = "XAXX010101000" Or LblRFC.Text = "XAXX010101000") Then