From 6c8fa952f8808add223c8335f18b26199a311bdc Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 26 Feb 2024 12:48:50 -0700
Subject: [PATCH] - garantia

---
 Compras/Compras.aspx.vb | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 1b294be84..393b0603e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5107,11 +5107,7 @@ Partial Class Compras_Compras
                                         '    Next
                                         'End If
 
-                                        If DdlTipoCompra.SelectedValue = "14" Then 'recolección
-                                            If Not ObjGrales.UpdateInvEntregaAlmacenEstatus(DdlRecoleccion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2, CveCompra) Then
-                                                ErrorDetalles = True
-                                            End If
-                                        End If
+
 
                                         'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF
                                         If Row("TipoAF").ToString.ToEntero = 2 Then
@@ -5136,6 +5132,12 @@ Partial Class Compras_Compras
                                     Next
                                     ''TERMINA: INSERTA DETALLES DE LA COMPRA
 
+                                    If DdlTipoCompra.SelectedValue = "14" Then 'recolección
+                                        If Not ObjGrales.UpdateInvEntregaAlmacenEstatus(DdlRecoleccion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2, CveCompra) Then
+                                            ErrorDetalles = True
+                                        End If
+                                    End If
+
                                     'QUEMA SALDOS DE INV-COMPRA | MERCANCIA RECIBIDA POR ADELANTADO (OC) | PP 176
                                     If OCVinculada And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
                                         For Each Row As DataRow In TmpDT.FiltraParametros("CveTipoPS = 2").Rows
@@ -19742,6 +19744,10 @@ Partial Class Compras_Compras
                     Dim cantidad As Decimal = dr("CantidadDisponible").ToString.ToDecimal
                     AddPS(cantidad, dr("CveUM").ToString.ToEntero, "", dr("CveClasificacion").ToString.ToEntero, "", dr("CvePS").ToString.ToEntero, dr("PS").ToString, 2, tCveSub.ToString, "SE", "SE", "", "", pu, Total, Porcentaje, 0, 0, 0, 0, 0, PorcentajeIVA:=Porcentaje, TCalculaTotales:=True, CveTipoGasto:=tCveTipoGasto)
                 Next
+                'cambia si hay ps con uso de serie
+                For Each dr As DataRow In TmpDT.Rows
+                    dr("CveMetodoInventario") = 1
+                Next
                 AddPS2()
 
             End If