Parametros nuevos en catalogo de choferes y vehiculos

Inventarios/TraspasoAlmacen.aspx.vb

@@ -3214,18 +3214,36 @@ Partial Class Inventarios_TraspasoAlmacen
         ObjInventarios.Dispose()
         DdlUnidadCamion.Items.Insert(0, New ListItem("Otro", "-1"))
         DdlUnidadCamion.DataBind()
+
+        Using ObjGral As New ClsGenerales
+            If ObjGral.GetCartaPorteConfigAutoTransportes() Then
+                DdlConfigAuto.DataSource = ObjGral.DtResultados
+            End If
+        End Using
+
+        DdlConfigAuto.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
+        If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa) Then
             RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
             CargarCamiones()
-            TxtPlacaNuevo.Text = ""
-            TxtEspecificacionNuevo.Text = ""
+            LimpiarAgregarCamion()
         End If
         ObjInventarios.Dispose()
     End Sub
 
+    Private Sub LimpiarAgregarCamion()
+        TxtPlacaNuevo.Text = ""
+        TxtEspecificacionNuevo.Text = ""
+        TxtAnio.Text = ""
+        TxtTipoPermisoSCT.Text = ""
+        TxtNumermisoSCT.Text = ""
+        TxtNombreAseguradora.Text = ""
+        TxtNumPolizaSeguro.Text = ""
+    End Sub
+
     Private Sub DdlUnidadCamion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUnidadCamion.SelectedIndexChanged
         If DdlUnidadCamion.SelectedValue = "-1" Then
             'divPlacaEspecificacion.Visible = True