--cambios en clientes, agregar lista de precios desde boton

Ventas/Clientes.aspx

@@ -731,23 +731,16 @@
                                             </div>
                                             <div class="col-md-6">
                                                 <div class="row">
-                                                    <div class="col-md-8">
+                                                    <div class="col-md-10">
-                                                        <div id="DivTxtCrearPrecioLista" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
-                                                            <asp:TextBox ID="TxtPrecioLista" CssClass="form-control" runat="server" MaxLength="300"></asp:TextBox>
-                                                            <label for="<%= TxtPrecioLista.ClientID.ToString()%>">Precio Lista:  </label>
-                                                            <i></i>
-                                                        </div>
-
                                                         <div id="DivPrecioLista" runat="server" class="form-group form-md-line-input input-iconright">
                                                             <asp:DropDownList ID="DdlPrecioLista" runat="server" CssClass="form-control select2me" Width="100%" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList>
-                                                            <label for="<%= DdlPrecioLista.ClientID.ToString()%>">Precio Lista:  </label>
+                                                            <label for="<%= DdlPrecioLista.ClientID.ToString()%>">Precio Lista:</label>
                                                             <i></i>
                                                         </div>
                                                     </div>
-                                                    <div class="col-md-4">
+                                                    <div class="col-md-2" id="DivCrearPrecioLista" runat="server" style="padding-top: 8px;" visible="false">
-                                                        <div id="DivCrearPrecioLista" runat="server" visible="false" class="form-group">
+                                                        <div class="form-group form-md-line-input input-iconright">
-                                                            <label>¿Crear lista?</label>
+                                                            <asp:LinkButton runat="server" ID="LnkAddPrecioLista" CssClass="btn btn-default btn-circle btn-sm" Text="<i class='fa fa-plus' style='color:green'></i>" OnClick="LnkAddPrecioLista_Click"></asp:LinkButton>
-                                                            <asp:CheckBox ID="ChkCrearPrecioLista" runat="server" CssClass="chksino" Text=" " Checked="false" OnCheckedChanged="ChkCrearPrecioLista_CheckedChanged" AutoPostBack="true" />
                                                         </div>
                                                     </div>
                                                 </div>
@@ -4972,6 +4965,36 @@
     </div>
     <br />
 
+    <div id="DivAgregarPrecioLista" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <asp:UpdatePanel class="modal-content" runat="server">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Agregar lista de precio</h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtPrecioLista" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVTxtPL" runat="server" ControlToValidate="TxtPrecioLista" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Lista de precio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpListaPrecio"></asp:RequiredFieldValidator>
+                            <label for="TxtPrecioLista">Lista de precio: </label>
+                            <i></i>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <div class="row">
+                            <div class="col-md-12" style="text-align: right">
+                                <asp:Button ID="BtnGuardarPL" runat="server" CssClass="btn btn-success" Text="Guardar" OnClick="BtnGuardarPL_Click" ValidationGroup="GrpListaPrecio"></asp:Button>
+                                <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                            </div>
+                        </div>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
     <%-- MODAL BITACORA --%>
     <div id="ModalBitacora" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">

Ventas/Clientes.aspx.vb

@@ -1438,8 +1438,6 @@ Partial Class Clientes
                 TxtPagina.Text = ObjClientes.Pagina
                 'TxtGiro.Text = ObjClientes.Giro
                 DdlPrecioLista.SelectedValue = ObjClientes.CvePrecioLista.ToString()
-                ChkCrearPrecioLista.Checked = False
-                ChkCrearPrecioLista_CheckedChanged(ChkCrearPrecioLista, EventArgs.Empty)
 
                 TxtCC.Text = ObjClientes.NotificarA
                 ChkMail.Checked = ObjClientes.EnviarFactura
@@ -2469,14 +2467,14 @@ Partial Class Clientes
 
             Dim CvePrecioLista As Integer = DdlPrecioLista.SelectedValue.ToEntero()
 
-            If DivCrearPrecioLista.Visible AndAlso ChkCrearPrecioLista.Checked Then
+            'If DivCrearPrecioLista.Visible AndAlso ChkCrearPrecioLista.Checked Then
-                CvePrecioListaNuevo = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0)
+            '    CvePrecioListaNuevo = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0)
-                If CvePrecioListaNuevo > 0 Then
+            '    If CvePrecioListaNuevo > 0 Then
-                    CvePrecioLista = CvePrecioListaNuevo
+            '        CvePrecioLista = CvePrecioListaNuevo
-                Else
+            '    Else
-                    ErrorProceso = True
+            '        ErrorProceso = True
-                End If
+            '    End If
-            End If
+            'End If
 
             If Not ErrorProceso Then
                 'VERIFICA SI ES CLIENTE NUEVO O ACTUALIZACION
@@ -2615,11 +2613,6 @@ Partial Class Clientes
         If Not ErrorProceso Then
             RecargaGlobal()
 
-            'RECARGA GLOBAL DE LISTA DE PRECIOS SI SE GENERO UNO NUEVO
-            If CvePrecioListaNuevo > 0 Then
-                GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing
-            End If
-
             'NUEVO CLIENTE
             If CveClienteNuevo > 0 Then
                 'JM 05-02-19: CRM ASIGAN CLIENTE A EMPRESACRM
@@ -10278,14 +10271,27 @@ Partial Class Clientes
     Private Sub DdlRegimenFiscal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRegimenFiscal.SelectedIndexChanged
         CargaComboCFDI()
     End Sub
-    Protected Sub ChkCrearPrecioLista_CheckedChanged(sender As Object, e As EventArgs)
+    Protected Sub LnkAddPrecioLista_Click(sender As Object, e As EventArgs)
-        If UsuarioActual.CveEmpresa = 186 Then
+        RegistraScript("$('#DivAgregarPrecioLista').modal('show');")
-            DivPrecioLista.Visible = Not ChkCrearPrecioLista.Checked
+    End Sub
-            DivTxtCrearPrecioLista.Visible = ChkCrearPrecioLista.Checked
+    Protected Sub BtnGuardarPL_Click(sender As Object, e As EventArgs)
-
+        Dim ObjVentas As New ClsVentas()
-            UpDatos.Update()
+        Dim CvePrecioListaNuevo = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0)
+        If CvePrecioListaNuevo > 0 Then
+            Alert("La lista de precio se guardo correctamente")
+            RegistraScript("$('#DivAgregarPrecioLista').modal('hide');")
+        Else
+            Alert("Ocurrió un error al guardar la lista de precio", TipoMensaje.MsgError)
         End If
 
+        'RECARGA GLOBAL DE LISTA DE PRECIOS SI SE GENERO UNO NUEVO
+        If CvePrecioListaNuevo > 0 Then
+            GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing
+
+            CargaPrecioLista()
+        End If
+
+        UpDatos.Update()
     End Sub
 End Class