From 58a75bde5bc5d63f2d8be7b297b988fb9bd02d66 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 19 Oct 2022 15:45:05 -0700
Subject: [PATCH] -- dato de folio temporal

---
 Bancos/DepositosCaja.aspx    |  8 ++++++--
 Bancos/DepositosCaja.aspx.vb | 17 +++++++++++++----
 2 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index d2a7a3d27..1969d5f53 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -171,10 +171,14 @@
                         <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
                         <asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
                         <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
-                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
-                    
+                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>                    
                     </div> 
                 </div>
+                 <div class="col-md-1" runat="server" id="divFolio" visible="false" >
+                     <div class="row">
+                          <label  style="width:70px;">Folio:</label><asp:TextBox ID="TxtFolio" Width="60px" runat="server"></asp:TextBox>
+                     </div>                       
+                 </div>
                <div class="col-md-1" >
                     <label  style="width:70px;">Observaciones:</label>
                </div>
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index ca76c20ae..57848c6e1 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -46,6 +46,7 @@ Partial Class Bancos_DepositosCaja
         'código temporal, para claudia y toñita, monge, anadelia, alba
         If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
             DdlCajaChica.Items.Add(New ListItem("Todas", "-1"))
+            divFolio.Visible = True
         End If
 
         DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
@@ -187,7 +188,7 @@ Partial Class Bancos_DepositosCaja
         Dim FolioIE As Long = -1
         Dim CveMoneda As Integer = 1
         Dim TipoCambio As Decimal = 1
-        Dim Fecha As Date = TxtFecha.Text.ToDate
+        Dim Fecha As Date = TxtFecha.Text.ToDate
         Dim IdCuentaBancariaOrigen As Integer = 0
         Dim IdCuentaBancariaDestino As Integer = 0
         Dim CveCuentaBancariaOrigen As Integer = 0
@@ -252,11 +253,19 @@ Partial Class Bancos_DepositosCaja
 
         If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger
             CveTransaccionBanco = 6
+        End If
+
+        'código temporal, para claudia y toñita, monge, anadelia, alba
+        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
+            FolioIE = TxtFolio.Text.ToEntero
         End If
 
-        'Entrada a bancos
-        FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
-        If Not FolioIE > 0 Then
+        If FolioIE <= 0 Then
+            'Entrada a bancos
+            FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
+        End If
+
+        If FolioIE <= 0 Then
             OcurrioError = True
         End If
         CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)