diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index 551d8df37..b0d679f5a 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -121,7 +121,7 @@ 0") - TipoRegenrar = If(TipoRegenrar.Contains("ANT"), "ANT", TipoRegenrar) + TipoRegenerar = DTEnviadas.FiltroPrimeroValor("Tipo", $"LEN(Tipo) > 0 and CveLayoutEnvio = {CveLayoutEnvio}") + TipoRegenerar = If(TipoRegenerar.Contains("ANT"), "ANT", TipoRegenerar) End If - - Dim DtRegenerar As New DataTable - Dim NombreDelArchivo As String = GvRow.DataKey("Archivo") Dim ObjBancos As New ClsBancos - If ObjBancos.GetLayoutPagos(Cvecuenta, CveBLE, TipoRegenrar, PorGrupos:=True) Then + If ObjBancos.GetLayoutPagos(Cvecuenta, CveBLE, TipoRegenerar, PorGrupos:=True) Then DtRegenerar = ObjBancos.DtResultados Else DtRegenerar = Nothing @@ -681,13 +678,10 @@ Partial Class Bancos_PagoElectronicoGrupos Alert("Ocurrió un error al obtener los datos para generar el archivo. Por favor vuelva a intentar.", TipoMensaje.MsgError) End If - End Sub #End Region - - 'RECARGA DATOS #Region " RECARGA DATOS " diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 61dc24738..4ba4d6a1c 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -6394,7 +6394,7 @@ Partial Class PopUpVerFactura Else params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString)) End If - If UsuarioActual.CveEmpresa.Contiene(119, 141) Then + If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) End If If UsuarioActual.CveEmpresa.Contiene(140, 141) Then diff --git a/Contabilidad2/RepBalanzaComprobacion.aspx b/Contabilidad2/RepBalanzaComprobacion.aspx index faff6a40a..9d0440a3a 100644 --- a/Contabilidad2/RepBalanzaComprobacion.aspx +++ b/Contabilidad2/RepBalanzaComprobacion.aspx @@ -116,75 +116,89 @@
- - + +
+ + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> - - - - - - - - - - - - - - - - - - - - - - - - -
Saldos Iniciales
DeudorAcreedor
- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Saldos Actuales
DeudorAcreedor
- - - - - - - - - - - - +
+ +
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
Saldos Iniciales
DeudorAcreedor
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Saldos Actuales
DeudorAcreedor
+ + + + + + + + + + + + +
+
+ diff --git a/Contratos/RepPresupuestos.aspx b/Contratos/RepPresupuestos.aspx index 62963dcf3..97e5c3c95 100644 --- a/Contratos/RepPresupuestos.aspx +++ b/Contratos/RepPresupuestos.aspx @@ -330,9 +330,9 @@ Agrupador Autorizado - Comprometido - Ejercido - Por Ejercer + En proceso de compra + + Por Ejercer Pagado @@ -343,11 +343,11 @@ <%-- - + - + - + diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index 50555e6cb..b7a05c96d 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -2,7 +2,6 @@ Option Strict On Imports System.Data -Imports Newtonsoft.Json Imports Newtonsoft.Json.Linq Imports Extensiones Imports Microsoft.Reporting.WebForms @@ -20,6 +19,15 @@ Partial Class Contratos_RepPresupuestos End Set End Property + Public Property UsaComprometido() As Boolean + Get + Return DirectCast(ViewState("UsaComprometido"), Boolean) + End Get + Set(ByVal value As Boolean) + ViewState("UsaComprometido") = value + End Set + End Property + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -29,7 +37,7 @@ Partial Class Contratos_RepPresupuestos #Region " INICIALIZA VALORES " Private Sub InicializaValores() - + UsaComprometido = False If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'emp citrícola TxtFiltrosFechaInicio.Text = $"01/08/{NowADS().Year - 1}" TxtFiltrosFechaFin.Text = $"31/07/{NowADS().Year}" @@ -54,6 +62,8 @@ Partial Class Contratos_RepPresupuestos DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlProyecto.DataBind() + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComprometido = True + CargaSubProyecto() UpFiltros.Update() End Sub @@ -78,7 +88,13 @@ Partial Class Contratos_RepPresupuestos Dim Agrupador = DdlAgrupador.SelectedValue.ToEntero Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha) Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) - Dim EsMensual = ChkMensual.Checked + Dim EsMensual = ChkMensual.Checked + + If UsaComprometido Then + thComprometido.Visible = True + GvDatos.Columns(2).Visible = True + LtlthEjercido.Text = "Facturado" + End If If Not EsMensual Then Dim ObjPresupuestos As New ClsContratos @@ -127,7 +143,6 @@ Partial Class Contratos_RepPresupuestos If EsMensual Then RegistraScript($"CargaChartMensual({HdnJsonProyecto.Value},{HdnJsonGraficos.Value});", "2") Else - RegistraScript($"CargaChartProyecto({HdnJsonProyecto.Value});", "2") End If @@ -286,27 +301,35 @@ Partial Class Contratos_RepPresupuestos Else Dim DrPresupuesto = DtPresupuestos.FiltroPrimero("Tipo = 0 AND CveAgrupador IS NULL") - Dim Autorizado = DrPresupuesto("Autorizado").ToString.ToDecimal - Dim Ejercido = DrPresupuesto("Ejercido").ToString.ToDecimal - Dim PorEjercer = DrPresupuesto("PorEjercer").ToString.ToDecimal - - Dim EjercidoPorcentaje = DrPresupuesto("EjercidoPorcentaje").ToString.ToDecimal - Dim PorEjercerPorcentaje = DrPresupuesto("PorEjercerPorcentaje").ToString.ToDecimal - - LtlAutorizado.Text = Autorizado.FormatoNumero - LtlEjercido.Text = Ejercido.FormatoNumero - LtlPorEjercer.Text = PorEjercer.FormatoNumero - - PBEjercido.Style.Remove("width") - PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%") - - PBPorEjercer.Style.Remove("width") - PBPorEjercer.Style.Add("width", $"{PorEjercerPorcentaje.ToString}%") - - LtlPorcentajeEjercido.Text = EjercidoPorcentaje.FormatoNumero + " %" - LtlPorcentajePorEjercer.Text = PorEjercerPorcentaje.FormatoNumero + " %" - - Dim json = New JArray( + Dim Autorizado As Decimal = DrPresupuesto("Autorizado").ToString.ToDecimal + Dim Ejercido As Decimal = DrPresupuesto("Ejercido").ToString.ToDecimal + Dim PorEjercer As Decimal = DrPresupuesto("PorEjercer").ToString.ToDecimal + Dim EjercidoPorcentaje = DrPresupuesto("EjercidoPorcentaje").ToString.ToDecimal + Dim PorEjercerPorcentaje = DrPresupuesto("PorEjercerPorcentaje").ToString.ToDecimal + + If UsaComprometido Then + Ejercido = DrPresupuesto("Comprometido").ToString.ToDecimal + PorEjercer = Autorizado - Ejercido + EjercidoPorcentaje = Ejercido / Autorizado * 100 + PorEjercerPorcentaje = PorEjercer / Autorizado * 100 + thComprometido.Visible = True + GvDatos.Columns(2).Visible = True + End If + + LtlAutorizado.Text = Autorizado.FormatoNumero + LtlEjercido.Text = Ejercido.FormatoNumero + LtlPorEjercer.Text = PorEjercer.FormatoNumero + + PBEjercido.Style.Remove("width") + PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%") + + PBPorEjercer.Style.Remove("width") + PBPorEjercer.Style.Add("width", $"{PorEjercerPorcentaje.ToString}%") + + LtlPorcentajeEjercido.Text = EjercidoPorcentaje.FormatoNumero + " %" + LtlPorcentajePorEjercer.Text = PorEjercerPorcentaje.FormatoNumero + " %" + + Dim json = New JArray( From dr In DtDatos Select New JObject( New JProperty("Agrupador", dr("Agrupador").ToString()), @@ -316,13 +339,13 @@ Partial Class Contratos_RepPresupuestos New JProperty("AutorizadoProporcion", 100), New JProperty("EjercidoProporcion", dr("EjercidoPorcentaje").ToString().ToDecimal()), New JProperty("PorEjercerProporcion", dr("PorEjercerPorcentaje").ToString().ToDecimal())) - ) - - HdnJsonProyecto.Value = json.ToString - End If - - - Else + ) + + HdnJsonProyecto.Value = json.ToString + End If + + + Else LtlAutorizado.Text = "" LtlEjercido.Text = "" LtlPorEjercer.Text = "" @@ -342,21 +365,24 @@ Partial Class Contratos_RepPresupuestos If e.Row.DBCampo("Autorizado").ToDecimal = 0 Then e.Row.Cells(1).Text = "-" End If - If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then - e.Row.Cells(2).Text = "-" + If e.Row.DBCampo("Comprometido").ToDecimal = 0 Then + e.Row.Cells(1).Text = "-" End If - If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then + If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then e.Row.Cells(3).Text = "-" End If - If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then + If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then e.Row.Cells(4).Text = "-" End If - If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then + If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then e.Row.Cells(5).Text = "-" End If - If e.Row.DBCampo("Pagado").ToDecimal = 0 Then + If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then e.Row.Cells(6).Text = "-" End If + If e.Row.DBCampo("Pagado").ToDecimal = 0 Then + e.Row.Cells(7).Text = "-" + End If If e.Row.RowIndex > 0 Then Dim CveAgrupador = e.Row.DBCampo("CveAgrupador").ToEntero diff --git a/Empresas/Grales/Formatos/Polizas.rdlc b/Empresas/Grales/Formatos/Polizas.rdlc index 42e9d4893..e77be5ab6 100644 --- a/Empresas/Grales/Formatos/Polizas.rdlc +++ b/Empresas/Grales/Formatos/Polizas.rdlc @@ -1488,6 +1488,295 @@ + + 2.44729cm + + + + + true + true + + + + + Usuario Registró: + + + + + + + + + =Fields!NombreUsuario.Value + + + + + + + UsuarioRegistro1 + + =IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False) + + + + Bottom + 1pt + 1pt + 1pt + 1pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox18 + + =IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False) + + + + + Black + + 1pt + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox19 + + =IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False) + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox20 + + =IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False) + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + @@ -1548,6 +1837,9 @@ Before + + Before + @@ -1559,7 +1851,7 @@ true 0.05076cm - 3.18542cm + 5.63271cm 19.38789cm - 3.59805cm + 5.68347cm