diff --git a/Ventas/RepVentasPeriodo.aspx.vb b/Ventas/RepVentasPeriodo.aspx.vb
index 4b3a3f091..42c65fb22 100644
--- a/Ventas/RepVentasPeriodo.aspx.vb
+++ b/Ventas/RepVentasPeriodo.aspx.vb
@@ -62,6 +62,9 @@ Partial Class RepVentasPeriodo
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+
+            txtFechaI.Text = Now.FirstDayOfMonth.ToString("dd/MM/yyyy")
+
             TipoCambio = 1
             TCEspecifico = -1
             If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
@@ -397,7 +400,7 @@ Partial Class RepVentasPeriodo
                 Dim moneda As String = DbRow("Moneda").ToString
                 Dim total As String = DbRow("GPO").ToString
                 If total <> "Total Pesos" Then
-                    If moneda = "Pesos" Then
+                    If moneda = "Peso Mexicano" Then
                         Info = String.Format("{2}['{1}',{0}],", DbRow(ColValue), DbRow(ColTitle), Info)
                     End If
                 End If