From 914d659ce6ceb44641978118c63d252fd43d9040 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 Feb 2021 13:05:09 -0700
Subject: [PATCH] campo preciolibre

---
 App_Code/ClsProductosServicios.vb | 2 +-
 Compras/Compras.aspx.vb           | 2 +-
 Ventas/ProductosServicios.aspx    | 4 ++++
 Ventas/ProductosServicios.aspx.vb | 5 +++--
 4 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index 0c327b82a..8afea1057 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -307,7 +307,7 @@ Public Class ClsProductosServicios
                 ClaveImpuestoUnidadMedida = Data.Rows(0)("ClaveImpuestoUM").ToString
                 ClaveCategoriaToxicidad = Data.Rows(0)("ClaveCategoriaToxicidad").ToString
                 EsOutSourcing = Data.Rows(0)("EsOutSourcing").ToString = "True"
-                EsOutSourcing = Data.Rows(0)("PrecioLibre").ToString = "True"
+                PrecioLibre = Data.Rows(0)("PrecioLibre").ToString = "True"
 
             End If
             Retorno = True
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 12b6e23e7..e568e6b2e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -19628,7 +19628,7 @@ Private Sub CargaNCINV()
         If DdlFletes.SelectedValue.ToEntero > 0 Then
             Dim ObjInventario As New ClsInventarios
             Dim Dr As DataRow = Nothing
-            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero) Then
+            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero, OpcionInventario:=1) Then
                 If ObjInventario.DtResultados.Rows.Count > 0 Then
                     Dr = ObjInventario.DtResultados.Rows(0)
                 End If
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index d83ba7ada..a0a12b138 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -575,6 +575,10 @@
                                             <label>Retiene 6% de IVA por Servicios</label>
                                             <asp:CheckBox ID="ChkEsOutSourcing" CssClass="make-switchsd" data-size="small" runat="server" Checked="False" />
                                         </div>
+                                        <div class="form-group form-md-line-input input-iconright" title="El precio no está determinado por el valor de la lista de precio, este es manual.">
+                                            <label>Precio Libre de Lista</label>
+                                            <asp:CheckBox ID="ChkPrecioLibre" CssClass="make-switchsd" data-size="small" runat="server" Checked="False" />
+                                        </div>
                                     </div>
                                 </div>
                             </div>
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 4526e1692..d3e678596 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -901,6 +901,7 @@ Partial Class ProductosyServicios
 
                 LnkUnificar.Visible = True
                 ChkEsOutSourcing.Checked = ObjProductosServicios.EsOutSourcing
+                ChkPrecioLibre.Checked = ObjProductosServicios.PrecioLibre
             Else
                 Alert("El Producto o Servicio Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                 RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
@@ -1237,7 +1238,7 @@ Partial Class ProductosyServicios
                                            CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
                                            CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                            ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
-                                           ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero()) > 0 Then
+                                           ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) > 0 Then
                 ViewState("CvePS") = ObjProductosServicios.CvePS
                 For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                     If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1286,7 +1287,7 @@ Partial Class ProductosyServicios
                                               CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                               ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                               ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
-                                              AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero()) Then
+                                              AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) Then
 
                 If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                     TieneError = True