--Subproyectos en catalogo de precios de lista

Ventas/CatPreciosLista.aspx.vb

@@ -31,6 +31,9 @@ Partial Class Ventas_CatPreciosLista
         If Not Page.IsPostBack Then
             CvePrecioLista = -1
             EsEditar = 0
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                divPermiso.Visible = True
+            End If
             dvEstatus.Visible = False
             CargaDatos()
         End If
@@ -56,9 +59,19 @@ Partial Class Ventas_CatPreciosLista
         TxtPrecioLista.Text = GvRow.DataKey("PrecioLista").ToString
         ChkPredeterminada.Checked = GvRow.DataKey("Predeterminada") = "True"
         chkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
+        ChkRestringida.Checked = CBool(GvRow.DataKey("Restringuida"))
+
         EsEditar = 1
         BtnAgregarCatalogo.Text = "Actualizar"
         dvEstatus.Visible = True
+
+        Using ObjVenta As New ClsVentas
+            If ObjVenta.GetPreciosListasSubProyecto(CvePrecioLista, UsuarioActual.CveEmpresa) Then
+                GvSubProyectos.DataSource = ObjVenta.DtResultados.Copy()
+            End If
+        End Using
+        GvSubProyectos.DataBind()
+
         UpBodyCo.Update()
         UpFooter.Update()
         RegistraScript("$('#divAgregar').modal()")
@@ -76,19 +89,46 @@ Partial Class Ventas_CatPreciosLista
         Dim TieneError As Boolean = False
         Try
             If EsEditar = 0 Then
-                If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, ChkPredeterminada.Checked, 0, UpdateFranquicia:=ActualizarFranquicias) > 0 Then
-                    Alert("El Precio de Lista se agregó correctamente", TipoMensaje.MsgInformacion)
-                Else
-                    Alert("Ocurrió un error al agregar el Precio de Lista", TipoMensaje.MsgError)
+                Dim CvePrecioLista As Integer = ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, ChkPredeterminada.Checked, ChkRestringida.Checked, 0, UpdateFranquicia:=ActualizarFranquicias)
+                If Not CvePrecioLista > 0 Then
                     TieneError = True
                 End If
+
+                If Not TieneError Then
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                        For Each GvRow As GridViewRow In GvSubProyectos.Rows
+                            If GvRow.RowType = DataControlRowType.DataRow Then
+                                Dim Permitir As Boolean = GvRow.FCCheckBox("ChkPermitir").Checked
+                                Dim CveSubProyecto As Integer = GvRow.DataKey("CveSubProyecto").ToEntero()
+                                If Not ObjVta.UpdatePreciosListasSubProyecto(CvePrecioLista, CveSubProyecto, Permitir, UsuarioActual.CveEmpresa) Then
+                                    TieneError = False
+                                    Exit For
+                                End If
+                            End If
+                        Next
+                    End If
+                End If
+
             ElseIf EsEditar = 1 Then
-                If ObjVta.UpdatePrecioLista(TxtPrecioLista.Text, chkEstatus.Checked, UsuarioActual.CveUsuario, 0, ChkPredeterminada.Checked, CvePrecioLista, UpdateFranquicia:=ActualizarFranquicias) Then
-                    Alert("El Precio de Lista se editó correctamente", TipoMensaje.MsgInformacion)
-                Else
-                    Alert("Ocurrió un error al editar al Precio de Lista", TipoMensaje.MsgError)
+                If Not ObjVta.UpdatePrecioLista(TxtPrecioLista.Text, chkEstatus.Checked, UsuarioActual.CveUsuario, 0, ChkPredeterminada.Checked, ChkRestringida.Checked, CvePrecioLista, UpdateFranquicia:=ActualizarFranquicias) Then
                     TieneError = True
                 End If
+
+                If Not TieneError Then
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                        For Each GvRow As GridViewRow In GvSubProyectos.Rows
+                            If GvRow.RowType = DataControlRowType.DataRow Then
+                                Dim Permitir As Boolean = GvRow.FCCheckBox("ChkPermitir").Checked
+                                Dim CveSubProyecto As Integer = GvRow.DataKey("CveSubProyecto").ToEntero()
+                                If Not ObjVta.UpdatePreciosListasSubProyecto(Me.CvePrecioLista, CveSubProyecto, Permitir, UsuarioActual.CveEmpresa) Then
+                                    TieneError = False
+                                    Exit For
+                                End If
+                            End If
+                        Next
+                    End If
+                End If
+
                 EsEditar = 0
                 dvEstatus.Visible = False
                 BtnAgregarCatalogo.Text = "Agregar"
@@ -100,8 +140,10 @@ Partial Class Ventas_CatPreciosLista
 
         If TieneError Then
             ObjVta.RollBack()
+            Alert("Ocurrió un error al guardar el precio de lista", TipoMensaje.MsgError)
         Else
             ObjVta.Commit()
+            Alert("El precio de lista se guardo correctamente", TipoMensaje.MsgInformacion)
         End If
 
         RegistraScript("$('#divAgregar').modal('hide')")