From 1f55549a95cd5db6a174b1493525b5f23a3466fe Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 20 May 2022 17:50:49 -0700
Subject: [PATCH] correccion de error

---
 Inventarios/EntregaAlmacen.aspx.vb | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 04bee566c..eb384fd34 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2330,7 +2330,7 @@ Partial Class Inventarios_EntregaAlmacen
                         Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
                         Dim Serie As String = RowGarantia("Comprobante").ToString
 
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=RowGarantia("CveVentaDetalle").ToString.ToEntero) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=IIf(RowGarantia("MismoCvePS").ToString = "1", RowGarantia("CveVentaDetalle"), -1).ToString.ToEntero) Then
                             ErrorMovInv = True
                             TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                             Exit For
@@ -2430,8 +2430,9 @@ Partial Class Inventarios_EntregaAlmacen
                 ConceptoMovimiento = If(CveAlmacenTraspasoDestino > 0, 8, ConceptoMovimiento)
 
                 Dim Almacen1 As Integer = DdlAlmacen.SelectedValue.ToEntero()
+                Dim tCveAlmacenTraspasoDestino As Integer = CveAlmacenTraspasoDestino
 
-                If TipoDocto = "Rem" AndAlso CveAlmacenTraspasoDestino = 0 Then
+                If TipoDocto = "Rem" AndAlso tCveAlmacenTraspasoDestino = 0 Then
                     ErrorMovInv = True
                     TextoError.AppendFormat("Ocurrió un error. no se tiene definido el almacen destino")
                 End If
@@ -2440,14 +2441,14 @@ Partial Class Inventarios_EntregaAlmacen
                 If TipoMovimiento = 2 And TipoDocto = "Rem" Then
                     ConceptoMovimiento = 8
                     Almacen1 = CveAlmacenTraspasoDestino
-                    CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero()
+                    tCveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero()
                 End If
 
                 'CANCELACION DE DEVOLUCION
                 If TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1 Then
                     ConceptoMovimiento = 3
                     Almacen1 = DdlAlmacen.SelectedValue.ToEntero()
-                    CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero()
+                    tCveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero()
                 End If
 
                 'DEVOLUCION DIRECTA A ENTREGA POR ADELANTADO
@@ -2456,7 +2457,7 @@ Partial Class Inventarios_EntregaAlmacen
                 End If
 
                 CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text,
-                                                        CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Modulo:="RE/G7")
+                                                        CveContrato:=CveContrato, CveAlmacenDestino:=tCveAlmacenTraspasoDestino, Modulo:="RE/G7")
                 Folio = ObjInventario.Folio
 
                 'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
@@ -2555,8 +2556,8 @@ Partial Class Inventarios_EntregaAlmacen
 
                 'ENTRADA POR TRASPASO CUANDO ES REMISION
                 If Not ErrorMovInv Then
-                    If CveAlmacenTraspasoDestino > 0 AndAlso Not (TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1) Then ' TRASPASO CUANDO ES REMISION
-                        CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato,
+                    If tCveAlmacenTraspasoDestino > 0 AndAlso Not (TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1) Then ' TRASPASO CUANDO ES REMISION
+                        CveMovimientoEntrada = ObjInventario.AddMovimiento(tCveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato,
                                                                            CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G8")
                         FolioEntrada = ObjInventario.Folio
                         Dim ImporteAlmacen As Decimal = 0