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

-- parametro de usuario para filtrar la recpecion

Browse Source 
- propiedad de  modulo
This commit is contained in:
rrene
2020-08-18 10:28:16 -07:00
parent decbd46edc
commit f35f0e82fd
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsInventarios.vb
View File

@@ -128,6 +128,7 @@ Public Class ClsInventarios
Public Property CveRemanufactura As Integer Public Property CveRemanufactura As Integer
Public Property ResponsableCarga As String Public Property ResponsableCarga As String
Public Property ResponsableRecibio As String Public Property ResponsableRecibio As String
Public Property Modulo As String
@@ -851,6 +852,7 @@ Public Class ClsInventarios
PuestoRecibio = dr("PuestoEntrego").ToString PuestoRecibio = dr("PuestoEntrego").ToString
ResponsableCarga = dr("ResponsableCarga").ToString ResponsableCarga = dr("ResponsableCarga").ToString
ResponsableRecibio = dr("ResponsableRecibio").ToString ResponsableRecibio = dr("ResponsableRecibio").ToString
Modulo = dr("Modulo").ToString
Retorno = True Retorno = True
End If End If

7
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -616,7 +616,7 @@ Partial Class Inventarios_RecepcionAlmacen
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
If ddlProveedor.SelectedValue.ToEntero > 0 Then If ddlProveedor.SelectedValue.ToEntero > 0 Then
If ObjInventarios.ComprasPendientesAlmacenGet(ddlProveedor.SelectedValue.ToEntero, MinFecha.ToShortDateString.ToDate, UsuarioActual.CveEmpresa) Then If ObjInventarios.ComprasPendientesAlmacenGet(ddlProveedor.SelectedValue.ToEntero, MinFecha.ToShortDateString.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Dim FiltroTemporal = If(UsuarioActual.CveEmpresa = 119, "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')") Dim FiltroTemporal = If(UsuarioActual.CveEmpresa = 119, "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')")
DdlFolio.DataSource = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}") DdlFolio.DataSource = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}")
Else Else
@@ -695,7 +695,7 @@ Partial Class Inventarios_RecepcionAlmacen
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
Dim DtPendientes As New DataTable Dim DtPendientes As New DataTable
If ObjInventarios.ComprasPendientesAlmacenGet(-1, TxtFechaPendientes.Text.ToDate, UsuarioActual.CveEmpresa) Then If ObjInventarios.ComprasPendientesAlmacenGet(-1, TxtFechaPendientes.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Dim FiltroTemporal = If(UsuarioActual.CveEmpresa.Contiene(119, 140), "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')") Dim FiltroTemporal = If(UsuarioActual.CveEmpresa.Contiene(119, 140), "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')")
DtPendientes = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}") DtPendientes = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}")
Else Else
@@ -1975,7 +1975,7 @@ Partial Class Inventarios_RecepcionAlmacen
Dim CantConsulta = DtDatosImportacion.SUM(VariableCampo) Dim CantConsulta = DtDatosImportacion.SUM(VariableCampo)
If CantidadGV <> CantConsulta Then If CantidadGV <> CantConsulta Then
CargaFleteSurtir(CveFleteSurtir) CargaFleteSurtir(CveFleteSurtir)
Alert("Ha sido cambiada la informacion de existencias costo indirecto actual, se han recargado la información.", TipoMensaje.MsgAdvertencia) Alert(String.Format("Ha sido cambiada la informacion de existencias costo indirecto actual, se han recargado la información.[{0}-{1}]", CantidadGV, CantConsulta), TipoMensaje.MsgAdvertencia)
ObjComprasDif.Dispose() ObjComprasDif.Dispose()
Return False Return False
End If End If
@@ -3151,6 +3151,7 @@ Partial Class Inventarios_RecepcionAlmacen
drc("SubTotal") = drr("SubTotal") drc("SubTotal") = drr("SubTotal")
drc("TipoCambio") = drr("TipoCambio") drc("TipoCambio") = drr("TipoCambio")
drc("CveProveedor") = drr("CveProveedor") drc("CveProveedor") = drr("CveProveedor")
drc("SubTotalTC") = drr("SubTotalTC")
DtTempCompras.Rows.Add(drc) DtTempCompras.Rows.Add(drc)
End If End If