OC Ddlclientes se pasa a DropDownLost, si se selcciona cliente se debe de seleccionr vendedor

2020-02-28 16:44:29 -07:00
parent 7439ff48fe
commit 474a6239a8
3 changed files with 56 additions and 22 deletions
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -587,11 +587,10 @@
                        <div class="portlet-body">
                            <div class="row">
                                <div class="col-md-1" style="max-width: 60px;">
-                                    Cliente:
-                               
+                                    Cliente:                               
                                </div>
                                <div class="col-md-2">
-                                    <asp:DropDownList ID="Ddlcliente" OnSelectedIndexChanged="Ddlcliente_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" Width="100%" DataTextField="CodigoNombre" DataValueField="CveCliente" runat="server"></asp:DropDownList>
+                                    <ADS:Dropdownlost ID="Ddlcliente" Width="100%"  CssStyle="width: 100%;"    OnSelectedIndexChanged="Ddlcliente_SelectedIndexChanged" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me"   data-metodo="getcliente" runat="server" DataTextField="NombreComercial"    DataValueField="CveCliente"  ></ADS:Dropdownlost>
                                    <%--                                    <asp:RangeValidator ID="RVCliente" CssClass="form-control" runat="server" ControlToValidate="Ddlcliente" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                    <ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RVCliente" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                </div>
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -529,7 +529,19 @@ Partial Class OC
                                If DrCot IsNot Nothing Then
                                    HLCotizacion.Text = String.Format("{0}-{1}", DrCot("Serie"), DrCot("Folio")) 'CveVendedor
                                    DdlVendedor.SelectedValueExist(DrCot("CveVendedor").ToString())
-                                    Ddlcliente.SelectedValueExist(DrCot("CveCliente").ToString())
+
+
+                                    Try
+                                        Ddlcliente.txtText.Value = DrCot("ClienteNombre").ToString()
+                                        Ddlcliente.txtValue.Value = DrCot("CveCliente").ToString()
+                                    Catch ex As Exception
+
+                                    End Try
+
+
+
+
+
                                End If
                            End If
                        End If
@@ -1207,10 +1219,15 @@ Partial Class OC

            ''DATOS DE VENTA
            If UsuarioActual.Empresa.Funcionalidad(108) = "1" Then
-                Ddlcliente.SelectedValueExist(objOC.CveCliente.ToString)
-                If Ddlcliente.SelectedValue <> objOC.CveCliente.ToString Then
-                    Ddlcliente.Items.Insert(1, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveCliente = {objOC.CveCliente}"), objOC.CveCliente.ToString))
-                End If
+
+                Ddlcliente.txtValue.Value = objOC.CveCliente.ToString
+                Ddlcliente.txtText.Value = objOC.NombreCliente
+
+                'If Ddlcliente.SelectedValue <> objOC.CveCliente.ToString Then
+
+                '    Ddlcliente.Items.Insert(1, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveCliente = {objOC.CveCliente}"), objOC.CveCliente.ToString))
+
+                'End If

                DdlVendedor.SelectedValueExist(objOC.CveVendedor.ToString)
                If DdlVendedor.SelectedValue <> objOC.CveVendedor.ToString Then
@@ -2121,7 +2138,7 @@ Partial Class OC
        Dim TieneError = False

        'Entrega Directa requiere Cliente y Vendedor
-        If ChkEntregaDirecta.Checked And Ddlcliente.SelectedValue.ToEntero <= 0 Then
+        If ChkEntregaDirecta.Checked And Ddlcliente.txtValue.Value.ToEntero <= 0 Then
            Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.")
            Return True
        End If
@@ -2138,6 +2155,11 @@ Partial Class OC
            Return True
        End If

+        If Ddlcliente.txtValue.Value.ToEntero > 0 And DdlVendedor.SelectedValue.ToEntero <= 0 Then
+            Alert("Debe de seleccionar Un vendedor ", TipoMensaje.MsgAdvertencia)
+            TieneError = True
+        End If
+


        'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS
@@ -2372,7 +2394,7 @@ Partial Class OC
                If Not TieneError Then ' AGREGAR REQUISICION
                    If OC.AddOrdenCompra("REQ", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CboE.SelectedValue.ToEntero, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                     LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
-                                     RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal,
+                                     RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal,
                                     RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim,
                                     IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto) Then

@@ -2406,7 +2428,7 @@ Partial Class OC

                If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                 LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
-                                 RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+                                 RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                 PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1),
                                 CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
                                 Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto) Then
@@ -2539,7 +2561,7 @@ Partial Class OC
            End If

            If Not OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
-                                    LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.SelectedValue.ToEntero,
+                                    LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero,
                                    DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1),
                                    Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto,
                                    PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)) Then
@@ -2939,6 +2961,13 @@ Partial Class OC

    End Sub
    Protected Function GeneraOrdenes(ByRef objOrdenCompra As ClsOC, Conta As ClsContPAQi, ByRef ObjInventarios As ClsInventarios) As Boolean
+
+
+        'If Ddlcliente.txtValue.Value.ToEntero > 0 And DdlVendedor.SelectedValue.ToEntero <= 0 Then
+        '    Alert("Debe de seleccionar Un vendedor ", TipoMensaje.MsgAdvertencia)
+        '    Exit Function
+        'End If
+
        If TipoOS Then Return False

        Dim CveCotizacion As Integer = 0
@@ -2978,7 +3007,7 @@ Partial Class OC
                        RetISR = TxtRetISR.Text.ToDecimal

                        If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
-                                                         CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+                                                         CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                        PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                         EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
                                                         CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero) Then
@@ -3045,7 +3074,7 @@ Partial Class OC

            Else
                If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
-                                                 CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+                                                 CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                 PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                 EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=LtImporteIEAnticipo.Text.ToDouble, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
                                                 Promocion:=Promocion) Then
@@ -4855,7 +4884,9 @@ Partial Class OC
            generarAnticipo.Visible = True
            Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual)
            Ddlcliente.DataBind()
-            Ddlcliente.Items.Insert(0, New ListItem(" - ", "-1"))
+
+            'Ddlcliente.Items.Insert(0, New ListItem(" - ", "-1"))
+
            DdlVendedor.DataSource = GlobalDTVendedores(CveEmpresaActual)
            DdlVendedor.DataBind()
            DdlVendedor.Items.Insert(0, New ListItem(" - ", "-1"))
@@ -5349,7 +5380,7 @@ Partial Class OC

    Protected Sub Ddlcliente_SelectedIndexChanged(sender As Object, e As EventArgs)

-        DdlVendedor.SelectedValueExist(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"CveCliente = {Ddlcliente.SelectedValue}"))
+        DdlVendedor.SelectedValueExist(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"CveCliente = {Ddlcliente.txtValue.Value}"))

        DdlDireccionEnvio.Visible = False
        TxtLugarEntregaDirecta.Visible = False
@@ -5363,7 +5394,7 @@ Partial Class OC
    End Sub
    Private Sub CargaDireccionesEnvioCliente()
        Dim ObjClientes As New ClsClientes
-        If ObjClientes.DireccionEnvioGet(-1, Ddlcliente.SelectedValue.ToEntero, -1) Then
+        If ObjClientes.DireccionEnvioGet(-1, Ddlcliente.txtValue.Value.ToEntero, -1) Then
            DdlDireccionEnvio.DataSource = ObjClientes.DtResultados
            If ObjClientes.DtResultados.Rows.Count > 0 Then
                DdlDireccionEnvio.Visible = True
@@ -6563,7 +6594,7 @@ Partial Class OC
    End Sub
    Protected Sub ImgCambiaClienteVendedor_Click(sender As Object, e As ImageClickEventArgs) Handles ImgCambiaClienteVendedor.Click
        Dim OC As New ClsOC
-        If OC.UpdateClienteVendedorOrdenCompra(Ddlcliente.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
+        If OC.UpdateClienteVendedorOrdenCompra(Ddlcliente.txtValue.Value.ToEntero, DdlVendedor.SelectedValue.ToEntero, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
            CargaHistorial()
            Alert("El cambio de cliente/vendedor se hizo correctamente", TipoMensaje.MsgInformacion)
        End If
@@ -7238,7 +7269,7 @@ Partial Class OC
            End If
        Next
        TxtGrid.Text = If(DtDetalle.Rows.Count = 0, "", DtDetalle.Rows.Count.ToString)
-        Ddlcliente.SelectedValue = DdlClientes.SelectedValue
+        Ddlcliente.txtValue.Value = DdlClientes.SelectedValue

        CargaSuperior()
        CargaDatosDetalles()
@@ -7282,7 +7313,7 @@ Partial Class OC

        DdlClienteSucursalEnvio.Items.Clear()

-        If ObjCliente.GetSucursales(Ddlcliente.SelectedValue.ToEntero) Then
+        If ObjCliente.GetSucursales(Ddlcliente.txtValue.Value.ToEntero) Then
            If ObjCliente.DtResultados.Rows.Count > 0 Then
                DdlClienteSucursalEnvio.DataSource = ObjCliente.DtResultados
            End If
@@ -7312,7 +7343,7 @@ Partial Class OC

    Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click

-        If Not Ddlcliente.SelectedValue.ToEntero > 0 Then
+        If Not Ddlcliente.txtValue.Value.ToEntero > 0 Then
            Alert("Tiene que tener un cliente seleccionado", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If
@@ -7321,7 +7352,7 @@ Partial Class OC
        Dim TieneError = False
        Dim Estatus = If(ChkEstatus.Checked, 1, 0)

-        CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(Ddlcliente.SelectedValue.ToEntero, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))
+        CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(Ddlcliente.txtValue.Value.ToEntero, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))

        If CveDireccionEnvio < 0 Then
            TieneError = True
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -21,6 +21,10 @@
  
    
  
+    
+  
+    
+  
    <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
  </StartupServices>
 </VisualWebDeveloper>