E140. CveVentaDetalle en recepcion de usados desde el PV.aspx

Inventarios/RecepcionUsados.aspx

@@ -130,7 +130,7 @@
                                             <div id="DivCliente" runat="server" visible="true">
                                                 <label class="col-md-1 truncate" style="width: 110px">Cliente:</label>
                                                 <div class="col-md-2">
-                                                    <asp:DropDownList ID="DdlClientes" AutoPostBack="False" OnSelectedIndexChanged="DdlClientes_SelectedIndexChanged" AppendDataBoundItems="true" runat="server" CssClass="form-control input-sm select2me" Style="max-width: 200px" DataTextField="NombreComercial" DataValueField="CveCliente"></asp:DropDownList>
+                                                    <ADS:Dropdownlost ID="DdlClientes" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
                                                 </div>
                                                 <div class="col-md-2">
                                                     <label class="col-md-1 truncate" style="width: 125px">Todos los clientes:</label>

Inventarios/RecepcionUsados.aspx.vb

@@ -15,14 +15,14 @@ Partial Class Inventarios_RecepcionUsados
 
     Private _dtDatos As DataTable
 
-    Public Property DtClientes() As DataTable
-        Get
-            Return CType(ViewState("DtClientes"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtClientes") = value
-        End Set
-    End Property
+    'Public Property DtClientes() As DataTable
+    '    Get
+    '        Return CType(ViewState("DtClientes"), DataTable)
+    '    End Get
+    '    Set(value As DataTable)
+    '        ViewState("DtClientes") = value
+    '    End Set
+    'End Property
 
     Public Property DtMovimientos() As DataTable
         Get
@@ -454,6 +454,7 @@ Partial Class Inventarios_RecepcionUsados
         Dim Fecha As DateTime = IfNull(Request("Fecha"), Now.ToString("dd/MM/yyyy")).ToString().ToDateTime()
 
         If Not String.IsNullOrEmpty(RFC) Then
+            Dim DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa)
             If DtClientes Is Nothing Then
                 Alert("No se encontraron clientes para filtrar", TipoMensaje.MsgError)
                 Exit Sub
@@ -476,8 +477,10 @@ Partial Class Inventarios_RecepcionUsados
             End If
 
             Dim CveCliente As Integer = RowCliente("CveCliente").ToString().ToEntero()
+            Dim Cliente = RowCliente("NombreComercial").ToString()
 
-            DdlClientes.SelectedValueExist(CveCliente)
+            DdlClientes.SelectedValue = CveCliente.ToString()
+            DdlClientes.SelectedText = Cliente
             DdlClientes_SelectedIndexChanged(DdlClientes, EventArgs.Empty)
 
             DdlAlmacen.SelectedValueExist(CveAlmacen)
@@ -775,6 +778,10 @@ Partial Class Inventarios_RecepcionUsados
         EsDistribuidor = False
         InicializaClientes(True)
         DdlClientes.Enabled = True
+        If Not String.IsNullOrEmpty(DdlClientes.ddlWS.Attributes.Item("disabled")) Then
+            DdlClientes.ddlWS.Attributes.Remove("disabled")
+        End If
+
         ChkClientesTodos.Enabled = True
 
         SiguienteFolio()
@@ -2008,14 +2015,11 @@ Partial Class Inventarios_RecepcionUsados
 
 #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
     Private Sub InicializaClientes(Todos As Boolean)
-        DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(If(Todos, "", "EsDistribuidor = 1"))
-
-        DdlClientes.DataSource = DtClientes
-        DdlClientes.DataBind()
-
-        DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlClientes.ddlWS.Attributes.Add("data-esdistribuidor", If(Todos, "-1", "1"))
         DdlClientes.SelectedValue = "-1"
+        DdlClientes.SelectedText = "Seleccione"
 
+        UpGenerales.Update()
     End Sub
     'Protected Sub ActivaClientes()
     '    If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
@@ -2027,7 +2031,7 @@ Partial Class Inventarios_RecepcionUsados
 
 
     'End Sub
-    Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs)
+    Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientes.selectedindexchange
         CambiaCliente()
     End Sub
     Private Sub CambiaCliente(Optional CargaSucursales As Boolean = True, Optional CargaFacturas As Boolean = True)
@@ -2314,11 +2318,16 @@ Partial Class Inventarios_RecepcionUsados
 
             'RELACIONA LA VENTA DETALLA DE LA REMISION
             If DtUsados IsNot Nothing Then
-                DtUsados.Columns.Add(New DataColumn("CveVentaDetalle", GetType(Integer)))
+                If Not DtUsados.Columns.Contains("CveVentaDetalle") Then
+                    DtUsados.Columns.Add(New DataColumn("CveVentaDetalle", GetType(Integer)))
+                End If
+
                 For Each RowUsado As DataRow In DtUsados.Rows
-                    Dim CveVentaDetalle As Integer = Me.ObjFactura.DtDetalle.FiltroPrimeroValor("CveVentaDetalle", $"EsCargo = 1 AND Cantidad = {RowUsado("Cantidad")} AND CvePS = {RowUsado("CvePS")}").ToEntero()
-                    If CveVentaDetalle > 0 Then
-                        RowUsado("CveVentaDetalle") = CveVentaDetalle
+                    If RowUsado("CveVentaDetalle").ToString().ToEntero() <= 0 Then
+                        Dim CveVentaDetalle As Integer = Me.ObjFactura.DtDetalle.FiltroPrimeroValor("CveVentaDetalle", $"EsCargo = 1 AND Cantidad = {RowUsado("Cantidad")} AND CvePS = {RowUsado("CvePS")}").ToEntero()
+                        If CveVentaDetalle > 0 Then
+                            RowUsado("CveVentaDetalle") = CveVentaDetalle
+                        End If
                     End If
                 Next
             End If
@@ -2330,13 +2339,15 @@ Partial Class Inventarios_RecepcionUsados
             If CveCliente > 0 Then
                 DivCliente.Visible = True
 
-                DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCliente = {0}", CveCliente))
-                DdlClientes.DataBind()
+                Dim Cliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial")
+
+                DdlClientes.SelectedValue = CveCliente.ToString()
+                DdlClientes.SelectedText = Cliente
 
-                DdlClientes.SelectedValueExist(CveCliente)
                 CambiaCliente(False, False)
 
                 DdlClientes.Enabled = False
+                DdlClientes.ddlWS.Attributes.Add("disabled", "disabled")
                 ChkClientesTodos.Enabled = False
             End If
 
@@ -3414,7 +3425,6 @@ Partial Class Inventarios_RecepcionUsados
 #End Region
 
     Protected Sub SeleccionarTipoDeClientes(sender As Object, e As EventArgs)
-        DdlClientes.Items.Clear()
         InicializaClientes(ChkClientesTodos.Checked)
     End Sub