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
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