-* mejoras en columnas

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