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

-- cambio en tipo fecha en addmovtopermanente

Browse Source
This commit is contained in:
rrene
2024-04-15 19:37:42 -07:00
parent 135afdba83
commit c2f2a049b1
4 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsNominas.vb
View File

@@ -3209,7 +3209,7 @@ Public Class ClsNominas
End Try End Try
Return retorno Return retorno
End Function End Function
Public Function AddMovtoPermanente(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, Optional CveIE As Integer = -1) As Integer Public Function AddMovtoPermanente(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, Optional CveIE As Integer = -1) As Integer
Dim retorno As Integer = 0 Dim retorno As Integer = 0
DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure) DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure)
@@ -3221,7 +3221,7 @@ Public Class ClsNominas
.Add("@valor", SqlDbType.Float).Value = (valor) .Add("@valor", SqlDbType.Float).Value = (valor)
.Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar) .Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar)
.Add("@montoLimite", SqlDbType.Decimal).Value = (montoLimite) .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("@estatus", SqlDbType.Bit).Value = (estatus)
.Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta) .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta)
.Add("@CveIE", SqlDbType.Int).Value = (CveIE) .Add("@CveIE", SqlDbType.Int).Value = (CveIE)

2
Bancos/PrestamoPersonal.aspx.cs
View File

@@ -567,7 +567,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
vecesPorAplicar = (1m / porcentaje).ToEntero(); vecesPorAplicar = (1m / porcentaje).ToEntero();
} }
if (ObjNominas.AddMovtoPermanente(DdlConcepto.SelectedValue.ToEntero(), DdlFuncionarioEmpleadoPrestamo.SelectedValue.ToEntero(), TxtObservacionesPrestamo.Text, DdlTipoDescto.SelectedValue.ToEntero(), valor, vecesPorAplicar, montoLimite, TxtFechaPrestamo.Text, true, -1, CveIE: CveIE) <= 0) if (ObjNominas.AddMovtoPermanente(DdlConcepto.SelectedValue.ToEntero(), DdlFuncionarioEmpleadoPrestamo.SelectedValue.ToEntero(), TxtObservacionesPrestamo.Text, DdlTipoDescto.SelectedValue.ToEntero(), valor, vecesPorAplicar, montoLimite, TxtFechaPrestamo.Text.ToDate(), true, -1, CveIE: CveIE) <= 0)
{ {
MsgError = "No se pudo insertar el movimiento permanente"; MsgError = "No se pudo insertar el movimiento permanente";
} }

2
Nomina/Nomina.aspx.cs
View File

@@ -7073,7 +7073,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
double valor = TxtValor.Text.ToDouble(); double valor = TxtValor.Text.ToDouble();
int vecesAplicar = TxtVecesAplicar.Text.ToEntero(); int vecesAplicar = TxtVecesAplicar.Text.ToEntero();
decimal montoLimite = TxtMontoLimite.Text.ToDecimal(); decimal montoLimite = TxtMontoLimite.Text.ToDecimal();
string fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd"); DateTime fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate();
bool estatus = ChkEstatus.Checked; bool estatus = ChkEstatus.Checked;
int CveCuenta = DdlCtaContable.SelectedValue.ToEntero() * (DdlCtaContable.DataValueField == "Id" ? -1 : 1); int CveCuenta = DdlCtaContable.SelectedValue.ToEntero() * (DdlCtaContable.DataValueField == "Id" ? -1 : 1);
bool Continuar; bool Continuar;

2
RH/Personal.aspx.vb
View File

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