--Global TipoVenta

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; 

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