diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index 1014e8fb0..1f050b14e 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -3480,6 +3480,25 @@ Public Class ClsCGame #End Region + Public Function MailsGet(cveMails As Int32, cveUsuarioCorreo As Int32, cveUsuario As Int32, cveEmpresa As Int32, tipo As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_CGame_MailsGet", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMails", SqlDbType.Int).Value = cveMails + .Add("@CveUsuarioCorreo", SqlDbType.Int).Value = cveUsuarioCorreo + .Add("@CveUsuario", SqlDbType.Int).Value = cveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@Tipo", SqlDbType.Int).Value = tipo + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de inventario diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function #Region "IDisposable Support" ' IDisposable Protected Overridable Sub Dispose(disposing As Boolean) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 45b574d7b..0b9ca4444 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -10,6 +10,51 @@ Imports Microsoft.Reporting.WebForms Namespace Modelos + + Public Class NConcepto +#Region "Percepciones" + Public Property NoConceptoP As String + Public Property ConceptoP As String + Public Property LabelValorP As String + Public Property CveConceptoP As Integer + Public Property ImporteP As Double + Public Property ImporteGravadoP As Double + Public Property ValorP As Double + Public Property EstatusP As Integer + Public Property isSavedP As Integer + Public Property isEditedP As Integer + Public Property isOnlyBisibleP As Integer + Public Property CveSistemaP As Integer +#End Region +#Region "Deducciones" + Public Property NoConceptoD As String + Public Property ConceptoD As String + Public Property LabelValorD As String + Public Property CveConceptoD As Integer + Public Property ImporteD As Double + Public Property ImporteGravadoD As Double + Public Property ValorD As Double + Public Property EstatusD As Integer + Public Property isSavedD As Integer + Public Property isEditedD As Integer + Public Property isOnlyBisibleD As Integer + Public Property CveSistemaD As Integer +#End Region +#Region "Obligaciones" + Public Property NoConceptoO As String + Public Property ConceptoO As String + Public Property LabelValorO As String + Public Property CveConceptoO As Integer + Public Property ImporteO As Double + Public Property ImporteGravadoO As Double + Public Property ValorO As Double + Public Property EstatusO As Integer + Public Property isEditedO As Integer + Public Property isOnlyBisibleO As Integer + Public Property CveSistemaO As Integer +#End Region + End Class + Public Class PlantillasPolizas Public Property CvePlantillaPoliza As Integer diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 1434d1e14..0536165ec 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -235,6 +235,9 @@ Partial Class PopUpVerFactura If Request("onlyPrint").ToString() = "CitrusInventarioDiarioxls" AndAlso Not IsNothing(Request("fecha")) Then imprimirRepcitrusInventarioDiario(Request("fecha").ToString(), "Excel") End If + If Request("onlyPrint").ToString() = "CitrusInventarioDiarioSendMail" AndAlso Not IsNothing(Request("fecha")) Then + imprimirRepcitrusInventarioDiario(Request("fecha").ToString(), "PDF", True) + End If End If End If End Sub @@ -342,11 +345,11 @@ Partial Class PopUpVerFactura End Sub - Private Sub imprimirRepcitrusInventarioDiario(fecha As String, formato As String) + Private Sub imprimirRepcitrusInventarioDiario(fecha As String, formato As String, Optional EnviarCorrreo As Boolean = False) Dim totalPallets As String = "" Dim totalBachas As String = "" Dim dfec As DateTime = fecha.ToDateTime() - Dim fechas As String = String.Format(New System.Globalization.CultureInfo("es-MX"), "{0:dd} de {0:MMMM} del {0:yyyy}", dfec) + Dim fechas As String = String.Format(New System.Globalization.CultureInfo("es-MX"), "{0:dd} DE {0:MMMM} DEL {0:yyyy}", dfec).ToUpper() Dim totalcajas As String = "" Dim TotalBins As String = "" @@ -382,7 +385,30 @@ Partial Class PopUpVerFactura '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc" - ImprimirPDF(rutardlc, lrds, params, "Inventario", formato) ', Content_Disposition:="Inline") + If EnviarCorrreo Then + Dim para As String = "caudillo.90d@gmail.com" + Dim dtCorreos As DataTable = New DataTable() + + Using objnom As New ClsCGame + If objnom.MailsGet(-1, -1, -1, UsuarioActual.CveEmpresa, 2) Then + dtCorreos = objnom.DtResultados + End If + End Using + For Each row As DataRow In dtCorreos.Rows + para = String.Format("{0},{1}", para, row("Correo")) + Next + + Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato) + Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = archivoBinario, .NombreArchivo = String.Format("Inventario {0}.pdf", fechas)}) + + + Dim Mail As New ClsSisMail() + Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, String.Format("Reporte de Inventario del {0}", fechas), "", "", Archivos:=LSRutasMail) + + Else + ImprimirPDF(rutardlc, lrds, params, "Inventario", formato) ', Content_Disposition:="Inline") + End If End Sub @@ -6974,9 +7000,9 @@ Partial Class PopUpVerFactura End If End If ObjConta.Dispose() - End If + End If - ImprimirPDF(RutaReporte, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF") + ImprimirPDF(RutaReporte, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF") Else Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia) diff --git a/Nomina/Finiquito.aspx b/Nomina/Finiquito.aspx index 845e0eb40..a04dd6a9f 100644 --- a/Nomina/Finiquito.aspx +++ b/Nomina/Finiquito.aspx @@ -67,6 +67,53 @@ font-weight: bold; font-size: 15px; } + + .isOnlyVisible { + color: #666; + /*text-decoration: line-through;*/ + } + + .isOnlyBisibleP td:nth-child(1) { + /*text-decoration: line-through;*/ + } + + .isOnlyBisibleD td:nth-last-child(3) { + /*text-decoration: line-through;*/ + } + + .isEditedP td:nth-child(-n+3) { + text-decoration: underline; + } + + .isEditedD td:nth-last-child(-n+3) { + text-decoration: underline; + } + + .isOnlyBisibleP td:nth-child(-n+3) { + color: #999; + } + + .isOnlyBisibleD td:nth-last-child(-n+3) { + color: #999; + } + + .isOnlyBisibleP td:nth-child(-n+3) a { + color: #999; + } + + .isOnlyBisibleD td:nth-last-child(-n+3) a { + color: #999; + } + + .isOnlyBisibleO td:nth-last-child(-n+3) a { + color: #999; + } + + .GvConceptos td { + font-size: 11px; + padding-top: 2px; + padding-bottom: 2px; + } @@ -83,6 +130,9 @@
  • done_allAutorizar
  • +
  • + Desautorizar nómina +
  • Timbrar
  • @@ -332,7 +382,7 @@ + DataKeyNames="ConceptoP,CveConceptoP,ImporteP,ValorP,EstatusP,ConceptoD,CveConceptoD,ImporteD,isOnlyBisibleP,isOnlyBisibleD,EstatusD,ValorD,isEditedD,isEditedP,isSavedP,isSavedD"> @@ -407,7 +457,7 @@
    + DataKeyNames="ConceptoP,CveConceptoP,ImporteP,ValorP,EstatusP,ConceptoD,CveConceptoD,ImporteD,isOnlyBisibleP,isOnlyBisibleD,EstatusD,ValorD,isEditedD,isEditedP,isSavedP,isSavedD"> @@ -479,20 +529,46 @@
    -
    - - - + +
    +
    +
    Calcular automatico
    -
    - - - +
    +
    +
    + + + +
    +
    +
    + +
    -
    - - - +
    +
    +
    + + + +
    +
    +
    + +
    +
    +
    +
    +
    + + + +
    +
    +
    + +