From e4094327357e6d47797e461cda3f57353936a625 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 25 Jun 2025 07:02:35 -0700
Subject: [PATCH] -

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

diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index 2ce03c048..a22fce440 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -204,7 +204,7 @@ Public Class ClsProductosServicios
     End Sub
 #End Region
     Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional NumeroParte As String = "-1",
-                          Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional PSExtranjero As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1,
+                          Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1,
                           Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1,
                           Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000, Optional CveMarca As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -217,7 +217,6 @@ Public Class ClsProductosServicios
             .Add("@NumeroParte", SqlDbType.VarChar).Value = NumeroParte
             .Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
             .Add("@PS", SqlDbType.VarChar).Value = PS
-            .Add("@PSExtranjero", SqlDbType.VarChar).Value = PSExtranjero
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@EsPaquete", SqlDbType.SmallInt).Value = EsPaquete
             .Add("@AplicaParaVenta", SqlDbType.Int).Value = pAplicaParaVenta
@@ -333,7 +332,6 @@ Public Class ClsProductosServicios
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
         End With
 
         Try
@@ -424,8 +422,6 @@ Public Class ClsProductosServicios
         DataAdapter("PA_ProductosServiciosAdd")
 
         With SqlAdapter.SelectCommand.Parameters
-
-
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
@@ -433,6 +429,7 @@ Public Class ClsProductosServicios
             .Add("@NumeroParte", SqlDbType.VarChar).Value = If(NumeroParte = "", "-1", NumeroParte)
             .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
             .Add("@PS", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS)
+            .Add("@PSExtranjero", SqlDbType.VarChar).Value = If(PSExtranjero.Length > 845, PSExtranjero.Substring(0, 845), PSExtranjero)
             .Add("@Precio", SqlDbType.Float).Value = Precio
             .Add("@IVA", SqlDbType.Float).Value = IVA
             .Add("@RetIVA", SqlDbType.Float).Value = RetIVA
@@ -441,7 +438,6 @@ Public Class ClsProductosServicios
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@EsPaquete", SqlDbType.Bit).Value = EsPaquete
-            .Add("@PSExtranjero", SqlDbType.VarChar).Value = If(PSExtranjero.Length > 845, PSExtranjero.Substring(0, 845), PSExtranjero)
             .Add("@CveMetodoInventario", SqlDbType.Int).Value = CveMetodoInventario
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
             .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
@@ -717,6 +713,7 @@ Public Class ClsProductosServicios
             .Add("@NumeroParte", SqlDbType.VarChar).Value = If(NumeroParte = "", "-1", NumeroParte)
             .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
             .Add("@PS", SqlDbType.VarChar).Value = PS
+            .Add("@PSExtranjero", SqlDbType.VarChar).Value = PSExtranjero
             .Add("@Precio", SqlDbType.Float).Value = Precio
             .Add("@IVA", SqlDbType.Float).Value = IVA
             .Add("@RetIVA", SqlDbType.Float).Value = RetIVA
@@ -738,8 +735,6 @@ Public Class ClsProductosServicios
             .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
             .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@PSExtranjero", SqlDbType.VarChar).Value = PSExtranjero
-
             'Nuevo R: 26/09/2017'
             .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable
             .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index a5ad37be6..5dc93ffeb 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -286,7 +286,7 @@
                                             <i></i>
                                         </div>
 
-                                        <div class="row">
+                                        <div class="row" runat="server" visible="false">
                                             <div class="col-md-12">
                                                 <div class="form-group form-md-line-input input-iconright">
                                                     <asp:TextBox ID="TxtPSExtranjero" TextMode="MultiLine" Rows="2" CssClass="form-control" runat="server" MaxLength="846"></asp:TextBox>