Solicitud de devolucion en devoluciones,agregar agenda de resguardo

Inventarios/RecepcionEntrega.aspx.vb

@@ -1902,6 +1902,13 @@ Partial Class Inventarios_RecepcionEntrega
                 ConceptoMovimiento = 8
                 Almacen1 = CveAlmacenTraspasoDestino
                 CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero
+            End If
+
+            'CANCELACION DE DEVOLUCION
+            If TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1 Then
+                ConceptoMovimiento = 2
+                Almacen1 = DdlAlmacen.SelectedValue.ToEntero
+                CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero
             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)
@@ -1993,7 +2000,7 @@ Partial Class Inventarios_RecepcionEntrega
 
         'ENTRADA POR TRASPASO CUANDO ES REMISION
         If Not ErrorMovInv Then
-            If CveAlmacenTraspasoDestino > 0 Then ' TRASPASO CUANDO ES REMISION
+            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, CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero)
                 FolioEntrada = ObjInventario.Folio
 
@@ -2064,8 +2071,8 @@ Partial Class Inventarios_RecepcionEntrega
                             End If
 
                             'AutoConta - El movimiento 1 es el de Venta
-                            Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
-
+                            Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+
                             If AutoConta And Not ErrorMovInv Then
                                 Dim ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)