-- cambios temporales

App_Code/ClsInventarios.vb

@@ -5252,6 +5252,30 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
+
+    'Public Function GetMovimientosDetalleTransitorio(CveMovimiento As Integer, CveEmpresa As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
+    '    DataAdapter("
+    '            select t.FechaMovto, t.CveMovimiento, d.CvePS, d.Cantidad, d.PUOriginal,d.CveUM,     dm.CveMovimiento, db.CveMovimientoDetalle   from (
+    '            select * from Inv_Movimientos m where CveConcepto = 27 and CveEmpresa = @CveEmpresa and
+    '            m.FechaMovto > '2020/10/01' and m.CveMovimiento = @CveMovimiento and not exists (select * from Conta_PrePolizasDetalle dd where dd.CveMovimientoAlmacen = m.CveMovimiento)
+    '            ) t left join Inv_MovimientosDetalle d on d.CveMovimiento = t.CveMovimiento left join Inv_MovimientosDetalle dm on dm.CveMovimientoDetalle = d.CveMovimientoDetalleEntrada
+    '             left join Inv_MovimientosDetalle db on db.CveMovimientoDetalleEntrada = dm.CveMovimientoDetalle  and db.CveMovimiento = dm.CveMovimiento + 1 order by db.CveMovimientoDetalle   ", CommandType.Text)
+
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '    End With
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
+
+    '    Return Retorno
+    'End Function
+
 #Region "Proyeccion"
     Public Function AddMovimientosProyectados(CvePS As Integer, Cantidad As Decimal, TipoMovto As Integer) As Boolean
         Dim Retorno As Boolean = False