Ventas/RepAuxiliarFacturas.aspx.vb

@@ -58,7 +58,8 @@ Partial Class Ventas_RepAuxiliarFacturas
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
+        If Not IsPostBack Then
+            txtFechaI.Text = String.Format("01{0:/MM/yyyy}", DateTime.Now)
             CargaCombos()
         End If
     End Sub
@@ -208,8 +209,7 @@ Partial Class Ventas_RepAuxiliarFacturas
         UPDatos.Update()
     End Sub
 
-    Private Sub CargaDatos()
-
+    Private Sub CargaDatos()
         Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
         Dim FechaI, FechaF As Date
         FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)