diff --git a/App_Code/BundleConfig.vb b/App_Code/BundleConfig.vb index 540abb2ea..1ab0657f9 100644 --- a/App_Code/BundleConfig.vb +++ b/App_Code/BundleConfig.vb @@ -7,7 +7,7 @@ Public Class BundleConfig bundles.Add(New ScriptBundle("~/bundles/jquery").Include( "~/Metronic/assets/global/plugins/jquery.min.js" )) - ScriptManager.ScriptResourceMapping.AddDefinition("jquery", Nothing, New ScriptResourceDefinition with {.Path = "~/bundles/jquery"}) + ScriptManager.ScriptResourceMapping.AddDefinition("jquery", Nothing, New ScriptResourceDefinition With {.Path = "~/bundles/jquery"}) @@ -170,7 +170,7 @@ Public Class BundleConfig "~/Scripts/WebForms/TreeView.js", "~/Scripts/WebForms/WebParts.js")) - ScriptManager.ScriptResourceMapping.AddDefinition("WebFormsBundle", new ScriptResourceDefinition With {.Path = "~/bundles/WebFormsJs"}) + ScriptManager.ScriptResourceMapping.AddDefinition("WebFormsBundle", New ScriptResourceDefinition With {.Path = "~/bundles/WebFormsJs"}) ' Order is very important for these files to work, they have explicit dependencies bundles.Add(New ScriptBundle("~/bundles/MsAjaxJs").Include( diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index ab193393f..b4d3bd9eb 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1509,7 +1509,7 @@ Public Class ClsNominas EsRetencion As Boolean, CveClasificacion As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, CveCuentaB As Integer, - CveConceptoContablePasivo As Integer, Optional AplicaEfectivale As Integer = 0, Optional EsFormula As Integer = -1) As Integer + CveConceptoContablePasivo As Integer, Optional AplicaEfectivale As Integer = 0, Optional EsFormula As Integer = -1, Optional AplicaArt174 As Integer = 0) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Nom_ConceptosAdd") @@ -1544,6 +1544,7 @@ Public Class ClsNominas .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB .Add("CveConceptoContablePasivo", SqlDbType.Int).Value = CveConceptoContablePasivo .Add("AplicaEfectivale", SqlDbType.Int).Value = AplicaEfectivale + .Add("AplicaArt174", SqlDbType.Int).Value = AplicaArt174 End With @@ -1571,7 +1572,7 @@ Public Class ClsNominas EsRetencion As Boolean, CveClasificacion As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, CveCuenta As Integer, AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer, CveUsuario As Integer, ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, CveCuentaB As Integer, - CveConceptoContablePasivo As Integer, Optional AplicaEfectivale As Integer = 0, Optional EsFormula As Integer = -1) As Boolean + CveConceptoContablePasivo As Integer, Optional AplicaEfectivale As Integer = 0, Optional EsFormula As Integer = -1, Optional AplicaArt174 As Integer = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_ConceptosUpdate") @@ -1606,6 +1607,7 @@ Public Class ClsNominas .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB .Add("CveConceptoContablePasivo", SqlDbType.Int).Value = CveConceptoContablePasivo .Add("AplicaEfectivale", SqlDbType.Int).Value = AplicaEfectivale + .Add("AplicaArt174", SqlDbType.Int).Value = AplicaArt174 End With Try diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index e7b81ca0c..dc09b7dbc 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1726,6 +1726,57 @@ Public Class ClsOC Return Retorno End Function + Public Function GetOrdenesCompraCompradosRecibidosRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, FechaInicio As Date, + FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, + CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", + Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1, + Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1, + Optional MetodoPago As Integer = -1, Optional Serie As String = "-1", Optional TieneAnticipo As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraCompradosRecibidosRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Tipo", SqlDbType.VarChar).Value = Tipo + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveUsuarioRegistro", SqlDbType.Int).Value = CveUsuarioRegistro + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Folio", SqlDbType.Int).Value = Folio + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@PendientePorSurtir", SqlDbType.Bit).Value = PendientePorSurtir + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso + .Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo + .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado + .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta + .Add("@TopSelect", SqlDbType.Int).Value = TopSelect + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@TieneAnticipo", SqlDbType.Int).Value = TieneAnticipo + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener Ordenes de Compras Comprados Recividos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetOrdenesCompraRepReqXOC(Folio As Integer, FechaInicio As String, FechaFin As String, CveProveedor As Integer, CveVendedor As Integer, CveCliente As Integer, CveEmpresa As Integer, Grupo As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd index d3f670d1b..2ca976f84 100644 --- a/App_Code/DtDatos.xsd +++ b/App_Code/DtDatos.xsd @@ -308,10 +308,12 @@ - - - - + + + + + + diff --git a/App_Code/DtDatos.xss b/App_Code/DtDatos.xss index af01e0090..22cad2737 100644 --- a/App_Code/DtDatos.xss +++ b/App_Code/DtDatos.xss @@ -4,7 +4,7 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index c11961c9a..8308bc5b0 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -271,6 +271,11 @@ Partial Class Bancos_DepositosCaja TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA End If + 'SI NO SE ESPECIFICO POR FACTURA PROBAR POR LOS OTROS MEDIOS + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso TotalImportePrePoliza = 0 Then + TotalImportePrePoliza = TotalImporte + End If + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso TotalImportePrePoliza = 0 Then Alert("No se ha especificado un importe a depositar.", TipoMensaje.MsgAdvertencia) Exit Sub diff --git a/Contabilidad/RepBalanceGeneral.aspx.vb b/Contabilidad/RepBalanceGeneral.aspx.vb index 89393e737..f40ebe5b0 100644 --- a/Contabilidad/RepBalanceGeneral.aspx.vb +++ b/Contabilidad/RepBalanceGeneral.aspx.vb @@ -554,6 +554,7 @@ Partial Class Contabilidad_RepBalanceGeneral End Sub Protected Sub GvPatrimonio_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then TotalPatrimonioActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble @@ -585,6 +586,7 @@ Partial Class Contabilidad_RepBalanceGeneral End If End If + End Sub #End Region diff --git a/Contabilidad/RepEstadoActividades.aspx.vb b/Contabilidad/RepEstadoActividades.aspx.vb index 1c403019b..4f66e11eb 100644 --- a/Contabilidad/RepEstadoActividades.aspx.vb +++ b/Contabilidad/RepEstadoActividades.aspx.vb @@ -165,8 +165,8 @@ Partial Class AC_RepEstadoActividades End Sub Private Sub CargaGrids() - DtIngresos = DtDatos.FiltraParametros("Tipo ='H' ") - DtGastos = DtDatos.FiltraParametros("Tipo ='G' ") + DtIngresos = DtDatos.FiltraParametros("(Tipo ='H' OR Codigo like '4020%') AND NOT(Codigo like '5030%' OR Codigo like '7020%') ") + DtGastos = DtDatos.FiltraParametros("(Tipo ='G' AND Codigo NOT like '4020%') OR (Codigo like '5030%' OR Codigo like '7020%') ") Dim Row As DataRow = DtIngresos.NewRow diff --git a/Contabilidad/RepEstadoResultados.aspx.vb b/Contabilidad/RepEstadoResultados.aspx.vb index 7427ce343..777914fe3 100644 --- a/Contabilidad/RepEstadoResultados.aspx.vb +++ b/Contabilidad/RepEstadoResultados.aspx.vb @@ -2,7 +2,6 @@ Option Strict On Imports System.Data -Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Contabilidad2_RepEstadoResultados Inherits ClsPaginas @@ -192,8 +191,8 @@ Partial Class Contabilidad2_RepEstadoResultados End Sub Private Sub CargaGrids() - DtIngresos = DtDatos.FiltraParametros("Orden Like '0004%' OR Tipo = 'H'") - DtGastos = DtDatos.FiltraParametros("Orden Like '0005%' OR Tipo = 'G'") + DtIngresos = DtDatos.FiltraParametros("Orden Like '0004%' OR Tipo = 'H' OR Codigo like '4020%' ") + DtGastos = DtDatos.FiltraParametros("Orden Like '0005%' OR Tipo = 'G' OR (Codigo like '5030%' OR Codigo like '7020%') ") Dim Row As DataRow = DtIngresos.NewRow diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt index 5a2d0b240..d8c974391 100644 Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt index 1a6b0df11..88e459246 100644 Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt differ diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt index 1101f58c1..222dd1c43 100644 Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt differ diff --git a/General/Dashboard.aspx b/General/Dashboard.aspx index 7f2ab1c75..213c8a410 100644 --- a/General/Dashboard.aspx +++ b/General/Dashboard.aspx @@ -813,6 +813,16 @@ /*---------------------------------------- ANCHO DE COLUMNAS DE IMPORTES (AÑO, MES, ETC) -----------------------------------------*/ + + /* Ancho libre para primeras columnas (Sucursal, Vendedor, etc.) */ + .custom-grid td:first-child, + .custom-grid th:first-child { + width: auto !important; + min-width: auto !important; + max-width: none !important; + + } + .custom-grid td:nth-child(2), .custom-grid td:nth-child(3), .custom-grid td:nth-child(4), @@ -830,7 +840,6 @@ .custom-grid th:nth-child(4), .custom-grid th:nth-child(5) { text-align: center !important; - } /* Asegurar ancho libre para primera columna */ diff --git a/Nomina/ConceptoNomina.aspx b/Nomina/ConceptoNomina.aspx index 5ba8b412b..60b6dd945 100644 --- a/Nomina/ConceptoNomina.aspx +++ b/Nomina/ConceptoNomina.aspx @@ -441,6 +441,10 @@
+ +
+ +
diff --git a/Nomina/ConceptoNomina.aspx.cs b/Nomina/ConceptoNomina.aspx.cs index 53608c96c..74f47d22e 100644 --- a/Nomina/ConceptoNomina.aspx.cs +++ b/Nomina/ConceptoNomina.aspx.cs @@ -370,6 +370,8 @@ public partial class Nomina_CatConcepto : ClsPaginas int IdCtaContableB = (DdlCtaContableB.DataValueField == "Id" ? DdlCtaContableB.SelectedValue.ToEntero() : 0); int CveCuentaB = (DdlCtaContableB.DataValueField == "Id" ? 0 : DdlCtaContableB.SelectedValue.ToEntero()); int AplicaEfectivale = chkAplicaEfectivale.Checked ? 1 : 0; + int AplicaArt174 = chkAplicaArt174.Checked ? 1 : 0; + int EsFormula = ChkEsFormula.Checked ? 1 : 0; ClsNominas ObjNomina = new ClsNominas(); ObjNomina.IniciaTransacSQL(); @@ -380,7 +382,7 @@ public partial class Nomina_CatConcepto : ClsPaginas { TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion, CveTipoGasto, tipoCalculo, CveConceptoContable, CveCuenta, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, - ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, CveCuentaB, CveConceptoContablePasivo, AplicaEfectivale, EsFormula); + ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, CveCuentaB, CveConceptoContablePasivo, AplicaEfectivale, EsFormula, AplicaArt174); if (!TieneError) { @@ -412,7 +414,7 @@ public partial class Nomina_CatConcepto : ClsPaginas { CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, retencion, CveClasificacion, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto, - ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, CveCuentaB, CveConceptoContablePasivo, AplicaEfectivale, EsFormula); + ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, CveCuentaB, CveConceptoContablePasivo, AplicaEfectivale, EsFormula, AplicaArt174); @@ -513,6 +515,7 @@ public partial class Nomina_CatConcepto : ClsPaginas ChkSistema.Checked = drow["Sistema"].Equals("Sí"); ChkAutomaticoLiquidacion.Checked = drow["AplicaFiniquito"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); chkAplicaEfectivale.Checked = drow["AplicaEfectivale"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); + chkAplicaArt174.Checked = drow["AplicaArt174"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkContabiliza.Checked = drow["Contabiliza"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); chkCtaImporteNegativoProv.Checked = drow["CtaImporteNegativoProv"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkAutomaticoGlobal.Checked = drow["AutomaticoGlobal"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); @@ -686,5 +689,9 @@ public partial class Nomina_CatConcepto : ClsPaginas protected void chkAplicaEfectivale_CheckedChanged(object sender, EventArgs e) { + } + protected void chkAplicaArt174_CheckedChanged(object sender, EventArgs e) + { + } } \ No newline at end of file diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 91625264d..8ea08208b 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -588,7 +588,7 @@ public partial class Nomina_Nomina2 : ClsPaginas DdlTipoPeriodo.SelectedIndex = 0; } } - private void cargaPeriodos(int tipo =0) + private void cargaPeriodos(int tipo = 0) { int tipoPeriodo = DdlTipoPeriodo.SelectedValue.ToEntero(); int ejercicio = DdlEjercicios.SelectedValue.ToEntero(); @@ -611,7 +611,7 @@ public partial class Nomina_Nomina2 : ClsPaginas DdlPeriodo.DataSource = dtPeriodos; DdlPeriodo.DataBind(); DdlPeriodo.Items.Insert(0, new ListItem("Seleccione", "-1")); - if(tipo==1 && dtPeriodos.Rows.Count > 0) + if (tipo == 1 && dtPeriodos.Rows.Count > 0) { DdlPeriodo.SelectedValue = dtPeriodos.Rows[0]["CvePeriodo"].ToString(); } @@ -4947,6 +4947,10 @@ public partial class Nomina_Nomina2 : ClsPaginas } #endregion + const string COL_SUELDO_MENSUAL = "Sueldo Mensual"; + const string COL_SUELDO_DIARIO = "Sueldo diario"; + const string COL_DIAS_PEN_PAGO = "Dias Pen Pago"; + const string INCAPACIDAD_PERM_FALTAS = "Incapacidad Permisos Faltas"; protected void LnkPersonalizarNomina_Click(object sender, EventArgs e) { @@ -4960,9 +4964,9 @@ public partial class Nomina_Nomina2 : ClsPaginas { addcoltopersonalizar("Codigo", "0", "Codigo", ""); addcoltopersonalizar("Nombre", "0", "Empleado", ""); - addcoltopersonalizar("Sueldo Mensual", "0", "", ""); - addcoltopersonalizar("Sueldo diario", "0", "", ""); - addcoltopersonalizar("Dias Pen Pago", "0", "", ""); + addcoltopersonalizar(COL_SUELDO_MENSUAL, "0", "0", ""); + addcoltopersonalizar(COL_SUELDO_DIARIO, "0", "0", ""); + //addcoltopersonalizar(COL_DIAS_PEN_PAGO, "0", "0", ""); int pos = 4; foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' ").Rows) @@ -4975,7 +4979,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } //addcoltopersonalizar("Percepciones", "1", "Percepciones", ""); - addcoltopersonalizar("Incapacidad Permisos Faltas", "0", "", ""); + addcoltopersonalizar(INCAPACIDAD_PERM_FALTAS, "0", "0", ""); foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND EsFormula =0").Rows)// @@ -5127,11 +5131,20 @@ public partial class Nomina_Nomina2 : ClsPaginas ClosedXML.Excel.XLColor colororange = ClosedXML.Excel.XLColor.FromArgb(247, 150, 70); ClosedXML.Excel.XLColor colororangeblue = ClosedXML.Excel.XLColor.FromArgb(79, 129, 189); ClosedXML.Excel.IXLCell celda; + DataRow dtzrow = this.dtConceptos.FiltroPrimero("Codigo='D200'"); + string conceptoincpermfaltas = ""; + if (dtzrow != null) + { + conceptoincpermfaltas = string.Format("V_{0}", dtzrow["CveConcepto"]); + + + } DataTable dtConceptos = this.dtConceptos.FiltraParametros(""); DataTable dtFiltrado = dtConceptos.Clone(); // Clonar la estructura del DataTable bool colSueldoMensual = false; bool colSueldoDiario = false; bool coDiasPenPagol = false; + bool coIncPermFaltas = false; foreach (GridViewRow row in GvPersonalizarExcel.Rows) { @@ -5139,9 +5152,11 @@ public partial class Nomina_Nomina2 : ClsPaginas string columnaDB = row.DataKey("ColumnaDB").Replace("[", "").Replace("]", ""); // Suponiendo que la columna "ColumnaDB" está en la segunda celda (index 1) if (columnaDB == "0") { - if (columna == "Sueldo Mensual") { colSueldoMensual = true; } - if (columna == "Sueldo diario") { colSueldoDiario = true; } - if (columna == "Dias Pen Pago") { coDiasPenPagol = true; } + if (columna == COL_SUELDO_MENSUAL) { colSueldoMensual = true; } + if (columna == COL_SUELDO_DIARIO) { colSueldoDiario = true; } + if (columna == COL_DIAS_PEN_PAGO) { coDiasPenPagol = true; } + if (columna == INCAPACIDAD_PERM_FALTAS) { coIncPermFaltas = true; } + } string tipoDB = row.DataKey("TipoDB"); // Suponiendo que la columna "TipoDB" está en la cuarta celda (index 3) @@ -5194,7 +5209,7 @@ public partial class Nomina_Nomina2 : ClsPaginas Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor); libro.Column(column).Width = 15; } - if (colSueldoDiario) + if (coDiasPenPagol) { column++; Titlecell(libro, "dias Pen", filainicio + 2, column, true, false, PercborderColor); @@ -5237,10 +5252,13 @@ public partial class Nomina_Nomina2 : ClsPaginas iniciotipe = column; int finPercepciones = iniciotipe; + if (coIncPermFaltas) + { - column++; - TitleRange(libro, "Incapacidad", filainicio + 2, column, filainicio + 2, column, false, false, PercborderColor); - TitleRange(libro, "Perm. Faltas", filainicio + 3, column, filainicio + 3, column, false, false, PercborderColor); + column++; + TitleRange(libro, "Incapacidad", filainicio + 2, column, filainicio + 2, column, false, false, PercborderColor); + TitleRange(libro, "Perm. Faltas", filainicio + 3, column, filainicio + 3, column, false, false, PercborderColor); + } //column++; //TitleRange(libro, "Permisos", filainicio + 3, column, filainicio + 3, column, false, false, colororangeblue); @@ -5392,31 +5410,31 @@ public partial class Nomina_Nomina2 : ClsPaginas } oldsubproyecto = subproyecto; libro.Cell(Fila, column).Value = erow["Nombre"]; - - if (colSueldoMensual) - { - column++; - libro.Cell(Fila, column).Value = ""; - try - { - libro.Cell(Fila, column).Value = erow[string.Format("V_{0}", 6817)]; - libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; - } - catch (Exception) { } - } - if (colSueldoDiario) - { - column++; - libro.Cell(Fila, column).Value = erow["SalarioDiario"]; - libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; + if (colSueldoMensual) + { + column++; + libro.Cell(Fila, column).Value = ""; + try + { + libro.Cell(Fila, column).Value = erow[string.Format("V_{0}", 6817)]; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; + } + catch (Exception) { } + } + if (colSueldoDiario) + { + + column++; + libro.Cell(Fila, column).Value = erow["SalarioDiario"]; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; } if (coDiasPenPagol) { column++; - libro.Cell(Fila, column).Value = ""; - } - if (dtConceptos.FiltraParametros("Tipo ='P'").Rows.Count > 0) + libro.Cell(Fila, column).Value = ""; + } + if (dtConceptos.FiltraParametros("Tipo ='P'").Rows.Count > 0) { foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' ").Rows) { @@ -5453,10 +5471,28 @@ public partial class Nomina_Nomina2 : ClsPaginas } - //column++; - //Titlecell(libro, erow["DiasIncapacidad"], Fila, column, false, false, dedcborderColor); - column++; - Titlecell(libro, "", Fila, column, false, false, PercborderColor); + if (coIncPermFaltas) + { + + column++; + string valuex = ""; + if (conceptoincpermfaltas.Length > 0) + { + valuex = erow[conceptoincpermfaltas].ToString(); + if (newsubproyecto) + { + string valuez = dtempleados.SUM(conceptoincpermfaltas, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)).ToString(); + libro.Cell(Fila - 2, column).Style.Fill.SetBackgroundColor(colorperp); + Titlecell(libro, "", Fila - 2, column, false, false, PercborderColor); + libro.Cell(Fila - 3, column).Style.Fill.SetBackgroundColor(colorperp); + libro.Cell(Fila - 3, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Cell(Fila - 3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;"; + Titlecell(libro, valuez, Fila - 3, column, true, true, PercborderColor); + //libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); + } + } + Titlecell(libro, valuex, Fila, column, false, false, PercborderColor); + } //column++; //Titlecell(libro, erow["DiasFaltados"], Fila, column, false, false, dedcborderColor); diff --git a/Nomina/RobloxPlayerInstaller.exe b/Nomina/RobloxPlayerInstaller.exe deleted file mode 100644 index 6b1bdbf06..000000000 Binary files a/Nomina/RobloxPlayerInstaller.exe and /dev/null differ diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 5d48cdaf7..d96ab1520 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -294,9 +294,15 @@
+ + +
+
+ + - +
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index 3c26e13b2..8aea87ede 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -398,6 +398,7 @@ Partial Class RepOC If UsuarioActual.TienePermisoProceso(227) Then DivIndicadores.Visible = True DivIndicadores.InnerHtml = String.Empty + Dim Cantidad As Integer = DtOC.COUNT("CveOrdenCompra") Dim TotalPesos As Double = DtOC.SUM("Total", "CveMoneda = 1") Dim TotalDolares As Double = DtOC.SUM("Total", "CveMoneda = 2") @@ -405,6 +406,7 @@ Partial Class RepOC MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares") UPPIndicador.Update() + End If If DtOC IsNot Nothing AndAlso DtOC.Rows.Count > 0 Then @@ -432,6 +434,37 @@ Partial Class RepOC GvConsultar.Columns(15).Visible = False End If + + If UsuarioActual.TienePermisoProceso(227) And UsuarioActual.CveRol = 1 Then + + DivIndicadoresCompradoRecibido.Visible = True + DivIndicadoresCompradoRecibido.InnerHtml = String.Empty + + + If OC.GetOrdenesCompraCompradosRecibidosRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, + DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, + UsuarioActual.CveUsuario, UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), False, + ddlclientes.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), + CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(), + CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero, TieneAnticipo:=DdlTieneAnticipo.SelectedValue.ToEntero) Then + + Dim Recibidos As Decimal = 0D + Dim Comprados As Decimal = 0D + + If OC.DtResultados.Rows.Count > 0 Then + Recibidos = OC.DtResultados.Rows(0)("Comprado").ToString.ToDecimal + Comprados = OC.DtResultados.Rows(0)("Recibido").ToString.ToDecimal + End If + + MuestraIndicadorCompradoRecibido(DivIndicadoresCompradoRecibido, "blue", "fa fa-truck", "Almacén", Recibidos.ToString("###,###,###.00"), "Comprados", "", "Recibidos", Comprados.ToString("###,###,###.00"), "") + + End If + + UPPIndicadorCompradoRecibido.Update() + + + End If + End If OC.Dispose() GvConsultar.DataBind() @@ -638,6 +671,7 @@ Partial Class RepOC #End Region #Region "Indicadores" + Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CT1 As String, C2 As String, CT2 As String, C3 As String, CT3 As String, C4 As String, CT4 As String) Dim htmldiv As New StringBuilder htmldiv.AppendFormat("{0}
", DIV.InnerHtml, Color, Icono) @@ -648,6 +682,24 @@ Partial Class RepOC htmldiv.AppendFormat("
") DIV.InnerHtml = htmldiv.ToString End Sub + + Private Sub MuestraIndicadorCompradoRecibido(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CT1 As String, C2 As String, CT2 As String, C3 As String, CT3 As String) + Dim htmldiv As New StringBuilder + htmldiv.AppendFormat("{0}
", DIV.InnerHtml, Color, Icono) + htmldiv.AppendFormat("
{0}
", Titulo) + + htmldiv.AppendFormat("", "", "") + htmldiv.AppendFormat("", CT1, C1) + htmldiv.AppendFormat("", "", "") + htmldiv.AppendFormat("", CT2, C2) + htmldiv.AppendFormat("", "", "") + htmldiv.AppendFormat("", CT3, C3) + 'htmldiv.AppendFormat("", CT4, C4) + htmldiv.AppendFormat("
") + DIV.InnerHtml = htmldiv.ToString + End Sub + + #End Region End Class diff --git a/OP/OP.aspx b/OP/OP.aspx index 82f0c1184..dfdc3300f 100644 --- a/OP/OP.aspx +++ b/OP/OP.aspx @@ -309,6 +309,19 @@ background: #f8f9fa; cursor: pointer; } + /* Alinear celda y contenido a la derecha */ +.celda-derecha { + text-align: right !important; + +} + +.txt-merma { + /* Ancho reducido al 50% */ + margin-left: 30px !important; /* Mueve el TextBox a la derecha dentro de la celda */ + display: block !important; /* Permite que margin-left:auto funcione */ + /* Alinea el texto interno a la derecha */ +} + @@ -338,7 +351,7 @@
-
+
-
- -
-
-
-
-
- - - -
- -
- - - -
- -
-
-
-
-
-
- - - - -
-
-
- - - -
-
-
- - - - - -
-
+ +
-
- + + +
+ + + +
-
-
- - - - + + + + + + +
+
+
+
+ + + +
+
+
+
+
+ + + +
+ +
+ + + +
+
- - - - - -
+ + + +
+
+
+ + + +
+
+
- +
@@ -437,23 +447,17 @@
- - + +
-
- +
@@ -466,13 +470,15 @@
- +
+
+
+ + + +
+
+ + - -
- -
+ -
-
- -
-
- -
-
- -
-
+ + +
+
+ +