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

Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-05-26 12:52:36 -07:00
parent d203d219e5 eb41fe2102
commit 0609823b7f
14 changed files with 455 additions and 200 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
App_Code/ClsBancos.vb
View File

@@ -4375,4 +4375,24 @@ Public Class ClsBancos
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function GetBancosSAT() As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_Sat_BancosGet")
'With SqlAdapter.SelectCommand.Parameters
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
'End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los bancos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
End Class End Class

20
App_Code/ClsClasificaciones.vb
View File

@@ -174,6 +174,26 @@ Public Class ClsClasificaciones
OnError("Ocurrió un error al modificar la clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al modificar la clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno
End Function
Public Function RemoveClasificacionesComprobaciones(CveClasificacion As Integer, CveEmpresa As Integer, TipoComprobacion As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_ClasificacionesComprobacionesRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@TipoComprobacion", SqlDbType.Int).Value = TipoComprobacion
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As SqlException
OnError("Ocurrió un error al eliminar la clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno Return Retorno
End Function End Function

12
App_Code/ClsGenerales.vb
View File

@@ -1388,7 +1388,7 @@ Public Class ClsGenerales
End Function End Function
Public Function AddCuentasDepositos(BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, CveUsuario As Integer, CveMoneda As Integer, Public Function AddCuentasDepositos(BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, CveUsuario As Integer, CveMoneda As Integer,
Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
Optional Correo As String = "", Optional BBVAAlias As String = "-1") As Boolean Optional Correo As String = "", Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_CuentasDepositosAdd") DataAdapter("PA_Gral_CuentasDepositosAdd")
@@ -1412,6 +1412,9 @@ Public Class ClsGenerales
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
.Add("@Correo", SqlDbType.VarChar).Value = Correo .Add("@Correo", SqlDbType.VarChar).Value = Correo
.Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias .Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias
.Add("@EstatusPagoElectronico", SqlDbType.Bit).Value = EstatusPagoElectronico
.Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos
.Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco
End With End With
@@ -1454,7 +1457,9 @@ Public Class ClsGenerales
Return Retorno Return Retorno
End Function End Function
Public Function UpdateCuentasDepositos(CveCuentaDeposito As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "", Optional BBVAAlias As String = "-1") As Boolean Public Function UpdateCuentasDepositos(CveCuentaDeposito As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String,
RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "",
Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_CuentasDepositosUpdate") DataAdapter("PA_Gral_CuentasDepositosUpdate")
@@ -1477,6 +1482,9 @@ Public Class ClsGenerales
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
.Add("@Correo", SqlDbType.VarChar).Value = Correo .Add("@Correo", SqlDbType.VarChar).Value = Correo
.Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias .Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias
.Add("@EstatusPagoElectronico", SqlDbType.Bit).Value = EstatusPagoElectronico
.Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos
.Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco
End With End With

38
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -2518,22 +2518,22 @@ Partial Class Bancos_ProveedoresAbonar
Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
End If End If
ElseIf DdlTipoTransaccion.SelectedValue = "17" Then 'ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
If Dep.DtResultados.Rows.Count > 0 Then ' If Dep.DtResultados.Rows.Count > 0 Then
DdlCuentaDeposito.DataSource = Dep.DtResultados ' DdlCuentaDeposito.DataSource = Dep.DtResultados
trCuentaDeposito.Visible = True ' trCuentaDeposito.Visible = True
BtnIEGuardar.ToolTip = "" ' BtnIEGuardar.ToolTip = ""
Else ' Else
BtnIEGuardar.Enabled = False ' BtnIEGuardar.Enabled = False
BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" ' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
End If ' End If
UpGuardar.Update() ' UpGuardar.Update()
Else Else
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'") DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
If Dep.DtResultados.Rows.Count > 0 Then If Dep.DtResultados.Rows.Count > 0 Then
@@ -2550,19 +2550,19 @@ Partial Class Bancos_ProveedoresAbonar
End If End If
Else 'Else
If DdlTipoTransaccion.SelectedValue = "17" Then ' If DdlTipoTransaccion.SelectedValue = "17" Then
BtnIEGuardar.Enabled = False ' BtnIEGuardar.Enabled = False
BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" ' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
Else ' Else
BtnIEGuardar.Enabled = True ' BtnIEGuardar.Enabled = True
BtnIEGuardar.ToolTip = "" ' BtnIEGuardar.ToolTip = ""
End If ' End If
UpGuardar.Update() ' UpGuardar.Update()
End If End If

100
CRM/Acercamiento.aspx
View File

@@ -441,7 +441,7 @@
<div class="form-group col-md-6 form-md-line-input input-iconright"> <div class="form-group col-md-6 form-md-line-input input-iconright">
<asp:DropDownList ID="DdlMedioCaptacion" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" Class="form-control input-sm select2me"></asp:DropDownList> <asp:DropDownList ID="DdlMedioCaptacion" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" Class="form-control input-sm select2me"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidator3" InitialValue="-1" runat="server" ControlToValidate="DdlMedioCaptacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> El campo <b>''Medio de Captación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RequiredFieldValidator3" InitialValue="-1" runat="server" ControlToValidate="DdlMedioCaptacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> El campo <b>''Medio de Captación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= DdlMedioCaptacion.ClientID.ToString()%>" style="width:90%">Medio de Captación:</label> <label for="<%= DdlMedioCaptacion.ClientID.ToString()%>" style="width: 90%">Medio de Captación:</label>
</div> </div>
</div> </div>
@@ -530,7 +530,7 @@
<ContentTemplate> <ContentTemplate>
<div class="row"> <div class="row">
<%-- max-height: 410px;--%> <%-- max-height: 410px;--%>
<div class="col-md-6"> <div class="col-md-6" style="width: 100%">
<div class="portlet light xspadding bordered"> <div class="portlet light xspadding bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
@@ -552,7 +552,7 @@
</div> </div>
<div id="DivEncuesta" style="display: inline; width: 100%; padding-top: 0px;" runat="server"> <div id="DivEncuesta" style="display: inline; width: 100%; padding-top: 0px;" runat="server">
<asp:GridView ID="GvDatosTecnicos" DataKeyNames="CvePregunta,CveTipoPregunta, CveEncuestaAplicadaDetalle, RespuestaDefault, CveRespuesta, Valor" EmptyDataText="No se encontraron Respuestas Registrados" Width="100%" <asp:GridView ID="GvDatosTecnicos" DataKeyNames="CvePregunta,CveTipoPregunta, CveEncuestaAplicadaDetalle, RespuestaDefault, CveRespuesta, Valor" EmptyDataText="No se encontraron Respuestas Registrados" Width="100%"
Visible="false" runat="server" GridLines="None" AutoGenerateColumns="False" ShowHeader="False" CssClass="xspadding" OnRowDataBound="GvDatosTecnicos_RowDataBound"> Visible="true" runat="server" GridLines="None" AutoGenerateColumns="False" ShowHeader="False" CssClass="xspadding" OnRowDataBound="GvDatosTecnicos_RowDataBound">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemStyle BorderStyle="None" /> <ItemStyle BorderStyle="None" />
@@ -626,7 +626,64 @@
<ajax:TabPanel ID="TabImagenes" runat="server" HeaderText="Imágenes" OnClientClick="clickgaleria"> <ajax:TabPanel ID="TabImagenes" runat="server" HeaderText="Imágenes" OnClientClick="clickgaleria">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="HyperLink1" CssClass="btn btn-success" data-toggle="modal" data-target="#Modalupfotos" runat="server" Style="cursor: pointer; float: right;" ToolTip="Observaciones"><i class="fa fa-upload"></i> Cargar Archivo</asp:LinkButton><br /> <div class="row">
<div class="col-md-6" style="width: 100%">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-info-circle font-green"></i>
<span class="caption-subject bold uppercase">IMÁGENES</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
</div>
<div id="DivBodyImg" class="portlet-body form">
<div class="row" style="margin: unset">
<div class="col">
<asp:LinkButton ID="HyperLink1" CssClass="btn btn-success" data-toggle="modal" data-target="#Modalupfotos" runat="server" Style="cursor: pointer; float: right;" ToolTip="Observaciones"><i class="fa fa-upload"></i> Cargar Archivo</asp:LinkButton><br />
</div>
</div>
<div class="row" style="margin: unset">
<div class="col">
<asp:UpdatePanel ID="UpGaleria" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div class="portfolio-content portfolio-1">
<div id="js-filters-juicy-projects" class="cbp-l-filters-button">
</div>
<div id="js-grid-juicy-projects" class="cbp">
<asp:Repeater ID="RptFotos" runat="server">
<ItemTemplate>
<div class="cbp-item graphic">
<div class="cbp-caption">
<div class="cbp-caption-defaultWrap">
<img src='<%# String.Format("/ashx/SIGCRM.ashx?Metodo=getimgacercamiento&r={0}",UrlIMGEncriptada(Eval("URLParametros").ToString())) %>'>
</div>
<div class="cbp-caption-activeWrap">
<div class="cbp-l-caption-alignCenter">
<div class="cbp-l-caption-body">
<asp:Button ID="BtnEliminarFoto" OnClick="BtnEliminarFoto_Click" data-toggle="confirmation" data-original-title="¿Estás Seguro?" data-btn-ok-label="Si" runat="server" CommandArgument='<%# Eval("CveArchivo").ToString() %>' Text="Borrar" CssClass=" btn red uppercase" />
<a href='<%# String.Format("/ashx/SIGCRM.ashx?Metodo=getimgacercamiento&r={0}",UrlIMGEncriptada(Eval("URLParametros").ToString())) %>' class=" btn blue uppercase">Ver</a>
</div>
</div>
</div>
</div>
<div class="cbp-l-grid-projects-title uppercase text-center"><%#Eval("Titulo").ToString() %></div>
<div class="cbp-l-grid-projects-desc uppercase text-center"><%# Eval("Descripcion").ToString() %></div>
</div>
</ItemTemplate>
</asp:Repeater>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
</div>
</div>
<div id="Modalupfotos" class="modal ADS fade" role="dialog"> <div id="Modalupfotos" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
<!-- Modal content--> <!-- Modal content-->
@@ -671,37 +728,6 @@
</div> </div>
</div> </div>
</div> </div>
<asp:UpdatePanel ID="UpGaleria" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div class="portfolio-content portfolio-1">
<div id="js-filters-juicy-projects" class="cbp-l-filters-button">
</div>
<div id="js-grid-juicy-projects" class="cbp">
<asp:Repeater ID="RptFotos" runat="server">
<ItemTemplate>
<div class="cbp-item graphic">
<div class="cbp-caption">
<div class="cbp-caption-defaultWrap">
<img src='<%# String.Format("/ashx/SIGCRM.ashx?Metodo=getimgacercamiento&r={0}",UrlIMGEncriptada(Eval("URLParametros").ToString())) %>'>
</div>
<div class="cbp-caption-activeWrap">
<div class="cbp-l-caption-alignCenter">
<div class="cbp-l-caption-body">
<asp:Button ID="BtnEliminarFoto" OnClick="BtnEliminarFoto_Click" data-toggle="confirmation" data-original-title="¿Estás Seguro?" data-btn-ok-label="Si" runat="server" CommandArgument='<%# Eval("CveArchivo").ToString() %>' Text="Borrar" CssClass=" btn red uppercase" />
<a href='<%# String.Format("/ashx/SIGCRM.ashx?Metodo=getimgacercamiento&r={0}",UrlIMGEncriptada(Eval("URLParametros").ToString())) %>' class="cbp-lightbox cbp-l-caption-buttonRight btn success uppercase">Ver</a>
</div>
</div>
</div>
</div>
<div class="cbp-l-grid-projects-title uppercase text-center"><%#Eval("Titulo").ToString() %></div>
<div class="cbp-l-grid-projects-desc uppercase text-center"><%# Eval("Descripcion").ToString() %></div>
</div>
</ItemTemplate>
</asp:Repeater>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
@@ -733,7 +759,7 @@
<div runat="server" id="Div2" style="padding: 0 10px 10px 10px;"> <div runat="server" id="Div2" style="padding: 0 10px 10px 10px;">
<asp:UpdatePanel runat="server" ID="UpCotizacion" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpCotizacion" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvCotizacion" runat="server" DataKeyNames="CveVenta,CveEmpresaCRM,CveAcercamientoCRM,CveEstatusFactura, EstatusFactura" EmptyDataText="Aún no se han registrado Cotizaciones" <asp:GridView ID="GvCotizacion" runat="server" DataKeyNames="CveVenta,CveEmpresaCRM,CveAcercamientoCRM,CveEstatusFactura, EstatusFactura" EmptyDataText="Aún no se han registrado cotizaciones."
EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Cotizaciones" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None" EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Cotizaciones" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None"
GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" AutoGenerateColumns="false" OnRowDataBound="GvCotizacion_RowDataBound"> GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" AutoGenerateColumns="false" OnRowDataBound="GvCotizacion_RowDataBound">
<Columns> <Columns>
@@ -786,7 +812,7 @@
<div runat="server" id="Div4" style="padding: 0 10px 10px 10px;"> <div runat="server" id="Div4" style="padding: 0 10px 10px 10px;">
<asp:UpdatePanel runat="server" ID="UpGastos" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpGastos" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvGastos" runat="server" EmptyDataText="Aún no se han registrado Gastos" DataKeyNames="CveAcercamientoGasto,Descripcion,Importe" <asp:GridView ID="GvGastos" runat="server" EmptyDataText="Aún no se han registrado gastos." DataKeyNames="CveAcercamientoGasto,Descripcion,Importe"
EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Cotizaciones" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None" EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Cotizaciones" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None"
GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" AutoGenerateColumns="false" OnRowDataBound="GvGastos_RowDataBound"> GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" AutoGenerateColumns="false" OnRowDataBound="GvGastos_RowDataBound">
<Columns> <Columns>

169
Compras/Proveedores.aspx
View File

@@ -1944,141 +1944,86 @@
<div runat="server"> <div runat="server">
<asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" 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" AutoGenerateColumns="False" DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco" AutoGenerateColumns="False"
EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias"> EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
<Columns> <Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Banco" ItemStyle-CssClass="Excede"> <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Banco" ItemStyle-CssClass="Excede">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtNombreBanco" runat="server" data-toggle="tooltip" title='<%# Eval("BancoNombre")%>' Text='<%# Eval("BancoNombre")%>'></asp:Label> <asp:Label ID="LtNombreBanco" runat="server" data-toggle="tooltip" title='<%# Eval("BancoNombre")%>' Text='<%# Eval("BancoNombre")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<%--<EditItemTemplate>
<asp:TextBox ID="TxtNombreBanco" CssClass="truncate" runat="server" CausesValidation="true" MaxLength="90" Text='<%# Eval("BancoNombre")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVNombreBanco" runat="server" ControlToValidate="TxtNombreBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''NombreBanco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEditarCuentaBanco"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>--%>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="# Suc." ItemStyle-CssClass="Excede"> <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="# Suc." ItemStyle-CssClass="Excede">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtNumeroSucursal" runat="server" data-toggle="tooltip" title='<%# Eval("Sucursal")%>' Text='<%# Eval("Sucursal")%>'></asp:Label> <asp:Label ID="LtNumeroSucursal" runat="server" data-toggle="tooltip" title='<%# Eval("Sucursal")%>' Text='<%# Eval("Sucursal")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<%--<EditItemTemplate>
<asp:TextBox ID="TxtNumeroSucursal" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Sucursal")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
</EditItemTemplate>--%>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Num. Cuenta" ItemStyle-CssClass="Excede"> <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Num. Cuenta" ItemStyle-CssClass="Excede">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtNumeroCuenta" runat="server" data-toggle="tooltip" title='<%# Eval("Cuenta")%>' Text='<%# Eval("Cuenta")%>'></asp:Label> <asp:Label ID="LtNumeroCuenta" runat="server" data-toggle="tooltip" title='<%# Eval("Cuenta")%>' Text='<%# Eval("Cuenta")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<%-- <EditItemTemplate>
<asp:TextBox ID="TxtNumeroCuenta" runat="server" CausesValidation="true" Text='<%# Eval("Cuenta")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta" FilterType="Numbers" />
</EditItemTemplate>--%>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="CLABE" ItemStyle-CssClass="Excede"> <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="CLABE" ItemStyle-CssClass="Excede">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtCLABE" runat="server" data-toggle="tooltip" title='<%# Eval("CLABE")%>' Text='<%# Eval("CLABE")%>'></asp:Label> <asp:Label ID="LtCLABE" runat="server" data-toggle="tooltip" title='<%# Eval("CLABE")%>' Text='<%# Eval("CLABE")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<%-- <EditItemTemplate>
<asp:TextBox ID="TxtCLABE" runat="server" CausesValidation="true" MaxLength="18" Text='<%# Eval("CLABE")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
AndAlso Eval("Referencia") IsNot ""
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABE" FilterType="Numbers" />
</EditItemTemplate>--%>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="SWIFT" ItemStyle-CssClass="Excede"> <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="SWIFT" ItemStyle-CssClass="Excede">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtSWIFT" runat="server" data-toggle="tooltip" title='<%# Eval("SWIFT")%>' Text='<%# Eval("SWIFT")%>'></asp:Label> <asp:Label ID="LtSWIFT" runat="server" data-toggle="tooltip" title='<%# Eval("SWIFT")%>' Text='<%# Eval("SWIFT")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<%-- <EditItemTemplate>
<asp:TextBox ID="TxtSWIFT" runat="server" CausesValidation="true" MaxLength="100" Text='<%# Eval("SWIFT")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
</EditItemTemplate>--%>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Plaza" ItemStyle-CssClass="Excede"> <asp:TemplateField HeaderText="Plaza" ItemStyle-CssClass="Excede">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtPlaza" runat="server" data-toggle="tooltip" title='<%# Eval("Plaza")%>' Text='<%# Eval("Plaza")%>'></asp:Label> <asp:Label ID="LtPlaza" runat="server" data-toggle="tooltip" title='<%# Eval("Plaza")%>' Text='<%# Eval("Plaza")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<%--<EditItemTemplate>
<asp:TextBox ID="TxtPlaza" runat="server" CausesValidation="true" MaxLength="100" Text='<%# Eval("Plaza")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
</EditItemTemplate>--%>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="CIE" ItemStyle-CssClass="Excede"> <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="CIE" ItemStyle-CssClass="Excede">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtConvenioCIE" runat="server" data-toggle="tooltip" title='<%# Eval("CIE")%>' Text='<%# Eval("CIE")%>'></asp:Label> <asp:Label ID="LtConvenioCIE" runat="server" data-toggle="tooltip" title='<%# Eval("CIE")%>' Text='<%# Eval("CIE")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<%-- <EditItemTemplate>
<asp:TextBox ID="TxtConvenioCIE" runat="server" CausesValidation="true" MaxLength="8" Text='<%# Eval("CIE")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtConvenioCIE" FilterType="Numbers" />
</EditItemTemplate>--%>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Referencia" ItemStyle-CssClass="Excede"> <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Referencia" ItemStyle-CssClass="Excede">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtReferencia" runat="server" data-toggle="tooltip" title='<%# Eval("Referencia")%>' Text='<%# Eval("Referencia")%>'></asp:Label> <asp:Label ID="LtReferencia" runat="server" data-toggle="tooltip" title='<%# Eval("Referencia")%>' Text='<%# Eval("Referencia")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<%-- <EditItemTemplate>
<asp:TextBox ID="TxtReferencia" runat="server" CausesValidation="true" MaxLength="20" Text='<%# Eval("Referencia")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferencia" FilterType="Numbers" />
</EditItemTemplate>--%>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Cred. Prov." ItemStyle-CssClass="Excede"> <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Cred. Prov." ItemStyle-CssClass="Excede">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtRefCrediProveedor" runat="server" data-toggle="tooltip" title='<%# Eval("RefCrediProveedor")%>' Text='<%# Eval("RefCrediProveedor")%>'></asp:Label> <asp:Label ID="LtRefCrediProveedor" runat="server" data-toggle="tooltip" title='<%# Eval("RefCrediProveedor")%>' Text='<%# Eval("RefCrediProveedor")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<%-- <EditItemTemplate>
<asp:TextBox ID="TxtRefCrediProveedor" runat="server" CausesValidation="true" MaxLength="5" Text='<%# Eval("RefCrediProveedor")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%" Enabled='<%#Not CBool(Eval("EstatusPagoElectronico"))%>'></asp:TextBox>
</EditItemTemplate>--%>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Moneda" ItemStyle-CssClass="Excede"> <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Moneda" ItemStyle-CssClass="Excede">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtMoneda" runat="server" Text='<%# Eval("Moneda")%>'></asp:Literal> <asp:Literal ID="LtMoneda" runat="server" Text='<%# Eval("Moneda")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<%-- <EditItemTemplate> </asp:TemplateField>
<asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" Width="90%"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVMoneda" runat="server" InitialValue="-1" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEditarCuentaBanco"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate>--%>
</asp:TemplateField>
<%-- <asp:TemplateField ItemStyle-Width="7%" HeaderText="Estatus Layout" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<!--IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No") = If(EstatusPagoElectronico) Then "Sí" Else "No"-->
<asp:Label ID="LblEstatusPE" runat="server" Text='<%# IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No")%>'>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>--%>
<asp:TemplateField HeaderText="Estatus" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Estatus" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>
<!--IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No") = If(EstatusPagoElectronico) Then "Sí" Else "No"-->
<asp:Label ID="LlbEstatusTexto" Text='<%# Eval("EstatusTexto")%>' runat="server" /> <asp:Label ID="LlbEstatusTexto" Text='<%# Eval("EstatusTexto")%>' runat="server" />
</ItemTemplate> </ItemTemplate>
<%-- <EditItemTemplate>
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# IIf(Eval("EstatusTexto").ToString = "Activo", True, False)%>' Visible="false"></asp:CheckBox>
</EditItemTemplate>--%>
</asp:TemplateField> </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>
<asp:TemplateField HeaderText="Comandos" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Comandos" ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" /> <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" /> <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- <asp:TemplateField HeaderText="Editar" ItemStyle-Width="7%" ItemStyle-CssClass="Excede">
<ItemTemplate>
</ItemTemplate>
<EditItemTemplate>
<%-- <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpEditarCuentaBanco" />
<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Elim." ItemStyle-Width="7%" ItemStyle-CssClass="Excede">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>--%>
</Columns> </Columns>
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" /> <AlternatingRowStyle CssClass="TextoAlterno" />
@@ -3643,17 +3588,57 @@
<label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">BBVA Alias:</label> <label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">BBVA Alias:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="row">
<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList> <div class="col-md-6">
<asp:RequiredFieldValidator ID="RFVMoneda" runat="server" InitialValue="-1" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator> <div class="form-group form-md-line-input input-iconright">
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender> <asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
<label for="<%= DdlMoneda.ClientID.ToString()%>">Moneda:</label> <asp:RequiredFieldValidator ID="RFVMoneda" runat="server" InitialValue="-1" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
</div> <ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
<div class="form-group form-md-line-input input-iconright" id="divestatus" runat="server"> <label for="<%= DdlMoneda.ClientID.ToString()%>">Moneda:</label>
<asp:CheckBox ID="ChkEstatus" runat="server"></asp:CheckBox> </div>
<label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label> </div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" id="divestatus" runat="server">
<asp:CheckBox ID="ChkEstatus" runat="server"></asp:CheckBox>
<label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
</div>
</div>
</div> </div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" id="div2" runat="server">
<asp:CheckBox ID="ChkPagoElectronico" runat="server" AutoPostBack="true" OnCheckedChanged="ChkPagoElectronico_CheckedChanged"></asp:CheckBox>
<label for="<%= ChkPagoElectronico.ClientID.ToString()%>">Pago Electronico</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" id="div3" runat="server">
<asp:CheckBox ID="ChkPagoElectronicoGrupos" runat="server" OnCheckedChanged="ChkPagoElectronicoGrupos_CheckedChanged" AutoPostBack="true"></asp:CheckBox>
<label for="<%= ChkPagoElectronicoGrupos.ClientID.ToString()%>">Pago Electronico Grupos</label>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVDdlSatBanco" visible="false">
<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco">
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlSatBanco" runat="server" InitialValue="-1" ControlToValidate="DdlSatBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= DdlSatBanco.ClientID.ToString()%>">Banco:</label>
</div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:LinkButton ID="LbAgregarCuentaBanco" runat="server" CausesValidation="true" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpAgregarBanco" OnClick="LbAgregarCuentaBanco_Click"></asp:LinkButton> <asp:LinkButton ID="LbAgregarCuentaBanco" runat="server" CausesValidation="true" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpAgregarBanco" OnClick="LbAgregarCuentaBanco_Click"></asp:LinkButton>

96
Compras/Proveedores.aspx.vb
View File

@@ -776,9 +776,30 @@ Partial Class Compras_Proveedores
End Function End Function
Private Sub CargaCombos() Private Sub CargaCombos()
CargaResponsable() CargaResponsable()
CargaClasificacionProveedor() CargaClasificacionProveedor()
CargaUsuarioEvaluacionProveedor() CargaUsuarioEvaluacionProveedor()
CargaBancosSAT()
End Sub
Private Sub CargaBancosSAT()
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosSAT Then
DdlSatBanco.DataSource = ObjBancos.DtResultados
End If
ObjBancos.Dispose()
DdlSatBanco.DataBind()
DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub End Sub
Private Function CargaDatos() As Boolean Private Function CargaDatos() As Boolean
@@ -1640,7 +1661,9 @@ Partial Class Compras_Proveedores
''Agregar Cuentas Bancarias ''Agregar Cuentas Bancarias
If TempDTCuentasBancos.Rows.Count > 0 Then If TempDTCuentasBancos.Rows.Count > 0 Then
For Each row As DataRow In TempDTCuentasBancos.Rows For Each row As DataRow In TempDTCuentasBancos.Rows
If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString) Then If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero,
CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString,
EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString), EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), CveSATBanco:=row("CveSATBanco").ToString.ToEntero) Then
ErrorBancos = True ErrorBancos = True
End If End If
Next Next
@@ -3036,6 +3059,7 @@ Partial Class Compras_Proveedores
CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
RecargaGlobalCuentasBancarias() RecargaGlobalCuentasBancarias()
End Sub End Sub
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
@@ -3045,19 +3069,6 @@ Partial Class Compras_Proveedores
EsBancomer = True EsBancomer = True
End If End If
''COMENTADO PARA PERMITIR ENTRADA DE UNA CUENTA A PROVEEDOR, 22 DE SEPTIEMBRE, ISRAEL PIÑA
'If EsBancomer AndAlso (TxtCLABE.Text.Length = 18 AndAlso Not TxtCLABE.Text.Substring(0, 3) = "012") Then
' Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia)
' Exit Sub
'End If
''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE
'If (TxtCLABE.Text.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And TxtConvenioCIE.Text.Trim.Length <> 6 And TxtCLABE.Text.Trim.Length <> 18) Then
' Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
' Exit Sub
'End If
'RESTRICCIONES GENERALES 'RESTRICCIONES GENERALES
'QUE TENGA ALGUN DATO DE TIPO DE CUENTA 'QUE TENGA ALGUN DATO DE TIPO DE CUENTA
@@ -3111,15 +3122,19 @@ Partial Class Compras_Proveedores
Dim Estatus As Boolean Dim Estatus As Boolean
If ChkEstatus.Checked = True Then Estatus = True Else Estatus = False If ChkEstatus.Checked = True Then Estatus = True Else Estatus = False
AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim, DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text) AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim,
DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text, ChkPagoElectronico.Checked, ChkPagoElectronicoGrupos.Checked, DdlSatBanco.SelectedValue.ToEntero)
End Sub End Sub
Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String)
Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String,
CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer)
Dim ObjCuentasBancos As New ClsGenerales Dim ObjCuentasBancos As New ClsGenerales
If Modalidad = "A" Then If Modalidad = "A" Then
If CveProveedor > 0 Then If CveProveedor > 0 Then
If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor, Correo:=Correo, BBVAAlias:=BBVAAlias) Then If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor,
Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then
DTCuentasBancos.Clear() DTCuentasBancos.Clear()
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion) Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
@@ -3143,10 +3158,14 @@ Partial Class Compras_Proveedores
Row("RefCrediProveedor") = RefCrediProveedor Row("RefCrediProveedor") = RefCrediProveedor
Row("CveMoneda") = CveMoneda Row("CveMoneda") = CveMoneda
Row("Moneda") = Moneda Row("Moneda") = Moneda
Row("EstatusPagoElectronico") = 0 Row("EstatusPagoElectronico") = EstatusPagoElectronico
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
Row("Estatus") = "True" Row("Estatus") = "True"
Row("Correo") = Correo Row("Correo") = Correo
Row("CveSATBanco") = CveSATBanco
TempDTCuentasBancos.Rows.Add(Row) TempDTCuentasBancos.Rows.Add(Row)
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion) Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias")) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -3157,7 +3176,8 @@ Partial Class Compras_Proveedores
If CveProveedor > 0 Then If CveProveedor > 0 Then
If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias) Then If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor,
False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then
DTCuentasBancos.Clear() DTCuentasBancos.Clear()
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion) Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -3181,8 +3201,12 @@ Partial Class Compras_Proveedores
Row("RefCrediProveedor") = RefCrediProveedor Row("RefCrediProveedor") = RefCrediProveedor
Row("CveMoneda") = CveMoneda Row("CveMoneda") = CveMoneda
Row("Moneda") = Moneda Row("Moneda") = Moneda
Row("EstatusPagoElectronico") = EstatusPagoElectronico
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
Row("Estatus") = Estatus Row("Estatus") = Estatus
Row("Correo") = Correo Row("Correo") = Correo
Row("CveSATBanco") = CveSATBanco
TempDTCuentasBancos.AcceptChanges() TempDTCuentasBancos.AcceptChanges()
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion) Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias")) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -4673,6 +4697,13 @@ Partial Class Compras_Proveedores
TxtBBVAAlias.Text = "" TxtBBVAAlias.Text = ""
ChkEstatus.Checked = True ChkEstatus.Checked = True
divestatus.Visible = False divestatus.Visible = False
ChkPagoElectronico.Checked = False
ChkPagoElectronicoGrupos.Checked = False
DdlSatBanco.SelectedValueExist("-1")
DVDdlSatBanco.Visible = False
UpAddBancos.Update() UpAddBancos.Update()
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias")) RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
End Sub End Sub
@@ -4697,6 +4728,15 @@ Partial Class Compras_Proveedores
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
divestatus.Visible = True divestatus.Visible = True
UpAddBancos.Update() UpAddBancos.Update()
ChkPagoElectronico.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronico").ToString)
ChkPagoElectronicoGrupos.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronicoGrupos").ToString)
DdlSatBanco.SelectedValueExist(GvRow.DataKey("CveSATBanco"))
If ChkPagoElectronicoGrupos.Checked Then
DVDdlSatBanco.Visible = True
End If
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias")) RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
End Sub End Sub
@@ -6153,6 +6193,24 @@ Partial Class Compras_Proveedores
#End Region #End Region
Protected Sub ChkPagoElectronicoGrupos_CheckedChanged(sender As Object, e As EventArgs)
If ChkPagoElectronicoGrupos.Checked Then
DVDdlSatBanco.Visible = True
Else
DVDdlSatBanco.Visible = False
End If
UpAddBancos.Update()
End Sub
Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs)
If ChkPagoElectronico.Checked Then
Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la platoforma", TipoMensaje.MsgAdvertencia)
End If
End Sub
End Class End Class

70
Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc
View File

@@ -6,25 +6,25 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>3.2cm</Width> <Width>3.11227cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2cm</Width> <Width>2.2618cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2cm</Width> <Width>2.38704cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>4.8cm</Width> <Width>2.96454cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>4.3cm</Width> <Width>4.68704cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.5cm</Width> <Width>2.88704cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2cm</Width> <Width>2.38704cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -347,7 +347,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -551,7 +550,7 @@
<Top>0.14111cm</Top> <Top>0.14111cm</Top>
<Left>0.01325cm</Left> <Left>0.01325cm</Left>
<Height>0.84438cm</Height> <Height>0.84438cm</Height>
<Width>20.8cm</Width> <Width>20.68675cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -565,7 +564,7 @@
<Width>8.23098in</Width> <Width>8.23098in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>3.67911cm</Height> <Height>3.71891cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -917,6 +916,47 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Textbox Name="Textbox5">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Usuario Entrego: </Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!FiltroUsuario.Value</Value>
<Style>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>2.9cm</Top>
<Left>13.3cm</Left>
<Height>0.5cm</Height>
<Width>7.4cm</Width>
<ZIndex>9</ZIndex>
<Visibility>
<Hidden>=Parameters!FiltroUsuario.Value Like ""</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems> </ReportItems>
<Style> <Style>
<Border> <Border>
@@ -1181,6 +1221,10 @@
<DataField>PaqueteriaGuiaTipo</DataField> <DataField>PaqueteriaGuiaTipo</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>
</Field> </Field>
<Field Name="UsuarioEntrega">
<DataField>UsuarioEntrega</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields> </Fields>
<rd:DataSetInfo> <rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName> <rd:DataSetName>DataSet</rd:DataSetName>
@@ -1288,6 +1332,12 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="FiltroUsuario">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>1d5d9525-4bdd-4783-9df6-cce93069c30f</rd:ReportID> <rd:ReportID>1d5d9525-4bdd-4783-9df6-cce93069c30f</rd:ReportID>

31
General/CatClasificacionesComprobaciones.aspx
View File

@@ -11,6 +11,14 @@
Catálogo de Clasificaciones Viáticos y Comprobaciones Catálogo de Clasificaciones Viáticos y Comprobaciones
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAcciones">
<ContentTemplate>
<asp:LinkButton runat="server" ID="LnkAgregarClasificacion" data-toggle="tooltip" data-placement="left" title="Agregar Clasificación"
Text="<i class='fa fa-plus'></i> Agregar Clasificación" OnClick="LnkAgregarClasificacion_Click" ></asp:LinkButton>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
@@ -32,7 +40,7 @@
<asp:ListItem Selected="True" Value="-1">Todos</asp:ListItem> <asp:ListItem Selected="True" Value="-1">Todos</asp:ListItem>
<asp:ListItem Value="0">Sin Asignar</asp:ListItem> <asp:ListItem Value="0">Sin Asignar</asp:ListItem>
<asp:ListItem Value="1">Viáticos</asp:ListItem> <asp:ListItem Value="1">Viáticos</asp:ListItem>
<asp:ListItem Value="2">Comprobacines</asp:ListItem> <asp:ListItem Value="2">Comprobaciones</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
@@ -65,14 +73,15 @@
<asp:TemplateField ItemStyle-Width="40px" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField ItemStyle-Width="40px" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" OnClick="ActualizaModalClasif" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" /> <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" OnClick="ActualizaModalClasif" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- <asp:TemplateField ItemStyle-HorizontalAlign="center"> <asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="40px" >
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea Elminar?" data-btn-ok-label="si" /> <asp:LinkButton ID="LnkEliminar" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="LnkEliminar_Click"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea Elminar?" data-btn-ok-label="si" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField>--%> </asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
@@ -103,18 +112,20 @@
<div class="modal-body"> <div class="modal-body">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtClasificaciones" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" ValidationGroup="Clasif" Enabled="false"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVCampaña" runat="server" ControlToValidate="TxtClasificaciones" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator> <asp:DropDownList ID="DdlClasificacion" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList>
<label for="<%= TxtClasificaciones.ClientID.ToString()%>">Clasificación:</label> <asp:RequiredFieldValidator ID="RFVCampaña" InitialValue="-1" runat="server" ControlToValidate="DdlClasificacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<label for="<%= DdlTipoComprobacion.ClientID.ToString()%>">Tipo Comprobacion:</label> <label for="<%= DdlClasificacion.ClientID.ToString()%>">Tipo Comprobacion:</label>
<br /> <br />
<asp:DropDownList runat="server" ID="DdlTipoComprobacion" CssClass="select2me"> <asp:DropDownList runat="server" ID="DdlTipoComprobacion" CssClass="select2me">
<asp:ListItem Value="-1">Sin Asignar</asp:ListItem> <asp:ListItem Value="-1">Sin Asignar</asp:ListItem>
<asp:ListItem Value="1">Viáticos</asp:ListItem> <asp:ListItem Value="1">Viáticos</asp:ListItem>
<asp:ListItem Value="2">Comprobacines</asp:ListItem> <asp:ListItem Value="2">Comprobaciones</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>

75
General/CatClasificacionesComprobaciones.aspx.vb
View File

@@ -23,13 +23,41 @@ Partial Class Gral_CatClasificacionesComprobaciones
End Property End Property
Property Actualizar As Boolean
Get
If ViewState("Actualizar") Is Nothing Then
Return False
Else
Return Boolean.Parse(ViewState("Actualizar").ToString)
End If
End Get
Set(value As Boolean)
ViewState("Actualizar") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
CargaDropDownList()
CargaGridClasificaciones() CargaGridClasificaciones()
End If End If
End Sub End Sub
#Region " C L A S I F I C A C I O N E S" #Region " C L A S I F I C A C I O N E S"
Protected Sub CargaDropDownList()
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=-1).FiltraParametros("", Orderby:="Clasificacion") 'GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
DdlClasificacion.DataBind()
DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Protected Sub CargaGridClasificaciones() Protected Sub CargaGridClasificaciones()
Dim ObjClasificaciones As New ClsClasificaciones() Dim ObjClasificaciones As New ClsClasificaciones()
@@ -47,23 +75,27 @@ Partial Class Gral_CatClasificacionesComprobaciones
Dim ObjClasificaciones As New ClsClasificaciones() Dim ObjClasificaciones As New ClsClasificaciones()
If ObjClasificaciones.AddClasificacionesComprobaciones(CveClasificacion, UsuarioActual.CveEmpresa, DdlTipoComprobacion.SelectedValue.ToEntero) Then
If ObjClasificaciones.AddClasificacionesComprobaciones(DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlTipoComprobacion.SelectedValue.ToEntero) Then
Alert("La clasificación se actualizo correctamente.") Alert("La clasificación se actualizo correctamente.")
CargaGridClasificaciones()
UpDatos.Update() UpDatos.Update()
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalClasificaciones")) RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalClasificaciones"))
End If End If
ObjClasificaciones.Dispose()
ObjClasificaciones.Dispose()
CargaGridClasificaciones()
End Sub End Sub
Public Sub ActualizaModalClasif(sender As Object, e As EventArgs) Public Sub ActualizaModalClasif(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Actualizar = True
TxtClasificaciones.Text = GvRow.DataKey("Clasificacion") DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion"))
CveClasificacion = GvRow.DataKey("CveClasificacion").ToString.ToEntero CveClasificacion = GvRow.DataKey("CveClasificacion").ToString.ToEntero
RegistraScript(String.Format("$('#{0}').modal();", "ModalClasificaciones")) RegistraScript(String.Format("$('#{0}').modal();", "ModalClasificaciones"))
@@ -79,4 +111,39 @@ Partial Class Gral_CatClasificacionesComprobaciones
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
CargaGridClasificaciones() CargaGridClasificaciones()
End Sub End Sub
Protected Sub LnkAgregarClasificacion_Click(sender As Object, e As EventArgs)
Actualizar = False
DdlClasificacion.SelectedValueExist("-1")
CveClasificacion = -1
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalClasificaciones"))
DdlTipoComprobacion.SelectedValueExist("-1")
UpModalClasificaciones.Update()
End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim ObjClasificaciones As New ClsClasificaciones()
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveClasificacionEliminar As Integer = GvRow.DataKey("CveClasificacion").ToString.ToEntero
Dim TipoComprobacionEliminar As Integer = GvRow.DataKey("TipoComprobacion").ToString.ToEntero
If ObjClasificaciones.RemoveClasificacionesComprobaciones(CveClasificacionEliminar, UsuarioActual.CveEmpresa, TipoComprobacionEliminar) Then
Alert("La clasificación se elimino correctamente.")
End If
ObjClasificaciones.Dispose()
CargaGridClasificaciones()
UpDatos.Update()
End Sub
End Class End Class

3
General/RepPaqueteriasGuias.aspx.cs
View File

@@ -811,7 +811,8 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
@params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString())); @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
@params.Add(new ReportParameter("Filtros", String.Format(" <b>Sucursal: </b>{0}&emsp;&emsp;<b>Estatus: </b>{1}&emsp;&emsp;<b>Paquetería: </b>{2}<br/><b>Fecha Inicio: </b>{3}&emsp;&emsp;<b>Fecha Fin: </b>{4}", Sucursal, Estatus, Paqueteria, FechaInicio, FechaFinal))); @params.Add(new ReportParameter("Filtros", String.Format(" <b>Sucursal: </b>{0}&emsp;&emsp;<b>Estatus: </b>{1}&emsp;&emsp;<b>Paquetería: </b>{2}<br/><b>Fecha Inicio: </b>{3}&emsp;&emsp;<b>Fecha Fin: </b>{4}", Sucursal, Estatus, Paqueteria, FechaInicio, FechaFinal)));
@params.Add(new ReportParameter("FiltroUsuario", DdlUsuarios.SelectedItem.Text)); string Usuario = DdlUsuarios.SelectedValue == "-1" ? "" : DdlUsuarios.SelectedItem.Text;
@params.Add(new ReportParameter("FiltroUsuario", Usuario));
if (Imagen.Exists) if (Imagen.Exists)
{ {

2
Inicio.aspx.vb
View File

@@ -225,7 +225,7 @@ Partial Class Inicio
Private Sub MuestraVentasPUE() Private Sub MuestraVentasPUE()
Dim objVentas As New ClsVentas Dim objVentas As New ClsVentas
Dim FechaInicio As Date = Now.AddYears(-2) Dim FechaInicio As Date = Now.AddYears(-2)
LblVentasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString LblVentasPUE.Text = "Facturas a partir de: " & FechaInicio.ToShortDateString
If objVentas.GetPUESinPago(FechaInicio, Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then If objVentas.GetPUESinPago(FechaInicio, Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If objVentas.DtResultados.Rows.Count > 0 Then If objVentas.DtResultados.Rows.Count > 0 Then
GvVtaPUE.DataSource = objVentas.DtResultados GvVtaPUE.DataSource = objVentas.DtResultados

9
RH/Personal.aspx.vb
View File

@@ -1242,6 +1242,11 @@ Partial Class RH_Personal
Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal) Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal)
Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
ImgPersonal.ImageUrl = logouri
ElseIf File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".bmp") Then
Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.bmp", UsuarioActual.CveEmpresa, CvePersonal)
Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
ImgPersonal.ImageUrl = logouri ImgPersonal.ImageUrl = logouri
End If End If
'BtnCargarArchivo_Click(Me, New EventArgs) 'BtnCargarArchivo_Click(Me, New EventArgs)
@@ -4973,10 +4978,14 @@ Partial Class RH_Personal
Dim yaExistente As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.jpg", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal) Dim yaExistente As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.jpg", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
Dim yaExistentePNG As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.png", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal) Dim yaExistentePNG As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.png", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
Dim yaExistenteBMP As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.bmp", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
If File.Exists(yaExistente) Then If File.Exists(yaExistente) Then
File.Delete(yaExistente) File.Delete(yaExistente)
ElseIf File.Exists(yaExistentePNG) Then ElseIf File.Exists(yaExistentePNG) Then
File.Delete(yaExistentePNG) File.Delete(yaExistentePNG)
ElseIf File.Exists(yaExistenteBMP) Then
File.Delete(yaExistenteBMP)
End If End If
If filemove <> "" Then If filemove <> "" Then

10
Ventas/Clientes.aspx
View File

@@ -1499,7 +1499,7 @@
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:Label ID="LblDiasPago" runat="server" Text="Días de pago:"></asp:Label> <asp:Label ID="LblDiasPago" runat="server" ForeColor="#888888" Text="Días de pago:"></asp:Label>
<br /> <br />
<label><b>L</b></label>&nbsp;&nbsp; <label><b>L</b></label>&nbsp;&nbsp;
@@ -1557,7 +1557,7 @@
<div class="row" id="DivDiasRevision" runat="server" visible="false"> <div class="row" id="DivDiasRevision" runat="server" visible="false">
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:Label ID="LblDiasRevision" runat="server" Text="Dias de Revisión:"></asp:Label> <asp:Label ID="LblDiasRevision" runat="server" Text="Días de Revisión:"></asp:Label>
<br /> <br />
<label><b>L</b></label>&nbsp;&nbsp; <label><b>L</b></label>&nbsp;&nbsp;
@@ -5509,7 +5509,7 @@
<asp:Label runat="server" ID="Label4" Text=""></asp:Label> <asp:Label runat="server" ID="Label4" Text=""></asp:Label>
</h4> </h4>
<small>Dias</small> <small>Días</small>
</div> </div>
</div> </div>
</div> </div>
@@ -5525,7 +5525,7 @@
<asp:Label runat="server" ID="Label5" Text=""></asp:Label> <asp:Label runat="server" ID="Label5" Text=""></asp:Label>
</h4> </h4>
<small>Dias Credito</small> <small>Días Credito</small>
</div> </div>
</div> </div>
</div> </div>
@@ -5590,7 +5590,7 @@
<asp:BoundField DataField="Fecha" ItemStyle-Width="15%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" /> <asp:BoundField DataField="Fecha" ItemStyle-Width="15%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:BoundField DataField="Total" ItemStyle-HorizontalAlign="Right" HeaderText="Total" DataFormatString="{0:N2}" /> <asp:BoundField DataField="Total" ItemStyle-HorizontalAlign="Right" HeaderText="Total" DataFormatString="{0:N2}" />
<asp:BoundField DataField="Abreviatura" ItemStyle-HorizontalAlign="Center" HeaderText="Mon" /> <asp:BoundField DataField="Abreviatura" ItemStyle-HorizontalAlign="Center" HeaderText="Mon" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" HeaderText="Dias Credito"> <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" HeaderText="Días Credito">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtDiasCredito" runat="server" Width="50%" Text='<%# Eval("DiasCredito", "{0:#,###.####}")%>'></asp:TextBox> <asp:TextBox ID="TxtDiasCredito" runat="server" Width="50%" Text='<%# Eval("DiasCredito", "{0:#,###.####}")%>'></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTBEDiasCredito" TargetControlID="TxtDiasCredito" FilterType="Numbers" runat="server" /> <ajax:FilteredTextBoxExtender ID="FTBEDiasCredito" TargetControlID="TxtDiasCredito" FilterType="Numbers" runat="server" />