From d670e699046a7fd65398b733e9419eb608d90fdc Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 18 Feb 2025 11:18:50 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20y=20mejora=20en=20ubicac?=
 =?UTF-8?q?i=C3=B3n=20de=20c=C3=B3digo,=20para=20evitar=20error?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 31 +++++++------------------------
 1 file changed, 7 insertions(+), 24 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index b98c6e2e8..7746f79d5 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18303,6 +18303,12 @@ Partial Class Compras_Compras
             If Not DdlTipoCompra.SelectedValue.Contiene("12") AndAlso DrPS("AplicaSerie").ToString = "True" Then
                 Row("CveMetodoInventario") = "1"
             End If
+            If (DrPS("CvePSCargo").ToString <> "") Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
+                CveTipoPS = 2
+            End If
+            Row("AplicaSerie") = DrPS("AplicaSerie")
+            Row("AplicaLote") = DrPS("AplicaLote")
+            Row("AplicaCaducidad") = DrPS("AplicaCaducidad")
         Else
             Row("PSCodigo") = PSCodigo
             Row("CveMetodoInventario") = 0
@@ -18316,36 +18322,17 @@ Partial Class Compras_Compras
 
         If (Version = "3.3" Or Version = "4.0") And CveSATPS > 0 Then
             Dim DrPSSAT As DataRow = Nothing
-            If CargaXml Then
-                DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("")
-                'If GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows.Count > 0 Then
-                '    DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows(0)
-                'End If
-            Else
-                DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("") '= GlobalDTPSATPS().FiltroPrimero(String.Format("SATClavePS={0}", CveSATPS))
-                'If GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows.Count > 0 Then
-                '    DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows(0)
-                'End If
-            End If
+            DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("")
             If DrPSSAT IsNot Nothing Then
                 Row("SATClaveProductoServicio") = DrPSSAT("SATClaveProductoServicio").ToString
                 Row("CveSATPS") = DrPSSAT("CveSATPS").ToString
                 If CveSATPSActualizado Then
                     Row("CveSATPSActualizado") = 1
-
                 Else
                     Row("CveSATPSActualizado") = 0
-
                 End If
             End If
         End If
-        Try
-            If (DrPS("CvePSCargo").ToString <> "") Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
-                CveTipoPS = 2
-            End If
-        Catch ex As Exception
-
-        End Try
 
         Dim DecimalesPermitidos As Integer = 6
 
@@ -18435,10 +18422,6 @@ Partial Class Compras_Compras
 
         Row("CveContratoDetalle") = CveContratoDetalle
 
-        Row("AplicaSerie") = DrPS("AplicaSerie")
-        Row("AplicaLote") = DrPS("AplicaLote")
-        Row("AplicaCaducidad") = DrPS("AplicaCaducidad")
-
         Row("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle
         Row("TemporadaCuadro") = TemporadaCuadro
         If CveAlmacen > 0 Then Row("CveAlmacen") = CveAlmacen