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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-25 07:35:45 -07:00
parent 7789b60482
commit 6ac06a9649
21 changed files with 76 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/CatAutorizacionLimites.aspx.vb
View File

@@ -223,7 +223,7 @@ Partial Class Ventas_CatAutorizacionLimites
Dim LimiteCredito = gvRow.DataKey("LimiteCredito").ToDecimal()
'SI EL LIMITE ES 0, PERMITE AUTORIZAR
If LimiteCredito > 0 Then
Dim PorcentajeMaximoAutorizar As Decimal = 0.1
Dim PorcentajeMaximoAutorizar As Decimal = 0.1D
If UsuarioActual.PorcentajeMaximoAutorizacion > 0 Then
PorcentajeMaximoAutorizar = (UsuarioActual.PorcentajeMaximoAutorizacion / 100)
@@ -351,7 +351,7 @@ Partial Class Ventas_CatAutorizacionLimites
StrFiltro.AppendFormat("Vendedor: {0}, ", DdlVendedorFiltro.SelectedItem)
StrFiltro.AppendFormat("Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToString("dd/MM/yyyy"))
'If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(", Fecha Fin: {0}", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"))
Dim fechaFin As String = IIf(txtFechaF.Text <> "", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"), Now.ToString("dd/MM/yyyy"))
Dim fechaFin As String = If(txtFechaF.Text <> "", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"), Now.ToString("dd/MM/yyyy"))
StrFiltro.AppendFormat(", Fecha Fin: {0}", fechaFin)
'Oculta columnas en export sin afectar GridView en página

4
Ventas/CatCobranzaEstatus.aspx.vb
View File

@@ -50,7 +50,7 @@ Partial Class Vta_CatCobranzaEstatus
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveCobranzaEstatus = GvRow.DataKey("CveCobranzaEstatus").ToEntero
TxtEstatusCobranza.Text = GvRow.DataKey("CobranzaEstatus").ToString
ChkEstatus.Checked = GvRow.DataKey("Estatus")
ChkEstatus.Checked = GvRow.DataKey("Estatus") = "True"
BtnAgregarEstatusCobranza.Text = "Actualizar"
UpAddEstatus.Update()
RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusCobranza"))
@@ -115,7 +115,7 @@ Partial Class Vta_CatCobranzaEstatus
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveCobranzaEstatusTurno = GvRow.DataKey("CveCobranzaEstatusTurno").ToEntero
TxtEstatusCobranzaTurno.Text = GvRow.DataKey("CobranzaEstatusTurno").ToString
ChkEstatusTurno.Checked = GvRow.DataKey("Estatus")
ChkEstatusTurno.Checked = GvRow.DataKey("Estatus") = "True"
BtnAgregarEstatusCobranzaTurno.Text = "Actualizar"
UpAddEstatusTurno.Update()
RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusCobranzaTurno"))

28
Ventas/CatDocumentosClientes.aspx.vb
View File

@@ -92,7 +92,7 @@ Partial Class Vta_CatDocumentosClientes
Property Estatus As Boolean
Get
If ViewState("Estatus") Is Nothing Then
Return 0
Return False
Else
Return DirectCast(ViewState("Estatus"), Boolean)
End If
@@ -132,7 +132,7 @@ Partial Class Vta_CatDocumentosClientes
Property DiasLimite As Integer
Get
If ViewState("DiasLimite") Is Nothing Then
Return True
Return 1
Else
Return DirectCast(ViewState("DiasLimite"), Integer)
End If
@@ -257,26 +257,26 @@ Partial Class Vta_CatDocumentosClientes
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveDocumentacion = GvRow.DataKey("CveDocumentacion")
CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToEntero
Documentacion = GvRow.DataKey("Documentacion")
DocumentacionFormato = GvRow.DataKey("DocumentacionFormato")
CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo")
CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo").ToEntero
DocumentacionTipo = GvRow.DataKey("DocumentacionTipo")
Orden = GvRow.DataKey("Orden")
Estatus = GvRow.DataKey("Estatus")
Requerido = GvRow.DataKey("Requerido")
Orden = GvRow.DataKey("Orden").ToEntero
Estatus = GvRow.DataKey("Estatus") = "True"
Requerido = GvRow.DataKey("Requerido") = "True"
DiasLimite = GvRow.DataKey("DiasLimite").ToEntero
AplicaDiasLimite = If(GvRow.DataKey("AplicaDiasLimite").ToEntero = 1, True, False)
AplicaFechaVencimiento = If(GvRow.DataKey("AplicaFechaVencimiento").ToEntero = 1, True, False)
Txtdocumentacion.Text = Documentacion
TxtOrden.Text = Orden
TxtOrden.Text = Orden.ToString
DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo)
chkEstatus.Checked = Estatus
chkRequerido.Checked = Requerido
TxtDiasLimite.Text = DiasLimite
TxtDiasLimite.Text = DiasLimite.ToString
ChkAplicaDiasLimite.Checked = AplicaDiasLimite
ChkAplicaFechaVencimiento.Checked = AplicaFechaVencimiento
@@ -339,7 +339,7 @@ Partial Class Vta_CatDocumentosClientes
Public Sub Remove_ClickDocumentacion(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion")
Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero
Dim _documetacionFormato As String = GvRow.DataKey("DocumentacionFormato")
@@ -384,7 +384,7 @@ Partial Class Vta_CatDocumentosClientes
If ActualizarDocumentacion Then
_formato = GuardarArchivo(CveDocumentacion)
If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.CveEmpresa) Then
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion"))
Alert("Documento Actualizado correctamente.", TipoMensaje.MsgInformacion)
@@ -392,11 +392,11 @@ Partial Class Vta_CatDocumentosClientes
End If
Else
If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.CveEmpresa) Then
CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero
_formato = GuardarArchivo(CveDocumentacion)
If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.CveEmpresa) Then
End If
@@ -421,7 +421,7 @@ Partial Class Vta_CatDocumentosClientes
Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString.ToEntero
Dim DocumetacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
Dim separado As Char() = {"."}
Dim separado As Char() = {"."c}
Dim array() As String = DocumetacionFormato.Split(separado)
Dim extencion As String = ""

8
Ventas/CatMetasVendedores.aspx.vb
View File

@@ -15,7 +15,7 @@ Partial Class CatMetasVendedores
Private Property DtDatos() As DataTable
Get
Return ViewState("DtDatos")
Return CType(ViewState("DtDatos"), DataTable)
End Get
Set
ViewState("DtDatos") = Value
@@ -97,7 +97,7 @@ Partial Class CatMetasVendedores
Dim ObjVentas As New ClsVentas
If BtnAgregarMetaVendedor.Text = "Agregar" Then
If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero,
If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero,
TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
Alert("Se agregó la meta al vendedor")
Else
@@ -324,8 +324,8 @@ Partial Class CatMetasVendedores
Dim CveClasificacion2 As Integer = DtClasificaciones2.FiltroPrimeroValor("CveClasificacion", String.Format("trim(Clasificacion)='{0}'", row("Clasificación").ToString().TrimStart().TrimEnd())).ToEntero
Dim CveMarca As Integer = DtMarcas.FiltroPrimeroValor("CveMarca", String.Format("Marca='{0}'", row("Marca").ToString().TrimStart().TrimEnd())).ToEntero
Dim Mes As Decimal = row("Mes").ToString().ToDecimal()
Dim Anio As Decimal = row("Año").ToString().ToDecimal()
Dim Mes As Integer = row("Mes").ToString().ToEntero()
Dim Anio As Integer = row("Año").ToString().ToEntero()
Dim Cantidad As Decimal = row("Cantidad").ToString().ToDecimal()
Dim Importe As Decimal = row("Importe").ToString().ToDecimal()

6
Ventas/MetasVendedores.aspx.vb
View File

@@ -57,7 +57,7 @@ Partial Class MetasVendedores
End If
Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text.ToDate, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlDistribuidor.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then
GV.DataSource = ObjVentas.DtResultados
@@ -109,7 +109,7 @@ Partial Class MetasVendedores
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("FechaImpresion", Today))
params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))
@@ -124,7 +124,7 @@ Partial Class MetasVendedores
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("FechaImpresion", Today))
params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))

2
Ventas/PuntoVenta.aspx.vb
View File

@@ -43,7 +43,7 @@ Partial Class Ventas_PuntoVenta
' Return a base 64 encoded string of the Hash value
Dim i As Integer
For i = 0 To byteHash.Length - 1
Respuesta = Respuesta + Hex(byteHash(i)).ToString.PadLeft(2, "0")
Respuesta = Respuesta + Hex(byteHash(i)).ToString.PadLeft(2, "0"c)
Next
Return Respuesta

2
Ventas/RepIngresosDetalle.aspx.vb
View File

@@ -75,7 +75,7 @@ Partial Class Ventas_RepIngresosDetalle
RsFechaI = If(IsNothing(Request("RsFechaI")), "", Request("RsFechaI").ToString())
RsFechaF = If(IsNothing(Request("RsFechaF")), "", Request("RsFechaF").ToString())
TipoDoc = If(IsNothing(Request("TipoDoc")), "", Request("TipoDoc").ToString())
CveCuenta = If(IsNothing(Request("CveCuenta")), "", Request("CveCuenta").ToString())
CveCuenta = If(IsNothing(Request("CveCuenta")), "", Request("CveCuenta").ToString()).ToEntero
CveSubProyecto = If(IsNothing(Request("CveSubProyecto")), 0, Request("CveSubProyecto").ToString().ToEntero())
CveConceptoContable = If(IsNothing(Request("CveConceptoContable")), -1, Request("CveConceptoContable").ToString().ToEntero())
TipoAmortizacion = If(IsNothing(Request("TipoAmortizacion")), -1, Request("TipoAmortizacion").ToString().ToEntero())

10
Ventas/RepVentasMensuales.aspx.vb
View File

@@ -50,7 +50,7 @@ Partial Class RepVentasMensuales
Private Sub CargaDatos()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepVentasMensuales(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacionesPS.SelectedValue.ToEntero,
If ObjVentas.GetRepVentasMensuales(UsuarioActual.CveEmpresa, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacionesPS.SelectedValue.ToEntero,
DdlVendedor.SelectedValue.ToEntero, DdlMarca.SelectedValue.ToEntero, DdlModalidad.SelectedValue.ToEntero) Then
GV.DataSource = ObjVentas.DtResultados
DtDatos = ObjVentas.DtResultados
@@ -72,7 +72,7 @@ Partial Class RepVentasMensuales
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("FechaImpresion", Today))
params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
params.Add(New ReportParameter("Modalidad", DdlModalidad.SelectedValue))
ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensuales.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1")
@@ -90,10 +90,10 @@ Partial Class RepVentasMensuales
CveCliente = e.Row.DataKey("Clave").ToEntero
CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
Else
CveSubProyecto = e.Row.DataKey("Clave")
CveSubProyecto = e.Row.DataKey("Clave").ToEntero
End If
Dim FechaInicio As Date = TxtFechaI.Text
Dim FechaFin As Date = TxtFechaF.Text
Dim FechaInicio As Date = TxtFechaI.Text.ToDate
Dim FechaFin As Date = TxtFechaF.Text.ToDate
Dim CveMarca As Integer = DdlMarca.SelectedValue.ToEntero
Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero
Dim URL As String = String.Format("/Ventas/RepVentasMensualesDetalle.aspx?CveCliente={0}&CveSubProyecto={1}&FechaInicio={2}&FechaFin={3}&CveMarca={4}&CveVendedor={5}",

16
Ventas/RepVentasMensualesDetalle.aspx.vb
View File

@@ -24,12 +24,12 @@ Partial Class RepVentasMensualesDetalle
Private Sub CargaDatos()
'URL DE PRUEBA
'/Ventas/RepVentasMensualesDetalle.aspx?CveCliente=270821&CveSubProyecto=-1&FechaInicio=2020-02-15&FechaFin=2020-02-20&CveMarca=-1&CveVendedor=-1
Dim FechaInicio As Date = Request.QueryString("FechaInicio")
Dim FechaFin As Date = Request.QueryString("FechaFin")
Dim CveCliente As Integer = Request.QueryString("CveCliente")
Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto")
Dim CveMarca As Integer = Request.QueryString("CveMarca")
Dim CveVendedor As Integer = Request.QueryString("CveVendedor")
Dim FechaInicio As Date = Request.QueryString("FechaInicio").ToDate
Dim FechaFin As Date = Request.QueryString("FechaFin").ToDate
Dim CveCliente As Integer = Request.QueryString("CveCliente").ToEntero
Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto").ToEntero
Dim CveMarca As Integer = Request.QueryString("CveMarca").ToEntero
Dim CveVendedor As Integer = Request.QueryString("CveVendedor").ToEntero
Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepVentasMensualesDetalle(UsuarioActual.CveEmpresa, CveCliente, FechaInicio, FechaFin, CveSubProyecto, CveVendedor, CveMarca) Then
@@ -48,8 +48,8 @@ Partial Class RepVentasMensualesDetalle
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("FechaImpresion", Today))
params.Add(New ReportParameter("Modalidad", 2))
params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
params.Add(New ReportParameter("Modalidad", "2"))
ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensualesDetalle.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1")
End Sub

6
Ventas/RepVentasResumen.aspx.vb
View File

@@ -84,7 +84,7 @@ Partial Class Ventas_RepVentasResumen
Dim ObjVentas As New ClsVentas
Dim ObjMovtos As New ClsMovimientos()
If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1,
If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, MinFecha, MaxFecha, -1,
-1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then
VxP = ObjVentas.DtResultados
GvVxP.DataSource = VxP
@@ -93,7 +93,7 @@ Partial Class Ventas_RepVentasResumen
VxP = Nothing
End If
If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1,
If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), MinFecha, MaxFecha, -1,
-1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 10, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then
VxC = ObjVentas.DtResultados
GvVxC.DataSource = VxC
@@ -103,7 +103,7 @@ Partial Class Ventas_RepVentasResumen
VxC = Nothing
End If
If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, -1, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
Datos = ObjVentas.DtResultados
GvPxC.DataSource = Datos
Else