From 6cae4f1675c1b2e292f2dde6b14bcc3bff644df1 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 29 Dec 2021 14:43:31 -0700 Subject: [PATCH] --activar devoluciones a cualquier empresa --- Inventarios/RecepcionAlmacen.aspx.vb | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index cd55abaa6..7e81a6401 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -704,7 +704,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim ObjInventarios As New ClsInventarios If ddlProveedor.SelectedValue.ToEntero > 0 Then If ObjInventarios.ComprasPendientesAlmacenGet(ddlProveedor.SelectedValue.ToEntero, MinFecha.ToShortDateString.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - Dim FiltroTemporal = If(UsuarioActual.CveEmpresa = 119, "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')") + Dim FiltroTemporal = " AND TipoDocto IN ('Fac','NC','DEV')" DdlFolio.DataSource = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}") Else Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError) @@ -981,7 +981,7 @@ Partial Class Inventarios_RecepcionAlmacen ElseIf CveTipoCompra = 10 Then CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra) ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor - CargaAlmacenes(-1, "21,2,27", CveTipoCompra) + CargaAlmacenes(-1, "1,21,2,27", CveTipoCompra) Else CargaAlmacenes(-1) End If @@ -2775,15 +2775,15 @@ Partial Class Inventarios_RecepcionAlmacen .Data = group }) - - For Each oc In resultsOC - If oc.Cantidad < oc.CantidadOC Then - MensajeOC.AppendFormat("- {0}
", oc.PS) - If Not ObjOC.UpdateOrdenCompraDetalleDivideCantidad(CveOCSurtir, oc.CveOCDetalle, oc.Cantidad, UsuarioActual.CveUsuario) Then - ErrorMovInv = True - End If - End If - Next + 'comentado para subir versión, dividirOC + 'For Each oc In resultsOC + ' If oc.Cantidad < oc.CantidadOC Then + ' MensajeOC.AppendFormat("- {0}
", oc.PS) + ' If Not ObjOC.UpdateOrdenCompraDetalleDivideCantidad(CveOCSurtir, oc.CveOCDetalle, oc.Cantidad, UsuarioActual.CveUsuario) Then + ' ErrorMovInv = True + ' End If + ' End If + 'Next End If Else @@ -3145,7 +3145,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero() - CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G5") + CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 37, 36), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G5") FolioVirtual = ObjInventario.Folio For Each RowUsado As DataRow In DtPSVirtual.Rows