AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

RepVentasPeriodo.aspx fecha inicial priomer dia del mes, error en grafica index

Browse Source
This commit is contained in:
rakcsle
2022-06-30 22:30:21 -07:00
parent 0c05d9ca61
commit 7f38ecf492
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/RepVentasPeriodo.aspx.vb
View File

@@ -62,6 +62,9 @@ Partial Class RepVentasPeriodo
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
txtFechaI.Text = Now.FirstDayOfMonth.ToString("dd/MM/yyyy")
TipoCambio = 1 TipoCambio = 1
TCEspecifico = -1 TCEspecifico = -1
If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") 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 moneda As String = DbRow("Moneda").ToString
Dim total As String = DbRow("GPO").ToString Dim total As String = DbRow("GPO").ToString
If total <> "Total Pesos" Then 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) Info = String.Format("{2}['{1}',{0}],", DbRow(ColValue), DbRow(ColTitle), Info)
End If End If
End If End If