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

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