From 1f73a40972c4cd92c7ebb070b56f6bda452fb45f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 25 Jan 2023 14:57:37 -0700
Subject: [PATCH] global dt generales cat sessiones

---
 Sistemas/CatSesiones.aspx    |  1 +
 Sistemas/CatSesiones.aspx.vb | 14 ++++++++++++++
 Ventas/Clientes.aspx.vb      |  9 ++-------
 3 files changed, 17 insertions(+), 7 deletions(-)

diff --git a/Sistemas/CatSesiones.aspx b/Sistemas/CatSesiones.aspx
index 663e54e63..a311a8d4f 100644
--- a/Sistemas/CatSesiones.aspx
+++ b/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; 
       
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index b75094412..a5cd054d6 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/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
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 759929266..a93c2dc7f 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/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()