global dt generales cat sessiones

Sistemas/CatSesiones.aspx

@@ -60,6 +60,7 @@
         <asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem>
         <asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem> 
         <asp:ListItem Text="GlobalDTTipoTransacciones" Value="GlobalDTTipoTransacciones"></asp:ListItem> 
+        <asp:ListItem Text="GlobalSATGenerales" Value="GlobalSATGenerales"></asp:ListItem> 
 
     </asp:DropDownList>&nbsp;&nbsp; 
       

Sistemas/CatSesiones.aspx.vb

@@ -99,12 +99,26 @@ Partial Class Sistemas_CatSesiones
             CargaDTInvPSSeccionesAlmacen()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then
             CargaGlobalDTTipoTransacciones()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then
+            CargaSATGenerales()
         End If
 
 
 
 
     End Sub
+    Private Sub CargaSATGenerales()
+        Using ObjGrales As New ClsGenerales
+            If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados
+            If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable()
+            If ObjGrales.GetSATIncoterm Then Application("GlobalDTIncoterm") = ObjGrales.DtResultados
+            If ObjGrales.GetSATTipoOperacion Then Application("GlobalDTTipoOperacion") = ObjGrales.DtResultados
+            If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados
+            If ObjGrales.GetSATUnidadesAduana Then Application("GlobalDTUnidadAduana") = ObjGrales.DtResultados
+            If ObjGrales.GetSATClavePedimento Then Application("GlobalDTClavePedimento") = ObjGrales.DtResultados
+        End Using
+    End Sub
+
     Private Sub CargaGlobalDTTipoTransacciones()
         Using ObjBancos As New ClsBancos
             If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing