--Replicar movto en transitorios

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