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

- opcion saldo

Browse Source
This commit is contained in:
rrene
2022-06-18 07:36:10 -07:00
parent d7c340902c
commit 89538109c1
1 changed files with 60 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsMovimientos.vb
View File

@@ -1375,7 +1375,7 @@ Public Class ClsMovimientos
Return Retorno Return Retorno
End Function End Function
Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha, Optional OpcionSaldo As Integer = 1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CxPPersonalCajaChica") DataAdapter("PA_CxPPersonalCajaChica")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1385,7 +1385,7 @@ Public Class ClsMovimientos
.Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
.Add("@OpcionSaldo", SqlDbType.Int).Value = OpcionSaldo ' 1. solo con saldo, -1. todos
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)