From e8282a69f07410e79fd391c194580c00c48d70bc Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 3 Dec 2019 15:46:53 -0700
Subject: [PATCH 1/3] cambios en el dropdown de ajustes

---
 Ventas/PV.aspx    |  9 ++++-----
 Ventas/PV.aspx.vb | 14 ++------------
 2 files changed, 6 insertions(+), 17 deletions(-)

diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 541ccc1fc..87304968c 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2803,11 +2803,10 @@
                                                         </div>
                                                     </div>
                                                     <div class="row">
-                                                        <div class="col-md-12">
-                                                            <div class="form-group form-md-line-input input-iconright">
-                                                                <asp:DropDownList ID="DdlClientes" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="100%" AutoPostBack="true">
-                                                                </asp:DropDownList>
-                                                                <label for="<%= DdlClientes.ClientID.ToString()%>">Cliente:</label>
+                                                        <div class="col-md-5">
+                                                            <div  >
+                                                                <label for="<%= DdlClientes.ClientID.ToString()%>">Distribuidor:</label><br />
+                                                                <ADS:Dropdownlost ID="DdlClientes" data-metodo="getcliente" CssStyle="width:100%" CssClassDdl="select2me" runat="server" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="300px"></ADS:Dropdownlost>
                                                             </div>
                                                         </div>
                                                     </div>
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 0f23ec3c5..31eba5f72 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -4973,16 +4973,6 @@ Partial Class PV
         UpAjuste.Update()
     End Sub
 
-    Private Sub CargaClienteAjuste()
-        DdlClientes.Items.Clear()
-
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-        DdlClientes.DataBind()
-        UpAjuste.Update()
-    End Sub
-
     Private Sub CargaBCIAjuste()
         Dim ObjGral As New ClsGenerales
         If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
@@ -5026,8 +5016,8 @@ Partial Class PV
 
         CreaDTmpDTAjustes()
         CreaDTmpDTRecepcionUsados()
-        CargaClienteAjuste()
         CargaBCIAjuste()
+        DdlClientes.setEsWebService(True)
         DivChkAjuste.Visible = True
     End Sub
 
@@ -5760,7 +5750,7 @@ Partial Class PV
             Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
             Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
             Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
-            params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedItem.Text))
+            params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedText))
             params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
             params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
         End If

From ca74ba1ca0d2a10d40689b5d4eee8fb7e24a6547 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 3 Dec 2019 16:03:46 -0700
Subject: [PATCH 2/3] =?UTF-8?q?correcci=C3=B3n=20para=20prevenir=20error?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/PV.aspx.vb | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 46ad2bd2c..47a420235 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5748,12 +5748,14 @@ Partial Class PV
             params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
             params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
         Else
-            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
-            Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
-            Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
-            params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedText))
-            params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
-            params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
+            If (DdlClientes.SelectedValue.ToEntero > 0) Then
+                Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
+                Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
+                Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
+                params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedText))
+                params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
+                params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
+            End If
         End If
 
         'Informacion Distribuidor

From 9d38072e210f5d0eb22a4996c2078c33af49ce1e Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 3 Dec 2019 16:50:50 -0700
Subject: [PATCH 3/3] - al registar comra manual activar cxc en NC

---
 Compras/Compras.aspx    |  2 +-
 Compras/Compras.aspx.vb | 10 ++++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index e5d9d7edc..f5b737fcd 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -197,7 +197,7 @@
                                 <div class="form-group whitoutcol" style="width: 280px;">
                                     <span class="whitoutcol linewhitsize comprasdfleft">Tipo:</span>
                                     <div class="whitoutcol whitoutcol comprasdfleftvar">
-                                        <asp:DropDownList ID="DdlTipoComprobante" runat="server" AutoPostBack="true" CssClass="form-control input-sm input-small">
+                                        <asp:DropDownList ID="DdlTipoComprobante" runat="server" AutoPostBack="true" CssClass="form-control input-sm input-small" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged">
                                             <asp:ListItem Selected="True" Text="Factura" Value="Fac"></asp:ListItem>
                                             <asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem>
                                             <asp:ListItem Text="Anticipo" Value="Ant"></asp:ListItem>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 36373feb4..4a22ead1a 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -15644,6 +15644,16 @@ Partial Class Compras_Compras
                 RBLPago.Items(2).Enabled = True
             End If
             ImgAnticiposPendientes.Visible = False
+            If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
+                paneldevolucion.Visible = True
+                Pnlalmaceninventarios.Visible = False
+                cargaddldevoluciones(CveProveedor, TxtSubTotal.Text.ToDouble)
+                InicializaAplicaNCFact()
+                DivReembolso.Visible = False
+                RBLPago.Items(2).Enabled = False
+                UpPS.Update()
+
+            End If
         End If
         UPCondicionesPago.Update()
     End Sub