-- option strict on

This commit is contained in:
2023-08-23 00:03:55 -07:00
parent 7ee978059d
commit 3bc4f72658
23 changed files with 212 additions and 257 deletions

View File

@@ -17,7 +17,7 @@ Partial Class Contabilidad_FiltraPolizas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
ViewState("Orden") = ""
TxtFechaI.Text = Now.ToDate
TxtFechaI.Text = Now.ToDate.ToShortDateString
TxtFechaF.Text = Now.ToShortDateString
CargaDatos()
End If
@@ -25,7 +25,7 @@ Partial Class Contabilidad_FiltraPolizas
Public Sub CargaDatos()
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim FechaFin As DateTime = $"{TxtFechaF.Text} 23:59:59"
Dim FechaFin As DateTime = $"{TxtFechaF.Text} 23:59:59".ToDateTime
If ObjConta.GetPolizasXDia(TxtFechaI.Text.ToDate, FechaFin) Then
ViewState("DTPolizas") = ObjConta.DtResultados