From 67b74818dbcc8b31895136aa3cbf77468b2a2f20 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 29 Nov 2023 10:51:17 -0700
Subject: [PATCH] --

---
 Bancos/Transferencias.aspx    |  2 +-
 Bancos/Transferencias.aspx.vb | 25 +++++++++++++------------
 2 files changed, 14 insertions(+), 13 deletions(-)

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 @@
                              <tr id="TrCuentaDestino" runat="server">
                                 <td>Cuenta Destino:</td>
                                 <td>
-                                    <asp:DropDownList ID="DdlCuentaDestino" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="400px" ValidationGroup="GrpGuardar">
+                                    <asp:DropDownList ID="DdlCuentaDestino" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="400px" ValidationGroup="GrpGuardar" AutoPostBack="true">
                                     </asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVCuentaDestino" runat="server" ControlToValidate="DdlCuentaDestino" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta Destino''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCOCuentaDestino" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDestino" Width="300px"></ajax:ValidatorCalloutExtender>
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