diff --git a/Sistemas/CatSesiones.aspx b/Sistemas/CatSesiones.aspx
index 1bb7ae18c..fd8d3d54d 100644
--- a/Sistemas/CatSesiones.aspx
+++ b/Sistemas/CatSesiones.aspx
@@ -67,6 +67,7 @@
         <asp:ListItem Text="GlobalDTAC" Value="GlobalDTAC"></asp:ListItem> 
         <asp:ListItem Text="GlobalDTSATUsosCFDI" Value="GlobalDTSATUsosCFDI"></asp:ListItem> 
         <asp:ListItem Text="GlobalDTVtaCondicionesEntrega" Value="GlobalDTVtaCondicionesEntrega"></asp:ListItem> 
+          <asp:ListItem Text="GlobalDTTipoVenta" Value="GlobalDTTipoVenta"></asp:ListItem> 
        
 
     </asp:DropDownList>&nbsp;&nbsp; 
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index 29c1f6564..016a2d44f 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -111,6 +111,8 @@ Partial Class Sistemas_CatSesiones
             CargaUsosCFDI()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVtaCondicionesEntrega" Then
             CargaCondicionesEntrega()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoVenta" Then
+            CargaTipoVenta()
         End If
 
 
@@ -699,6 +701,10 @@ Partial Class Sistemas_CatSesiones
     Private Sub CargaDTInvPSSeccionesAlmacen()
         GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
         GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = Nothing
+    End Sub
+
+    Private Sub CargaTipoVenta()
+        GlobalDTTipoVenta(UsuarioActual.CveEmpresa) = Nothing
     End Sub
 
 End Class