--carga de datos para carta porte

Inventarios/EntradasSalidas.aspx.vb

@@ -699,7 +699,7 @@ Partial Class Inventarios_EntradasSalidas
         TxtFechaEntrega.Text = NowADS().ToShortDateString
         TxtFechaLlegada.Text = NowADS().ToShortDateString
 
-        'CargarCamiones()
+        CargarCamiones()
         DdlClienteCarta.setEsWebService(True)
 
     End Sub
@@ -5895,20 +5895,17 @@ Partial Class Inventarios_EntradasSalidas
 
 
     Public Sub CargarCamiones()
-
-        DdlConfigAuto.Items.Clear()
-        DdlUnidadCamion.Items.Clear()
         DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
-        DdlRemolque1.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
         DdlUnidadCamion.DataBind()
         DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+
+        DdlRemolque1.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
         DdlRemolque1.DataBind()
         DdlRemolque1.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
 
         DdlConfigAuto.DataSource = GlobalDTGralCartaPorteConfigAutoTransportes
         DdlConfigAuto.DataBind()
         DdlConfigAuto.Items.Insert(0, New ListItem("Seleccione una", "-1"))
-
     End Sub
 
     Private Sub EmitirTimbrado(CveTimbre As Integer, TipoDocto As String, CveMovimientoTimbrado As Integer, ByRef MensajeAlert As StringBuilder)