diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 5b34123a5..8540c06cf 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -2985,7 +2985,7 @@ Public Class ClsContratos End Function - Public Function AddPresupuestosDetalle(CvePresupuesto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Importe As Decimal, Observacion As String) As Boolean + Public Function AddPresupuestosDetalle(CvePresupuesto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Importe As Decimal, Observacion As String, Optional CveConceptoContableNom As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosDetalleAdd") @@ -2996,6 +2996,7 @@ Public Class ClsContratos .Add("@Importe", SqlDbType.Money).Value = Importe .Add("@Observacion", SqlDbType.VarChar).Value = Observacion .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto + .Add("@CveConceptoContableNom", SqlDbType.Int).Value = CveConceptoContableNom End With Try @@ -3029,7 +3030,7 @@ Public Class ClsContratos Return Retorno End Function - Public Function UpdatePresupuestosDetalle(CvePresupuestoDetalle As Integer, CveClasificacion As Integer, ImporteVigente As Decimal, Observacion As String) As Boolean + Public Function UpdatePresupuestosDetalle(CvePresupuestoDetalle As Integer, CveClasificacion As Integer, ImporteVigente As Decimal, Observacion As String, Optional CveConceptoContableNom As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosDetalleUpdate") @@ -3039,6 +3040,7 @@ Public Class ClsContratos .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@ImporteVigente", SqlDbType.Money).Value = ImporteVigente .Add("@Observacion", SqlDbType.VarChar).Value = Observacion + .Add("@CveConceptoContableNom", SqlDbType.Int).Value = CveConceptoContableNom End With Try @@ -3068,7 +3070,7 @@ Public Class ClsContratos End Try Return Retorno End Function - Public Function GetPresupuestosRep(CvePresupuesto As Integer, CveTipoGasto As Integer, Agrupador As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveUsuarioConsulta As Integer, CveClasificacion As Integer) As Boolean + Public Function GetPresupuestosRep(CvePresupuesto As Integer, CveTipoGasto As Integer, Agrupador As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveUsuarioConsulta As Integer, CveAgrupador As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosRep") @@ -3082,7 +3084,7 @@ Public Class ClsContratos .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveAgrupador", SqlDbType.Int).Value = CveAgrupador End With Try @@ -3121,7 +3123,7 @@ Public Class ClsContratos Return Retorno End Function - Public Function GetPresupuestosRepDetalle(CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Agrupador As Integer, Gpo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer) As Boolean + Public Function GetPresupuestosRepDetalle(CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveTipoGasto As Integer, Agrupador As Integer, Gpo As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveUsuario As Integer, Optional CveConceptoContableNom As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_PresupuestosRepDetalle") @@ -3129,6 +3131,7 @@ Public Class ClsContratos .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveConceptoContableNom", SqlDbType.Int).Value = CveConceptoContableNom .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto .Add("@Agrupador", SqlDbType.Int).Value = Agrupador .Add("@Gpo", SqlDbType.Int).Value = Gpo diff --git a/Compras/RepComprasAF.aspx b/Compras/RepComprasAF.aspx index 20b3912ae..41d634712 100644 --- a/Compras/RepComprasAF.aspx +++ b/Compras/RepComprasAF.aspx @@ -1,330 +1,326 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasAF.aspx.vb" Inherits="Compras_RepComprasAF" %> - - - - - - - - Reporte de Compras Activo Fijo - - - - -
  • - Generar PDF -
    • -
  • - Generar Excel -
    • -
  • - Ver Dlls en pesos -
    • -
  • -   -
    • - - -
  • - Ver Grafica -
    • -     -     -     - - - - - -
    -
    -
    - - -
    -
    -
    -
    Fecha Inicio:
    -
    -
    - - - - - - - - - - -
    -
    -
    Fecha Fin:
    -
    -
    - - - - - - - - - - -
    -
    -
    Grupo:
    -
    - - - - - - - - - - - - - -
    -
    -
    -
    - -
    -     -     -
    -
    - - - - - - - - - - - - - - - - - - - - - - - -
    - - - + + + +     + + + + + + + - - + + + diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb index fbd61c616..781f65a9a 100644 --- a/Compras/RepComprasAF.aspx.vb +++ b/Compras/RepComprasAF.aspx.vb @@ -59,16 +59,20 @@ Partial Class Compras_RepComprasAF txtFechaI.Text = $"01/{Now.Month}/{Now.Year}" DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedores.DataBind() + DdlProveedores.DataBind() + DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlMonedas.DataSource = GlobalDTMonedas() - DdlMonedas.DataBind() + DdlMonedas.DataBind() + DdlMonedas.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo") DdlTipoActivoFijo.DataBind() + DdlTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") DdlClasificacion.DataBind() + DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) Dim ObjClasificacion As New ClsClasificaciones @@ -81,9 +85,11 @@ Partial Class Compras_RepComprasAF ObjClasificacion.Dispose() DdlClasificacion2.DataBind() + DdlClasificacion2.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlActivoFijo.DataBind() + DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) diff --git a/Contratos/Presupuestos.aspx b/Contratos/Presupuestos.aspx index bfb6aca06..073d6cec2 100644 --- a/Contratos/Presupuestos.aspx +++ b/Contratos/Presupuestos.aspx @@ -1,318 +1,342 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Presupuestos.aspx.vb" Inherits="Contratos_Presupuestos" %> - - - - - - - - Presupuestos - - - - - - -
  • - Autorizar -
    • -
  • - Cargar Presupuesto -
    • -
  • - Modificar Presupuesto -
    • -     -     -     - - - -
    -
    -
    -
    -
    +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Presupuestos.aspx.vb" Inherits="Contratos_Presupuestos" %> + + + + + + + + Presupuestos + + + + + + +
  • + Autorizar +
    • +
  • + Cargar Presupuesto +
    • +
  • + Modificar Presupuesto +
    • +     +     +     + + + +
    +
    +
    +
    +
    Datos Generales -
    -
    - - -
    -
    -
    - - -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    -
    -
    - -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    - -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    -     -     -
    -
    -
    -
    - - -
    -
    -

    Estatus: -

    -
    -
    -
    -
    -
    -
    -
    -

    - $ - - -

    - IMPORTE -
    + +
    +
    + + +
    +
    +
    + + +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    +     +     +
    +
    +
    +
    +
    +
    +
    + Configuración + +
    +
    + + +
    +
    +
    + + +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    +     +     +
    +
    +
    +
    + + +
    +
    +

    Estatus: +

    +
    +
    +
    +
    +
    +
    +
    +

    + $ + + +

    + IMPORTE +
    <%--
    -
    --%> -
    -
    -
    - -
    -
    -
    -
    -

    - $ - - -

    - EJERCIDO -
    +
    --%> +
    +
    +
    + +
    +
    +
    +
    +

    + $ + + +

    + EJERCIDO +
    <%--
    -
    --%> -
    -
    -
    - - - - -
    -
    -
    Porcentaje Ejercido
    -
    - -
    -
    -
    -
    -
    -
    -
    -
    -
    -

    - $ - - -

    - POR EJERCER -
    +
    --%> +
    +
    +
    + + + + +
    +
    +
    Porcentaje Ejercido
    +
    + +
    +
    +
    +
    +
    +
    +
    +
    +
    +

    + $ + + +

    + POR EJERCER +
    <%--
    -
    --%> -
    -
    -
    - - - - -
    -
    -
    Porcentaje Por Ejercer
    -
    - -
    -
    -
    -
    -
    - -
    - - -
    -
    -
    -
    -
    -
    -
    -
    +
    --%> +
    +
    +
    + + + + +
    +
    +
    Porcentaje Por Ejercer
    +
    + +
    +
    +
    +
    +
    + +
    + + +
    +
    +
    +
    +
    +
    +
    +
    Presupuestos -
    -
    - - -
    -
    -
    -
    - - - - - - - - - - - - - Total : - - - - - - - - - - - - - - -
    -
    -
    -
    -
    - - -
    -
    -
    - -
    -
    -
    -     -     - + + +
    +
    +
    + +
    +
    +
    +     +     + - - + --> + +
    +
    + + +
    + + + Procesar + + +
    + + + + + + + +     + - - + + + diff --git a/Contratos/Presupuestos.aspx.vb b/Contratos/Presupuestos.aspx.vb index dc344f772..15b704ed9 100644 --- a/Contratos/Presupuestos.aspx.vb +++ b/Contratos/Presupuestos.aspx.vb @@ -5,10 +5,10 @@ Imports System.Data Imports Extensiones Partial Class Contratos_Presupuestos - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "P R O P I E D A D E S" - + Public Property CvePresupuesto() As Integer Get Return ViewState("CvePresupuesto").ToString.ToEntero @@ -37,10 +37,10 @@ Partial Class Contratos_Presupuestos Set(ByVal value As DataTable) ViewState("DtClasificaciones") = value End Set - End Property - + End Property + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then CvePresupuesto = IfNull(Request("CvePresupuesto"), -1).ToString.ToEntero @@ -56,8 +56,8 @@ Partial Class Contratos_Presupuestos UpGvClasificaciones.Update() UpIndicadores.Update() End If - End Sub - + End Sub + #Region "I N I C I A L I Z A - V A L O R E S" Private Sub InicializaValores() TxtFechaI.Text = $"01/01/{Now.Year}" @@ -125,13 +125,13 @@ Partial Class Contratos_Presupuestos End Select End If If e.Row.RowType = DataControlRowType.Footer Then - Dim Importe = DtClasificaciones.SUM("Importe", "CveClasificacion IS NOT NULL") + Dim Importe = DtClasificaciones.SUM("Importe", "CveAgrupador IS NOT NULL") e.Row.FCLabel("LblTotal").Text = String.Format("{0:C}", Importe) End If - End Sub - + End Sub + #End Region - + #Region "C A R G A - D A T O S" Private Sub CargaDatos() CargaMoneda() @@ -245,9 +245,9 @@ Partial Class Contratos_Presupuestos HlModificar.Visible = True HlModificar.NavigateUrl = $"/Contratos/ModificarPresupuesto.aspx?CvePresupuesto={CvePresupuesto}" End If - End Sub + End Sub #End Region - + #Region "G U A R D A R " Private Function ValidaDatos() As Boolean If String.IsNullOrEmpty(TxtPresupuesto.Text.Trim) Then @@ -327,23 +327,39 @@ Partial Class Contratos_Presupuestos For Each GvRow As GridViewRow In GvPresupuestos.Rows If GvRow.RowType = DataControlRowType.DataRow Then - Dim CveClasificacion = GvRow.DataKey("CveClasificacion").ToEntero - Dim CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero + Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero + + Dim CveTipoGasto = -1 + Dim CveClasificacion As Integer = -1 + Dim CveConceptoContableNom As Integer = -1 + + If Tipo = 1 Then + CveClasificacion = CveAgrupador + CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + End If + + If Tipo = 2 Then + CveConceptoContableNom = CveAgrupador + End If + + Dim CvePresupuestoDetalle = GvRow.DataKey("CvePresupuestoDetalle").ToEntero Dim Importe = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal Dim Obs = GvRow.FCTextBox("TxtObservacion").Text.Trim + 'ACTUALIZA EL REGISTRO EXISTENTE If CvePresupuestoDetalle > 0 Then - TieneError = Not ObjCont.UpdatePresupuestosDetalle(CvePresupuestoDetalle, CveClasificacion, Importe, Obs) + TieneError = Not ObjCont.UpdatePresupuestosDetalle(CvePresupuestoDetalle, CveClasificacion, Importe, Obs, CveConceptoContableNom:=CveConceptoContableNom) If TieneError Then Exit For End If 'AGREGA LA CLASIFICACION SI NO EXISTE EN EN EL DT DETALLE Else - If Importe > 0 And CveClasificacion > 0 Then - TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuesto, CveClasificacion, CveTipoGasto, Importe, Obs) + If Importe > 0 And CveAgrupador > 0 Then + TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuesto, CveClasificacion, CveTipoGasto, Importe, Obs, CveConceptoContableNom:=CveConceptoContableNom) If TieneError Then Exit For End If @@ -385,18 +401,33 @@ Partial Class Contratos_Presupuestos If CvePresupuestoNuevo > 0 Then Dim ImporteClasi = 0.0D - Dim CveClasificacion = -1 Dim ObsDetalle = "" For Each GvRow As GridViewRow In GvPresupuestos.Rows If GvRow.RowType = DataControlRowType.DataRow Then - ImporteClasi = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal - CveClasificacion = GvRow.DataKey("CveClasificacion").ToEntero - Dim CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + ImporteClasi = GvRow.FCTextBox("TxtImporteClasi").Text.ToDecimal + ObsDetalle = GvRow.FCTextBox("TxtObservacion").Text.Trim + + Dim CveAgrupador = GvRow.DataKey("CveAgrupador").ToEntero + Dim Tipo As Integer = GvRow.DataKey("Tipo").ToEntero + + Dim CveClasificacion As Integer = -1 + Dim CveConceptoContableNom As Integer = -1 + Dim CveTipoGasto As Integer = -1 + + If Tipo = 1 Then + CveClasificacion = CveAgrupador + CveTipoGasto = GvRow.DataKey("CveTipoGasto").ToEntero + End If + + If Tipo = 2 Then + CveConceptoContableNom = CveAgrupador + End If + If CveClasificacion > 0 Then If ImporteClasi > 0 Then - TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuestoNuevo, CveClasificacion, CveTipoGasto, ImporteClasi, ObsDetalle) + TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuestoNuevo, CveClasificacion, CveTipoGasto, ImporteClasi, ObsDetalle, CveConceptoContableNom:=CveConceptoContableNom) If TieneError Then Exit For End If @@ -427,11 +458,11 @@ Partial Class Contratos_Presupuestos Alert("Se agregó el presupuesto correctamente.", TipoMensaje.MsgInformacion, Liga) End If - End Sub + End Sub #End Region - - - + + + Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs) Handles LnkAutorizar.Click If ValidaDatos() Then If ActualizarPresupuesto() Then diff --git a/Contratos/RepPresupuestos.aspx b/Contratos/RepPresupuestos.aspx index ba7cfd71f..500e6ef34 100644 --- a/Contratos/RepPresupuestos.aspx +++ b/Contratos/RepPresupuestos.aspx @@ -233,7 +233,7 @@
    Clasificacion:
    - +
    Tipo Gasto:
    diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index 07cfc6d1f..4800f3850 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -8,9 +8,9 @@ Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Contratos_RepPresupuestos - Inherits ClsPaginas + Inherits ClsPaginas #Region "P R O P I E D A D E S" - + Public Property DtPresupuestos() As DataTable Get Return DirectCast(ViewState("DtPresupuestos"), DataTable) @@ -18,15 +18,15 @@ Partial Class Contratos_RepPresupuestos Set(ByVal value As DataTable) ViewState("DtPresupuestos") = value End Set - End Property - + End Property + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then InicializaValores() End If - End Sub - + End Sub + #Region " INICIALIZA VALORES " Private Sub InicializaValores() @@ -36,9 +36,14 @@ Partial Class Contratos_RepPresupuestos DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataBind() - DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Dim dtAgrupador = (From dr In GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Select New With {.CveAgrupador = dr("CveClasificacion").ToString().ToEntero(), .Agrupador = dr("Clasificacion").ToString()} + ).Union(From dr In GlobalDTContaConceptosContables(-1) + Select New With {.CveAgrupador = dr("CveConceptoContable").ToString().ToEntero(), .Agrupador = dr("ConceptoContable").ToString()}).QueryToDataTable(True) + + DdlClasificacion.DataSource = dtAgrupador + DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) - DdlClasificacion.DataBind() DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})) DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) @@ -46,12 +51,12 @@ Partial Class Contratos_RepPresupuestos CargaSubProyecto() UpFiltros.Update() - End Sub + End Sub #End Region - - + + #Region " CARGA DATOS " - + Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then @@ -362,15 +367,15 @@ Partial Class Contratos_RepPresupuestos EsProyecto = True End If Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If - End Sub + End Sub #End Region - - - + + + Protected Sub ChkMensual_CheckedChanged(sender As Object, e As EventArgs) Handles ChkMensual.CheckedChanged DivRepDatos.Visible = Not ChkMensual.Checked @@ -492,7 +497,7 @@ Partial Class Contratos_RepPresupuestos Dim FechaFin = e.Row.DBCampo("FechaFFiltro").ToDate.ToShortDateString Dim FechaInicio = e.Row.DBCampo("FechaIFiltro").ToDate.ToShortDateString Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If Else @@ -506,7 +511,7 @@ Partial Class Contratos_RepPresupuestos Dim FechaFin = e.Row.DBCampo("FechaFFiltro").ToDate.ToShortDateString Dim FechaInicio = e.Row.DBCampo("FechaIFiltro").ToDate.ToShortDateString Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalle.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={True}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If @@ -515,8 +520,8 @@ Partial Class Contratos_RepPresupuestos End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) CargaSubProyecto() - End Sub - + End Sub + #Region " IMPRESION - NUEVO " Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click GenerarPDF("EXCEL") @@ -555,7 +560,7 @@ Partial Class Contratos_RepPresupuestos Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) End If - End Sub + End Sub #End Region - + End Class diff --git a/Contratos/RepPresupuestosDetalle.aspx b/Contratos/RepPresupuestosDetalle.aspx index 05b3668d8..35ed80fe3 100644 --- a/Contratos/RepPresupuestosDetalle.aspx +++ b/Contratos/RepPresupuestosDetalle.aspx @@ -226,7 +226,7 @@
    Clasificacion:
    - +
    Tipo Gasto:
    diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index 75fdbd48b..af74319ad 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -45,9 +45,14 @@ Partial Class Contratos_RepPresupuestosDetalle TxtFiltrosFechaInicio.Text = $"01/09/{Now.Year - 1}" TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}" - DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Dim dtAgrupador = (From dr In GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + Select New With {.CveAgrupador = dr("CveClasificacion").ToString().ToEntero(), .Agrupador = dr("Clasificacion").ToString()} + ).Union(From dr In GlobalDTContaConceptosContables(-1) + Select New With {.CveAgrupador = dr("CveConceptoContable").ToString().ToEntero(), .Agrupador = dr("ConceptoContable").ToString()}).QueryToDataTable(True) + + DdlClasificacion.DataSource = dtAgrupador + DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1")) - DdlClasificacion.DataBind() DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataBind() @@ -181,7 +186,7 @@ Partial Class Contratos_RepPresupuestosDetalle EsProyecto = True End If Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If @@ -302,7 +307,7 @@ Partial Class Contratos_RepPresupuestosDetalle EsProyecto = True End If Dim Css = "Texto" - Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" + Dim Liga = $"/Contratos/RepPresupuestosDetalleCompras.aspx?&CveAgrupador={CveAgrupador}&CveClasificacion={e.Row.DBCampo("CveClasificacionFiltro")}&CveConceptoContableNom={e.Row.DBCampo("CveConceptoContableNomFiltro")}&CveProyecto={e.Row.DBCampo("CveProyectoFiltro")}&CveSubProyecto={e.Row.DBCampo("CveSubProyectoFiltro")}&CveTipoGasto={e.Row.DBCampo("CveTipoGastoFiltro")}&Agrupador={e.Row.DBCampo("AgrupadorFiltro")}&Mensual={False}&EsProyecto={EsProyecto}&FechaFin={FechaFin}&FechaInicio={FechaInicio}" e.Row.Cells(0).Text = "" + e.Row.Cells(0).Text + "" End If End If diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 17121cd74..09de3e8e3 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -346,8 +346,9 @@ =Parameters!QR.Value FitProportional 0.04167in + 0.04352in 1.37377in - 1.7524in + 1.73969in @@ -489,7 +490,7 @@ Textbox88 0.07057cm - 4.6275cm + 4.54701cm 2.25463cm 16.27211cm 1 @@ -506,9 +507,9 @@ true 6.61175in - 0.06752in + 0.09419in 1.42169in - 8.23953in + 8.20784in @@ -519,34 +520,34 @@ - 0.54014in + 0.5387in - 0.59111in + 0.58967in - 0.80359in + 0.80215in - 0.66404in + 0.64011in - 2.11562in + 2.06124in - 0.6863in + 0.68486in - 0.69852in + 0.69708in - 0.6403in + 0.63886in - 0.67895in + 0.67751in - 0.80447in + 0.80303in @@ -1384,9 +1385,9 @@ DsOC 1.75278in - 0.09836in + 0.13771in 0.36206in - 8.22304in + 8.13325in 1 - 22.76324cm + 22.76325cm