Grupos y Clacificacaiones Comprobaciones
This commit is contained in:
Rakcsle Supertramp
@@ -4375,4 +4375,24 @@ Public Class ClsBancos
|
||||
End Try
|
||||
Return Retorno
|
||||
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
|
||||
|
||||
@@ -174,6 +174,26 @@ Public Class ClsClasificaciones
|
||||
OnError("Ocurrió un error al modificar la clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
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
|
||||
End Function
|
||||
|
||||
|
||||
@@ -1388,7 +1388,7 @@ Public Class ClsGenerales
|
||||
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,
|
||||
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
|
||||
|
||||
DataAdapter("PA_Gral_CuentasDepositosAdd")
|
||||
@@ -1412,6 +1412,9 @@ Public Class ClsGenerales
|
||||
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
|
||||
.Add("@Correo", SqlDbType.VarChar).Value = Correo
|
||||
.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
|
||||
|
||||
@@ -1454,7 +1457,9 @@ Public Class ClsGenerales
|
||||
Return Retorno
|
||||
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
|
||||
|
||||
DataAdapter("PA_Gral_CuentasDepositosUpdate")
|
||||
@@ -1477,6 +1482,9 @@ Public Class ClsGenerales
|
||||
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
|
||||
.Add("@Correo", SqlDbType.VarChar).Value = Correo
|
||||
.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
|
||||
|
||||
|
||||
@@ -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)
|
||||
End If
|
||||
|
||||
ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
|
||||
'ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
|
||||
|
||||
|
||||
If Dep.DtResultados.Rows.Count > 0 Then
|
||||
DdlCuentaDeposito.DataSource = Dep.DtResultados
|
||||
trCuentaDeposito.Visible = True
|
||||
BtnIEGuardar.ToolTip = ""
|
||||
Else
|
||||
' If Dep.DtResultados.Rows.Count > 0 Then
|
||||
' DdlCuentaDeposito.DataSource = Dep.DtResultados
|
||||
' trCuentaDeposito.Visible = True
|
||||
' BtnIEGuardar.ToolTip = ""
|
||||
' Else
|
||||
|
||||
BtnIEGuardar.Enabled = False
|
||||
BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
|
||||
' BtnIEGuardar.Enabled = False
|
||||
' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
|
||||
UpGuardar.Update()
|
||||
' UpGuardar.Update()
|
||||
Else
|
||||
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
|
||||
If Dep.DtResultados.Rows.Count > 0 Then
|
||||
@@ -2550,19 +2550,19 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
'Else
|
||||
|
||||
|
||||
If DdlTipoTransaccion.SelectedValue = "17" Then
|
||||
' If DdlTipoTransaccion.SelectedValue = "17" Then
|
||||
|
||||
BtnIEGuardar.Enabled = False
|
||||
BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
|
||||
Else
|
||||
BtnIEGuardar.Enabled = True
|
||||
BtnIEGuardar.ToolTip = ""
|
||||
End If
|
||||
' BtnIEGuardar.Enabled = False
|
||||
' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
|
||||
' Else
|
||||
' BtnIEGuardar.Enabled = True
|
||||
' BtnIEGuardar.ToolTip = ""
|
||||
' End If
|
||||
|
||||
UpGuardar.Update()
|
||||
' UpGuardar.Update()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -1944,141 +1944,86 @@
|
||||
<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"
|
||||
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">
|
||||
|
||||
<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>
|
||||
<%--<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>--%>
|
||||
</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>
|
||||
<%--<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>--%>
|
||||
</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>
|
||||
<%-- <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>--%>
|
||||
</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>
|
||||
<%-- <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>--%>
|
||||
</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>
|
||||
<%-- <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>--%>
|
||||
</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>
|
||||
<%--<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>--%>
|
||||
</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>
|
||||
<%-- <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>--%>
|
||||
</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>
|
||||
<%-- <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>--%>
|
||||
</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>
|
||||
<%-- <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 ItemStyle-HorizontalAlign="Center" HeaderText="Moneda" ItemStyle-CssClass="Excede">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtMoneda" runat="server" Text='<%# Eval("Moneda")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<%-- <EditItemTemplate>
|
||||
<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>--%>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Estatus" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<!--IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No") = If(EstatusPagoElectronico) Then "Sí" Else "No"-->
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LlbEstatusTexto" Text='<%# Eval("EstatusTexto")%>' runat="server" />
|
||||
</ItemTemplate>
|
||||
<%-- <EditItemTemplate>
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# IIf(Eval("EstatusTexto").ToString = "Activo", True, False)%>' Visible="false"></asp:CheckBox>
|
||||
</EditItemTemplate>--%>
|
||||
</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>
|
||||
|
||||
<asp:TemplateField HeaderText="Comandos" ItemStyle-HorizontalAlign="Center">
|
||||
<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="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>
|
||||
</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>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
@@ -3643,17 +3588,57 @@
|
||||
<label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">BBVA Alias:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></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="GrpAgregarBanco"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= DdlMoneda.ClientID.ToString()%>">Moneda:</label>
|
||||
</div>
|
||||
<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 class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></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="GrpAgregarBanco"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= DdlMoneda.ClientID.ToString()%>">Moneda:</label>
|
||||
</div>
|
||||
</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 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 class="modal-footer">
|
||||
<asp:LinkButton ID="LbAgregarCuentaBanco" runat="server" CausesValidation="true" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpAgregarBanco" OnClick="LbAgregarCuentaBanco_Click"></asp:LinkButton>
|
||||
|
||||
@@ -776,9 +776,30 @@ Partial Class Compras_Proveedores
|
||||
End Function
|
||||
|
||||
Private Sub CargaCombos()
|
||||
|
||||
CargaResponsable()
|
||||
CargaClasificacionProveedor()
|
||||
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
|
||||
|
||||
Private Function CargaDatos() As Boolean
|
||||
@@ -1640,7 +1661,9 @@ Partial Class Compras_Proveedores
|
||||
''Agregar Cuentas Bancarias
|
||||
If TempDTCuentasBancos.Rows.Count > 0 Then
|
||||
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
|
||||
End If
|
||||
Next
|
||||
@@ -3036,6 +3059,7 @@ Partial Class Compras_Proveedores
|
||||
CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
||||
|
||||
RecargaGlobalCuentasBancarias()
|
||||
|
||||
End Sub
|
||||
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -3045,19 +3069,6 @@ Partial Class Compras_Proveedores
|
||||
EsBancomer = True
|
||||
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
|
||||
|
||||
'QUE TENGA ALGUN DATO DE TIPO DE CUENTA
|
||||
@@ -3111,15 +3122,19 @@ Partial Class Compras_Proveedores
|
||||
Dim Estatus As Boolean
|
||||
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
|
||||
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
|
||||
If Modalidad = "A" 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.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
|
||||
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
|
||||
@@ -3143,10 +3158,14 @@ Partial Class Compras_Proveedores
|
||||
Row("RefCrediProveedor") = RefCrediProveedor
|
||||
Row("CveMoneda") = CveMoneda
|
||||
Row("Moneda") = Moneda
|
||||
Row("EstatusPagoElectronico") = 0
|
||||
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
||||
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
|
||||
Row("Estatus") = "True"
|
||||
Row("Correo") = Correo
|
||||
Row("CveSATBanco") = CveSATBanco
|
||||
|
||||
TempDTCuentasBancos.Rows.Add(Row)
|
||||
|
||||
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
|
||||
|
||||
@@ -3157,7 +3176,8 @@ Partial Class Compras_Proveedores
|
||||
|
||||
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.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
|
||||
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
|
||||
@@ -3181,8 +3201,12 @@ Partial Class Compras_Proveedores
|
||||
Row("RefCrediProveedor") = RefCrediProveedor
|
||||
Row("CveMoneda") = CveMoneda
|
||||
Row("Moneda") = Moneda
|
||||
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
||||
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
|
||||
Row("Estatus") = Estatus
|
||||
Row("Correo") = Correo
|
||||
Row("CveSATBanco") = CveSATBanco
|
||||
|
||||
TempDTCuentasBancos.AcceptChanges()
|
||||
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
|
||||
@@ -4673,6 +4697,13 @@ Partial Class Compras_Proveedores
|
||||
TxtBBVAAlias.Text = ""
|
||||
ChkEstatus.Checked = True
|
||||
divestatus.Visible = False
|
||||
|
||||
ChkPagoElectronico.Checked = False
|
||||
ChkPagoElectronicoGrupos.Checked = False
|
||||
DdlSatBanco.SelectedValueExist("-1")
|
||||
|
||||
DVDdlSatBanco.Visible = False
|
||||
|
||||
UpAddBancos.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
|
||||
End Sub
|
||||
@@ -4697,6 +4728,15 @@ Partial Class Compras_Proveedores
|
||||
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
|
||||
divestatus.Visible = True
|
||||
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"))
|
||||
End Sub
|
||||
|
||||
@@ -6153,6 +6193,24 @@ Partial Class Compras_Proveedores
|
||||
#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
|
||||
|
||||
|
||||
|
||||
@@ -11,6 +11,14 @@
|
||||
Catálogo de Clasificaciones Viáticos y Comprobaciones
|
||||
</asp:Content>
|
||||
<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 ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
|
||||
@@ -32,7 +40,7 @@
|
||||
<asp:ListItem Selected="True" Value="-1">Todos</asp:ListItem>
|
||||
<asp:ListItem Value="0">Sin Asignar</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>
|
||||
</div>
|
||||
|
||||
@@ -65,14 +73,15 @@
|
||||
<asp:TemplateField ItemStyle-Width="40px" ItemStyle-HorizontalAlign="Right">
|
||||
<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>" />
|
||||
</ItemTemplate>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- <asp:TemplateField ItemStyle-HorizontalAlign="center">
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="40px" >
|
||||
<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>
|
||||
</asp:TemplateField>--%>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
@@ -103,18 +112,20 @@
|
||||
<div class="modal-body">
|
||||
|
||||
<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>
|
||||
<label for="<%= TxtClasificaciones.ClientID.ToString()%>">Clasificación:</label>
|
||||
|
||||
<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>
|
||||
<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 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 />
|
||||
<asp:DropDownList runat="server" ID="DdlTipoComprobacion" CssClass="select2me">
|
||||
<asp:ListItem Value="-1">Sin Asignar</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>
|
||||
|
||||
</div>
|
||||
|
||||
@@ -23,13 +23,41 @@ Partial Class Gral_CatClasificacionesComprobaciones
|
||||
|
||||
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
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDropDownList()
|
||||
CargaGridClasificaciones()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#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()
|
||||
|
||||
Dim ObjClasificaciones As New ClsClasificaciones()
|
||||
@@ -47,23 +75,27 @@ Partial Class Gral_CatClasificacionesComprobaciones
|
||||
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.")
|
||||
CargaGridClasificaciones()
|
||||
|
||||
UpDatos.Update()
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalClasificaciones"))
|
||||
End If
|
||||
|
||||
ObjClasificaciones.Dispose()
|
||||
|
||||
ObjClasificaciones.Dispose()
|
||||
CargaGridClasificaciones()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub ActualizaModalClasif(sender As Object, e As EventArgs)
|
||||
|
||||
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
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalClasificaciones"))
|
||||
|
||||
@@ -79,4 +111,39 @@ Partial Class Gral_CatClasificacionesComprobaciones
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
||||
CargaGridClasificaciones()
|
||||
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
|
||||
@@ -54,6 +54,14 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user