From c539292e197f0d2e8bab53062458c2ddf7ab5730 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 21 Sep 2020 16:38:01 -0700 Subject: [PATCH] =?UTF-8?q?nuevo=20filtro=20de=20aplica=20nc=20y=20esete?= =?UTF-8?q?=20mismo=20cambia=20al=20solicitar=20una=20devoluci=C3=B3n=20en?= =?UTF-8?q?=20una=20compra?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsMovimientos.vb | 14 +++++++------- Compras/RepCxPDetalle.aspx | 10 +++++++++- Compras/RepCxPDetalle.aspx.vb | 2 +- Inventarios/TraspasoAlmacen.aspx | 8 ++++---- Inventarios/TraspasoAlmacen.aspx.vb | 7 +++++++ 5 files changed, 28 insertions(+), 13 deletions(-) diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index fac07ad08..845ac3d6b 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -1188,13 +1188,12 @@ Public Class ClsMovimientos Return Retorno End Function - Public Function GetCxPDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveProveedorClasificacion As Integer, - CveProveedorSucursal As Integer, CveUsuario As Integer, - CveUsuarioResponsable As Integer, - Anio As Integer, Mes As Integer, AnioMes As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEstatusFactura As Integer, - Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, - Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, - Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1, Optional Comprobaciones As Integer = -1) As Boolean + Public Function GetCxPDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveProveedorClasificacion As Integer, CveProveedorSucursal As Integer, CveUsuario As Integer, + CveUsuarioResponsable As Integer, Anio As Integer, Mes As Integer, AnioMes As String, CveMoneda As Integer, CveSubProyecto As Integer, + CveEstatusFactura As Integer, Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer, + TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional FechaVI As String = "-1", Optional FechaVF As String = "1", + Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1, + Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1) As Boolean Dim Retorno As Boolean = False If FechaCorte = Nothing Then FechaCorte = Now @@ -1227,6 +1226,7 @@ Public Class ClsMovimientos .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor .Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones + .Add("@AplicaNC", SqlDbType.Int).Value = AplicaNC End With Try diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index f51a57272..120b5ff4b 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -222,7 +222,7 @@ -
Comprobación:
+
Comprobación:
@@ -230,6 +230,14 @@
+
Aplica NC:
+
+ + + + + +
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index d35433c2c..842000f1e 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -379,7 +379,7 @@ Partial Class RepCxPDetalle DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, CveMoneda, CveSubProyecto, DdlEstatusCompra.SelectedValue.ToEntero, Fecha, DdlGrupo.SelectedValue.ToEntero, Opcion, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(CveTipoProveedor = 3, - -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero) Then + -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero()) Then Dim TMP_DTDatos As New DataTable diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 74a50ea34..392b44f2c 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -174,7 +174,7 @@
- +
@@ -198,20 +198,20 @@
- +
- +
- +
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 49dc29ef3..1d6b6c93f 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -210,6 +210,13 @@ Partial Class Inventarios_TraspasoAlmacen DivEmitirTimbrado.Visible = True LblEmitirTimbrado.Visible = True ChkEmitirTimbrado.Checked = True + + Dim HabilitarValidators As Boolean = UsuarioActual.CveEmpresa.Contiene(119) + RfvDdlChofer.Enabled = HabilitarValidators + RfvDdlUnidadCamion.Enabled = HabilitarValidators + RfvTxtPlaca.Enabled = HabilitarValidators + RfvTxtEspecifUnidad.Enabled = HabilitarValidators + End If CantidadTotal = 0