From 65d267001569c81eb3a02bf62df267434155a482 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 19 May 2020 13:40:27 -0700 Subject: [PATCH 01/27] Correcion de clientes con nombres largos --- Ventas/Ventas.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index fe284e7fa..93a853f63 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -6310,7 +6310,7 @@
- +
From 623470401af2ed0b4dd935c86a8ae1b73416ec9b Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 19 May 2020 13:40:51 -0700 Subject: [PATCH 02/27] filtro de "Usuario Autorizo" en rep oc --- App_Code/ClsOC.vb | 3 +- OC/RepOC.aspx | 995 +++++++++++++++++++++++----------------------- OC/RepOC.aspx.vb | 9 +- 3 files changed, 509 insertions(+), 498 deletions(-) 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/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 From 1249f52336c3d6f859c7a8d9810c7cc7fa8f65ad Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 19 May 2020 20:06:17 -0700 Subject: [PATCH 03/27] Pago electronico guion cavecera --- Bancos/PagoElectronico.aspx.vb | 2 +- Bancos/PagoElectronicoGrupos.aspx.vb | 28 +++++++++++++++++++++------- 2 files changed, 22 insertions(+), 8 deletions(-) diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index 93a64cde4..cf39067b6 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("-", "").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 From 12f88d3d4e763e2f493dea8a44333860051364d4 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 20 May 2020 08:56:52 -0700 Subject: [PATCH 04/27] pago electronico correcion cabera eliminar aumento filtro caracteres especiales --- Bancos/PagoElectronico.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index cf39067b6..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("/", "").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"))) From bcd5b0102c531d2d36f481e93e0035eef096ea6e Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 20 May 2020 10:48:00 -0700 Subject: [PATCH 05/27] Mensajes layout cuentas deposito bancomer , Proveedores abonar, Ie, PopIeCompras --- Bancos/IE.aspx.vb | 17 ++--------------- Bancos/PopIECompras.aspx.vb | 2 +- Bancos/ProveedoresAbonar.aspx.vb | 15 +++------------ 3 files changed, 6 insertions(+), 28 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7e142edeb..b27cfb067 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -4660,7 +4660,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 @@ -4668,25 +4668,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/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..6ca16c29c 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -2515,33 +2515,24 @@ 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 If Dep.DtResultados.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = Dep.DtResultados '.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataSource = Dep.DtResultados trCuentaDeposito.Visible = True BtnIEGuardar.ToolTip = "" Else - 'Alert("El proveedor no tiene cuentas deposito registradas.") BtnIEGuardar.Enabled = False BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" - - 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() Else DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'") From 18f526a6119b62e1eaa0fd10bf6b5d005e58ab54 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 20 May 2020 13:12:51 -0700 Subject: [PATCH 06/27] correcciones ligeras --- CRM/Acercamiento.aspx | 3 ++- CRM/Acercamiento.aspx.cs | 9 ++++----- CRM/EmpresaCRM.aspx.cs | 10 ++++++---- RH/Personal.aspx.vb | 12 ++++++++++-- 4 files changed, 22 insertions(+), 12 deletions(-) diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx index 8cfb6f104..4565c7876 100644 --- a/CRM/Acercamiento.aspx +++ b/CRM/Acercamiento.aspx @@ -440,7 +440,8 @@
    - + +
    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/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 218614f30..fd7b97de2 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1237,6 +1237,11 @@ Partial Class RH_Personal Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.jpg", UsuarioActual.CveEmpresa, CvePersonal) Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) + ImgPersonal.ImageUrl = logouri + ElseIf File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".png") Then + Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal) + Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) + ImgPersonal.ImageUrl = logouri End If 'BtnCargarArchivo_Click(Me, New EventArgs) @@ -4967,8 +4972,11 @@ Partial Class RH_Personal filemove = fileItem.filename Dim yaExistente As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.jpg", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal) + Dim yaExistentePNG As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.png", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal) If File.Exists(yaExistente) Then File.Delete(yaExistente) + ElseIf File.Exists(yaExistentePNG) Then + File.Delete(yaExistentePNG) End If If filemove <> "" Then @@ -4976,8 +4984,8 @@ Partial Class RH_Personal End If ViewState("Archivo") = String.Format("{0}.{1}", CvePersonal.ToString, FileExtension) Next - If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".jpg") Then - Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.jpg", UsuarioActual.CveEmpresa, CvePersonal) + If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & "." & FileExtension) Then + Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.{2}", UsuarioActual.CveEmpresa, CvePersonal, FileExtension) Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}&version={4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica), Now) ImgPersonal.ImageUrl = logouri End If From 766873b1b0450b4b0d438fee6f62dc03d8d48ba8 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 20 May 2020 19:55:26 -0700 Subject: [PATCH 07/27] --- App_Code/ClsOIEventos.vb | 162 ++++++++++++++++--- Bin/APP_Code_CSharp.dll | Bin 296960 -> 296960 bytes Bin/APP_Code_CSharp.pdb | Bin 595456 -> 595456 bytes General/PopUpPaqueteriasGuias.aspx | 4 +- Inicio.aspx | 154 ++++++++++++++---- Inicio.aspx.vb | 40 +++++ OI/ConvocatoriaDetalle.aspx | 75 ++++----- OI/ConvocatoriaDetalle.aspx.cs | 5 +- OI/MinutaDetalle.aspx | 69 +++++++- OI/MinutaDetalle.aspx.cs | 60 ++++++- OI/TableroDetalle.aspx | 118 ++++++++------ OI/TareaDetalle.aspx | 67 ++++---- OI/TareaDetalle.aspx.cs | 244 ++++++++++++++++------------- OI/UnoaUno.aspx | 173 +++++++++++++++----- OI/UnoaUno.aspx.cs | 101 +++++++++++- Scripts/custom.js | 67 ++++++-- UserControl/TareaNueva.ascx | 2 +- UserControl/TareaNueva.ascx.cs | 4 +- vwd.webinfo | 2 + 19 files changed, 1005 insertions(+), 342 deletions(-) diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 5bf90db2e..2a9ab0bf8 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 @@ -671,6 +686,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 +930,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 +988,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 +1031,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 +1090,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 +1101,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 +1119,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 +1143,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 +1229,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 +1299,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 +1353,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 +1410,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/Bin/APP_Code_CSharp.dll b/Bin/APP_Code_CSharp.dll index 133af1af32ea64421c8774a1d16d1409729f3424..d7e9dd04b9f1aa16b76684a04c7d5a8d9eccf45c 100644 GIT binary patch delta 102 zcmZpeAk;8HXhH|`Z=)lP-L2h>t=&wm-OO9NSvcbb>V8D5E}E+C)akg+c=ZR)r`wmr zv(zZ)0F}lu009#a%P=x9Sj=N#uxMam2nu!yE^1ohoP0aMY4e-?90mp)THAdZShlbO E0Lq9YD*ylh delta 102 zcmZpeAk;8HXhH|`S>c_H-L2h>t=&wm-OO9NSvcbb7H+Y=CFHrnZC!VU*$GYawCzjc zS!xt?fJ);SfPe{zWf&P4EatH=STwLO1O>YUN9lM>C{x<+&@X>d_i6TR*6ltGEL+$C DPf;R> diff --git a/Bin/APP_Code_CSharp.pdb b/Bin/APP_Code_CSharp.pdb index 54e2a37d6516ac649a4114a050a04f4870c43715..5e43300c0bbb7d818a1f92c00530f857453b1be9 100644 GIT binary patch delta 19809 zcmaK!34Bz=9mi)ENFJ9UN16-54RR%10TCMTLJS&EiqupCIL_fz@+EZj;j;8yAg;&u`s#ZzS@> z$ovOK^j25VDW@~wYt}oK{hjo34t}oN|<+}c?uD_t`>vjDVU4LEI-`4dV zy1q}>t9AW^uAkBMuXO!8U2o_-k!58!5X~-gp2@JXDE^8pE2n|TQT3?kq&xI94gGY( z<)&eTZn(}gl<01MA+;X2g`MK7cX`)|W5`QzVpmk$;c!yBUO4LU9 zv{62-gla!X^nA|ObB(X(2A}q-PuuF#-Z5IdOMC0_k_^OM`Wu|68Ikg-;hX3itm zUIyG|z`f<=%*9{^d>?>&y`Tj2Lk4;naK`~>p9bKU06Y)41_j|W+JrREj3)D!S+oLR zmLD|9yUWxOa6JH5P!P}PZ1s!SX-^GIhTK$$G-FRurL7{(gv_DVph07IK`k9#gJ;>oMh;{6QjJdvPt@CecL0#TEd}09<>(b!A*) z7sw3z0B|4!bwcjU3F}k zyIjqak~<5FJ?2t#3cAa0jKUd1CG&aOGZyz*&3#sBpG`rZYU+DT$H9HJ4i;i-Dz7bH=~EWl zK$_X=T-yk^t$=&i2H;Kr9spbo;67noB7d2EEdak^pm%020xoS=_>4B+Mdv4MO4|Z3 zm$Wdh3*dSMIGw-DegFW620)d+Vp(X-w3K(!Y;O3;@-0@`=3jlau z3Q*=RxrYJwYrrj2oXVePzXE{If&te6ZhcCQ#+O;V3c%M>f{J?wa616E-*7U2o_#d{ zKQ>?r?hN3*4&iK>{dWLtv^)I#HX|+U7`6diPLi_&*>?tD&mJ{ECBW%eZ^y0^k~c5T0OD z((JJF+Zuq`q=j*v0C!oCQ~ArC-w%L8f?(pri~!syz?Hb1o`1gf696~~4ESTf%}T|| z@n!aR1MnBAK+Qb}xW@qZq~_fGdG>z*;2*(&&jYS9HD|lozYM_5sX>=}3vllPZf}C4 z{CW0=0eCzC2D#IK`!bA^_y2hSHrNw>ew&aMb_`nqF3ZE&Jo}CS?BM}9R{*%d;hY^S z0^qgbVC+V~{Qz*c`8fLiuWwR!L)`(unLg0Zl>zQvz&&6C@KFFh0l23Cw~BH4{!^FG zUjev|f!e(K$XAb&H*mEH~jcE zCe1SQ&$GW2fSD51^Ut{sfa{)ubH|riDeQjW4s955S+N1QmBb;C=D{$|32>VL_aQ%bac=1aNiXoE`fHfc4>EEbTz})qM$RVZYXE>*Lt# zzjgrZ;sgEPetQFM0N}2$0eB?9E2nfd3(=^X&>1Ox5|Tulnj9babg zF#u~*fHHr{eI3fRsl4dnT8K84$vxAive7~J_^SN5*qlUje!130fvy+Vask&lB}d~& zD6(Dv?4J@;+)%)c1l(xD$^3a1V*xnPfGN1ifSVq|(d)l9m9qi3AOw`$BEUTixFt!> z4rITK#6fze@R@lBXctK<)}N>1+~_JHrl!=cZ&SJEaPl)#9Na`&c}OtBj>x4`56L;3 zt`B@JWfJvit^2gpr7UDD^GGwBTxw3sV*U9RDu>Em>LL3sroQHN3inyceaf}ZilEPG z;PW@`Q>T5JjS0l_2JqR&eWnmEKS%V7pwCg@bCUb)&_1VwKJ~ySy_(JQh#OQqKcbS& zb35uAHqTwTPo?&GFX%IY`nJ>S$JeWjv;vRjbhuH)GmJ_WPuChDMtb_{r|$lVk>>NM z&^~K}KFyB`F)GAoJZa-R+V4tKIJs1^a4z{!h|Zp_`l%aEKhoNJG-s~%SrYV_M}5sS zUusOKjL_FY(#)}tnp2~FE(Cp+0w0I8LhbGPj2)};nn@+gtBQ@OF*lxLYz$|M_NfZ` zoC7`)`kb3LXQyDCif0U!ES^m2>zxB{JbBz_mG;>b^eF^B!?{n(n^Zi#sbukt2R^0T zr(FB22>Q$iJ`1@|o%U&Vb0D4y;Nx(gDa1$R^+Tm?W>W377pdrOB1@GG2NR4|tpfy+zG#a1rMRS}UW7(-(i(n zGMHhr++bdIo|xqZv&9)sPoz?zllwKBlvX*{gaz@Uw+RABIHJ7$|S!`lma&o(}?K_z?vzxd!9dNS&x4_Hs z-)b)c;KN>!1-b-q%K&FD2jH^+d;xIl0r!fZ^Z!=+bpXEY2Yt894#4dLTy-5?bLL?2 z^*sT=Gho240QVhf_v_>9j+dh=^6I+pY%-W`w7$;RGIg!Yq;jbDUKL^)^)(w)_BB_6 z^jSfg`T0U>@hxT6f1t&$!*;7D6~)`>n}AtV z^)2{f??_@51|%i-n?R#Jk;HZ&%~?q}xoix&3GW zdgYSyK_HgvfJ+H;nL{|O^kYGn7;u@zT&k7J`Jl@~z~wRKQnJU5Wd;>&cK-xio@Xwb zmCK=^%NF4B7IVqp>&8+{1&iefa5>IgRw|c`L6-}_r9r-bzqHur#?p%l7E3nu47;T| zG8bF9EDyR20WL+%rB=B#-5-c$0&uyFxlATp-Y-FyyMfES%w@ZBITdty61Y6YT#633 zv6NE5X15Z!#F@)F<+3g4@;-3c!(8$Xy0KhA1&if0aQT9{ELARRf-X%8!uQLiq1nbb4vmdax;waTSwbs&~P;4+-KOeS33FF}{_z@?PAY*#L)f-duc%R=T-RO7}{ zN(GzU3gF@}mvzczThQf2;PMi4$vf)Cas?GEmiK_mZsxL7xvUAgdEM_kGAGxs?6da!ieav12gXp%BoDQf;4kok>+eCBl0^% z1)IuB>S^Av<1U*?lkXD9hjc0W*mWtTg1OWImwM*1PPuFgx(pahZ=kB-67P1(s?2B< zX&Ff^p7)7W6ro?~9HRENx_z)NWg(e5(#$My?Hkg}A>>*;Y36TUaV=*^L}cl4hB${$ zT8l;taT7I~iSo>h8^koyOb}eVi!>7iY4K-2wZ3Q+5pk!^nw1{Xhi&eS= zm+h6`_K#ts<7EyaNd$D1s#Ts1}g)f6ke?cjkZY{Kii_cg}yl-}C>U zIWx)JTvEQSbNRZ?8|pV|^S73pCRjp)1y2>{FD}lv=qruB>d{yIcyWG%V>M~76fe%niN$kr(%;_e2vM0UL^>(u zmZlr^e>u!)irHQtkDUkHmw>w*D*q04^^VfZf7iyzYzi{_VUB z#w{DxvQSRZIQsfjzF?c|8bWjS=bU69Uf#rhwjR~ot9^8tMHGuFa|qyW1Kg+}$LD-3 z0Ly})NN%#a`zaQc=))9?S~$);04@aJlYn~$a1~)LS--5p1>h=*RnswYXK5Z~tj;e~Guh+}mH_?Z52pzv}I8^!7J- z`|o=D?|b`uz5T=9ewDX>*4w}6?SJF#fA8(rcb8?_S@mK~ZggL2ZD&&c6`6K+y;!#1 zPm6W*4(Q=`^!7Ri`W?ky#|Xcp)a$s%@0g%E(qa#}W3ts8RcG1RG}KjU(qbQ|-n7_0 z_f(dOj?R|d)oM2__L@%F#<_OGe^SS;3q){1Lo+pS}E zLP{4RrcNsTkJdwM0LAj1d!k(>~Ph4I#%?B13mUg(=lxv{?j^mQXv zQ_N49$NosM8|BTGHXhs8FWPy8Vo9g}J&Pokm^Znag3Xmuh$dp%eD9@-T?$Bf?7M)J z$3#&w86Hb_DClRygBbv94Y+oI>%zE1{j&O=0PM@a;LHpL+z$a)QbhMHx*w{ISAQ1( z?*#)+2HZ4*%hH3(>gO=ft?X)N4f@A)FF$!B7s1ojRD@%T19BO23%k*GYidVP%RDaz z#^Rne+_T#AY%x7mbnIy_LGIb!Ux@83bWr8fth>%9pIVmBJ5z=D;FjdEo>JBP%&S7Y zlbejW<(_9HwN7{r*6mBK_3K1IXzpI8n7`C{Y%}1t1MUL{fcpS=6mZpm`;2jc>qm$h z0DjBB;0#{_Tx@^zj5gg**H6@xwgO-d#iF>*fXg#DuYP%L^a0=?1Jw0P?iRp}1l$A>dm3=R1l)4X>H2x~D*^a27;r7%Hm2lg zd|AcY0DLzksJWeh+Y7iOJ}2wv)mH)VQy)yhT?E|UBREG^|2+U39EiStn@}w3GQ1ve z*-6eZs_z8A9!b#PZUWrENRH-z7yw5^ftCoY1$}R{{9HVKBsP0^Byhy?=ntzyAXqzYO;P@GuzgB;d|+PG0|V zlb7Ka0Q`o7iqhOwz}5dKy1>R1bE2-_mH^D6SQOV0a5tKqu3uK)8-N2$P}MKFV!#at zT&d!``RC_;8~`VP0Ure1%v78lUsmx503S~UdfZchdk%2Vdz`ADSO04O{ss*A3g9-R z<{VZ1TL9de8dThSfZGkYLkW)R=hdG8;F$zyau)#ibrdJ({|W%>9gMzy8&NFkGHe03 z%mC-`>N^0idjRBIA>jH)bB-7az#m0};!eQ*7;yK6I4As!_W%HAgupO2A8?NW?q?1F zp9SDDz`X#t)r?cuKdnJ^IsFlU>lr8+xyhSX9B}Ud?ym;}@1O7m^)~<>1OrwA?h}La z>X%iV2jEu*C~Mc%Uj|&-q3FxEA;oNe{(1Gy0oX=@dVJ&N)gEx&QgCW~S$zQji&B7o z^*;dIZGgK&bGm+B{a6701PpjT;HIbKXna}yJOKVQC8)V40rv~QRrs8&pI84s09@sR zDY!oX?zIR`J^%e50RJ2T%31ph;64Q0M@i0n{yPr9(@D^nwa)?fWh6)Q{|^9Khoi4w zn_^LyVKczp5ajstUoHT<20`}x*9&m{0Ot$=;H>~01-QEbR~F{N&wo<@_;45uJ^#%G z+(N*WAExskbq=2a;8HN43%Hj!C$E3G$;;{Y0Q?gN6{Wd10k;Kk|4*^RXAbyHXcqtv zfB}yI?qieF^~>td0q~Lus`@4O9pJ=~=*u^qVmAH!p*CK91^`a9vVya(r1u zPXP8!1$x|I!2J+#B_5~h=hfc@zgUz} z3V<&rK$BYoxOGvSoc}ifxH$?WZU^8#0NnlnXFUHM1>mUw$Y<>{z|}@`j`$XUbsDce4Y)TL5@F;Kl&%Ul^yZe_BiGa+(Cd ze`TO#669dK_0ZoB0C z`RA9@P5|x$10DffbqY?6FRT9)fHf&Vzxuxe?plD$kbt+z@fsXcm#?m$2b)sRzkYe_ zdJQTSkL3WaQ%a7;m)Yb2@TQcY<^}<77~n?woUET$F&cp5eJ}+#5pYu@IQ9HD3xEqE zKsjrR0QWTDmLxgHsD3#G`;lC3d}eln*folk$gEOuBP)fNk}`I?5Nl5)KQqM#+(NN( zr8JWnd@|W5Id{wL^tqIu4)YFI>uLfW)6(l`Cc?3~6!RCkjJeH9=<_Yq=2Oc&i|JVZ zIfZ+ca!AuENIyUp`dnx4zRW6|f_f;GE^V{|^FsAc)Ip<{z{5X>i+dscg%EvBakc!qFK zv%7RY`P8y}#sW_n_mq2{m8NGN@GRt>TF=wuZX=%x;BmQU67h2VJWj0>UTd$>vA+(i zk>otTv3tZP$#c*`ysbLPz$f4$AhBf5=I{=ZxR;h2QhF z-*YvgnKR4Is!t!su5o`b({4ka7Vg|xb|!UYCAvEJT{kAW3jMADiLRl3*YHHwoqpH2 zMAv5lHaWRn5>u;B z(L{>*D~ZRZ0&W)I76dsOKe5TPxd?zy2f+lT6I}wh<$!Zm0Ptl1z6!XFfZG)2lJ(2# z-v!|NVK7m@IHeA|5cuW3~2q@QfZc*1OSBi@iU8*f0pM)_90jC~{<{VlM(!Yo_0<+y3t1}yI}OTi(PO9?eBmy^J9hFMl=%VyJZ6PVU^!|TP-mKCO@4ILS^>T;Q-Mq3(J8Mzbz%MfOnNVvSen3l1?QpPNMwB@{M znFlNjnPq6T%B74NHoFzT;xfy6ZP{g7UIUglnI-p>%H?KiSS}v|%K>Itsx50x%jdvy ziCOBjCHrF|7yG8@^^!rc;9Y7q;qv}sTDk&DPiCpomMf;^R$wV%meSKIm+927*_{F` z)0kzewj4Jt<-oF-SqeT;xs*`Da(M|@)-cN|ZP`rCZQ&=WEx@uPYzaJ_S#I_j`s*f^ z*ze9gL+`d(;+Wf(URahpTL;dmeG1h2M||h^)Ty3yS{r>VvDWQy#%|Tg5*uk}uzc>L z&3{squPyrTVqZ%vQ3uihrDxU1Tih{c?M$*<>t~5cGI&GYgd$7aBq7@R3Hh9s_l zn1A!4n7fBGR(JP2H3P#(ZlELmU-fazR*E(EtkN>{Q)MZmhFNNXrH)zFYs)Uv(x<;A zu1}8Vz0&U}45wJ@WGtThnLX5U^2BlK_upgguios?2U#Ld)Kbi!1s?mBV*Vw`V|5hs z|0Gv9CPelCOZaa|4{%SMvlorb6L(RkKT!i&68BTgPlCrDrkI}u#o{l2ZhzIlvf^&7 RJu^M>54pv2zOz4R`%i#8Cbj?o diff --git a/General/PopUpPaqueteriasGuias.aspx b/General/PopUpPaqueteriasGuias.aspx index afa0f5773..2a677b59d 100644 --- a/General/PopUpPaqueteriasGuias.aspx +++ b/General/PopUpPaqueteriasGuias.aspx @@ -15,7 +15,7 @@ - Paqueterías Guías + <%--Paqueterías Guías--%>Entrega Local @@ -30,7 +30,7 @@ - + "); StrMail.Append(" "); StrMail.Append("
    Guías Vinculadas<%--Guías Vinculadas--%> Entrega Local
    diff --git a/Inicio.aspx b/Inicio.aspx index 6ccfe6a7b..603783288 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -3,6 +3,11 @@ + Convocatoria - -
  • Actualizar Participantes
    • + +
  • + Actualizar Participantes
    •      @@ -141,10 +143,10 @@ - +
    -
    +
    @@ -159,7 +161,7 @@
    - +
    @@ -189,6 +191,12 @@
    + +
    + + + +
    <%----%> @@ -214,13 +222,13 @@
    -
    + +
    Guardar Enviar Minuta @@ -730,15 +733,73 @@
    + + - + 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..6a0e904c5 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; } @@ -593,6 +618,51 @@ public partial class OI_TareaDetalle : ClsPaginas 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 +702,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 +727,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 +746,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,8 +756,7 @@ 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); + 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, ""); } else @@ -750,51 +782,13 @@ 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()) { @@ -807,17 +801,17 @@ public partial class OI_TareaDetalle : ClsPaginas 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 = 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, ""); } @@ -1001,9 +995,10 @@ 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 +1020,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,10 +1035,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, string.Format("Tarea Estatus Actualizado ({0})", o.Estatus)); + if (o != null) + { + 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)); + 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, ""); } } @@ -1073,7 +1069,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); @@ -1521,7 +1517,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)); } } @@ -1547,13 +1543,13 @@ 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, string Fechai, string Fechaihora, string Fechaf, string Fechafhora, string Prioridad, string Tema, string UsuarioDe, string UsuarioPara, string Accion = "Nueva tarea asignada") { string UsuarioDeAbr = ""; if (UsuarioDe != null) @@ -1585,7 +1581,7 @@ public partial class OI_TareaDetalle : ClsPaginas } StringBuilder StrMail = new StringBuilder(); - StrMail.Append(""); + StrMail.Append(""); StrMail.Append("
    "); StrMail.Append("
    "); StrMail.Append("
    SIG Notificaciones
    "); @@ -1608,7 +1604,7 @@ public partial class OI_TareaDetalle : ClsPaginas StrMail.Append("
    "); - StrMail.Append("
    "); + StrMail.Append("
    "); StrMail.Append(""); StrMail.Append("
    "); StrMail.Append(" @Asunto@"); @@ -1633,7 +1629,7 @@ public partial class OI_TareaDetalle : ClsPaginas StrMail.Append("
    "); StrMail.Append("
    "); StrMail.Append("
    "); - StrMail.Append(" "); + StrMail.Append("
    "); StrMail.Append(" "); StrMail.Append(" "); StrMail.Append(" "); + // StrSB.Append(" "); + // StrSB.Append("
    Inicia:"); @@ -1651,6 +1647,7 @@ public partial class OI_TareaDetalle : ClsPaginas StrMail.Append(" "); StrMail.Append(" "); StrMail.Append(" "); + StrMail.Append(""); 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 +2055,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..c841d4ac4 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; + } @@ -66,14 +81,19 @@ -
    +
    - + + + + + +
    - +     @@ -96,12 +116,17 @@
    -
    - +
    + + + + + + - + @@ -156,9 +181,13 @@

    -

    + +
    + + +     @@ -166,7 +195,7 @@

    - Guardar + Guardar
    @@ -188,7 +217,7 @@
    - + @@ -209,23 +238,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
    @@ -265,6 +291,7 @@
    Cuestionario +
    Selecciona un cuestionario existente, o bien, genera uno nuevo
    @@ -274,6 +301,8 @@
    <%----%> +
    +
    Cuestionario: @@ -412,32 +441,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/vwd.webinfo b/vwd.webinfo index 8dd65e0da..7db700c64 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -60,6 +60,8 @@ + + From 94a84f05a83a90119c6deba1f7bee55ca2181185 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 21 May 2020 14:54:48 -0700 Subject: [PATCH 08/27] reporte de sugerencias y mensaje agregado a clsContabilidad --- App_Code/ClsContabilidad.vb | 8 +++++++- Inventarios/EntregaAlmacen.aspx | 6 ++++++ Inventarios/EntregaAlmacen.aspx.vb | 19 +++++++++++++++++++ 3 files changed, 32 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 7f1096c37..a56a6f108 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1120,7 +1120,13 @@ Public Class ClsContabilidad If Empresa.TipoContabilizacion = 1 Then ' contabilidad en SIG - ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, Empresa.CveEmpresa) + + Retorno = ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, Empresa.CveEmpresa) + + If Retorno Then + Mensaje.Append(String.Format("{1}
    ", CvePrePoliza, _ContaFolio)) + End If + Else If CvePrePoliza <= 0 Then Return False diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index e38673a70..d81474caf 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -770,6 +770,9 @@

    Sugerencias

    +
    + +
    @@ -787,6 +790,9 @@
    + + +
    diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index c092d7182..6a429e8f0 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,6 +3066,23 @@ 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 From fd49875cb7517eab5062eb27292f4595f1ad8556 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 22 May 2020 10:01:24 -0700 Subject: [PATCH 09/27] se agregaron los campos de correo de entrega --- App_Code/ClsClientes.vb | 11 +++++++++-- Ventas/Clientes.aspx | 11 +++++++++++ Ventas/Clientes.aspx.vb | 6 ++++-- 3 files changed, 24 insertions(+), 4 deletions(-) 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/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index e9fc7d01e..1d03cdfbd 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -604,6 +604,17 @@
    + +
    + + +
    + +
    + + +
    +
    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) From 253e5ef3034694e156c591cc02d70784f15641a0 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 22 May 2020 18:46:58 -0700 Subject: [PATCH 10/27] Validacion de pagos,mensajes del sat --- Ventas/Ventas.aspx | 4 +- Ventas/Ventas.aspx.vb | 103 +++++++++++++++++++++++++++++++++--------- 2 files changed, 84 insertions(+), 23 deletions(-) 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 d1d61a0b7..b775018f3 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 @@ -7011,11 +7012,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 @@ -10152,10 +10160,10 @@ Partial Class Ventas Exit For Else ViewState("SeGuardoPrePoliza") = True - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 2, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then - ErrorPrepoliza = True - Exit For - End If + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 2, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then + ErrorPrepoliza = True + Exit For + End If 'se hace acreditamiento de impuestos 'IVA X TRASLADAR Dim EsAnticipoEspecial As Boolean = False @@ -10208,10 +10216,10 @@ Partial Class Ventas End If - End If - End If + End If + End If Next End If @@ -13289,7 +13297,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() @@ -16154,6 +16162,8 @@ Partial Class Ventas End If MovDetalle.Dispose() + + OcurrioError = Not GeneroMovimientoAlmacen End If End If @@ -16167,7 +16177,7 @@ Partial Class Ventas End If Next - OcurrioError = Not GeneroMovimientoAlmacen + End If End If @@ -16321,7 +16331,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 @@ -17022,7 +17032,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 @@ -17990,17 +18014,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) @@ -18013,15 +18050,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) @@ -18035,18 +18072,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 @@ -19165,6 +19202,7 @@ Partial Class Ventas End If End If + ObjVentas.Dispose() End Sub Private Sub MostrarCondicionesCancelacion() @@ -19199,7 +19237,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) @@ -19259,7 +19309,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 @@ -19379,6 +19429,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() @@ -19397,16 +19449,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 From 85ae56a9abaa3d08909fd647cb9dcb1f4d135b38 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 22 May 2020 18:48:08 -0700 Subject: [PATCH 11/27] Acuse de cancelacion del sat, en cancelaciones por respuesta --- App_Code/Modelos.vb | 49 ++- Ventas/RepCancelacionesPorRespuesta.aspx | 289 +++++++------- Ventas/RepCancelacionesPorRespuesta.aspx.cs | 402 ++++++++++---------- 3 files changed, 382 insertions(+), 358 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index d19de8eef..eb2eea490 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 @@ -4568,22 +4566,21 @@ Namespace Modelos 'SI EXISTEN HAY EXISTENCIA EN (ENTREGA POR ADELANTADO) SE TIENE QUE REGRESAR AL ALMACEN GENERAL If Not ErrorCancelar AndAlso ListaRemisionesCancelar IsNot Nothing AndAlso ListaRemisionesCancelar.Count > 0 Then For Each CveRemision As Integer In ListaRemisionesCancelar - For Each RowDevolucion As DataRow In DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}", DistinctColumns:={"CveRemision", "CveAlmacen", "CveAlmacenDestino"}).Rows + Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}") - 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() + 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 + '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 + DtDevRemision.Dispose() Next End If @@ -5030,22 +5027,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/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"> -
    -
    - - - - - - - - - - - - - - - - <%-- - - - - --%> - - - - -
    -
    -
    -
    -
    From 925246dbad256dd295cdaa25f8d1af613262cd4c Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 22 May 2020 22:43:05 -0700 Subject: [PATCH 15/27] --- App_Code/ClsOIEventos.vb | 6 +- App_Code/ClsPaginas.vb | 18 +- Imagenes/Bell.png | Bin 0 -> 6437 bytes Inicio.aspx | 120 +++-- OI/ConvocatoriaDetalle.aspx | 68 ++- OI/ConvocatoriaDetalle.aspx.cs | 466 +++++++++++------ OI/MinutaDetalle.aspx | 12 +- OI/MinutaDetalle.aspx.cs | 863 ++++++++++++++++++-------------- OI/RepReuniones.aspx | 42 +- OI/RepReuniones.aspx.cs | 227 ++++++++- OI/TareaDetalle.aspx.cs | 117 +++-- OI/UnoaUno.aspx | 11 +- OI/UnoaUno.aspx.cs | 41 +- OI/UnoaUnoConfiguracion.aspx | 81 --- OI/UnoaUnoConfiguracion.aspx.cs | 132 ----- 15 files changed, 1320 insertions(+), 884 deletions(-) create mode 100644 Imagenes/Bell.png delete mode 100644 OI/UnoaUnoConfiguracion.aspx delete mode 100644 OI/UnoaUnoConfiguracion.aspx.cs diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 2a9ab0bf8..d8084033f 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -306,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) @@ -337,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 @@ -349,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 diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 389d0dbed..01b7122ee 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) diff --git a/Imagenes/Bell.png b/Imagenes/Bell.png new file mode 100644 index 0000000000000000000000000000000000000000..352602b086dcc69318aef2ddfe3f18b023974a78 GIT binary patch literal 6437 zcmZu$1yoeu*1tn{NOviJKpF`t=`LYFQaU6C7|@}Fk#dw0X+ctnK}tj%a+D4k6_6TA z8IT&vAqBqiecxMey|un|*E##Hv-jQSo^$uv@w-o~EDY&sxM=_Ypf@(svnJA`zm1B5 z*ndp@WJ4qr9;SwRz~$eow6iLUI6@s_!);!1(^vesbDMyR4xe+xx-HGk3sMHAa+RHLn|& zPHfY{Xh$HUC)BQXLw6?d0h?0>Gz)QCl0AcIGDGJT3t9*`oc_qf!x~`*FG2jo&dkq0 zY(R)PCC{R&wUHpMOijIb9)C+V+B2m`6rn!V zZxjebRLE5>on5F@rbDytNDQR(g^?Q#;CpQsYmj$j6C_85Mlj8b$bNOeEpPgP^uURm zXcp@6%*vqo1;3|sM)NdK+VAWjoo8bviW8Nw5@Xe@Mi0@4h#P_>a`=6+p)9GIjvK(5 z;urGIxX+5i<_2rC16nH|DB50~+Y-P&xloo#N$xF!D$)qE!1Lw#eX6F2y&v=blN&pL z8TE-34-iP<2809CQY$~x5I;LoWb#5*Addbmj=l(wJ3?=%gar}?GlOa-Ks?Gps#=eF zg!XTf*GFm}%lbW%6Yx&nG>tcB69427?*6-F)Y4nN;LLUPQj_qhM2(V?vVk^!2@3L= zEeZP71a$SXhOIzUS1~1v6387IcZRqOWb6uCZ!Git{CwPWKtrddsFo|0tL$T`yB){$ zqc?C6RZ)wgV+wMHcanz!SEQs|iq|w+=U?mk`qnAtoN|ByyW3FFEsh$9f=cY?!Mnh$ zRKEg=^Owm`MzuiepyzT3!0Q@OXjG@O*gn#zn5~Ldg&gAJHjrsJ;^lC_8lZ zpXc8r@(_dkxunuF_qZO-8D72(H$fJK+2AX^id22UO<4UJzfN)V2&ze@H|?V9gy=uCi#2N z7zkLl5OR8?5Mrq=Sz4H zY|WV+ddzI_tJg>L?d%yM-JG1}il)w%b;@?N0fG1GgkzS!6E#W3(V!LVJV{)|SZNIL zzt$kmjc!Ph{gT`>Lvy{0QKE)QPuy@0hNSVl>p;(NMXk>xwB6N+i<5J@{e=;h4t>ZH zW@%Sz3jteUKndndd@+mNtVoU|rl0a8&}pqIpZy9oTtR5D$v`+`^Te_I7rkm z4r&6PQnWJe^7&e>pOrr&=NGM{ePj1woB*c+kFZN)XYTBDGllSCXuMmgT1i~~OeNM_ zy9TUkmas&Jh#^7O)5oH80f-{E7##Gd zN!bdYy!3xA^q@3K6~1S_z-s{S`_YyMgTW5If`|Dmi7zy=`#vZPyg~v*H|yW+jY7oq zgcdar1#V$hOR=F6AAJ!UY&5)|zem_!h@~H#n29zgnrovfG#z1d^z<%b=qk{=CjIw? zNk3FLh^MW)Nn8xJBF3Jw!|tXDhcznR<)~#-nL6m0n`X^cGx3OXgqymBg??P^)go+^ zEicFIY;Vu^6KC=?h>N>i@sf{B1FD)7-@F~IF3udmeK2Fe@n?NKr2?@7D)Dv9Gy#H8 zJEg+TEc2#^yE9NVj}k#NqxgervxJT39!=9Dm8IDGWni%)aWo9H)&HI9*!=E#ZABEx`|*=7+D5vSrPki~~Vw_tlJU!~{<}e@z zyGc^PeMaC=cOrJd=KO(Ebi3h4ahPY?G;$N{Ra0@A1$?lyz0Ag}U3ce2HZ;i0WSUth zq$~6wI_|)KGUfQL=>N&NerMI8+y?&v)1<7s^4MckYD4ALm`}51MxQYq0|UOiWwwcC zG;vTeb&p;jbShsAV~-ZcEx14J^T5z{duFiJvWanecD=-`38Y!i{e7ZFJLEY@6{$)f zo#F1t+nKGtt-9>!Gt)imbyEM)Ai(;5L&qbw^bPtAl?(f{Z)#R;tyR`FH^3MJ1P^bA zLG(*pA_{xuD+!$1#%E}>0}FdU=Vt+aY1*6$uJUUOizNLVh0CM@O8XlPs) zSB^XxbC5g*jl4svg-A-3J{`^wPA+KBf>jDrcbOlxX~9 ztI@8O7x2_Y_Tl0!Cgc<-!c`-^3jL&b?O`|9nVc(cB=x}>CYb!o_J|&WHL=+#fy;rf4WVd9`1XWv5wN%uO z4X;33nnA2ma~ z=<>f@5X%!v&=$WnY23A+ksMa@+yAU6@A}j5ZbvSV@}hW(kekIkxzkLj3dNkZXKi@S z;x#E&!8e8J)Rf1(Bl{G-%b$|Q1)&B;%a`TI&h>EB(t0(E0Ezp|aGZOuots^mmC6gK zvaIox1}XX#lMbZ;fev#}Twd9b5w5E7gFB1@F1z3k<6Yt%o-h4*lK^446sR&2a+ZFsd#|=$_cu)Ni4>1Aq=NxYSgf>tRR~q4 zIzK0p&&nM_KyXPo1aUHU&o zQl`R}`grOxksXmnU@K`ELR4_+BK;i$&|cU3IH;vnbCXaB<__zJ0jOdKE0L9J3I)YV z2%CKFZ#+O=^g=Bbm4X-4A43NaU0q!dfHV7x+%;NZPmM{M_!81a6znAX{BSOq8<);3 zB_$P&#&1*x5Ph~l_0%+Uw&-RY8`_6olu~<_eV9+gdFmxYq1uybP3-vi0UhBfS@%1~ z7qwjl(1CkxL8IX#*KQhaBT9uCofuFYM12NcZ8(GIL`VIrt^IERx1c147VI4{*tCeU z+mYy#pXvs6!t&7C3u?4z3P>C_Iz8#}M#z)SbtjdI7%(uPi0=zVf>}H`0;ckr6R6O# zvW_<1jkM({MQ3NHEnw-$i<;w*cAnNod7}TE960fzXK6tsf!Md+BL@=_*3*A*9?nGb zARFc*6}2qJBGC~kVI7~t*2efMEtz$^I{WO!ZTY6CK0o*S(~&}3+P5%O)|{iHA2|E^ zv}2lfRpQyoAfEtg``Spp#QmrC>9#?3)=vbfu4JoGO!zAfRAPlcJy(ZzPB)=?QVNNp zS&@dqLP`xbQkt^bZ)|OpI7UNKH&wF>nRHOpLjNJd=2T_aM5g~DRuCO3oM_^I6DW(0 zn6gmff02KyiB4s%d|`z*XpZt5#2dh|*CpdSr}1~)`#B+GoRsn3?I_t>ciAR|W?64a zC?%kfSSnctaP1_6J@&D)IP5o4q21|N$EEcpbO5d=+|+K460$C{`1;A79|hVnL3zTF zcnB>28U2JfH1HkPcfknt^P^_&PYvTdVY}RvH{@0=_N(2*k6!MhV287t?7m%vxbHFG zKwJ14HQ1G{c6tp3OfPy2a>LiEZQl9ayEjASmeuzxI&TEWFwE!9E^}9%S@^Ld-H9YF z{i?1%tnEfnM8vUFw%Vr&{}xhUy8Wi`ThSboy4R*(g^4u-!)|`xvpTAHT`^d;j0M4O zuLY_?#lJR|3Vk(2NSWJH45oK4D9D98b3iINJZ*FA74~*- zzD-~T9m*M^sQ6TLJv@r6U)?P-F`sMgTZa&ipOaGs5FT)__6B{OC>!Gzd0mLOsjeoun_ z>u^3EofB6`W+a+*6Nq-a@8lJ!RQT}4sa_#5Msw@o-|;GuPolD;Qyt#lmR?Lc3}?=79nYy-o=`^PQENMZy4TIXc4TZZG=n)w zXIV;Ozd?wO{FX}4SW&liA!p7iQrT&T0$tPRv8OVu!OkJP?@f%XWuw=v3nG}S7pRsZ zH(ltCp(tmI+j!LQ)+>K}sUlyX<(L`pE1Tu4|l(fB15A&Xuj^HH>>pJIN!spUgCRmvX>C&-};G@AdIKiQN?>8OP0`qjMP>$OvmnUluXt`NB{-iz(^;VX69(pLwz& ziOm&$@U-tom3XU0(=A~*Bbt7lDS$;v>dx)7emBhecreX9{Q0f;xH@7gZH|InSv<02 zT@nTOghV$}TwGi>tMz}5c7kH~wfq7WYX)10J69rpv{~ZmTNcFv-xK0rT}WMX(Y?k^ zi#f;z*>kSSksbTg*r!g2Ae*MM7mm&`+Jt>o-i^EDu|mkqC>mq^2@o%Nzpi49uoD3G zO5OR6L_9T0L8fyslP*Qt(qHv}W$Js`+b+^&W_=1~J@;{nK06_rBm&xf`X}lR<#8Ly zJa3#)s=Y+|c;S#&aVb`&X9
  • kl;n7(88tyj1o|R!bTDVRZ2XvD9U^87d52z zRUk9DQN+Ww@Jn@U2iO|Z)aIrpzt~GES$Pq*^1$VYl(q1NFi8=1!W%WckdyW7SBM@l z78cq;*b2rpwYamDgBChaosl>@^S6x8C|-NV)UDpA!;+|v5Sdpd&7GValZnCz^})MZ z+~0yS4fjuCUf;t#h+i52{I_Ucfl%#uP5t$a_Jb2w>c;GI_zlhg0Q-FcN(u+9f;ipd z1nCn7^VBiX_3JnyqOeBeJjk!jtrr+aEVY$Whsr8uMZ0z`dB8HBJA!hRH^4PTlXG+J zY0&O>-ZV)COenoaJu{X@sSz|t*RfUT!N5B|MAY@15nQ^-Yk3=6U+R!*5*9MQd)4)& z+*)2Fa3v>ZP+;#b8OFCPa=bv6q{U*gT$^^ujr>sxv=5L$9g+uv5Y%^S8Jw3m2^R> zu~3&*_mu|$irN7IRyE-7e*v|y>@g|ks${dOaS?zU+6;7C*)ukMUnBjga$UaJcW2_) zZRx!E;V;ix))>HqlNilQU%PF>M|T#zSMnT9NBY-=k^U9EmJaoJXP+1U2{HeURL18< z+|A<{5Lkk(7IVeur$z_yAU+6>v5nqos(qh^*!pb~)8bgir&N-}v^*D^-Oi=39N5HJ zr$}vvoe?Ca5$&X$zIz?-<-ZbHhLA#N&jmQT#Zih7AQE~S2 zB99Y^slSrzvclK5a!KSX>?MnLqi$)c$cC_jeP_=vzUBN2dvcy~N%%TNvAs?o(*l+- zpZUrtZQtnD5n2=sG@{aD%=Ny@juW*^x82`VC65ihx#eVgfA2?M%3|ZZ$l=nG^pIXT z*^)~x2GUEj40Kx@ z9YQ=RHw}rnT3N8;#SS4TOIG?yqQ0(#|ub!HN9G{Wpc9 zn3F1(8<&C^sxbHa@-i;x{rgGa(=5{-S#`0XmVVmIl1e(a8wq$IDdwIN-vBCw%g15i z-K*$mW%1okRbC`LniW*}39l>B(7SIYdO-G95%(0QfL2Rpz40T^zaW0 z--55_5Me4woG3uIJNdPn+hd|@BgvJ7m{kx95>1fFp0ZP%T@4uGVIZ!2qK4ECk%RmG zh@qB%@*4&bD?=SiOAI$6MznrS2F*sq^w4J3kbQZt=9w#c5X5rLrJvJlsJMa=YN+<$ z9w?T(@Saj5iEx;Gx(#H1w&KW6xxkDxLX4uS{X1tCvFMI-UnL^63~j`e8>Jm$(o612 zo0+k8a6(xiH*Ed@{wat(KX^WRxICf2<&3T%8ICIUyr@<#Y_%F2R)Urz?b z=eI?#bT<29?tb2~f_OY4!W-Ao-oOK%3LDPkjhyjH%kFp0&CUI(L?-j%5o6-UH9+(3 zny$>_L4C;{B1TT%oNOExZc!2AURGPNV(;v!?u(@c(1| g|BL@Wi#S*e-V3cV-(DUk{=EQ<^)2-3b=>0r2ZSj&UH||9 literal 0 HcmV?d00001 diff --git a/Inicio.aspx b/Inicio.aspx index 603783288..b45294990 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -483,43 +483,10 @@ - - -
    +
    + + -<%--
    -
    -
    - - OI -
    -
    -
    -
    -
    -
    -
    -
    - - - - -   - - - - - - -
    -
    -
    - Ir a tareas - -
    -
    -
    -
    --%>
    @@ -565,9 +532,78 @@
    +     +     +
    +
    +
    +
    +
    + + Eventos +
    +
    +
    +
    +
    - - +
    +
    + <%-- + + + +   + + + + + --%> +
    + + Eventos +
      +
    • +
      +
      Tareas
      +
      + 0
      +
      + +
      • +
    • +
      +
      Convocatorias
      +
      + 0
      +
      + +
      • +
    • +
      +
      Minutas
      +
      + 0
      +
      + +
      • +
    • +
      +
      Proyectos
      +
      + 0
      +
      + +
      • +
    +
    + +
    +
    +
    +
    +
    +
    <%-- DIRECTORIO TELEFONICO --%> @@ -739,7 +775,8 @@
    -
    + +     @@ -789,7 +826,8 @@
    -
    + +     @@ -1105,7 +1143,7 @@
    - + diff --git a/OI/ConvocatoriaDetalle.aspx b/OI/ConvocatoriaDetalle.aspx index 82d14f09e..7c1aed61c 100644 --- a/OI/ConvocatoriaDetalle.aspx +++ b/OI/ConvocatoriaDetalle.aspx @@ -135,7 +135,14 @@
  • - Actualizar Participantes
    • + Actualizar Participantes + +
  • + Asistencia +
    • +
  • + Enviar correo +
    • @@ -430,7 +437,7 @@
    - Guardar + <%--Guardar--%> Guardar
    @@ -438,7 +445,62 @@ - + +     diff --git a/OI/ConvocatoriaDetalle.aspx.cs b/OI/ConvocatoriaDetalle.aspx.cs index 612a0ddfe..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,7 @@ 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"]); @@ -99,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; @@ -197,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) { @@ -209,8 +214,8 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas chkCCpara.Enabled = true; - if ( (CveUsuario == CveUsuarioDe)) - { + if ((CveUsuario == CveUsuarioDe)) + { if (CveUsuario == CveUsuarioDe) { chkCCpara.Checked = true; @@ -234,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); @@ -271,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) { @@ -356,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),Duracion:TxtDuracion.Text); + 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; @@ -367,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, ""); } @@ -400,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) @@ -534,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) @@ -557,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 63e0682ff..b0b1d6b1d 100644 --- a/OI/MinutaDetalle.aspx +++ b/OI/MinutaDetalle.aspx @@ -519,7 +519,7 @@
    - Agregar + Agregar
    @@ -528,12 +528,12 @@
    - +
    - +
    @@ -547,7 +547,7 @@
    - + <%----%> @@ -569,7 +569,7 @@
    "); + // StrSB.Append(" "); + // StrSB.Append(" "); + // StrSB.Append(" "); + // StrSB.Append(" "); + // StrSB.Append(""); - StrSB.Append(" "); - } + // StrSB.Append(" "); + // } - return StrSB; - } + // return StrSB; + //} #endregion protected void LnkSaveAcuerdos_Click(object sender, EventArgs e) @@ -1171,90 +1374,8 @@ public partial class OI_MinutaDetalle : ClsPaginas bool agendar = false; protected void BtnTerminarYAgendar_Click(object sender, EventArgs e) { - - - - //string errorMessage = ""; - - - //int cveUsuarioDe = UsuarioActual.CveUsuario; - //List listaCCP = new List(); - ////int cveUsuarioPara = CveUsuarioPara; - - //OITipoEventos cveTipoEvento = OITipoEventos.Agenda; - //string asunto = TxtAgendaAsunto.Text; - //string descripcion = string.Format("siguiente reunión Minuta \"{0}\"", TxtAsunto.Text); - //int prioridad = 1; - //int cveAgendaTipo = 4; - //string fechaInicio = ""; - //string fechaFin = "1900/01/01 00:00"; - //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"); - // fechaFin = txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").AddHours(2).ToString("yyyy/MM/dd HH:mm"); - // } - //} - //else - //{ - // fechaInicio = txtFechaI.Text.ToDateTimeExcat().ToString("yyyy/MM/dd HH:mm"); - // fechaFin = txtFechaI.Text.ToDateTimeExcat().AddHours(2).ToString("yyyy/MM/dd HH:mm"); - //} - //int cveRevision = -1; - //string archivoname = ""; - - - - //int cveUsuarioIng = UsuarioActual.CveUsuario; - //int cveEmpresa = UsuarioActual.CveEmpresa; - //bool Continuar = true; - //int Folio = -1; - //int CveEvento = -1; - - //if (errorMessage.Length == 0) - //{ - - // List chkList = new List(); - // using (ClsOIEventos objOI = new ClsOIEventos()) - // { - // objOI.IniciaTransacSQL(); - // foreach (var cveUsuarioPara in LCveUsuarioCCP) - // { - // if (Continuar) - // { - // Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, RCveEvento, null, cveAgendaTipo); - // CveEvento = objOI.CveEvento; - // Folio = objOI.Folio; - // if (CveEvento == 0) - // { - // Continuar = false; - // } - // } - // } - // if (Continuar) - // { - // objOI.Commit(); - - // } - // else - // { - // objOI.RollBack(); - // Continuar = false; - // } - // } - //if (Continuar && CveEvento > 0) - //{ agendar = true; LnkTerminarMinuta_Click(null, null); - //this.Alert("Se ha agregadó la nueva agenda", ModExtensiones.TipoMensaje.MsgInformacion, string.Format("window.open(\"/OI/TareaDetalle.aspx?CveEvento={0}\", \"_blank\");", CveEvento)); - // } - //} } diff --git a/OI/RepReuniones.aspx b/OI/RepReuniones.aspx index f0169055b..0e49abf65 100644 --- a/OI/RepReuniones.aspx +++ b/OI/RepReuniones.aspx @@ -1,10 +1,20 @@ <%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepReuniones.aspx.cs" Inherits="OI_RepReuniones" %> - +<%@ Import Namespace="Extensiones" %> + + Reuniones + @@ -26,7 +36,7 @@ - Reuniones + Convocatorias @@ -35,7 +45,7 @@
    - +
      @@ -75,21 +85,33 @@
    - - - + + <%#Eval("Asunto")%> + - - - + <%----%> + - <%----%> + + + + + + + Ir + + + + + + diff --git a/OI/RepReuniones.aspx.cs b/OI/RepReuniones.aspx.cs index 3d96f3f8c..9f834bdc1 100644 --- a/OI/RepReuniones.aspx.cs +++ b/OI/RepReuniones.aspx.cs @@ -2,6 +2,7 @@ using System.Collections.Generic; using System.Data; using System.Linq; +using System.Text; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; @@ -44,7 +45,7 @@ public partial class OI_RepReuniones : ClsPaginas FechaF = TxtCFechaFin.Text.ToDate(); if (ObjProspectos.GetRepEventos(-1, 11, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF)) - { GVConvocatoria.DataSource = ObjProspectos.DtResultados.FiltraParametros("","FechaInicio DESC"); } + { GVConvocatoria.DataSource = ObjProspectos.DtResultados.FiltraParametros("", "FechaInicio DESC"); } } GVConvocatoria.DataBind(); @@ -135,10 +136,232 @@ public partial class OI_RepReuniones : ClsPaginas UpContenido.Update(); } - protected void Button1_Click(object sender, EventArgs e) + protected void BtnCargarReunion_Click(object sender, EventArgs e) { CargaDatosReunion(); UpContenido.Update(); } + + protected void LnkAddMinuta_Click(object sender, EventArgs e) + { + GridViewRow gvrow = (GridViewRow)((LinkButton)sender).NamingContainer; + int RCveEvento = gvrow.DataKey("CveEvento").ToEntero(); + bool Continuar = false; + int CveEvento = -1; + List LCveUsuarioCCP = new List(); + using (ClsOIEventos ObjOI_E = new ClsOIEventos()) + { + if (ObjOI_E.GetEventosUsuario2(RCveEvento, UsuarioActual.CveEmpresa)) + { + LCveUsuarioCCP.Clear(); + foreach (System.Data.DataRow item in ObjOI_E.DtResultados.Select("CveEvento >0")) + { + int CveUsuario = item["CveUsuario"].ToString().ToEntero(); + LCveUsuarioCCP.Add(CveUsuario); + } + } + + } + + int Folio = -1; + 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]; + 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); + CveEvento = ObjOI_E.CveEvento; + Folio = ObjOI_E.Folio; + if (CveEvento == 0) + { + Continuar = false; + } + if (Continuar) { Continuar = ObjOI_E.UpdateEstatusEvento2(2, -1, RCveEvento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); } + if (Continuar) + { + ObjOI_E.Commit(); + ObjEventosCorreo o = ObjOI_E.objCorreo; + } + else + { + ObjOI_E.RollBack(); + Continuar = false; + } + } + } + if (Continuar) + { + BtnCargarReunion_Click(null, null); + this.Alert(string.Format("Se ha iniciado la minuta
    para ir a la minuta click aquí", CveEvento), ModExtensiones.TipoMensaje.ToastInformacion, "", 0); + } + } + + protected void LnkEnviarRecordatorio_Click(object sender, EventArgs e) + { + + GridViewRow gvrow = (GridViewRow)((LinkButton)sender).NamingContainer; + int RCveEvento = gvrow.DataKey("CveEvento").ToEntero(); + enviarConvocatoria(RCveEvento); + Alert("se ha enviado la convocatoria",ModExtensiones.TipoMensaje.ToastInformacion); + } + + private string GetDominio(string addstr = "") + { + return string.Format("{0}/{1}", HttpContext.Current.Request.Url.ToString().Replace(HttpContext.Current.Request.Url.PathAndQuery, ""), addstr); + } + + private void enviarConvocatoria(int RCveEvento) + { + + string Body; + Asuntoconvocatoria = "Convocatoria: "; + 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() , Asuntoconvocatoria, Body, CCP: ArrayCC, Archivos: LSRutasMail); + } + private string Asuntoconvocatoria; + 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)); + Asuntoconvocatoria = string.Format("Convocatoria: {0}", drow["Asunto"].ToString()); + 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(); + } } \ No newline at end of file diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index 6a0e904c5..0385a4949 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -231,7 +231,7 @@ public partial class OI_TareaDetalle : ClsPaginas } LnkcambiarEstatus.Visible = LnkcambiarEstatus.Visible && (Permisos.Estatus1_2_3 || Permisos.Estatus4_5); - if (CveEventoEstatus < 4) + if (CveEventoEstatus >= 4) { LnkAgregarTema.Visible = false; LnkUpUsuarios.Visible = false; @@ -415,7 +415,7 @@ public partial class OI_TareaDetalle : ClsPaginas 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.Items.Insert(1, new ListItem(dtrow["Revision"].ToString(), CveRevision.ToString())); } } DdlTema.SelectedValueExist(CveRevision.ToString()); @@ -613,6 +613,8 @@ public partial class OI_TareaDetalle : ClsPaginas else { RCveEvento = 0; } } GVcheklist.DataBind(); + UpAcciones.Update(); + UpContenido.Update(); } protected void LnkGuardar_Click(object sender, EventArgs e) @@ -756,8 +758,11 @@ public partial class OI_TareaDetalle : ClsPaginas if (Continuar) { objOI.Commit(); - 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 { @@ -795,6 +800,7 @@ public partial class OI_TareaDetalle : ClsPaginas 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(); @@ -810,10 +816,12 @@ public partial class OI_TareaDetalle : ClsPaginas { 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 { @@ -953,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); @@ -975,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) @@ -997,7 +1006,6 @@ public partial class OI_TareaDetalle : ClsPaginas if (objOI.UpdateEstatusEvento2(CveEstatus, -1, RCveEvento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtComentarioTerminarpadre.Text)) { - ObjEventosCorreo o = objOI.objCorreo; if (CveEstatus >= 3) { @@ -1037,13 +1045,17 @@ public partial class OI_TareaDetalle : ClsPaginas DateTime FFin = txtFechaF.Text.ToDateTimeExcat(); if (o != null) { - 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)); + 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, ""); } } } + CveEventoEstatus = CveEstatus; + Setpermisos(); + UpContenido.Update(); + UpAcciones.Update(); } else { @@ -1103,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); @@ -1123,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 = ""; @@ -1211,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 = ""; @@ -1228,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) { @@ -1249,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) @@ -1257,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); @@ -1273,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) @@ -1494,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) @@ -1503,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 { @@ -1532,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) { @@ -1549,17 +1570,17 @@ public partial class OI_TareaDetalle : ClsPaginas //{ // 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()); @@ -1569,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()); @@ -1590,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(" @Asunto@"); + StrMail.Append(" @Asunto@"); StrMail.Append("
    "); StrMail.Append("
    "); StrMail.Append(" Folio:"); @@ -1648,6 +1671,10 @@ public partial class OI_TareaDetalle : ClsPaginas 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) diff --git a/OI/UnoaUno.aspx b/OI/UnoaUno.aspx index c841d4ac4..4e558e968 100644 --- a/OI/UnoaUno.aspx +++ b/OI/UnoaUno.aspx @@ -55,7 +55,8 @@
  • - Seguir
    • + Seguir +     @@ -185,7 +186,7 @@
    - + @@ -217,7 +218,7 @@
    - + @@ -265,12 +266,12 @@ - + - + diff --git a/OI/UnoaUno.aspx.cs b/OI/UnoaUno.aspx.cs index 59f3d8679..29400b6f7 100644 --- a/OI/UnoaUno.aspx.cs +++ b/OI/UnoaUno.aspx.cs @@ -213,7 +213,7 @@ public partial class OI_UnoaUno : ClsPaginas LnkGuardarPregunta.Text = "Actualizar"; LnkCancelarPregunta.Visible = true; upPreguntas.Update(); - openmodalseguir(); + //openmodalseguir(); } protected void LnkCancelarPregunta_Click(object sender, EventArgs e) { @@ -221,7 +221,7 @@ public partial class OI_UnoaUno : ClsPaginas LnkGuardarPregunta.Text = "Guardar"; LnkCancelarPregunta.Visible = false; upPreguntas.Update(); - openmodalseguir(); + //openmodalseguir(); } protected void LnkEliminarPregunta_Click(object sender, EventArgs e) { @@ -244,7 +244,7 @@ public partial class OI_UnoaUno : ClsPaginas Alert("La pregunta se ha eliminado correctamente", ModExtensiones.TipoMensaje.ToastInformacion); CargarPreguntas(); } - openmodalseguir(); + //openmodalseguir(); } protected void LnkGuardarPregunta_Click(object sender, EventArgs e) @@ -276,7 +276,7 @@ public partial class OI_UnoaUno : ClsPaginas LnkCancelarPregunta.Visible = false; Alert("La pregunta se ha agregado correctamente", ModExtensiones.TipoMensaje.ToastInformacion); } - openmodalseguir(); + //openmodalseguir(); } #endregion @@ -285,14 +285,14 @@ public partial class OI_UnoaUno : ClsPaginas { using (ClsOIEventos ObjUnoa = new ClsOIEventos()) { - ObjUnoa.GetUnoaUnoCuestionario(-1, UsuarioActual.CveUsuario); + ObjUnoa.GetUnoaUnoCuestionario(-1, UsuarioActual.CveUsuario,UsuarioActual.CveEmpresa ); DtPreguntas = ObjUnoa.DtResultados; DdlCuestionario.DataSource = ObjUnoa.DtResultados; } //GVCuestionario.DataBind(); DdlCuestionario.DataBind(); DdlCuestionario.Items.Insert(0, new ListItem("Seleccione", "-1")); - openmodalseguir(); + //openmodalseguir(); } protected void LnkGuardarCuestionario_Click(object sender, EventArgs e) { @@ -323,7 +323,7 @@ public partial class OI_UnoaUno : ClsPaginas } else { - continuar = ObjUnoa.AddUnoaUnoCuestionario(Cuestionario, Comentario, UsuarioActual.CveUsuario, lPreguntas); + continuar = ObjUnoa.AddUnoaUnoCuestionario(Cuestionario, Comentario, UsuarioActual.CveUsuario, lPreguntas, UsuarioActual.CveEmpresa ); msg = "El cuestionario se ha agregado correctamente"; } } @@ -334,7 +334,7 @@ public partial class OI_UnoaUno : ClsPaginas DdlCuestionario_SelectedIndexChanged(null, null); Alert(msg, ModExtensiones.TipoMensaje.ToastInformacion); } - openmodalseguir(); + //openmodalseguir(); } @@ -384,7 +384,7 @@ public partial class OI_UnoaUno : ClsPaginas UpCuestionario.Update(); CargarSeguirA(); UpSeguirA.Update(); - openmodalseguir(); + //openmodalseguir(); } //protected void LnkCancelarCuestionario_Click(object sender, EventArgs e) //{ @@ -516,26 +516,7 @@ public partial class OI_UnoaUno : ClsPaginas } openmodalseguir(); } - - //protected void LnkEliminarCuestionarioUser_Click(object sender, EventArgs e) - //{ - - - // bool continuar = true; - // int cveUnoaUnoCuestionario = DdlCuestionario.SelectedValue.ToEntero(); - // int CveSeguir = DdlUsuario.SelectedValue.ToEntero(); - // using (ClsOIEventos ObjUnoa = new ClsOIEventos()) - // { - // continuar = ObjUnoa.AddUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario, UsuarioActual.CveUsuario, CveSeguir); - // } - // if (continuar) - // { - // //CcveUnoaUnoCuestionario = -1; - // Alert("El cuestionario se ha eliminado correctamente", ModExtensiones.TipoMensaje.ToastInformacion); - // CargarSeguirA(); - // } - // openmodalseguir(); - //} + protected void TabContainerSeguir_ActiveTabChanged(object sender, EventArgs e) @@ -553,7 +534,7 @@ public partial class OI_UnoaUno : ClsPaginas LnkGuardarSeguirA.Visible = true; } } - openmodalseguir(); + //openmodalseguir(); UpSeguirA.Update(); } diff --git a/OI/UnoaUnoConfiguracion.aspx b/OI/UnoaUnoConfiguracion.aspx deleted file mode 100644 index 583ed8e8e..000000000 --- a/OI/UnoaUnoConfiguracion.aspx +++ /dev/null @@ -1,81 +0,0 @@ -<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="UnoaUnoConfiguracion.aspx.cs" Inherits="OI_UnoaUnoConfiguracion" %> - - - - - - - Configuración Uno a Uno - - - - - - -
  • Etiqueta
    • -     -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/OI/UnoaUnoConfiguracion.aspx.cs b/OI/UnoaUnoConfiguracion.aspx.cs deleted file mode 100644 index 455ba507a..000000000 --- a/OI/UnoaUnoConfiguracion.aspx.cs +++ /dev/null @@ -1,132 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Web; -using System.Web.UI; -using System.Web.UI.WebControls; -using Extensiones; - -public partial class OI_UnoaUnoConfiguracion : ClsPaginas -{ - - #region Propiedades - private int CcveUnoaUnoEtiqueta - { - get { return (ViewState["CcveUnoaUnoEtiqueta"] == null) ? 0 : Convert.ToInt32(ViewState["CcveUnoaUnoEtiqueta"]); } - set { ViewState["CcveUnoaUnoEtiqueta"] = value; } - } - #endregion - protected void Page_Load(object sender, EventArgs e) - { - if (!IsPostBack) - { - CargaUnoaUnoEtiqueta(); - } - } - protected void CargaUnoaUnoEtiqueta() - { - using (ClsOIEventos ObjUnoa = new ClsOIEventos()) - { - - ObjUnoa.GetUnoaUnoEtiqueta(-1, UsuarioActual.CveEmpresa); - GVUnoaUnoEtiqueta.DataSource = ObjUnoa.DtResultados; - DdlUnoaetiqueta1.DataSource = ObjUnoa.DtResultados; - } - GVUnoaUnoEtiqueta.DataBind(); - DdlUnoaetiqueta1.DataBind(); - DdlUnoaetiqueta1.Items.Insert(0,new ListItem("Seleccione","-1")); - upDatosUnoa.Update(); - } - protected void LimpiaUnoaUnoEtiqueta() - { - TxtUnoaetiqueta.Text = ""; - DdlUnoaetiqueta1.SelectedIndex = 0; - UPModalUnoa.Update(); - } - protected void LnkEditarUnoa_Click(object sender, EventArgs e) - { - LimpiaUnoaUnoEtiqueta(); - ltlUnoatitulo.Text = "Actualizar Etiqueta"; - GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); - CcveUnoaUnoEtiqueta = gvRow.DataKey("CveUnoaUnoEtiqueta").ToEntero(); - string etiqueta = gvRow.DataKey("Etiqueta"); - int cveUnoaUnoEtiquetaVinculo = gvRow.DataKey("CveUnoaUnoEtiquetaVinculo").ToEntero(); - int cveGrupo = gvRow.DataKey("CveGrupo").ToEntero(); - int cveEmpresa = gvRow.DataKey("CveEmpresa").ToEntero(); - - TxtUnoaetiqueta.Text = etiqueta.ToString(); - DdlUnoaetiqueta1.SelectedValue = "-1"; - DdlUnoaetiqueta1.SelectedValueExist(cveUnoaUnoEtiquetaVinculo.ToString()); - this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal();"); - BtnUnoaADD.Visible = false; - BtnUnoaEdit.Visible = true; - UPModalUnoa.Update(); - } - protected void LnkAgregarUnoa_Click(object sender, EventArgs e) - { - ltlUnoatitulo.Text = "Agregar Etiqueta"; - this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal();"); - LimpiaUnoaUnoEtiqueta(); - BtnUnoaADD.Visible = true; - BtnUnoaEdit.Visible = false; - UPModalUnoa.Update(); - } - protected void BtnUnoaADD_Click(object sender, EventArgs e) - { - - string etiqueta = TxtUnoaetiqueta.Text; - int cveUnoaUnoEtiquetaVinculo = DdlUnoaetiqueta1.SelectedValue.ToEntero(); - int cveGrupo = 1; - int cveEmpresa = UsuarioActual.CveEmpresa; - bool Continuar = false; - using (ClsOIEventos ObjUnoa = new ClsOIEventos()) - { - Continuar=ObjUnoa.AddUnoaUnoEtiqueta(etiqueta, cveUnoaUnoEtiquetaVinculo, cveGrupo, cveEmpresa); - } - if (Continuar) - { - this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal('hide');"); - LimpiaUnoaUnoEtiqueta(); - CargaUnoaUnoEtiqueta(); - UPModalUnoa.Update(); - this.Alert("La Etiqueta se ha agregado"); - } - } - protected void BtnUnoaEdit_Click(object sender, EventArgs e) - { - - string etiqueta = TxtUnoaetiqueta.Text; - int cveUnoaUnoEtiquetaVinculo = DdlUnoaetiqueta1.SelectedValue.ToEntero(); - int cveGrupo = 1; - int cveEmpresa = UsuarioActual.CveEmpresa; - bool Continuar = false; - using (ClsOIEventos ObjUnoa = new ClsOIEventos()) - { - Continuar = ObjUnoa.UpUnoaUnoEtiqueta(CcveUnoaUnoEtiqueta, etiqueta, cveUnoaUnoEtiquetaVinculo, cveGrupo, cveEmpresa); - } - if (Continuar) - { - this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal('hide');"); - LimpiaUnoaUnoEtiqueta(); - UPModalUnoa.Update(); - CargaUnoaUnoEtiqueta(); - this.Alert("La Etiqueta se ha actualizado"); - } - } - protected void LnkEliminarUnoa_Click(object sender, EventArgs e) - { - GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); - CcveUnoaUnoEtiqueta = gvRow.DataKey("CveUnoaUnoEtiqueta").ToEntero(); - bool Continuar = false; - using (ClsOIEventos ObjUnoa = new ClsOIEventos()) - { - - Continuar = ObjUnoa.RemoveUnoaUnoEtiqueta(CcveUnoaUnoEtiqueta); - } - if (Continuar) - { - CargaUnoaUnoEtiqueta(); - this.Alert("La Etiqueta se ha Eliminado"); - } - } -} From 783b7a6a74f10551030e7c34d9a29ed6e755c90e Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 23 May 2020 00:32:26 -0700 Subject: [PATCH 16/27] agregando las entregas locales --- App_Code/ClsGenerales.vb | 47 +++++- App_Code/ClsPaginas.vb | 2 + Contratos/Contrato.aspx.vb | 10 +- General/PopUpPaqueteriasGuiasInternas.aspx | 127 ++++++++++++++++ General/PopUpPaqueteriasGuiasInternas.aspx.cs | 136 ++++++++++++++++++ Inventarios/EntregaAlmacen.aspx | 132 +++++++++-------- Inventarios/EntregaAlmacen.aspx.vb | 12 ++ Inventarios/EntregasPorRealizar.aspx | 102 +++++++++++++ Inventarios/EntregasPorRealizar.aspx.cs | 79 ++++++++++ 9 files changed, 578 insertions(+), 69 deletions(-) create mode 100644 General/PopUpPaqueteriasGuiasInternas.aspx create mode 100644 General/PopUpPaqueteriasGuiasInternas.aspx.cs create mode 100644 Inventarios/EntregasPorRealizar.aspx create mode 100644 Inventarios/EntregasPorRealizar.aspx.cs diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index b47b3d317..177fb986e 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2659,11 +2659,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 @@ -2689,6 +2690,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 @@ -2794,9 +2797,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/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 389d0dbed..8d894b822 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -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/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 9781142c1..07b34e090 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 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/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index d81474caf..7928e67d6 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -5,19 +5,19 @@ @@ -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 @@ - +
    -
    - +
    +
    - - + + @@ -785,13 +799,13 @@
    - +
    - +
    @@ -824,7 +838,7 @@ $('#TxtCodigoPS').focus() } - + function playsonidito(NomArchivo) { var URL = /Sonidos/ + NomArchivo @@ -833,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 6a429e8f0..d67ae98cc 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -3085,6 +3085,18 @@ Partial Class Inventarios_EntregaAlmacen #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..b660206b0 --- /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..8616bb8d3 --- /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 (DdlPersonal.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 = DdlPersonal.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() + { + DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); + DdlPersonal.DataBind(); + DdlPersonal.Items.Insert(0, new ListItem("Seleccione", "-1")); + } +} \ No newline at end of file From f820d5bd55fb693b2f2f9191a3961455617f5553 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 23 May 2020 12:27:57 -0700 Subject: [PATCH 17/27] avance de paqueterias guias --- App_Code/ClsGenerales.vb | 5 ++++- General/RepPaqueteriasGuias.aspx | 5 +++++ General/RepPaqueteriasGuias.aspx.cs | 14 ++++++++++++-- Inventarios/EntregasPorRealizar.aspx | 2 +- Inventarios/EntregasPorRealizar.aspx.cs | 10 +++++----- 5 files changed, 27 insertions(+), 9 deletions(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 177fb986e..f31d13a2a 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2712,7 +2712,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 @@ -2731,6 +2733,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) 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..69a53120a 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,8 @@ 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))); + @params.Add(new ReportParameter("FiltroUsuario", DdlUsuarios.SelectedItem.Text)); + if (Imagen.Exists) { @params.Add(new ReportParameter("LogoPath", logouri)); diff --git a/Inventarios/EntregasPorRealizar.aspx b/Inventarios/EntregasPorRealizar.aspx index b660206b0..9b5943b7e 100644 --- a/Inventarios/EntregasPorRealizar.aspx +++ b/Inventarios/EntregasPorRealizar.aspx @@ -36,7 +36,7 @@
    PERSONAL QUE ENTREGA:
    - +
    diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs index 8616bb8d3..bf831e4e3 100644 --- a/Inventarios/EntregasPorRealizar.aspx.cs +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -20,7 +20,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas protected void BtnAsignar_Click(object sender,EventArgs e) { - if (DdlPersonal.SelectedValue.ToEntero() > 0) + if (DdlUsuario.SelectedValue.ToEntero() > 0) { bool TieneError = false; ClsGenerales ObjGeneral = new ClsGenerales(); @@ -32,7 +32,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas if (row.FCCheckBox("ChkAsigna").Checked) { int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero(); - int CvePersonal = DdlPersonal.SelectedValue.ToEntero(); + int CvePersonal = DdlUsuario.SelectedValue.ToEntero(); if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal)){ TieneError = true; @@ -72,8 +72,8 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas private void CargarPersonal() { - DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); - DdlPersonal.DataBind(); - DdlPersonal.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); + DdlUsuario.DataBind(); + DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1")); } } \ No newline at end of file From fd4e775f430a77999bae25ad1ec7418e0f406962 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 23 May 2020 15:59:38 -0700 Subject: [PATCH 18/27] Cambios en cancelacion de facturas --- App_Code/Modelos.vb | 50 ++++++++++++++++++++++++--------------------- 1 file changed, 27 insertions(+), 23 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index eb2eea490..ec360eed3 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4553,35 +4553,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 - 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 + '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 cancelar los movimientos de la remisión." - Exit For + 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() + + 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 + Next + Else + ErrorCancelar = True + End If - DtDevRemision.Dispose() - Next End If 'VERIFICAR MOVIMIENTOS DE APARTADOS From 4de2cad25a21bb12c906417773cde9429ff32189 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 23 May 2020 18:14:03 -0700 Subject: [PATCH 19/27] parametros para el reporte listo --- .../Grales/Formatos/RepPaqueteriasGuias.rdlc | 70 ++++++++++++++++--- General/RepPaqueteriasGuias.aspx.cs | 3 +- 2 files changed, 62 insertions(+), 11 deletions(-) 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 + +