From 777ef72d221d8b801dbff7dbfd38e2865b802b2e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 May 2023 12:48:22 -0700
Subject: [PATCH] -- cargar clientes de carta porte

---
 Inventarios/EntradasSalidas.aspx    |  2 +-
 Inventarios/EntradasSalidas.aspx.vb | 32 +----------------------------
 2 files changed, 2 insertions(+), 32 deletions(-)

diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index 6005f6427..e66bfc7f7 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -697,7 +697,7 @@
                                              <label class="col-md-3">Cliente:</label>
                                              <div class="col-md-9">
                                              <%-- <ads:DropDownLost ID="s" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteCarta_SelectedIndexChanged" AppendDataBoundItems="true" runat="server" CssClass="form-control input-sm select2me" DataTextField="NombreComercial" DataValueField="CveCliente"></ads:DropDownLost>--%>
-                                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteCarta" Width="100%" data-metodo="getcliente" Onselectedindexchange="DdlClienteCarta_SelectedIndexChanged"  runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteCarta" Width="100%" data-metodo="getcliente"  Onselectedindexchange="DdlClienteCarta_SelectedIndexChanged"  runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                                              </div>
                                           </div>
                                           <div class="row rowpadding"  >
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index a73301e22..5c74dc695 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -686,8 +686,7 @@ Partial Class Inventarios_EntradasSalidas
         TxtFechaLlegada.Text = Now.ToShortDateString
 
         CargarCamiones()
-
-        CargaClientesCarta()
+        DdlClienteCarta.setEsWebService(True)
 
     End Sub
     Private Sub CargaPS()
@@ -5906,18 +5905,11 @@ Partial Class Inventarios_EntradasSalidas
         DdlConfigAuto.Items.Clear()
         DdlUnidadCamion.Items.Clear()
 
-        'DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
-        'DdlUnidadCamion.DataBind()
-
-
-
         Using ObjInv As New ClsInventarios
 
             If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus:=1) Then
                 DdlUnidadCamion.DataSource = ObjInv.DtResultados
             End If
-
-
             If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
                 DdlRemolque1.DataSource = ObjInv.DtResultados
             End If
@@ -5926,13 +5918,9 @@ Partial Class Inventarios_EntradasSalidas
 
         DdlUnidadCamion.DataBind()
         DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
-
-
         DdlRemolque1.DataBind()
         DdlRemolque1.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
 
-
-
         Using ObjGrales As New ClsGenerales
 
             If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
@@ -5940,27 +5928,9 @@ Partial Class Inventarios_EntradasSalidas
             End If
 
         End Using
-
         DdlConfigAuto.DataBind()
         DdlConfigAuto.Items.Insert(0, New ListItem("Seleccione una", "-1"))
 
-        'Using ObjGral As New ClsGenerales
-        '    If ObjGral.GetCartaPorteConfigAutoTransportes() Then
-        '        DdlConfigAuto.DataSource = ObjGral.DtResultados
-        '    End If
-        'End Using
-
-        'DdlConfigAuto.DataBind()
-
-    End Sub
-
-    Private Sub CargaClientesCarta()
-        'DdlClienteCarta.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        'DdlClienteCarta.DataBind()
-
-        'DdlClienteCarta.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlClienteCarta.SelectedValue = "-1"
-
     End Sub
 
     Private Sub EmitirTimbrado(CveTimbre As Integer, CveMovimientoTimbrado As Integer, ByRef MensajeAlert As StringBuilder)