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

-- filtro usuario, en deposito caja

Browse Source
This commit is contained in:
rrene
2022-05-30 22:04:36 -07:00
parent cdf015a544
commit 7bb5febee4
3 changed files with 19 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsBancos.vb
View File

@@ -1758,7 +1758,7 @@ Public Class ClsBancos
Return Retorno Return Retorno
End Function 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 Dim Retorno As Integer = 0
DataAdapter("PA_Banc_IECancelar") DataAdapter("PA_Banc_IECancelar")
@@ -1772,6 +1772,7 @@ Public Class ClsBancos
.Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion .Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion
.Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento .Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento
.Add("@CveTipoTransaccionCancelacion", SqlDbType.Int).Value = CveTipoTransaccionCancelacion .Add("@CveTipoTransaccionCancelacion", SqlDbType.Int).Value = CveTipoTransaccionCancelacion
.Add("@CveCuentaDevolucion", SqlDbType.Int).Value = CveCuentaDevolucion
.Add("@CvePrePoliza", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CvePrePoliza", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With
@@ -3592,7 +3593,7 @@ Public Class ClsBancos
#End Region #End Region
#Region "PagosCajaChica" #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 Dim Retorno As Boolean = False
DataAdapter("PA_BancosCajaChicaPagosGet") DataAdapter("PA_BancosCajaChicaPagosGet")
@@ -3603,6 +3604,7 @@ Public Class ClsBancos
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@TipoChequeEfectivo", SqlDbType.Int).Value = TipoPago .Add("@TipoChequeEfectivo", SqlDbType.Int).Value = TipoPago
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@MSI", SqlDbType.Int).Value = MSI .Add("@MSI", SqlDbType.Int).Value = MSI
End With End With

6
Bancos/DepositosCaja.aspx
View File

@@ -129,6 +129,12 @@
<asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="col-md-1 truncate">Usuario:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlUsuario" runat="server" AppendDataBoundItems="true" DataTextField="Usuario" DataValueField="CveUsuario" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div> </div>
</div> </div>

20
Bancos/DepositosCaja.aspx.vb
View File

@@ -75,7 +75,11 @@ Partial Class Bancos_DepositosCaja
DdlClasificacionIntermediario.DataBind() DdlClasificacionIntermediario.DataBind()
DdlSubProyectoIntermediario.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) DdlSubProyectoIntermediario.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
DdlSubProyectoIntermediario.DataBind() DdlSubProyectoIntermediario.DataBind()
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
End Sub End Sub
@@ -94,7 +98,7 @@ Partial Class Bancos_DepositosCaja
MSI = DDlMesesSinIntereses.SelectedValue.ToEntero MSI = DDlMesesSinIntereses.SelectedValue.ToEntero
End If 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 GvFacturas.DataSource = ObjBancos.DtResultados
@@ -106,7 +110,7 @@ Partial Class Bancos_DepositosCaja
ObjBancos.Dispose() ObjBancos.Dispose()
GvFacturas.DataBind() GvFacturas.DataBind()
ChkFaltante.Checked = False ChkFaltante.Checked = False
ChkDescuento.Checked = False ChkDescuento.Checked = False
ChkIntermediario.Checked = False ChkIntermediario.Checked = False
@@ -201,7 +205,7 @@ Partial Class Bancos_DepositosCaja
Dim documentos As String = "Los Depósitos se realizaron exitosamente<br/><br/>" Dim documentos As String = "Los Depósitos se realizaron exitosamente<br/><br/>"
Dim imprimirFolios As String = "" Dim imprimirFolios As String = ""
Dim CveSubProyectoIntermediario As Integer Dim CveSubProyectoIntermediario As Integer
Dim CveClasificacionIntermediario As Integer Dim CveClasificacionIntermediario As Integer
Dim CveProveedorIntermediario As Integer = -1 Dim CveProveedorIntermediario As Integer = -1
If drOrigen IsNot Nothing Then 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 Protected Sub GvFacturas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvFacturas.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoPago.SelectedValue.Contiene("11", "12", "-2") Then
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
e.Row.FCCheckBox("ChkFactura").Checked = True e.Row.FCCheckBox("ChkFactura").Checked = True
e.Row.FCCheckBox("ChkFactura").Enabled = False e.Row.FCCheckBox("ChkFactura").Enabled = False
'Dim checkbox As HtmlControl = DirectCast(e.Row.FindControl("checkbox"), HtmlControl)
'checkbox.Attributes.Add("chequed", "cheked")
End If End If
e.Row.FCCheckBox("ChkFactura").Attributes.Add("onclick", String.Format("FnSuma(this,{0});", e.Row.DBCampo("Importe"))) 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")) e.Row.FCCheckBox("ChkFactura").InputAttributes.Add("Value", e.Row.DBCampo("Importe"))