RH Gafetes acciones
This commit is contained in:
rakcsle
@@ -197,7 +197,9 @@
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<div class="row">
|
||||
|
||||
|
||||
<%-- <div class="row">
|
||||
<div class="col-md-4">
|
||||
<span>Número de Tarjeta:</span>
|
||||
</div>
|
||||
@@ -222,9 +224,7 @@
|
||||
|
||||
<asp:CompareValidator ID="CVFechaVencimiento" runat="server" ControlToValidate="TxtFechaVencimiento" Display="None" Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpAgregarTarjeta" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Vencimiento''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFecha2Cancelacion" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaVencimiento" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
<%-- <asp:CompareValidator ID="CVFechaVencimientoMin" runat="server" ControlToCompare="Date.Now" ControlToValidate="TxtFechaVencimiento" Display="None" Operator="GreaterThanEqual" Type="Date" ValidationGroup="" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Cancelación''</b>tiene que ser mayor o igual a la fecha del documento."></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCancelacionMin" Width="350px"></ajax:ValidatorCalloutExtender>--%>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
@@ -242,13 +242,21 @@
|
||||
<asp:LinkButton ID="LkbAgregarTarjera" CssClass="Texto" runat="server" ValidationGroup="GrpAgregarTarjeta">Agregar</asp:LinkButton></td>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>--%>
|
||||
|
||||
|
||||
<div class="row" style="margin-top: 5px;">
|
||||
<div class="col-md-12">
|
||||
|
||||
<asp:GridView ID="GvTarjetas" runat="server" GridLines="None" AutoGenerateColumns="false" CssClass="table table-striped table-hover mysmallbtn" data-height="400px" DataKeyNames="CveCuentaTarjeta, CveCuenta">
|
||||
<asp:GridView ID="GvTC" runat="server" DataKeyNames="CveCuenta" AutoGenerateColumns="False" EmptyDataText="No hay tarjetas vinculadas" ToolTip="Tarjetas de Credito" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="CLABE" HeaderText="CLABE" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
|
||||
<asp:BoundField DataField="NumCuenta" HeaderText="Num. Cuenta" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
<%--<asp:GridView ID="GvTarjetas" runat="server" GridLines="None" AutoGenerateColumns="false" CssClass="table table-striped table-hover mysmallbtn" data-height="400px" DataKeyNames="CveCuentaTarjeta, CveCuenta">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>
|
||||
@@ -317,7 +325,9 @@
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
</asp:GridView>
|
||||
</asp:GridView>--%>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -682,112 +682,124 @@ Partial Class Bancos_CuentasBancariasDetalle
|
||||
Else
|
||||
DivTarjeta.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "D A T O S T A R J E TA - C R E D I T O"
|
||||
Private Sub LkbAgregarTarjera_Click(sender As Object, e As EventArgs) Handles LkbAgregarTarjera.Click
|
||||
Dim ObjTarjeta As New ClsBancos()
|
||||
Dim TieneError = False
|
||||
|
||||
If Not ObjTarjeta.AddTarjetaCredito(CveCuenta, TxtNumTarjeta.Text, TxtNombreResponsable.Text, TxtFechaVencimiento.Text.ToDate, UsuarioActual.CveUsuario) Then
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
If Not TieneError Then
|
||||
Alert("Se guardo la tarjeta de credito correctamente", TipoMensaje.MsgInformacion)
|
||||
TxtNumTarjeta.Text = ""
|
||||
TxtNombreResponsable.Text = ""
|
||||
TxtFechaVencimiento.Text = ""
|
||||
CargaDatosTarjeta()
|
||||
Else
|
||||
Alert("Ocurrio un Error al Guardar la tarjeta de credito", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjTarjeta.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
'Private Sub LkbAgregarTarjera_Click(sender As Object, e As EventArgs) Handles LkbAgregarTarjera.Click
|
||||
' Dim ObjTarjeta As New ClsBancos()
|
||||
' Dim TieneError = False
|
||||
|
||||
' If Not ObjTarjeta.AddTarjetaCredito(CveCuenta, TxtNumTarjeta.Text, TxtNombreResponsable.Text, TxtFechaVencimiento.Text.ToDate, UsuarioActual.CveUsuario) Then
|
||||
' TieneError = True
|
||||
' End If
|
||||
|
||||
' If Not TieneError Then
|
||||
' Alert("Se guardo la tarjeta de credito correctamente", TipoMensaje.MsgInformacion)
|
||||
' TxtNumTarjeta.Text = ""
|
||||
' TxtNombreResponsable.Text = ""
|
||||
' TxtFechaVencimiento.Text = ""
|
||||
' CargaDatosTarjeta()
|
||||
' Else
|
||||
' Alert("Ocurrio un Error al Guardar la tarjeta de credito", TipoMensaje.MsgError)
|
||||
' End If
|
||||
|
||||
' ObjTarjeta.Dispose()
|
||||
' UpDatos.Update()
|
||||
'End Sub
|
||||
|
||||
Private Sub CargaDatosTarjeta()
|
||||
Dim ObjTarjeta As New ClsBancos()
|
||||
'Dim ObjTarjeta As New ClsBancos()
|
||||
|
||||
'If ObjTarjeta.GetTarjetaCredito(-1, CveCuenta, -1) Then
|
||||
' GvTarjetas.DataSource = ObjTarjeta.DtResultados()
|
||||
'Else
|
||||
' GvTarjetas.DataSource = Nothing
|
||||
'End If
|
||||
'GvTarjetas.DataBind()
|
||||
'ObjTarjeta.Dispose()
|
||||
|
||||
Dim ObjCreditos As New ClsBancos
|
||||
If ObjCreditos.GetTarjetasCreditos(CveCuenta) Then
|
||||
If ObjCreditos.DtResultados.Rows.Count > 0 Then
|
||||
GvTC.DataSource = ObjCreditos.DtResultados
|
||||
End If
|
||||
GvTC.Visible = True
|
||||
End If
|
||||
ObjCreditos.Dispose()
|
||||
|
||||
GvTC.DataBind()
|
||||
|
||||
If ObjTarjeta.GetTarjetaCredito(-1, CveCuenta, -1) Then
|
||||
GvTarjetas.DataSource = ObjTarjeta.DtResultados()
|
||||
Else
|
||||
GvTarjetas.DataSource = Nothing
|
||||
End If
|
||||
GvTarjetas.DataBind()
|
||||
ObjTarjeta.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvTarjetas_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvTarjetas.RowEditing
|
||||
GvTarjetas.EditIndex = e.NewEditIndex
|
||||
CargaDatosTarjeta()
|
||||
End Sub
|
||||
'Private Sub GvTarjetas_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvTarjetas.RowEditing
|
||||
' GvTarjetas.EditIndex = e.NewEditIndex
|
||||
' CargaDatosTarjeta()
|
||||
'End Sub
|
||||
|
||||
Private Sub GvTarjetas_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvTarjetas.RowCancelingEdit
|
||||
GvTarjetas.EditIndex = -1
|
||||
CargaDatosTarjeta()
|
||||
End Sub
|
||||
'Private Sub GvTarjetas_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvTarjetas.RowCancelingEdit
|
||||
' GvTarjetas.EditIndex = -1
|
||||
' CargaDatosTarjeta()
|
||||
'End Sub
|
||||
|
||||
Private Sub GvTarjetas_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvTarjetas.RowUpdating
|
||||
Dim ObjTarjeta As New ClsBancos()
|
||||
Dim TieneError = False
|
||||
'Private Sub GvTarjetas_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvTarjetas.RowUpdating
|
||||
' Dim ObjTarjeta As New ClsBancos()
|
||||
' Dim TieneError = False
|
||||
|
||||
Dim CveCuentaTarjeta = GvTarjetas.Rows(e.RowIndex).DataKey("CveCuentaTarjeta").ToEntero
|
||||
Dim CveCuenta As Integer = GvTarjetas.Rows(e.RowIndex).DataKey("CveCuenta").ToEntero
|
||||
Dim Numero = DirectCast(GvTarjetas.Rows(e.RowIndex).FindControl("TxtNumeroEdit"), TextBox).Text.Trim
|
||||
Dim Responsable = DirectCast(GvTarjetas.Rows(e.RowIndex).FindControl("TxtResponsableEdit"), TextBox).Text.Trim
|
||||
Dim Vencimiento = DirectCast(GvTarjetas.Rows(e.RowIndex).FindControl("TxtFechaVencimientoEdit"), TextBox).Text.ToDate
|
||||
' Dim CveCuentaTarjeta = GvTarjetas.Rows(e.RowIndex).DataKey("CveCuentaTarjeta").ToEntero
|
||||
' Dim CveCuenta As Integer = GvTarjetas.Rows(e.RowIndex).DataKey("CveCuenta").ToEntero
|
||||
' Dim Numero = DirectCast(GvTarjetas.Rows(e.RowIndex).FindControl("TxtNumeroEdit"), TextBox).Text.Trim
|
||||
' Dim Responsable = DirectCast(GvTarjetas.Rows(e.RowIndex).FindControl("TxtResponsableEdit"), TextBox).Text.Trim
|
||||
' Dim Vencimiento = DirectCast(GvTarjetas.Rows(e.RowIndex).FindControl("TxtFechaVencimientoEdit"), TextBox).Text.ToDate
|
||||
|
||||
If Not ObjTarjeta.UpdateTarjetaCredito(CveCuentaTarjeta, CveCuenta, Numero, Responsable, Vencimiento, UsuarioActual.CveUsuario) Then
|
||||
TieneError = True
|
||||
Else
|
||||
GvTarjetas.EditIndex = -1
|
||||
End If
|
||||
' If Not ObjTarjeta.UpdateTarjetaCredito(CveCuentaTarjeta, CveCuenta, Numero, Responsable, Vencimiento, UsuarioActual.CveUsuario) Then
|
||||
' TieneError = True
|
||||
' Else
|
||||
' GvTarjetas.EditIndex = -1
|
||||
' End If
|
||||
|
||||
If Not TieneError Then
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaDatosTarjeta()
|
||||
Else
|
||||
Alert("Error al actualizar los cambios.", TipoMensaje.MsgError)
|
||||
End If
|
||||
' If Not TieneError Then
|
||||
' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
' CargaDatosTarjeta()
|
||||
' Else
|
||||
' Alert("Error al actualizar los cambios.", TipoMensaje.MsgError)
|
||||
' End If
|
||||
|
||||
ObjTarjeta.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
' ObjTarjeta.Dispose()
|
||||
' UpDatos.Update()
|
||||
'End Sub
|
||||
|
||||
Private Sub GvTarjetas_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvTarjetas.RowDeleting
|
||||
Dim ObjTarjeta As New ClsBancos()
|
||||
Dim TieneError = False
|
||||
'Private Sub GvTarjetas_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvTarjetas.RowDeleting
|
||||
' Dim ObjTarjeta As New ClsBancos()
|
||||
' Dim TieneError = False
|
||||
|
||||
Dim CveCuentaTarjeta = GvTarjetas.Rows(e.RowIndex).DataKey("CveCuentaTarjeta").ToEntero
|
||||
' Dim CveCuentaTarjeta = GvTarjetas.Rows(e.RowIndex).DataKey("CveCuentaTarjeta").ToEntero
|
||||
|
||||
If ObjTarjeta.RemoveTarjetaCredito(CveCuentaTarjeta, UsuarioActual.CveUsuario) Then
|
||||
CargaDatosTarjeta()
|
||||
Alert("Se eliminaron datos correctamente", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Error al eliminar", TipoMensaje.MsgError)
|
||||
End If
|
||||
' If ObjTarjeta.RemoveTarjetaCredito(CveCuentaTarjeta, UsuarioActual.CveUsuario) Then
|
||||
' CargaDatosTarjeta()
|
||||
' Alert("Se eliminaron datos correctamente", TipoMensaje.MsgInformacion)
|
||||
' Else
|
||||
' Alert("Error al eliminar", TipoMensaje.MsgError)
|
||||
' End If
|
||||
|
||||
ObjTarjeta.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
' ObjTarjeta.Dispose()
|
||||
' UpDatos.Update()
|
||||
'End Sub
|
||||
|
||||
Private Sub GvTarjetas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvTarjetas.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(200)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(20)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(20)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
'Private Sub GvTarjetas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvTarjetas.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(100)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(100)
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(200)
|
||||
' e.Row.Cells(3).Width = Unit.Pixel(20)
|
||||
' e.Row.Cells(4).Width = Unit.Pixel(20)
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
Private Function CargarDdlUsuarios(UsuariosGlobal As DataTable) As DataTable
|
||||
Dim tablaUsuariosFormateada As DataTable = New DataTable("Usuarios")
|
||||
|
||||
@@ -181,6 +181,7 @@
|
||||
<div>
|
||||
<asp:UpdatePanel ID="UpGvTC" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:GridView ID="GvTC" runat="server" DataKeyNames="CveCuenta" AutoGenerateColumns="False" EmptyDataText="No hay tarjetas vinculadas" ToolTip="Tarjetas de Credito" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="CLABE" HeaderText="CLABE" ItemStyle-HorizontalAlign="Right">
|
||||
@@ -202,6 +203,7 @@
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
<HeaderStyle CssClass="Titulos" Height="50px" />
|
||||
</asp:GridView>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
@@ -380,7 +380,6 @@ Partial Class Bancos_Transferencias
|
||||
Exit For
|
||||
Else
|
||||
AlertaGlobal.AppendFormat("<a class=""Texto"" target='_blank' href=""/Bancos/IE.aspx?CveIE={0}"">{1}</a><br/>", CveIEDestino, FolioDestino)
|
||||
'FolioDestino = (FolioDestino.ToLong + 1).ToString
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
Reference in New Issue
Block a user