From be6e9812fae3b6e9d3935c2bb814b0518ef7b1b0 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 7 Oct 2023 11:50:33 -0700 Subject: [PATCH] cambio funcion en tipo de fechas --- App_Code/ClsMovimientos.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index a63389698..bbe8139c8 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -1481,7 +1481,7 @@ Public Class ClsMovimientos #End Region #Region "Anticipos de Proveedores" - Public Function GetAnticiposProveedor(CveProveedor As Integer, CveProveedorSucursal As Integer, Optional CveMoneda As Integer = -1, Optional SelectTop As Integer = -1, Optional FechaI As String = "-1", Optional FechaF As String = "-1", Optional TipoDocto As String = "-1") As Boolean + Public Function GetAnticiposProveedor(CveProveedor As Integer, CveEmpresa As Integer, Optional CveMoneda As Integer = -1, Optional CveProveedorSucursal As Integer = -1, Optional SelectTop As Integer = -1, Optional FechaI As Date = MinFecha, Optional FechaF As Date = MaxFecha, Optional TipoDocto As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_ProveedorAnticipos") @@ -1489,13 +1489,13 @@ Public Class ClsMovimientos .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CveProveedorSucursal", SqlDbType.Int).Value = CveProveedorSucursal - .Add("@SelectTop", SqlDbType.Int).Value = SelectTop - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@SelectTop", SqlDbType.Int).Value = SelectTop + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto End With - Try SqlAdapter.Fill(Data) Retorno = True