From 30fed375ef89c63cd4fd2253579dca8159cf1ab6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 11 Feb 2025 18:48:19 -0700 Subject: [PATCH] --Replicar movto en transitorios --- Inventarios/TraspasoAlmacen.aspx.vb | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index c23d2a236..6e28bd86d 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1242,6 +1242,30 @@ Partial Class Inventarios_TraspasoAlmacen End If End If + If Not ErrorMovInv AndAlso Not ChkTransitorio.Checked Then + 'REPLICAR MOVTO GENERADO + If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoSalida > 0 Then + + Dim CveEmpresaFranquicia As Integer = 201 + + Dim AlmacenOrigen As String = GlobalDTAlmacen(CveEmpresaFranquicia).FiltroPrimeroValor("Almacen", $"Almacen='{DdlAlmacenOrigen.SelectedItem.Text}'") + If String.IsNullOrEmpty(AlmacenOrigen) Then + ErrorMovInv = True + TextoError = $"No se encontro el almacen '{DdlAlmacenOrigen.SelectedItem.Text}' en la empresa 'GRUPO MEDICO CASTRO DIAZ'" + End If + + Dim AlmacenDestino As String = GlobalDTAlmacen(CveEmpresaFranquicia).FiltroPrimeroValor("Almacen", $"Almacen='{DdlAlmacenDestino.SelectedItem.Text}'") + If String.IsNullOrEmpty(AlmacenDestino) Then + ErrorMovInv = True + TextoError = $"No se encontro el almacen '{DdlAlmacenDestino.SelectedItem.Text}' en la empresa 'GRUPO MEDICO CASTRO DIAZ'" + End If + + If Not ErrorMovInv AndAlso Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoSalida, CveMovimientoEntrada) Then + ErrorMovInv = True + End If + End If + End If + If Not ErrorMovInv Then DtTraslado = DtMovimientos.Copy