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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-09-08 05:58:29 -07:00
parent 35b1982454 f80f9dd7ae
commit 5cc6607b79
352 changed files with 40864 additions and 22950 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Nomina/CatConceptos.aspx.vb
View File

@@ -273,7 +273,6 @@ Partial Class Nomina_CatConceptos
Dim CveConceptoContable As Integer = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("DdlConceptoContable"), DropDownList).SelectedValue
Dim EsRetencion As Boolean = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("ChkRetencion"), CheckBox).Checked
Dim CveClasificacion As Integer = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("DdlClasificacion"), DropDownList).SelectedValue
Dim IdCtaContable As Integer = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("DdlCtaContable"), DropDownList).SelectedValue
If ObjNomina.UpdateConcepto(Codigo, Concepto, Tipo, Formula, Sistema, TipoCalculo, Estado, CveConceptoPadre, CveConcepto, UsuarioActual.CveEmpresa, CveConceptoContable, EsRetencion, CveClasificacion, IdCtaContable) Then
GvDatos.EditIndex = -1

8
Nomina/ConceptoNomina.aspx.cs
View File

@@ -371,8 +371,8 @@ public partial class Nomina_CatConcepto : ClsPaginas
if (EsEditar)
{
TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion,
IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto,
UsuarioActual.CveEmpresa, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB , IdCtaContableB , CveCuentaB, CveConceptoContablePasivo);
CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto,
UsuarioActual.CveEmpresa, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB , CveCuentaB, CveConceptoContablePasivo);
if (!TieneError)
{
@@ -403,8 +403,8 @@ public partial class Nomina_CatConcepto : ClsPaginas
else
{
CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir,
CveSATConcepto, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, IdCtaContableB, CveCuentaB, CveConceptoContablePasivo);
retencion, CveClasificacion, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir,
CveSATConcepto, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, CveCuentaB, CveConceptoContablePasivo);

2
Nomina/Nomina.aspx
View File

@@ -1369,7 +1369,7 @@
<asp:GridView ID="GVMovtoPermanente" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall " AutoGenerateColumns="False"
ShowHeader="true" EmptyDataText="No se encontraron Movimientos"
DataKeyNames="CveMovtoPermanente,CveConcepto,CveCuenta,IdCtaContable,CvePersonal,Descripcion,TipoDescuento,Valor,VecesAplicar,MontoLimite,FechaInicioAplicacion,Estatus,FechaRegistro">
DataKeyNames="CveMovtoPermanente,CveConcepto,CveCuenta,CvePersonal,Descripcion,TipoDescuento,Valor,VecesAplicar,MontoLimite,FechaInicioAplicacion,Estatus,FechaRegistro">
<Columns>
<asp:TemplateField HeaderText="Descripción">
<ItemTemplate>

13
Nomina/Nomina.aspx.cs
View File

@@ -7114,8 +7114,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
CcveMovtoPermanente = gvRow.DataKey("CveMovtoPermanente").ToEntero();
int cveConcepto = gvRow.DataKey("CveConcepto").ToEntero();
int cvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
int CveCuenta = gvRow.DataKey("CveCuenta").ToEntero();
int IdCtaContable = gvRow.DataKey("IdCtaContable").ToEntero();
int CveCuenta = gvRow.DataKey("CveCuenta").ToEntero();
string descripcion = gvRow.DataKey("Descripcion");
int tipoDescuento = gvRow.DataKey("TipoDescuento").ToEntero();
double valor = gvRow.DataKey("Valor").ToDouble();
@@ -7142,15 +7141,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
TxtVecesAplicar.Text = vecesAplicar.ToString();
TxtMontoLimite.Text = montoLimite.ToString();
TxtFechaAplicacion.Text = $"{fechaInicioAplicacion:dd/MM/yyyy}";
DdlCtaContable.SelectedValueExist("-1");
if (DdlCtaContable.DataValueField == "Id")
{
DdlCtaContable.SelectedValueExist(IdCtaContable);
}
else
{
DdlCtaContable.SelectedValueExist(CveCuenta);
}
DdlCtaContable.SelectedValueExist("-1");
ChkEstatus.Checked = estatus;
RegistraScript("$('#ModalMovtoPermanente').modal()");

6
Nomina/ReportePTU.aspx.vb
View File

@@ -157,7 +157,7 @@ Partial Class Nomina_ReportePTU
If Not IsNothing(rowc) Then
CveConcepto = rowc("CveConcepto").ToString().ToEntero()
Else
CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1, -1)
CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, False, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1)
End If
If CveConcepto < 1 Then
continuar = False
@@ -171,7 +171,7 @@ Partial Class Nomina_ReportePTU
CvePeriodo = CvePeriodoSeleccionado
If continuar Then
continuar = objNomina.AddUtilidad(CvePersonal, Importe, CvePeriodo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ejercicio, DiasLaborados, SueldoTotal)
continuar = objNomina.AddUtilidad(CvePersonal, Importe, CvePeriodo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ejercicio, DiasLaborados, SueldoTotal.ToDecimal)
End If
If Not continuar Then
Exit For
@@ -233,7 +233,7 @@ Partial Class Nomina_ReportePTU
End Sub
Protected Sub GVTipoPeriodo_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If (Not IsNothing(dtPeriodos) AndAlso dtPeriodos.Rows.Count()) Then
If (Not IsNothing(dtPeriodos) AndAlso dtPeriodos.Rows.Count > 0) Then
Dim dddlperiodo As DropDownList = e.Row.FCDropDownList("ddlPeriodo")
dddlperiodo.DataSource = dtPeriodos.FiltraParametros(String.Format("CveTipoPeriodo={0}", e.Row.DataKey("CveTipoPeriodo")))
dddlperiodo.DataBind()

4
Nomina/SobreRecibo.aspx.vb
View File

@@ -36,7 +36,7 @@ Partial Class Nominas_SobreRecibo
If CvePersonal > 0 AndAlso CvePeriodo > 0 Then
CargaDatos()
CargaPersonal()
DdlPersonal.SelectedValue = CvePersonal
DdlPersonal.SelectedValueExist(CvePersonal)
LtNombrePersonal.Text = DdlPersonal.SelectedItem.Text
UPFiltros.Visible = False
End If
@@ -134,7 +134,7 @@ Partial Class Nominas_SobreRecibo
e.Row.Cells(0).Style.Add("padding-left", "16px")
End If
e.Row.FCLabel("LtlImporte").Text = e.Row.FCLabel("LtlImporte").Text.ToDecimal
e.Row.FCLabel("LtlImporte").Text = e.Row.FCLabel("LtlImporte").Text
End If
End Sub