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

option strict on

Browse Source
This commit is contained in:
rrene
2023-08-24 00:38:39 -07:00
parent 85d1bcd386
commit 4c6f8bbaef
15 changed files with 96 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Inventarios/RepExistenciasCostos.aspx.vb
View File

@@ -33,19 +33,19 @@ Partial Class Inventarios_RepExistenciasCostos
ViewState("TmpPS") = value
End Set
End Property
Public Property FechaFinal As String
Public Property FechaFinal As Date
Get
Return ViewState("FechaFinal").ToString
Return ViewState("FechaFinal").ToString.ToDate
End Get
Set(value As String)
Set(value As Date)
ViewState("FechaFinal") = value
End Set
End Property
Public Property FechaInicial As String
Public Property FechaInicial As Date
Get
Return ViewState("FechaInicial").ToString
Return ViewState("FechaInicial").ToString.ToDate
End Get
Set(value As String)
Set(value As Date)
ViewState("FechaInicial") = value
End Set
End Property
@@ -54,7 +54,7 @@ Partial Class Inventarios_RepExistenciasCostos
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
TxtFechaI.Text = New Date(Now.Year, Now.Month, 1).ToShortDateString
TxtFechaF.Text = Now.LastDayOfMonth
TxtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
If Request("CvePS") IsNot Nothing AndAlso Request("CveProveedor") IsNot Nothing AndAlso
Request("CveMoneda") IsNot Nothing AndAlso Request("CveConcepto") IsNot Nothing AndAlso
@@ -69,9 +69,9 @@ Partial Class Inventarios_RepExistenciasCostos
If(Request("FechaI").ToString.Trim <> "-1", Request("FechaI").ToString.Trim.ToDate, MinFecha),
If(Request("FechaF").ToString.Trim <> "-1", Request("FechaF").ToString.Trim.ToDate, MaxFecha),
CveAlmacen,
IIf(Request("CVECLASIFICACION") Is Nothing, -1, Request("CveClasificacion").ToEntero),
IIf(Request("CvePersonal") Is Nothing, -1, Request("CvePersonal").ToEntero),
IIf(Request("Tipo") Is Nothing, -1, Request("Tipo").ToEntero)
If(Request("CVECLASIFICACION") Is Nothing, -1, Request("CveClasificacion").ToEntero),
If(Request("CvePersonal") Is Nothing, -1, Request("CvePersonal").ToEntero),
If(Request("Tipo") Is Nothing, -1, Request("Tipo").ToEntero)
)
Panel1.Visible = False
Else