AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

global dt generales cat sessiones

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-01-25 14:57:37 -07:00
parent c2de24b19e
commit 1f73a40972
3 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Sistemas/CatSesiones.aspx
View File

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

14
Sistemas/CatSesiones.aspx.vb
View File

@@ -99,12 +99,26 @@ Partial Class Sistemas_CatSesiones
CargaDTInvPSSeccionesAlmacen() CargaDTInvPSSeccionesAlmacen()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then
CargaGlobalDTTipoTransacciones() CargaGlobalDTTipoTransacciones()
ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then
CargaSATGenerales()
End If End If
End Sub 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() Private Sub CargaGlobalDTTipoTransacciones()
Using ObjBancos As New ClsBancos Using ObjBancos As New ClsBancos
If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing

9
Ventas/Clientes.aspx.vb
View File

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