diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index ecfa7bf4b..a9acdcb77 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 --%> - + - - <%----%> +
+ @@ -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 c3a49a3d0..97cbb3328 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 @@ -1734,7 +1755,7 @@ Partial Class Compras_Compras Xml.Append(Replace(Replace(Replace(nodeconceptos.OuterXml, " 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then + dRow("IEPSPSPorcentaje") = 0 + End If + + Next + + TmpDT.AcceptChanges() + End If @@ -11437,6 +11469,8 @@ Partial Class Compras_Compras TmpDT.Columns.Add("SATClaveProductoServicio", GetType(String)) TmpDT.Columns.Add("CveUnidadMedidaSAT", GetType(Integer)) TmpDT.Columns.Add("SATClaveUnidadMedida", GetType(String)) + TmpDT.Columns.Add("CveSATPSActualizado", GetType(Integer)) + 'Tipo de Gasto TmpDT.Columns.Add("CveTipoGasto", GetType(Integer)) @@ -11549,6 +11583,7 @@ Partial Class Compras_Compras TmpDTOriginal.Columns.Add("SATClaveProductoServicio", GetType(String)) TmpDTOriginal.Columns.Add("CveUnidadMedidaSAT", GetType(Integer)) TmpDTOriginal.Columns.Add("SATClaveUnidadMedida", GetType(String)) + TmpDTOriginal.Columns.Add("CveSATPSActualizado", GetType(Integer)) 'Tipo de Gasto TmpDTOriginal.Columns.Add("CveTipoGasto", GetType(Integer)) @@ -15948,7 +15983,7 @@ Partial Class Compras_Compras Dim TipoGasto As String = dr("TipoGasto").ToString Dim CveContratoDetalle As Integer = dr("CveContratoDetalle").ToString.ToEntero Dim CveCultivoCuadroDetalle As Integer = dr("CveCultivoCuadroDetalle").ToString.ToEntero - + Dim CveSATPSActualizado As Boolean = gvr.FCDropDownLost("DdlSATPS").SelectedValue.ToEntero <> 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 +15994,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 @@ -18267,7 +18302,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 @@ -18277,7 +18316,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 +18371,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 +18538,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 +18821,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 +18834,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() @@ -19772,6 +19822,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 9b4d611c9..2954608e2 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2788,7 +2788,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 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 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 diff --git a/Nomina/CatPeriodos.aspx b/Nomina/CatPeriodos.aspx index c050b0b4b..a0c2c4956 100644 --- a/Nomina/CatPeriodos.aspx +++ b/Nomina/CatPeriodos.aspx @@ -98,92 +98,92 @@ - - - - - - - - - - - - - - - <%----%> - <%-- --%> + <%----%> + <%-- --%> diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index fb3677356..eae100f6b 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 5dc327da1..f5e48e16c 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -4802,7 +4802,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) { @@ -5000,6 +5000,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()"); @@ -5214,6 +5215,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(); }