From 7f38ecf4927e1dabab2ce4ff8328068f16d46d5f Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 30 Jun 2022 22:30:21 -0700
Subject: [PATCH] RepVentasPeriodo.aspx fecha inicial priomer dia del mes,
 error en grafica index

---
 Ventas/RepVentasPeriodo.aspx.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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