E13 Buscar Cuentas de banco de proveedores en Popup
This commit is contained in:
MLopez
@@ -4555,6 +4555,7 @@ Public Class ClsPaginas
|
||||
PaginaDict.Add("/Sistemas/CatContrasenia.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/Ventas/PopUpBuscarClientes.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/Compras/PopUpBuscarProveedor.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/Compras/PopUpBuscarCuentasProveedor.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/Ventas/PopUpImprimir.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/Contabilidad/PopUpAuxiliar.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/Fiscal/PopUpConfiguracion.aspx".ToUpper(), -1)
|
||||
@@ -4797,6 +4798,7 @@ Public Class ClsPaginas
|
||||
PaginaDict.Add("/Bancos/PopUpBuscaPersonal.aspx".ToUpper(), 281)
|
||||
PaginaDict.Add("/Bancos/PopUpBuscarColectiva.aspx".ToUpper(), 281)
|
||||
PaginaDict.Add("/Bancos/PopUpBuscarProveedor.aspx".ToUpper(), 281)
|
||||
PaginaDict.Add("/Bancos/PopUpBuscarCuentasProveedor.aspx".ToUpper(), 281)
|
||||
PaginaDict.Add("/Bancos/PopUpBuscarFolioC.aspx".ToUpper(), 281)
|
||||
PaginaDict.Add("/Bancos/PopUpBuscarClientes.aspx".ToUpper(), 281)
|
||||
'PaginaDict.Add("/Bancos/CatTiposCuenta.aspx".ToUpper(), -1)
|
||||
|
||||
164
Bancos/PopUpBuscarCuentasProveedor.aspx
Normal file
164
Bancos/PopUpBuscarCuentasProveedor.aspx
Normal file
@@ -0,0 +1,164 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopUpBuscarCuentasProveedor.aspx.vb" Inherits="Bancos_PopUpBuscarCuentasProveedor" %>
|
||||
|
||||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
<asp:Label ID="LblTitulo" runat="server" Text="Búsqueda de Cuentas Bancarias por Proveedor"></asp:Label>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
|
||||
|
||||
<%--<asp:HiddenField ID="hdnEsThickbox" runat="server" ClientIDMode="Static" />--%>
|
||||
|
||||
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<table style="width: 750px;">
|
||||
<tr>
|
||||
<td class="Titulos" colspan="4">Filtros para búsqueda</td>
|
||||
</tr>
|
||||
<tr align="left">
|
||||
</tr>
|
||||
<tr align="left">
|
||||
<td class="text-right"><b>Proveedor:</b></td>
|
||||
<td>
|
||||
<asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
<ADS:Dropdownlost ID="DdlProveedores" AutoPostBack="false" runat="server" IncluyeTodos="false" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClassDdl="select2me" CssStyle="width:400px;"></ADS:Dropdownlost>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="4" style="text-align: center;">
|
||||
<asp:Button ID="BtnBuscar" runat="server" Text="Buscar" class="btn btn-primary" />
|
||||
</td>
|
||||
<td></td>
|
||||
<td></td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="TblBusqueda" style="width: 100%" runat="server" border="0" visible="false">
|
||||
<div class="row">
|
||||
<div id="DivBC" style="overflow-y: auto; width: 765px; height: 365px;" runat="server">
|
||||
<asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server"
|
||||
DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE" AutoGenerateColumns="False"
|
||||
EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
|
||||
|
||||
<Columns>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Banco" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtNombreBanco" runat="server" data-toggle="tooltip" title='<%# Eval("BancoNombre")%>' Text='<%# Eval("BancoNombre")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="# Suc." ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtNumeroSucursal" runat="server" data-toggle="tooltip" title='<%# Eval("Sucursal")%>' Text='<%# Eval("Sucursal")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Num. Cuenta" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtNumeroCuenta" runat="server" data-toggle="tooltip" title='<%# Eval("Cuenta")%>' Text='<%# Eval("Cuenta")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="CLABE" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtCLABE" runat="server" data-toggle="tooltip" title='<%# Eval("CLABE")%>' Text='<%# Eval("CLABE")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="SWIFT" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtSWIFT" runat="server" data-toggle="tooltip" title='<%# Eval("SWIFT")%>' Text='<%# Eval("SWIFT")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Plaza" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtPlaza" runat="server" data-toggle="tooltip" title='<%# Eval("Plaza")%>' Text='<%# Eval("Plaza")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="CIE" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtConvenioCIE" runat="server" data-toggle="tooltip" title='<%# Eval("CIE")%>' Text='<%# Eval("CIE")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Referencia" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtReferencia" runat="server" data-toggle="tooltip" title='<%# Eval("Referencia")%>' Text='<%# Eval("Referencia")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Cred. Prov." ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtRefCrediProveedor" runat="server" data-toggle="tooltip" title='<%# Eval("RefCrediProveedor")%>' Text='<%# Eval("RefCrediProveedor")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Moneda" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtMoneda" runat="server" Text='<%# Eval("Moneda")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Estatus" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LlbEstatusTexto" Text='<%# Eval("EstatusTexto")%>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="P.E." ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblPagoelectronico" Text='<%# Eval("Pagoelectronico")%>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="P.E.G" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblPagoElectronicoGrupo" Text='<%# Eval("PagoElectronicoGrupos")%>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<%-- <div class="modal-footer">
|
||||
<asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>--%>
|
||||
</asp:Content>
|
||||
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
<script type="text/javascript">
|
||||
|
||||
//function Focus() {
|
||||
// $('#TxtCodigoProv').focus()
|
||||
//}
|
||||
|
||||
</script>
|
||||
</asp:Content>
|
||||
|
||||
124
Bancos/PopUpBuscarCuentasProveedor.aspx.vb
Normal file
124
Bancos/PopUpBuscarCuentasProveedor.aspx.vb
Normal file
@@ -0,0 +1,124 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Partial Class Bancos_PopUpBuscarCuentasProveedor
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "Propiedades"
|
||||
Private ReadOnly Property CveProveedor As Integer
|
||||
Get
|
||||
Return ViewState("CveProveedor").ToString.ToEntero
|
||||
End Get
|
||||
End Property
|
||||
Private Property DTCuentasBancos As DataTable
|
||||
Get
|
||||
Return CType(ViewState("DTCuentasBancos"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTCuentasBancos") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CType(Me.Master, BaseMasterPage).EsPopup = True
|
||||
CType(Me.Master, BaseMasterPage).PopupWidth = 780
|
||||
RegistraScript("if($get('tdContenido')){$get('tdContenido').style.height='465px'}")
|
||||
|
||||
If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
|
||||
ViewState("CveProveedor") = Request("CveProveedor")
|
||||
CargaDatos(CveProveedor)
|
||||
DdlProveedores.SelectedValue = CveProveedor.ToString
|
||||
Else
|
||||
ViewState("CveProveedor") = -1
|
||||
End If
|
||||
|
||||
InicializaValores()
|
||||
|
||||
Me.Form.DefaultButton = BtnBuscar.UniqueID
|
||||
End If
|
||||
End Sub
|
||||
Private Sub InicializaValores()
|
||||
Dim Txt As String = IfNull(Request("Txt"), "").ToString
|
||||
If Txt <> "" Then LblTitulo.Text = String.Format("Búsqueda de {0}", Txt)
|
||||
|
||||
DdlProveedores.setEsWebService(True)
|
||||
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
|
||||
DdlProveedores.SelectedText = "Seleccione"
|
||||
DdlProveedores.SelectedValue = "-1"
|
||||
DdlProveedores.DataBind()
|
||||
End Sub
|
||||
Private Sub CargaDatos(CveProveedor As Integer)
|
||||
|
||||
If ValidarFiltrosSeleccionados() OrElse CveProveedor > 0 Then
|
||||
CargaCuentasBancarias()
|
||||
UPDatos.Update()
|
||||
Else
|
||||
Alert("Seleccione un proveedor", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCuentasBancarias()
|
||||
'If CveProveedor <= 0 Then Exit Sub
|
||||
Dim ObjCuentasBancos As New ClsGenerales
|
||||
DTCuentasBancos = New DataTable
|
||||
|
||||
If ObjCuentasBancos.GetCuentasDepositos(CveProveedor) Then
|
||||
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
|
||||
Else
|
||||
Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
|
||||
ObjCuentasBancos.Dispose()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If CveProveedor < 0 Then
|
||||
'Alert("No hay proveedor", TipoMensaje.MsgInformacion)
|
||||
'TempDTCuentasBancos = DTCuentasBancos
|
||||
End If
|
||||
|
||||
ObjCuentasBancos.Dispose()
|
||||
CargaPSGridCuentasBancos()
|
||||
RecargaGlobalCuentasBancarias()
|
||||
End Sub
|
||||
|
||||
Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
|
||||
If CveProveedor > 0 Then
|
||||
Dim ObjCuentasBancos As New ClsGenerales
|
||||
|
||||
If ObjCuentasBancos.GetCuentasDepositos() Then
|
||||
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
|
||||
End If
|
||||
ObjCuentasBancos.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPSGridCuentasBancos()
|
||||
GvBancosCuentas.DataSource = DTCuentasBancos.FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue}")
|
||||
GvBancosCuentas.DataBind()
|
||||
TblBusqueda.Visible = True
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
|
||||
CargaDatos(DdlProveedores.SelectedValue.ToEntero)
|
||||
End Sub
|
||||
|
||||
Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
|
||||
'If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.DBCampo("CveAlmacen") = "" Then
|
||||
' e.Row.CssClass = "Totales"
|
||||
' End If
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
Private Function ValidarFiltrosSeleccionados() As Boolean
|
||||
If DdlProveedores.SelectedValue.ToEntero > 0 Then Return True
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -194,6 +194,12 @@
|
||||
Buscar Proveedor
|
||||
</a>
|
||||
</li>
|
||||
<li id="tdProvBancos" runat="server" visible="false">
|
||||
<a onclick="javascript:AbrirVentana('/Bancos/PopUpBuscarCuentasProveedor.aspx');">
|
||||
<i class="fa fa-university"></i>
|
||||
Buscar Cuentas Proveedor
|
||||
</a>
|
||||
</li>
|
||||
<li id="tdCheques" runat="server" visible="false">
|
||||
<a onclick="javascript:AbrirVentana('/Bancos/PopUpBuscarIE.aspx');">
|
||||
<i class="fa fa-university"></i>
|
||||
|
||||
@@ -215,7 +215,10 @@ Partial Class Site
|
||||
'End Sub
|
||||
Private Sub CargaBuscadores()
|
||||
'Proveedores
|
||||
If UsuarioActual.TienePermisoPagina(37) Then tdProv.Visible = True
|
||||
If UsuarioActual.TienePermisoPagina(37) Then
|
||||
tdProv.Visible = True
|
||||
tdProvBancos.Visible = True
|
||||
End If
|
||||
|
||||
'Clientes
|
||||
If UsuarioActual.TienePermisoPagina(26) Then tdCliente.Visible = True
|
||||
|
||||
Reference in New Issue
Block a user