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

-- formato numero

Browse Source
This commit is contained in:
rrene
2024-01-11 05:58:54 -07:00
parent 08a26423c9
commit 9c490b6184
4 changed files with 18 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Ventas/RepVentas.aspx.vb
View File

@@ -390,7 +390,7 @@ Partial Class Ventas_RepVentas
CveMoneda = e.Row.DBCampo("CveMoneda").ToString.ToEntero
End If
Dim CveSubProyecto = "-1", CveProyecto = "-1"
Dim CveSubProyecto As String = "-1", CveProyecto As String = "-1"
If DdlGrupo.SelectedValue.ToEntero = 19 Then
CveSubProyecto = e.Row.DBCampo("CveCentroCosto")
CveProyecto = e.Row.DBCampo("CveCentroCostoProyecto")
@@ -411,7 +411,7 @@ Partial Class Ventas_RepVentas
If e.Row.DBCampo("Mes").ToEntero() > 0 Then
Dim Anio As Integer = FechaFRef.Year
Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero()
Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes)
Dim lastDayOfMonth As Integer = DateTime.DaysInMonth(Anio, Mes)
Dim Dia As Integer = FechaFRef.Day
@@ -423,7 +423,7 @@ Partial Class Ventas_RepVentas
FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy")
End If
Dim FechaFinalRef = New DateTime(Anio, Mes, Dia)
Dim FechaFinalRef As New DateTime(Anio, Mes, Dia)
'ASIGNAR LA FECHA FINAL DEL GRUPO, SI ES MENOR A LA FECHA DEL FILTRO
If FechaF <> "-1" Then
@@ -435,9 +435,6 @@ Partial Class Ventas_RepVentas
Else
FechaFinal = FechaFinalRef.ToString("dd/MM/yyyy")
End If
End If
Case 3 ' AÑO/MES
@@ -445,13 +442,13 @@ Partial Class Ventas_RepVentas
Dim FechaFRef As DateTime = FechaF.ToDateTime()
Dim separator As Char = "/".ToCharArray().FirstOrDefault()
Dim AnioMes = e.Row.DBCampo("AnioMes").Split(separator)
Dim AnioMes As String() = e.Row.DBCampo("AnioMes").Split(separator)
Dim Anio As Integer = AnioMes(0).ToEntero()
Dim Mes As Integer = AnioMes(1).ToEntero()
If Anio > 0 AndAlso Mes > 0 Then
Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes)
Dim lastDayOfMonth As Integer = DateTime.DaysInMonth(Anio, Mes)
Dim DiaFinal As Integer = FechaFRef.Day
@@ -469,8 +466,7 @@ Partial Class Ventas_RepVentas
End If
End If
Dim FechaFinalRef = New DateTime(Anio, Mes, DiaFinal)
Dim FechaFinalRef As New DateTime(Anio, Mes, DiaFinal)
'ASIGNAR LA FECHA FINAL DEL GRUPO, SI ES MENOR A LA FECHA DEL FILTRO
If FechaF <> "-1" Then
If FechaFRef < FechaFinalRef Then
@@ -504,7 +500,6 @@ Partial Class Ventas_RepVentas
e.Row.Attributes.Add("style", "background:#CCCCCC !important")
End If
If DdlGrupo.SelectedValue.ToEntero = 21 Then
If e.Row.DBCampo("GPO").Contains("Total") Then
e.Row.CssClass = "Totales"
@@ -517,8 +512,6 @@ Partial Class Ventas_RepVentas
e.Row.Cells(6).BackColor = Drawing.Color.Transparent
End If
End If
End If
End If
End Sub
@@ -818,9 +811,8 @@ Partial Class Ventas_RepVentas
If DdlClienteClasificacion.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Clasificación Cliente</b>: {0}", DdlClienteClasificacion.SelectedItem.Text)
If DdlCondicionesPago.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Condiciones Pago</b>: {0}", DdlCondicionesPago.SelectedItem.Text)
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim dt As DataTable = DtVentas '.FiltraParametros("", "Orden") '.FiltraParametros("Total > 0", DistinctColumns:={"GPO", "Cantidad", "SubTotal", "Descuento", "Amortizacion", "IVA", "Total"})
Dim FechaI, FechaF As String
FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -964,7 +956,7 @@ Partial Class Ventas_RepVentas
End Sub
Private Sub CalcularIntervaloRepHP()
Dim PrevMondayDate = DateTime.Today.AddDays(-Weekday(Today.AddDays(-1), Microsoft.VisualBasic.FirstDayOfWeek.Monday))
Dim PrevMondayDate As Date = DateTime.Today.AddDays(-Weekday(Today.AddDays(-1), Microsoft.VisualBasic.FirstDayOfWeek.Monday))
Dim Sunday As DateTime = PrevMondayDate.AddDays(6)
txtFechaIHP.Text = PrevMondayDate.ToString("dd/MM/yyyy")