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

-- agregado de activos fijos

Browse Source
This commit is contained in:
rrene
2023-02-14 14:33:55 -07:00
parent 4e9c7921af
commit a094ea4fb9
2 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Sistemas/CatSesiones.aspx
View File

@@ -61,6 +61,7 @@
<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:ListItem Text="GlobalSATGenerales" Value="GlobalSATGenerales"></asp:ListItem>
<asp:ListItem Text="GlobalDTActivoFijos" Value="GlobalDTActivoFijos"></asp:ListItem>
</asp:DropDownList>&nbsp;&nbsp; </asp:DropDownList>&nbsp;&nbsp;

10
Sistemas/CatSesiones.aspx.vb
View File

@@ -101,12 +101,18 @@ Partial Class Sistemas_CatSesiones
CargaGlobalDTTipoTransacciones() CargaGlobalDTTipoTransacciones()
ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then
CargaSATGenerales() CargaSATGenerales()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTActivoFijos" Then
CargaActivoFijos()
End If End If
End Sub End Sub
Private Sub CargaActivoFijos()
GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing
GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
End Sub
Private Sub CargaSATGenerales() Private Sub CargaSATGenerales()
Using ObjGrales As New ClsGenerales Using ObjGrales As New ClsGenerales
If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados