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

cambio de double a decimal parametro de movimientodetalle

Browse Source
This commit is contained in:
rrene
2023-11-04 09:00:36 -07:00
parent be049a1546
commit 62ee23b298
7 changed files with 48 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
GPS/RepCombustible2.aspx.vb
View File

@@ -5,24 +5,24 @@ Imports Microsoft.Reporting.WebForms
Partial Class GPS_RepCombustible2
Inherits ClsPaginas
ReadOnly Property UsuarioActual() As Usuario
Get
Try
'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario)
UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario)
Catch ex As Exception
UsuarioActual = Nothing
FormsAuthentication.SignOut()
Session("UsuarioSIG") = Nothing
HttpContext.Current.Response.Redirect(String.Format("/LogIn.aspx?ReturnUrl={0}", HttpContext.Current.Request.Url))
End Try
End Get
End Property
Public Sub RegistraScript(Script As String, Optional valuetick As String = "")
Dim Rdm As Random = New Random()
ScriptManager.RegisterStartupScript(Page, Me.GetType(), String.Format("{0}{1}{2}", (NowADS().Ticks + 1), Rdm.Next(), valuetick), String.Format("<script type='text/javascript' language='javascript'>{0}</script>", Script), False)
End Sub
'ReadOnly Property UsuarioActual() As Usuario
' Get
' Try
' 'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario)
' UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario)
' Catch ex As Exception
' UsuarioActual = Nothing
' FormsAuthentication.SignOut()
' Session("UsuarioSIG") = Nothing
' HttpContext.Current.Response.Redirect(String.Format("/LogIn.aspx?ReturnUrl={0}", HttpContext.Current.Request.Url))
' End Try
' End Get
'End Property
'Public Sub RegistraScript(Script As String, Optional valuetick As String = "")
' Dim Rdm As Random = New Random()
' ScriptManager.RegisterStartupScript(Page, Me.GetType(), String.Format("{0}{1}{2}", (NowADS().Ticks + 1), Rdm.Next(), valuetick), String.Format("<script type='text/javascript' language='javascript'>{0}</script>", Script), False)
'End Sub
Property DTCargasDescargas As DataTable
Get
If ViewState("DTCargasDescargas") Is Nothing Then