-- filtro empresa proyectados

This commit is contained in:
rrene
2020-10-30 11:25:38 -07:00
parent 0350b1a2e8
commit 6fba8fe600

View File

@@ -5259,13 +5259,13 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function End Function
Public Function DeleteMovimientosProyectados(TipoMovto As Integer) As Boolean Public Function DeleteMovimientosProyectados(TipoMovto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("Inv_MovimientosProyectadosDelete") DataAdapter("Inv_MovimientosProyectadosDelete")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@TipoMovto", SqlDbType.TinyInt).Value = TipoMovto .Add("@TipoMovto", SqlDbType.TinyInt).Value = TipoMovto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try