From ffe57750a3a2d613cb373fc4b32d0deab7c47fcc Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sun, 1 Aug 2021 17:08:42 -0700 Subject: [PATCH 1/5] --- Nomina/CatPeriodos.aspx | 32 ++++++++++++++++---------------- Nomina/Finiquito.aspx.cs | 2 +- Nomina/Nomina.aspx | 12 +++++++++++- Nomina/Nomina.aspx.cs | 4 +++- 4 files changed, 31 insertions(+), 19 deletions(-) diff --git a/Nomina/CatPeriodos.aspx b/Nomina/CatPeriodos.aspx index 32c32afea..909ba13a9 100644 --- a/Nomina/CatPeriodos.aspx +++ b/Nomina/CatPeriodos.aspx @@ -40,92 +40,92 @@ - - - - - - - - - - - - - - - <%----%> - <%-- --%> + <%----%> + <%-- --%> diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 39df74d49..034559fb4 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -1220,7 +1220,7 @@ public partial class Nomina_Finiquito : ClsPaginas if (continuar) { - dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0} AND Importe<>0", CvePersonal)); + dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0} AND (Importe<>0 OR Valor <>0)", CvePersonal)); foreach (DataRow rcon in dtconp.Rows) { diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 1f1a1c0d9..bbedacc2e 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -2257,7 +2257,17 @@ Tipo Periodo: - + +
+
Salario Diario
+
+ +
+
+
+ +
+
<%--
+ Tipo + Ej. + Mes + No. + Fecha Ini + Fecha Fin + Ini. Mes + Fin Mes + Ini. SS + Fin SS + Ini. Año + Fin Año + Calculado + Estatus Comandos
--%> diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index fc195f656..410b85081 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -4803,7 +4803,7 @@ public partial class Nomina_Nomina2 : ClsPaginas if (continuar) { - dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0} AND Importe<>0", CvePersonal)); + dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0} AND (Importe<>0 OR Valor <>0)", CvePersonal)); foreach (DataRow rcon in dtconp.Rows) { @@ -5001,6 +5001,7 @@ public partial class Nomina_Nomina2 : ClsPaginas protected void LnkSimulador_Click(object sender, EventArgs e) { GvConceptossimulador.DataSource = new DataTable(); + LblSalarioDiarioSimula.Text = ""; GvConceptossimulador.DataBind(); DdlTipoPeriodoSim.SelectedValue = "1"; RegistraScript("$('#DSimulador').modal()"); @@ -5215,6 +5216,7 @@ public partial class Nomina_Nomina2 : ClsPaginas lconc.Add(SubTotales); //lconc.Add(Totales); + LblSalarioDiarioSimula.Text = string.Format("${0:N4}", dtempleados.SUM("SalarioDiario", string.Format("CvePersonal = {0}", 1))); GvConceptossimulador.DataSource = lconc; GvConceptossimulador.DataBind(); } From 89be4d7606d98ca7f9df02800b49e82e8a45f05f Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 2 Aug 2021 16:08:54 -0700 Subject: [PATCH 2/5] Compras, mostrar ocultar columna IEPS, columna IPS con porcentaje. Efacturas error en ruta de xml --- Compras/Compras.aspx | 10 ++++----- Compras/Compras.aspx.vb | 46 ++++++++++++++++++++++++++++++++++----- Compras/eFacturas.aspx.vb | 2 +- 3 files changed, 47 insertions(+), 11 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 626eaac84..cb2793e61 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -682,7 +682,7 @@ P.U.  IVA  - % IEPS  + IEPS  Total 
¿No Deducible?  @@ -783,15 +783,15 @@ <%-- 8 --%> -
+
<%-- 9 --%> - + - - <%----%> +
+ diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index cc37d055e..b45976131 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1548,8 +1548,8 @@ Partial Class Compras_Compras End If - 'SE OCUPAN AFUERA DEL POSTBACK ?? - cargaddlVinculacionServcios() + 'SE OCUPAN AFUERA DEL POSTBACK ?? + cargaddlVinculacionServcios() If UsuarioActual.TienePermisoProceso(117) Then HplAddClasificacion.Visible = False @@ -1574,9 +1574,30 @@ Partial Class Compras_Compras End If + + + MostrarOcultarColumnaIEPS() + + End Sub #Region "C A R G A S" + + Private Sub MostrarOcultarColumnaIEPS() + + + If TxtIEPS.Text.ToDecimal <> 0 And TmpDT.SUM("IEPSPS") <> 0 Then + GvPS.Columns(9).Visible = True + TD_Gvps_IEPS.Visible = True + Else + GvPS.Columns(9).Visible = False + TD_Gvps_IEPS.Visible = False + End If + UpPS.Update() + + End Sub + + Private Sub CargaOrdenCorte() Dim ObjCGame As New ClsCGame() If ObjCGame.GetOrdenCorte(UsuarioActual.CveEmpresa) Then @@ -4361,8 +4382,6 @@ Partial Class Compras_Compras Exit Sub End If - - '------------------TERMINA VALIDACIONES------------------ 'si hay necesidad de actualizar el globaldtps @@ -8640,6 +8659,16 @@ Partial Class Compras_Compras End If + For Each dRow As DataRow In TmpDT.Rows + + If dRow("IEPSPSPorcentaje").ToString.ToDecimal > 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then + dRow("IEPSPSPorcentaje") = 0 + End If + + Next + + TmpDT.AcceptChanges() + End If @@ -18267,7 +18296,11 @@ Partial Class Compras_Compras End If UpPS.Update() - CargaGvPersonal() + CargaGvPersonal() + + MostrarOcultarColumnaIEPS() + + End Sub ''' ''' Regresa el INDEX del row que acaba de agregar en el TMPDT @@ -19772,6 +19805,9 @@ Partial Class Compras_Compras Alert("Debe seleccionar al menos un impuesto", TipoMensaje.MsgAdvertencia) End If + + MostrarOcultarColumnaIEPS() + End Sub #End Region diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 02c085bfd..f8f3c9304 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2787,7 +2787,7 @@ Partial Class Compras_eFacturas XMLNodosPagosModalCount = 0 Dim XMLDoc As New XmlDocument - Dim Archivo As String = String.Format("{0}Compras\{2}\{3}", UsuarioActual.Empresa.Ruta, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML")) + Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML")) If IO.File.Exists(Archivo) Then From cf6effbca0daabdef2b8b08faa1403d47ce48324 Mon Sep 17 00:00:00 2001 From: Hector Date: Mon, 2 Aug 2021 18:30:38 -0700 Subject: [PATCH 3/5] Validacion CvePSSat Cambio --- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 29 +++++++++++++++++++++++------ 2 files changed, 24 insertions(+), 7 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 626eaac84..56afdb93b 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1589,7 +1589,7 @@ + DataKeyNames="CantidadF,FolioREQ,CveProveedorSucursal,CveTipoPS,PS,CantidadPendienteVincular,IEPSPS,IVA,RetIVA,RetISR,Descuento,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,Cantidad,CveProveedorOC,Importe,CveSATPS"> diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index cc37d055e..33428a849 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1734,7 +1734,7 @@ Partial Class Compras_Compras Xml.Append(Replace(Replace(Replace(nodeconceptos.OuterXml, " dr("CveSATPS").ToString.ToEntero '[IPP] PROVISIONAL PARA TIPO GASTO If GlobalDTTiposGastos(UsuarioActual.CveEmpresa) IsNot Nothing AndAlso GlobalDTTiposGastos(UsuarioActual.CveEmpresa).Rows.Count = 1 Then Dim DrTipoGasto = GlobalDTTiposGastos(UsuarioActual.CveEmpresa).FiltroPrimero("") @@ -15959,7 +15965,7 @@ Partial Class Compras_Compras End If AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False, - CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CveSATPS:=CveSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto, CveContratoDetalle:=CveContratoDetalle, CveCultivoCuadroDetalle:=CveCultivoCuadroDetalle) + CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CveSATPS:=CveSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto, CveContratoDetalle:=CveContratoDetalle, CveCultivoCuadroDetalle:=CveCultivoCuadroDetalle, CveSATPSActualizado:=CveSATPSActualizado) 'CARGA PE Index = TmpDT.Rows.Count - 1 @@ -18277,7 +18283,7 @@ Partial Class Compras_Compras Obs As String, PU As Double, Total As Double, IVA As Double, RetIVA As Double, RetISR As Double, IEPSPS As Double, IEPSPSIVA As Double, Descuento As Double, Optional CveOrdenCompraDetalle As Integer = -1, Optional TCalculaTotales As Boolean = True, Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Double = 0, Optional CveSATPS As Integer = -1, Optional CargaXml As Boolean = False, Optional CveTipoGasto As Integer = -1, Optional TipoGasto As String = "", Optional PorcentajeIVA As Double = 0, - Optional PorcentajeIEPS As Double = 0, Optional PorcentajeRetIVA As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Integer + Optional PorcentajeIEPS As Double = 0, Optional PorcentajeRetIVA As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1, Optional CveSATPSActualizado As Boolean = False) As Integer Dim Row As DataRow = Nothing @@ -18332,6 +18338,13 @@ Partial Class Compras_Compras If DrPSSAT IsNot Nothing Then Row("SATClaveProductoServicio") = DrPSSAT("SATClaveProductoServicio").ToString Row("CveSATPS") = DrPSSAT("CveSATPS").ToString + If CveSATPSActualizado Then + Row("CveSATPSActualizado") = 1 + + Else + Row("CveSATPSActualizado") = 0 + + End If End If End If @@ -18492,6 +18505,7 @@ Partial Class Compras_Compras DrPS("CveTipoPS") = PSRow("CveTipoPS").ToString.ToEntero DrPS("CveSATPS") = PSRow("CveSATPS").ToString.ToEntero DrPS("SATClaveProductoServicio") = PSRow("SATClaveProductoServicio").ToString + DrPS("CveSATPSActualizado") = 0 'RESPETAR VALORES DE LA PANTALLA 'IVA = PSRow("IVA").ToString.ToDouble @@ -18774,6 +18788,7 @@ Partial Class Compras_Compras TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Obs") = TxtPSAlias.Text.Trim TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value + TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPSActualizado") = 0 'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE For Each drt As DataRow In TmpDT.Select($"PS ='{TxtPSAlias.Text.Trim}' and ISNULL(CvePS,0) = 0") @@ -18786,6 +18801,8 @@ Partial Class Compras_Compras drt("Obs") = TxtPSAlias.Text.Trim drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value + drt("CveSATPSActualizado") = 0 + Next TmpDT.AcceptChanges() From 5a14bab1366be295617829320c7edb2512808e6d Mon Sep 17 00:00:00 2001 From: Hector Date: Mon, 2 Aug 2021 18:30:52 -0700 Subject: [PATCH 4/5] parametros reporte --- .../72/Formatos/EntradaSalidaUniforme.rdlc | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/Empresas/72/Formatos/EntradaSalidaUniforme.rdlc b/Empresas/72/Formatos/EntradaSalidaUniforme.rdlc index 3fdc46e22..0b146ba17 100644 --- a/Empresas/72/Formatos/EntradaSalidaUniforme.rdlc +++ b/Empresas/72/Formatos/EntradaSalidaUniforme.rdlc @@ -1280,6 +1280,24 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + String true From 5ce7b45a77d7e925dcf09cf64fa53d02c56a16f3 Mon Sep 17 00:00:00 2001 From: Hector Date: Mon, 2 Aug 2021 18:31:09 -0700 Subject: [PATCH 5/5] cambios en columnas --- Inventarios/InventarioFisicoDetalle.aspx | 9 ++++++++- Inventarios/InventarioFisicoDetalle.aspx.vb | 8 +++++++- 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx index 4a530b714..f657197fb 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx +++ b/Inventarios/InventarioFisicoDetalle.aspx @@ -344,7 +344,12 @@
- + + + + + + @@ -353,6 +358,8 @@ + +
diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb index 49dd744fb..1c33c5e3a 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx.vb +++ b/Inventarios/InventarioFisicoDetalle.aspx.vb @@ -252,7 +252,13 @@ Partial Class Inventarios_InventarioFisicoDetalle GvIFDUltimoRegistrado.Columns(4).Visible = ObjInventario.DtResultados.Rows(0)("CveSeccionAlmacen").ToString.ToEntero > 0 GvIFDUltimoRegistrado.Columns(6).Visible = ObjInventario.DtResultados.Rows(0)("Lote").ToString <> "" - GvIFDUltimoRegistrado.Columns(7).Visible = ObjInventario.DtResultados.Rows(0)("FechaCaducidad").ToString.ToDate > MinFecha + GvIFDUltimoRegistrado.Columns(7).Visible = ObjInventario.DtResultados.Rows(0)("FechaCaducidad").ToString.ToDate > MinFecha + + + GvIFDUltimoRegistrado.Columns(1).Visible = ObjInventario.DtResultados.MAX("CodigoBarras") <> "" + GvIFDUltimoRegistrado.Columns(5).Visible = ObjInventario.DtResultados.MAX("SerieLote") <> "" + GvIFDUltimoRegistrado.Columns(9).Visible = ObjInventario.DtResultados.MAX("MalEstado", "MalEstado IS NOT NULL").ToEntero > 0 + GvIFDUltimoRegistrado.Columns(10).Visible = ObjInventario.DtResultados.MAX("NoVendible", "NoVendible IS NOT NULL").ToEntero > 0 Else GvIFDUltimoRegistrado.DataSource = Nothing End If