-- activar TC en conceptos de "aplicaTC"

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