From 1249f52336c3d6f859c7a8d9810c7cc7fa8f65ad Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 19 May 2020 20:06:17 -0700 Subject: [PATCH 1/7] 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 2/7] 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 3/7] 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 4/7] 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 5/7] --- 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("
    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 6/7] 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 7/7] 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)