Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsMovimientos.vb

@@ -1537,7 +1537,7 @@ Public Class ClsMovimientos
                                        Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1,
                                        Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha,
                                        Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha,
-                                        Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean
+                                        Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1, Optional CveMoneda As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_RepRecuperacion")
         With SqlAdapter.SelectCommand.Parameters
@@ -1569,6 +1569,7 @@ Public Class ClsMovimientos
 
             .Add("@FechaRegistroIEI", SqlDbType.Date).Value = FechaRegistroIEI.ToShortDateString
             .Add("@FechaRegistroIEF", SqlDbType.Date).Value = FechaRegistroIEF.ToShortDateString
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsPaginas.vb

@@ -6873,26 +6873,26 @@ Public Class ClsPaginas
                 RptParametro.Add(New ReportParameter("Puesto", Puesto))
                 'DATOS NOMINA
                 If ObjNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, 1, CveEmpresa) Then
-                        RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString))
+                    RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString))
-                        RptParametro.Add(New ReportParameter("Serie", ObjNomina.Serie))
+                    RptParametro.Add(New ReportParameter("Serie", ObjNomina.Serie))
-                        RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString))
+                    RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString))
-                        RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo))
+                    RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo))
-                        RptParametro.Add(New ReportParameter("DiasPagados", ObjNomina.DiasPagados.ToString))
+                    RptParametro.Add(New ReportParameter("DiasPagados", ObjNomina.DiasPagados.ToString))
-                        RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) '"""PUE"" (Pago en una sola exhibición)"
+                    RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) '"""PUE"" (Pago en una sola exhibición)"
-                        RptParametro.Add(New ReportParameter("FormaPago", """99"" (Por definir)"))
+                    RptParametro.Add(New ReportParameter("FormaPago", """99"" (Por definir)"))
-                        RptParametro.Add(New ReportParameter("Cantidad", "1"))
+                    RptParametro.Add(New ReportParameter("Cantidad", "1"))
-                        RptParametro.Add(New ReportParameter("Unidad", "ACT"))
+                    RptParametro.Add(New ReportParameter("Unidad", "ACT"))
-                        RptParametro.Add(New ReportParameter("Descripcion", "PAGO DE NÓMINA"))
+                    RptParametro.Add(New ReportParameter("Descripcion", "PAGO DE NÓMINA"))
-                        RptParametro.Add(New ReportParameter("Total", If(indemnizacion, ajusteindemnizacion, ObjNomina.Total - ajusteindemnizacion).ToString()))
+                    RptParametro.Add(New ReportParameter("Total", If(indemnizacion, ajusteindemnizacion, ObjNomina.Total - ajusteindemnizacion).ToString()))
-                        Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+                    Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-                        cQr = CBB.GenerarCBBBytes(UsuarioActual.Empresa.RFC, ObjPersonal.RFC, ObjNomina.Total.ToString().ToDecimal(), FolioFiscal)
+                    cQr = CBB.GenerarCBBBytes(UsuarioActual.Empresa.RFC, ObjPersonal.RFC, ObjNomina.Total.ToString().ToDecimal(), FolioFiscal)
-                        RptParametro.Add(New ReportParameter("ImporteLetra", ObjNomina.Total.ToString.ToDouble.Texto2Letras))
+                    RptParametro.Add(New ReportParameter("ImporteLetra", ObjNomina.Total.ToString.ToDouble.Texto2Letras))
-                        RptParametro.Add(New ReportParameter("Clave", "84111505"))
+                    RptParametro.Add(New ReportParameter("Clave", "84111505"))
-                    Else
-                        TieneError = True
-                    End If
                 Else
                     TieneError = True
+                End If
+            Else
+                TieneError = True
             End If
             If Not TieneError Then
                 If ObjNomina.GetPeriodos(-1, CveEmpresa, -1, -1, CvePeriodo) Then
@@ -9325,7 +9325,15 @@ Public Class ClsPaginas
             PaginaDict.Add("/Ventas/RepCancelacionesVentas.aspx".ToUpper(), 1325)
             PaginaDict.Add("/Ventas/RepLineasAdicionales.aspx".ToUpper(), 1331)
             PaginaDict.Add("/Ventas/RepLineasAdicionales.aspx?OP=OP".ToUpper(), 1332)
+
             PaginaDict.Add("/Ventas/FacturacionAcarreos.aspx".ToUpper(), 774)
+
+
+            PaginaDict.Add("/Ventas/RepIndicadoresPorProyecto.aspx".ToUpper(), 617)
+
+
+
+
 #End Region
 #Region "Varios"
             'Portal Cliente/Proveedor

Bancos/RepCobrado.aspx.vb

@@ -27,6 +27,9 @@ Partial Class Ventas_RepRecuperacion
         End If
     End Sub
 
+
+
+
     Private Sub CargaCombos()
         'CARGA PROVEEDORES
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)

Compras/RepCxP.aspx.vb

@@ -92,6 +92,7 @@ Partial Class Compras_RepCxP
         If Not Page.IsPostBack Then
             CargaCombos()
             CargaGvPersonalizarRaqngoColumnas()
+            ProcesaRequest()
             CargaDatos()
 
             If UsuarioActual.CveRol = 1 Then
@@ -101,6 +102,36 @@ Partial Class Compras_RepCxP
     End Sub
 
 #Region "CARGAS"
+
+    Private Sub ProcesaRequest()
+
+        If Request("FechaInicio") IsNot Nothing AndAlso IsDate(Request("FechaInicio")) Then
+            txtFechaI.Text = Request("FechaInicio")
+        End If
+        If Request("FechaFin") IsNot Nothing AndAlso IsDate(Request("FechaFin")) Then
+            txtFechaF.Text = Request("FechaFin")
+        End If
+
+        If Request("TipoDocto") IsNot Nothing AndAlso Request("TipoDocto").Length > 0 Then
+            Dim tipodoctos As String() = Request("TipoDocto").Split(","c)
+
+            For Each itemTipoDocto As ListItem In DdlTipoDocto.Items
+                For Each tipoDocto As String In tipodoctos
+                    itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper)
+                Next
+            Next
+
+        End If
+
+        If Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero <> 0 Then
+            DdlMoneda.SelectedValueExist(Request("CveMoneda").ToEntero)
+        End If
+
+        If Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero <> 0 Then
+            DdlSubProyecto.SelectedValueExist(Request("CveSubProyecto").ToEntero)
+        End If
+
+    End Sub
     Private Sub CargaCombos()
 
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then

Compras/RepPagado.aspx.cs

@@ -31,6 +31,7 @@ public partial class Compras_RepPagado : ClsPaginas
         if (!IsPostBack)
         {
             InicializaValores();
+            ProcesaRequest();
         }
     }
 
@@ -73,6 +74,50 @@ public partial class Compras_RepPagado : ClsPaginas
         TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();
     }
 
+
+    private void ProcesaRequest()
+    {
+        if (DateTime.TryParse(Request["FechaInicio"], out DateTime fechaInicio))
+        {
+            txtFechaI.Text = fechaInicio.ToString("yyyy-MM-dd");
+        }
+
+        if (DateTime.TryParse(Request["FechaFin"], out DateTime fechaFin))
+        {
+            txtFechaF.Text = fechaFin.ToString("yyyy-MM-dd");
+        }
+
+        //if (Request["TipoDocto"] != null && Request["TipoDocto"].Length > 0)
+        //{
+        //    string[] tipodoctos = Request["TipoDocto"].Split(',');
+        //    foreach (ListItem itemTipoDocto in DdlTipoDocto.Items)
+        //    {
+        //        foreach (string tipoDocto in tipodoctos)
+        //        {
+        //            itemTipoDocto.Selected = tipoDocto.ToUpper() == itemTipoDocto.Value.ToUpper();
+        //        }
+        //    }
+        //}
+
+        if (Request["CveMoneda"] != null && Request["CveMoneda"].ToEntero() != 0)
+        {
+            DdlMoneda.SelectedValueExist(Request["CveMoneda"].ToEntero());
+        }
+
+        if (Request["CveSubProyecto"] != null && Request["CveSubProyecto"].ToEntero() != 0)
+        {
+            DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"].ToEntero());
+        }
+
+       
+
+        if ((DateTime.TryParse(Request["FechaInicio"], out DateTime fechaInicio2)) && (DateTime.TryParse(Request["FechaFin"], out DateTime fechaFin2)))
+        {
+            CargaDatos();
+        }
+    }
+
+
     private void CargaCuentasBancarias()
     {
         DdlCuentaBancaria.Items.Clear();

CxC/RepCxC.aspx.vb

@@ -91,20 +91,56 @@ Partial Class RepCxC
 #End Region
 
 
-    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
         If Not IsPostBack Then
             Index = 0
             Modalidad = ""
             CargaCombos()
             CargaGvPersonalizarRaqngoColumnas()
+            ProcesaRequest()
             CargaDatos()
             If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True
             ActivaEnviarEstadoCuenta()
             If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True
         End If
+
     End Sub
 
 #Region "CARGAS"
+
+
+    Private Sub ProcesaRequest()
+
+        If Request("FechaInicio") IsNot Nothing AndAlso IsDate(Request("FechaInicio")) Then
+            txtFechaI.Text = Request("FechaInicio")
+        End If
+        If Request("FechaFin") IsNot Nothing AndAlso IsDate(Request("FechaFin")) Then
+            txtFechaF.Text = Request("FechaFin")
+        End If
+
+        If Request("TipoDocto") IsNot Nothing AndAlso Request("TipoDocto").Length > 0 Then
+            Dim tipodoctos As String() = Request("TipoDocto").Split(","c)
+
+            For Each itemTipoDocto As ListItem In DdlTipoDocto.Items
+                For Each tipoDocto As String In tipodoctos
+                    itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper)
+                Next
+            Next
+
+        End If
+
+        If Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero <> 0 Then
+            DdlMoneda.SelectedValueExist(Request("CveMoneda").ToEntero)
+        End If
+
+        If Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero <> 0 Then
+            DdlSubProyecto.SelectedValueExist(Request("CveSubProyecto").ToEntero)
+        End If
+
+
+    End Sub
+
     Private Sub CargaCombos()
         'CargaClientes
         If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1586,6 +1586,16 @@ Partial Class Inventarios_TraspasoAlmacen
                 End If
             End If
 
+
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+                e.Row.FCTextBox("TxtCantidad").Enabled = False
+                e.Row.FCTextBox("TxtCantidad").Text = e.Row.DataKey("Cantidad")
+                e.Row.FCCheckBox("Chk").Enabled = False
+                e.Row.FCCheckBox("Chk").Checked = True
+            End If
+
+
+
         End If
     End Sub
 
@@ -3388,3 +3398,4 @@ End Class
 
 
 
+

RH/Personal.aspx

@@ -3065,6 +3065,7 @@
                                                                                                 </asp:DropDownList>
                                                                                             </div>
                                                                                         </div>
+
                                                                                         <div class="col-md-6">
                                                                                             <div class="">
                                                                                                 <asp:Label runat="server" AssociatedControlID="DdlVacPeriodo" Style="padding-bottom: 0px; margin-bottom: 0px; font-size: 12px; color: #888; font-weight: 400;" >Periodo</asp:Label><br />
@@ -3076,9 +3077,9 @@
                                                                                             </div>
                                                                                         </div>
                                                                                     </div>
-                                                                                    <asp:Panel runat="server" ID="PnlVacfechas" CssClass="row">
+                                                                                    <asp:Panel runat="server"  CssClass="row">
 
-                                                                                        <div class="col-md-3">
+                                                                                        <div class="col-md-3"  runat="server" id="PnlVacfechas" >
 
 
                                                                                             <div class="form-group form-md-line-input input-iconright calendarlinealinput" style="width: 100px !important">
@@ -3106,7 +3107,7 @@
                                                                                         </asp:Panel>
 
 
-                                                                                        <div class="col-md-3" style="max-height:58px!important">
+                                                                                        <div class="col-md-3" style="max-height:58px!important" runat="server" id="PnlVacfechas2">
                                                                                             <div class="form-group form-md-line-input input-iconright calendarlinealinput" style="width: 100px !important">
                                                                                                 <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 160px;">
                                                                                                     <asp:TextBox ID="TxtFechaFinVac" runat="server" CausesValidation="true" CssClass="form-control input-sm" ClientIDMode="Static" onblur="calculaFechasVacacionesFechaFin()"></asp:TextBox>
@@ -3122,8 +3123,8 @@
                                                                                         </div>
 
 
-                                                                                        <div class="col-md-3">
+                                                                                        <div class="col-md-3" runat="server" id="PnlVacDiasFeriados">
-                                                                                            <div class="form-group form-md-line-input input-iconright calendarlinealinput form-small">
+                                                                                            <div class="form-group form-md-line-input input-iconright calendarlinealinput form-small" >
                                                                                                 <asp:TextBox ID="Txtdiasinabiles" runat="server" TextMode="Number" CausesValidation="true" CssClass="form-control input-sm form-small" ClientIDMode="Static" Style="margin-top: 20px!important"></asp:TextBox>
                                                                                                 <asp:Label runat="server" AssociatedControlID="Txtdiasinabiles" Style="margin-top: 10px!important">Días feriados</asp:Label>
                                                                                             </div>
@@ -3133,9 +3134,9 @@
                                                                                     </asp:Panel>
 
 
-                                                                                    <asp:Panel runat="server" ID="PnlVacDias" CssClass="row">
+                                                                                    <asp:Panel runat="server" CssClass="row">
 
-                                                                                         <div class="col-md-6">
+                                                                                         <div class="col-md-6"  runat="server" ID="PnlVacDias" >
                                                                                             <div class="form-group form-md-line-input input-iconright calendarlinealinput" style="width: 100px !important">
 
                                                                                                 <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 160px;">

RH/Personal.aspx.vb

@@ -5457,37 +5457,42 @@ Partial Class RH_Personal
 
     Protected Sub DdlFormapagovacaciones_SelectedIndexChanged(sender As Object, e As EventArgs)
         PnlVacfechas.Visible = False
+        PnlVacfechas2.Visible = False
         PnlVacDias.Visible = False
         'PnlVacFechapago.Visible = False
-        PnlVacDiasPago.Visible = False
+        ' PnlVacDiasPago.Visible = False
         PnlVacChecks.Visible = False
         TxtVacDiasPago.Text = "0"
+        PnlVacDiasFeriados.Visible = False
 
         Select Case DdlFormapagovacaciones.SelectedValue.ToEntero()
             Case 1
                 PnlVacfechas.Visible = True
+                PnlVacfechas2.Visible = True
                 PnlVacDias.Visible = True
-                'PnlVacFechapago.Visible = True
-                PnlVacDiasPago.Visible = True
                 PnlVacChecks.Visible = True
+                PnlVacDiasFeriados.Visible = True
             Case 2
                 PnlVacfechas.Visible = True
-                PnlVacDias.Visible = True
+                PnlVacfechas2.Visible = True
                 PnlVacChecks.Visible = True
+                PnlVacDiasFeriados.Visible = True
             Case 3
                 PnlVacfechas.Visible = True
+                PnlVacfechas2.Visible = True
                 PnlVacDias.Visible = True
-                PnlVacDiasPago.Visible = False
+                PnlVacDiasFeriados.Visible = True
-                'PnlVacFechapago.Visible = True
             Case 4
-                ' PnlVacFechapago.Visible = True
+                PnlVacDias.Visible = True
-                PnlVacDiasPago.Visible = True
                 PnlVacChecks.Visible = True
+
             Case 5
                 PnlVacfechas.Visible = True
+                PnlVacfechas2.Visible = True
+                PnlVacDias.Visible = True
+                PnlVacDiasFeriados.Visible = True
             Case 6
-                'PnlVacFechapago.Visible = True
+                PnlVacDias.Visible = True
-                PnlVacDiasPago.Visible = True
         End Select
     End Sub
 #End Region

Ventas/RepIndicadoresPorProyecto.aspx

@@ -0,0 +1,339 @@
+<%@ Page Title="Indicadores por Proyecto" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepIndicadoresPorProyecto.aspx.vb" Inherits="Ventas_RepIndicadoresPorProyecto" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+      <style>
+            .portlet-total {
+            float: right !important;
+            display: inline-block !important;
+        }
+      </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAcciones">
+        <ContentTemplate>        
+        </ContentTemplate>        
+    </asp:UpdatePanel>
+   
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Indicadores por Proyecto
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                    </div>
+                    <div class="titlefiltros  caption">
+                        <div class="row">                            
+                            
+                            <asp:Label runat="server" ID="LblSubProyecto"  class="col-md-1 truncate" style="text-align:right">Sucursal:</asp:Label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="select2me" Width="100%"> 
+                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <label class="col-md-1 truncate" style="text-align:right" >Fecha Inicio:</label>
+                            <div class="col-md-2" style="max-width: 140px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                    <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="85px" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <label  class="col-md-1 truncate" style="text-align:right">Fecha Fin:</label>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                    <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="85px" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                    </div>
+
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+
+
+    
+
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div class="row">
+                <div class="col-md-6">
+
+                    <div class="portlet light xspadding bordered  ">
+                        <div class="portlet-title">
+
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">CxC</span>
+                            </div>                          
+
+                            <div class="tools">
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+
+                            <div class="caption font-green portlet-total">
+                                <span id="SPResumenCxC" class="caption-subject bold uppercase" runat="server" />
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+
+                        </div>
+                        <div class="portlet-body">
+                            <asp:GridView ID="GvResumenCxC" DataKeyNames="CveMoneda,Moneda,Cantidad,Saldo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Cuentas por Cobrar"
+                                CssClass="table table-striped table-hover Widthall" GridLines="None">
+                                <Columns>
+                                    <asp:BoundField HeaderText="Moneda" DataField="Moneda" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="Saldo" DataField="Saldo" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                                </Columns>
+                            </asp:GridView>
+                        </div>
+                    </div>
+
+
+
+
+
+                </div>
+                <div class="col-md-6">
+
+                    <div class="portlet light xspadding bordered  ">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">CxP</span>
+                            </div>                            
+                            <div class="tools">
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+
+                            <div class="caption font-green portlet-total">
+                                <span id="SPResumenCxP" class="caption-subject bold uppercase" runat="server" />
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+                        </div>
+                        <div class="portlet-body">
+                            <asp:GridView ID="GvResumenCxP" DataKeyNames="CveMoneda,Moneda,Cantidad,Saldo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Cuentas por Pagar"
+                                CssClass="table table-striped table-hover Widthall" GridLines="None">
+                                <Columns>
+                                    <asp:BoundField HeaderText="Moneda" DataField="Moneda" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="Saldo" DataField="Saldo" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                                </Columns>
+                            </asp:GridView>
+                        </div>
+                    </div>
+
+
+
+                </div>
+            </div>
+
+
+            <div class="row">
+                <div class="col-md-6">
+
+
+
+                    <div class="portlet light xspadding bordered  ">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">Cobrado</span>
+                            </div>
+                             <div class="tools">
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+
+                            <div class="caption font-green portlet-total">
+                                <span id="SPRepCobrado" class="caption-subject bold uppercase" runat="server" />
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+                        </div>
+                        <div class="portlet-body">
+                            <asp:GridView ID="GvRepCobrado" DataKeyNames="CveMoneda,Cobrado" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Cobrado"
+                                CssClass="table table-striped table-hover Widthall" GridLines="None">
+                                <Columns>
+                                    <asp:BoundField HeaderText="Moneda" DataField="Moneda" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField HeaderText="Cobrado" DataField="Cobrado" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                                </Columns>
+                            </asp:GridView>
+                        </div>
+                    </div>
+
+
+
+
+                </div>
+                <div class="col-md-6">
+
+                    <div class="portlet light xspadding bordered  ">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">Pagado</span>
+                            </div>
+                             <div class="tools">
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+
+                            <div class="caption font-green portlet-total">
+                                <span id="SPRepPagado" class="caption-subject bold uppercase" runat="server" />
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+                        </div>
+                        <div class="portlet-body">
+                            <asp:GridView ID="GvRepPagado" DataKeyNames="CveMoneda,Pagado" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Pagado"
+                                CssClass="table table-striped table-hover Widthall" GridLines="None">
+                                <Columns>
+                                    <asp:BoundField HeaderText="Moneda" DataField="Moneda" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField HeaderText="Pagado" DataField="Pagado" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                                </Columns>
+                            </asp:GridView>
+                        </div>
+                    </div>
+
+
+
+                </div>
+            </div>
+
+            <div class="row" runat="server" id="DVMargenBruto" visible="false">
+                <div class="col-md-6" style="text-align:left;font-size:20px!important">
+                    Margen Bruto: <asp:Label runat="server" ID="LblMargenBruto"></asp:Label> MXN
+                </div>
+            </div>
+
+            <div class="row">
+                <div class="col-md-6">
+
+
+
+                    <div class="portlet light xspadding bordered  ">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">Ingresos Facturas</span>
+                            </div>
+                          <%--  <div class="actions">
+                                <div class="btn-group">
+                                    <div class="row ">
+                                        <div class="col-md-12">
+                                            <input type="text" id="TxtGvRepIngresosFact" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtGvRepIngresosFact','{0}')", GvRepIngresosFact.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtGvRepIngresosFact','{0}')", GvRepIngresosFact.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                        </div>
+
+                                    </div>
+                                </div>
+                            </div>--%>
+                             <div class="tools">
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+
+                            <div class="caption font-green portlet-total">
+                                <span id="SPRepIngresosFact" class="caption-subject bold uppercase" runat="server" />
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+                        </div>
+                        <div class="portlet-body">
+                            <asp:GridView ID="GvRepIngresosFact" DataKeyNames="CveMoneda,Fecha" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Cobrado"
+                                CssClass="table table-striped table-hover Widthall" GridLines="None">
+                                <Columns>
+                                    <asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField HeaderText="SerieFolio" DataField="SerieFolio" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField HeaderText="Importe" DataField="Importe" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                                </Columns>
+                            </asp:GridView>
+
+                        </div>
+                    </div>
+
+
+
+
+                </div>
+                <div class="col-md-6">
+
+
+
+                    <div class="portlet light xspadding bordered  ">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">Costos y Gastos</span>
+                            </div>
+                            <%--<div class="actions">
+                                <div class="btn-group">
+                                    <div class="row ">
+                                        <div class="col-md-12">
+                                            <input type="text" id="TxtGvRepCostosGastos" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtGvRepCostosGastos','{0}')", GvRepCostosGastos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtGvRepCostosGastos','{0}')", GvRepCostosGastos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                        </div>
+
+                                    </div>
+                                </div>
+                            </div>--%>
+                             <div class="tools">
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+
+                            <div class="caption font-green portlet-total">
+                                <span id="SPRepCostosGastos" class="caption-subject bold uppercase" runat="server" />
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+                        </div>
+                        <div class="portlet-body">
+                            <asp:GridView ID="GvRepCostosGastos" DataKeyNames="CveMoneda,CveClasificacion" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Pagado"
+                                CssClass="table table-striped table-hover Widthall" GridLines="None">
+                                <Columns>
+                                    <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField HeaderText="Importe" DataField="Importe" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
+                                </Columns>
+                            </asp:GridView>
+
+                        </div>
+                    </div>
+
+
+
+                </div>
+            </div>
+
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+ 
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>

Ventas/RepIndicadoresPorProyecto.aspx.vb

@@ -0,0 +1,204 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports System.Data
+Imports ADSNetLibrary.SIGAPI.Services.Generales
+Imports ADSNetLibrary.SIGAPI.Models.Generales.Request
+Imports ADSNetLibrary.SIGAPI.Models.Generales.Response
+Imports MoreLinq
+
+Partial Class Ventas_RepIndicadoresPorProyecto
+    Inherits ClsPaginas
+
+#Region "Propiedades"
+
+#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
+
+#Region "  INICIALIZA VALORES  "
+
+    Private Sub InicializaValores()
+        txtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString
+        txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+    End Sub
+
+#End Region
+
+#Region "  CARGA DATOS  "
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+    Private Sub CargaDatos()
+
+        If Not IsDate(txtFechaI.Text) Then
+            Alert("La fecha inicial no es valida.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If Not IsDate(txtFechaF.Text) Then
+            Alert("La fecha final no es valida.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
+
+        GvResumenCxC.DataSource = Nothing
+        GvResumenCxP.DataSource = Nothing
+        GvRepCobrado.DataSource = Nothing
+        GvRepPagado.DataSource = Nothing
+        GvRepIngresosFact.DataSource = Nothing
+        GvRepCostosGastos.DataSource = Nothing
+
+        Dim gralService = New GeneralesService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
+
+
+        Dim DatResumenCxC = gralService.GetResumenCxC(New RequestResumenCxC() With {.tipoDocto = "Ing",
+                                                   .cveUsuario = UsuarioActual.CveUsuario,
+                                                   .cveEmpresa = UsuarioActual.CveEmpresa,
+                                                   .cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
+                                                   .fechaInicial = txtFechaI.Text,
+                                                   .fechaFinal = txtFechaF.Text})
+
+        Dim DatResumenCxP = gralService.GetResumenCxP(New RequestResumenCxP() With {.tipoDocto = "Fac",
+                                                   .cveUsuario = UsuarioActual.CveUsuario,
+                                                   .cveEmpresa = UsuarioActual.CveEmpresa,
+                                                   .cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
+                                                   .fechaInicial = txtFechaI.Text,
+                                                   .fechaFinal = txtFechaF.Text})
+
+        Dim DatRepCobrado = gralService.RepCobrado(New RequestRepCobrado() With {.tipoDocto = "Ing",
+                                                   .cveUsuario = UsuarioActual.CveUsuario,
+                                                   .cveEmpresa = UsuarioActual.CveEmpresa,
+                                                   .cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
+                                                   .fechaInicial = txtFechaI.Text,
+                                                   .fechaFinal = txtFechaF.Text})
+
+        Dim DatRepPagado = gralService.RepPagado(New RequestRepPagado() With {.tipoDocto = "Fac",
+                                                   .cveUsuario = UsuarioActual.CveUsuario,
+                                                   .cveEmpresa = UsuarioActual.CveEmpresa,
+                                                   .cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
+                                                   .fechaInicial = txtFechaI.Text,
+                                                   .fechaFinal = txtFechaF.Text})
+
+        Dim DatRepIngresosFact = gralService.RepIngresosFact(New RequestRepIngresosFact() With {.tipoDocto = "Ing",
+                                                   .cveUsuario = UsuarioActual.CveUsuario,
+                                                   .cveEmpresa = UsuarioActual.CveEmpresa,
+                                                   .cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
+                                                   .fechaInicial = txtFechaI.Text,
+                                                   .fechaFinal = txtFechaF.Text})
+
+        Dim DatRepCostosGastos = gralService.RepCostosGastos(New RequestRepCostosGastos() With {.tipoDocto = "Fac",
+                                                   .cveUsuario = UsuarioActual.CveUsuario,
+                                                   .cveEmpresa = UsuarioActual.CveEmpresa,
+                                                   .cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
+                                                   .fechaInicial = txtFechaI.Text,
+                                                   .fechaFinal = txtFechaF.Text})
+
+        If DatResumenCxC.Result.Count > 0 Then
+            GvResumenCxC.DataSource = DatResumenCxC.Result.ToDataTable
+            SPResumenCxC.InnerText = $"Total: {DatResumenCxC.Result.ToDataTable.SUMD("saldoMN").ToString("###,###,###.00")} MXN"
+        End If
+        If DatResumenCxP.Result.Count > 0 Then
+            GvResumenCxP.DataSource = DatResumenCxP.Result.ToDataTable
+            SPResumenCxP.InnerText = $"Total: {DatResumenCxP.Result.ToDataTable.SUMD("saldoMN").ToString("###,###,###.00")} MXN"
+        End If
+        If DatRepCobrado.Result.Count > 0 Then
+            GvRepCobrado.DataSource = DatRepCobrado.Result.ToDataTable
+            SPRepCobrado.InnerText = $"Total: {DatRepCobrado.Result.ToDataTable.SUMD("cobradoMN").ToString("###,###,###.00")} MXN"
+        End If
+        If DatRepPagado.Result.Count > 0 Then
+            GvRepPagado.DataSource = DatRepPagado.Result.ToDataTable
+            SPRepPagado.InnerText = $"Total: {DatRepPagado.Result.ToDataTable.SUMD("pagadoMN").ToString("###,###,###.00")} MXN"
+        End If
+        If DatRepIngresosFact.Result.Count > 0 Then
+            GvRepIngresosFact.DataSource = DatRepIngresosFact.Result.ToDataTable.FiltraParametros("nRow <= 50")
+            SPRepIngresosFact.InnerText = $"Total: {DatRepIngresosFact.Result.ToDataTable.SUMD("importeMN").ToString("###,###,###.00")} MXN"
+        End If
+        If DatRepCostosGastos.Result.Count > 0 Then
+            GvRepCostosGastos.DataSource = DatRepCostosGastos.Result.ToDataTable.FiltraParametros("nRow <= 50")
+            SPRepCostosGastos.InnerText = $"Total: {DatRepCostosGastos.Result.ToDataTable.SUMD("importeMN").ToString("###,###,###.00")} MXN"
+        End If
+
+
+        LblMargenBruto.Text = $"{(DatRepIngresosFact.Result.ToDataTable.SUMD("importeMN") - DatRepCostosGastos.Result.ToDataTable.SUMD("importeMN")).ToString("###,###,###.00")}"
+
+        GvResumenCxC.DataBind()
+        GvResumenCxP.DataBind()
+        GvRepCobrado.DataBind()
+        GvRepPagado.DataBind()
+        GvRepIngresosFact.DataBind()
+        GvRepCostosGastos.DataBind()
+
+        DVMargenBruto.Visible = True
+
+        UpDatos.Update()
+
+    End Sub
+
+    Private Sub GvResumenCxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvResumenCxC.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim liga As String = $"../CxC/RepCxC.aspx?CveSubProyecto={DdlSubProyecto.SelectedValue}&FechaInicio={txtFechaI.Text}&FechaFin={txtFechaF.Text}&CveMoneda={e.Row.DataKey("CveMoneda")}&TipoDocto=Ing"
+            e.Row.Cells(0).Text = $"<a target='_blank' href='{liga}'>{e.Row.Cells(0).Text}</a>"
+            e.Row.Cells(1).Text = $"<a target='_blank' href='{liga}' >{e.Row.Cells(1).Text}</a>"
+            e.Row.Cells(2).Text = $"<a  target='_blank' href='{liga}'>{e.Row.Cells(2).Text}</a>"
+        End If
+
+    End Sub
+    Private Sub GvResumenCxP_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvResumenCxP.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim liga As String = $"../Compras/RepCxP.aspx?CveSubProyecto={DdlSubProyecto.SelectedValue}&FechaInicio={txtFechaI.Text}&FechaFin={txtFechaF.Text}&CveMoneda={e.Row.DataKey("CveMoneda")}&TipoDocto=Fac"
+            e.Row.Cells(0).Text = $"<a target='_blank' href='{liga}'>{e.Row.Cells(0).Text}</a>"
+            e.Row.Cells(1).Text = $"<a target='_blank' href='{liga}' >{e.Row.Cells(1).Text}</a>"
+            e.Row.Cells(2).Text = $"<a  target='_blank' href='{liga}'>{e.Row.Cells(2).Text}</a>"
+        End If
+    End Sub
+    Private Sub GvRepCobrado_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepCobrado.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim liga As String = $"../Ventas/RepRecuperacion.aspx?CveSubProyecto={DdlSubProyecto.SelectedValue}&FechaInicio={txtFechaI.Text}&FechaFin={txtFechaF.Text}&CveMoneda={e.Row.DataKey("CveMoneda")}&TipoDocto=Ing"
+            e.Row.Cells(0).Text = $"<a target='_blank' href='{liga}'>{e.Row.Cells(0).Text}</a>"
+            e.Row.Cells(1).Text = $"<a target='_blank' href='{liga}' >{e.Row.Cells(1).Text}</a>"
+        End If
+    End Sub
+    Private Sub GvRepPagado_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepPagado.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim liga As String = $"../Compras/RepPagado.aspx?CveSubProyecto={DdlSubProyecto.SelectedValue}&FechaInicio={txtFechaI.Text}&FechaFin={txtFechaF.Text}&CveMoneda={e.Row.DataKey("CveMoneda")}&TipoDocto=Fac"
+            e.Row.Cells(0).Text = $"<a target='_blank' href='{liga}'>{e.Row.Cells(0).Text}</a>"
+            e.Row.Cells(1).Text = $"<a target='_blank' href='{liga}' >{e.Row.Cells(1).Text}</a>"
+        End If
+    End Sub
+
+    Private Sub GvRepIngresosFact_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepIngresosFact.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DataKey("Fecha").ToString.Trim = "01/01/0001 12:00:00 a. m." Then
+                e.Row.CssClass = "Totales"
+                e.Row.Cells(0).Text = ""
+            End If
+        End If
+    End Sub
+    Private Sub GvRepCostosGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepCostosGastos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DataKey("CveClasificacion").ToString.Trim.ToEntero = 0 Then
+                e.Row.CssClass = "Totales"
+            End If
+        End If
+    End Sub
+
+
+#End Region
+
+#Region "  GV DATOS  "
+
+
+#End Region
+
+
+
+End Class

Ventas/RepRecuperacion.aspx

@@ -249,7 +249,19 @@
                                 <asp:ListItem Text="Crédito" Value="1"></asp:ListItem>
                                 <asp:ListItem Text="Contado" Value="0"></asp:ListItem>
                             </asp:DropDownList>
+
                         </div>
+
+                              <div class="col-md-1 truncate">
+                                Moneda:                       
+                            </div>
+                            <div class="col-md-2 truncate">
+                                <asp:DropDownList ID="DdlMoneda" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Text="Pesos" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Dolares" Value="2"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
                     </div>
                 </div>
             </div>

Ventas/RepRecuperacion.aspx.vb

@@ -48,12 +48,51 @@ Partial Class Ventas_RepRecuperacion
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaCombos()
-            'CargaDatos()
+            ProcesaRequest()
+            'CargaDatos()
         End If
-    End Sub
+    End Sub
-
+
 #Region "CARGAS"
-
+
+
+    Private Sub ProcesaRequest()
+
+        If Request("FechaInicio") IsNot Nothing AndAlso IsDate(Request("FechaInicio")) Then
+            txtFechaI.Text = Request("FechaInicio")
+        End If
+        If Request("FechaFin") IsNot Nothing AndAlso IsDate(Request("FechaFin")) Then
+            txtFechaF.Text = Request("FechaFin")
+        End If
+
+        If Request("TipoDocto") IsNot Nothing AndAlso Request("TipoDocto").Length > 0 Then
+            Dim tipodoctos As String() = Request("TipoDocto").Split(","c)
+
+            For Each itemTipoDocto As ListItem In DdlTipoDocto.Items
+                For Each tipoDocto As String In tipodoctos
+                    itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper)
+                Next
+            Next
+
+        End If
+
+        If Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero <> 0 Then
+            DdlMoneda.SelectedValueExist(Request("CveMoneda").ToEntero)
+        End If
+
+        If Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero <> 0 Then
+            DdlSubProyecto.SelectedValueExist(Request("CveSubProyecto").ToEntero)
+        End If
+
+        UPFiltros.Update()
+
+        If IsDate(txtFechaF.Text) AndAlso IsDate(txtFechaF.Text) Then
+            CargaDatos()
+        End If
+
+    End Sub
+
+
     Private Sub CargaCombos()
         'Carga Clientes
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
@@ -138,7 +177,8 @@ Partial Class Ventas_RepRecuperacion
         If ObjMovtos.GetRepRecuperacion(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
                                         "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue.ToString, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero,
                                         EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                        EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero) Then
+                                        EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero,
+                                        CveMoneda:=DdlMoneda.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados
         Else