RepPolizasVirtuales

Acumuladores/RepPolizasVirtuales.aspx

@@ -45,9 +45,17 @@
                         <div class="row">
 
 
-                                 <div class="col-md-1 truncate">
-                                Fecha Inicio:
-                           
+
+
+                            <asp:Label  runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</asp:Label>
+                            <div runat="server"  class="col-md-2">
+                                 
+                                <asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall"  runat="server"  Width="100%" ></asp:DropDownList>                            
+                                 
+                            </div>
+
+                             <div class="col-md-1 truncate">
+                                Fecha Inicio:                           
                             </div>
                             <div class="col-md-1" style="min-width: 115px">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">

Acumuladores/RepPolizasVirtuales.aspx.vb

@@ -7,14 +7,16 @@ Partial Class Acumuladores_RepPolizasVirtuales
 
     Private Sub Acumuladores_RepPolizasVirtuales_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-
+            CargaCombos()
         End If
     End Sub
 
+    Private Sub CargaCombos()
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)
 
 
-
-
+    End Sub
 
     Public Sub CargaDatos()
 
@@ -25,7 +27,7 @@ Partial Class Acumuladores_RepPolizasVirtuales
         Dim FI As Date = If(txtFechaI.Text.Length > 0, txtFechaI.Text.ToDate, MinFecha)
         Dim FF As Date = If(txtFechaF.Text.Length > 0, txtFechaF.Text.ToDate, MaxFecha)
 
-        If ObjAcum.GetPolizaVirtualRep(FI, FF, DdlOpcion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If ObjAcum.GetPolizaVirtualRep(FI, FF, DdlOpcion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.Toentero, UsuarioActual.CveUsuario) Then
             GvDatos.DataSource = ObjAcum.DtResultados
 
             If ObjAcum.DtResultados.Rows.Count > 0 Then