diff --git a/Acumuladores/RepPolizasVirtuales.aspx b/Acumuladores/RepPolizasVirtuales.aspx
index 12906ffc6..b4e6a77ca 100644
--- a/Acumuladores/RepPolizasVirtuales.aspx
+++ b/Acumuladores/RepPolizasVirtuales.aspx
@@ -44,10 +44,7 @@
-
-
-
-
+
SubProyecto:
@@ -120,35 +117,41 @@
-
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Acumuladores/RepPolizasVirtuales.aspx.vb b/Acumuladores/RepPolizasVirtuales.aspx.vb
index bcc51a9dd..4ce6c4895 100644
--- a/Acumuladores/RepPolizasVirtuales.aspx.vb
+++ b/Acumuladores/RepPolizasVirtuales.aspx.vb
@@ -3,8 +3,6 @@ Imports Extensiones
Partial Class Acumuladores_RepPolizasVirtuales
Inherits ClsPaginas
-
-
Private Sub Acumuladores_RepPolizasVirtuales_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaCombos()
@@ -15,7 +13,7 @@ Partial Class Acumuladores_RepPolizasVirtuales
Private Sub CargaCombos()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)
-
+ txtFechaI.Text = DateTime.Now.FirstDayOfMonth.ToShortDateString()
End Sub
@@ -47,9 +45,6 @@ Partial Class Acumuladores_RepPolizasVirtuales
End Sub
-
-
-
Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs)
CargaDatos()
End Sub