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

Ventas/Clientes.aspx.vb

@@ -7074,13 +7074,8 @@ Partial Class Clientes
         DdlIncoterm.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlIncoterm.DataBind()
 
-        DdlClavePedimento.Items.Clear()
-        Using ObjGrales As New ClsGenerales
-            If ObjGrales.GetSATClavePedimento() Then
-                DdlClavePedimento.DataSource = GlobalDTClavePedimento()
-                DdlClavePedimento.DataBind()
-            End If
-        End Using
+        DdlClavePedimento.Items.Clear()
+        DdlClavePedimento.DataSource = GlobalDTClavePedimento()
         DdlClavePedimento.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlMotivoTraslado.Items.Clear()