From 17d2d60205f38a238efea8c7efa0d16586dd1df8 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 29 Apr 2022 13:26:29 -0700
Subject: [PATCH] -- activar TC en conceptos de "aplicaTC"

---
 Contabilidad/RegPrePolizaS.aspx    |  1 +
 Contabilidad/RegPrePolizaS.aspx.vb | 14 +++++++++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index b09cf0b9f..7fca6a232 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -362,6 +362,7 @@
                                                     <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
                                                     <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
                                                     <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList>
+                                                    <asp:Label ID="LblTC" runat="server" Text="TC" Visible="false"></asp:Label><asp:TextBox ID="TxtTCPreP" CssClass="form-control input-sm select2me" runat="server" Width="50px" Visible="false"></asp:TextBox>
 
                                                 </th>
                                                 <th>
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index bbb576de3..edc51400d 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -678,6 +678,17 @@ Partial Class ContabilidadC_RegPrePolizaS
 
     Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged
 
+        Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContables.SelectedValue.ToEntero).FiltroPrimero("")
+
+        If dr IsNot Nothing Then
+            If dr("AplicaTC").ToString = "True" Then
+                TxtTCPreP.Visible = True
+                LblTC.Visible = True
+            Else
+                TxtTCPreP.Visible = False
+                LblTC.Visible = False
+            End If
+        End If
 
         If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
             CargaProveedores()
@@ -694,7 +705,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         Else
             DdlPersonal.Visible = False
         End If
-        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91, 291, 292) Then
             CargaClientes()
             DdlClientes.Visible = True
             DdlVentas.Visible = True
@@ -1509,6 +1520,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
             If AplicaBancos Then
+                CargaModalConceptoTipoTransaccion("Egs")
                 'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
                 DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
                 DvMoldalConceptoSeccion2.Visible = True