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

validación de campos en los pop up

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-05-29 19:57:48 -07:00
parent 03e14625a4
commit 58ab0499d0
12 changed files with 325 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
Compras/PopUpBuscarProveedor.aspx.vb
View File

@@ -60,15 +60,19 @@ Partial Class Compras_PopUpBuscarProveedor
If TxtTelefono.Text.Trim <> String.Empty Then Telefono = TxtTelefono.Text.Trim
CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, Codigo, RazonSocial, NombreComercial, NombreCorto, RFC, Contacto, Telefono, -1, UsuarioActual.CveEmpresa, CveTipoProveedor:=CveTipoProveedor) Then
If ObjProveedor.DtResultados.Rows.Count > 0 Then
LtlTotalRegistros.Text = ObjProveedor.DtResultados.Rows.Count.ToString.FormatoNumero(0)
GV.DataSource = ObjProveedor.DtResultados
Else
LtlTotalRegistros.Text = "0"
GV.DataSource = Nothing
Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
If ValidarUnFiltroSeleccionado() Then
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, Codigo, RazonSocial, NombreComercial, NombreCorto, RFC, Contacto, Telefono, -1, UsuarioActual.CveEmpresa, CveTipoProveedor:=CveTipoProveedor) Then
If ObjProveedor.DtResultados.Rows.Count > 0 Then
LtlTotalRegistros.Text = ObjProveedor.DtResultados.Rows.Count.ToString.FormatoNumero(0)
GV.DataSource = ObjProveedor.DtResultados
Else
LtlTotalRegistros.Text = "0"
GV.DataSource = Nothing
Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
End If
End If
Else
Alert("Seleccione un criterio de búsqueda", TipoMensaje.MsgAdvertencia)
End If
ObjProveedor.Dispose()
@@ -106,7 +110,7 @@ Partial Class Compras_PopUpBuscarProveedor
Case Else
Liga = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>", e.Row.DBCampo("CveProveedor"))
End Select
e.Row.FCLiteral("LtlCodigo").Text = String.Format("<div class='truncate' style='width:55px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Codigo"))
e.Row.FCLiteral("LtlRazonSocial").Text = String.Format("<div class='truncate' style='width:165px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("RazonSocial"))
e.Row.FCLiteral("LtlNombreComercial").Text = String.Format("<div class='truncate' style='width:165px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("NombreComercial"))
@@ -115,4 +119,16 @@ Partial Class Compras_PopUpBuscarProveedor
e.Row.FCLiteral("LtlContacto").Text = String.Format("<div class='truncate' style='width:65px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("ContactoNombre"))
End If
End Sub
Private Function ValidarUnFiltroSeleccionado() As Boolean
If TxtCodigo.Text.Trim <> String.Empty Then Return True
If TxtRazonSocial.Text.Trim <> String.Empty Then Return True
If TxtNombreComercial.Text.Trim <> String.Empty Then Return True
If TxtNombreCorto.Text.Trim <> String.Empty Then Return True
If TxtRFC.Text.Trim <> String.Empty Then Return True
If TxtContacto.Text.Trim <> String.Empty Then Return True
If TxtTelefono.Text.Trim <> String.Empty Then Return True
If DdlTipoProveedor.SelectedValue.ToEntero > 0 Then Return True
Return False
End Function
End Class