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()

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}<br/>Correo : {1}<br/>Telefono : {2}<br/><br/>{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 = ""

Inicio.aspx

@@ -805,6 +805,37 @@
         </div>
     </div>
     
+    <div id="NominasSinTimbrar" class="modal ADS fade " role="dialog">
+        <div class="modal-dialog">
+
+            <!-- Modal content-->
+            <div class="modal-content  modal-lg">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Nomina autorizada sin timbrar</h4>
+                </div>
+
+                <div class="modal-body">
+
+                    <div style="text-align: right">
+                        <input type="text" id="TxtNomPendientesxTimbrar" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtNomPendientesxTimbrar','{0}')", GVNomPendientesxTimbrar.ClientID) %>" style="display: inline-block; width: 150px;" />
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtNomPendientesxTimbrar','{0}')", GVNomPendientesxTimbrar.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                    </div>
+
+                    <asp:GridView ID="GVNomPendientesxTimbrar" runat="server" AutoGenerateColumns="true" EmptyDataText="No se encontraron factura canceladas pendientes" 
+                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
+                        <Columns> 
+                        </Columns>
+                        <RowStyle CssClass="Texto" />
+                        <HeaderStyle CssClass="Titulos" />
+                    </asp:GridView>
+                </div>
+                <div class="modal-footer">
+                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                </div>
+            </div>
+        </div>
+    </div>
     <div id="ModalVtasPendientesxTimbrarSAT" class="modal ADS fade " role="dialog">
         <div class="modal-dialog">
 

Inicio.aspx.vb

@@ -92,6 +92,13 @@ Partial Class Inicio
             End If
             If UsuarioActual.CveUsuario = 100 Then
 
+                Using objnom As New ClsNominas
+                    If objnom.GetNominasSinTimbrar() AndAlso objnom.DtResultados.Rows.Count > 0 Then
+                        GVNomPendientesxTimbrar.DataSource = objnom.DtResultados
+                        GVNomPendientesxTimbrar.DataBind()
+                        RegistraScript("$('#NominasSinTimbrar').modal();", "tikNominasSinTimbrar")
+                    End If
+                End Using
                 Using objventas As New ClsVentas
                     If objventas.GETVentasPendientesdeTimbrar(UsuarioActual.CveEmpresa) AndAlso objventas.DtResultados.Rows.Count > 0 Then
                         GVVtasPendientesxTimbrarSAT.DataSource = objventas.DtResultados

Inventarios/RepAnomalias.aspx.vb

@@ -465,7 +465,7 @@ Partial Class Inventarios_RepAnomalias
         Dim GvTemp As GridView = GvF
 
         For Each GvRow As GridViewRow In GvTemp.Rows
-            GvRow.BackColor = Drawing.ColorTranslator.FromHtml("#white")
+            GvRow.BackColor = Drawing.ColorTranslator.FromHtml("white")
         Next
 
         'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)