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

cambio funcion en tipo de fechas

Browse Source
This commit is contained in:
rrene
2023-10-07 11:50:33 -07:00
parent 2690361d7a
commit be6e9812fa
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsMovimientos.vb
View File

@@ -1481,7 +1481,7 @@ Public Class ClsMovimientos
#End Region #End Region
#Region "Anticipos de Proveedores" #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 Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ProveedorAnticipos") DataAdapter("PA_Comp_ProveedorAnticipos")
@@ -1490,12 +1490,12 @@ Public Class ClsMovimientos
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
.Add("@CveProveedorSucursal", SqlDbType.Int).Value = CveProveedorSucursal .Add("@CveProveedorSucursal", SqlDbType.Int).Value = CveProveedorSucursal
.Add("@SelectTop", SqlDbType.Int).Value = SelectTop .Add("@SelectTop", SqlDbType.Int).Value = SelectTop
.Add("@FechaI", SqlDbType.VarChar).Value = FechaI .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@FechaF", SqlDbType.VarChar).Value = FechaF .Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True