diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index 2f45a1c0b..3877a3cdb 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -122,6 +122,9 @@ Partial Class ListadoContratos
 
         CveContrato = GvRow.DataKey("CveContrato").ToEntero
         DdlClientes.SelectedValue = GvRow.DataKey("CveCliente")
+        If GvRow.DataKey("CveCliente").ToEntero > 0 Then
+            DdlClientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=GvRow.DataKey("CveCliente").ToEntero).FiltroPrimeroValor("NombreComercial")
+        End If
         TxtDescripcion.Text = GvRow.DataKey("DescripcionContrato")
         TxtObservaciones.Text = GvRow.DataKey("DescripcionContrato")
         TxtUbicacion.Text = GvRow.DataKey("Ubicacion")