diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index bada31574..7ac9a2082 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -4375,4 +4375,24 @@ Public Class ClsBancos End Try Return Retorno End Function + + Public Function GetBancosSAT() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_Sat_BancosGet") + + 'With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + 'End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los bancos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + + End Class diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index 212594b67..78f93277e 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -174,6 +174,26 @@ Public Class ClsClasificaciones OnError("Ocurrió un error al modificar la clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + + Public Function RemoveClasificacionesComprobaciones(CveClasificacion As Integer, CveEmpresa As Integer, TipoComprobacion As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_ClasificacionesComprobacionesRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@TipoComprobacion", SqlDbType.Int).Value = TipoComprobacion + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al eliminar la clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 5ec8dc12c..0904a892b 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -569,7 +569,8 @@ Public Class ClsClientes Optional ObservacionRevsion As String = "-1", Optional ReferenciaFiscal As String = "-1", Optional Celular As String = "-1", Optional ExtOtros As String = "-1", Optional CveUsoCFDI As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional DesglosaIEPS As Boolean = True, Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, - Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean + Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, + Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1") As Boolean Dim Retorno As Boolean = False @@ -706,6 +707,9 @@ Public Class ClsClientes .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue + + .Add("@CorreoEntregaCompras", SqlDbType.VarChar).Value = CorreoEntregaCompras + .Add("@CorreoEntregaAlmacen", SqlDbType.VarChar).Value = CorreoEntregaAlmacen End With Try SqlAdapter.Fill(Data) @@ -749,7 +753,7 @@ Public Class ClsClientes Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, - Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean + Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1") As Boolean Dim Retorno As Boolean = False @@ -900,6 +904,9 @@ Public Class ClsClientes .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion + + .Add("@CorreoEntregaCompras", SqlDbType.VarChar).Value = CorreoEntregaCompras + .Add("@CorreoEntregaAlmacen", SqlDbType.VarChar).Value = CorreoEntregaAlmacen End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index d34542eab..2db192a9c 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -1390,7 +1390,7 @@ Public Class ClsGenerales End Function Public Function AddCuentasDepositos(BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, CveUsuario As Integer, CveMoneda As Integer, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveUsuarioModifico As Integer = -1, - Optional Correo As String = "", Optional BBVAAlias As String = "-1") As Boolean + Optional Correo As String = "", Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CuentasDepositosAdd") @@ -1414,6 +1414,9 @@ Public Class ClsGenerales .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@Correo", SqlDbType.VarChar).Value = Correo .Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias + .Add("@EstatusPagoElectronico", SqlDbType.Bit).Value = EstatusPagoElectronico + .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos + .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco End With @@ -1456,7 +1459,9 @@ Public Class ClsGenerales Return Retorno End Function - Public Function UpdateCuentasDepositos(CveCuentaDeposito As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "", Optional BBVAAlias As String = "-1") As Boolean + Public Function UpdateCuentasDepositos(CveCuentaDeposito As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, + RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "", + Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CuentasDepositosUpdate") @@ -1479,6 +1484,9 @@ Public Class ClsGenerales .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@Correo", SqlDbType.VarChar).Value = Correo .Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias + .Add("@EstatusPagoElectronico", SqlDbType.Bit).Value = EstatusPagoElectronico + .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos + .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco End With @@ -2661,11 +2669,12 @@ Public Class ClsGenerales End Try Return Retorno - End Function - + End Function + #Region "P A Q U E T E R I A S G U I A S" Public Function AddPaqueteriasGuias(CvePaqueteria As Integer, CvePaqueteriaGuiaTipo As Integer, CveEstatus As Integer, CveSubProyecto As Integer, Fecha As String, Rastreo As String, Guia As String, NumCajas As Integer, - Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional ImplicaCosto As Boolean = True) As Integer + Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional ImplicaCosto As Boolean = True, + Optional EsEntregaInterna As Boolean = False) As Integer Dim Retorno As Integer = -1 @@ -2691,6 +2700,8 @@ Public Class ClsGenerales .Add("@ImplicaCosto", SqlDbType.Bit).Value = IIf(ImplicaCosto = True, 1, 0) .Add("@CvePaqueteriaGuiaTipo", SqlDbType.SmallInt).Value = CvePaqueteriaGuiaTipo + .Add("@EsEntregaInterna", SqlDbType.Bit).Value = EsEntregaInterna + .Add("@CvePaqueteriaGuia", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -2711,7 +2722,9 @@ Public Class ClsGenerales Return Retorno End Function - Public Function GetPaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CvePaqueteria As Integer, CveEstatus As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Guia As String, FechaInicio As String, FechaFin As String, Optional FechaIngInicio As String = "-1", Optional FechaIngFin As String = "-1", Optional Filtro As Integer = -1) As Boolean + Public Function GetPaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CvePaqueteria As Integer, CveEstatus As Integer, CveSubProyecto As Integer, + CveEmpresa As Integer, Guia As String, FechaInicio As String, FechaFin As String, Optional FechaIngInicio As String = "-1", + Optional FechaIngFin As String = "-1", Optional Filtro As Integer = -1, Optional CveUsuarioEntrega As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2730,6 +2743,7 @@ Public Class ClsGenerales .Add("@FechaIngInicio", SqlDbType.VarChar).Value = FechaIngInicio .Add("@FechaIngFin", SqlDbType.VarChar).Value = FechaIngFin .Add("@Filtro", SqlDbType.Int).Value = Filtro + .Add("@CveUsuarioEntrega", SqlDbType.Int).Value = CveUsuarioEntrega End With Try SqlAdapter.Fill(Data) @@ -2796,9 +2810,43 @@ Public Class ClsGenerales End Try Return Retorno - End Function -#End Region + End Function + + Public Function GetEntregasPorRealizar(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_EntregasPorRealizarGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_AsignarEntregasPorRealizar") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + #Region "P A Q U E T E R I A S G U I A S D E T A L L E S" Public Function AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia As Integer, CveVenta As Integer, CveOC As Integer, CveMovimiento As Integer, Optional CveCompra As Integer = -1) As Boolean diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 19d38432e..ba3ba2c77 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1726,7 +1726,7 @@ Public Class ClsOC Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, FechaInicio As Date, FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1, - Optional SoloSubProyectosConPermiso As Boolean = False) As Boolean + Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraRep") @@ -1751,6 +1751,7 @@ Public Class ClsOC .Add("@Guia", SqlDbType.VarChar).Value = Guia .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso + .Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo End With diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 5bf90db2e..d8084033f 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -17,7 +17,21 @@ Public Enum OITipoEventos Gastos_Mes = 10 Convocatorias = 11 End Enum - +Public Enum OITipoEventosRelacion + Activo_Fijo = 1 + Cliente = 2 + Personal = 3 + Proveedor = 4 + Ventas = 5 + Compras = 6 + Bancos = 7 + Prospectos = 8 + OrdendeServicio = 9 + OrdendeCompra = 10 + Proyecto = 11 + Almacen = 12 + Contrato = 12 +End Enum Public Class ObjEventosCorreo Public Sub New(AsuntoCorreo As String, mailPara As String, ListPara As List(Of String), Folio As Integer, Link As String, Asunto As String, Descripcion As String, Fechai As String, Fechaf As String, Prioridad As String, Tema As String, Actividad As String, Estatus As String) Me.AsuntoCorreo = AsuntoCorreo @@ -162,6 +176,7 @@ Public Class ClsOIEventos .CommandText = StrSQL .CommandType = TipoComando End With + objCorreo = Nothing Data = New DataTable If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc End Sub @@ -291,13 +306,14 @@ Public Class ClsOIEventos End Function - Public Function GetUnoaUnoCuestionario(cveUnoaUnoCuestionario As Int32, cveUsuario As Int32) As Boolean + Public Function GetUnoaUnoCuestionario(cveUnoaUnoCuestionario As Integer, cveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_OI_UnoaUnoCuestionarioGet", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters .Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (cveUnoaUnoCuestionario) .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) End With Try SqlAdapter.Fill(Data) @@ -322,7 +338,7 @@ Public Class ClsOIEventos End Try Return retorno End Function - Public Function AddUnoaUnoCuestionario(Cuestionario As String, Comentario As String, CveUsuario As Integer, ListPreguntas As List(Of Integer)) As Boolean + Public Function AddUnoaUnoCuestionario(Cuestionario As String, Comentario As String, CveUsuario As Integer, ListPreguntas As List(Of Integer), CveEmpresa As Integer) As Boolean Dim retorno As Boolean = False Dim xmlPreguntas As System.Xml.Linq.XDocument = Nothing @@ -334,6 +350,7 @@ Public Class ClsOIEventos .Add("@Cuestionario", SqlDbType.VarChar).Value = (Cuestionario) .Add("@Comentario", SqlDbType.VarChar).Value = (Comentario) .Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) .Add("@xmlPreguntas", SqlDbType.Xml).Value = If(xmlPreguntas Is Nothing, DBNull.Value, DirectCast(xmlPreguntas.ToString(), Object)) End With Try @@ -671,6 +688,102 @@ Public Class ClsOIEventos #End Region #Region "oieventos2.0" + Public Function GetOiInicio(CveEmpresa As Integer, CveUsuario As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_InicioReport", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la relación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function OrdenaTareas(ListAsistentes As List(Of String), CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean + Dim retorno As Boolean = False + Dim xmlAsistentes As System.Xml.Linq.XDocument = Nothing + If ListAsistentes IsNot Nothing AndAlso ListAsistentes.Count > 0 Then + xmlAsistentes = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("OrdenList", ListAsistentes.[Select](Function(x) New System.Xml.Linq.XElement("Cve_Orden", x)))) + End If + DataAdapter("PA_OI_OrdenaTareasUP", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@xmlOrdenado", SqlDbType.Xml).Value = If(xmlAsistentes Is Nothing, DBNull.Value, DirectCast(xmlAsistentes.ToString(), Object)) + .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la relación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function OrdenaListas(ListAsistentes As List(Of String), CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean + Dim retorno As Boolean = False + Dim xmlAsistentes As System.Xml.Linq.XDocument = Nothing + If ListAsistentes IsNot Nothing AndAlso ListAsistentes.Count > 0 Then + xmlAsistentes = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("OrdenList", ListAsistentes.[Select](Function(x) New System.Xml.Linq.XElement("Cve_Orden", x)))) + End If + DataAdapter("PA_OI_OrdenaListasUP", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@xmlOrdenado", SqlDbType.Xml).Value = If(xmlAsistentes Is Nothing, DBNull.Value, DirectCast(xmlAsistentes.ToString(), Object)) + .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la relación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function UPEventosVinculo(CveEvento As Integer, CveTipoRelacion As Integer, CveRelacion As Integer, CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_EventosVinculoUP", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEvento", SqlDbType.Int).Value = (CveEvento) + .Add("@CveTipoRelacion", SqlDbType.Int).Value = (CveTipoRelacion) + .Add("@CveRelacion", SqlDbType.Int).Value = (CveRelacion) + .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la relación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function UPMinutasAsistentes(CveEvento As Integer, CveEmpresa As Integer, Asistencia As String, CveUsuarioIng As Integer, ListAsistentes As List(Of Integer)) As Boolean + Dim retorno As Boolean = False + + Dim xmlAsistentes As System.Xml.Linq.XDocument = Nothing + If ListAsistentes IsNot Nothing AndAlso ListAsistentes.Count > 0 Then + xmlAsistentes = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("Asistentes", ListAsistentes.[Select](Function(x) New System.Xml.Linq.XElement("CveUsuario", x)))) + End If + DataAdapter("PA_OI_MinutasUpAsistentes", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEvento", SqlDbType.Int).Value = (CveEvento) + .Add("@xmlAsistentes", SqlDbType.Xml).Value = If(xmlAsistentes Is Nothing, DBNull.Value, DirectCast(xmlAsistentes.ToString(), Object)) + .Add("@Asistencia", SqlDbType.VarChar).Value = (Asistencia) + .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la asistencia de usuarios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function UpEventosVinculos(cveEvento As Int32, cveActivoFijo As Int32, cveIE As Int32, cveProspecto As Int32, cveCliente As Int32, cveOS As Int32, cveOC As Int32, cvePersonal As Int32, cveProveedor As Int32, cveCompra As Int32, cveVenta As Int32, cveContrato As Int32, cveSubProyecto As Int32, cveMovimientoAlmacen As Int32, cveEmpresaCRM As Int32) As Boolean @@ -819,7 +932,7 @@ Public Class ClsOIEventos 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, Optional CorreoExterno As String = "", Optional CveTableroLista As Integer = -1, Optional Lugar As String = "") As Boolean + Optional CveMovimientoAlmacen As Integer = -1, Optional CorreoExterno As String = "", Optional CveTableroLista As Integer = -1, Optional Lugar As String = "", Optional Asistencia As String = "", Optional Duracion As String = "") As Boolean Dim retorno As Boolean = False Dim xmlMiembros As System.Xml.Linq.XDocument = Nothing @@ -877,6 +990,8 @@ Public Class ClsOIEventos .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen .Add("@CorreoExterno", SqlDbType.VarChar).Value = CorreoExterno + .Add("@Duracion", SqlDbType.VarChar).Value = Duracion + .Add("@Asistencia", SqlDbType.VarChar).Value = Asistencia .Add("@Lugar", SqlDbType.VarChar).Value = Lugar .Add("@CveTableroLista", SqlDbType.VarChar).Value = CveTableroLista @@ -918,9 +1033,9 @@ Public Class ClsOIEventos End Try Try If retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), Folio, CveEvento), lPara, "NUEVA TAREA ASIGNADA") - objCorreo = New ObjEventosCorreo("Nueva Tarea asignada", mailPara, lPara, Folio, String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "") - 'mailbody = MailgetBodyNuevatarea(Folio, String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString()) + 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), Folio, CveEvento), lPara, "NUEVA TAREA ASIGNADA") + objCorreo = New ObjEventosCorreo("Nueva Tarea asignada", mailPara, lPara, Folio, String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "") + 'mailbody = MailgetBodyNuevatarea(Folio, String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString()) 'Dim mailAsunto As String = "Nueva Tarea asignada" ',cveUsuarioPara 'Dim mailArrayCC As String = "" 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC) @@ -977,9 +1092,9 @@ Public Class ClsOIEventos End Try If retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - objCorreo = New ObjEventosCorreo("Tarea Actualizada", mailPara, lPara, Folio, String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "") - 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), Folio, CveEvento), lPara, "TAREA ACTUALIZADA") - 'mailbody = MailgetBodyActualizartarea(Folio, String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString()) + objCorreo = New ObjEventosCorreo("Tarea Actualizada", mailPara, lPara, Folio, String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "") + 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), Folio, CveEvento), lPara, "TAREA ACTUALIZADA") + 'mailbody = MailgetBodyActualizartarea(Folio, String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString()) 'Dim mailAsunto As String = "Tarea Actualizada" ',cveUsuarioPara 'Dim mailArrayCC As String = "" 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC) @@ -988,7 +1103,7 @@ Public Class ClsOIEventos End Function - Public Function UpdateEstatusEvento2(CveEventoEstatus As Integer, CveComentario As Integer, CveEvento As Integer, CveUsuario As Integer, cveEmpresa As Int32) As Boolean + Public Function UpdateEstatusEvento2(CveEventoEstatus As Integer, CveComentario As Integer, CveEvento As Integer, CveUsuario As Integer, cveEmpresa As Int32, Optional ExtraComentario As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OI_EventosEstatusUpdate2") @@ -1006,6 +1121,7 @@ Public Class ClsOIEventos .Add("@pCveEvento", SqlDbType.Int).Value = CveEvento .Add("@pCveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@ExtraComentario", SqlDbType.VarChar).Value = ExtraComentario End With Try SqlAdapter.Fill(ds) @@ -1029,9 +1145,9 @@ Public Class ClsOIEventos End Try If Retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - objCorreo = New ObjEventosCorreo("Tarea Cambio de estatus", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", drow("Estatus").ToString()) - 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, String.Format("CAMBIÓ ESTADO EN TAREA A '{0}'", drow("Estatus"))) - 'mailbody = MailgetBodyActualizarEstado(drow("Estatus").ToString(), drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString()) + objCorreo = New ObjEventosCorreo("Tarea Cambio de estatus", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", drow("Estatus").ToString()) + 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, String.Format("CAMBIÓ ESTADO EN TAREA A '{0}'", drow("Estatus"))) + 'mailbody = MailgetBodyActualizarEstado(drow("Estatus").ToString(), drow("Folio").ToString().ToEntero(), String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString()) 'Dim mailAsunto As String = "Tarea Cambio de estatus" ',cveUsuarioPara 'Dim mailArrayCC As String = "" 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC) @@ -1115,9 +1231,9 @@ Public Class ClsOIEventos If retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - objCorreo = New ObjEventosCorreo(String.Format("Actividad {0}", If(estatus, "Terminada", "Pendiente")), mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), cveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), String.Format("Actividad {0}", If(estatus, "Terminada", "Pendiente")), "") - 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), cveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)") - 'mailbody = MailgetBodyTareaCheckList(String.Format("Actividad {0}", If(estatus, "Terminada", "Pendiente")), drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), cveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString()) + objCorreo = New ObjEventosCorreo(String.Format("Actividad {0}", If(estatus, "Terminada", "Pendiente")), mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), cveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), String.Format("Actividad {0}", If(estatus, "Terminada", "Pendiente")), "") + 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), cveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)") + 'mailbody = MailgetBodyTareaCheckList(String.Format("Actividad {0}", If(estatus, "Terminada", "Pendiente")), drow("Folio").ToString().ToEntero(), String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), cveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString()) 'Dim mailAsunto As String = String.Format("Actividad {0}", If(estatus, "Terminada", "Pendiente")) 'Dim mailArrayCC As String = "" 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC) @@ -1185,9 +1301,9 @@ Public Class ClsOIEventos End Try If Retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - objCorreo = New ObjEventosCorreo("Tarea Archivo actualizado", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "") - 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)") - 'mailbody = MailgetBodyActualizararchivo(drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString()) + objCorreo = New ObjEventosCorreo("Tarea Archivo actualizado", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "") + 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)") + 'mailbody = MailgetBodyActualizararchivo(drow("Folio").ToString().ToEntero(), String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString()) 'Dim mailAsunto As String = "Tarea Archivo actualizado" ',cveUsuarioPara 'Dim mailArrayCC As String = "" 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC) @@ -1239,9 +1355,9 @@ Public Class ClsOIEventos End Try If Retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - objCorreo = New ObjEventosCorreo("Tarea cambio Avance", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "") - 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)") - 'mailbody = MailgetBodyActualizarAvance(drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString()) + objCorreo = New ObjEventosCorreo("Tarea cambio Avance", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "") + 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)") + 'mailbody = MailgetBodyActualizarAvance(drow("Folio").ToString().ToEntero(), String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString()) 'Dim mailAsunto As String = "Tarea cambio Avance" ',cveUsuarioPara 'Dim mailArrayCC As String = "" 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC) @@ -1296,9 +1412,9 @@ Public Class ClsOIEventos End Try If Retorno > 0 AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - objCorreo = New ObjEventosCorreo("Nuevo comentario en tarea", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "") - 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)") - 'mailbody = MailgetBodyTareaComentario(drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString()) + objCorreo = New ObjEventosCorreo("Nuevo comentario en tarea", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "") + 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)") + 'mailbody = MailgetBodyTareaComentario(drow("Folio").ToString().ToEntero(), String.Format("{0}/OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString()) 'Dim mailAsunto As String = "Nuevo comentario en tarea" ',cveUsuarioPara 'Dim mailArrayCC As String = "" 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 389d0dbed..6c1eaf2e6 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -73,8 +73,9 @@ Public Class ClsPaginas 'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario) If Context.Session("UsuarioSIG") Is Nothing Then Usuario.CerrarSession() + Return Nothing Else - UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario) + Return CType(Context.Session("UsuarioSIG"), Usuario) End If Catch ex As Exception Usuario.CerrarSession() @@ -3626,14 +3627,13 @@ Public Class ClsPaginas PaginaDict.Add("/Default2.aspx".ToUpper(), -1) PaginaDict.Add("/CargaCuentas.aspx".ToUpper(), -1) PaginaDict.Add("/OI/Tareas.aspx".ToUpper(), -1) - PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), -1) - PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), -1) - PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), -1) - PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), -1) - PaginaDict.Add("/OI/UnoaUno.aspx".ToUpper(), -1) - PaginaDict.Add("/OI/UnoaUnoConfiguracion.aspx".ToUpper(), -1) - PaginaDict.Add("/OI/ConvocatoriaDetalle.aspx".ToUpper(), -1) - PaginaDict.Add("/OI/RepReuniones.aspx".ToUpper(), -1) + PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), 907) + PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), 907) + PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), 910) + PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), 910) + PaginaDict.Add("/OI/UnoaUno.aspx".ToUpper(), 909) + PaginaDict.Add("/OI/ConvocatoriaDetalle.aspx".ToUpper(), 908) + PaginaDict.Add("/OI/RepReuniones.aspx".ToUpper(), 908) PaginaDict.Add("/AdSistemasTeam/ProcedimientosAlmacenados.aspx".ToUpper(), -1) PaginaDict.Add("/OS/CatOrdenesServiciosCaracteristicas.aspx".ToUpper(), -1) PaginaDict.Add("/OS/CatOSCaracteristicasOpciones.aspx".ToUpper(), -1) @@ -4275,6 +4275,7 @@ Public Class ClsPaginas PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711) PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712) PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038) + PaginaDict.Add("/General/PopUpPaqueteriasGuiasInternas.aspx".ToUpper(), 727) #End Region #Region "GPS" @@ -4404,6 +4405,7 @@ Public Class ClsPaginas PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891) PaginaDict.Add("/Inventarios/AjustesSeccionAlmacen.aspx".ToUpper(), 892) PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688) + PaginaDict.Add("/Inventarios/EntregasPorRealizar.aspx".ToUpper(), 728) #End Region #Region "MF" diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index d19de8eef..c3c7db3ce 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4217,16 +4217,14 @@ Namespace Modelos 'GENERAMOS EL ACUSE Y MANDAMOS MAIL DE CON EL ACUSE DE CANCELACIÓN If RequiereAceptacion Then CancelacionFecha = Now.Date - CancelacionAcuse = "" CveEstatus = 20 - Else CancelacionFecha = ObjCancelacion.CancelacionFecha - CancelacionAcuse = ObjCancelacion.CancelacionAcuse CveEstatus = 5 End If + CancelacionAcuse = ObjCancelacion.CancelacionAcuse Else - Retorno.Mensaje = "La factura no se pudo cancelar ante el SAT." + Retorno.Mensaje = "Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.
Origen del error: WebService www.sat.gob.mx" Retorno.TipoMensaje = TipoMensaje.MsgError Return Retorno @@ -4262,8 +4260,14 @@ Namespace Modelos 'BITACORA, SOLICITUD DE CANCELACION If CveEstatus > 0 AndAlso CveEstatusFacturaAsignado <= 0 Then + + Dim msgBitacora As String = "Solicitud de cancelación de factura" + If EsRefacturacion Then + msgBitacora = "Solicitud de cancelación por refacturación" + End If + Dim ObjE As New ClsOIEventos() - ObjE.AddEventoBitacora("Solicitud de cancelación de factura", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) + ObjE.AddEventoBitacora(msgBitacora, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) ObjE.Dispose() End If @@ -4555,36 +4559,39 @@ 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 + '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 + + 'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN GENERAL + If Not ErrorCancelar AndAlso DtDevoluciones IsNot Nothing Then + For Each CveRemision As Integer In ListaRemisionesCancelar Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}") + Dim RowDevolucion As DataRow = DtDevRemision.FiltraParametros("", DistinctColumns:={"CveRemision", "CveAlmacen", "CveAlmacenDestino"}).Rows(0) + 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 + Else + ErrorCancelar = True + End If + End If 'VERIFICAR MOVIMIENTOS DE APARTADOS @@ -5030,22 +5037,34 @@ Namespace Modelos End If 'ENTRADA A (ALMACEN GENERAL) + Dim DtEntradaDetalle As DataTable = Nothing + If Not ErrorCancelar Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDevRem, UsuarioActual.CveEmpresa) Then - For Each Dr As DataRow In ObjInventario.DtResultados.Rows + DtEntradaDetalle = ObjInventario.DtResultados.Copy() + End If + End If + + If Not ErrorCancelar Then + If DtEntradaDetalle IsNot Nothing Then + For Each Dr As DataRow In DtEntradaDetalle.Rows If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then ErrorCancelar = True Exit For End If Next + Else + ErrorCancelar = True End If End If - - If Not ObjVentas.UpdateVentasDevolucionAlmacen(2, CveRemision) Then - ErrorCancelar = True + If Not ErrorCancelar Then + If Not ObjVentas.UpdateVentasDevolucionAlmacen(2, CveRemision) Then + ErrorCancelar = True + End If End If + Return Not ErrorCancelar End Function diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index 461d85c62..fa0c9409b 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -1657,44 +1657,38 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState HttpContext.Current.Application("GlobalDTProyectos") = value End Set End Property - 'Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable - ' Get - - ' If DirectCast(HttpContext.Current.Application("GlobalDTSubProyectos"), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application("GlobalDTSubProyectos"), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application("GlobalDTSubProyectos"), DataTable).Rows.Count = 0) Then - ' Dim P As New ClsSubProyectos - ' If P.GetSubProyectos Then - ' HttpContext.Current.Application("GlobalDTSubProyectos") = P.DtResultados - ' End If - ' P.Dispose() - - ' Dim msg As String = "aqui no se carga subproyectos" - - ' End If - - ' If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then - ' Dim StrSQL As New StringBuilder - ' If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto) - ' If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto) - ' If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus) - ' If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa) - - ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTSubProyectos"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows) - ' GlobalDTSubProyectos = Dv.ToTable - ' Dv.Dispose() - - ' Else - ' GlobalDTSubProyectos = DirectCast(HttpContext.Current.Application("GlobalDTSubProyectos"), DataTable) - ' End If - - ' End Get - ' Set(ByVal value As DataTable) - ' If value Is Nothing OrElse value.Rows.Count = 0 Then - ' Dim msg As String = "aqui no se carga subproyectos" - - ' End If - ' HttpContext.Current.Application("GlobalDTSubProyectos") = value - ' End Set - 'End Property + Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable + Get + Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa) + 'sino existe, recarga los datos + If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then + Dim P As New ClsSubProyectos + If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = P.DtResultados + P.Dispose() + + End If + + If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then + Dim StrSQL As New StringBuilder + If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto) + If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto) + If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus) + If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa) + + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows) + GlobalDTSubProyectos = Dv.ToTable + Dv.Dispose() + + Else + GlobalDTSubProyectos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) + End If + + End Get + Set(ByVal value As DataTable) + Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa) + HttpContext.Current.Application(AppNombre) = value + End Set + End Property Property GlobalDTSubProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatus As Integer = -1) As DataTable Get diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 24541825a..82d3c75e9 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -4641,7 +4641,7 @@ Partial Class Bancos_IE trCuentaDeposito.Visible = True DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else - Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia) + Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) End If Else @@ -4649,25 +4649,12 @@ Partial Class Bancos_IE If Dep.DtResultados.Rows.Count > 0 Then trCuentaDeposito.Visible = True DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + End If End If - ''ANTIGUO - 'GVCuentasPago.DataSource = Dep.DtResultados - 'If Dep.DtResultados.Rows.Count > 1 Then - ' trCuentaDeposito.Visible = True - ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - ' 'Si tiene seleccionado Tipo Mov: Layout y no tiene cuenta deposito - 'ElseIf DdlTipoTransaccion.SelectedValue = "9" AndAlso Not Dep.DtResultados.Rows.Count > 0 Then - ' trCuentaDeposito.Visible = True - ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - - ' BtnIEGuardar.Enabled = False - ' UpGuardar.Update() - ' Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia) - 'End If End If Dep.Dispose() diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index 93a64cde4..90bbff120 100644 --- a/Bancos/PagoElectronico.aspx.vb +++ b/Bancos/PagoElectronico.aspx.vb @@ -801,7 +801,7 @@ Partial Class Bancos_PagoElectronico HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd")) 'Campo #5 del Header - Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").ToUpper.Trim + Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").Replace("\", "").Replace("-", "").Replace("&", "").Replace(",", "").Replace("+", "").Replace("_", "").ToUpper.Trim IdentificadoUsuario = If(IdentificadoUsuario.Length > 12, IdentificadoUsuario.Substring(0, 12), IdentificadoUsuario) ' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd"))) diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 62b657d9f..acf4a927d 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -966,16 +966,18 @@ Partial Class Bancos_PagoElectronicoGrupos RegistrosPago.Append("PSC") End If - If drow("CLABEOrigen").ToString.Trim.Length = 18 Then - RegistrosPago.Append(drow("CLABEOrigen").ToString) + If drow("CLABEOrigen").ToString.Trim.Length.Contiene(10, 18) Then + + RegistrosPago.Append(drow("CLABEOrigen").ToString.PadLeft(18, CeroRelleno)) + Else ErrorLayout = True MENSAJEError.AppendLine("ERROR EN CLABE cuenta origen") Exit For End If - If drow("CLABEDestino").ToString.Trim.Length = 18 Then - RegistrosPago.Append(drow("CLABEDestino").ToString) + If drow("CLABEDestino").ToString.Trim.Length.Contiene(10, 18) Then + RegistrosPago.Append(drow("CLABEDestino").ToString.PadLeft(18, CeroRelleno)) Else ErrorLayout = True MENSAJEError.AppendLine("ERROR EN CLABE cuenta destino") @@ -988,10 +990,22 @@ Partial Class Bancos_PagoElectronicoGrupos If drow("BancoNombre").ToString.ToUpper.Contains("BANCOMER") Or drow("BancoNombre").ToString.ToUpper.Contains("BBVA") Then - If drow("Observaciones").ToString.Trim.Length > 30 Then - RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30)) + + If drow("Observaciones").ToString.Trim.Length = 0 Then + + If drow("RazonSocial").ToString.Trim.Length > 30 Then + RegistrosPago.Append(drow("RazonSocial").ToString.Substring(0, 30)) + Else + RegistrosPago.Append(drow("RazonSocial").ToString.PadRight(30, EspacioRelleno)) + End If Else - RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno)) + + If drow("Observaciones").ToString.Trim.Length > 30 Then + RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30)) + Else + RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno)) + End If + End If Else diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index c608e31d7..e1909a2b2 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -942,7 +942,7 @@ Partial Class Bancos_PopIECompras DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else BtnGuardar.Enabled = False - Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia) + Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) End If Else diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 1f79da289..4fa513d66 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -2515,34 +2515,25 @@ Partial Class Bancos_ProveedoresAbonar DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else BtnIEGuardar.Enabled = False - Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia) + Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) End If - ElseIf DdlTipoTransaccion.SelectedValue = "17" Then + 'ElseIf DdlTipoTransaccion.SelectedValue = "17" Then - If Dep.DtResultados.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = Dep.DtResultados '.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'") - trCuentaDeposito.Visible = True - BtnIEGuardar.ToolTip = "" - Else - 'Alert("El proveedor no tiene cuentas deposito registradas.") + ' If Dep.DtResultados.Rows.Count > 0 Then + ' DdlCuentaDeposito.DataSource = Dep.DtResultados + ' trCuentaDeposito.Visible = True + ' BtnIEGuardar.ToolTip = "" + ' Else - BtnIEGuardar.Enabled = False - BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' BtnIEGuardar.Enabled = False + ' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + + ' End If - - End If - - 'If Dep.DtResultados.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'").Rows.Count > 0 Then - ' trCuentaDeposito.Visible = True - ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - 'Else - ' BtnIEGuardar.Enabled = False - ' Alert("El proveedor no tiene ninguna cuenta deposito registrada ", TipoMensaje.MsgAdvertencia) - 'End If - UpGuardar.Update() + ' UpGuardar.Update() Else DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'") If Dep.DtResultados.Rows.Count > 0 Then @@ -2559,19 +2550,19 @@ Partial Class Bancos_ProveedoresAbonar End If - Else + 'Else - If DdlTipoTransaccion.SelectedValue = "17" Then + ' If DdlTipoTransaccion.SelectedValue = "17" Then - BtnIEGuardar.Enabled = False - BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" - Else - BtnIEGuardar.Enabled = True - BtnIEGuardar.ToolTip = "" - End If + ' BtnIEGuardar.Enabled = False + ' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' Else + ' BtnIEGuardar.Enabled = True + ' BtnIEGuardar.ToolTip = "" + ' End If - UpGuardar.Update() + ' UpGuardar.Update() End If diff --git a/Bin/APP_Code_CSharp.dll b/Bin/APP_Code_CSharp.dll index 133af1af3..d7e9dd04b 100644 Binary files a/Bin/APP_Code_CSharp.dll and b/Bin/APP_Code_CSharp.dll differ diff --git a/Bin/APP_Code_CSharp.pdb b/Bin/APP_Code_CSharp.pdb index 54e2a37d6..5e43300c0 100644 Binary files a/Bin/APP_Code_CSharp.pdb and b/Bin/APP_Code_CSharp.pdb differ diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx index 8cfb6f104..ef2aec956 100644 --- a/CRM/Acercamiento.aspx +++ b/CRM/Acercamiento.aspx @@ -440,7 +440,8 @@
- + +
@@ -529,7 +530,7 @@
<%-- max-height: 410px;--%> -
+
@@ -551,7 +552,7 @@
+ Visible="true" runat="server" GridLines="None" AutoGenerateColumns="False" ShowHeader="False" CssClass="xspadding" OnRowDataBound="GvDatosTecnicos_RowDataBound"> @@ -625,7 +626,64 @@ - Cargar Archivo
+
+
+
+
+
+ + IMÁGENES +
+
+
+
+
+
+
+
+
+ Cargar Archivo
+
+
+
+
+ + +
+
+
+
+ + +
+
+
+ +
+
+
+
+ + Ver +
+
+
+
+
<%#Eval("Titulo").ToString() %>
+
<%# Eval("Descripcion").ToString() %>
+
+ + +
+
+ + +
+
+
+
+
+
- - -
-
-
-
- - -
-
-
- -
-
-
-
- - Ver -
-
-
-
-
<%#Eval("Titulo").ToString() %>
-
<%# Eval("Descripcion").ToString() %>
-
- - -
-
- - @@ -732,7 +759,7 @@
- @@ -785,7 +812,7 @@
- diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index bc1ce9c1a..3890d6dc8 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -278,11 +278,11 @@ public partial class CRM_Acercamiento : ClsPaginas if (CveAcercamiento > 0) { ClsCRM ObjCRM = new ClsCRM(); - + if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveAcercamiento: CveAcercamiento) && ObjCRM.DtResultados.Rows.Count > 0) { LblEncabezadoAcercamiento.Text = String.Format("{0}: {1}", ObjCRM.DtResultados.FiltroPrimeroValor("TipoProceso").ToUpper(), ObjCRM.DtResultados.FiltroPrimeroValor("NombreAcercamiento").ToUpper()); - + CveTipoProceso = ObjCRM.DtResultados.FiltroPrimeroValor("CveTipoProceso").ToEntero(); //SECCION DATOS DEL ACERCAMIENTO TxtNombreAcercamiento.Text = ObjCRM.DtResultados.FiltroPrimeroValor("NombreAcercamiento"); TxtDescripcion.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Descripcion"); @@ -294,10 +294,10 @@ public partial class CRM_Acercamiento : ClsPaginas DdlProbabilidadAcercamiento.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveProbabilidadAcercamiento")); DdlPrioridad.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("Prioridad")); + CargaDdl(); //SECCION DATOS DE LA EMPRESA DdlEmpresaCRM.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveEmpresaCRM")); //DdlContactoPrincipal.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveContactoPrincipal")); - //SECCION DATOS DEL PROCESO //DdlTipoProceso.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveTipoProceso")); DdlEtapaProceso.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveEtapaProcesoActual")); @@ -316,7 +316,7 @@ public partial class CRM_Acercamiento : ClsPaginas CveContactoPrincipal = (ObjCRM.DtResultados.FiltroPrimeroValor("CveTipoProceso").ToEntero() > 0) ? ObjCRM.DtResultados.FiltroPrimeroValor("CveContactoPrincipal").ToEntero() : -1; CveEtapaActual = ObjCRM.DtResultados.FiltroPrimeroValor("CveEtapaProcesoActual").ToEntero(); - CveTipoProceso = ObjCRM.DtResultados.FiltroPrimeroValor("CveTipoProceso").ToEntero(); + CveEncuestaProcesoCRM = (ObjCRM.DtResultados.FiltroPrimeroValor("CveEncuestaProcesoCRM").ToEntero() > 0) ? ObjCRM.DtResultados.FiltroPrimeroValor("CveEncuestaProcesoCRM").ToEntero() : -1; CveEncuestaAplicadaProceso = (ObjCRM.DtResultados.FiltroPrimeroValor("CveEncuestaAplicadaProceso").ToEntero() > 0) ? ObjCRM.DtResultados.FiltroPrimeroValor("CveEncuestaAplicadaProceso").ToEntero() : -1; @@ -366,7 +366,6 @@ public partial class CRM_Acercamiento : ClsPaginas } CargaImagenes(); - CargaDdl(); UpEncabezado.Update(); UPAcercamiento.Update(); diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index dfc7a457e..85ff85b65 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -226,7 +226,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas CreoCliente = false; RecuperaCve(); CargaTipoProceso(); - CargaMetodosCaptacion(); + //CargaMetodosCaptacion(); CargaVendedores(); CargaSucursales(); CargarTiposEventos(); @@ -248,7 +248,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas ClsOIEventos ObjBitacora = new ClsOIEventos(ObjCRM.IniciaTransacSQL()); ClsEncuestas ObjDatosTecnicos = new ClsEncuestas(ObjCRM.IniciaTransacSQL()); - Boolean HuboError = true; + Boolean HuboError = false; String NombreEmpresa = TxtNombreEmpresa.Text; String RFC = TxtRFC.Text; @@ -619,6 +619,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas TxtNombreEmpresa.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Empresa"); TxtRFC.Text = ObjCRM.DtResultados.FiltroPrimeroValor("RFC"); + DdlTipoPrceso2.SelectedValue = ObjCRM.DtResultados.FiltroPrimeroValor("CveTipoProceso"); + CargaMetodosCaptacion(); TxtCorreoEmpresaCRM.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Correo"); DdlMedioCaptacion.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveMedioCaptacion")); @@ -1328,8 +1330,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas if (ObjCRM.GetProbabilidadAcercamiento(UsuarioActual.CveEmpresa, 1)) { - DdlProbabilidadAcercamiento.DataSource = ObjCRM.DtResultados; - DdlProbabilidadAcercamiento.DataBind(); + //DdlProbabilidadAcercamiento.DataSource = ObjCRM.DtResultados; + //DdlProbabilidadAcercamiento.DataBind(); DdlProbabilidadAcercamiento.Items.Insert(0, new ListItem("Seleccione ", "-1")); DtProbabilidadAcercamiento = ObjCRM.DtResultados; diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 0c179b104..3ee0444fd 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -1944,141 +1944,86 @@
- - <%-- - - - - --%> + - - <%-- - - --%> + - - <%-- - - - --%> + - - <%-- - - AndAlso Eval("Referencia") IsNot "" - - --%> + - - <%-- - - --%> + - - <%-- - - --%> + - - <%-- - - - --%> + - - <%-- - - - --%> + - <%-- - - --%> + - - <%-- - - - - --%> - - <%-- - - - '> - - --%> + + - - + - - <%-- - - --%> + + + + + + + + + + + + + + - <%-- - - - - <%-- - - - - - - - - - - - --%> + @@ -3643,17 +3588,57 @@
-
- - - - -
-
- - +
+
+
+ + + + +
+
+
+
+ + +
+ +
+
+
+
+ + +
+
+
+ +
+ + + + +
+ +
+
+ + +
+ + + Seleccione uno + + + + + +
+ + +
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 6e1e76ea6..6d29fb43a 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -776,9 +776,30 @@ Partial Class Compras_Proveedores End Function Private Sub CargaCombos() + CargaResponsable() CargaClasificacionProveedor() CargaUsuarioEvaluacionProveedor() + CargaBancosSAT() + + End Sub + + + Private Sub CargaBancosSAT() + + Dim ObjBancos As New ClsBancos + + If ObjBancos.GetBancosSAT Then + DdlSatBanco.DataSource = ObjBancos.DtResultados + End If + + ObjBancos.Dispose() + + DdlSatBanco.DataBind() + DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + + End Sub Private Function CargaDatos() As Boolean @@ -1640,7 +1661,9 @@ Partial Class Compras_Proveedores ''Agregar Cuentas Bancarias If TempDTCuentasBancos.Rows.Count > 0 Then For Each row As DataRow In TempDTCuentasBancos.Rows - If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString) Then + If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, + CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString, + EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString), EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), CveSATBanco:=row("CveSATBanco").ToString.ToEntero) Then ErrorBancos = True End If Next @@ -3036,6 +3059,7 @@ Partial Class Compras_Proveedores CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) RecargaGlobalCuentasBancarias() + End Sub Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) @@ -3045,19 +3069,6 @@ Partial Class Compras_Proveedores EsBancomer = True End If - ''COMENTADO PARA PERMITIR ENTRADA DE UNA CUENTA A PROVEEDOR, 22 DE SEPTIEMBRE, ISRAEL PIÑA - 'If EsBancomer AndAlso (TxtCLABE.Text.Length = 18 AndAlso Not TxtCLABE.Text.Substring(0, 3) = "012") Then - ' Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If - - ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE - 'If (TxtCLABE.Text.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And TxtConvenioCIE.Text.Trim.Length <> 6 And TxtCLABE.Text.Trim.Length <> 18) Then - ' Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If - - 'RESTRICCIONES GENERALES 'QUE TENGA ALGUN DATO DE TIPO DE CUENTA @@ -3111,15 +3122,19 @@ Partial Class Compras_Proveedores Dim Estatus As Boolean If ChkEstatus.Checked = True Then Estatus = True Else Estatus = False - AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim, DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text) + AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim, + DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text, ChkPagoElectronico.Checked, ChkPagoElectronicoGrupos.Checked, DdlSatBanco.SelectedValue.ToEntero) End Sub - Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String) + + Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, + CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer) Dim ObjCuentasBancos As New ClsGenerales If Modalidad = "A" Then If CveProveedor > 0 Then - If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor, Correo:=Correo, BBVAAlias:=BBVAAlias) Then + If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor, + Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then DTCuentasBancos.Clear() DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion) @@ -3143,10 +3158,14 @@ Partial Class Compras_Proveedores Row("RefCrediProveedor") = RefCrediProveedor Row("CveMoneda") = CveMoneda Row("Moneda") = Moneda - Row("EstatusPagoElectronico") = 0 + Row("EstatusPagoElectronico") = EstatusPagoElectronico + Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos Row("Estatus") = "True" Row("Correo") = Correo + Row("CveSATBanco") = CveSATBanco + TempDTCuentasBancos.Rows.Add(Row) + Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias")) @@ -3157,7 +3176,8 @@ Partial Class Compras_Proveedores If CveProveedor > 0 Then - If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias) Then + If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, + False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then DTCuentasBancos.Clear() DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion) @@ -3181,8 +3201,12 @@ Partial Class Compras_Proveedores Row("RefCrediProveedor") = RefCrediProveedor Row("CveMoneda") = CveMoneda Row("Moneda") = Moneda + Row("EstatusPagoElectronico") = EstatusPagoElectronico + Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos Row("Estatus") = Estatus Row("Correo") = Correo + Row("CveSATBanco") = CveSATBanco + TempDTCuentasBancos.AcceptChanges() Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias")) @@ -4673,6 +4697,13 @@ Partial Class Compras_Proveedores TxtBBVAAlias.Text = "" ChkEstatus.Checked = True divestatus.Visible = False + + ChkPagoElectronico.Checked = False + ChkPagoElectronicoGrupos.Checked = False + DdlSatBanco.SelectedValueExist("-1") + + DVDdlSatBanco.Visible = False + UpAddBancos.Update() RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias")) End Sub @@ -4697,6 +4728,15 @@ Partial Class Compras_Proveedores ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) divestatus.Visible = True UpAddBancos.Update() + + ChkPagoElectronico.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronico").ToString) + ChkPagoElectronicoGrupos.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronicoGrupos").ToString) + DdlSatBanco.SelectedValueExist(GvRow.DataKey("CveSATBanco")) + + If ChkPagoElectronicoGrupos.Checked Then + DVDdlSatBanco.Visible = True + End If + RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias")) End Sub @@ -6153,6 +6193,24 @@ Partial Class Compras_Proveedores #End Region + Protected Sub ChkPagoElectronicoGrupos_CheckedChanged(sender As Object, e As EventArgs) + + If ChkPagoElectronicoGrupos.Checked Then + DVDdlSatBanco.Visible = True + Else + DVDdlSatBanco.Visible = False + End If + + UpAddBancos.Update() + End Sub + + Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs) + + If ChkPagoElectronico.Checked Then + Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la platoforma", TipoMensaje.MsgAdvertencia) + End If + + End Sub End Class diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 9781142c1..b124bd0a3 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1939,8 +1939,8 @@ Partial Class Contratos_Default LimitarCantidad = Gv.Rows(e.RowIndex).FCCheckBox("ChkLimitarCantidad").Checked Observaciones = Gv.Rows(e.RowIndex).FCTextBox("TxtObservacion").Text.ToString Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalle))(0) - - If row("CantidadContratada").ToString.ToEntero <> Cantidad OrElse row("PU").ToString.ToEntero <> PU OrElse CveUM <> row("CveUM").ToString.ToEntero OrElse row("NoIdentificacion").ToString <> NoIdentificacion OrElse row("OCInterna").ToString <> OCInterna Then + Dim LimitarCantidadValidator As Boolean = row("LimitarCantidad").ToString = "True" + If row("CantidadContratada").ToString.ToEntero <> Cantidad OrElse row("PU").ToString.ToEntero <> PU OrElse CveUM <> row("CveUM").ToString.ToEntero OrElse row("NoIdentificacion").ToString <> NoIdentificacion OrElse row("OCInterna").ToString <> OCInterna OrElse LimitarCantidadValidator <> LimitarCantidad Then Dim ObjContratos As New ClsContratos If ObjContratos.UpdateContratosDetalle(CveContratoDetalle, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, LimitarCantidad, OCInterna, Observaciones) Then @@ -2922,9 +2922,9 @@ Partial Class Contratos_Default End If - If e.Row.DBCampo("SerieLote").ToString = "-1" Then - e.Row.Cells(7).Text = "" - End If + 'If e.Row.DBCampo("SerieLote").ToString = "-1" Then + ' e.Row.Cells(7).Text = "" + 'End If End If End Sub @@ -3417,7 +3417,7 @@ Partial Class Contratos_Default Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click If TxtExcel.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtExcel.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") CargarArchivo(Directorio, file.filename, Tipo) Else @@ -3741,7 +3741,7 @@ Partial Class Contratos_Default #Region " IMPRIMIR DOCUMENTO - SABE " Public Sub DescarFormato(documento As String) - Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas + Dim PathRoot As String = Server.MapPath("/") Dim PathSource As String Dim pathDesti As String diff --git a/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc b/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc index 88c183ef4..ed799ade7 100644 --- a/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc +++ b/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc @@ -6,25 +6,25 @@ - 3.2cm + 3.11227cm - 2cm + 2.2618cm - 2cm + 2.38704cm - 4.8cm + 2.96454cm - 4.3cm + 4.68704cm - 2.5cm + 2.88704cm - 2cm + 2.38704cm @@ -347,7 +347,6 @@ 2pt - true @@ -551,7 +550,7 @@ 0.14111cm 0.01325cm 0.84438cm - 20.8cm + 20.68675cm @@ -565,7 +564,7 @@ 8.23098in - 3.67911cm + 3.71891cm true true @@ -917,6 +916,47 @@ 2pt + + true + true + + + + + Usuario Entrego: + + + + =Parameters!FiltroUsuario.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + - Paqueterías Guías + <%--Paqueterías Guías--%>Entrega Local @@ -30,7 +30,7 @@ - +
Guías Vinculadas<%--Guías Vinculadas--%> Entrega Local
diff --git a/General/PopUpPaqueteriasGuiasInternas.aspx b/General/PopUpPaqueteriasGuiasInternas.aspx new file mode 100644 index 000000000..9b0b9d319 --- /dev/null +++ b/General/PopUpPaqueteriasGuiasInternas.aspx @@ -0,0 +1,127 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="PopUpPaqueteriasGuiasInternas.aspx.cs" Inherits="General_PopUpPaqueteriasGuiasInternas" %> + + + + + + + + + <%--Paqueterías Guías--%>Entrega Interna + + + + + + + + + + + + + + +
<%--Guías Vinculadas--%> Entrega Local
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Estatus: + + <%-- --%> + + + + + + <%-- + --%> +
Fecha: +
+ + + + + + + + + +
+
Fecha Estimada: +
+ + + + + + + +
+
# Cajas: + + +
Observaciones: + +
+ + + + +
+ + + + + + diff --git a/General/PopUpPaqueteriasGuiasInternas.aspx.cs b/General/PopUpPaqueteriasGuiasInternas.aspx.cs new file mode 100644 index 000000000..da9c3af0c --- /dev/null +++ b/General/PopUpPaqueteriasGuiasInternas.aspx.cs @@ -0,0 +1,136 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; +using System.Data; +using System.Text; + +public partial class General_PopUpPaqueteriasGuiasInternas : ClsPaginas +{ + private int CveVenta + { + get + { + return ViewState["CveVenta"].ToString().ToEntero(); + } + + set + { + ViewState["CveVenta"] = value; + } + } + + private int CveSubProyecto + { + get + { + return ViewState["CveSubProyecto"].ToString().ToEntero(); + } + + set + { + ViewState["CveSubProyecto"] = value; + } + } + + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + ((BaseMasterPage)this.Master).EsPopup = true; + RecuperaCve(); + } + } + + protected void RecuperaCve() + { + if (Request["CveVenta"] != null && !Request["CveVenta"].ToString().Equals("") && Request["CveVenta"].ToEntero() > 0) + { + ViewState["CveVenta"] = Request["CveVenta"]; + } + else + { + ViewState["CveVenta"] = -1; + } + + if (Request["CveSubProyecto"] != null && !Request["CveSubProyecto"].ToString().Equals("") && Request["CveSubProyecto"].ToEntero() > 0) + { + ViewState["CveSubProyecto"] = Request["CveSubProyecto"]; + } + else + { + ViewState["CveSubProyecto"] = -1; + } + } + + protected void LimpiaCampos() + { + DdlEstatus.SelectedValue = "1"; + TxtFecha.Text = ""; + TxtFechaEstimada.Text = ""; + TxtNoCajas.Text = ""; + TxtObservaciones.Text = ""; + } + + protected void AgregarNuevaGuia() + { + ClsGenerales ObjGeneral = new ClsGenerales(); + + Boolean TieneError = false; + + ObjGeneral.IniciaTransacSQL(); + + int CveEstatus = DdlEstatus.SelectedValue.ToEntero(); + + String Fecha = TxtFecha.Text; + String FechaEstimada = TxtFechaEstimada.Text == "" ? "-1" : TxtFechaEstimada.Text; + + int NoCajas = TxtNoCajas.Text.ToEntero(); + + String Observaciones = TxtObservaciones.Text; + + int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:true); + + if (CvePaqueteriaGuia > 0) + { + if (CveVenta > 0 || CveSubProyecto > 0 ) + { + TieneError = !ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, CveSubProyecto, -1); + } + } + else + { + TieneError = true; + } + + if (TieneError) + { + ObjGeneral.RollBack(); + }else + { + ObjGeneral.Commit(); + LimpiaCampos(); + Alert("Se agrego la paquetería guía correctamente"); + } + ObjGeneral.Dispose(); + } + + public void BtnAgregarGuia_Click(Object sender, EventArgs e) + { + + } + + public void BtnCrearGuia_Click(Object sender, EventArgs e) + { + AgregarNuevaGuia(); + } + + public void BtnLimpiar_Click(Object sender,EventArgs e) + { + LimpiaCampos(); + } +} \ No newline at end of file diff --git a/General/RepPaqueteriasGuias.aspx b/General/RepPaqueteriasGuias.aspx index 9eb0e6564..b13c27470 100644 --- a/General/RepPaqueteriasGuias.aspx +++ b/General/RepPaqueteriasGuias.aspx @@ -167,6 +167,11 @@ + + +
+ +
diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index 9fcbd9d2b..ba858b386 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -162,7 +162,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas CargaPaqueterias(); CargaPaqueteriasGuiasTipo(); InicializaFechas(); - + CargaUsuarios(); UPFiltros.Update(); if (!UsuarioActual.TienePermisoProceso(219)) @@ -231,6 +231,13 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas DdlEstatusEditar.SelectedValue = "-1"; } + private void CargaUsuarios() + { + DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa); + DdlUsuarios.DataBind(); + DdlUsuarios.Items.Insert(0, new ListItem("Seleccione ", "-1")); + } + protected void InicializaFechas() { DateTime FI = new DateTime(DateTime.Now.Year, 1, 1); @@ -254,6 +261,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas int CveSubProyecto = DdlSucursales.SelectedValue.ToEntero(); int CveEmpresa = UsuarioActual.CveEmpresa; int Filtro = DdlFiltro.SelectedValue.ToEntero(); + int CveUsuarioEntrega = DdlUsuarios.SelectedValue.ToEntero(); String Guia = "-1"; String FechaInicio = TxtFechaI.Text == "" ? "-1" : TxtFechaI.Text; @@ -262,7 +270,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas String FechaIngInicio = TxtFechaInicialIngreso.Text == "" ? "-1" : TxtFechaInicialIngreso.Text; String FechaIngFin = TxtFechaFinalIngreso.Text == "" ? "-1" : TxtFechaFinalIngreso.Text; - if (ObjGeneral.GetPaqueteriasGuias(CvePaqueteriaGuia, CvePaqueteriaGuiaTipo, CvePaqueteria, CveEstatus, CveSubProyecto, CveEmpresa, Guia, FechaInicio, FechaFin, FechaIngInicio, FechaIngFin, Filtro: Filtro)) + if (ObjGeneral.GetPaqueteriasGuias(CvePaqueteriaGuia, CvePaqueteriaGuiaTipo, CvePaqueteria, CveEstatus, CveSubProyecto, CveEmpresa, Guia, FechaInicio, FechaFin, FechaIngInicio, FechaIngFin, Filtro: Filtro, CveUsuarioEntrega: CveUsuarioEntrega)) { DTDatos = ObjGeneral.DtResultados; GVDatos.DataSource = DTDatos; @@ -803,6 +811,9 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString())); @params.Add(new ReportParameter("Filtros", String.Format(" Sucursal: {0}  Estatus: {1}  Paquetería: {2}
Fecha Inicio: {3}  Fecha Fin: {4}", Sucursal, Estatus, Paqueteria, FechaInicio, FechaFinal))); + string Usuario = DdlUsuarios.SelectedValue == "-1" ? "" : DdlUsuarios.SelectedItem.Text; + @params.Add(new ReportParameter("FiltroUsuario", Usuario)); + if (Imagen.Exists) { @params.Add(new ReportParameter("LogoPath", logouri)); diff --git a/Imagenes/Bell.png b/Imagenes/Bell.png new file mode 100644 index 000000000..352602b08 Binary files /dev/null and b/Imagenes/Bell.png differ diff --git a/Inicio.aspx b/Inicio.aspx index 6ccfe6a7b..b45294990 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -3,6 +3,11 @@ @@ -48,7 +48,7 @@ -
  • +
  •  
    • @@ -64,10 +64,12 @@
    • Cliente: + <%----%>
    • Serie-Folio: + @@ -117,7 +119,7 @@
    - +
    @@ -172,7 +174,7 @@
    -
    Cliente: @@ -127,7 +129,7 @@
    Folio: - + <%----%>
    +
    - - - + + + - + - + + + +
    Almacén: @@ -191,7 +193,7 @@ - + @@ -214,13 +216,13 @@
    Transitorio: +
    Transitorio: -
    @@ -229,12 +231,21 @@
    - +
    +
    + + + +
    +
    @@ -269,6 +280,7 @@   + Sucursal: @@ -298,7 +310,7 @@ - + @@ -329,7 +341,7 @@ - + <%--ADVERTENCIA--%>
    @@ -341,20 +353,20 @@
    - - - - - - - - - - - - - - + + + + + + + + + + + + + +
    @@ -410,14 +422,14 @@
    -
    - -
    +
    + +
    <%--GV DATOS--%> - @@ -428,11 +440,11 @@     - + - + @@ -440,8 +452,8 @@ - - + + @@ -450,7 +462,7 @@ - + @@ -459,12 +471,12 @@ - - - - - - + + + + + + @@ -655,7 +667,7 @@ - + @@ -699,6 +711,7 @@
    Cantidad +
    @@ -740,6 +753,7 @@
    		Cant.: +
    @@ -760,7 +774,7 @@ - +
    +
    + +
    - - + + @@ -782,11 +799,14 @@
    - +
    + + + @@ -818,7 +838,7 @@ $('#TxtCodigoPS').focus() } - + function playsonidito(NomArchivo) { var URL = /Sonidos/ + NomArchivo @@ -827,7 +847,7 @@ snd.currentTime = 0; } - + function CantidadEspecial() { MuestraCantidadEspecial(); //$('#ModalCantidad').modal('show'); diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index c092d7182..d67ae98cc 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -7,6 +7,8 @@ Imports System.Linq Imports CrystalDecisions.[Shared].Json Imports Extensiones +Imports Microsoft.Reporting.WebForms + Partial Class Inventarios_EntregaAlmacen Inherits ClsPaginas @@ -3064,8 +3066,37 @@ Partial Class Inventarios_EntregaAlmacen End If End Sub + Protected Sub BtnImprimirSugerencias_Click(sender As Object, e As EventArgs) + Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa) + Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) + + Dim params As New List(Of ReportParameter) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) + + ImprimirPDF("Empresas/Grales/Formatos/RepEntregaAlmacenSugerencia.rdlc", DtDatosSugerencias, params, "Equipo GPS") + End Sub + +#End Region + +#Region "TipoEntrega" + + Protected Sub EntregaRadioGroup_Click(sender As Object, e As EventArgs) + If RbEntregaExterna.Checked Then + RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')") + ElseIf RbEntregaInterna.Checked Then + RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')") + 'CveVentaSurtir + End If + End Sub + #End Region - End Class diff --git a/Inventarios/EntregasPorRealizar.aspx b/Inventarios/EntregasPorRealizar.aspx new file mode 100644 index 000000000..9b5943b7e --- /dev/null +++ b/Inventarios/EntregasPorRealizar.aspx @@ -0,0 +1,102 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="EntregasPorRealizar.aspx.cs" Inherits="Inventarios_EntregasPorRealizar" %> + + + + + + + + + <%--Paqueterías Guías--%>Entrega Interna + + + + + + + + + + +
    +
    +
    + + +
    +
    +
    +
    PERSONAL QUE ENTREGA:
    +
    + +
    +
    +
    +
    +
    +     +     + + + +
    +
    + + ASIGNACIÓN DE ENTREGAS +
    +
    + +
    +
    +
    + + + + +   + + + + +   + + + + + +   + + + + +   + + + + +   + + + + +
    +     +     +     +     + + diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs new file mode 100644 index 000000000..bf831e4e3 --- /dev/null +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -0,0 +1,79 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using System.Data; +using Extensiones; + +public partial class Inventarios_EntregasPorRealizar : ClsPaginas +{ + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + CargarEntregas(); + CargarPersonal(); + } + } + + protected void BtnAsignar_Click(object sender,EventArgs e) + { + if (DdlUsuario.SelectedValue.ToEntero() > 0) + { + bool TieneError = false; + ClsGenerales ObjGeneral = new ClsGenerales(); + ObjGeneral.IniciaTransacSQL(); + GridViewRowCollection Grid = GvPaqueteriasGuias.Rows; + + foreach (GridViewRow row in Grid) + { + if (row.FCCheckBox("ChkAsigna").Checked) + { + int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero(); + int CvePersonal = DdlUsuario.SelectedValue.ToEntero(); + + if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal)){ + TieneError = true; + } + } + } + + if (!TieneError) + { + ObjGeneral.Commit(); + Alert("Entregas asignadas correctamente"); + CargarEntregas(); + UpDatos.Update(); + } + else + { + ObjGeneral.RollBack(); + } + ObjGeneral.Dispose(); + } + else + { + Alert("Seleccione a alguien del personal",ModExtensiones.TipoMensaje.MsgAdvertencia); + } + } + + private void CargarEntregas() + { + ClsGenerales ObjGeneral = new ClsGenerales(); + if (ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa)) + { + GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados; + GvPaqueteriasGuias.DataBind(); + } + ObjGeneral.Dispose(); + } + + private void CargarPersonal() + { + DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); + DdlUsuario.DataBind(); + DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1")); + } +} \ No newline at end of file diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 0d8762b4d..55ee7d78a 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1419,13 +1419,22 @@ Partial Class Inventarios_TraspasoAlmacen CargaRecepcion() End Sub Private Sub CargaRecepcion() - Dim ObjInventarios As New ClsInventarios + Dim Dtt As DataTable = Nothing FolioBusqueda = If(TxtFolioRecepcion.Text = "", -1, TxtFolioRecepcion.Text.ToEntero) + Dim ObjInventarios As New ClsInventarios If ObjInventarios.GetMovimientosTransitorios(DdlAlmacenRecepcion.SelectedValue.ToEntero, -1, DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero, -1, FolioBusqueda, UsuarioActual.CveEmpresa) Then Dtt = ObjInventarios.DtResultados.FiltraParametros(String.Format("CveTipoAlmacenDestino <> 4")) + Else + Alert("Ocurrió un error al consultar los movimientos transitorios. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia) + Dtt = Nothing + End If + ObjInventarios.Dispose() + + If Dtt IsNot Nothing Then + If TxtFolioRecepcion.Text.Trim <> "" Then CveMovimientoSalida = ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimiento", "").ToEntero @@ -1433,14 +1442,7 @@ Partial Class Inventarios_TraspasoAlmacen CveAlmacenDestino = DdlAlmacenRecepcion.SelectedValue.ToEntero CveAlmacenTransitorio = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero 'CveUsuarioResponsable = DdlResponsableRecepcion.SelectedValue.ToEntero - Else - Alert("Ocurrió un error al consultar los movimientos transitorios. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia) - Dtt = Nothing - End If - ObjInventarios.Dispose() - - If Dtt IsNot Nothing Then GvDatosRecepcion.DataSource = Dtt GvDatosRecepcion.DataBind() diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 1c595f300..7784cd01c 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -1,490 +1,495 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOC.aspx.vb" Inherits="RepOC" %> - - - - - - - - - - - - - - -
  • - PDF por Atender -
    • -     - - - -     -
  • - Excel por Atender -
    • -
  • - Excel Pendientes -
    • -
  • - Excel -
    • -     - - - - - -     -
  • - Reporte Semanal -
    • - - - -     - - - Reporte de Requisiciones y Ordenes de Compra - - - - - - - -
    -
    -
    - - - "> - -
    -
    -
    -
    - - -
    -
    - - - - - - -
    - -
    - - -
    - -
    - - -
    -
    - - - -
    -
    -
    -
    -
    > -
    -
    - -
    - - -
    -
    - -
    - - -
    - -
    -
    - - - - -
    - - - - - - -
    - -
    -
    - - - - -
    - - - - - - -
    -
    -
    - -
    - - -
    - -
    - -
    -
    - - -
    -
    -
    - -
    - -
    - -
    - -
    -
    -
    -
    -     -     -
    - - - -
    -
    -
    -
    - -
    -
    -
    -
    -
    -

    - $ - - - -

    - TOTAL ORDENES DE COMPRA -
    -
    - -
    -
    -
    -
    -
    - -
    -
    - " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - -
    - " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - -
    - " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    -
    -
    -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOC.aspx.vb" Inherits="RepOC" %> + + + + + + + + + + + + + + +
  • + PDF por Atender +
    • +     + + + +     +
  • + Excel por Atender +
    • +
  • + Excel Pendientes +
    • +
  • + Excel +
    • +     + + + + + +     +
  • + Reporte Semanal +
    • + + + +     + + + Reporte de Requisiciones y Ordenes de Compra + + + + + + + +
    +
    +
    + + + "> + +
    +
    +
    +
    + + +
    +
    + + + + + + +
    + +
    + + +
    + +
    + + +
    +
    + + + +
    +
    +
    +
    +
    > +
    +
    + +
    + + +
    +
    + +
    + + +
    + +
    + + +
    + +
    +
    + +
    + + +
    + +
    + +
    + +
    +
    + + + + +
    + + + + + + +
    + +
    +
    + + + + +
    + + + + + + +
    +
    +
    + +
    + +
    + +
    + +
    +
    + +
    +
    +
    +
    +     +     +
    + + + +
    +
    +
    +
    + +
    +
    +
    +
    +
    +

    + $ + + + +

    + TOTAL ORDENES DE COMPRA +
    +
    + +
    +
    +
    +
    +
    + +
    +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    +
    +
    +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + - + +     diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index a06502eed..f945d7c81 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -95,7 +95,12 @@ Partial Class RepOC Protected Sub CargaUsuarios() ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) ddlUsuario.DataBind() - ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1")) + ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1")) + + DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) + DdlUsuarioAutorizo.DataBind() + DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub Protected Sub CargaProveedores() ddlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) @@ -313,7 +318,7 @@ Partial Class RepOC If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, - SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then + SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero()) Then GvConsultar.DataSource = OC.DtResultados DtOC = OC.DtResultados diff --git a/OI/ConvocatoriaDetalle.aspx b/OI/ConvocatoriaDetalle.aspx index 0e8410a54..7c1aed61c 100644 --- a/OI/ConvocatoriaDetalle.aspx +++ b/OI/ConvocatoriaDetalle.aspx @@ -127,13 +127,22 @@ + Convocatoria - -
  • Actualizar Participantes
    • + +
  • + Actualizar Participantes +
    • +
  • + Asistencia +
    • +
  • + Enviar correo +
    • @@ -141,10 +150,10 @@ - +
    -
    +
    @@ -159,7 +168,7 @@
    - +
    @@ -189,6 +198,12 @@
    + +
    + + + +
    <%----%> @@ -214,13 +229,13 @@
    -
    + - + + @@ -465,10 +532,10 @@ } function showhideUser2() { - let strusuario = usuariotext.length > 0 ? ' td:nth-child(3):contains("' + usuariotext + '")' : '';// td:nth-child(2) + let strusuario = usuariotext.length > 0 ? ':contains("' + usuariotext + '")' : '';// td:nth-child(2) $('.GVUsuarios tr.items').attr('hide', '1')//oculto todos - $('.GVUsuarios tr.items' + strusuario).closest('tr').attr('hide', '');//muestro los que tienen filtro con usuario + $('.GVUsuarios tr.items' + strusuario).attr('hide', '');//muestro los que tienen filtro con usuario } function TxtUsuario_Onchange() { @@ -489,11 +556,11 @@ function showhideUser() { let strCveRol = CveRol > 0 ? '[data-rol="' + CveRol + '"]' : ''; let strCveSucursal = CveSucursal > 0 ? '[data-sucursal="' + CveSucursal + '"]' : ''; - let strusuario = usuariotext.length > 0 ? ' td:nth-child(3):contains("' + usuariotext + '")' : '';// td:nth-child(2) + let strusuario = usuariotext.length > 0 ? ':contains("' + usuariotext + '")' : '';// td:nth-child(2) $('.GVUsuarios tr.items').attr('hide', '1')//oculto todos if (strusuario.length > 0) { - $('.GVUsuarios tr.items' + strCveRol + strCveSucursal + strusuario).closest('tr').attr('hide', '');//muestro los que tienen filtro con usuario,sucursal y rol + $('.GVUsuarios tr.items' + strCveRol + strCveSucursal + strusuario).attr('hide', '');//muestro los que tienen filtro con usuario,sucursal y rol } else { $('.GVUsuarios tr.items' + strCveRol + strCveSucursal).attr('hide', '');//muestro los que tienen filtro con sucursal y rol diff --git a/OI/ConvocatoriaDetalle.aspx.cs b/OI/ConvocatoriaDetalle.aspx.cs index 7bc0d0027..c4f84764d 100644 --- a/OI/ConvocatoriaDetalle.aspx.cs +++ b/OI/ConvocatoriaDetalle.aspx.cs @@ -11,8 +11,10 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas { #region Propiedades - public const string iddivAgregarTema = "divModalAgregartema"; + public const string iddivAgregarTema = "divModalAgregartema"; + public const string iddivTomarAsistencia = "iddivTomarAsistencia"; public const string iddivAgregarMiembros = "iddivAgregarMiembros"; + public int CveEventoMinuta { get { return ViewState["CveEventoMinuta"] != null ? ViewState["CveEventoMinuta"].ToString().ToEntero() : 0; } set { ViewState["CveEventoMinuta"] = value; } } public int RCveEvento { get { return ViewState["RCveEvento"] != null ? ViewState["RCveEvento"].ToString().ToEntero() : 0; } set { ViewState["RCveEvento"] = value; } } public int RCveEventoPadre { get { return ViewState["RCveEventoPadre"] != null ? ViewState["RCveEventoPadre"].ToString().ToEntero() : 0; } set { ViewState["RCveEventoPadre"] = value; } } public bool EsNuevo { get { return Convert.ToBoolean(ViewState["EsNuevo"]); } set { ViewState["EsNuevo"] = value; } } @@ -30,18 +32,19 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas cargaUsuarios(); if (Request["CveEvento"] != null) - { - RCveEvento = Request["CveEvento"].ToString().ToEntero(); + { + RCveEvento = Request["CveEvento"].ToString().ToEntero(); } if (Request["CveEventoPadre"] != null) { - - RCveEventoPadre = Request["CveEventoPadre"].ToString().ToEntero(); + + RCveEventoPadre = Request["CveEventoPadre"].ToString().ToEntero(); } if (RCveEvento > 0) { + LnkEnviarCorreo.Visible = true; EsNuevo = false; - LnkGuardar.Visible = false; + //LnkGuardar.Visible = false; loadConvocatoria(); } } @@ -79,6 +82,8 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas { System.Data.DataRow drow = ObjOI_E.DtResultados.Rows[0]; CveEventoHijo = drow["CveEvento"].ToString().ToEntero(); + CveEventoMinuta = drow["CveEvento"].ToString().ToEntero(); + LnkOpenModalAsistencia.Visible = true; } if (ObjOI_E.GetEventos2(RCveEvento, UsuarioActual.CveEmpresa) && ObjOI_E.DtResultados.Rows.Count > 0) { @@ -87,6 +92,8 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas pnlmiembrosvista.Visible = true; TxtAsunto.Text = drow["Asunto"].ToString(); TxtDescripcion.Text = drow["Descripcion"].ToString(); + TxtAsistentesExternos.Text = drow["Asistencia"].ToString(); + TxtDuracion.Text = drow["Duracion"].ToString(); DdlPrioridad.SelectedValueExist(drow["Prioridad"].ToString()); txtFechaI.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaInicio"]); txtFechaF.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaFin"]); @@ -98,7 +105,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas CveUsuarioDe = drow["CveUsuarioDe"].ToString().ToEntero(); int CveEventoEstatus = drow["CveEventoEstatus"].ToString().ToEntero(); bool permisoeditar = UsuarioActual.CveUsuario == CveUsuarioDe || UsuarioActual.CveUsuario == CveUsuarioIng; - LnkIniciar.Visible = permisoeditar && (CveEventoHijo <0); + LnkIniciar.Visible = permisoeditar && (CveEventoHijo <= 0); HypIrMinuta.Visible = (CveEventoHijo > 0); HypIrMinuta.NavigateUrl = string.Format("/OI/MinutaDetalle.aspx?CveEvento={0}", CveEventoHijo); TxtAsunto.Enabled = permisoeditar; @@ -196,7 +203,6 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarMiembros)); LtlTituloUsuarios.Text = "Actualizar miembros"; BtnUpMiembros.Visible = true; - BtnReasignarTarea.Visible = false; DdlModera.SelectedValueExist(CveUsuarioDe.ToString()); foreach (GridViewRow gvRow in GVUsuarios.Rows) { @@ -208,8 +214,8 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas chkCCpara.Enabled = true; - if ( (CveUsuario == CveUsuarioDe)) - { + if ((CveUsuario == CveUsuarioDe)) + { if (CveUsuario == CveUsuarioDe) { chkCCpara.Checked = true; @@ -233,8 +239,8 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas { if (gvRow.RowType == DataControlRowType.DataRow) { - int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); - CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); + int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); + CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); if (chkCCpara.Checked) { listaCCP.Add(CveUsuario); @@ -270,84 +276,85 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas protected void LnkGuardar_Click(object sender, EventArgs e) { string errorMessage = ""; - if (EsNuevo) + + int cveUsuarioDe = DdlModerador.SelectedValue.ToEntero(); + List listaCCP = new List(); + int cveUsuarioPara = -1; + //string Nombrepara = ""; + string Nombrede = ""; + foreach (GridViewRow gvRow in GVUsuariosB.Rows) { - int cveUsuarioDe = DdlModerador.SelectedValue.ToEntero(); - List listaCCP = new List(); - int cveUsuarioPara = -1; - //string Nombrepara = ""; - string Nombrede = ""; - foreach (GridViewRow gvRow in GVUsuariosB.Rows) + if (gvRow.RowType == DataControlRowType.DataRow) { - if (gvRow.RowType == DataControlRowType.DataRow) + int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); + CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); + if (CveUsuario == cveUsuarioDe) { - int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); - CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); - if (CveUsuario == cveUsuarioDe) - { - Nombrede = gvRow.DataKey("Nombre").ToString(); - } - if (chkCCpara.Checked) - { - listaCCP.Add(CveUsuario); - //cveUsuarioDe = CveUsuario; - } + Nombrede = gvRow.DataKey("Nombre").ToString(); + } + if (chkCCpara.Checked) + { + listaCCP.Add(CveUsuario); + //cveUsuarioDe = CveUsuario; } } - OITipoEventos cveTipoEvento = OITipoEventos.Convocatorias; - string asunto = TxtAsunto.Text; - string descripcion = TxtDescripcion.Text; - int prioridad = DdlPrioridad.SelectedValue.ToEntero(); - string fechaInicio = ""; - if (txtFechaI.Text.ToDateTimeExcat().Year <= 1999) + } + OITipoEventos cveTipoEvento = OITipoEventos.Convocatorias; + 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) { - if (txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").Year <= 1999) - { - errorMessage = "No se ingresó una fecha de inicio valida"; + 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"); + fechaInicio = txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy/MM/dd HH:mm"); } - string fechaFin = ""; - if (txtFechaF.Text.ToDateTimeExcat().Year <= 1999) + } + else + { + fechaInicio = txtFechaI.Text.ToDateTimeExcat().ToString("yyyy/MM/dd HH:mm"); + } + string fechaFin = ""; + DateTime dfechaF; + if ((dfechaF=txtFechaF.Text.ToDateTimeExcat()).Year <= 1999) + { + if ((dfechaF = txtFechaF.Text.ToDateTimeExcat("dd/MM/yyyy")).Year <= 1999) { - if (txtFechaF.Text.ToDateTimeExcat("dd/MM/yyyy").Year <= 1999) - { - errorMessage = "No se ingresó una fecha fin valida"; + 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"); + fechaFin = string.Format("{0:yyyy/MM/dd} 23:59", dfechaF); } - int cveRevision = DdlTema.SelectedValue.ToEntero(); - string archivoname = ""; - string rutaarchivoOri = ""; + } + else + { + fechaFin = dfechaF.ToString("yyyy/MM/dd HH:mm"); + } + int cveRevision = DdlTema.SelectedValue.ToEntero(); + string archivoname = ""; + string rutaarchivoOri = ""; - int cveUsuarioIng = UsuarioActual.CveUsuario; - int cveEmpresa = UsuarioActual.CveEmpresa; - bool Continuar = false; - int Folio = -1; - int CveEvento = -1; - - if (cveUsuarioDe <= 0) - { - errorMessage = "Asegúrese de seleccionar al menos un miembro \"C C Para\""; - } + int cveUsuarioIng = UsuarioActual.CveUsuario; + int cveEmpresa = UsuarioActual.CveEmpresa; + int Folio = -1; + int CveEvento = -1; + if (cveUsuarioDe <= 0) + { + errorMessage = "Asegúrese de seleccionar al menos un miembro \"C C Para\""; + } + if (EsNuevo) + { + bool Continuar = false; if (errorMessage.Length == 0) { @@ -355,7 +362,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas 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, CorreoExterno: TxtCorreoExterno.Text, Acuerdos: TxtOrdendeldia.Text.Replace("< ", "<"), Lugar: TxtLugar.Text,CveEventoPadre: (RCveEventoPadre>0? RCveEventoPadre:-1)); + Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, CorreoExterno: TxtCorreoExterno.Text, Acuerdos: TxtOrdendeldia.Text.Replace("< ", "<"), Lugar: TxtLugar.Text, CveEventoPadre: (RCveEventoPadre > 0 ? RCveEventoPadre : -1), Duracion: TxtDuracion.Text); CveEvento = objOI.CveEvento; Folio = objOI.Folio; @@ -366,7 +373,8 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas if (Continuar) { objOI.Commit(); - ObjEventosCorreo o = objOI.objCorreo; + enviarConvocatoria(CveEvento); + //ObjEventosCorreo o = objOI.objCorreo; //string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm horas}", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm horas}", fechaFin.ToDateTime()), o.Prioridad, o.Tema, Nombrede, Nombrepara); //EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); } @@ -399,77 +407,29 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas } else { + + bool Continuar = true; + using (ClsOIEventos objOI = new ClsOIEventos()) + { + objOI.IniciaTransacSQL(); + Continuar = objOI.UP_Eventos2(RCveEvento, asunto, descripcion, prioridad, fechaInicio, fechaFin, cveRevision, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + if (Continuar) + { - //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(); - //bool Continuar = true; - //using (ClsOIEventos objOI = new ClsOIEventos()) - //{ - // objOI.IniciaTransacSQL(); - // Continuar = objOI.UP_Eventos2(RCveEvento, asunto, descripcion, prioridad, fechaInicio, fechaFin, cveRevision, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); - - // if (Continuar) - // { - // objOI.Commit(); - // string Nombrede = ""; - // string Nombrepara = ""; - // System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); - // if (dt.Rows.Count > 0) - // { - // Nombrede = dt.Rows[0]["Nombre"].ToString(); - // } - // dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); - // if (dt.Rows.Count > 0) - // { - // Nombrepara = dt.Rows[0]["Nombre"].ToString(); - // } - // ObjEventosCorreo o = objOI.objCorreo; - // string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm} horas", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm} horas", fechaFin.ToDateTime()), o.Prioridad, o.Tema, Nombrede, Nombrepara, "Tarea Actualizada"); - // //string mailbody = MailgetBodyActualizartarea(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; - // } - //} + Continuar= objOI.UpdateEventoMinuta(asunto, descripcion, TxtOrdendeldia.Text.Replace("< ", "<"), dfechaF, "-1", RCveEvento); + } + if (Continuar) + { + objOI.Commit(); + enviarConvocatoria(RCveEvento); + Alert("Convocatoria actualizada"); + } + else + { + objOI.RollBack(); + Continuar = false; + } + } } if (errorMessage.Length > 0) @@ -533,8 +493,8 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas System.Data.DataRow drow = ObjOI_E.DtResultados.Rows[0]; ObjOI_E.IniciaTransacSQL(); Continuar = ObjOI_E.AddOI_Eventos2(OITipoEventos.Minuta, drow["Asunto"].ToString(), drow["descripcion"].ToString(), drow["Prioridad"].ToString().ToEntero(), drow["cveUsuarioDe"].ToString().ToEntero(), - drow["cveUsuarioPara"].ToString().ToEntero(), string.Format("{0:yyyy/MM/dd HH:mm}", drow["fechaInicio"]),string.Format("{0:yyyy/MM/dd HH:mm}", drow["fechaFin"]), drow["cveRevision"].ToString().ToEntero(), "", - LCveUsuarioCCP, new List(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CorreoExterno: drow["CorreoExterno"].ToString(), Lugar: drow["Lugar"].ToString(),CveEventoPadre:RCveEvento); + drow["cveUsuarioPara"].ToString().ToEntero(), string.Format("{0:yyyy/MM/dd HH:mm}", drow["fechaInicio"]), string.Format("{0:yyyy/MM/dd HH:mm}", drow["fechaFin"]), drow["cveRevision"].ToString().ToEntero(), "", + LCveUsuarioCCP, new List(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CorreoExterno: drow["CorreoExterno"].ToString(), Lugar: drow["Lugar"].ToString(), CveEventoPadre: RCveEvento); CveEvento = ObjOI_E.CveEvento; Folio = ObjOI_E.Folio; if (CveEvento == 0) @@ -556,13 +516,226 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas } if (Continuar) { - this.Alert("Se ha agregadó la nueva convocatoria", ModExtensiones.TipoMensaje.MsgInformacion, string.Format("location.replace(\"/OI/MinutaDetalle.aspx?CveEvento={0}\");", CveEvento)); - + CveEventoMinuta = CveEvento; + LnkOpenModalAsistencia.Visible = true; + UpAcciones.Update(); + this.Alert(string.Format("Se ha iniciado la minuta
    para ir a la minuta click aquí", CveEvento), ModExtensiones.TipoMensaje.ToastInformacion, "", 0); + LnkOpenModalAsistencia_Click(null,null); } } - protected void BtnReasignarTarea_Click(object sender, EventArgs e) + protected void LnkOpenModalAsistencia_Click(object sender, EventArgs e) + { + using (ClsOIEventos ObjOI_E = new ClsOIEventos()) + { + GvTomarAsistencia.DataSource = null; + if (ObjOI_E.GetEventosUsuario2(CveEventoMinuta, UsuarioActual.CveEmpresa)) { GvTomarAsistencia.DataSource = ObjOI_E.DtResultados; } + } + GvTomarAsistencia.DataBind(); + UpTomarASistencia.Update(); + RegistraScript(string.Format("$('#{0}').modal();", iddivTomarAsistencia)); + } + + protected void LnkUpAsistencia_Click(object sender, EventArgs e) { + List listaasistencia = new List(); + foreach (GridViewRow gvRow in GvTomarAsistencia.Rows) + { + if (gvRow.RowType == DataControlRowType.DataRow) + { + int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); + CheckBox ChkAsistio = gvRow.FCCheckBox("ChkAsistio"); + if (ChkAsistio.Checked) + { + listaasistencia.Add(CveUsuario); + } + } + } + bool continuar = false; + using (ClsOIEventos ObjOI_E = new ClsOIEventos()) + { + continuar = (ObjOI_E.UPMinutasAsistentes(CveEventoMinuta, UsuarioActual.CveEmpresa, TxtAsistentesExternos.Text, UsuarioActual.CveUsuario, listaasistencia)); + } + if (continuar) + { + if (CveEventoMinuta > 0) + { + Alert(string.Format("se ingresó la asistencia correctamente.
    para ir a la minuta click aquí", CveEventoMinuta)); + } + else + { + Alert("se ingresó la asistencia correctamente."); + + } + RegistraScript(string.Format("$('#{0}').modal('hide');", iddivTomarAsistencia)); + } + } + + protected void GvTomarAsistencia_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + e.Row.CssClass = "items"; + } + } + + + private string GetDominio(string addstr = "") + { + return string.Format("{0}/{1}", HttpContext.Current.Request.Url.ToString().Replace(HttpContext.Current.Request.Url.PathAndQuery, ""), addstr); + } + private string MailgetBodyConvocatoria(int RCveEvento) + { + + int Folio = 0; string Link = ""; string Asunto = ""; string Acuerdos = ""; string Descripcion = ""; DateTime DFechai = DateTime.MinValue; DateTime DFechaf = DateTime.MinValue; + string UsuarioDe = ""; + string UsuarioPara = ""; + string UsuarioDeAbr = ""; + System.Data.DataTable dttareas; + using (ClsOIEventos ObjOI_E = new ClsOIEventos()) + { + if (ObjOI_E.GetEventos2(RCveEvento, UsuarioActual.CveEmpresa) && ObjOI_E.DtResultados.Rows.Count > 0) + { + System.Data.DataRow drow = ObjOI_E.DtResultados.Rows[0]; + UsuarioDe = drow["NombreRegistro"].ToString(); + Folio = drow["Folio"].ToString().ToEntero(); + Link = GetDominio(string.Format("OI/ConvocatoriaDetalle.aspx?CveEvento={0}", RCveEvento)); + Asunto = drow["Asunto"].ToString(); + Descripcion = drow["Descripcion"].ToString(); + Acuerdos = drow["Acuerdos"].ToString(); + DateTime.TryParse(drow["FechaInicio"].ToString(), out DFechai); + DateTime.TryParse(drow["FechaFin"].ToString(), out DFechaf); + //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] NombreRegistro + } + ObjOI_E.GetEventos2(-1, UsuarioActual.CveEmpresa, RCveEvento); + dttareas = ObjOI_E.DtResultados; + } + if (UsuarioDe != null) + { + string[] str = UsuarioDe.Split(' '); + if (str.Length > 0 && str[0].Length > 0) + { + UsuarioDeAbr = str[0].Substring(0, 1).ToUpper(); + } + if (str.Length > 1 && str[1].Length > 0) + { + UsuarioDeAbr = string.Format("{0}{1}", UsuarioDeAbr, str[1].Substring(0, 1).ToUpper()); + + } + } + string UsuariParaAbr = ""; + if (UsuarioPara != null) + { + string[] str = UsuarioPara.Split(' '); + if (str.Length > 0 && str[0].Length > 0) + { + UsuariParaAbr = str[0].Substring(0, 1).ToUpper(); + } + if (str.Length > 1 && str[1].Length > 0) + { + UsuariParaAbr = string.Format("{0}{1}", UsuariParaAbr, str[1].Substring(0, 1).ToUpper()); + + } + } + + StringBuilder StrMail = new StringBuilder(); + StrMail.Append(""); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    SIG Notificaciones
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append("
    "); + StrMail.Append(" Moderador:"); + StrMail.Append($" {UsuarioDeAbr}"); + StrMail.Append($" {UsuarioDe}
    "); + StrMail.Append(" Fecha:"); + StrMail.Append($" {DFechai: dd} de {DFechai: MMMM yyyy HH:mm}
    "); + StrMail.Append("     		"); + StrMail.Append(" Convocatoria "); + StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(""); + StrMail.Append("
    "); + StrMail.Append($" {Asunto}"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(" Folio:"); + StrMail.Append($" {Folio}"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append($" {Descripcion}"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(" ORDEN DEL DÍA"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(Acuerdos); + StrMail.Append("
    "); + StrMail.Append("
    "); + + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append($" Minuta"); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append("
    "); + StrMail.Append(""); + return StrMail.ToString(); + } + private void enviarConvocatoria(int RCveEvento) + { + + string Body; + Body = MailgetBodyConvocatoria(RCveEvento); + string ArrayCC = ""; + //ViewState("Para") = GlobalDTUsuarios(CveUsuarioIng)(0)("correo").ToString; + //ViewState("Asunto") = string.Format("SIG - Minuta {0}", TxtAsunto.Text); + //ViewState("Body") = Body; + //System.Threading.Thread Hilo = new System.Threading.Thread(MandaCorreo); + //Hilo.Start(); + string abre = ""; + using (ClsOIEventos ObjOI_E = new ClsOIEventos()) + { + if (ObjOI_E.GetEventosUsuario2(RCveEvento, UsuarioActual.CveEmpresa) && ObjOI_E.DtResultados != null && ObjOI_E.DtResultados.Rows.Count > 0) + { + foreach (System.Data.DataRow item in ObjOI_E.DtResultados.Rows) + { + if (item["Correo"].ToString().Trim().Length > 0) + ArrayCC = string.Format("{0}{1}{2}", ArrayCC, abre, item["Correo"].ToString().Trim()); + abre = ";"; + } + } + } + List LSRutasMail = new List(); + ClsSisMail.ArchivoMail mailfile = new ClsSisMail.ArchivoMail { Ruta = string.Format("{0}Imagenes\\Bell.png", ModExtensiones.DirectorioBaseEmpresas), NombreArchivo = "Bell.png" }; + LSRutasMail.Add(mailfile); + ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail(); + + + ClsSisMail Mail = new ClsSisMail(); + Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + TxtCorreoExterno.Text, TxtAsunto.Text, Body, CCP: ArrayCC, Archivos: LSRutasMail); + } + protected void LnkEnviarCorreo_Click(object sender, EventArgs e) + { + enviarConvocatoria(RCveEvento); + Alert("Se Envió por correo la convocatoria", ModExtensiones.TipoMensaje.MsgInformacion); } } \ No newline at end of file diff --git a/OI/MinutaDetalle.aspx b/OI/MinutaDetalle.aspx index 281473c5f..b0b1d6b1d 100644 --- a/OI/MinutaDetalle.aspx +++ b/OI/MinutaDetalle.aspx @@ -87,6 +87,9 @@ +
  • + Asistencia
    • +     @@ -142,8 +145,8 @@ <%----%>
    -
    - +
    +
    Guardar Enviar Minuta @@ -516,7 +519,7 @@
    - Agregar + Agregar
    @@ -525,12 +528,12 @@
    - +
    - +
    @@ -544,7 +547,7 @@
    - + <%----%> @@ -566,7 +569,7 @@
    + + - + diff --git a/OI/TareaDetalle.aspx b/OI/TareaDetalle.aspx index 117bb5418..49dd5cb8c 100644 --- a/OI/TareaDetalle.aspx +++ b/OI/TareaDetalle.aspx @@ -149,7 +149,7 @@
  • Cambiar Estatus
  • - Agregar Comentario
    • + Agregar bitácora
  • Agregar Tema
  • @@ -245,19 +245,20 @@
    • -
    +
    - - - + + + Prioridad:
    +
    @@ -282,10 +283,10 @@ CheckList
    - +
    -
    - +
    Agregar @@ -1154,6 +1147,20 @@ } } + function nofocus() { + let strid = '#<%= txtFechaI.ClientID %>:not(.notfocus)'; + let input = $(strid); + input.focus(function () { + $(this).trigger('blur'); + }); + input.addClass('notfocus'); + strid = '#<%= txtFechaF.ClientID %>:not(.notfocus)'; + input = $(strid); + input.focus(function () { + $(this).trigger('blur'); + }); + input.addClass('notfocus'); + } var prm = Sys.WebForms.PageRequestManager.getInstance(); prm.add_endRequest(function (s, e) { loaderinit = loaderinited; }); @@ -1162,6 +1169,7 @@ setchecklistitulo(); barraavance(); loadTxtAsunto(); + nofocus(); //$('.GVcheklist input[type="checkbox"]:checked').addClass('icheck setclass'); }); $(document).ready(function () { @@ -1172,6 +1180,7 @@ setchecklistitulo(); barraavance(); loadTxtAsunto(); + nofocus(); //$('.GVUsuarios input[type="checkbox"]:not(.setclass)').addClass('icheck setclass'); }); diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index d00961c03..0385a4949 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -30,6 +30,7 @@ public partial class OI_TareaDetalle : ClsPaginas public const string iddivAgregarTema = "divModalAgregartema"; public const string iddivCambiarEstatus = "divModalCambiarEstatus"; public int RCveEvento { get { return ViewState["RCveEvento"] != null ? ViewState["RCveEvento"].ToString().ToEntero() : 0; } set { ViewState["RCveEvento"] = value; } } + public int CveEventoEstatus { get { return ViewState["CveEventoEstatus"] != null ? ViewState["CveEventoEstatus"].ToString().ToEntero() : 0; } set { ViewState["CveEventoEstatus"] = 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; } } @@ -53,6 +54,13 @@ public partial class OI_TareaDetalle : ClsPaginas Convinculo = false; if (!IsPostBack) { + + DdlProveedores.setEsWebService(true); + DdlProveedores.Attributes.Add("data-metodo", "getproveedores"); + + DdlCliente.setEsWebService(true); + DdlCliente.Attributes.Add("data-metodo", "getcliente"); + CveEventoPadre = 0; portletvinculos.Visible = false; LnkAgregarCheckListVisible = true; @@ -137,11 +145,11 @@ public partial class OI_TareaDetalle : ClsPaginas Permisos = new OI_TareaDetalle_Permisos { EntrarOI = (EsNuevo || esmiembro), - CheckList = (EsNuevo || esdeel || esPara), - EdicionGeneral = (EsNuevo || esdeel), - Bitacora = esmiembro, - Avance = esPara, - Reasignar = esPara, + CheckList = (EsNuevo || esdeel || esPara) && CveEventoEstatus < 4, + EdicionGeneral = (EsNuevo || esdeel) && CveEventoEstatus < 4, + Bitacora = esmiembro && CveEventoEstatus < 4, + Avance = esPara && CveEventoEstatus < 4, + Reasignar = esPara && CveEventoEstatus < 4, Estatus1_2_3 = esPara, Estatus4_5 = esdeel }; @@ -223,6 +231,13 @@ public partial class OI_TareaDetalle : ClsPaginas } LnkcambiarEstatus.Visible = LnkcambiarEstatus.Visible && (Permisos.Estatus1_2_3 || Permisos.Estatus4_5); + if (CveEventoEstatus >= 4) + { + LnkAgregarTema.Visible = false; + LnkUpUsuarios.Visible = false; + LnkUpVinculo.Visible = false; + LnkUpFile.Visible = false; + } UpAcciones.Update(); UpTitulo.Update(); UpContenido.Update(); @@ -349,7 +364,7 @@ public partial class OI_TareaDetalle : ClsPaginas else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray())) { chkCCpara.Checked = true; - StrCCPara.AppendFormat("{3}{2}\"{0}\"; ", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), palomitavisto, palomitasinver); + StrCCPara.AppendFormat("{3}{2}\"{0}\"; ", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), palomitavisto, palomitasinver); } } } @@ -358,7 +373,7 @@ public partial class OI_TareaDetalle : ClsPaginas int longitud = StrCCPara.ToString().Length; if (longitud > 0) { - LtlCCPara.Text = StrCCPara.ToString().Substring(0, longitud - 1); + LtlCCPara.Text = string.Format("{0} ", StrCCPara.ToString().Substring(0, longitud - 9)); } else @@ -394,12 +409,22 @@ public partial class OI_TareaDetalle : ClsPaginas DdlPrioridad.SelectedValueExist(drow["Prioridad"].ToString()); txtFechaI.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaInicio"]); txtFechaF.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaFin"]); - DdlTema.SelectedValueExist(drow["CveRevision"].ToString()); + int CveRevision = drow["CveRevision"].ToString().ToEntero(); + if (get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0} AND CveRevision={1}", UsuarioActual.CveUsuario, CveRevision)).Rows.Count == 0 && CveRevision > 0) + { + System.Data.DataRow dtrow = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format(" CveRevision={0}", CveRevision)); + if (dtrow != null) + { + DdlTema.Items.Insert(1, new ListItem(dtrow["Revision"].ToString(), CveRevision.ToString())); + } + } + DdlTema.SelectedValueExist(CveRevision.ToString()); DdlEventoEstatus.SelectedValueExist(drow["CveEventoEstatus"].ToString()); lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text; TxtFechaRealTermino.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaRealTermino"]); DDlEstatus.SelectedValueExist(drow["CveEventoEstatus"].ToString()); - if (drow["CveEventoEstatus"].ToString().ToEntero() >= 3) + CveEventoEstatus = drow["CveEventoEstatus"].ToString().ToEntero(); + if (CveEventoEstatus >= 3) { pnlfecharealtermino.Visible = true; } @@ -588,11 +613,58 @@ public partial class OI_TareaDetalle : ClsPaginas else { RCveEvento = 0; } } GVcheklist.DataBind(); + UpAcciones.Update(); + UpContenido.Update(); } protected void LnkGuardar_Click(object sender, EventArgs e) { string errorMessage = ""; + string asunto = TxtAsunto.Text; + string descripcion = TxtDescripcion.Text; + int prioridad = DdlPrioridad.SelectedValue.ToEntero(); + int cveRevision = DdlTema.SelectedValue.ToEntero(); + string fechaInicio = ""; + string fechaFin = ""; + DateTime fechaIniciodate; + DateTime fechaFindate; + if ((fechaIniciodate = txtFechaI.Text.ToDateTimeExcat()).Year <= 1999) + { + if ((fechaIniciodate = txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy")).Year <= 1999) + { + errorMessage = "No se ingresó una fecha de inicio valida"; + + } + else + { + fechaInicio = fechaIniciodate.ToString("yyyy/MM/dd HH:mm"); + } + } + else + { + fechaInicio = fechaIniciodate.ToString("yyyy/MM/dd HH:mm"); + } + if ((fechaFindate = txtFechaF.Text.ToDateTimeExcat()).Year <= 1999) + { + if ((fechaFindate = 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", fechaFindate); + } + } + else + { + fechaFin = fechaFindate.ToString("yyyy/MM/dd HH:mm"); + } + if (fechaFindate < fechaIniciodate) + { + errorMessage = "la fecha fin no puede ser menor a la fecha incio"; + } + if (EsNuevo) { int cveUsuarioDe = UsuarioActual.CveUsuario; @@ -632,44 +704,7 @@ public partial class OI_TareaDetalle : ClsPaginas // listaCCP.Add(cveUsuarioPara); //} 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 = ""; @@ -694,7 +729,7 @@ public partial class OI_TareaDetalle : ClsPaginas if (cveUsuarioPara <= 0) { - errorMessage = "No se selecciono el miembro 'Para'"; + errorMessage = "Asegúrese de seleccionar al menos un miembro \"Para\""; } if (errorMessage.Length == 0) @@ -713,7 +748,7 @@ public partial class OI_TareaDetalle : ClsPaginas { objOI.IniciaTransacSQL(); Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa); - + ObjEventosCorreo o = objOI.objCorreo; CveEvento = objOI.CveEvento; Folio = objOI.Folio; if (CveEvento == 0) @@ -723,9 +758,11 @@ public partial class OI_TareaDetalle : ClsPaginas if (Continuar) { objOI.Commit(); - ObjEventosCorreo o = objOI.objCorreo; - string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm horas}", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm horas}", fechaFin.ToDateTime()), o.Prioridad, o.Tema,Nombrede,Nombrepara); - EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + if (o != null) + { + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, fechaInicio.ToDateTime(), fechaFin.ToDateTime(), o.Prioridad, o.Tema, Nombrede, Nombrepara); + EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + } } else { @@ -750,76 +787,41 @@ public partial class OI_TareaDetalle : ClsPaginas ruta = string.Format("{0}{1}", ruta, archivoname);//, ArchivoExtencion); System.IO.File.Move(rutaarchivoOri, ruta); } - this.Alert("Se ha agregadó la nueva tarea", ModExtensiones.TipoMensaje.MsgInformacion, string.Format("location.replace(\"/OI/TareaDetalle.aspx?CveEvento={0}\");", CveEvento)); + this.Alert("Se ha agregado la nueva tarea", ModExtensiones.TipoMensaje.MsgInformacion, string.Format("location.replace(\"/OI/TareaDetalle.aspx?CveEvento={0}\");", CveEvento)); } } } else { - 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(); bool Continuar = true; using (ClsOIEventos objOI = new ClsOIEventos()) { objOI.IniciaTransacSQL(); Continuar = objOI.UP_Eventos2(RCveEvento, asunto, descripcion, prioridad, fechaInicio, fechaFin, cveRevision, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + ObjEventosCorreo o = objOI.objCorreo; if (Continuar) { objOI.Commit(); string Nombrede = ""; string Nombrepara = ""; System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); - if(dt.Rows.Count > 0) + if (dt.Rows.Count > 0) { - Nombrede= dt.Rows[0]["Nombre"].ToString(); + Nombrede = dt.Rows[0]["Nombre"].ToString(); } dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); if (dt.Rows.Count > 0) { Nombrepara = dt.Rows[0]["Nombre"].ToString(); - } - ObjEventosCorreo o = objOI.objCorreo; - string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm} horas", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm} horas", fechaFin.ToDateTime()), o.Prioridad, o.Tema,Nombrede,Nombrepara,"Tarea Actualizada"); - //string mailbody = MailgetBodyActualizartarea(o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); - EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + } + if (o != null) + { + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, fechaInicio.ToDateTime(), fechaFin.ToDateTime(), o.Prioridad, o.Tema, Nombrede, Nombrepara, "Tarea Actualizada"); + //string mailbody = MailgetBodyActualizartarea(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 { @@ -959,13 +961,13 @@ public partial class OI_TareaDetalle : ClsPaginas { if (objOI.Upcheklist(gvrow.DataKey("CveEventoCheckList").ToEntero(), gvrow.DataKey("CveEvento").ToEntero(), gvrow.DataKey("EventoComentario"), chk.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { + ObjEventosCorreo o = objOI.objCorreo; Alert("Se actualizó el estatus de la actividad", ModExtensiones.TipoMensaje.ToastInformacion); if (objOI.Getcheklist(RCveEvento)) { GVcheklist.DataSource = objOI.DtResultados; GVcheklist.DataBind(); cargaActividades(objOI); - ObjEventosCorreo o = objOI.objCorreo; string Nombrede = ""; string Nombrepara = ""; System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); @@ -981,14 +983,15 @@ public partial class OI_TareaDetalle : ClsPaginas DateTime fInicio = txtFechaI.Text.ToDateTimeExcat(); DateTime FFin = txtFechaF.Text.ToDateTimeExcat(); - string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fInicio), string.Format("{0:HH:mm} horas", fInicio), string.Format("{0:dd/MM/yyyy}", FFin), string.Format("{0:HH:mm} horas", FFin), o.Prioridad, o.Tema, Nombrede, Nombrepara, string.Format("Tarea ({0})", o.Actividad)); - - //string mailbody = MailgetBodyTareaCheckList(o.Actividad, o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); - EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + if (o != null) + { + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, fInicio, FFin, o.Prioridad, o.Tema, Nombrede, Nombrepara, string.Format("Tarea ({0})", o.Actividad)); + //string mailbody = MailgetBodyTareaCheckList(o.Actividad, o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); + EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + } } } } - } protected void BtnCambiarEstatus_Click(object sender, EventArgs e) @@ -1001,9 +1004,9 @@ public partial class OI_TareaDetalle : ClsPaginas { - if (objOI.UpdateEstatusEvento2(CveEstatus, -1, RCveEvento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + if (objOI.UpdateEstatusEvento2(CveEstatus, -1, RCveEvento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtComentarioTerminarpadre.Text)) { - + ObjEventosCorreo o = objOI.objCorreo; if (CveEstatus >= 3) { pnlfecharealtermino.Visible = true; @@ -1025,7 +1028,6 @@ public partial class OI_TareaDetalle : ClsPaginas Alert(mensaje, ModExtensiones.TipoMensaje.ToastInformacion); cargaActividades(objOI); - ObjEventosCorreo o = objOI.objCorreo; string Nombrede = ""; string Nombrepara = ""; System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); @@ -1041,13 +1043,19 @@ public partial class OI_TareaDetalle : ClsPaginas DateTime fInicio = txtFechaI.Text.ToDateTimeExcat(); DateTime FFin = txtFechaF.Text.ToDateTimeExcat(); - string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fInicio), string.Format("{0:HH:mm} horas", fInicio), string.Format("{0:dd/MM/yyyy}", FFin), string.Format("{0:HH:mm} horas", FFin), o.Prioridad, o.Tema, Nombrede, Nombrepara, string.Format("Tarea Estatus Actualizado ({0})", o.Estatus)); + if (o != null) + { + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, fInicio,FFin, o.Prioridad, o.Tema, Nombrede, Nombrepara, string.Format("Tarea Estatus Actualizado ({0})", o.Estatus)); + EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + } - //string mailbody = MailgetBodyActualizarEstado(o.Estatus, o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); - EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); } } + CveEventoEstatus = CveEstatus; + Setpermisos(); + UpContenido.Update(); + UpAcciones.Update(); } else { @@ -1073,7 +1081,7 @@ public partial class OI_TareaDetalle : ClsPaginas { if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { - Alert(string.Format("El Tema \"{0}\" fue agregada con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion); + Alert(string.Format("El Tema \"{0}\" fue agregado con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion); this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema)); TxtTema.Text = ""; set_GlobalDTOIRevision(-1, objoi.DtResultados); @@ -1107,11 +1115,11 @@ public partial class OI_TareaDetalle : ClsPaginas using (ClsOIEventos objoi = new ClsOIEventos()) { CveComentario = objoi.AddEventoComentario2(RCveEvento, Comentario, archivoname, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + ObjEventosCorreo o = objoi.objCorreo; if (CveComentario > 0) { cargaActividades(objoi); - ObjEventosCorreo o = objoi.objCorreo; string Nombrede = ""; string Nombrepara = ""; System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); @@ -1127,10 +1135,12 @@ public partial class OI_TareaDetalle : ClsPaginas DateTime fInicio = txtFechaI.Text.ToDateTimeExcat(); DateTime FFin = txtFechaF.Text.ToDateTimeExcat(); - string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fInicio), string.Format("{0:HH:mm} horas", fInicio), string.Format("{0:dd/MM/yyyy}", FFin), string.Format("{0:HH:mm} horas", FFin), o.Prioridad, o.Tema, Nombrede, Nombrepara, "Nuevo Comentario"); - - //string mailbody = MailgetBodyTareaComentario(o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); - EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + if (o != null) + { + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, fInicio, FFin, o.Prioridad, o.Tema, Nombrede, Nombrepara, "Nuevo Comentario"); + //string mailbody = MailgetBodyTareaComentario(o.Folio, o.Link, o.Asunto, o.Descripcion, o.Fechai, o.Fechaf, o.Prioridad, o.Tema); + EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + } } } Txtfilecomentario.Text = ""; @@ -1215,7 +1225,6 @@ public partial class OI_TareaDetalle : ClsPaginas using (ClsOIEventos objoi = new ClsOIEventos()) { continuar = objoi.AddUPEventoArchivo(RCveEvento, archivoname, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); - ObjEventosCorreo o = objoi.objCorreo; string Nombrede = ""; string Nombrepara = ""; @@ -1232,9 +1241,11 @@ public partial class OI_TareaDetalle : ClsPaginas DateTime fInicio = txtFechaI.Text.ToDateTimeExcat(); DateTime FFin = txtFechaF.Text.ToDateTimeExcat(); - string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fInicio), string.Format("{0:HH:mm} horas", fInicio), string.Format("{0:dd/MM/yyyy}", FFin), string.Format("{0:HH:mm} horas", FFin), o.Prioridad, o.Tema, Nombrede, Nombrepara, "Tarea Archivo Actualizado"); - - EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + if (o != null) + { + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, fInicio, FFin, o.Prioridad, o.Tema, Nombrede, Nombrepara, "Tarea Archivo Actualizado"); + EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + } } if (continuar) { @@ -1253,6 +1264,7 @@ public partial class OI_TareaDetalle : ClsPaginas using (ClsOIEventos objoi = new ClsOIEventos()) { continuar = objoi.UPEventoAAvance(RCveEvento, TxtAvance.Text.ToDecimal(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + ObjEventosCorreo o = objoi.objCorreo; if (continuar) { if (objoi.DtResultados.Rows.Count > 0) @@ -1261,7 +1273,6 @@ public partial class OI_TareaDetalle : ClsPaginas } cargaActividades(objoi); - ObjEventosCorreo o = objoi.objCorreo; string Nombrede = ""; string Nombrepara = ""; System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa); @@ -1277,9 +1288,11 @@ public partial class OI_TareaDetalle : ClsPaginas DateTime fInicio = txtFechaI.Text.ToDateTimeExcat(); DateTime FFin = txtFechaF.Text.ToDateTimeExcat(); - string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fInicio), string.Format("{0:HH:mm} horas", fInicio), string.Format("{0:dd/MM/yyyy}", FFin), string.Format("{0:HH:mm} horas", FFin), o.Prioridad, o.Tema, Nombrede, Nombrepara, "Tarea Avance Actualizado"); - - EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + if (o != null) + { + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, fInicio, FFin, o.Prioridad, o.Tema, Nombrede, Nombrepara, "Tarea Avance Actualizado"); + EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + } } } if (continuar) @@ -1498,6 +1511,7 @@ public partial class OI_TareaDetalle : ClsPaginas { objOI.IniciaTransacSQL(); Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, RCveEvento); + ObjEventosCorreo o = objOI.objCorreo; CveEvento = objOI.CveEvento; Folio = objOI.Folio; if (CveEvento == 0) @@ -1507,10 +1521,11 @@ public partial class OI_TareaDetalle : ClsPaginas if (Continuar) { objOI.Commit(); - - ObjEventosCorreo o = objOI.objCorreo; - string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, string.Format("{0:dd/MM/yyyy}", fechaInicio.ToDateTime()), string.Format("{0:HH:mm} horas", fechaInicio.ToDateTime()), string.Format("{0:dd/MM/yyyy}", fechaFin.ToDateTime()), string.Format("{0:HH:mm} horas", fechaFin.ToDateTime()), o.Prioridad, o.Tema, Nombrede, Nombrepara); - EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + if (o != null) + { + string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, fechaInicio.ToDateTime(), fechaFin.ToDateTime(), o.Prioridad, o.Tema, Nombrede, Nombrepara); + EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, ""); + } } else { @@ -1521,7 +1536,7 @@ public partial class OI_TareaDetalle : ClsPaginas } if (Continuar && CveEvento > 0) { - this.Alert("Se ha agregadó la nueva tarea", ModExtensiones.TipoMensaje.MsgInformacion, string.Format("location.replace(\"/OI/TareaDetalle.aspx?CveEvento={0}\");", CveEvento)); + this.Alert("Se ha agregado la nueva tarea", ModExtensiones.TipoMensaje.MsgInformacion, string.Format("location.replace(\"/OI/TareaDetalle.aspx?CveEvento={0}\");", CveEvento)); } } @@ -1536,6 +1551,8 @@ public partial class OI_TareaDetalle : ClsPaginas ClsSisMail Mail = new ClsSisMail(); List LSRutasMail = new List(); + ClsSisMail.ArchivoMail mailfile = new ClsSisMail.ArchivoMail { Ruta=string.Format("{0}Imagenes\\Bell.png", ModExtensiones.DirectorioBaseEmpresas), NombreArchivo="Bell.png"}; + LSRutasMail.Add(mailfile); ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail(); if (Para.Trim().Length > 0 || ArrayCC.Trim().Length > 0) { @@ -1547,23 +1564,23 @@ public partial class OI_TareaDetalle : ClsPaginas private string GetDominio() { - return HttpContext.Current.Request.Url.ToString().Replace(HttpContext.Current.Request.Url.PathAndQuery, ""); + return string.Format("{0}/", HttpContext.Current.Request.Url.ToString().Replace(HttpContext.Current.Request.Url.PathAndQuery, "")); } //private string getImg() //{ // return "data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAkGBxAPEA8PDxASDw8PFRAPDw8QFQ8PFQ8PFREXFhYVFRUYHSggGBolGxUVITEhJSkrLi4uFx8zODMsNygtLisBCgoKDg0OFhAQFy0lHh8tLSsrLi0rLS0rLS0tLS0rLS0tLS0tLS0tLy0tLS0tLSstLSstLS0tLS0tKy0tLS0tLf/AABEIAMIBAwMBEQACEQEDEQH/xAAbAAEAAQUBAAAAAAAAAAAAAAAAAwECBAYHBf/EAEIQAAIBAgEFDAgEBQQDAAAAAAABAgMRBBIhMUFRBQYTFDJhcXKBkaGxByIzUlOywdEjQpLSQ2KCo8IkY4PwNKLh/8QAGgEBAAIDAQAAAAAAAAAAAAAAAAEFAwQGAv/EAC8RAQACAQMDAgQHAAIDAAAAAAABAgMEBRESITFBURMyYXEiI0KBkaGxM8EUQ1L/2gAMAwEAAhEDEQA/AO4gAAAAAAAAAFsppaWl0tICN4qn78P1R+4FOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gOOUviQ/VH7gVWLp/Eh+qP3AujWi9EovoaYEgAAAAAAAAAAAAAAAAAAo2BjuvKXs0re/K9uxawK8Wvy5SlzXyU+xAVhhKcdEI91wL+Cj7q7kBXg1sXcgHBrYu5AODWxdyAcGti7kAyFsXcgGRHYu5AODWxdyAZC2LuQDg1sXcgHBrYu5AODjsXcgLZUIPTGPcgI1g4Lkpw54NxAPhI/wC5HWs0ZLo1MCWlVUtGrSnmafOtQEgAAAAAAAAAAAAADYGKlwud+z1R0ZdnpfNzAZNgAAAAAhxOKp0llVJxgtsmke60taeKxyx3y0pHNp4eLit9lCOamp1XtismPfKxuU2/Jbz2V2XdsVfl5l5lbfbWfJp04dLlJ/Y2a7bSPMy0r7xkn5awxZb5cU/zwXRD7syxt+KGCd0zz6qLfJiviRf9C+4/8DF7Ijc9R7pqW+rELlKnPpUo+VzxO3Y/eWWu7Zo8xEvQw+/COirRkv5oNTXc7MwX2236ZbWPeK/rr/D2cFuxh62anUi37r9WXczSyafJT5oWOLWYcvy2Z5hbQAAAAIqtG7yo+rNZlLatj2oCtCspp6mnaSepgSgAAAAAAAAAAABj4l5TjTWh559Rau15ui4E6QAAAAhxOJhSi51JKEVpcnY9Upa88VhjyZK445tPENT3T32SleOHWRH4k1nfPGOrt7i1wbdHnJ/Ck1O6zPbF/LXa1WU3lTlKcvem3J9mzsLKmOtI4rCove155tPK257eS4QXAXAXIC5IP/vN0Eccp8PU3N3wV6FllcLBfkqO7S5p6e+5p5tDjv3iOJb2n3DLi7TPMNv3J3bo4lWi8ma5VOWaS6Nq50VGfTXxT3jt7r7Ta3HnjtPf2ema7cAAADHr+pJVFozRnzxeh9j8GwMkAAAAAAAAAAAAMfD53Oe15MX/ACxzfNlATgAAHnbs7sU8LG8s85cimtMn9Fzmxg09s1uIauq1dMFeZ8tB3R3Rq4iWXVle3JguTBcy28+kvsOnpijisOZz6nJmtzaWLcztcuAuElwguAuAuAuAuAuBWM2mpJtSWdSWZp8zItWLRxL1WZrPMNv3v75spxo4lpTeaFXQpvZLY/BlNqtD0/ix+F7otx6uKZPPu2krFyAALZwUk4vOmmn0MCzCTbhG/KXqy6yzPxAmAAAAAAAAAAKNgQYJfhx57y75N/UCcAB527m60MLTypZ5yzU4a5y+21mxp9PbNbiGrqtTXBTmfPo51isTOrOVSpLKnLS9SWpJakjosWKuOvTWHLZctsluq0ormRjLgLgLgLgLgLgLgLgLgLgLgUY4G3b1N323HDV5XbzUaj/N/JJ7dj1lNrtH0/mUjt6r3b9dz+Xkn7NuKpdAACDCZuEWycn35/qBkAAAAAAAAAAFtTQ+h+QEWC9nT6sfICYCLE1404SqTeTGCcpN6kj1Ss2mKx6vF7xSs2n0cx3V3SliarqyzLRTj7kNS6XpZ02m08YadMfu5XU55zXm0/sxLmw1y4C4C4C4C4C4C4C4C4C4C4C4C4C/ZzrSmta5yJjmOCOzoO9XdjjNPJm/xqVlP+aOqa6fM53W6b4N+3iXTaDVfGpxPmHumk3wDHw3Lq9ZfIgMkAAAAAAAAAAtq6H0PyAhwPs6fVj5ATgaXv63Tu44WLzK1Sr/AIx+vcXG2af/ANk/spN01HjFH7tSuXKm4Lg4LgLg4Lg4Lg4ejuXuNXxWenFKGjhJ3jHs1y7DVz6vHh7TPf2bWDR5M3eI7Peo7yHb18Q09kIRt3sr7brPpT+1hXaPe5iN5DS/DxDb2VIxt3xzk13Wf1VRfaO34bNYx+DqUJ8HVjky0rWpLbF60WmHNTLXmsqvNgvit02hj3MrEXAXBwXBwXBwXBwy9yt0JYatCstEc0171N8pfXsNfU4Iy45r/DPps04ckWh1SnUUoqUXdSSae1NZjl5iYniXV1tFoiYXEPTGwvLrdaPyIDKAAAAAAAAAALauh9D8gIcD7Kn1Y+QF+JrKnCc5ZowjKcuhK7PVKza0Vj1eL2itZtPo5JisVKtOdWXKqSc3zJ6F2Kx1mLHGOkVj0cnlvN7zafVFcysfBcBcg4LkhcHD0t7+53GsRGm/ZxXCVbe4tXa/qamsz/BxzMeZ8NrR4PjZIifEeXUKdNRSjFJRirJLMktiOYmZmeZdRWsVjiFxCQDzd39yo4qjKDzTXrU5e7PV2PQzY02ecN4tH7tbVaeM1Jj19HLndNqStJNxktkk7NHU1mJjmHLTWYniVLkoLknBcHCtwFyBS5Jw3/eLj+EoOk+VQaj/AMcs8fquw53csPRl6o8S6Hbc3Xj6Z8w2UrlkxsLy63Wj8iAygAAAAAAAAAC2rofQ/ICHA+yp9WPkB4m/rFZGElBaa0o0+y95eCN/bsfXmifbu0NxydOGY93OrnSucLjgLgLjgLjgLjgbn6OqX/kz13pwXQo382Ue7WnqrVdbVXtazdCnXAAAAc437YLgsVlpWjXjl/1xzS8LM6LbMvXi6Z9HO7ji6MvVHq1+5ZcK8uOAuOAuOElxwguOB7+8nFZGLUdVaEof1L1o/Urdzx9WHq9lhtuTpy8e7pBzromNheXW60fkQGUAAAAAAAAAAW1dD6H5AQ4H2dPqx8gNL9I2I/Ew1PZGdR9rUV9S82ina9lLutu9atQuXSpLgLgLhBcJLgb76Ol+BWe2q/CKOe3b/lj7Lza/+Ofu20qloAAAGt7+8FwmFdRL1qDVVdXRJdz8Cw23L0Zoj/67K/ccXXi59u7nNzpnPlwFwFxwFwFwMjc6vwdehU9ypTb6Mqz8GYdRTqxWj6SyYbdOSs/V2JHHusY2F5dbrR+RAZQAAAAAAAAABbV0PofkBDgvZU+rHyA576QZ/wCsivdoQ8akzotpj8qfuodynnLH2a3cteFcXAXAXHAXAXA6H6Ol/paj21qnhY5zdp/Oj7Qvdsj8qfu2oq1kAAAFlampxlGSvGScWtqazk1mYmJh5tHMcS49ulgpYatUoS003aL96m88H3eTOv0+WMuOLw5fNinHeayxrmdiLgLgLgLgW1pWjJ7M/cebR2lNfMO203dJ7UmcXMcS6yk81hBheXW60fkRD0ygAAAAAAAAAC2rofQ/ICHBeyp9WPkBzr0gq2NXPQpv+5NHR7RPOKfuodxj81rdy2V5cBccCtwFxwFyOB0v0fU2sDBv886010ObS8jl9ztzqJ+nEOg2+vGFshXt4AAAAGqb+dwnXgsRRjetSVpRWmpS1pfzLSu1ayz23V/Ct0W8T/qu1+m+JXrr5hzpSOlhR8K3J4QXHAXHAXI4Edd+rLoIt4THmHcKSsktiS8DibTzMurp8sIcLy63Wj8iIemUAAAAAAAAAAW1dD6H5AQ4H2VPqx8gNC9JVG1fD1NU6c4dsZX/AMjoNmt+C8fVS7nX8dZajculYXAXAXApcA29WdvMltk8yXe0RM8RymI5nh2bcXB8Bh6NH4cIxfTbP4nGajJ8TJa3vLp8FOjHWvszTCygAAAAAafvm3mqq5VsLk06ss86bzQqPavdlz6GW2j3KcfFMneP7hW6nQxf8VPLQcVQnSnKlVi4VIWUoOztmus6zNW1nQ48lclYtWe0qa9Jpaa2jujue3kuAuBJhaPCVKVNfxJ04d80Ys1unHaZ9pe8debxH1duRxTqYY2F5dbrR+RBLKAAAAAAAAAALauh9D8gIcD7Kn1Y+QGsekjC5WGhVtnozi31Zeq/Gxa7Tk6c3T7q/cac4+fZzi50yjLjgLgLk8BcgbNvF3FeIrqvNfgUHdX0VK2pc6jpfPbYVO6auMdPh1nvP9QsNDp+u/XPiHTzml4AUuAcktLsTwjmIYeJ3Ww9L2lelDrTivqZK4MlvFZ/h4tmpXzLysRv23Ph/Hy3spwqz8UreJtU2zU2/T/cNe2uw1/U87EekKgvZ0as+eWRBeLubNNnyz80xDDbcqR4h5mJ9INd+zoU4c83KfgkjZps1I+a0/swW3K0/LDWMfjqmIqzrVWnOdr2WSkkrJJbLFthw1xUilfENDJktktNreWPcy8MZcBccD295eF4XG0c11SUqz/pVl4srtzydGCfr2bmip1ZY+jrRyjoGNheXW60fkQGUAAAAAAAAAAW1dD6H5AQ4H2VPqx8gIt18EsRQrUX/EhKC5pNZn2OzMuDJ8PJW/tLHlp10mvu4pKMotxmrSi3CS2Si7M7alotEWj1c1avE8KXPSC4QXAN9vhm1kTHbsmHR8Lvz3PoUqdOkpqMYpKnCnJZHM75rnMX23VZLza0efXldU1uGlYiGNiPSLD+HhpvnqShDyuZqbLefmtDxbcq+lWJS337pYlyjhcNCVrXyU6jjfRduSSMltu0uHj4t5Y41mfJ8lUiwu71blVOBWzKoQ+RN+J469ux+I6v5/7eunWX8zwuW8nGVc+Ixre1Xq1POVvAidywU/48Sf8Awstvmu1Xd7c+lhq8qNObq8GoqpNqC/EedxVlqVi30eW+bH13jjnx9lfqMdaX6YnlgZRt8MJcBcBcILgLhJcDoHoy3PtCtiZL2rVOn1Icp9sn4HObxm6r1xx6f9rfbsXFZv7t4KVZsbC8ut1o/IgMoAAAAAAAAAAtq6H0PyAhwPsqfVj5ATgcu9Ie5To4lV4r8PE6baI1ks67Vn7GdNtGo68fw581/wAUuvw9N+qPEtVuXDQLgLgLgMocBcDM3K3UrYWoqtGWTLRKMs8akfdkvrpRg1Gmpnr03hkxZbYp5q3PDekaFlwmGqKWvg5QlFvmvnKS+yX5/DeOPqsq7jXjvV5+6+/6tVThh4cXTzOpJqdT+lLNHpzmxg2alZ5yTz/jDl3C1o4pHDUL897523nbe1vWy6iIiOIV5cBcBcBccBcBcCXCYedapCjTV6lWShHmvpb5krvsMebJGKk3n0eqUm9orHq7bubgo4elTow5NOKiuey09uk4nLknJebT6ukx0ilYrDJMb2xsLy63Wj8iAygAAAAAAAAAC2pofQ/ICHBezp9WPkBOB5+725UMZQqUJ5spXjJaYTWeMl0Mz6bPbDki8ejFmxRkpNZcWxeHnRqTpVY5NSm8ma1X2rmelHaYclctIvXxLnr0mlprKK5l4eS4C4C4C4C4C4C4C4C4C44C4C44C44C4HRPRxuE4xeNqq0qiyaEX+Wlrk+eXkjmd21nXb4VZ7R5+620On6Y65b0UqyAMfC8ut1l8iAyQAAAAAAAAACklmYEOD9nDmVu7MBMAA1PfzvY43Dh6K/1NJWto4aHuPn2P7lptuu+Bbpt8s/00tXpviR1R5hyq+nSmm008zTTs01qa2HWRMTHMKaY4VuShS4C4C4FbgUuAuAuAuAuAuAuAuBsu8re08bPhai/0tOXrf780+Qv5VrfZtKnctf8GvRT5p/pu6XTfEnqnw63GKSSSslmSWpHKLqOyoACDC6aj2yfgkgMgAAAAAAAAAAAY2DVlOPuyl/7et/l4AZAAABpu/PecsTfEYa0MRpnB5o10lrf5Z8/Y9qttv3KcH4L96/40dTpYv8Air5cvqRlCUoTi4Tg8mcJK0oS2NHVUtW8Ras8xKomsxPEqXPfApccBccILhJccBcIVuAuOElyOAuTwguQNm3o70qmNca1W9PCab2aliFshsj/ADa9W0qNw3KuGJpTvb/G7ptLOT8VvDrGGw8KUI06cVCEEoxjHMopakcta02mZnzK4rWKxxCU8pAAEGBXqJ++3O2zKd/qBkAAAAAAAAAAADGq+rUjL8s7QlzP8r8Wu1AZAAAAA8PfJvYoY6P4icKsVaFeFsuPM/ejzM3NJrcmnn8Pj2YM2nrkju5du9vYxWBu6kOEpLRXpJuNts46YeK5zqNLuOHPxHPE+0qrLpr4/s8VSvnWdPWtDLBrlwFwFwFwFwK3AXAmwGEq4ifBUKcqs9agr5PWeiPaYc2fHhjqvPD3THa88Vh0Xez6P403GrjXGrNZ1QjnpwerKb9o/DmOc1u72yc1xdo9/VZYNFFe929JWzFI31QAADHxbulTWmpm6Ifmf07UBkpAAAAAAAAAAAABbUgpJp6HmAhoTa9SbvJaH78dvTtAnAAAAFGgNZ3Z3jYLEtzUHh6ks7nQtC72yjyX3Fjp90z4eI55j2lrZNLjv9Gobo+jjFwu6FWliI6lO9CdvGL8C4w75imPzKzH27w076G8fLPLwMVvcx1Ll4Stm1wUai74u/gWFNw01/F4a9tPkr+l588PVjyqNWPWpVl/iZ41GKfFo/mGOaW9lqpzeinUfRTqv/Emc2OPNo/k6LezKw+5OKqZoYXES/45R+axitrMFfOSP5eow3nxWXs4HeJuhVtenChHW6086/oin5mnl3jTU8TM/Zmro8k/RtO5Xo2oQtLE1Z4h64R/Bp9yztdLKrPveW/bHHT/AK28ehrHzTy3PA4GlQgqdGnGlBaIwSivAp8mS+Seq08y3K0iscRDIPD0AAAFlWooq7/+t7EBZh6bzylypavdjqivqBOAAAAAAAAAAAAACytSU1aXZqae1PUwIcucOUnOPvR5S6Vr7AJKdaMtEk+36ASAAAAABQBZBHEKZK/7Ynk4hUhKoAAAAAUlJLS0unMBA8TfNTWW9uiK6WBdSoZ8ubyp6FsitkUBOAAAAAAAAAAAAAAAAAR1KEZcqKfPr7wI1g4rkuUeiUvqBTir+LU74/YBxV/Fqf2/2gOKv4tTvp/tAcVfxanfD9oDir+LU/t/tAcVfxanfT/aA4q/i1O+n+0BxV/Fqd8P2gOKv4tTvh+0BxV/Fqd8P2gOKv4tT+3+0BxV/Fqd8P2gV4rtnN9MvsBWGDpr8t+s3LzAnSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB//9k="; //} - private string MailgetBodyNuevatarea(int Folio, string Link, string Asunto, string Descripcion, string Fechai, string Fechaihora, string Fechaf, string Fechafhora, string Prioridad, string Tema, string UsuarioDe, string UsuarioPara,string Accion ="Nueva tarea asignada") + private string MailgetBodyNuevatarea(int Folio, string Link, string Asunto, string Descripcion, DateTime DFechai, DateTime DFechaf, string Prioridad, string Tema, string UsuarioDe, string UsuarioPara, string Accion = "Nueva tarea asignada") { string UsuarioDeAbr = ""; if (UsuarioDe != null) { string[] str = UsuarioDe.Split(' '); - if (str.Length > 0) + if (str.Length > 0 && str[0].Length > 0) { UsuarioDeAbr = str[0].Substring(0, 1).ToUpper(); } - if (str.Length > 1) + if (str.Length > 1 && str[1].Length > 0) { UsuarioDeAbr = string.Format("{0}{1}", UsuarioDeAbr, str[1].Substring(0, 1).ToUpper()); @@ -1573,11 +1590,11 @@ public partial class OI_TareaDetalle : ClsPaginas if (UsuarioPara != null) { string[] str = UsuarioPara.Split(' '); - if (str.Length > 0) + if (str.Length > 0 && str[0].Length > 0) { UsuariParaAbr = str[0].Substring(0, 1).ToUpper(); } - if (str.Length > 1) + if (str.Length > 1 && str[1].Length > 0) { UsuariParaAbr = string.Format("{0}{1}", UsuariParaAbr, str[1].Substring(0, 1).ToUpper()); @@ -1585,7 +1602,7 @@ public partial class OI_TareaDetalle : ClsPaginas } StringBuilder StrMail = new StringBuilder(); - StrMail.Append(""); + StrMail.Append(""); StrMail.Append("
    "); StrMail.Append("
    "); StrMail.Append("
    SIG Notificaciones
    "); @@ -1594,24 +1611,26 @@ public partial class OI_TareaDetalle : ClsPaginas StrMail.Append(" "); StrMail.Append(" "); StrMail.Append(" "); StrMail.Append(" "); - StrMail.Append(" "); + StrMail.Append(" "); StrMail.Append(" "); StrMail.Append("
    "); - StrMail.Append(" De: @UsuarioDeAbr@ @UsuarioDe@
    "); - StrMail.Append(" Para: @UsuariParaAbr@ @UsuarioPara@"); + StrMail.Append(" De: @UsuarioDeAbr@ @UsuarioDe@
    "); + StrMail.Append(" Para: @UsuariParaAbr@ @UsuarioPara@"); StrMail.Append("     		"); StrMail.Append(" Nueva"); StrMail.Append(" Tarea"); StrMail.Append(" "); - StrMail.Append(" "); - StrMail.Append(" "); - StrMail.Append(" "); + StrMail.Append(" "); + StrMail.Append(" "); + //StrMail.Append(" "); StrMail.Append("
    "); - StrMail.Append("
    "); + StrMail.Append("
    "); StrMail.Append(""); StrMail.Append("
    "); - StrMail.Append(" @Asunto@"); + StrMail.Append(" @Asunto@"); StrMail.Append("
    "); StrMail.Append("
    "); StrMail.Append(" Folio:"); @@ -1633,7 +1652,7 @@ public partial class OI_TareaDetalle : ClsPaginas StrMail.Append("
    "); StrMail.Append("
    "); StrMail.Append("
    "); - StrMail.Append(" "); + StrMail.Append("
    "); StrMail.Append(" "); StrMail.Append(" "); StrMail.Append("
    Inicia:"); @@ -1651,6 +1670,11 @@ public partial class OI_TareaDetalle : ClsPaginas StrMail.Append(" "); StrMail.Append(" "); StrMail.Append(" "); + StrMail.Append(""); + string Fechai = string.Format("{0:dd} de {0:MM yyyy}", DFechai); + string Fechaihora = string.Format("{0:HH:mm}", DFechai); + string Fechaf = string.Format("{0:dd} de {0:MM yyyy}", DFechaf); + string Fechafhora = string.Format("{0:HH:mm}", DFechaf); return StrMail.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion) .Replace("@Fechai@", Fechai).Replace("@Fechaihora@", Fechaihora).Replace("@Fechaf@", Fechaf).Replace("@Fechafhora@", Fechafhora) .Replace("@Prioridad@", Prioridad.ToUpper()).Replace("@Tema@", Tema).Replace("@UsuarioDeAbr@", UsuarioDeAbr) @@ -2058,6 +2082,41 @@ public partial class OI_TareaDetalle : ClsPaginas protected void LnkUpRelacion_Click(object sender, EventArgs e) { - Alert("ocurrio un error al actualizar lla relación "); + int TipoVinculo = DdlViculos.SelectedValue.ToEntero(); + if (TipoVinculo > 0) + { + int cveRelacion = -1; + switch (TipoVinculo) + { + case (int)OITipoEventosRelacion.Cliente: + cveRelacion = DdlCliente.SelectedValue.ToEntero(); + break; + case (int)OITipoEventosRelacion.Proveedor: + cveRelacion = DdlProveedores.SelectedValue.ToEntero(); + break; + case (int)OITipoEventosRelacion.Personal: + cveRelacion = DdlPersonal.SelectedValue.ToEntero(); + break; + + default: + break; + } + + using (ClsOIEventos ev = new ClsOIEventos()) + { + if (ev.UPEventosVinculo(RCveEvento, TipoVinculo, cveRelacion, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) + { + LoadTarea(); + Alert("la relacion se ha actualizado correctamente", ModExtensiones.TipoMensaje.ToastInformacion); + RegistraScript(string.Format("$('#{0}').modal('hide');", idUpVinculo)); + UpContenido.Update(); + } + } + + } + else + { + Alert("Debe seleccionar el tipo de vinculo", ModExtensiones.TipoMensaje.MsgAdvertencia); + } } } diff --git a/OI/UnoaUno.aspx b/OI/UnoaUno.aspx index 084ef99db..4e558e968 100644 --- a/OI/UnoaUno.aspx +++ b/OI/UnoaUno.aspx @@ -20,9 +20,24 @@ } .lnkUsergray { - color:#999b9b; + color: #999b9b; font-size: 11px; } + + .unoaunoold { + color: #999b9b; + font-size: 11px; + } + + .tituloFecha { + font-weight: 600; + font-size: 16px; + } + + .msgAyuda { + color: cadetblue; + font-size: 10px; + } @@ -40,7 +55,8 @@
  • - Seguir
    • + Seguir +     @@ -66,14 +82,19 @@ -
    +
    - + + + + + +
    - +     @@ -96,12 +117,17 @@
    -
    - +
    + + + + + + - + @@ -156,9 +182,13 @@

    -

    + +
    + + +     @@ -166,7 +196,7 @@

    - Guardar + Guardar
    @@ -188,7 +218,7 @@
    - + @@ -209,23 +239,20 @@
    -
    -
    -
    - - Pregunta: - - -
    -
    -
    -
    - - Vinculo: -
    -
    +
    + + Pregunta: + +
    -
    +
    Si las preguntas que vas a hacer no se encuentran en el listado, agrégalas.
    +
    + + Vinculo: +
    +
    Le recordará al usuario la respuesta del día anterior a la pegunta seleccionada (Ej. Si nuestro día actual es Viernes, recordará lo que se respondió en su pregunta el día jueves)
    +
    +
    Guardar Cancelar
    @@ -239,12 +266,12 @@ - + - + @@ -265,6 +292,7 @@
    Cuestionario +
    Selecciona un cuestionario existente, o bien, genera uno nuevo
    @@ -274,6 +302,8 @@
    <%----%> +
    +
    Cuestionario: @@ -412,32 +442,61 @@
    - +
    - +
    diff --git a/UserControl/TareaNueva.ascx.cs b/UserControl/TareaNueva.ascx.cs index eabbd1f5c..09fc26433 100644 --- a/UserControl/TareaNueva.ascx.cs +++ b/UserControl/TareaNueva.ascx.cs @@ -249,7 +249,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl 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); + this.Alert("Se ha agregado la nueva tarea", ModExtensiones.TipoMensaje.ToastInformacion); TxtAsunto.Text = ""; TxtDescripcion.Text = ""; @@ -307,7 +307,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl { if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { - this.Alert(string.Format("El Tema \"{0}\" fue agregada con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion); + this.Alert(string.Format("El Tema \"{0}\" fue agregado con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion); this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema)); if (Ismodal) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index e9fc7d01e..61757410e 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -395,13 +395,13 @@
    - +
    - +
    @@ -604,6 +604,17 @@
    + +
    + + +
    + +
    + + +
    +
    @@ -1488,7 +1499,7 @@
    - +
       @@ -1546,7 +1557,7 @@
    - +
       @@ -5498,7 +5509,7 @@ - Dias + Días
    @@ -5514,7 +5525,7 @@ - Dias Credito + Días Credito
    @@ -5579,7 +5590,7 @@ - + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 971422716..1e4424463 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1666,6 +1666,8 @@ Partial Class Clientes DivProtletRegistrar.Visible = True End If + TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString + TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString Else Existe = False Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) @@ -2441,7 +2443,7 @@ Partial Class Clientes CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero, CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(), ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, - TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero()) Then + TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text) Then ViewState("CveCliente") = ObjClientes.CveCliente @@ -2536,7 +2538,7 @@ Partial Class Clientes CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(), ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(), - RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero()) Then + RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text) Then ObjClientes.LimpiaImpuestosLocales(CveCliente) diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 4cbab9abb..190076940 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2342,12 +2342,12 @@
    - +
    - +
    diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx b/Ventas/RepCancelacionesPorRespuesta.aspx index 06a752b32..878847631 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx +++ b/Ventas/RepCancelacionesPorRespuesta.aspx @@ -1,134 +1,161 @@ -<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepCancelacionesPorRespuesta.aspx.cs" Inherits="Ventas_RepCancelacionesPorRespuesta" %> - - - - - - - Reporte de Cancelaciones por Respuesta - - - - -
  • - Verificar Cancelaciones
    • -     -     -     - - - - - - - -
    -
    -
    - Facturas Pendientes Por Respuesta -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    - Facturas Pendientes Por Refacturar -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - - - - - - - - - <%-- - - - - --%> - - - - -
    -
    -
    -
    -     -     -     - +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepCancelacionesPorRespuesta.aspx.cs" Inherits="Ventas_RepCancelacionesPorRespuesta" %> + + + + + + + Reporte de Cancelaciones por Respuesta + + + + +
  • + Verificar Cancelaciones
    • +     +     +     + + + + + + + +
    +
    +
    +
    + + Información: + +
    +
    +
    +
    +
    +
    +
    + Facturas Pendientes Por Respuesta +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    + Facturas Pendientes Por Refacturar +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +     +     +     + + - + function BtnEnviarMailCancelacion() { + $('#BtnEnviarMailCancelacion').click(); + } + + $(document).ready(function () { + if ($('#DivAdvertencia')) { + $("#DivAdvertencia").pulsate("destroy"); + jQuery('#DivAdvertencia').pulsate({ + color: "#faebcc" + }); + } + + }); + + +     + diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs index 7638acf65..00a374a17 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs +++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs @@ -10,7 +10,8 @@ using System.Web.UI; using System.Web.UI.WebControls; using Extensiones; using static Extensiones.ModExtensiones; - +using Microsoft.Reporting.WebForms; + public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas { private DataTable DtVentas @@ -75,7 +76,16 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas string Nombre = GvRow.DataKey("Nombre"); if (CveVenta > 0) { - Alert(VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCCliente, Total)); + var resp = VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCCliente, Total); + if (resp.EnviarAcuse) + { + Alert(resp.Mensaje,TipoMensaje.MsgConfirmacion,"BtnEnviarMailCancelacion();"); + } + else + { + Alert(resp.Mensaje); + } + } CargaDatos(); } @@ -92,28 +102,53 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas string Folio = GvRow.DataKey("Folio"); string TipoDocto = GvRow.DataKey("TipoDocto"); string Nombre = GvRow.DataKey("Nombre"); + if (CveVenta > 0) { - Alert(VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCCliente, Total, true)); + var respuesta = VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCCliente, Total, true); + + Alert(respuesta.Mensaje); + CargaDatos(); + + //if (respuesta.IrARefacturar) + //{ + // Server.Transfer(respuesta.LigaRefacturacion); + //} + //else + //{ + // Alert(respuesta.Mensaje); + // CargaDatos(); + //} } - CargaDatos(); + } - private string VerificarVigenciaSAT(int CveVenta, int CveCliente, string Folio, string TipoDocto, string uuid, string emisor, string receptor, string total, bool EsRefacturacion = false) + private MRespuestaSAT VerificarVigenciaSAT(int CveVenta, int CveCliente, string Folio, string TipoDocto, string uuid, string emisor, string receptor, string total, bool EsRefacturacion = false) { + var retorno = new MRespuestaSAT() + { + Mensaje = "", + EnviarAcuse = false, + LigaRefacturacion = "", + IrARefacturar = false + }; + var sb = new StringBuilder(); - var CancelacionAcuse = ""; - var CancelacionFecha = DateTime.Now; + + string CancelacionAcuse = ""; + DateTime CancelacionFecha = DateTime.Now; int CveEstatus = 4; + try { - var resp = Timbrado.VerificarVigenciaSAT(uuid, UsuarioActual.Empresa.RFC, receptor, total, UsuarioActual.Empresa.FacturaProduccion); + var resp = Timbrado.VerificarVigenciaSAT(uuid, UsuarioActual.Empresa.RFC, receptor, total, true); if (resp != null) { if (resp.Estado == null) { sb.Append("No se pudo comprobar el estado de la factura. El servicio del sat no esta disponible"); - return sb.ToString(); + retorno.Mensaje = sb.ToString(); + return retorno; } sb.AppendFormat("Folio Fiscal: {0}
    ", uuid); @@ -124,12 +159,22 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas if (!UsuarioActual.Empresa.FacturaProduccion && (string.IsNullOrEmpty(uuid) || uuid.Contains("test"))) { - var FueCancelado = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC).Mensaje; + var respCancelacion = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion: EsRefacturacion); - sb.AppendFormat("{0}
    ", FueCancelado); - if (CveEstatus.Contiene(4, 5) && EsRefacturacion) + sb.AppendFormat("{0}
    ", respCancelacion.Mensaje); + if (!respCancelacion.HuboError) { - Response.Redirect(string.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", CveVenta)); + retorno.EnviarAcuse = true; + + sb.Append("El Documento se canceló correctamente."); + sb.Append($"
    Imprimir Acuse"); + sb.Append("

    ¿Desea enviar el Acuse de Cancelación al Cliente?"); + } + + if (respCancelacion.CveEstatus.Contiene(4, 5) && EsRefacturacion) + { + retorno.IrARefacturar = true; + retorno.LigaRefacturacion = string.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", CveVenta); } } else @@ -137,30 +182,28 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas if ((resp.EsCancelable.ToUpper() == "NO CANCELABLE")) { sb.Append("Esta factura no es cancelable."); - return sb.ToString(); + retorno.Mensaje = sb.ToString(); + return retorno; } if (resp.Estado.ToUpper().Trim() == "CANCELADO" || resp.EstatusCancelacion.ToUpper() == "PLAZO VENCIDO") { CveEstatus = 5; - var solicitud = new WSGF.Service1SoapClient(); - var acuse = solicitud.GetAcuse(emisor, "rene.molina@adsistemas.mx", "rene2018", uuid); - if (acuse.Estado == 0) + var respCancelacion = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion: EsRefacturacion); + + sb.AppendFormat("{0}
    ", respCancelacion.Mensaje); + if (!respCancelacion.HuboError) { - var xmlAcuse = new System.Xml.XmlDocument(); - xmlAcuse.LoadXml(DecodeBase64(acuse.CfdiB64)); - - CancelacionAcuse = xmlAcuse.GetElementsByTagName("SignatureValue")[0].InnerText; - CancelacionFecha = xmlAcuse.SelectSingleNode("Acuse").Attributes["Fecha"].Value.ToDate(); + sb.Append("El Documento se canceló correctamente."); + sb.Append($"
    Imprimir Acuse"); + sb.Append("

    ¿Desea enviar el Acuse de Cancelación al Cliente?"); } - var FueCancelado = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion: EsRefacturacion).Mensaje; - - sb.AppendFormat("{0}
    ", FueCancelado); - if (CveEstatus.Contiene(4, 5) && EsRefacturacion) + if (respCancelacion.CveEstatus.Contiene(4, 5) && EsRefacturacion) { - Response.Redirect(string.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", CveVenta)); + retorno.IrARefacturar = true; + retorno.LigaRefacturacion = string.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", CveVenta); } } else if (resp.EstatusCancelacion.ToUpper() == "SOLICITUD RECHAZADA") @@ -183,16 +226,19 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas else { sb.Append("No se pudo comprobar la vigencia de la factura."); - return sb.ToString(); + retorno.Mensaje = sb.ToString(); + return retorno; } } catch (Exception ex) { - sb.Append("Error al consumir el servicio: " + ex.Message); - return sb.ToString(); + sb.Append("Error al consumir el servicio: " + ex.Message); + retorno.Mensaje = sb.ToString(); + return retorno; } - return sb.ToString(); + retorno.Mensaje = sb.ToString(); + return retorno; } private Modelos.Factura.MCancelacionVentaMensaje CancelarDocumento(int CveVenta, int CveEstatus, int CveCliente, string Folio, string FolioFiscal, string CancelacionAcuse, DateTime CancelacionFecha, string TipoComprobante, double Total, int CvePACCancelacion, bool EsRefacturacion = false) { @@ -209,181 +255,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas return retorno; } - - //private int GenerarPolizaAC(ClsContPAQi ObjAC, int CveVenta, string Folio, int CveCliente, string TipoComprobante, DateTime Fecha, bool CancelacionIngreso = false) - //{ - // int CtaCliente = 0; - // int OrdenPago = 0; - // string NombreCliente = ""; - - // var ObjClientes = new ClsClientes(); - // if (ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)) - // { - // CtaCliente = ObjClientes.IdCtaContClientes; - // NombreCliente = ObjClientes.NombreComercial; - // } - // ObjClientes.Dispose(); - - // var ObjVentas = new ClsVentas(); - // if (ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa)) - // { - // if (ObjVentas.DtResultados.Rows.Count > 0) - // { - // OrdenPago = ObjVentas.DtResultados.Rows[0]["Num3"].ToEntero(); - // } - // } - - // int Retorno = 0; - // int IDPoliza = 0; - // bool ErrorAC = false; - // string Concepto = string.Format("GD {0}", NombreCliente); - // int Paridad = 1; - // bool TipoMovto = false; - // if (CancelacionIngreso) - // { - // Concepto = string.Format("Cancelación GD {0}", NombreCliente); - // Paridad = -1; - // TipoMovto = true; - // } - // var TipoPoliza = TipoComprobante.Contiene("OP", "Com") ? 3 : 1; - // DataRow dr = null; - // int CtaISSSTESON = 643; - // int CtaISPT = 1745; - // var AC = new ClsAC(); - - // //var ObjAC = new ClsContPAQi(UsuarioActual.Empresa); - // //ObjAC.IniciaTransacSQL(); - - // IDPoliza = ObjAC.AddPoliza(TipoPoliza, Concepto, 0, 0, UsuarioActual.CveUsuario, Fecha); - - // if (IDPoliza > 0) - // { - // if (TipoComprobante == "OP") - // { - // //Orden de PAGO - // if (OrdenPago == 1) - // { - // //ISSSTESON - // if (ObjAC.AddMovimiento(IDPoliza, CtaCliente, false, (Paridad * 0d), "", Concepto, 0, Fecha, "")) - // { - // if (!ObjAC.AddMovimiento(IDPoliza, CtaISSSTESON, true, (Paridad * 0d), "", Concepto, 0, Fecha, "")) - // { - // ErrorAC = true; - // } - // } - // else - // { - // ErrorAC = true; - // } - // } - // else - // { - // //ISPT - // if (ObjAC.AddMovimiento(IDPoliza, CtaCliente, false, (Paridad * 0d), "", Concepto, 0, Fecha, "")) - // { - // if (!ObjAC.AddMovimiento(IDPoliza, CtaISPT, true, (Paridad * 0d), "", Concepto, 0, Fecha, "")) - // { - // ErrorAC = true; - // } - // } - // else - // { - // ErrorAC = true; - // } - // } - // } - // else - // { - // //NORMAL - // DataTable Detalles = null; - // DataTable DTPresupuestoIngresos = null; - // if (ObjVentas.GetVentaDetalle(CveVenta)) - // { - // Detalles = ObjVentas.DtResultados.Copy(); - // } - // if (AC.GetPresupuestoIngresos(-1, DateTime.Now.Year, true, UsuarioActual.CveEmpresa)) - // { - // DTPresupuestoIngresos = AC.DtResultados.Copy(); - // } - - // if (Detalles != null && DTPresupuestoIngresos != null) - // { - // var query = from gvr in Detalles.AsEnumerable() - // group gvr by gvr["CvePresupuestoIngreso"].ToString().ToEntero() into g - // select new { TotalImporte = g.Sum((x) => x["Total"].ToString().ToDouble()), CvePresupuestoIngreso = g.Key }; - - // foreach (var item in query) - // { - // dr = DTPresupuestoIngresos.FiltroPrimero(string.Format("CvePresupuestoIngreso = {0}", item.CvePresupuestoIngreso)); - // if (dr != null) - // { - // Concepto = string.Format("{0} - {1}: {2}", NombreCliente, TipoComprobante, Folio); - // if (ObjAC.AddMovimiento(IDPoliza, dr["IdCuentaPorEjecutar"].ToString().ToEntero(), false, (Paridad * item.TotalImporte), "", Concepto, 0, Fecha, "")) - // { - // if (ObjAC.AddMovimiento(IDPoliza, dr["IdCuentaDevengado"].ToString().ToEntero(), true, (Paridad * item.TotalImporte), "", Concepto, 0, Fecha, "")) - // { - // // CARGO la deuda del cliente - // if (ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, item.TotalImporte, "", Concepto, 0, Fecha, "")) - // { - // // abono, - // if (!ObjAC.AddMovimiento(IDPoliza, dr["IdCuentaMatriz"].ToString().ToEntero(), !TipoMovto, item.TotalImporte, "", Concepto, 0, Fecha, "")) - // { - // ErrorAC = true; - // break; - // } - - // } - // else - // { - // ErrorAC = true; - // break; - // } - - // } - // else - // { - // ErrorAC = true; - // break; - // } - // } - // else - // { - // ErrorAC = true; - // break; - // } - // } - // else - // { - // ErrorAC = true; - // break; - // } - // } - // } - // else - // { - // ErrorAC = true; - // } - // } - // } - // else - // { - // ErrorAC = true; - // } - - // if (!ErrorAC) - // { - // ObjAC.AjustaPoliza(IDPoliza); - // Retorno = IDPoliza; - // } - // else - // { - // Alert("Error al Agregar la Póliza de AC.", TipoMensaje.MsgError); - // } - // AC.Dispose(); - // ObjVentas.Dispose(); - - // return Retorno; - //} + private string DecodeBase64(string strXMLCodificado) { try @@ -429,8 +301,124 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas { if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 0) { - e.Row.Cells[8].Text = ""; + e.Row.Cells[10].Text = ""; } } } + public void BtnEnviarMailCancelacion_Click(object sender, EventArgs e) + { + ImprimeCancelacion(CveVenta); + } + + public void ImprimeCancelacion(int CveVenta) + { + var Archivo = new System.IO.FileInfo(ModExtensiones.DirectorioBaseEmpresas + @"Empresas\Grales\Formatos\AcuseCancelacion.rdlc"); + if (Archivo.Exists) + { + var ObjFactura = new Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa); + + string SelloCancelacion = ""; + string FechaCancelacion = ""; + DataTable DtDatos = null; + + using (ClsVentas ObjVentas = new ClsVentas()) + { + if (ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa)) + { + DtDatos = ObjVentas.DtResultados.Copy(); + + DataRow drv = DtDatos.Rows[0]; + SelloCancelacion = drv["SelloCancelacion"].ToString(); + FechaCancelacion = drv["FechaCancelacion"].ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm:ss"); + } + } + + List parametros = new List(); + parametros.Add(new ReportParameter("FechaCancelacion", FechaCancelacion.ToString())); + parametros.Add(new ReportParameter("FolioFiscal", ObjFactura.FolioFiscal)); + parametros.Add(new ReportParameter("RFCEmisor", UsuarioActual.Empresa.RFC)); + parametros.Add(new ReportParameter("SelloCancelacion", SelloCancelacion)); + + byte[] ObjetoPDF = StreamPDF(@"Empresas\Grales\Formatos\AcuseCancelacion.rdlc", DtDatos, parametros, "AcuseCancelacion" + CveVenta); + + + List LSRutasMail = new List(); + string Asunto = string.Empty; + string Cuerpo = string.Empty; + + StringBuilder sb = new StringBuilder(); + if (UsuarioActual.CveEmpresa == 119) + { + sb.Append(""); + sb.Append(""); + sb.Append(""); + sb.Append(""); + sb.Append(" Acuse De Cancelación"); + sb.Append(" "); + sb.Append(""); + sb.Append(""); + sb.Append(" "); + sb.Append($" Estimado Cliente {ObjFactura.Cliente.Nombre},

    "); + sb.Append($" Le informamos que Agroquímicos JAM, S.A. DE C.V ha cancelado el CFDI {ObjFactura.SerieFolio}, el cual ha quedado sin Efectos Fiscales y encontrará adjunto en este correo el Acuse de
    "); + sb.Append($" cancelación del SAT.
    "); + sb.Append(" POR LO QUE PEDIMOS ELIMINARLO Y NO INCLUIRLO EN SU CONTABILIDAD, YA QUE PUEDE REPRESENTAR UN PROBLEMA FISCAL PARA USTED O SU EMPRESA CUANDO EL SAT REALICE UNA FUTURA AUDITORIA
    "); + sb.Append(" EN SU CONTABILIDAD.     "); + sb.Append(" "); + sb.Append("




    "); + sb.Append(" Este correo se generó automaticamente, favor de no responder este mensaje."); + sb.Append("     "); + sb.Append(""); + sb.Append(""); + } + else + { + sb.Append(""); + sb.Append(""); + sb.Append(""); + sb.Append(""); + sb.Append(" Acuse De Cancelación"); + sb.Append(" "); + sb.Append(""); + sb.Append(""); + sb.Append(" "); + sb.Append($" Estimado Cliente {ObjFactura.Cliente.Nombre},

    "); + sb.Append($" A través del presente medio la Empresa {UsuarioActual.Empresa.Empresa} - {UsuarioActual.Empresa.RFC}, canceló el documento tipo {ObjFactura.TipodeComprobante}
    "); + sb.Append($" con folio {ObjFactura.SerieFolio} y el Importe de ${ObjFactura.Total}.

    "); + sb.Append(" Le hacemos llegar el acuse de cancelación.     "); + sb.Append(" "); + sb.Append("




    "); + sb.Append(" Este correo se generó automaticamente, favor de no responder este mensaje."); + sb.Append("     "); + sb.Append(""); + sb.Append(""); + } + Asunto = $"Acuse de Cancelacion {ObjFactura.SerieFolio}"; + Cuerpo = sb.ToString(); + string DisplayName = ""; + if (UsuarioActual.CveEmpresa == 119) + DisplayName = "Facturación Agroquímicos JAM"; + + LSRutasMail.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = ObjetoPDF, NombreArchivo = $"AcuseCancelacion{ObjFactura.SerieFolio}.pdf" }); + + ClsSisMail ObjMail = new ClsSisMail(); + if (ObjMail.SendMail(UsuarioActual.Empresa, ObjFactura.Cliente.Mail, Asunto, Cuerpo, "", LSRutasMail, Displayname: DisplayName)) + { + Alert("El acuse de cancelación ha sido envíado correctamente."); + } + else + { + Alert("El acuse de cancelación no pudo ser enviado.",TipoMensaje.MsgError); + } + + } + + } + +} +public class MRespuestaSAT +{ + public bool EnviarAcuse { get; set; } + public string LigaRefacturacion { get; set; } + public bool IrARefacturar { get; set; } + public string Mensaje { get; set; } } \ No newline at end of file diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index d410596a0..93eab57e7 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -6326,12 +6326,12 @@
    - +
    - +
    diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index eb6abe994..17ef65fca 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10,6 +10,7 @@ Imports System.Security.Cryptography.X509Certificates Imports System.Globalization Imports System.Net.Http Imports Newtonsoft.Json.Linq +Imports System.Diagnostics Partial Class Ventas Inherits ClsPaginas @@ -7018,11 +7019,18 @@ Partial Class Ventas 'End If 'Esquema viejo, evitamos que aparezca por surtir If ErrorList.Count = 0 Then + 'MARCAR VENTA ANTERIOR + If Not ObjInventario.ActualizarEsDevolucionVenta(CveDevolucion, 2) Then + ErrorList.Add("No se pudo Cancelar el movimiento de almacen de la Factura") + End If + + 'MARCAR VENTA ANTERIOR If VentaSaldoAlmacenNC <> 0 OrElse DevolucionAlmacenNC = 2 Then If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then ErrorList.Add("No se pudo Cancelar el movimiento de almacen de la Factura") End If End If + End If End If End If @@ -9478,7 +9486,7 @@ Partial Class Ventas Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=CveTipoRetencion) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
    Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else - If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Then + If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then If DtVentasNC IsNot Nothing Then For Each row As DataRow In DtVentasNC.Rows If Not row("CveVenta").ToString().ToEntero() = -1 Then @@ -13302,7 +13310,7 @@ Partial Class Ventas End If Else - Alert("Se presento un error al cancelar el complemento.") + Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.
    Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError) End If ObjBanco.Dispose() @@ -16167,6 +16175,8 @@ Partial Class Ventas End If MovDetalle.Dispose() + + OcurrioError = Not GeneroMovimientoAlmacen End If End If @@ -16180,7 +16190,7 @@ Partial Class Ventas End If Next - OcurrioError = Not GeneroMovimientoAlmacen + End If End If @@ -16334,7 +16344,7 @@ Partial Class Ventas CveMovimientoDetalleEntrada = MovDet("CveMovimientoDetalle").ToString().ToEntero() End If - If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, CveSeccionAlmacen:=CVeSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then + If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then ContadorMovtosDetalles += 1 Else OcurrioError = True @@ -17035,7 +17045,21 @@ Partial Class Ventas Dim TotalT As Decimal = TxtTotal.Text.ToDecimal Dim RFCReceptor As String = LblRFC.Text.Trim + + Dim SWatch As New Stopwatch + SWatch.Start() + Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True) + + SWatch.Stop() + + Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000 + SegundosRespuesta = SegundosRespuesta.ToEntero + + If SegundosRespuesta >= 5 Then + Alert($"Los servicios de validacion del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastError, "") + End If + If Vigencia IsNot Nothing Then If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then @@ -18003,17 +18027,30 @@ Partial Class Ventas Private Function ValidaPagosContado() As Boolean Dim Retorno = False + Dim AmortizacionNC As Decimal = 0 + + 'SI ES AMORTIZACION POR NOTA DE CREDITO DEBE SUMAR LA TOTALIDAD PARA COMPARAR EL PAGO + If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then + For Each gvr As GridViewRow In GVAnticipos.Rows + If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(3) Then + AmortizacionNC += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal + End If + Next + End If + + Dim TienePagos As Boolean = ((Not (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0)) AndAlso (DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0)) OrElse AmortizacionNC > 0 + 'SI LA VENTA ES NUEVA VALIDAR TAMBIEN LOS PAGOS DE CONTADO If UsuarioActual.CveEmpresa = 141 AndAlso CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then - If Not PermiteCredito AndAlso (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0) AndAlso TxtTotal.Text.ToDecimal > 0 Then + If Not PermiteCredito AndAlso Not TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then Alert("Es necesario especificar un pago.", TipoMensaje.MsgAdvertencia) Retorno = True Return Retorno End If - If Not PermiteCredito AndAlso (DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0) AndAlso TxtTotal.Text.ToDecimal > 0 Then - Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal() + If Not PermiteCredito AndAlso TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then + Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal() + AmortizacionNC If TotalPago < TxtTotal.Text.ToDecimal Then Alert("La suma de los pagos debe ser igual al total de la venta.", TipoMensaje.MsgAdvertencia) @@ -18026,15 +18063,15 @@ Partial Class Ventas 'SI TIENE SALDO PENDIENTE VALIDA SI TIENE PAGOS If Me.SaldoVenta > 0 Then - If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") AndAlso (UsuarioActual.Empresa.Funcionalidad(531) = "1") AndAlso (Not PermiteCredito) AndAlso (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0) And TxtTotal.Text.ToDecimal > 0 Then + If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") AndAlso (UsuarioActual.Empresa.Funcionalidad(531) = "1") AndAlso (Not PermiteCredito) AndAlso Not TienePagos And TxtTotal.Text.ToDecimal > 0 Then Alert("Es necesario especificar un pago.", TipoMensaje.MsgAdvertencia) Retorno = True End If If UsuarioActual.CveEmpresa = 141 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then - If Not PermiteCredito AndAlso DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 AndAlso TxtTotal.Text.ToDecimal > 0 Then - Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal() + If Not PermiteCredito AndAlso TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then + Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal() + AmortizacionNC If TotalPago < TxtTotal.Text.ToDecimal Then Alert("La suma de los pagos debe ser igual al total de la venta.", TipoMensaje.MsgAdvertencia) @@ -18048,18 +18085,18 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(572) = "1" Then Dim TotalNC As Decimal = If(ListaNCDesc IsNot Nothing AndAlso ListaNCDesc.Count > 0, LblTotalNC.Text.Trim().ToDecimal(), 0) If TotalNC > 0 Then - If (DtPagos.SUM("Importe").ToString().ToDecimal + Total - TxtCambio.Text.ToDecimal) > TotalNC Then + If (DtPagos.SUM("Importe").ToString().ToDecimal() + AmortizacionNC + Total - TxtCambio.Text.ToDecimal) > TotalNC Then Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia) Retorno = True End If Else - If (DtPagos.SUM("Importe").ToString().ToDecimal + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then + If (DtPagos.SUM("Importe").ToString().ToDecimal() + AmortizacionNC + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia) Retorno = True End If End If Else - If (DtPagos.SUM("Importe").ToString().ToDecimal + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then + If (DtPagos.SUM("Importe").ToString().ToDecimal() + AmortizacionNC + Total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia) Retorno = True End If @@ -19178,6 +19215,7 @@ Partial Class Ventas End If sb.Clear() End If + ObjVentas.Dispose() End Sub Private Sub MostrarCondicionesCancelacion() @@ -19212,7 +19250,19 @@ Partial Class Ventas Dim TotalT As Decimal = TxtTotal.Text.ToDecimal Dim RFCReceptor As String = LblRFC.Text.Trim + Dim SWatch As New Stopwatch + SWatch.Start() Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True) + + SWatch.Stop() + + Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000 + SegundosRespuesta = SegundosRespuesta.ToEntero + + If SegundosRespuesta >= 5 Then + Alert($"Los servicios de validacion del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastAdventencia, "") + End If + If Vigencia IsNot Nothing Then If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then Alert("Esta factura no es cancelable.", TipoMensaje.MsgAdvertencia) @@ -19272,7 +19322,7 @@ Partial Class Ventas CancelacionAcuse = ObjCancelacion.CancelacionAcuse CveEstatus = 5 Else - Alert("La factura no se pudo cancelar ante el SAT", TipoMensaje.MsgError) + Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.
    Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError) Exit Sub End If Else @@ -19392,6 +19442,8 @@ Partial Class Ventas Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing If ObjFacturaCancelacion IsNot Nothing AndAlso ObjFacturaCancelacion.CveVenta > 0 Then + Dim SWatch As New Stopwatch + SWatch.Start() If EsRefacturacion Then resp = ObjFacturaCancelacion.CancelarPorRefacturacion() @@ -19410,16 +19462,25 @@ Partial Class Ventas resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar) End If + SWatch.Stop() + + Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000 + SegundosRespuesta = SegundosRespuesta.ToEntero + + If SegundosRespuesta >= 5 Then + Alert($"Los servicios de cancelación del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastAdventencia, "") + End If + If resp.CveEstatus = 5 AndAlso Not EsRefacturacion Then Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnEnviarMailCancelacion();", TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") Else If EsRefacturacion Then If resp.CveEstatus = 20 Then ObjFacturaCancelacion.Dispose() - Response.Redirect($"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={CveVenta}") + Server.Transfer($"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={CveVenta}") ElseIf resp.CveEstatus.Contiene(4, 5) Then ObjFacturaCancelacion.Dispose() - Response.Redirect($"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1") + Server.Transfer($"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1") Else Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();") End If diff --git a/vwd.webinfo b/vwd.webinfo index 8dd65e0da..7db700c64 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -60,6 +60,8 @@ + +