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

- limitar por empresa, las compras detalle

Browse Source
This commit is contained in:
rrene
2024-05-18 13:43:02 -07:00
parent dd6ab1b398
commit 63d82b6e1a
2 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsCompras.vb
View File

@@ -1921,12 +1921,12 @@ Public Class ClsCompras
Return Retorno Return Retorno
End Function End Function
Public Function GetCompraDetalleAlmacen(CveEmpresa As Integer, CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean
Public Function GetCompraDetallealmacen(CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_DetalleAlmacen") DataAdapter("PA_Comp_DetalleAlmacen")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
End With End With

3
Compras/Compras.aspx.vb
View File

@@ -13105,14 +13105,13 @@ Partial Class Compras_Compras
End Sub End Sub
Protected Sub DDLDevolucion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLDevolucion.SelectedIndexChanged Protected Sub DDLDevolucion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLDevolucion.SelectedIndexChanged
If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then
DivAlmacenDev.Visible = True DivAlmacenDev.Visible = True
End If End If
Dim objcompras As New ClsCompras() Dim objcompras As New ClsCompras()
If objcompras.GetCompraDetallealmacen(DDLDevolucion.SelectedValue.ToEntero) Then If objcompras.GetCompraDetalleAlmacen(UsuarioActual.CveEmpresa, DDLDevolucion.SelectedValue.ToEntero) Then
GVDevolucion.DataSource = objcompras.DtResultados GVDevolucion.DataSource = objcompras.DtResultados
GVDevolucion.DataBind() GVDevolucion.DataBind()
End If End If