From 6a08571130840dd96885c32aee2645a5dabdae05 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 22 Jul 2020 18:36:18 -0700 Subject: [PATCH] Compras marcar partidas con PSSAT diferente entre xml y producto alias --- Bancos/RepProgramarRecursos.aspx | 2 +- Bancos/RepProveedoresPagos.aspx | 2 +- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 29 ++++++++++++++++++ RH/CatCursos.aspx.vb | 41 +++++++++++-------------- RH/Personal.aspx | 14 ++++----- RH/Personal.aspx.vb | 43 +++++++++++++++++++++++---- RH/RepPersonalInconsistencias.aspx.vb | 2 +- vwd.webinfo | 4 +++ 9 files changed, 99 insertions(+), 40 deletions(-) diff --git a/Bancos/RepProgramarRecursos.aspx b/Bancos/RepProgramarRecursos.aspx index e7232caa1..e458a4947 100644 --- a/Bancos/RepProgramarRecursos.aspx +++ b/Bancos/RepProgramarRecursos.aspx @@ -118,7 +118,7 @@ Proyecto: -
Aplica NC:
+
Aplica NC/Dev:
diff --git a/Bancos/RepProveedoresPagos.aspx b/Bancos/RepProveedoresPagos.aspx index d0fec1b56..7b1be4aa2 100644 --- a/Bancos/RepProveedoresPagos.aspx +++ b/Bancos/RepProveedoresPagos.aspx @@ -137,7 +137,7 @@
-
Aplica NC:
+
Aplica NC/Dev:
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 1ae19bf47..7537d835a 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -682,7 +682,7 @@ - + <%-- 0 --%> diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index e8d8ba33a..7fce911ba 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1511,6 +1511,8 @@ Partial Class Compras_Compras CargaFletesAgregados() End If + + InicializaOC() 'Valida si el IVA del XML es está bien calculado @@ -2396,6 +2398,8 @@ Partial Class Compras_Compras EstatusAlmacen = dr("EstatusAlmacen").ToString.ToEntero DdlTipoCompra.SelectedValueExist(dr("CveTipoCompra")) CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero + + ChkEsNoDeducible.Checked = Boolean.Parse(dr("NoDeducible").ToString) 'Select Case dr("PorcentajeIVA").ToString.ToDouble ' Case 0 ' DdlIVA.SelectedValue = "1" @@ -2620,6 +2624,7 @@ Partial Class Compras_Compras TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) TmpDT.Columns.Add("CveContrato", GetType(Integer)) + TmpDT.Columns.Add("DifPSSat", GetType(Integer)) @@ -3612,6 +3617,7 @@ Partial Class Compras_Compras tPSCodigo = String.Format("{1} - {0}", ValorXML(node, "descripcion").ToUpper.Trim.Replace(vbCrLf, " ").Replace(vbLf, " ").Replace("'", "''"), ValorXML(node, "noIdentificacion").Trim) End If + 'Alert(ValorXML(node, "ClaveProdServ").Trim) If Version = "3.3" Then If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then @@ -3721,6 +3727,8 @@ Partial Class Compras_Compras 'AGREGA A TMPDT AddPS(ValorXML(node, "cantidad").ToDouble, CveUM, UMM, tCveClasif, Clasif, tCvePS, PSS, TipoPS, "-1", "SE", "SE", "-1", Obs, PU, Total, IVA, RetIVA, RetISR, IEPS, 0, Descuento, PSCodigo:=tPSCodigo, TCalculaTotales:=False, CveSATPS:=ValorXML(node, "ClaveProdServ").ToEntero(), CargaXml:=True, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, PorcentajeRetISR:=PorcentajeRetISR, PorcentajeIEPS:=PorcentajeIEPS) + + Next End If @@ -4484,6 +4492,17 @@ Partial Class Compras_Compras 'si el registro es manual, toma el mismo dato If CveFactura <= 0 Then TotalOriginal = TxtTotal.Text.ToDecimal + For Each GvRow As GridViewRow In GvPS.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + + If GvRow.FCCheckBox("ChkEsNoDeduciblePS").Checked = False Then + EsNoDeducible = False + Exit For + End If + + End If + Next + 'Compra If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble, LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble, @@ -10755,6 +10774,14 @@ Partial Class Compras_Compras End If + + If e.Row.DataKey("DifPSSat").ToEntero = 1 Then + '#e35b5a + e.Row.BackColor = Drawing.Color.FromArgb(1, 227, 91, 90) + e.Row.Attributes.Add("data-toggle", "tooltip") + e.Row.Attributes.Add("title", "El código del producto del SAT no es igual al código del producto registrado.") + End If + End If End Sub Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvPS.RowDeleting @@ -11018,6 +11045,8 @@ Partial Class Compras_Compras TmpDT.Columns.Add("ImporteConImpuestos", GetType(Double)) TmpDT.Columns.Add("NoDeducible", GetType(Boolean)) + TmpDT.Columns.Add("DifPSSat", GetType(Integer)) + TmpDTOriginal = New DataTable TmpDTOriginal.Columns.Add("Consec", GetType(Integer)) TmpDTOriginal.Columns.Add("Cantidad", GetType(Decimal)) diff --git a/RH/CatCursos.aspx.vb b/RH/CatCursos.aspx.vb index 80c664944..cf3b85c55 100644 --- a/RH/CatCursos.aspx.vb +++ b/RH/CatCursos.aspx.vb @@ -329,7 +329,7 @@ Partial Class RH_CatCursos Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/CursosInvitados.rdlc" - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + If Not File.Exists($"{Extensiones.DirectorioBaseEmpresas}/{Archivo}") Then Archivo = "Empresas/Grales/Formatos/CursosInvitados.rdlc" End If @@ -613,7 +613,7 @@ Partial Class RH_CatCursos Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim objConstancias As New ClsConstancias Dim DocumenBitArray As Byte() = Nothing - Dim RutaBase As String = Server.MapPath("~") + Dim RutaBase As String = Extensiones.DirectorioBaseEmpresas Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero @@ -650,7 +650,7 @@ Partial Class RH_CatCursos Dim Contenido As String = "Buen día. Estimado(a) " & _Nombres & vbLf & vbLf & vbLf & vbLf & " Por medio de la presente, el departamento de Capital Humano de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & ", el día " & dia & " de " & mesArray(mes - 1) & " de " & año & " en lugar " & _Ubicacion & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia." If Not File.Exists(RutaArchivo) Then - RutaArchivo = $"{Server.MapPath("~")}\Empresas\Grales\Formatos\CursoInvitacion.docx" + RutaArchivo = $"{ Extensiones.DirectorioBaseEmpresas }\Empresas\Grales\Formatos\CursoInvitacion.docx" End If Dim params As New List(Of ReportParameter) @@ -658,24 +658,22 @@ Partial Class RH_CatCursos params.Add(New ReportParameter("Contenido", Contenido)) params.Add(New ReportParameter("Fecha", Today.ToString)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - Dim DtDatos As New DataTable - Return StreamPDF("Empresas/72/Formatos/CursoInvitacion.rdlc", DtDatos, params, "Invitación a curso", "PDF") - - 'Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo) - 'Dim Tags As New List(Of TagsDocumentos) + Dim DtDatos As New DataTable + + + Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo) + Dim Tags As New List(Of TagsDocumentos) + Tags.Add(New TagsDocumentos("{Curso}", _Curso)) + Tags.Add(New TagsDocumentos("{Contenido}", Contenido)) + + + objGemBoxDocument.SustituirTags(Tags) + objGemBoxDocument.GuardarStreamPDF() - 'Tags.Add(New TagsDocumentos("{Curso}", _Curso)) - 'Tags.Add(New TagsDocumentos("{Contenido}", Contenido)) - - ''objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0) - 'objGemBoxDocument.SustituirTags(Tags) - 'objGemBoxDocument.GuardarStream() - - - 'Return objGemBoxDocument.GetBytesDocumento + Return objGemBoxDocument.GetBytesDocumento End Function @@ -795,12 +793,9 @@ Partial Class RH_CatCursos ContenidoSB.AppendLine("") ContenidoSB.AppendLine("") - - - - Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion) - MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento) - + Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion) + MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento) + Contador = Contador + 1 Dim valor As Boolean = False diff --git a/RH/Personal.aspx b/RH/Personal.aspx index b9c257e6c..d03bc1ffa 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -1523,10 +1523,10 @@ - - - - + + + +
@@ -1602,8 +1602,8 @@ - - + + @@ -3538,7 +3538,7 @@ diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 390c3f3f6..f7f4d4d35 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -4671,12 +4671,17 @@ Partial Class RH_Personal Dim Fecha As String = DateTime.Now.ToString("dd/MM/yyyy") Dim Solicitante As String = UsuarioActual.Nombre Dim anio As Integer = GvRow.DataKey("FechaInicio").ToDate().Year + Dim FechaPeriodo As String = GvRow.DataKey("Periodo") + + + + If Periodoingreso > PeriodoInicio Then anio = anio - 1 - End If - - - Dim FechaPeriodo As String = String.Format("{0:dd/MM}/{1}", fechaIngreso, anio) + End If + + + If File.Exists(RutaFormato) Then Dim objGemDocument As New clsGemBoxDocument(RutaFormato) @@ -6123,10 +6128,36 @@ Partial Class RH_Personal End If If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Or TxtFIAguinaldo.Text = "-1" Then TxtFIPrimaVacacional.Text = "25" - End If + End If + + + TxtFISalariodiarioImss.Text = TxtSalarioCotizado.Text TxtFactordeIntegracion.Text = "" - TxtFISalarioDiarioIntegrado.Text = "" + TxtFISalarioDiarioIntegrado.Text = "" + + + + Dim objRH As New ClsRH + + If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then + If objRH.DtResultados.Rows.Count > 0 Then + + If objRH.DtResultados.Rows.Count > 0 Then + TxtFIDiasVacaciones.Text = objRH.DtResultados(0)("Dias").ToString + Else + TxtFIDiasVacaciones.Text = "6" + End If + Else + + End If + End If + + objRH.Dispose() + + + + RegistraScript("$('#DmodalFactordeIntegraccion').modal()") UpFactordeintegracion.Update() End Sub diff --git a/RH/RepPersonalInconsistencias.aspx.vb b/RH/RepPersonalInconsistencias.aspx.vb index bf9d0b4e9..763ea5656 100644 --- a/RH/RepPersonalInconsistencias.aspx.vb +++ b/RH/RepPersonalInconsistencias.aspx.vb @@ -181,7 +181,7 @@ Partial Class RH_RepPersonalInconsistencias Dim ObjAF As New ClsAF() If ObjAF.GetLicenciasVencidas(-1, -1, UsuarioActual.CveEmpresa, Estatus:=1) Then - GvLicencias.DataSource = ObjAF.DtResultados + GvLicencias.DataSource = ObjAF.DtResultados.FiltraParametros("CveEstatusPersonal = 1") Else GvLicencias.DataSource = Nothing diff --git a/vwd.webinfo b/vwd.webinfo index 6a84ef014..4edae1c8c 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -80,6 +80,10 @@ + + + +