-
This commit is contained in:
@@ -25,7 +25,7 @@ Partial Class Ventas_RepEntregasEcommerce
|
||||
If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text.Trim.ToDate Else FechaI = MinFecha
|
||||
If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text.Trim.ToDate Else FechaF = MaxFecha
|
||||
Dim Obj As New ClsVentas
|
||||
If Obj.GetEntregasEcommerce(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
|
||||
If Obj.GetEntregasEcommerce(FechaI, FechaF, 1, UsuarioActual.CveEmpresa) Then
|
||||
GvD.DataSource = Obj.DtResultados
|
||||
End If
|
||||
Obj.Dispose()
|
||||
|
||||
Reference in New Issue
Block a user