--2 JP Replicación Biosistemas(hermana E201), PS y UM ( aplica lote/cad) y enviar PA (5 lugares), - logo OC Biosistemas.

App_Code/ClsInventarios.vb

@@ -6405,20 +6405,21 @@ Public Class ClsInventarios
     End Function
 
 
-    Public Function ReplicarMovtoEmpresa(CveEmpresa As Integer, CveMovimiento As Integer) As Boolean
+    Public Function ReplicarMovtoEmpresa(CveEmpresa As Integer, CveMovimiento As Integer, Optional CveMovimientoSecundario As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_ReplicaMovtoInterEmpresa")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
+            .Add("@CveMovimientoSecundario", SqlDbType.Int).Value = CveMovimientoSecundario
         End With
 
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al consultar los productos por ultimo costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un error al replicar el movimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
         Return Retorno

Compras/Compras.aspx.vb

@@ -5883,6 +5883,15 @@ Partial Class Compras_Compras
                                                                 ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, tImporte, tImporte, 68, ObjInventario.Folio.ToString, ObjInventario.Folio.ToString, CveMovimientoAlmacen:=CveMovimientoInventario)
                                                             End If
 
+                                                            If Not ErrorMovInv Then
+                                                                'REPLICAR MOVTO GENERADO
+                                                                If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoInventario > 0 Then
+                                                                    If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoInventario) Then
+                                                                        ErrorMovInv = True
+                                                                    End If
+                                                                End If
+                                                            End If
+
                                                         End If
                                                     Next
                                                 End If
@@ -13910,6 +13919,15 @@ Partial Class Compras_Compras
                         End If
                     Next
                 End If
+
+                If Not ErrorMovInv Then
+                    'REPLICAR MOVTO GENERADO
+                    If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoEntrada > 0 Then
+                        If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoEntrada) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+                End If
             Else
                 ErrorMovInv = True
                 Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia)
@@ -14587,6 +14605,15 @@ Partial Class Compras_Compras
                         End If
 
                     End If
+
+                    If Not ErrorCancelar Then
+                        'REPLICAR MOVTO GENERADO
+                        If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoEntrada > 0 Then
+                            If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoEntrada) Then
+                                ErrorCancelar = True
+                            End If
+                        End If
+                    End If
                 Next
 
             End If
@@ -19414,6 +19441,15 @@ Partial Class Compras_Compras
                 Respuesta = False
             End If
 
+            If Not Respuesta Then
+                'REPLICAR MOVTO GENERADO
+                If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoSalida > 0 Then
+                    If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoSalida) Then
+                        Respuesta = False
+                    End If
+                End If
+            End If
+
         End If
 
         If Respuesta Then

Compras/PopUpVerFactura.aspx.vb

@@ -3163,7 +3163,7 @@ Partial Class PopUpVerFactura
                     If UsuarioActual.CveEmpresa.Contiene(4, 145) Then
                         params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                     End If
-                    If UsuarioActual.CveEmpresa = 119 Then
+                    If UsuarioActual.CveEmpresa.Contiene(119, 199, 201) Then
 
                         params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                         params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC))
@@ -3181,7 +3181,7 @@ Partial Class PopUpVerFactura
                     If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"
 
                     'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189) Then
+                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189, 199, 201) Then
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", ConceptoFormato))
                         params.Add(New ReportParameter("Almacen", Almacen))
@@ -3394,7 +3394,7 @@ Partial Class PopUpVerFactura
                     If Archivo.Exists Then
 
                         'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146, 186) Then
+                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146, 186, 199, 201) Then
                             Dim CiudadSucursal As String = ""
                             Dim DomicilioSucursal As String = ""
                             Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)

Inventarios/EntradasSalidas.aspx.vb

@@ -2306,6 +2306,15 @@ Partial Class Inventarios_EntradasSalidas
                                 End If
                             End If
 
+                            'REPLICAR MOVTO EN EMPRESA
+                            If Not ErrorMovInv Then
+                                If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then
+                                    If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then
+                                        ErrorMovInv = True
+                                    End If
+                                End If
+                            End If
+
                             If Not ErrorAC And Not ErrorMovInv Then
 
                                 Dim Msg As New StringBuilder

Inventarios/EntregaAlmacen.aspx.vb

@@ -3380,6 +3380,15 @@ Partial Class Inventarios_EntregaAlmacen
             End If
         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
+
         If Not ErrorMovInv Then
 
             ObjInventario.Commit()

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2842,6 +2842,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

Ventas/Ventas.aspx.vb

@@ -16893,6 +16893,13 @@ Partial Class Ventas
                             factura.Inv_ValorInventario = ValorInventario
                         End If
 
+                        'REPLICAR MOVTO GENERADO
+                        If UsuarioActual.CveEmpresa = 199 AndAlso factura.Inv_CveMovimiento > 0 Then
+                            If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, factura.Inv_CveMovimiento) Then
+                                ErrorList.Add("Ocurrió un error al replicar el movimiento.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
+                            End If
+                        End If
+
                     End If
 
                     'DEBE GENERAR MOVIMIENTO SI SE FACTURARON PRODUCTOS, O NO SE REALIZA UNA REFACTURACION
@@ -16989,6 +16996,15 @@ Partial Class Ventas
                             End If
                         End If
 
+                        If Not OcurrioError Then
+                            'REPLICAR MOVTO GENERADO
+                            If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoSalidaPorTraspaso > 0 Then
+                                If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoSalidaPorTraspaso) Then
+                                    ErrorList.Add("Ocurrió un error al replicar el movimiento.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
+                                End If
+                            End If
+                        End If
+
                     End If
 
                 End If