AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejora en filtro de empresa

Browse Source
This commit is contained in:
rrene
2022-05-11 20:08:08 -07:00
parent 995cb74bc6
commit ee52094f47
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
App_Code/ClsCompras.vb
View File

@@ -1735,13 +1735,14 @@ Public Class ClsCompras
Return OnError Return OnError
End Function End Function
Public Function UpdateEstatus(pFueValidado As Integer, pCveFactura As Integer) As Boolean Public Function UpdateEstatus(pFueValidado As Integer, pCveFactura As Integer, CveEmpresa As Integer) As Boolean
Dim OnError As Boolean = False Dim OnError As Boolean = False
DataAdapter("UPDATE Comp_Facturas SET FueValidado = @pFueValidado WHERE CveFactura = @pCveFactura ", CommandType.Text) DataAdapter("UPDATE Comp_Facturas SET FueValidado = @pFueValidado WHERE CveFactura = @pCveFactura AND CveEmpresa = @CveEmpresa ", CommandType.Text)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@pFueValidado", SqlDbType.SmallInt).Value = pFueValidado .Add("@pFueValidado", SqlDbType.SmallInt).Value = pFueValidado
.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try
@@ -1754,12 +1755,14 @@ Public Class ClsCompras
Return OnError Return OnError
End Function End Function
Public Function DeleteFactura(pCveFactura As Integer) As Boolean Public Function DeleteFactura(pCveFactura As Integer, CveEmpresa As Integer) As Boolean
Dim OnError As Boolean = False Dim OnError As Boolean = False
DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveCompra IS NULL ", CommandType.Text) DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveEmpresa = @CveEmpresa AND CveCompra IS NULL ", CommandType.Text)
With SqlAdapter.SelectCommand.Parameters
SqlAdapter.SelectCommand.Parameters.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura .Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)