From 7cbe4e9cbb17441bdac4394838448ad365711a6b Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Feb 2025 16:49:10 -0700 Subject: [PATCH] -- BDH TipoCompra=16, apoyo sin virtual --- Inventarios/RecepcionAlmacen.aspx.vb | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 216ace50e..4a05f83af 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -1028,6 +1028,8 @@ Partial Class Inventarios_RecepcionAlmacen CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra) ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor CargaAlmacenes(-1, "1,21,2,27", CveTipoCompra) + ElseIf CveTipoCompra = 16 Then ' apoyo sin virtual y virtual aparte + CargaAlmacenes(-1, "1", CveTipoCompra) Else CargaAlmacenes(-1) End If @@ -1076,7 +1078,9 @@ Partial Class Inventarios_RecepcionAlmacen If TipoMovimiento = 3 Then CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "21", CveTipoCompra) Else - CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra) + Dim tTipoAlm As String = "22" + If CveTipoCompra = 16 Then tTipoAlm = "22,1,24" ' apoyos, "acumuladores sin virtual" o "virtual solo" + CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, tTipoAlm, CveTipoCompra) End If Else @@ -2842,6 +2846,16 @@ Partial Class Inventarios_RecepcionAlmacen 'Next End If + + If Not ErrorMovInv Then + 'REPLICAR MOVTO GENERADO + If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then + If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then + ErrorMovInv = True + End If + End If + End If + Else ErrorMovInv = True End If