diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 12d2a0ae5..1be72d541 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6990,7 +6990,7 @@ Public Class ClsPaginas Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(Vta.DtNCVinculadas IsNot Nothing, Vta.DtNCVinculadas, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte lrds.Add(rds5) - If UsuarioActual.CveEmpresa = 141 AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then + If UsuarioActual.CveEmpresa.Contiene(141, 152) AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then params.Add(New ReportParameter("Kilometraje", Vta.Kilometraje.ToString)) End If 'Imprime los parametros @@ -8137,7 +8137,7 @@ Public Class ClsPaginas Case 1 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False - If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro Costo" + If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo" Case 2 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 7e1ee24e2..bf13b3e27 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1956,14 +1956,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpdateSalarioImss(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiarioSS As Double) As Boolean + Public Function UpdateSalariointegrado(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean Dim Retorno As Boolean = False - SqlDataAdapter("PA_RH_PersonalUpdateSalarioImss") + SqlDataAdapter("PA_RH_PersonalUpdateSalarioIntegrado") With SqlAdapter.SelectCommand.Parameters .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@SDI", SqlDbType.Money).Value = SDI - .Add("@SalarioDiarioSS", SqlDbType.Money).Value = SalarioDiarioSS + .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario End With Try SqlAdapter.Fill(Data) diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index 887e726ba..e76a349bd 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -52,7 +52,7 @@ Personalizar - + @@ -72,7 +72,8 @@
- SubProyecto + + <%--SubProyecto--%>
@@ -160,7 +161,7 @@ - + @@ -187,7 +188,7 @@ - + @@ -196,7 +197,7 @@ - + @@ -298,7 +299,7 @@ Detalles del Corte - + @@ -306,15 +307,15 @@ - SerieFolio + Serie - Folio - + - + diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 6bd36841f..df363cc2c 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -61,9 +61,7 @@ Partial Class Bancos_RepCortes txtFechaVI.Text = Now.ToShortDateString txtFechaVF.Text = Now.ToShortDateString Me.Form.DefaultButton = BtnConsultar.UniqueID - DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) - DdlSubProyectos.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) + CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) End If End Sub diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 0f88f211d..9fd43424e 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -518,7 +518,7 @@ Partial Class PopUpVerFactura End If ObjVenta.Dispose() ObjPuntoVenta.Dispose() - Dim FechaCorte As String = $" Fecha Corte: {Fecha}" + Dim FechaCorte As String = $" Fecha fin: {Fecha}" Dim Usuario As String = $" Usuario: {Nombre}" If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 64f2539fc..ca6f81eb7 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -572,6 +572,7 @@ + <%----%> @@ -625,6 +626,7 @@ + <%----%> @@ -687,6 +689,7 @@ + diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index de684a52b..6a3715717 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -83,6 +83,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal ViewState("listacolores") = value End Set End Property + Private Property listaCampos As List(Of String()) Get Return DirectCast(ViewState("listaCampos"), List(Of String())) @@ -91,6 +92,30 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal ViewState("listaCampos") = value End Set End Property + Private Property listaCamposanios As List(Of String()) + Get + Return DirectCast(ViewState("listaCamposanios"), List(Of String())) + End Get + Set(value As List(Of String())) + ViewState("listaCamposanios") = value + End Set + End Property + Private Property listaCamposaniosGastos As List(Of String()) + Get + Return DirectCast(ViewState("listaCamposaniosGastos"), List(Of String())) + End Get + Set(value As List(Of String())) + ViewState("listaCamposaniosGastos") = value + End Set + End Property + Private Property listaCamposaniosTotal As List(Of String()) + Get + Return DirectCast(ViewState("listaCamposaniosTotal"), List(Of String())) + End Get + Set(value As List(Of String())) + ViewState("listaCamposaniosTotal") = value + End Set + End Property 'Private Property ReporteComplementario As Boolean ' Get @@ -287,6 +312,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If Not Page.IsPostBack Then listacolores = New List(Of String) listaCampos = New List(Of String()) + listaCamposanios = New List(Of String()) + listaCamposaniosGastos = New List(Of String()) + listaCamposaniosTotal = New List(Of String()) listacolores.Add("#FF0F00") listacolores.Add("#FF6600") listacolores.Add("#F8FF01") @@ -306,7 +334,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal CargaEjercicios() CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto) - TabSubProyecto.HeaderText = LblSubProyecto.Text & " H." + TabSubProyecto.HeaderText = LblSubProyecto.Text & " " @@ -1180,7 +1208,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal GvGastosAnualH.Columns(IDX_LIMPIAR).Visible = False GvTotalesAnualH.Columns(IDX_LIMPIAR).Visible = False Next - + listaCamposanios.Clear() + listaCamposaniosGastos.Clear() + listaCamposaniosTotal.Clear() If DtIngresosAnualH.Rows.Count > 0 Then @@ -1197,6 +1227,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName + listaCamposanios.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()}) + + listaCamposaniosTotal.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()}) 'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName 'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName GvIngresosAnualH.Columns(IndexGv).Visible = True @@ -1276,6 +1309,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName + listaCamposaniosGastos.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()}) + 'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFields = {"CveCuenta", "FechaInicial", "FechaFActual", "CveSubProyecto"} 'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFormatString = "/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" @@ -1360,10 +1395,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - - + setgraficaCCAnual(e, listaCamposanios) If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble @@ -1425,6 +1458,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Protected Sub GvGastosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then + setgraficaCCAnual(e, listaCamposaniosGastos) If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble @@ -1485,12 +1519,24 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If If e.Row.RowType = DataControlRowType.DataRow Then - + setgraficaCCAnual(e, listaCamposaniosTotal) e.Row.Attributes.Add("style", "Font-weight: bold") End If End Sub + Public Sub setgraficaCCAnual(e As GridViewRowEventArgs, listaCampos As List(Of String())) + Dim lista As New List(Of Object) + Dim colorindex As Integer = 0 + For Each campo As String() In listaCampos + lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)}) + colorindex = colorindex + 1 + If colorindex >= listacolores.Count Then + colorindex = 0 + End If + Next + e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista)) + End Sub #End Region diff --git a/Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc b/Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc new file mode 100644 index 000000000..a9f7823cc --- /dev/null +++ b/Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc @@ -0,0 +1,1093 @@ + + + + + + + + + + + + true + true + + + + + Folio + + + + Textbox3 + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Grupo + + + + Textbox28 + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + Textbox5 + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 2.36727cm + + + 2.63186cm + + + 2.55248cm + + + 2.12915cm + + + 2.49956cm + + + + + 0.43067cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubTotal.Value + + + + + + + SubTotal + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!IVA.Value + + + + + + + IVA + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.6cm + + + true + true + + + + + Cantidad + + + + Textbox40 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + Sub Total + + + + Textbox42 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + Descuento + + + + Textbox44 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + IVA + + + + Textbox51 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + Total + + + + Textbox47 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + =Fields!GPO.Value + + + + 6.6678cm + + + true + true + + + + + =Fields!Cliente.Value + + + + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + 5.97807cm + + + true + true + + + + + =Fields!GPO.Value + + + + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + 2.5cm + + + true + true + + + + + =Fields!Fecha.Value + + + + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + DataSet1 + 0.8255cm + 0.06614cm + 1.03067cm + 27.32619cm + + + + + + true + true + + + + + =Parameters!Filtros.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.78077in + + + + + + + Textbox1 + 0.18521cm + 2.57968cm + 0.6cm + 23.22592cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE AUXILIAR DE FACTURAS + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 2.57968cm + 0.52945cm + 22.85474cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.84667cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 25.23387cm + 0.68085cm + 2.06587cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21cm + 29.7cm + 1cm + 1cm + 0.5cm + 0.5cm + 0.13cm +