diff --git a/Bancos/Transferencias.aspx b/Bancos/Transferencias.aspx
index 02e1234d8..2ea396687 100644
--- a/Bancos/Transferencias.aspx
+++ b/Bancos/Transferencias.aspx
@@ -56,7 +56,7 @@
| Cuenta Destino: |
-
+
diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb
index bcfdd3191..def7ef6e3 100644
--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -56,6 +56,7 @@ Partial Class Bancos_Transferencias
End If
DtCuentas = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
+ TxtFechaDocumento.Text = NowADS().ToShortDateString
If Opcion = 1 Then
LtlTitulo.Text = "Domicialización de tarjeta"
@@ -73,7 +74,7 @@ Partial Class Bancos_Transferencias
CargaFolio(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
End If
- TxtFechaDocumento.Text = NowADS().ToShortDateString
+
DdlTipoMovto_SelectedIndexChanged(Nothing, Nothing)
@@ -156,22 +157,22 @@ Partial Class Bancos_Transferencias
End Sub
- 'Protected Sub DdlCuentaDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaDestino.SelectedIndexChanged
+ Protected Sub DdlCuentaDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaDestino.SelectedIndexChanged
- ' VerificaMonedas()
+ VerificaMonedas()
- ' If Opcion = 1 Then
- ' CargaFolio(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
- ' End If
+ 'If Opcion = 1 Then
+ ' CargaFolio(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
+ 'End If
- ' If chkMovimientoTarjeta.Checked AndAlso GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then
- ' CargaGridTarjetas()
- ' Else
- ' GvTC.Visible = False
- ' End If
+ 'If chkMovimientoTarjeta.Checked AndAlso GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then
+ ' CargaGridTarjetas()
+ 'Else
+ ' GvTC.Visible = False
+ 'End If
- 'End Sub
+ End Sub
Private Sub CargaGridTarjetas()
Dim ObjCreditos As New ClsBancos
|