Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsContratos.vb

@@ -36,6 +36,12 @@ Public Class ClsContratos
     Public Property NotificarAvanceAlcanzado As Boolean
     Public Property CveContratoGasto As Integer
 
+    Public Property NumeroEstimacionNueva As Integer
+    Public Property CveEstimacionNueva As Integer
+
+
+
+
 
 #End Region
 
@@ -1102,6 +1108,61 @@ Public Class ClsContratos
         Return Retorno
     End Function
 
+
+    Public Function AddContratosAvanceEstimacion(CveContrato As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        NumeroEstimacionNueva = -1
+        CveEstimacionNueva = -1
+
+        DataAdapter("PA_Con_ContratosEstimacionAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@NumeroEstimacion", SqlDbType.Int).Direction = ParameterDirection.Output
+            .Add("@CveEstimacion", SqlDbType.Int).Direction = ParameterDirection.Output
+        End With
+
+        Try
+
+            SqlAdapter.Fill(Data)
+            NumeroEstimacionNueva = SqlAdapter.SelectCommand.Parameters("@NumeroEstimacion").Value.ToString.ToEntero
+            CveEstimacionNueva = SqlAdapter.SelectCommand.Parameters("@CveEstimacion").Value.ToString.ToEntero
+
+            Retorno = True
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la estimación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function UpdateContratosAvanceEstimacion(CveContratoAvance As Integer, CveEstimacion As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno = False
+
+        DataAdapter("PA_Con_ContratosAvanceEstimacionUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveContratoAvance", SqlDbType.Int).Value = CveContratoAvance
+            .Add("@CveEstimacion", SqlDbType.Int).Value = CveEstimacion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el avance.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
 #End Region
 
 #Region " S E C C I O N E S "

App_Code/ClsInventarios.vb

@@ -1487,7 +1487,7 @@ Public Class ClsInventarios
     End Function
     Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
                                                IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
-                                               Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1) As Boolean
+                                               Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1508,6 +1508,7 @@ Public Class ClsInventarios
             .Add("@Orden", SqlDbType.Int).Value = Orden
             .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
             .Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado
+            .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
         End With
 
         Try

Compras/eFacturas.aspx

@@ -571,6 +571,13 @@
                                 <asp:BoundField DataField="FechaPago" HeaderText="Fecha Pago" ItemStyle-HorizontalAlign="center"  DataFormatString="{0:d}" />
                                 <asp:BoundField DataField="ImportePago" HeaderText="Importe Pago" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
                                 
+                                <asp:TemplateField   ItemStyle-HorizontalAlign="Center" Visible="false">
+                                    <ItemTemplate>
+                                        <asp:Label  ID="LblCveIE" runat="server"  />
+                                        <asp:Label  ID="LblCvePrePolizaDetalle" runat="server"  />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
                             </Columns>
                         </asp:GridView>
 

Compras/eFacturas.aspx.vb

@@ -2926,6 +2926,9 @@ Partial Class Compras_eFacturas
             End If
         Next
 
+
+
+
         If MSGComplemento.Trim.Length > 0 Then
             ' BtnVincularPago.Visible = False
             ViculacionConPUE = True
@@ -2974,11 +2977,30 @@ Partial Class Compras_eFacturas
 
 
         GvVincularPago.DataBind()
-        UpVincularPago.Update()
+
 
 
         ListaComprasPUE = ListaComprasPUEInterna
 
+
+        If DivVincularPagoManualmente.Visible Then
+
+            For Each GvRowValidaCompra As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
+                If GvRowValidaCompra.DataKey("CveCompra").ToEntero > 0 Then
+                    DivVincularPagoManualmente.Visible = True
+                    Exit For
+                Else
+                    DivVincularPagoManualmente.Visible = False
+                End If
+            Next
+
+        End If
+
+
+
+        UpVincularPago.Update()
+
+
         RegistraScript("$('#ModalVincularPago').modal('show')", "VincularPagoModalShow")
     End Sub
 
@@ -3004,11 +3026,25 @@ Partial Class Compras_eFacturas
 
         For Each Gv As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
 
-            If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
+            If HdnCveIE.Value.ToEntero > 0 Then
-                TieneError = True
+                If Gv.DataKey("CveCompra").ToEntero > 0 And Gv.FCLabel("LblCveIE").Text.ToEntero > 0 Then
+
+                    If Not ObjCompra.AddComplementoPago(Gv.FCLabel("LblCveIE").Text.ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero, CveFacturaPago) > 0 Then
+                        TieneError = True
+                        Exit For
+                    End If
+
+                End If
+            Else
+                If Gv.DataKey("CveCompra").ToEntero > 0 Then
+
+                    If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
+                        TieneError = True
+                        Exit For
+                    End If
+
+                End If
             End If
-
-
         Next
 
         If Not TieneError AndAlso Not ObjCompra.AddVincularPago(CveFacturaPago) Then
@@ -3021,6 +3057,7 @@ Partial Class Compras_eFacturas
 
             If ViculacionConPUE Then
 
+
                 For Each CveCompraVinculada In ListaComprasPUE
                     objEventos.AddEventoBitacora($"Complemento { ComplementoConPUE }  vinculado manualmente (Compra PUE) ", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompraVinculada)
                 Next
@@ -3040,6 +3077,8 @@ Partial Class Compras_eFacturas
 
             ObjCompra.Commit()
 
+            HdnCveIE.Value = ""
+
             Alert("El pago fue vinculado correctamente", TipoMensaje.MsgInformacion)
             RegistraScript("$('#ModalVincularPago').modal('hide')", "VincularPagoModalHide")
             CargaDatos()
@@ -3062,33 +3101,83 @@ Partial Class Compras_eFacturas
     End Sub
 
     Protected Sub BtnVincularManualmente_Click(sender As Object, e As EventArgs)
+
+
         If HdnCveIE.Value <> "-1" AndAlso IsNumeric(HdnCveIE.Value) AndAlso HdnCveIE.Value.ToEntero > 0 Then
+
             Dim ImportePago As Double = 0
             Dim ImporteIES As Double = 0
             Dim SerieFolioIE As String = ""
             Dim ObjCompras As New ClsCompras
+            Dim ErrorVinculacion = True
+
             If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
-                GvVincularPago.DataSource = ObjCompras.DtResultados
+
-                If ObjCompras.DtResultados.Rows.Count > 0 Then
+                'GvVincularPago.DataSource = ObjCompras.DtResultados
-                    SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
+
-                End If
+                'If ObjCompras.DtResultados.Rows.Count > 0 Then
-                ImportePago = ObjCompras.DtResultados.SUMD("Monto")
+                '    SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
+                'End If
+
+
+                'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
+
+                For Each Drow As DataRow In ObjCompras.DtResultados.Rows
+                    For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
+
+                        If GvRow.RowType = DataControlRowType.DataRow Then
+
+                            If Drow("CveCompra").ToString.ToEntero = GvRow.DataKey("CveCompra").ToEntero Then
+
+                                GvRow.FCLabel("LblCveIE").Text = Drow("CveIE").ToString.ToEntero.ToString
+                                GvRow.FCLabel("LblCvePrePolizaDetalle").Text = Drow("CvePrePolizaDetalle").ToString.ToEntero.ToString
+
+                            End If
+
+                        End If
+
+                    Next
+                Next
+
+
+                For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
+                    If GvRow.RowType = DataControlRowType.DataRow Then
+                        If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
+                            ErrorVinculacion = False
+                            Exit For
+                        Else
+                            ErrorVinculacion = True
+
+                        End If
+                    End If
+                Next
+
+            Else
+                ErrorVinculacion = True
             End If
 
-            ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
+            If Not ErrorVinculacion Then
-            ObjCompras.Dispose()
+                ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
+                ObjCompras.Dispose()
 
-            BtnVincularPago.Visible = True
+                BtnVincularPago.Visible = True
+
+                LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}"
+                LblImportePago.Text = ImportePago.FormatoNumero
+                'LblSerieFolioIE.Text = SerieFolioIE
+                LblImporteIE.Text = ImporteIES.FormatoNumero
+
+                GvVincularPago.DataBind()
+                UpVincularPago.Update()
+                ObjCompras.Dispose()
+
+            Else
+                Alert("No se pudo realizar la vinculacion manual", TipoMensaje.MsgAdvertencia)
+            End If
 
-            LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}"
-            LblImportePago.Text = ImportePago.FormatoNumero
-            'LblSerieFolioIE.Text = SerieFolioIE
-            LblImporteIE.Text = ImporteIES.FormatoNumero
 
-            GvVincularPago.DataBind()
-            UpVincularPago.Update()
-            ObjCompras.Dispose()
         End If
+
     End Sub
 
     Private Sub GVPDocumentosRelacionadosPagos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GVPDocumentosRelacionadosPagos.RowCreated

Contratos/ContratoAvance.aspx

@@ -273,7 +273,7 @@
                 <div class="col-md-12">
 
                     <asp:GridView ID="GvEstimaciones" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance" 
-                DataKeyNames="CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance"
+                DataKeyNames="CveContratoAvance,CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance"
                   CssClass="table GVEstimacion table-advance table-hover" GridLines="None">
                 <Columns>
                     <asp:TemplateField HeaderText="">

Contratos/ContratoAvance.aspx.vb

@@ -34,6 +34,21 @@ Partial Class Contratos_ContratoAvance
             ViewState("CveContrato") = value
         End Set
     End Property
+
+
+    Private Property CveContratoEstimacion As Integer
+        Get
+            If ViewState("CveContratoEstimacion") Is Nothing Then
+                Return Nothing
+            Else
+                Return ViewState("CveContratoEstimacion").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveContratoEstimacion") = value
+        End Set
+    End Property
+
     'fecha seleccionada del historico de avances
     Private Property fecha As String
         Get
@@ -306,7 +321,7 @@ Partial Class Contratos_ContratoAvance
 
 
     Private Sub CargaAvancesParaEstimar()
-
+        CveContratoEstimacion = -1
 
         Dim ObjContratos As New ClsContratos()
         Dim DTEstimaciones As New DataTable
@@ -314,9 +329,10 @@ Partial Class Contratos_ContratoAvance
 
         If ObjContratos.GetContratosAvanceEstimacion(DDlContratosEstimaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             DTEstimaciones = ObjContratos.DtResultados
-            BtnGuardarEstimacion.Visible = True
+
-        Else
+            CveContratoEstimacion = DDlContratosEstimaciones.SelectedValue.ToEntero
-            BtnGuardarEstimacion.Visible = False
+
+
         End If
 
 
@@ -325,8 +341,10 @@ Partial Class Contratos_ContratoAvance
 
         If DTEstimaciones.Rows.Count > 0 Then
             GvEstimaciones.DataSource = DTEstimaciones
+            BtnGuardarEstimacion.Visible = True
         Else
             GvEstimaciones.DataSource = Nothing
+            BtnGuardarEstimacion.Visible = False
         End If
         GvEstimaciones.DataBind()
 
@@ -358,16 +376,46 @@ Partial Class Contratos_ContratoAvance
             End If
         End If
 
-
-
-
     End Sub
 
     Private Sub BtnGuardarEstimacion_Click(sender As Object, e As EventArgs) Handles BtnGuardarEstimacion.Click
 
         Dim ObjContratos As New ClsContratos()
+        Dim ErrorProceso As Boolean = False
+        Dim NuemeroEstimacion As Integer = -1
+        ObjContratos.IniciaTransacSQL()
 
 
+        If ObjContratos.AddContratosAvanceEstimacion(CveContratoEstimacion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+
+
+            NuemeroEstimacion = ObjContratos.NumeroEstimacionNueva
+
+            For Each GvRow As GridViewRow In GvEstimaciones.Rows
+
+                If GvRow.DataKey("CveContratoAvance").ToEntero > 0 Then
+                    If Not ObjContratos.UpdateContratosAvanceEstimacion(GvRow.DataKey("CveContratoAvance").ToEntero, ObjContratos.CveEstimacionNueva, UsuarioActual.CveEmpresa) Then
+                        ErrorProceso = True
+                        Exit For
+                    End If
+                End If
+            Next
+
+        Else
+            ErrorProceso = True
+        End If
+
+        'AddContratosAvanceEstimacion
+        'UpdateContratosAvanceEstimacion
+
+
+
+        If Not ErrorProceso Then
+            ObjContratos.Commit()
+            Alert($"Estimación {NuemeroEstimacion} agregada correctamente.")
+        Else
+            ObjContratos.RollBack()
+        End If
 
         ObjContratos.Dispose()
 

Inventarios/KardexAlmacenHorizontal.aspx

@@ -159,7 +159,9 @@
                         </div>
                         <label class="col-md-1 truncate">Almacén:</label>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
+                            <asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" 
+                                    DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
+                            <%--<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>--%>
                         </div>
                         <label class="col-md-1 truncate">Tipo Almacen:</label>
                         <div class="col-md-1">

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -53,7 +53,7 @@ Partial Class Inventarios_KardexAlmacen
 
         DdlTipoAlmacen.SelectedValueExist(1)
 
-        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValueExist(Request("CveAlmacen").ToString)
+        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString
         CargaClasificaciones()
     End Sub
 
@@ -136,11 +136,11 @@ Partial Class Inventarios_KardexAlmacen
         Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
         ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
         Dim FechaF As Date = TxtFechaF.Text.ToDate
-        Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
+        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
         Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
 
-        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero) Then
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes) Then
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)

Ventas/ActualizarPrecios.aspx.vb

@@ -200,17 +200,21 @@ Partial Class Ventas_ActualizarPrecios
             Exit Sub
         End If
         Dim Correcto As Boolean = False
-
+        Dim TieneError As Boolean = False
         'Dim Importe As Decimal = If(TxtImporte.Text = "", -1, TxtImporte.Text.ToDecimal)
         Dim Porcentaje As Decimal = If(TxtPorcentaje.Text = "", -1, TxtPorcentaje.Text.ToDecimal)
 
         Dim ObjPS As New ClsProductosServicios
+        ObjPS.IniciaTransacSQL()
 
         For Each row As GridViewRow In GVPrecios.Rows
 
             If row.FCCheckBox("chkPS").Checked Then
                 Correcto = ObjPS.UpdatePSPreciosLista(row.FCTextBox("TxtPrecio").Text.ToDecimal, DdlPrecioLista.SelectedValue.ToEntero, Porcentaje, row.DataKey("CvePS").ToEntero, UsuarioActual.CveUsuario, DateTime.Now, If(RblTipo.SelectedValue = "Imp", True, False), PrecioMinimo:=row.FCTextBox("TxtPrecioMinimo").Text.ToDecimal)
-                If Not Correcto Then
+
+                If Correcto Then
+                    TieneError = ActualizarPreciosFranquicia(ObjPS, row)
+                Else
                     Exit Sub
                 End If
             End If
@@ -221,6 +225,11 @@ Partial Class Ventas_ActualizarPrecios
             Alert("Los Precios de lista de los Productos/Servicios se actualizaron correctamente")
         End If
 
+        If TieneError Then
+            ObjPS.RollBack()
+        Else
+            ObjPS.Commit()
+        End If
 
         ObjPS.Dispose()
         BtnConsultar_Click(Nothing, Nothing)
@@ -517,4 +526,29 @@ Partial Class Ventas_ActualizarPrecios
             e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID))
         End If
     End Sub
+
+    Private Function ActualizarPreciosFranquicia(ObjPS As ClsProductosServicios, row As GridViewRow) As Boolean
+        Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(137)
+        Dim Franquicias = FranquiciasStr.Split(","c)
+        Dim Porcentaje As Decimal = If(TxtPorcentaje.Text = "", -1, TxtPorcentaje.Text.ToDecimal)
+        Dim Codigo As String = row.DataKey("Codigo")
+        For Each Franquicia In Franquicias
+            Dim CveFranquicia As Integer = Franquicia.ToEntero
+            Dim CvePS As Integer = GlobalDTPS(CveFranquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo LIKE '%{0}%'", Codigo)).ToEntero
+            Dim CvePrecioLisa As Integer = GlobalDTPrecioListas(CveFranquicia).FiltroPrimeroValor("CvePrecioLista", String.Format("PrecioLista = '{0}'", DdlPrecioLista.SelectedItem.Text)).ToEntero
+            Dim EmpresaFranquicia As String = GlobalDTEmpresas(CveEmpresa:=CveFranquicia).FiltroPrimeroValor("Empresa")
+            If CvePS <= 0 Then
+                Alert(String.Format("El producto '{0}' no se encuentra en la Franquicia '{1}'", row.DataKey("PS"), EmpresaFranquicia), TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+            If CvePrecioLisa <= 0 Then
+                Alert(String.Format("El precio lista '{0}' no existe en la Franquicia '{1}'", DdlPrecioLista.SelectedItem.Text, EmpresaFranquicia), TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+            If Not ObjPS.UpdatePSPreciosLista(row.FCTextBox("TxtPrecio").Text.ToDecimal, CvePrecioLisa, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, If(RblTipo.SelectedValue = "Imp", True, False), PrecioMinimo:=row.FCTextBox("TxtPrecioMinimo").Text.ToDecimal) Then
+                Return True
+            End If
+        Next
+        Return False
+    End Function
 End Class

Ventas/ProductosServicios.aspx.vb

@@ -2865,7 +2865,7 @@ Partial Class ProductosyServicios
     End Function
 
     Private Function GuardarProductosEquivalenteEnFranquicia(ObjPS As ClsProductosServicios, Agregar As Boolean) As Boolean
-        Dim EmpresasFranquicia = New Integer() {152}
+        Dim EmpresasFranquicia = ObtenerFranquiciasInt()
         For Each Franquicia As Integer In EmpresasFranquicia
             Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero
             Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.SelectedItem.Text)).ToEntero
@@ -2893,4 +2893,16 @@ Partial Class ProductosyServicios
         Next
         Return False
     End Function
+
+    Private Function ObtenerFranquiciasInt() As Integer()
+        Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(137)
+        Dim Franquicias = FranquiciasStr.Split(","c)
+        Dim ReturnFranquicias(Franquicias.Length) As Integer
+        Dim Contador As Integer = 0
+        For Each Franquicia In Franquicias
+            ReturnFranquicias(Contador) = Franquicia.ToEntero
+            Contador += 1
+        Next
+        Return ReturnFranquicias
+    End Function
 End Class