diff --git a/AF/PopUpBuscarAF.aspx b/AF/PopUpBuscarAF.aspx
index 7fc99c76c..f5313feb6 100644
--- a/AF/PopUpBuscarAF.aspx
+++ b/AF/PopUpBuscarAF.aspx
@@ -108,18 +108,18 @@
| Tipo de Activo Fijo: |
-
-
+
+
|
<%--
--%>
<%----%>
- | SubTipo de Activo Fijo: |
+ SubTipo de A.F: |
-
-
+
+
@@ -161,8 +161,8 @@
| Estado: |
-
-
+
+
@@ -171,8 +171,8 @@
--%>
| Responsable: |
-
-
+
+
|
@@ -181,8 +181,8 @@
Proyecto:
|
-
-
+
+
|
<%--
@@ -191,17 +191,18 @@
SubProyecto:
|
-
-
+
+
|
| Cliente: |
-
-
-
+
+ <%--
+
+ --%>
|
diff --git a/AF/PopUpBuscarAF.aspx.vb b/AF/PopUpBuscarAF.aspx.vb
index 864de32d2..cc61ddb46 100644
--- a/AF/PopUpBuscarAF.aspx.vb
+++ b/AF/PopUpBuscarAF.aspx.vb
@@ -189,7 +189,7 @@ Partial Class AF_PopUpBuscarAF
DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoActivoFijo = '" & DdlTipoActivoFijo.SelectedValue & "'")
'DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND CveTipoActivoFijo = '" & DdlTipoActivoFijo.SelectedValue & "'")
DdlSubTipoActivoFijo.DataBind()
- DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaCaracteristicas()
@@ -214,7 +214,7 @@ Partial Class AF_PopUpBuscarAF
' DdlModeloActivoFijo.Items.Clear()
' DdlModeloActivoFijo.DataSource = GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
' DdlModeloActivoFijo.DataBind()
- ' DdlModeloActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ ' DdlModeloActivoFijo.Items.Insert(0, New ListItem("Todos", "-1"))
'End Sub
Private Sub CargaMarcaActivoFijo()
'DdlMarcaActivoFijo.DataSource = GlobalDTMarcaActivoFijo.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -238,15 +238,18 @@ Partial Class AF_PopUpBuscarAF
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
- DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
+ DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaEstatusActivoFijo()
DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
DdlEstadoActivoFijo.DataBind()
End Sub
Private Sub CargaCliente()
- DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
- DdlCliente.DataBind()
+
+ DdlClientes.setEsWebService(True)
+
+ ' DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+ 'DdlCliente.DataBind()
End Sub
#End Region
@@ -265,7 +268,6 @@ Partial Class AF_PopUpBuscarAF
Dim CveProyecto As Integer = -1
Dim CveSubProyecto As Integer = -1
Dim EstadoActivoFijo As Integer = -1
- Dim CveCliente As Integer = -1
If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim
If TxtDescripcion.Text.Trim <> String.Empty Then Descripcion = TxtDescripcion.Text.Trim
@@ -278,7 +280,8 @@ Partial Class AF_PopUpBuscarAF
If DdlProyecto.SelectedValue <> String.Empty Then CveProyecto = DdlProyecto.SelectedValue.ToEntero
If DdlSubProyecto.SelectedValue <> String.Empty Then CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
If DdlEstadoActivoFijo.SelectedValue <> String.Empty Then EstadoActivoFijo = DdlEstadoActivoFijo.SelectedValue.ToEntero
- If DdlCliente.SelectedValue <> String.Empty Then CveCliente = DdlCliente.SelectedValue.ToEntero
+ 'If DdlCliente.SelectedValue <> String.Empty Then CveCliente = DdlCliente.SelectedValue.ToEntero
+ Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
Dim strSQL1 As New StringBuilder
Dim booPrimerCampo As Boolean = False