diff --git a/App_Code/BundleConfig.vb b/App_Code/BundleConfig.vb index e3da720f1..4331cdfa4 100644 --- a/App_Code/BundleConfig.vb +++ b/App_Code/BundleConfig.vb @@ -33,6 +33,28 @@ Public Class BundleConfig "~/Scripts/exporting.js" )) + bundles.Add(New ScriptBundle("~/Metronic/assets/global/scripts/JSNoCustom").Include( + "~/Metronic/assets/global/plugins/bootstrap/js/bootstrap.min.js", + "~/Metronic/assets/global/plugins/bootstrap-hover-dropdown/bootstrap-hover-dropdown.min.js", + "~/Metronic/assets/global/plugins/jquery-slimscroll/jquery.slimscroll.min.js", + "~/Metronic/assets/global/plugins/jquery.blockui.min.js", + "~/Metronic/assets/global/plugins/jquery.cokie.min.js", + "~/Metronic/assets/global/plugins/bootstrap-switch/js/bootstrap-switch.min.js", + "~/Metronic/assets/global/plugins/select2/select2.full.min.js", + "~/Metronic/assets/global/plugins/select2/i18n/es.js", + "~/Metronic/assets/global/plugins/bootstrap-confirmation/bootstrap-confirmation.min.js", + "~/Metronic/assets/global/plugins/bootbox/bootbox.min.js", + "~/Metronic/assets/global/plugins/bootstrap-toastr/toastr.min.js", + "~/Metronic/assets/global/scripts/metronic.js", + "~/Metronic/assets/admin/layout/scripts/layout.js", + "~/Metronic/assets/admin/layout/scripts/quick-sidebar.js", + "~/Metronic/assets/admin/layout/scripts/demo.js", + "~/Metronic/assets/admin/pages/scripts/table-advanced.js", + "~/Metronic/assets/admin/pages/scripts/ui-alert-dialog-api.js", + "~/Metronic/assets/global/plugins/icheck/icheck.min.js", + "~/Metronic/assets/global/plugins/dropzone/dropzone.js", + "~/Metronic/assets/layouts/layout3/scripts/jquery.datetimepicker.full.js" + )) bundles.Add(New ScriptBundle("~/Metronic/assets/global/scripts/JS").Include( "~/Metronic/assets/global/plugins/bootstrap/js/bootstrap.min.js", "~/Metronic/assets/global/plugins/bootstrap-hover-dropdown/bootstrap-hover-dropdown.min.js", diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 2d74b5f69..e451e5b44 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -797,6 +797,21 @@ Public Class ClsAcumuladores Return Retorno End Function + Public Function EliminarGarantiasDetalle(CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + SqlDataAdapter("PA_Acum_GarantiasDetallePolizaRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error a eliminar de garantia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + #End Region @@ -863,6 +878,21 @@ Public Class ClsAcumuladores End Try Return Retorno End Function + + Public Function EliminarPolizaVirtual(CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + SqlDataAdapter("PA_Vta_PolizaVirtualRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un al eliminar poliza virtual. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function #End Region Public Function DistribuidorMovtosAdd(CveCliente As Integer, Cantidad As Integer, CveTamaño As Integer, CveConcepto As Integer, CveVenta As Integer, CveUsuario As Integer, diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e0cc7a960..74be2b92d 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -3061,6 +3061,24 @@ Public Class ClsInventarios Return Retorno End Function + Public Function GetMovimientosDevoluciones(CveVenta As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentaDetalleAlmacenDevolucion") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener datos de devolucion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function Public Function GetDevolucionRemisionesFacturadas(CveVenta As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_DevolucionRemisionesFacturadas") diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 0cbe50889..bcecb847d 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -967,13 +967,31 @@ Public Class ClsOC Return Retorno End Function - Public Function UpdateOrdenCompraDetalleAjuste(CveOrdenCompra As Integer, CveOrdenCompraDetalle As Integer, Diferencia As Double) As Boolean + Public Function UpdateOrdenCompraDetalleAjuste(CveOrdenCompra As Integer, CveOrdenCompraDetalle As Integer, Diferencia As Double, CveUsuarioModifico As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraDetalleAjusteUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle .Add("@Diferencia", SqlDbType.Float).Value = Diferencia + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la Orden de Compra Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function UpdateOrdenCompraMoneda(CveOrdenCompra As Integer, CveEmpresa As Integer, CveMoneda As Integer, CveUsuarioModifico As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_OrdenesCompraMonedaUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index a6056e0b2..d73f1af56 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -238,6 +238,23 @@ Public Class ClsOIEventos Return Retorno End Function + Public Function GetEventosVinculos(CveEvento As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OI_EventosVinculosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEvento", SqlDbType.Int).Value = CveEvento + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Evento Usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function UpUsuarioseventosVisto(CveEvento As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("UPDATE OI_EventosUsuarios SET Visto=1 WHERE CveEvento =@CveEvento AND CveUsuario=@CveUsuario", CommandType.Text) @@ -296,7 +313,11 @@ Public Class ClsOIEventos End Function Public Function AddOI_Eventos2(cveTipoEvento As OITipoEventos, asunto As String, descripcion As String, prioridad As Int32, cveUsuarioDe As Int32, cveUsuarioPara As Int32, fechaInicio As String, fechaFin As String, cveRevision As Int32, archivo As String, Lmiembros As List(Of Integer), chkList As List(Of String), - cveUsuarioIng As Int32, cveEmpresa As Int32, Optional CveEventoPadre As Integer = -1, Optional Acuerdos As String = Nothing, Optional CveAgendaTipo As Integer = -1) As Boolean + cveUsuarioIng As Int32, cveEmpresa As Int32, Optional CveEventoPadre As Integer = -1, Optional Acuerdos As String = Nothing, Optional CveAgendaTipo As Integer = -1, + Optional CveActivoFijo As Integer = -1, Optional CveIE As Integer = -1, Optional CveProspecto As Integer = -1, Optional CveCliente As Integer = -1, + Optional CveOS As Integer = -1, Optional CveOC As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveProveedor As Integer = -1, + Optional CveCompra As Integer = -1, Optional CveVenta As Integer = -1, Optional CveContrato As Integer = -1, Optional CveSubProyecto As Integer = -1, + Optional CveMovimientoAlmacen As Integer = -1) As Boolean Dim retorno As Boolean = False Dim xmlMiembros As System.Xml.Linq.XDocument = Nothing @@ -339,6 +360,22 @@ Public Class ClsOIEventos .Add("@CveEventoPadre", SqlDbType.Int).Value = CveEventoPadre .Add("@Acuerdos", SqlDbType.VarChar).Value = If(Acuerdos Is Nothing, DBNull.Value, DirectCast(Acuerdos, Object)) .Add("@CveAgendaTipo", SqlDbType.Int).Value = CveAgendaTipo + + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@CveIE", SqlDbType.Int).Value = CveIE + .Add("@CveProspecto", SqlDbType.Int).Value = CveProspecto + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveOS", SqlDbType.Int).Value = CveOS + .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen + + '.Add("@mailPara", SqlDbType.VarChar).Direction = ParameterDirection.Output '.Add("@mailBody", SqlDbType.Xml).Direction = ParameterDirection.Output End With diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 0c2e6a30c..8a6e569be 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -70,7 +70,11 @@ Public Class ClsPaginas Get Try 'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario) - UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario) + If Context.Session("UsuarioSIG") Is Nothing Then + Usuario.CerrarSession() + Else + UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario) + End If Catch ex As Exception Usuario.CerrarSession() Return Nothing @@ -4142,7 +4146,7 @@ Public Class ClsPaginas PaginaDict.Add("/CRM/PopUpBuscarAcercamiento.aspx".ToUpper(), 1312) PaginaDict.Add("/CRM/RepAcercamientosProcesos.aspx".ToUpper(), 1313) PaginaDict.Add("/CRM/RepAcercamientosRechazos.aspx".ToUpper(), 1314) - PaginaDict.Add("/CRM/RepAcercamientosProcesosDetalle.aspx".ToUpper(), -1) + PaginaDict.Add("/CRM/RepAcercamientosProcesosDetalle.aspx".ToUpper(), 758) PaginaDict.Add("/CRM/CatMetas.aspx".ToUpper(), 684) #End Region #Region "CxC" @@ -6781,7 +6785,7 @@ Public Class ClsPaginas Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(Vta.DtNCVinculadas IsNot Nothing, Vta.DtNCVinculadas, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte lrds.Add(rds5) - If UsuarioActual.CveEmpresa = 141 AndAlso RutaFormato.Contains("Factura") Then + If UsuarioActual.CveEmpresa = 141 AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then params.Add(New ReportParameter("Kilometraje", Vta.Kilometraje.ToString)) End If 'Imprime los parametros diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index a9e28e571..5d07b8c90 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4496,6 +4496,25 @@ Public Class ClsVentas Return Retorno End Function + + Public Function EliminarUsados(CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_VentasUsadosRemove", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar los usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function Public Function GetVentasUsados(CveVenta As Integer, CveSubProyecto As Integer, Fecha As DateTime, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index bb508bd69..c0867da74 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3281,7 +3281,7 @@ Namespace Modelos End If Catch ex As Exception - GuardaLog(ex.ToString()) + GuardaLog("Model.Proceso.PreP-" & ex.ToString()) ErrorPrepoliza = True End Try Return ErrorPrepoliza @@ -4340,13 +4340,14 @@ Namespace Modelos End If 'CUANDO LA CANCELACION ESTA EN PROCESO NO DEBE REALIZAR NADA DE ESTE PROCESO - If Not EsRefacturacion AndAlso (CveEstatus > 0 AndAlso CveEstatus <> 20) AndAlso CveEstatusRefacturacion = 0 Then + If Not ErrorCancelar AndAlso Not EsRefacturacion AndAlso (CveEstatus > 0 AndAlso CveEstatus <> 20) AndAlso CveEstatusRefacturacion = 0 Then 'DEVOLUCION DE ALMACEN If Not ErrorCancelar AndAlso TieneAlmacen Then Dim TieneSalida As Boolean = False Dim DtInventario As DataTable = Nothing - Dim DtMovimientos As DataTable = Nothing + Dim DtSalidas As DataTable = Nothing + Dim DtDevoluciones As DataTable = Nothing Dim DtExistencias As DataTable = Nothing Dim DtRemisionesFacturadas As DataTable = Nothing @@ -4375,14 +4376,16 @@ Namespace Modelos ErrorCancelar = True End If - If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then - DtInventario = ObjInventario.DtResultados.Copy() - DtMovimientos = DtInventario.FiltraParametros($"CvePS IS NULL AND {Filtro}") - DtExistencias = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {Filtro} AND CveTipoPS = 2") - TieneSalida = DtExistencias.Rows.Count > 0 - Else - ErrorCancelar = True - MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." + If Not ErrorCancelar Then + If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then + DtInventario = ObjInventario.DtResultados.Copy() + DtSalidas = DtInventario.FiltraParametros($"CvePS IS NULL AND {Filtro}") + DtExistencias = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {Filtro} AND CveTipoPS = 2") + TieneSalida = DtExistencias.Rows.Count > 0 + Else + ErrorCancelar = True + MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." + End If End If End If @@ -4390,38 +4393,42 @@ Namespace Modelos If Not ErrorCancelar AndAlso TieneSalida Then If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen Then - - For Each RowMovimiento As DataRow In DtMovimientos.Rows + '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 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() Case 40 CveConceptoDevolucion = 41 'DEVOLUCIÓN DEL CLIENTE DIRECTA - 'SI TIENE REMISIONES RELACIONADAS - If DtRemisionesFacturadas.Rows.Count > 0 Then - Dim RowRemision As DataRow = DtExistencias.FiltroPrimero($"CveMovimiento = {RowMovimiento("CveMovimiento").ToString()}") - Dim CveRemision As Integer = RowRemision("CveRemision").ToString().ToEntero() + CveAlmacenDevolucion = RowMovimiento("CveAlmacen").ToString().ToEntero() + ''SI TIENE REMISIONES RELACIONADAS + 'If DtRemisionesFacturadas.Rows.Count > 0 Then + ' Dim RowRemision As DataRow = DtExistencias.FiltroPrimero($"CveMovimiento = {RowMovimiento("CveMovimiento").ToString()}") - Dim CancelarRemision As Boolean = (ListaRemisionesCancelar IsNot Nothing) AndAlso (ListaRemisionesCancelar.Any(Function(CveRemisionCancelar) CveRemisionCancelar = CveRemision)) - 'SI LA REMISION SE VA A CANCELAR DEBE REGRESAR AL ALMACEN GENERAL - If CancelarRemision Then - CveAlmacenDevolucion = RowRemision("CveAlmacenDevolucion").ToString().ToEntero() - Else - CveAlmacenDevolucion = RowMovimiento("CveAlmacen").ToString().ToEntero() - End If - Else - CveAlmacenDevolucion = RowMovimiento("CveAlmacen").ToString().ToEntero() - End If + ' Dim CveRemision As Integer = RowRemision("CveRemision").ToString().ToEntero() + ' Dim CancelarRemision As Boolean = (ListaRemisionesCancelar IsNot Nothing) AndAlso (ListaRemisionesCancelar.Any(Function(CveRemisionCancelar) CveRemisionCancelar = CveRemision)) + + ' 'SI LA REMISION SE VA A CANCELAR DEBE REGRESAR AL ALMACEN GENERAL + ' If CancelarRemision Then + ' CveAlmacenDevolucion = RowRemision("CveAlmacenDevolucion").ToString().ToEntero() + ' Else + ' CveAlmacenDevolucion = RowMovimiento("CveAlmacen").ToString().ToEntero() + ' End If + + 'Else + ' CveAlmacenDevolucion = RowMovimiento("CveAlmacen").ToString().ToEntero() + 'End If End Select - Dim CveMovimientoDevolucion As Integer = 0 - Dim Folio As Integer = 0 - - 'VERIFICAR SI YA TIENE UNA DEVOLUCION + '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) @@ -4518,30 +4525,15 @@ Namespace Modelos End If End If End If - 'Else - ' 'UTILIZA LA DEVOLUCION YA REALIZADA - ' Dim CveConceptoDevolucion As Integer = 18 'DEVOLUCION DEL CLIENTE - ' If UsuarioActual.Empresa.Funcionalidad(575) = "1" Then - ' CveConceptoDevolucion = 41 'DEVOLUCIÓN DEL CLIENTE DIRECTA - ' End If - - ' If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then - ' CveMovimientoDevolucion = ObjInventario.DtResultados.FiltroPrimeroValor("CveMovimiento", $"CvePS IS NULL AND CveConcepto = {CveConceptoDevolucion}").ToEntero() - ' Else - ' ErrorCancelar = True - ' MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." - ' End If End If '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 CveConceptoDevolucion = 18 Then - If Not ErrorCancelar 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" - End If + If Not ErrorCancelar AndAlso CveConceptoDevolucion = 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" End If End If @@ -4556,12 +4548,45 @@ Namespace Modelos Next + 'VERIFICA LOS MOVIMIENTOS DE DEVOLUCION YA GENERADOS QUE TENGAN EXISTENCIA EN (ENTREGA POR ADELANTADO) + If Not ErrorCancelar Then + If ObjInventario.GetMovimientosDevoluciones(CveVenta, UsuarioActual.CveEmpresa) Then + DtDevoluciones = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen = 10") + Else + ErrorCancelar = True + MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." + End If + End If + + 'SI EXISTEN HAY EXISTENCIA EN (ENTREGA POR ADELANTADO) SE TIENE QUE REGRESAR AL ALMACEN GENERAL + If Not ErrorCancelar AndAlso ListaRemisionesCancelar IsNot Nothing AndAlso ListaRemisionesCancelar.Count > 0 Then + For Each CveRemision As Integer In ListaRemisionesCancelar + For Each RowDevolucion As DataRow In DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}", DistinctColumns:={"CveRemision", "CveAlmacen", "CveAlmacenDestino"}).Rows + + Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}") + + CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero() + CveAlmacenDevolucion = RowDevolucion("CveAlmacenDestino").ToString().ToEntero() + + 'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN GENERAL + If Not CancelarMovimientosRemision(CveRemision, CveAlmacen, CveAlmacenDevolucion, DtDevRemision, ObjVentas, ObjInventario) Then + ErrorCancelar = True + MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión." + Exit For + End If + + DtDevRemision.Dispose() + Next + Next + End If + 'REALIZA LA DEVOLUCION AL ALMACEN VIRTUAL If Not GeneraMovimientosVirtuales(CveVenta, ObjInventario) Then ErrorCancelar = True MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." End If + 'VERIFICAR MOVIMIENTOS DE APARTADOS If Not ErrorCancelar Then If Not GeneraMovimientosApartados(ObjInventario) Then ErrorCancelar = True @@ -4957,6 +4982,69 @@ Namespace Modelos Return Not ErrorCancelar End Function + Private Function CancelarMovimientosRemision(CveRemision As Integer, CveAlmacen As Integer, CveAlmacenDestino As Integer, DtMovDetalle As DataTable, ByRef ObjVentas As ClsVentas, ByRef ObjInventario As ClsInventarios) As Boolean + Dim ErrorCancelar As Boolean = False + + Dim CveMovimientoSalidaDevRem As Integer = 0 + Dim FolioMovimientoSalidaDevRem As Integer = 0 + + Dim CveMovimientoEntradaDevRem As Integer = 0 + Dim FolioMovimientoEntradaDevRem As Integer = 0 + + 'SALIDA DE (ENTREGA POR ADELANTADO) + CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacen, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenDestino) + FolioMovimientoSalidaDevRem = ObjInventario.Folio + + 'ENTRADA A (ALMACEN GENERAL) + CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDestino) + FolioMovimientoEntradaDevRem = ObjInventario.Folio + + If Not (CveMovimientoSalidaDevRem > 0 And CveMovimientoEntradaDevRem > 0) Then + ErrorCancelar = True + End If + + 'SALIDA DE (ENTREGA POR ADELANTADO) + If Not ErrorCancelar Then + For Each DrRem As DataRow In DtMovDetalle.FiltraParametros($"CveRemision = {CveRemision}").Rows + Dim CveVentaDetalleRem = DrRem("CveVentaDetalleRemision").ToString.ToEntero + Dim CantidadRem = DrRem("Cantidad").ToString.ToDecimal + + If Not CveVentaDetalleRem > 0 Then + ErrorCancelar = True + Exit For + End If + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, DrRem("CveActivoFijo").ToString.ToEntero, -1, DrRem("SerieLote").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=DrRem("Lote").ToString, Batch:=DrRem("Batch").ToString) Then + ErrorCancelar = True + Exit For + End If + + If ErrorCancelar Then + Exit For + End If + Next + End If + + 'ENTRADA A (ALMACEN GENERAL) + If Not ErrorCancelar Then + If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDevRem, UsuarioActual.CveEmpresa) Then + For Each Dr As DataRow In ObjInventario.DtResultados.Rows + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString) Then + ErrorCancelar = True + Exit For + End If + Next + End If + End If + + + If Not ObjVentas.UpdateVentasDevolucionAlmacen(2, CveRemision) Then + ErrorCancelar = True + End If + + Return Not ErrorCancelar + End Function + Private Function GeneraMovimientosApartados(ByRef ObjInventario As ClsInventarios) As Boolean Dim ErrorCancelar As Boolean = False If Not ErrorCancelar Then diff --git a/CRM/CatEtapasProceso.aspx b/CRM/CatEtapasProceso.aspx index 27ce1e6dd..8dc6acbfb 100644 --- a/CRM/CatEtapasProceso.aspx +++ b/CRM/CatEtapasProceso.aspx @@ -23,8 +23,8 @@ - - + + @@ -130,22 +130,24 @@
- + + +
- - + + <%-- - + --%>
-
+
diff --git a/CRM/CatEtapasProceso.aspx.cs b/CRM/CatEtapasProceso.aspx.cs index 87b190204..088df61d5 100644 --- a/CRM/CatEtapasProceso.aspx.cs +++ b/CRM/CatEtapasProceso.aspx.cs @@ -87,7 +87,18 @@ public partial class CRM_CatEtapasProceso : ClsPaginas ViewState["CveTipoEtapaSeleccionada"] = value; } } + private DataTable DTEtapas + { + get + { + return (DataTable)ViewState["DTEtapas"]; + } + set + { + ViewState["DTEtapas"] = value; + } + } #endregion protected void Page_Load(object sender, EventArgs e) @@ -96,6 +107,7 @@ public partial class CRM_CatEtapasProceso : ClsPaginas { CveTipoProcesoSeleccionado = -1; CveTipoEtapaSeleccionada = -1; + cargaEtapas(); CargaTiposProceso(); CargaDatos(-1); } @@ -164,6 +176,23 @@ public partial class CRM_CatEtapasProceso : ClsPaginas UPFiltros.Update(); } + + protected void cargaEtapas() + { + DataTable Etapas = new DataTable(); + + Etapas.Columns.Add("CveTipoEtapa",typeof(int)); + Etapas.Columns.Add("TipoEtapa", typeof(string)); + + Etapas.Rows.Add(1,"Inicial"); + Etapas.Rows.Add(2, "Proceso"); + Etapas.Rows.Add(3, "Terminado"); + Etapas.Rows.Add(4, "Cancelado"); + + DTEtapas = Etapas; + DdlTipoEtapa.DataSource = Etapas; + DdlTipoEtapa.DataBind(); + } #endregion #region "ACCIONES" @@ -172,6 +201,7 @@ public partial class CRM_CatEtapasProceso : ClsPaginas EsEditar = 0; limpiarCamposModal(); DivOrden.Visible = false; + bloquearEtapasAnteriores(-1); DdlTipoProceso.SelectedValueExist(CveTipoProcesoSeleccionado); DdlTipoEtapa.SelectedValueExist(CveTipoEtapaSeleccionada); @@ -189,6 +219,7 @@ public partial class CRM_CatEtapasProceso : ClsPaginas GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + bloquearEtapasAnteriores(GvRow.DataKey("CveTipoEtapa").ToEntero()); CveEtapaProceso = GvRow.DataKey("CveEtapaProceso").ToEntero(); DdlTipoProceso.SelectedValueExist(GvRow.DataKey("CveTipoProceso")); DdlTipoEtapa.SelectedValueExist(GvRow.DataKey("CveTipoEtapa")); @@ -206,6 +237,28 @@ public partial class CRM_CatEtapasProceso : ClsPaginas this.RegistraScript("$('#DivModal').modal();"); } + private void bloquearEtapasAnteriores(int CveTipoEtapa) + { + DataTable EtapasAux = DTEtapas.Copy(); + int indice = 0; + for(int i = 1;i < CveTipoEtapa; i++) + { + DataRow TipoEtapaRow = EtapasAux.Rows[indice]; + int CveTipoEtapaAux = TipoEtapaRow["CveTipoEtapa"].ToEntero(); + if(CveTipoEtapaAux == 2) + { + indice++; + }else + { + EtapasAux.Rows.Remove(TipoEtapaRow); + } + } + EtapasAux.AcceptChanges(); + + DdlTipoEtapa.DataSource = EtapasAux; + DdlTipoEtapa.DataBind(); + } + private bool validarInicialTerminadoCancelado(int CveTipoEtapa) { if (CveTipoEtapa == 2) @@ -230,10 +283,7 @@ public partial class CRM_CatEtapasProceso : ClsPaginas int Orden = TmpDT.FiltraParametros(String.Format("CveTipoProceso = {0} AND CveEstatus = 1", CveTipoProceso)).Rows.Count + 1; Boolean Estatus = ChkEstatus.Checked; - int CveUsuarioIng = UsuarioActual.CveUsuario; - if (validarInicialTerminadoCancelado(CveTipoEtapa)) - { if (EsEditar == 0) { if (ObjCRM.AddEtapaProceso(EtapaProceso, Descripcion, CveTipoEtapa, Orden, CveTipoProceso, UsuarioActual.CveEmpresa, CveUsuarioIng)) @@ -250,10 +300,12 @@ public partial class CRM_CatEtapasProceso : ClsPaginas Alert("La Etapa fue actualizada correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); } } - }else - { - Alert(String.Format("No se pueden tener 2 etapas de tipo {0}",DdlTipoEtapa.SelectedItem),ModExtensiones.TipoMensaje.MsgAdvertencia); - } + //if (validarInicialTerminadoCancelado(CveTipoEtapa)) + //{ + //}else + //{ + // Alert(String.Format("No se pueden tener 2 etapas de tipo {0}",DdlTipoEtapa.SelectedItem),ModExtensiones.TipoMensaje.MsgAdvertencia); + //} // PRECARGAMOS LA SIGUIENTE ETAPA A AGREGAR CON LOS MISMA DATOS DE LA ETAPA QUE SE INSERTO CveTipoProcesoSeleccionado = CveTipoProceso; @@ -366,4 +418,47 @@ public partial class CRM_CatEtapasProceso : ClsPaginas ImprimirPDF("Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc", TmpDT, param, "Report Cat Etapas Proceso", formato); } + + protected void DdlTipoProceso_Change(Object sender,EventArgs e) + { + DataTable EtapasIterable = DTEtapas.Copy(); + DataTable EtapasAux = DTEtapas.Copy(); + int indice = 0; + + foreach (DataRow EtapaRow in EtapasIterable.Rows) + { + int CveTipoEtapa = EtapaRow["CveTipoEtapa"].ToEntero(); + if (CveTipoEtapa != 2) + { + int CantidadEtapas = TmpDT.FiltraParametros(String.Format("CveTipoProceso = {0} AND CveTipoEtapa = {1}",DdlTipoProceso.SelectedValue,EtapaRow["CveTipoEtapa"])).Rows.Count; + if(CantidadEtapas > 0) + { + EtapasAux.Rows.RemoveAt(indice); + } + }else + { + indice++; + } + + } + + //for (int i = 1; i < CveTipoEtapa; i++) + //{ + // DataRow TipoEtapaRow = EtapasAux.Rows[indice]; + // int CveTipoEtapaAux = TipoEtapaRow["CveTipoEtapa"].ToEntero(); + // if (CveTipoEtapaAux == 2) + // { + // indice++; + // } + // else + // { + // EtapasAux.Rows.Remove(TipoEtapaRow); + // } + //} + EtapasAux.AcceptChanges(); + + DdlTipoEtapa.DataSource = EtapasAux; + DdlTipoEtapa.DataBind(); + UPModal.Update(); + } } \ No newline at end of file diff --git a/CRM/CatMediosCaptacion.aspx b/CRM/CatMediosCaptacion.aspx index 753505485..5e733e2eb 100644 --- a/CRM/CatMediosCaptacion.aspx +++ b/CRM/CatMediosCaptacion.aspx @@ -95,6 +95,8 @@

+ +
diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx index 778b5a390..a0c86e7ed 100644 --- a/CRM/EmpresaCRM.aspx +++ b/CRM/EmpresaCRM.aspx @@ -72,6 +72,7 @@
+ diff --git a/CRM/RepAcercamientosProcesos.aspx b/CRM/RepAcercamientosProcesos.aspx index 86033c53b..c88c06c77 100644 --- a/CRM/RepAcercamientosProcesos.aspx +++ b/CRM/RepAcercamientosProcesos.aspx @@ -16,11 +16,13 @@ .form-group.form-md-line-input .form-control { background-color: #fff; - } - .GVRep tr td a{ - display:block; - text-align:center; } + + .GVRep tr td a { + display: block; + text-align: center; + } + #chartdiv { width: 100%; height: 500px; @@ -31,6 +33,8 @@ Reporte de Procesos Acercamientos + +
  • @@ -39,97 +43,101 @@ - - -
    +
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - Consultar -
    -
    -
    - -
    -
    - - - - - - - - -
    -
    - -
    -
    - -
    - - - - +
    +
    +
    +
    + + +
    - - -
    -
    -
    -
    - -
    - - - - +
    +
    + + +
    +
    +
    +
    + + +
    +
    +
    +
    + + +
    - -
    +
    +
    +
    + + + + + + + + +
    +
    + +
    +
    + +
    + + + + +
    + + +
    +
    +
    +
    + +
    + + + + +
    + + +
    + +
    +
    +
    +
    +
    +
    + Consultar +
    @@ -185,13 +193,14 @@
    - + - + + <%----%> --%> + @@ -817,6 +833,23 @@ //e.Row.Attributes.Add("data-sucursal", CveRol); } + //TxtAsunto TxtDescripcion TxtIsnewtarea + + function loadTxtAsunto() { + if ($('input.TxtIsnewtarea').val() == "1") { + let input = $('input.TxtAsunto:not(.CEvent)') + let TxtAsunto_Onchange = function () { let valor = $('input.TxtAsunto').val(); /*console.log(valor);*/ $('.TxtDescripcion').val(valor); } + input.bind({ + copy: TxtAsunto_Onchange + , paste: TxtAsunto_Onchange + , cut: TxtAsunto_Onchange + , keydown: function (event) { if (event.which == 13) { event.preventDefault(); } TxtAsunto_Onchange(); } + , keyup: function (event) { if (event.which == 13) { event.preventDefault(); } TxtAsunto_Onchange(); } + }); + input.addClass('CEvent'); + } + } + function loadeventos() { let input = $('input.TxtUsuario:not(.ConEvento)') @@ -936,6 +969,7 @@ CargaPickers(); setchecklistitulo(); barraavance(); + loadTxtAsunto(); //$('.GVcheklist input[type="checkbox"]:checked').addClass('icheck setclass'); }); $(document).ready(function () { @@ -945,6 +979,7 @@ CargaPickers(); setchecklistitulo(); barraavance(); + loadTxtAsunto(); //$('.GVUsuarios input[type="checkbox"]:not(.setclass)').addClass('icheck setclass'); }); diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index 4d5a68186..65ac64922 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -31,6 +31,7 @@ public partial class OI_TareaDetalle : ClsPaginas public int RCveEvento { get { return ViewState["RCveEvento"] != null ? ViewState["RCveEvento"].ToString().ToEntero() : 0; } set { ViewState["RCveEvento"] = value; } } public int Folio { get { return ViewState["Folio"] != null ? ViewState["Folio"].ToString().ToEntero() : 0; } set { ViewState["Folio"] = value; } } public decimal Avance { get { return ViewState["Avance"] != null ? ViewState["Avance"].ToString().ToEntero() : 0; } set { ViewState["Avance"] = value; } } + public int CveEventoPadre { get { return ViewState["CveEventoPadre"].ToString().ToEntero(); } set { ViewState["CveEventoPadre"] = value; } } public int CveUsuarioPara { get { return ViewState["CveUsuarioPara"].ToString().ToEntero(); } set { ViewState["CveUsuarioPara"] = value; } } public int CveUsuarioDe { get { return ViewState["CveUsuarioDe"].ToString().ToEntero(); } set { ViewState["CveUsuarioDe"] = value; } } public List LCveUsuarioCCP { get { if (ViewState["LCveUsuarioCCP"] == null) { ViewState["LCveUsuarioCCP"] = new List(); } return (List)ViewState["LCveUsuarioCCP"]; } set { ViewState["LCveUsuarioCCP"] = value; } } @@ -50,6 +51,8 @@ public partial class OI_TareaDetalle : ClsPaginas if (!IsPostBack) { + CveEventoPadre = 0; + portletvinculos.Visible = false; LnkAgregarCheckListVisible = true; LnkUpFileVisible = false; LnkUpUsuariosVisible = false; @@ -107,6 +110,7 @@ public partial class OI_TareaDetalle : ClsPaginas } else { + TxtIsnewtarea.Text = "1"; portletActividades.Visible = false; LnkcambiarEstatus.Visible = false; LnkAgregarTema.Visible = false; @@ -170,6 +174,11 @@ public partial class OI_TareaDetalle : ClsPaginas TxtDescripcion.Enabled = Permisos.EdicionGeneral; LnkUpFile.Visible = Permisos.EdicionGeneral && LnkUpFileVisible; LnkUpUsuarios.Visible = Permisos.EdicionGeneral && LnkUpUsuariosVisible; + DdlPrioridad.Enabled = Permisos.EdicionGeneral; + DdlTema.Enabled = Permisos.EdicionGeneral; + DdlPrioridad.Enabled = Permisos.EdicionGeneral; + txtFechaF.Enabled = Permisos.EdicionGeneral; + txtFechaI.Enabled = Permisos.EdicionGeneral; #endregion #region Permisos.Bitacora LnkAgregarActividad.Visible = Permisos.Bitacora; @@ -181,7 +190,7 @@ public partial class OI_TareaDetalle : ClsPaginas #region Permisos.Reasignar LnkReasignar.Visible = Permisos.Reasignar; #endregion - List itemremove= new List(); + List itemremove = new List(); foreach (ListItem item in DDlEstatus.Items) { switch (item.Value.ToEntero()) @@ -201,15 +210,15 @@ public partial class OI_TareaDetalle : ClsPaginas { itemremove.Add(item); //DDlEstatus.Items.Remove(item); - } + } break; } } - foreach (ListItem item in itemremove) + foreach (ListItem item in itemremove) { DDlEstatus.Items.Remove(item); } - LnkcambiarEstatus.Visible = LnkcambiarEstatus.Visible && (Permisos.Estatus1_2_3 || Permisos.Estatus4_5); + LnkcambiarEstatus.Visible = LnkcambiarEstatus.Visible && (Permisos.Estatus1_2_3 || Permisos.Estatus4_5); UpAcciones.Update(); UpTitulo.Update(); @@ -343,7 +352,17 @@ public partial class OI_TareaDetalle : ClsPaginas } LtlPara.Text = StrPara.ToString(); LtlDeUser.Text = StrDeUser.ToString(); - LtlCCPara.Text = StrCCPara.ToString(); + int longitud = StrCCPara.ToString().Length; + if (longitud > 0) + { + LtlCCPara.Text = StrCCPara.ToString().Substring(0, longitud - 1); + + } + else + { + LtlCCPara.Text = ""; + + } } @@ -371,6 +390,8 @@ public partial class OI_TareaDetalle : ClsPaginas txtFechaF.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaFin"]); DdlTema.SelectedValueExist(drow["CveRevision"].ToString()); DdlEventoEstatus.SelectedValueExist(drow["CveEventoEstatus"].ToString()); + lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text; + DDlEstatus.SelectedValueExist(drow["CveEventoEstatus"].ToString()); HypArchivo.Text = string.Format("{0}
    ", drow["Archivo"].ToString()); HypArchivo.NavigateUrl = string.Format("~/OI/TareaDetalle.aspx?Archivo={0}&filename={1}", ModExtensiones.Encripta(string.Format("OIFiles\\{0}\\{1}", Folio, drow["Archivo"])), ModExtensiones.Encripta(drow["Archivo"].ToString())); @@ -383,11 +404,83 @@ public partial class OI_TareaDetalle : ClsPaginas CveUsuarioPara = drow["CveUsuarioPara"].ToString().ToEntero(); TxtAvance.Text = string.Format("{0:##0}", drow["Avance"]); TxtUsuarioreg.Text = string.Format("{0}", drow["NombreRegistro"]); - TxtFechaIng.Text = string.Format("{0:dd/MM/yyyy}", drow["FechaIng"]); + TxtFechaIng.Text = string.Format("{0:dd/MM/yyyy HH}:{0:mm}", drow["FechaIng"]); //OIE.[CveEvento], OIE.[CveTipoEvento], OIE.[Folio], OIE.[Asunto], OIE.[Descripcion], OIE.[Prioridad], OIE.[CveUsuarioDe], OIE.[CveUsuarioPara], //OIE.[CveEventoEstatus], OIE.[FechaInicio], OIE.[FechaFin], OIE.[FechaRealTermino], OIE.[CveRevision], OIE.[Archivo], OIE.[FechaIng], //OIE.[CveUsuarioIng], OIE.[CveEmpresa], OIE.[CveUsuarioModifico], OIE.[Avance] + LtlVinculo.Text = ""; + LtlVinculoLink.Text = ""; + CveEventoPadre = drow["CveEventoPadre"].ToString().ToEntero(); + int CveCliente = drow["CveCliente"].ToString().ToEntero(); + int CveVenta = drow["CveVenta"].ToString().ToEntero(); + int CveProveedor = drow["CveProveedor"].ToString().ToEntero(); + int CveCompra = drow["CveCompra"].ToString().ToEntero(); + int CvePersonal = drow["CvePersonal"].ToString().ToEntero(); + //int = drow[""].ToString().ToEntero(); + + string titulo = ""; + string link = ""; + + if (CveCliente > 0) + { + titulo = "Cliente: "; + link = string.Format("{0}", drow["Cliente"], CveCliente); + + } + else if (CveVenta > 0) + { + titulo = "Venta: "; + link = string.Format("{0} ", drow["Venta"], CveVenta); + + } + else if (CveProveedor > 0) + { + titulo = "proveedor: "; + link = string.Format("{0} ", drow["Proveedor"], CveProveedor); + + } + else if (CveCompra > 0) + { + titulo = "Compra: "; + link = string.Format("{0} ", drow["Compra"], CveCompra); + + } + else if (CvePersonal > 0) + { + titulo = "Personal: "; + link = string.Format("{0} ", drow["NombreCompleto"], CvePersonal); + } + + if(titulo.Length > 0) + { + LtlVinculo.Text= string.Format("

    {0}

    {1}
    ", + titulo, link); + } + titulo = ""; + link = "";//EP.[CveTipoEvento] CveTipoEventoPadre,EP.Asunto AS AsuntoPadre + switch (drow["CveTipoEventoPadre"].ToString().ToEntero()) + { + case (int)OITipoEventos.Proyecto: + titulo = "Proyecto: "; + link = string.Format("{0} ", drow["AsuntoPadre"], drow["CveEventoPadre"]); + break; + case (int)OITipoEventos.Minuta: + titulo = "Minuta: "; + link = string.Format("{0} ", drow["AsuntoPadre"], drow["CveEventoPadre"]); + break; + default: + break; + } + if (titulo.Length > 0) + { + LtlVinculoLink.Text = string.Format("

    {0}

    {1}
    ", + titulo, link); + } + //,OIE.CveCliente,OIE.CveVenta,OIE.CveProveedor,OIE.CveCompra,OIE.CvePersonal + //,C.Nombre Cliente, CONCAT(V.SerieFolio, '(', CV.Nombre, ')') Venta ,Prov.NombreComercial AS Proveedor, + //CONCAT(Comp.SerieFolio, '(', CompProv.NombreComercial, ')') Compra,RH.NombreCompleto + LtlTitulo.Text = drow["Titulo"].ToString(); if (ObjOI_E.GetEventosUsuario2(RCveEvento, UsuarioActual.CveEmpresa)) { @@ -402,6 +495,12 @@ public partial class OI_TareaDetalle : ClsPaginas } } } + if (ObjOI_E.GetEventosVinculos(RCveEvento, UsuarioActual.CveEmpresa)) + { + GVVinculo.DataSource = ObjOI_E.DtResultados; + GVVinculo.DataBind(); + portletvinculos.Visible = (ObjOI_E.DtResultados.Rows.Count > 0); + } if (ObjOI_E.Getcheklist(RCveEvento)) { GVcheklist.DataSource = ObjOI_E.DtResultados; @@ -715,38 +814,45 @@ public partial class OI_TareaDetalle : ClsPaginas CheckListNew.Columns.Add("FechaIng", typeof(DateTime)); } + TxtActividad.Focus(); + RegistraScript("$('#C_portletChekList .expand').removeClass('expand').addClass('collapse');$('#C_portletChekList .portlet-body').show();"); UpChkList.Update(); } protected void LnkAgregarchklistitem_Click(object sender, EventArgs e) { - if (RCveEvento > 0) + if (TxtActividad.Text.Trim().Length > 0) { - using (ClsOIEventos objOI = new ClsOIEventos()) + if (RCveEvento > 0) { - if (objOI.Addcheklist(RCveEvento, TxtActividad.Text, UsuarioActual.CveUsuario)) + using (ClsOIEventos objOI = new ClsOIEventos()) { - Alert("Se agregó la actividad", ModExtensiones.TipoMensaje.ToastInformacion); - if (objOI.Getcheklist(RCveEvento)) + if (objOI.Addcheklist(RCveEvento, TxtActividad.Text, UsuarioActual.CveUsuario)) { - GVcheklist.DataSource = objOI.DtResultados; - GVcheklist.DataBind(); - cargaActividades(objOI); + Alert("Se agregó la actividad", ModExtensiones.TipoMensaje.ToastInformacion); + if (objOI.Getcheklist(RCveEvento)) + { + GVcheklist.DataSource = objOI.DtResultados; + GVcheklist.DataBind(); + cargaActividades(objOI); + } } } - } + + } + else + { + System.Data.DataRow drow = CheckListNew.NewRow(); + drow["CveEventoCheckList"] = chklistitemindex++; + drow["EventoComentario"] = TxtActividad.Text; + drow["Estatus"] = false; + //CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng + CheckListNew.Rows.Add(drow); + GVcheklist.DataSource = CheckListNew; + GVcheklist.DataBind(); + } } - else - { - System.Data.DataRow drow = CheckListNew.NewRow(); - drow["CveEventoCheckList"] = chklistitemindex++; - drow["EventoComentario"] = TxtActividad.Text; - drow["Estatus"] = false; - //CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng - CheckListNew.Rows.Add(drow); - GVcheklist.DataSource = CheckListNew; - GVcheklist.DataBind(); - } + TxtActividad.Focus(); TxtActividad.Text = ""; } protected void LnkSinfuncion_Click(object sender, EventArgs e) @@ -793,8 +899,9 @@ public partial class OI_TareaDetalle : ClsPaginas //if (DdlEventoEstatus.SelectedValue.ToEntero == 3 | DdlEventoEstatus.SelectedValue.ToEntero == 1) // EnviarCorreoCambioEstatus(false); //CargaDatos(); - string mensaje = string.Format("Se cambio el Estatus de \"{0}\" a \"{1}\"", DdlEventoEstatus.SelectedItem.Text, DDlEstatus.SelectedItem.Text); + string mensaje = string.Format("Se cambió el Estatus de \"{0}\" a \"{1}\"", DdlEventoEstatus.SelectedItem.Text, DDlEstatus.SelectedItem.Text); DdlEventoEstatus.SelectedValueExist(DDlEstatus.SelectedValue); + lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text; UpEstatus.Update(); this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivCambiarEstatus)); Alert(mensaje, ModExtensiones.TipoMensaje.ToastInformacion); @@ -1561,4 +1668,9 @@ public partial class OI_TareaDetalle : ClsPaginas #endregion + + protected void DDlEstatus_SelectedIndexChanged(object sender, EventArgs e) + { + pnlTerminarPadre.Visible = (DDlEstatus.SelectedValue.ToEntero() > 3 && CveEventoPadre > 0); + } } \ No newline at end of file diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 9dec655aa..a175df128 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -3574,7 +3574,9 @@ Agregar
    --%>
    - +
    + +
    diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index d1b03a74c..01f2facb9 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -754,6 +754,8 @@ Partial Class RH_Personal End If End If CargaLicencias() + LtlTareaNueva.Text = String.Format(" Tarea", CvePersonal) + End If AgregarEventosAsincronosGvVacaciones() End Sub diff --git a/UserControl/TareaNueva.ascx b/UserControl/TareaNueva.ascx new file mode 100644 index 000000000..5ac4b74bf --- /dev/null +++ b/UserControl/TareaNueva.ascx @@ -0,0 +1,322 @@ +<%@ Control Language="C#" AutoEventWireup="true" CodeFile="TareaNueva.ascx.cs" Inherits="UserControl_TareaNueva" %> + + + + + + + + + +

    + Agregar Tarea

    +     + + + +
    +
    + + Tarea Nueva +
    +
    + +
    + +
    + Agregar +
    +     +
    +
    +
    +
    + +
    + + + +
    +
    + + + +
    + +
    + + + + Para: +
    +
    +
    +
    + + + + <%----%> + +
    +
    +
    +
    + + + + <%----%> + +
    +
    +
    +
    +
    +
    + + + + + + + + Prioridad: + +
    +
    +
    +
    + + + + Tema: +
    +
    +
    + + +
    +
    + +
    +
    +
    + +
    +
    + + +
    + + + + + + CCP + <%--
    + + --%> +     + + + +     + + Usuario + + + + + + Rol + + + + +     +     +
    +
    +
    +     + + + + + + + + + + + + + + + + + + +     + + Guardar + + +     +     +     + + + + +     +     + diff --git a/UserControl/TareaNueva.ascx.cs b/UserControl/TareaNueva.ascx.cs new file mode 100644 index 000000000..a70268443 --- /dev/null +++ b/UserControl/TareaNueva.ascx.cs @@ -0,0 +1,326 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; + +public partial class UserControl_TareaNueva : System.Web.UI.UserControl +{ + //public const string iddivAgregarTarea = "iddivAgregarTarea"; + public Usuario UsuarioActual { get { if (Context.Session["UsuarioSIG"] == null) { return null; } else { return (Usuario)Context.Session["UsuarioSIG"]; } } } + public int CveEventoPadre { get { return ViewState["CveEventoPadre"] != null ? ViewState["CveEventoPadre"].ToString().ToEntero() : 0; } set { ViewState["CveEventoPadre"] = value; } } + public OITipoEventos cveTipoEvento { get { return ViewState["cveTipoEvento"] != null ? (OITipoEventos)ViewState["cveTipoEvento"] : OITipoEventos.Tarea; } set { ViewState["cveTipoEvento"] = value; } } + + //OITipoEventos cveTipoEvento = OITipoEventos.Tarea; + public bool Ismodal { get { return ViewState["Ismodal"] != null ? (bool)ViewState["Ismodal"] : true; } set { ViewState["Ismodal"] = value; } } + public string OnAddedTareaNueva { get { return ViewState["OnAddedTareaNueva"] != null ? ViewState["OnAddedTareaNueva"].ToString() : "OnAddedTareaNueva"; } set { ViewState["OnAddedTareaNueva"] = value; } } + public const string iddivAgregarTema = "divModalAgregartema"; + + protected System.Data.DataTable get_GlobalDTUsuarios(int CveUsuario = -1, int CveEmpresa = -1) + { + System.Text.StringBuilder Str = new System.Text.StringBuilder(); + if (CveUsuario != -1) { Str.AppendFormat("CveUsuario = {0}", CveUsuario); } + if (CveEmpresa != -1) { Str.AppendFormat(" {0} CveEmpresa = {1}", Str.Length > 0 ? "AND" : "", CveEmpresa); } + System.Data.DataTable dt = null; + if (CveUsuario != -1 || CveEmpresa != -1) + { + System.Data.DataView Dv = new System.Data.DataView((System.Data.DataTable)Application["GlobalDTUsuarios"], Str.ToString(), "", System.Data.DataViewRowState.CurrentRows); + dt = Dv.ToTable(); + Dv.Dispose(); + } + else + { dt = (System.Data.DataTable)Application["GlobalDTUsuarios"]; } + return dt; + } + //public DataTable GlobalDTOIRevision + protected System.Data.DataTable get_GlobalDTOIRevision(int CveEmpresa = -1) + { + System.Data.DataTable dt = null; + System.Text.StringBuilder Str = new System.Text.StringBuilder(); + + if (CveEmpresa != -1) + { + string StrSQL = string.Format("CveEmpresa = {0}", CveEmpresa); + System.Data.DataView Dv = new System.Data.DataView((System.Data.DataTable)Application["GlobalDTOIRevision"], StrSQL, "", System.Data.DataViewRowState.CurrentRows); + dt = Dv.ToTable(); + Dv.Dispose(); + } + else { dt = (System.Data.DataTable)Application["GlobalDTOIRevision"]; } + + return dt; + } + + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + if (!Ismodal) + { + iddivAgregarTarea.CssClass = ""; + iddivAgregarTareamodaldialog.CssClass = ""; + iddivAgregarTareamodalbody.CssClass = ""; + iddivAgregarTareamodalcontent.CssClass = ""; + iddivAgregarTareamodalheader.Visible = false; + iddivAgregarTareamodalfooter.Visible = false; + } + if (CveEventoPadre > 0) + { + txtCveEventoPadre.Text = CveEventoPadre.ToString(); + } + else + { + CveEventoPadre = -1; + txtCveEventoPadre.Text = "-1"; + } + GVUsuarios_TareaNueva.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC"); + + DdlPara.DataSource = GVUsuarios_TareaNueva.DataSource; + DdlPara.DataBind(); + + DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario)); + DdlTema.DataBind(); + DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1")); + GVUsuarios_TareaNueva.DataBind(); + } + } + + protected void BtnopenmodalConPadre_Click(object sender, EventArgs e) + { + CveEventoPadre = txtCveEventoPadre.Text.ToEntero(); + if (Ismodal) + { + this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTarea.ClientID)); + + } + } + + protected void BtnGuardarTarea_Click(object sender, EventArgs e) + { + string errorMessage = ""; + + TxtCveActivoFijo.Text = TxtCveActivoFijo.Text.ToEntero() > 0 ? TxtCveActivoFijo.Text : "-1"; + TxtCveIE.Text = TxtCveIE.Text.ToEntero() > 0 ? TxtCveIE.Text : "-1"; + TxtCveProspecto.Text = TxtCveProspecto.Text.ToEntero() > 0 ? TxtCveProspecto.Text : "-1"; + TxtCveCliente.Text = TxtCveCliente.Text.ToEntero() > 0 ? TxtCveCliente.Text : "-1"; + TxtCveOS.Text = TxtCveOS.Text.ToEntero() > 0 ? TxtCveOS.Text : "-1"; + TxtCveOC.Text = TxtCveOC.Text.ToEntero() > 0 ? TxtCveOC.Text : "-1"; + TxtCvePersonal.Text = TxtCvePersonal.Text.ToEntero() > 0 ? TxtCvePersonal.Text : "-1"; + TxtCveProveedor.Text = TxtCveProveedor.Text.ToEntero() > 0 ? TxtCveProveedor.Text : "-1"; + TxtCveCompra.Text = TxtCveCompra.Text.ToEntero() > 0 ? TxtCveCompra.Text : "-1"; + TxtCveVenta.Text = TxtCveVenta.Text.ToEntero() > 0 ? TxtCveVenta.Text : "-1"; + TxtCveContrato.Text = TxtCveContrato.Text.ToEntero() > 0 ? TxtCveContrato.Text : "-1"; + TxtCveSubProyecto.Text = TxtCveSubProyecto.Text.ToEntero() > 0 ? TxtCveSubProyecto.Text : "-1"; + TxtCveMovimientoAlmacen.Text = TxtCveMovimientoAlmacen.Text.ToEntero() > 0 ? TxtCveMovimientoAlmacen.Text : "-1"; + + int cveUsuarioDe = UsuarioActual.CveUsuario; + List listaCCP = new List(); + int cveUsuarioPara = DdlPara.SelectedValue.ToEntero(); + + foreach (GridViewRow gvRow in GVUsuarios_TareaNueva.Rows) + { + if (gvRow.RowType == DataControlRowType.DataRow) + { + CheckBox ChkOk = gvRow.FCCheckBox("ChkOk"); + if (ChkOk.Checked) + { + int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); + listaCCP.Add(CveUsuario); + } + } + } + //OITipoEventos cveTipoEvento = OITipoEventos.Tarea; + string asunto = TxtAsunto.Text; + string descripcion = TxtDescripcion.Text; + int prioridad = DdlPrioridad.SelectedValue.ToEntero(); + string fechaInicio = ""; + if (txtFechaI.Text.ToDateTimeExcat().Year <= 1999) + { + if (txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").Year <= 1999) + { + errorMessage = "No se ingresó una fecha de inicio valida"; + + } + else + { + fechaInicio = txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy/MM/dd HH:mm"); + } + } + else + { + fechaInicio = txtFechaI.Text.ToDateTimeExcat().ToString("yyyy/MM/dd HH:mm"); + } + string fechaFin = ""; + if (txtFechaF.Text.ToDateTimeExcat().Year <= 1999) + { + if (txtFechaF.Text.ToDateTimeExcat("dd/MM/yyyy").Year <= 1999) + { + errorMessage = "No se ingresó una fecha fin valida"; + + } + else + { + fechaFin = string.Format("{0:yyyy/MM/dd} 23:59", txtFechaF.Text.ToDateTimeExcat("dd/MM/yyyy")); + } + } + else + { + fechaFin = txtFechaF.Text.ToDateTimeExcat().ToString("yyyy/MM/dd HH:mm"); + } + int cveRevision = DdlTema.SelectedValue.ToEntero(); + string archivoname = ""; + string rutaarchivoOri = ""; + string ArchivoExtencion = ""; + foreach (Archivo item in TxtArchivo.getfiles().Archivos) + { + archivoname = item.filenameO; + ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion); + rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename); + } + + + int cveUsuarioIng = UsuarioActual.CveUsuario; + int cveEmpresa = UsuarioActual.CveEmpresa; + bool Continuar = false; + int Folio = -1; + int CveEvento = -1; + + if (cveUsuarioDe <= 0) + { + errorMessage = "No se selecciono el miembro 'C C Para'"; + } + + if (cveUsuarioPara <= 0) + { + errorMessage = "No se selecciono el miembro 'Para'"; + + } + if (errorMessage.Length == 0) + { + + List chkList = new List(); + + using (ClsOIEventos objOI = new ClsOIEventos()) + { + objOI.IniciaTransacSQL(); + Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, + cveUsuarioIng, cveEmpresa, CveEventoPadre, + CveActivoFijo: TxtCveActivoFijo.Text.ToEntero(), + CveIE: TxtCveIE.Text.ToEntero(), CveProspecto: TxtCveProspecto.Text.ToEntero(), CveCliente: TxtCveCliente.Text.ToEntero(), + CveOS: TxtCveOS.Text.ToEntero(), CveOC: TxtCveOC.Text.ToEntero(), CvePersonal: TxtCvePersonal.Text.ToEntero(), + CveProveedor: TxtCveProveedor.Text.ToEntero(), CveCompra: TxtCveCompra.Text.ToEntero(), CveVenta: TxtCveVenta.Text.ToEntero(), + CveContrato: TxtCveContrato.Text.ToEntero(), CveSubProyecto: TxtCveSubProyecto.Text.ToEntero(), CveMovimientoAlmacen: TxtCveMovimientoAlmacen.Text.ToEntero()); + + CveEvento = objOI.CveEvento; + Folio = objOI.Folio; + if (CveEvento == 0) + { + Continuar = false; + } + if (Continuar) + { + objOI.Commit(); + //ObjEventosCorreo o = objOI.objCorreo; + //string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); + //EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + } + else + { + objOI.RollBack(); + Continuar = false; + } + } + if (Continuar && CveEvento > 0) + { + if (rutaarchivoOri.Length > 0) + { + string ruta = string.Format("{0}OIFiles\\", UsuarioActual.Empresa.Ruta); + if (!System.IO.Directory.Exists(ruta)) + { + System.IO.Directory.CreateDirectory(ruta); + } + ruta = string.Format("{0}{1}\\", ruta, Folio); + if (!System.IO.Directory.Exists(ruta)) + { + System.IO.Directory.CreateDirectory(ruta); + } + ruta = string.Format("{0}{1}", ruta, archivoname);//, ArchivoExtencion); + System.IO.File.Move(rutaarchivoOri, ruta); + } + this.Alert("Se ha agregadó la nueva tarea", ModExtensiones.TipoMensaje.ToastInformacion); + + TxtAsunto.Text = ""; + TxtDescripcion.Text = ""; + txtFechaF.Text = ""; + txtFechaI.Text = ""; + if (Ismodal) + { + this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTarea.ClientID)); + } + this.RegistraScript(string.Format("if({0}){0}();", OnAddedTareaNueva)); + } + } + else + { + this.Alert(errorMessage.ToString(), ModExtensiones.TipoMensaje.MsgAdvertencia); + + } + } + + protected void GVUsuarios_TareaNueva_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + CheckBox ChkOk = e.Row.FCCheckBox("ChkOk"); + int CveUsuario = e.Row.DataKey("CveUsuario").ToString().ToEntero(); + if (CveUsuario == UsuarioActual.CveUsuario) + { + ChkOk.Checked = true; + } + string CveRol = e.Row.DBCampo("CveRol"); + string CveSubProyecto = e.Row.DBCampo("CveSubProyecto"); + e.Row.CssClass = "items"; + e.Row.Attributes.Add("data-rol", CveRol); + e.Row.Attributes.Add("data-sucursal", CveRol); + } + } + + protected void LnkAddTtemaB_Click(object sender, EventArgs e) + { + + this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTema)); + } + + private void CargaTemas() + { + DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario)); + DdlTema.DataBind(); + DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1")); + + } + protected void BtnAgregarTema_Click(object sender, EventArgs e) + { + + using (ClsOIEventos objoi = new ClsOIEventos()) + { + if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + { + this.Alert("Tema agregada con éxito.", ModExtensiones.TipoMensaje.MsgInformacion); + this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema)); + + if (Ismodal) + { + this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTarea.ClientID)); + } + TxtTema.Text = ""; + //set_GlobalDTOIRevision(-1, objoi.DtResultados); + Application["GlobalDTOIRevision"] = objoi.DtResultados; + CargaTemas(); + UpModalTareaNueva.Update(); + } + else { this.Alert("Ocurrió un error al agregar la revisión. Por favor vuelva a intentar.", ModExtensiones.TipoMensaje.MsgError); } + + } + } +} \ No newline at end of file diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 5c4cc70ee..b87da3631 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -3,6 +3,7 @@ <%@ Register Assembly="TimePicker" Namespace="MKB.TimePicker" TagPrefix="cc1" %> <%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %> +