From d03ab4e5d37b3f63d33439201ca876fc34c89cee Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 24 Nov 2021 00:41:09 -0700 Subject: [PATCH] --- App_Code/ClsNominas.vb | 14 ++++++++++++ Ashx/SIGWeb.ashx | 37 ++++++++++++++++++++++++++++++++ Inicio.aspx | 31 ++++++++++++++++++++++++++ Inicio.aspx.vb | 7 ++++++ Inventarios/RepAnomalias.aspx.vb | 2 +- 5 files changed, 90 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 2dd6b5be7..54d9be053 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -196,6 +196,20 @@ Public Class ClsNominas End Try Return retorno End Function + Public Function GetNominasSinTimbrar() As Boolean + Dim retorno As Boolean = False + DTSet = New DataSet() + DataAdapter("PA_Nom_NominasSinTimbrar", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el finiquito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function PersonalISRAnual(CvePersonal As Integer, cveEmpresa As Integer, Ejercicio As Integer) As Boolean Dim retorno As Boolean = False DTSet = New DataSet() diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 21f62896b..56bdaaaf3 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -111,6 +111,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState context.Response.Write(ValidaCURP(context.Request("Curp").ToString())) Case "sendMail" context.Response.Write(sendMail(context)) + Case "sendMailEMD" + context.Response.Write(sendMailEMD(context)) Case "sendMailLPM" context.Response.Write(sendMailLPM(context)) Case "getSATColomias" @@ -169,6 +171,41 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If Return retorno End Function + + Private Function sendMailEMD(context As HttpContext) As String + Dim retorno As String = "true" + Dim nombre As String = "" + Dim correo As String = "" + Dim Phone As String = "" + Dim cuerpo As String = "" + Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() + + If Not IsNothing(obj) Then + nombre = obj.ToString() + End If + obj = context.Request("Correo") + If Not IsNothing(obj) Then + correo = obj.ToString() + End If + obj = context.Request("Phone") + If Not IsNothing(obj) Then + Phone = obj.ToString() + End If + obj = context.Request("Cuerpo") + If Not IsNothing(obj) Then + cuerpo = obj.ToString().Replace("< ", "<") + End If + Dim Body As String = String.Format("Solicitó : {0}
Correo : {1}
Telefono : {2}

{3}", nombre, correo, Phone, cuerpo) + Dim para As String = "paola@adssistemas.mx;caudillo.90d@gmail.com;" + 'para = "" + Dim Mail As New ClsSisMail() + If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then + retorno = "true" + Else + retorno = "false" + End If + Return retorno + End Function + Private Function sendMail(context As HttpContext) As String Dim retorno As String = "true" Dim nombre As String = "" diff --git a/Inicio.aspx b/Inicio.aspx index 5b092c8e2..2e4eace5a 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -805,6 +805,37 @@ +