diff --git a/AF/AF.aspx b/AF/AF.aspx
index c14f4ae7a..45bef88cd 100644
--- a/AF/AF.aspx
+++ b/AF/AF.aspx
@@ -428,12 +428,10 @@
-
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index dce43d4f1..8dad34b1f 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -381,7 +381,7 @@ Partial Class AF_AF
CargaEstatusActivoFijo()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto)
RowProyecto.Visible = DdlProyecto.Visible
- CargaCliente()
+ 'CargaCliente()
CargaGrupos()
CargaMarcas()
CargaTiposAgenda()
@@ -471,10 +471,10 @@ Partial Class AF_AF
DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
DdlEstadoActivoFijo.DataBind()
End Sub
- Private Sub CargaCliente()
- DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
- DdlClientes.DataBind()
- End Sub
+ 'Private Sub CargaCliente()
+ ' DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+ ' DdlClientes.DataBind()
+ 'End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto()
@@ -667,8 +667,11 @@ Partial Class AF_AF
DdlResponsable.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CvePersonaResponsable").ToString
DdlProyecto.SelectedValue = ObjActivoFijo.CveProyecto.ToString
CargaSubProyecto()
- DdlSubProyecto.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveSubProyecto").ToString
- DdlClientes.SelectedValueExist(ObjActivoFijo.CveCliente)
+ DdlSubProyecto.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveSubProyecto").ToString
+ Ddlclientes.SelectedValue = ObjActivoFijo.CveCliente.ToString
+ If ObjActivoFijo.CveCliente > 0 Then
+ Ddlclientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=ObjActivoFijo.CveCliente).FiltroPrimeroValor("NombreComercial")
+ End If
DdlMarcas.SelectedValueExist(ObjActivoFijo.CveMarcaActivoFijo)
CargaModelos(DdlMarcas.SelectedValue.ToEntero)
DdlModelos.SelectedValueExist(ObjActivoFijo.CveModeloActivoFijo)