Prellenar los datos del Chofer en Traspaso de Almacen

Inventarios/TraspasoAlmacen.aspx.vb

@@ -377,7 +377,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
         'Llena Choferes
         Dim ObjAcar As New ClsAcarreos()
-        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1, -1) Then
+        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) Then
             DldChofer.DataSource = ObjAcar.DtResultados
             DldChofer.DataBind()
         End If
@@ -2408,5 +2408,19 @@ Partial Class Inventarios_TraspasoAlmacen
 
 #End Region
 
+    Protected Sub DldChofer_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim ObjAcar As New ClsAcarreos()
 
+        If ObjAcar.GetChofer(DldChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, -1) Then
+            Dim dr As DataRow = ObjAcar.DtResultados.Rows(0)
+            If dr IsNot Nothing Then
+                TxtIdentificacion.Text = dr("Identificacion").ToString
+                TxtDomicilio.Text = dr("Domicilio").ToString
+                TxtTelefono.Text = dr("Telefono").ToString
+                TxtCiudad.Text = dr("Ciudad").ToString
+                TxtLicencia.Text = dr("Licencia").ToString
+            End If
+        End If
+        ObjAcar.Dispose()
+    End Sub
 End Class