From 7bb5febee45e254d948d29377cb900f7711ac7be Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 30 May 2022 22:04:36 -0700 Subject: [PATCH] -- filtro usuario, en deposito caja --- App_Code/ClsBancos.vb | 6 ++++-- Bancos/DepositosCaja.aspx | 6 ++++++ Bancos/DepositosCaja.aspx.vb | 20 +++++++++----------- 3 files changed, 19 insertions(+), 13 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index d416a98bb..ea7eb8782 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1758,7 +1758,7 @@ Public Class ClsBancos Return Retorno End Function - Public Function CancelarBancos_IE(CveUsuario As Integer, CveIE As Integer, MesAnterior As Boolean, IdPoliza As Integer, FolioPoliza As Integer, Optional FechaCancelacion As Date = MinFecha, Optional TipoMovimiento As Integer = 1, Optional CveTipoTransaccionCancelacion As Integer = -1) As Integer + Public Function CancelarBancos_IE(CveUsuario As Integer, CveIE As Integer, MesAnterior As Boolean, IdPoliza As Integer, FolioPoliza As Integer, Optional FechaCancelacion As Date = MinFecha, Optional TipoMovimiento As Integer = 1, Optional CveTipoTransaccionCancelacion As Integer = -1, Optional CveCuentaDevolucion As Integer = -1) As Integer Dim Retorno As Integer = 0 DataAdapter("PA_Banc_IECancelar") @@ -1772,6 +1772,7 @@ Public Class ClsBancos .Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion .Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento .Add("@CveTipoTransaccionCancelacion", SqlDbType.Int).Value = CveTipoTransaccionCancelacion + .Add("@CveCuentaDevolucion", SqlDbType.Int).Value = CveCuentaDevolucion .Add("@CvePrePoliza", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -3592,7 +3593,7 @@ Public Class ClsBancos #End Region #Region "PagosCajaChica" - Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional MSI As Integer = -1) As Boolean + Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional MSI As Integer = -1, Optional CveUsuario As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_BancosCajaChicaPagosGet") @@ -3603,6 +3604,7 @@ Public Class ClsBancos .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@TipoChequeEfectivo", SqlDbType.Int).Value = TipoPago .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@MSI", SqlDbType.Int).Value = MSI End With diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 117e521ea..70b809ca8 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -129,6 +129,12 @@ + +
+ + + +
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 0064d146f..6f5be6c6d 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -75,7 +75,11 @@ Partial Class Bancos_DepositosCaja DdlClasificacionIntermediario.DataBind() DdlSubProyectoIntermediario.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) - DdlSubProyectoIntermediario.DataBind() + DdlSubProyectoIntermediario.DataBind() + + 'CargaUsuarios + DdlUsuario.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlUsuario.DataBind() End Sub @@ -94,7 +98,7 @@ Partial Class Bancos_DepositosCaja MSI = DDlMesesSinIntereses.SelectedValue.ToEntero End If - ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, MSI:=MSI) + ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, MSI:=MSI, CveUsuario:=DdlUsuario.SelectedValue.ToEntero) GvFacturas.DataSource = ObjBancos.DtResultados @@ -106,7 +110,7 @@ Partial Class Bancos_DepositosCaja ObjBancos.Dispose() - GvFacturas.DataBind() + GvFacturas.DataBind() ChkFaltante.Checked = False ChkDescuento.Checked = False ChkIntermediario.Checked = False @@ -201,7 +205,7 @@ Partial Class Bancos_DepositosCaja Dim documentos As String = "Los Depósitos se realizaron exitosamente

" Dim imprimirFolios As String = "" Dim CveSubProyectoIntermediario As Integer - Dim CveClasificacionIntermediario As Integer + Dim CveClasificacionIntermediario As Integer Dim CveProveedorIntermediario As Integer = -1 If drOrigen IsNot Nothing Then @@ -371,18 +375,12 @@ Partial Class Bancos_DepositosCaja Protected Sub GvFacturas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvFacturas.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoPago.SelectedValue.Contiene("11", "12", "-2") Then e.Row.FCCheckBox("ChkFactura").Checked = True e.Row.FCCheckBox("ChkFactura").Enabled = False - 'Dim checkbox As HtmlControl = DirectCast(e.Row.FindControl("checkbox"), HtmlControl) - 'checkbox.Attributes.Add("chequed", "cheked") - End If - - e.Row.FCCheckBox("ChkFactura").Attributes.Add("onclick", String.Format("FnSuma(this,{0});", e.Row.DBCampo("Importe"))) e.Row.FCCheckBox("ChkFactura").InputAttributes.Add("Value", e.Row.DBCampo("Importe"))