se agrego un nuevo catalogo, la tabla se llama inv_camiones

Inventarios/TraspasoAlmacen.aspx.vb

@@ -422,7 +422,7 @@ Partial Class Inventarios_TraspasoAlmacen
         SiguienteFolio(If(ChkTransitorio.Checked, 9, 8))
 
         'DdlProducto.DataBind()
-
+        CargarCamiones()
     End Sub
     Private Sub CargaAlmacenOrigen()
         DdlAlmacenOrigen.Enabled = True
@@ -2779,4 +2779,22 @@ Partial Class Inventarios_TraspasoAlmacen
         Return dataTable
     End Function
 
+    Public Sub CargarCamiones()
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+            DdlUnidadCamion.DataSource = ObjInventarios.DtResultados
+        End If
+        ObjInventarios.Dispose()
+        DdlUnidadCamion.DataBind()
+    End Sub
+    Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa) Then
+            RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
+            CargarCamiones()
+            TxtPlacaNuevo.Text = ""
+            TxtEspecificacionNuevo.Text = ""
+        End If
+        ObjInventarios.Dispose()
+    End Sub
 End Class