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

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
-                CvePrecioListaNuevo = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0)
-                If CvePrecioListaNuevo > 0 Then
-                    CvePrecioLista = CvePrecioListaNuevo
-                Else
-                    ErrorProceso = True
-                End If
-            End If
+            'If DivCrearPrecioLista.Visible AndAlso ChkCrearPrecioLista.Checked Then
+            '    CvePrecioListaNuevo = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0)
+            '    If CvePrecioListaNuevo > 0 Then
+            '        CvePrecioLista = CvePrecioListaNuevo
+            '    Else
+            '        ErrorProceso = True
+            '    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)
-        If UsuarioActual.CveEmpresa = 186 Then
-            DivPrecioLista.Visible = Not ChkCrearPrecioLista.Checked
-            DivTxtCrearPrecioLista.Visible = ChkCrearPrecioLista.Checked
-
-            UpDatos.Update()
+    Protected Sub LnkAddPrecioLista_Click(sender As Object, e As EventArgs)
+        RegistraScript("$('#DivAgregarPrecioLista').modal('show');")
+    End Sub
+    Protected Sub BtnGuardarPL_Click(sender As Object, e As EventArgs)
+        Dim ObjVentas As New ClsVentas()
+        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