+ |
+
+ Seleccione uno
+
+
+
+ |
@@ -90,8 +113,22 @@
-
+
+
+
+
+
+
+
+ Seleccione uno
+
+
+
+
+
@@ -142,10 +179,14 @@
-
-
-
-
+
diff --git a/Bancos/CatBancos.aspx.vb b/Bancos/CatBancos.aspx.vb
index 1784f8c16..ab30a2db6 100644
--- a/Bancos/CatBancos.aspx.vb
+++ b/Bancos/CatBancos.aspx.vb
@@ -19,13 +19,43 @@ Partial Class Bancos_CatBancos
End Set
End Property
+ Private Property DTBancosSAT As DataTable
+ Get
+ If ViewState("DTBancosSAT") Is Nothing Then
+ ViewState("DTBancosSAT") = New DataTable()
+ End If
+ Return DirectCast(ViewState("DTBancosSAT"), DataTable)
+ End Get
+
+ Set(ByVal value As DataTable)
+ ViewState("DTBancosSAT") = value
+ End Set
+ End Property
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
+ CargaBancosSAT()
ViewState("Orden") = ""
CargaDatos()
End If
End Sub
+ Private Sub CargaBancosSAT()
+
+ Dim ObjBancos As New ClsBancos
+
+ If ObjBancos.GetBancosSAT Then
+ DdlSatBanco.DataSource = ObjBancos.DtResultados
+ DTBancosSAT = ObjBancos.DtResultados
+ End If
+
+ ObjBancos.Dispose()
+
+ DdlSatBanco.DataBind()
+ DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+ End Sub
+
Public Sub CargaDatos()
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancos() Then
@@ -47,7 +77,8 @@ Partial Class Bancos_CatBancos
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjBancos As New ClsBancos
- If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+ If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSATBanco:=DdlSatBanco.SelectedValue.ToEntero) Then
+ DdlSatBanco.SelectedValueExist(-1)
TxtBanco.Text = ""
TxtEjecutivo.Text = ""
TxtTelefono.Text = ""
@@ -68,24 +99,42 @@ Partial Class Bancos_CatBancos
#Region "G V D A T O S"
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+
If e.Row.RowType = DataControlRowType.DataRow Then
+
If e.Row.RowIndex = 0 Then
- e.Row.Cells(0).Width = Unit.Pixel(156) 'BANCO
- e.Row.Cells(1).Width = Unit.Pixel(206) 'EJECUTIVO
- e.Row.Cells(2).Width = Unit.Pixel(106) 'TELEFONO
- e.Row.Cells(3).Width = Unit.Pixel(95) 'ESTATUS
- e.Row.Cells(4).Width = Unit.Pixel(95) 'FECHA
- e.Row.Cells(5).Width = Unit.Pixel(100) 'USUARIO
- e.Row.Cells(6).Width = Unit.Pixel(100) 'EDITAR
- e.Row.Cells(7).Width = Unit.Pixel(65) 'ELIMINAR
+ e.Row.Cells(0).Width = Unit.Pixel(156) 'BANCO SAT
+ e.Row.Cells(1).Width = Unit.Pixel(156) 'BANCO
+ e.Row.Cells(2).Width = Unit.Pixel(206) 'EJECUTIVO
+ e.Row.Cells(3).Width = Unit.Pixel(106) 'TELEFONO
+ e.Row.Cells(4).Width = Unit.Pixel(95) 'ESTATUS
+ e.Row.Cells(5).Width = Unit.Pixel(95) 'FECHA
+ e.Row.Cells(6).Width = Unit.Pixel(100) 'USUARIO
+ e.Row.Cells(7).Width = Unit.Pixel(65) 'EDITAR
+ e.Row.Cells(8).Width = Unit.Pixel(65) 'ELIMINAR
End If
+
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
- e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
+ e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
- e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
+ 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
+ e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Center
+
End If
+
+ If (e.Row.RowState And DataControlRowState.Edit) = DataControlRowState.Edit Then
+ Dim DdlSatBanco As DropDownList = e.Row.FCDropDownList("DdlSatBanco")
+ DdlSatBanco.ClearSelection()
+ DdlSatBanco.SelectedValue = Nothing
+ DdlSatBanco.Items.Clear()
+ DdlSatBanco.DataSource = DTBancosSAT
+ DdlSatBanco.DataBind()
+ DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+ DdlSatBanco.SelectedValueExist(e.Row.DataKey("CveSATBanco").ToString())
+ End If
+
End Sub
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
@@ -126,19 +175,16 @@ Partial Class Bancos_CatBancos
Dim Telefono As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtTelefono"), TextBox).Text.Trim
Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
Dim CveBanco As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
+ Dim CveSATBanco As Integer = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlSatBanco").SelectedValue.ToEntero
Dim TieneError As Boolean = False
- If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco) Then
- If ObjBancos.InhabilitarCuentasBancos(CveBanco, Estatus) Then
- GvDatos.EditIndex = -1
- ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- GlobalDTBancos = ObjBancos.DtResultados
- Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
- Else
+ If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco, CveSATBanco:=CveSATBanco) Then
+
+ If Not ObjBancos.InhabilitarCuentasBancos(CveBanco, Estatus) Then
TieneError = True
End If
+
Else
TieneError = True
End If
@@ -152,12 +198,24 @@ Partial Class Bancos_CatBancos
ObjBancos.Dispose()
- If ViewState("Orden").ToString() <> String.Empty Then
- CargaGrid(ViewState("Orden").ToString())
- Else
- CargaGrid("")
+ If Not TieneError Then
+
+ GvDatos.EditIndex = -1
+ CargaDatos()
+ GlobalDTBancos = Nothing
+ Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+
+ If ViewState("Orden").ToString() <> String.Empty Then
+ CargaGrid(ViewState("Orden").ToString())
+ Else
+ CargaGrid("")
+ End If
+
End If
+
+
+
End Sub
Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
diff --git a/Export/ExpDetalle.aspx b/Export/ExpDetalle.aspx
index fe76aeaae..d2ea20d0f 100644
--- a/Export/ExpDetalle.aspx
+++ b/Export/ExpDetalle.aspx
@@ -1,27 +1,32 @@
<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ExpDetalle.aspx.cs" Inherits="Export_ExpDetalle" %>
-
+
-
+
-
-
+
+ Exportación:
+
-
+
Exportar PDF
-
+
-
+
-
+
|