diff --git a/Sistemas/CatSesiones.aspx b/Sistemas/CatSesiones.aspx
index 0f9885da8..7b5ce4727 100644
--- a/Sistemas/CatSesiones.aspx
+++ b/Sistemas/CatSesiones.aspx
@@ -56,7 +56,8 @@
         <asp:ListItem Text="GlobalDTSATMotivoTraslado" Value="GlobalDTSATMotivoTraslado"></asp:ListItem>
         <asp:ListItem Text="GlobalDTConceptosContables" Value="GlobalDTConceptosContables"></asp:ListItem>
         <asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem>
-        <asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem> 
+        <asp:ListItem Text="GlobalDTTipoTransacciones" Value="GlobalDTTipoTransacciones"></asp:ListItem> 
 
     </asp:DropDownList>&nbsp;&nbsp; 
       
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index d37d08cc2..0d7a489d3 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -92,13 +92,25 @@ Partial Class Sistemas_CatSesiones
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then
             CargaDTClasificacionPorcentaje()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTInvPSSeccionesAlmacen" Then
-            CargaDTInvPSSeccionesAlmacen()
+            CargaDTInvPSSeccionesAlmacen()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then
+            CargaGlobalDTTipoTransacciones()
         End If
 
 
 
 
-    End Sub
+    End Sub
+    Private Sub CargaGlobalDTTipoTransacciones()
+        Using ObjBancos As New ClsBancos
+            If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
+            If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
+            If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
+            If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
+        End Using
+    End Sub
+
+
     Private Sub CargaConceptosContables()
         Dim ObjContabilidad As New ClsContabilidad
         If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing