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

cambio a fecha campo fechaaplicación

Browse Source
This commit is contained in:
rrene
2024-04-16 05:30:24 -07:00
parent ba7331a33e
commit 60017d5a7e
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsNominas.vb
View File

@@ -3239,7 +3239,7 @@ Public Class ClsNominas
End Try
Return retorno
End Function
Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As String, estatus As Boolean, CveCuenta As Integer) As Boolean
Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_UpMovtoPermanente", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
@@ -3251,7 +3251,7 @@ Public Class ClsNominas
.Add("@valor", SqlDbType.Float).Value = (valor)
.Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar)
.Add("@montoLimite", SqlDbType.Decimal).Value = (montoLimite)
.Add("@fechaInicioAplicacion", SqlDbType.VarChar).Value = (fechaInicioAplicacion)
.Add("@fechaInicioAplicacion", SqlDbType.Date).Value = (fechaInicioAplicacion)
.Add("@estatus", SqlDbType.Bit).Value = (estatus)
.Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta)
End With

4
RH/Personal.aspx.vb
View File

@@ -7297,7 +7297,7 @@ Partial Class RH_Personal
Dim valor As Double = TxtValor.Text.ToDouble()
Dim vecesAplicar As Integer = TxtVecesAplicar.Text.ToEntero()
Dim montoLimite As Decimal = TxtMontoLimite.Text.ToDecimal()
Dim fechaInicioAplicacion As String = TxtFechaAplicacion.Text.ToDate()
Dim fechaInicioAplicacion As Date = TxtFechaAplicacion.Text.ToDate()
Dim estatus As Boolean = ChkEstatus.Checked
Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1))
Dim Continuar As Boolean
@@ -7323,7 +7323,7 @@ Partial Class RH_Personal
Dim valor As Double = TxtValor.Text.ToDouble()
Dim vecesAplicar As Integer = TxtVecesAplicar.Text.ToEntero()
Dim montoLimite As Decimal = TxtMontoLimite.Text.ToDecimal()
Dim fechaInicioAplicacion As String = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd")
Dim fechaInicioAplicacion As Date = TxtFechaAplicacion.Text.ToDate()
Dim estatus As Boolean = ChkEstatus.Checked
Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1))
Dim Continuar As Boolean