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
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
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
.Add("@pFueValidado", SqlDbType.SmallInt).Value = pFueValidado
.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
@@ -1754,12 +1755,14 @@ Public Class ClsCompras
Return OnError
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
DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveCompra IS NULL ", CommandType.Text)
SqlAdapter.SelectCommand.Parameters.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura
DataAdapter(" DELETE Comp_Facturas WHERE CveFactura = @pCveFactura AND CveEmpresa = @CveEmpresa AND CveCompra IS NULL ", CommandType.Text)
With SqlAdapter.SelectCommand.Parameters
.Add("@pCveFactura", SqlDbType.Int).Value = pCveFactura
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)