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

Se cambiaron parametros de Fecha de Varchar a Date

Browse Source
This commit is contained in:
janeth arvizu
2019-10-03 10:29:17 -07:00
parent 096e679d06
commit 6b90d252a8
8 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/RepRemisionesNC.aspx.vb
View File

@@ -53,7 +53,7 @@ Partial Class RepRemisionesNC
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaI.Text = Now.Day.ToString + "/" + (Now.Month - 6).ToString + "/" + Now.Year.ToString
txtFechaI.Text = Now.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
CargaSucursales()
@@ -68,13 +68,13 @@ Partial Class RepRemisionesNC
Public Sub CargaDatos()
Dim ObjVentas As New ClsVentas
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString)
CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
If ObjVentas.GetRepRemisionesNCSinFacturar(FechaI, FechaF, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
If ObjVentas.GetRepRemisionesNCSinFacturar(FechaI.ToDate, FechaF.ToDate, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
GvDatos.DataSource = ObjVentas.DtResultados
DtVentas = ObjVentas.DtResultados
GvDatos.DataBind()