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:
rrene
2021-08-05 08:07:12 -07:00
parent d90b787d9a 086026d9ca
commit 115b48e5af
9 changed files with 2083 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
App_Code/ClsNominas.vb
View File

@@ -621,10 +621,14 @@ Public Class ClsNominas
Return Retorno Return Retorno
End Function End Function
Public Function AddNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal) As Boolean Public Function AddUPNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer,
Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal, ImporteValor As Decimal,
CveUsuario As Integer, IsEdited As Boolean,
chkImporte As Integer, chkImporteGravado As Integer, chkImporteValor As Integer
) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Nom_NominasDetallesAdd") DataAdapter("PA_Nom_NominasDetallesAddUP")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("CveNomina", SqlDbType.Int).Value = CveNomina .Add("CveNomina", SqlDbType.Int).Value = CveNomina
@@ -634,6 +638,12 @@ Public Class ClsNominas
.Add("Importe", SqlDbType.Float).Value = Importe .Add("Importe", SqlDbType.Float).Value = Importe
.Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
.Add("ImporteExento", SqlDbType.Float).Value = ImporteExento .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
.Add("ImporteValor", SqlDbType.Float).Value = ImporteValor
.Add("CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("IsEdited", SqlDbType.Bit).Value = IsEdited
.Add("chkImporteValor", SqlDbType.Int).Value = chkImporteValor
.Add("chkImporte", SqlDbType.Int).Value = chkImporte
.Add("chkImporteGravado", SqlDbType.Int).Value = chkImporteGravado
End With End With
Try Try
@@ -646,31 +656,56 @@ Public Class ClsNominas
Return Retorno Return Retorno
End Function End Function
Public Function UpdateNom_NominasDetalles(CveNominaDetalle As Integer, Importe As Decimal, ImporteExento As Decimal, ImporteGravado As Decimal) As Boolean 'Public Function AddNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal) As Boolean
Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False
DataAdapter("PA_Nom_NominasDetallesUpdate")
With SqlAdapter.SelectCommand.Parameters ' DataAdapter("PA_Nom_NominasDetallesAdd")
.Add("CveNominaDetalle", SqlDbType.Int).Value = CveNominaDetalle
.Add("Importe", SqlDbType.Float).Value = Importe
.Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
.Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
End With
Try ' With SqlAdapter.SelectCommand.Parameters
SqlAdapter.Fill(Data) ' .Add("CveNomina", SqlDbType.Int).Value = CveNomina
Retorno = True ' .Add("CvePeriodo", SqlDbType.Int).Value = CvePeriodo
' ' .Add("CvePersonal", SqlDbType.Int).Value = CvePersonal
Catch sqlex As SqlException ' .Add("CveConcepto", SqlDbType.Int).Value = CveConcepto
If sqlex.Message.Contains("x5010") Then ' .Add("Importe", SqlDbType.Float).Value = Importe
Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina(Timbrada).", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
Else ' .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina.", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' End With
End If
End Try
Return Retorno ' Try
End Function ' SqlAdapter.Fill(Data)
' Retorno = True
' Catch Ex1 As SqlException
' Me.OnError("Ocurrió un error al Guardar el Movimiento de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
'End Function
'Public Function UpdateNom_NominasDetalles(CveNominaDetalle As Integer, Importe As Decimal, ImporteExento As Decimal, ImporteGravado As Decimal) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Nom_NominasDetallesUpdate")
' With SqlAdapter.SelectCommand.Parameters
' .Add("CveNominaDetalle", SqlDbType.Int).Value = CveNominaDetalle
' .Add("Importe", SqlDbType.Float).Value = Importe
' .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
' .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' '
' Catch sqlex As SqlException
' If sqlex.Message.Contains("x5010") Then
' Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina(Timbrada).", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' Else
' Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina.", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End If
' End Try
' Return Retorno
'End Function
Public Function DeleteNom_NominasDetalles(CveConcepto As Integer, CvePersonal As Integer, CvePeriodo As Integer) As Boolean Public Function DeleteNom_NominasDetalles(CveConcepto As Integer, CvePersonal As Integer, CvePeriodo As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -1770,7 +1805,7 @@ Public Class ClsNominas
End Function End Function
#End Region #End Region
#Region "" #Region "Periodos"
Public Function GetPeriodos(CveTipoPeriodo As Integer, CveEmpresa As Integer, Ejercicio As Integer, Mes As Integer, CvePeriodo As Integer, Optional CveEstatus As Integer = -1) As Boolean Public Function GetPeriodos(CveTipoPeriodo As Integer, CveEmpresa As Integer, Ejercicio As Integer, Mes As Integer, CvePeriodo As Integer, Optional CveEstatus As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2172,34 +2207,6 @@ Public Class ClsNominas
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function AddUPNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal, ImporteValor As Decimal, CveUsuario As Integer, Optional IsEdited As Boolean = False) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_NominasDetallesAddUP")
With SqlAdapter.SelectCommand.Parameters
.Add("CveNomina", SqlDbType.Int).Value = CveNomina
.Add("CvePeriodo", SqlDbType.Int).Value = CvePeriodo
.Add("CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("CveConcepto", SqlDbType.Int).Value = CveConcepto
.Add("Importe", SqlDbType.Float).Value = Importe
.Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
.Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
.Add("ImporteValor", SqlDbType.Float).Value = ImporteValor
.Add("CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("IsEdited", SqlDbType.Bit).Value = IsEdited
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
Me.OnError("Ocurrió un error al Guardar el Movimiento de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function ProcesarSUA(txtSUA As String, cveEmpresa As Int32) As Boolean Public Function ProcesarSUA(txtSUA As String, cveEmpresa As Int32) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DTSet = New DataSet() DTSet = New DataSet()
@@ -2298,7 +2305,7 @@ Public Class ClsNominas
Dim retorno As Boolean = False Dim retorno As Boolean = False
Try Try
DTSet = New DataSet() DTSet = New DataSet()
DataAdapter("PA_Nom_NominaEmpleado", CommandType.StoredProcedure) DataAdapter("PA_Nom_NominaEmpleadoV2", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto

2
Nomina/Aguinaldo.aspx.cs
View File

@@ -217,7 +217,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
if (CveNomina > 0) if (CveNomina > 0)
{ {
if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario)) if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, false, 1, 1, 1))
{ {
continuar = false; continuar = false;
} }

8
Nomina/Finiquito.aspx.cs
View File

@@ -1232,7 +1232,7 @@ public partial class Nomina_Finiquito : ClsPaginas
if (continuar) if (continuar)
{ {
if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario)) if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, false, 1, 1, 1))
{ {
continuar = false; continuar = false;
} }
@@ -1345,6 +1345,10 @@ public partial class Nomina_Finiquito : ClsPaginas
protected void BtnAceptarMC_Click(object sender, EventArgs e) protected void BtnAceptarMC_Click(object sender, EventArgs e)
{ {
int chkImporte = 1;
int chkImporteGravado = 1;
int chkImporteValor = 1;
bool continuar = true; bool continuar = true;
int CveNomina = 0; int CveNomina = 0;
double Total = 0; double Total = 0;
@@ -1395,7 +1399,7 @@ public partial class Nomina_Finiquito : ClsPaginas
if (continuar) if (continuar)
{ {
if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoFiniquito, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true)) if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoFiniquito, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true, chkImporte, chkImporteGravado, chkImporteValor))
{ {
continuar = false; continuar = false;
} }

70
Nomina/NomTimbrados.aspx.cs
View File

@@ -130,8 +130,8 @@ public partial class Nomina_NomTimbrados : ClsPaginas
case "DESCUENTO": drow["DESCUENTO"] = xtr.Value; break; case "DESCUENTO": drow["DESCUENTO"] = xtr.Value; break;
case "TIPODECOMPROBANTE": drow["TIPODECOMPROBANTE"] = xtr.Value; break; case "TIPODECOMPROBANTE": drow["TIPODECOMPROBANTE"] = xtr.Value; break;
} }
switch (xtr.Name.ToUpper()) //switch (xtr.Name.ToUpper())
{ //{
//case "XMLNS:CFDI": xmlCFDI.comprobante.xmlns_cfdi = xtr.Value; break; //case "XMLNS:CFDI": xmlCFDI.comprobante.xmlns_cfdi = xtr.Value; break;
//case "XMLNS:XSI": xmlCFDI.comprobante.xmlns_xsi = xtr.Value; break; //case "XMLNS:XSI": xmlCFDI.comprobante.xmlns_xsi = xtr.Value; break;
//case "XSI:SCHEMALOCATION": xmlCFDI.comprobante.xsi_schemaLocation = xtr.Value; break; //case "XSI:SCHEMALOCATION": xmlCFDI.comprobante.xsi_schemaLocation = xtr.Value; break;
@@ -155,7 +155,7 @@ public partial class Nomina_NomTimbrados : ClsPaginas
//case "NOCERTIFICADO": xmlCFDI.comprobante.NoCertificado = xtr.Value; break; //case "NOCERTIFICADO": xmlCFDI.comprobante.NoCertificado = xtr.Value; break;
//case "SELLO": xmlCFDI.comprobante.Sello = xtr.Value; break; //case "SELLO": xmlCFDI.comprobante.Sello = xtr.Value; break;
//case "CERTIFICADO": xmlCFDI.comprobante.Certificado = xtr.Value; break; //case "CERTIFICADO": xmlCFDI.comprobante.Certificado = xtr.Value; break;
} //}
cont = xtr.MoveToNextAttribute(); cont = xtr.MoveToNextAttribute();
} }
cont = xtr.MoveToFirstAttribute(); cont = xtr.MoveToFirstAttribute();
@@ -244,8 +244,8 @@ public partial class Nomina_NomTimbrados : ClsPaginas
cont = xtr.MoveToFirstAttribute(); cont = xtr.MoveToFirstAttribute();
while (cont) while (cont)
{ {
switch (xtr.Name.ToUpper()) //switch (xtr.Name.ToUpper())
{ //{
//case "CLAVEPRODSERV": concepto.ClaveProdServ = xtr.Value; break; //case "CLAVEPRODSERV": concepto.ClaveProdServ = xtr.Value; break;
//case "NOIDENTIFICACION": concepto.NoIdentificacion = xtr.Value; break; //case "NOIDENTIFICACION": concepto.NoIdentificacion = xtr.Value; break;
//case "CANTIDAD": concepto.Cantidad = xtr.Value; break; //case "CANTIDAD": concepto.Cantidad = xtr.Value; break;
@@ -255,7 +255,7 @@ public partial class Nomina_NomTimbrados : ClsPaginas
//case "IMPORTE": decimal Importe = 0; decimal.TryParse(xtr.Value, out Importe); concepto.Importe = Importe; ; break; //case "IMPORTE": decimal Importe = 0; decimal.TryParse(xtr.Value, out Importe); concepto.Importe = Importe; ; break;
//case "DESCUENTO": decimal DDescuento = 0; decimal.TryParse(xtr.Value, out DDescuento); concepto.Descuento = DDescuento; ; break; //case "DESCUENTO": decimal DDescuento = 0; decimal.TryParse(xtr.Value, out DDescuento); concepto.Descuento = DDescuento; ; break;
//case "DESCRIPCION": concepto.Descripcion = xtr.Value; break; //case "DESCRIPCION": concepto.Descripcion = xtr.Value; break;
} //}
cont = xtr.MoveToNextAttribute(); cont = xtr.MoveToNextAttribute();
} }
xtr.MoveToFirstAttribute(); xtr.MoveToFirstAttribute();
@@ -377,22 +377,22 @@ public partial class Nomina_NomTimbrados : ClsPaginas
while (conts) while (conts)
{ {
decimal Base = 0; //decimal Base = 0;
switch (xtr.Name.ToUpper()) //switch (xtr.Name.ToUpper())
{ //{
//case "FECHAPAGO": xmlCFDI.complemento.Pagos.FechaPago = xtr.Value; break; // case "FECHAPAGO": xmlCFDI.complemento.Pagos.FechaPago = xtr.Value; break;
//case "FORMADEPAGOP": xmlCFDI.complemento.Pagos.FormaDePagoP = xtr.Value; break; // case "FORMADEPAGOP": xmlCFDI.complemento.Pagos.FormaDePagoP = xtr.Value; break;
//case "FORMADEPAGOPTEXT": xmlCFDI.complemento.Pagos.FormaDePagoPText = xtr.Value; break; // case "FORMADEPAGOPTEXT": xmlCFDI.complemento.Pagos.FormaDePagoPText = xtr.Value; break;
//case "MONEDAP": xmlCFDI.complemento.Pagos.MonedaP = xtr.Value; break; // case "MONEDAP": xmlCFDI.complemento.Pagos.MonedaP = xtr.Value; break;
//case "MONTO": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.Monto = Base; break; // case "MONTO": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.Monto = Base; break;
//case "TIPOCAMBIOP": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.TipoCambioP = Base; break; // case "TIPOCAMBIOP": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.TipoCambioP = Base; break;
//case "NUMOPERACION": xmlCFDI.complemento.Pagos.NumOperacion = xtr.Value; break; // case "NUMOPERACION": xmlCFDI.complemento.Pagos.NumOperacion = xtr.Value; break;
//case "NOMBANCOORDEXT": xmlCFDI.complemento.Pagos.NomBancoOrdExt = xtr.Value; break; // case "NOMBANCOORDEXT": xmlCFDI.complemento.Pagos.NomBancoOrdExt = xtr.Value; break;
//case "RFCEMISORCTAORD": xmlCFDI.complemento.Pagos.RfcEmisorCtaOrd = xtr.Value; break; // case "RFCEMISORCTAORD": xmlCFDI.complemento.Pagos.RfcEmisorCtaOrd = xtr.Value; break;
//case "CTAORDENANTE": xmlCFDI.complemento.Pagos.CtaOrdenante = xtr.Value; break; // case "CTAORDENANTE": xmlCFDI.complemento.Pagos.CtaOrdenante = xtr.Value; break;
//case "RFCEMISORCTABEN": xmlCFDI.complemento.Pagos.RfcEmisorCtaBen = xtr.Value; break; // case "RFCEMISORCTABEN": xmlCFDI.complemento.Pagos.RfcEmisorCtaBen = xtr.Value; break;
//case "CTABENEFICIARIO": xmlCFDI.complemento.Pagos.CtaBeneficiario = xtr.Value; break; // case "CTABENEFICIARIO": xmlCFDI.complemento.Pagos.CtaBeneficiario = xtr.Value; break;
} //}
conts = xtr.MoveToNextAttribute(); conts = xtr.MoveToNextAttribute();
} }
conts = xtr.MoveToFirstAttribute(); conts = xtr.MoveToFirstAttribute();
@@ -404,20 +404,20 @@ public partial class Nomina_NomTimbrados : ClsPaginas
while (conts) while (conts)
{ {
decimal Basep = 0; //decimal Basep = 0;
switch (xtr.Name.ToUpper()) //switch (xtr.Name.ToUpper())
{ //{
//case "IDDOCUMENTO": objpago.IdDocumento = xtr.Value; break; // case "IDDOCUMENTO": objpago.IdDocumento = xtr.Value; break;
//case "SERIE": objpago.Serie = xtr.Value; break; // case "SERIE": objpago.Serie = xtr.Value; break;
//case "FOLIO": objpago.Folio = xtr.Value; break; // case "FOLIO": objpago.Folio = xtr.Value; break;
//case "MONEDADR": objpago.MonedaDR = xtr.Value; break; // case "MONEDADR": objpago.MonedaDR = xtr.Value; break;
//case "METODODEPAGODR": objpago.MetodoDePagoDR = xtr.Value; break; // case "METODODEPAGODR": objpago.MetodoDePagoDR = xtr.Value; break;
//case "NUMPARCIALIDAD": objpago.NumParcialidad = xtr.Value; break; // case "NUMPARCIALIDAD": objpago.NumParcialidad = xtr.Value; break;
//case "IMPSALDOANT": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoAnt = Basep; break; // case "IMPSALDOANT": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoAnt = Basep; break;
//case "IMPPAGADO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpPagado = Basep; break; // case "IMPPAGADO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpPagado = Basep; break;
//case "IMPSALDOINSOLUTO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoInsoluto = Basep; break; // case "IMPSALDOINSOLUTO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoInsoluto = Basep; break;
} //}
conts = xtr.MoveToNextAttribute(); conts = xtr.MoveToNextAttribute();
} }
conts = xtr.MoveToFirstAttribute(); conts = xtr.MoveToFirstAttribute();

19
Nomina/Nomina.aspx.cs
View File

@@ -1389,6 +1389,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
protected void LnkCargarNomina_Click(object sender, EventArgs e) protected void LnkCargarNomina_Click(object sender, EventArgs e)
{ {
int chkImporteValor = 1;
int chkImporte = 1;
int chkImporteGravado = 0;
List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos; List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos;
bool continuar = Filesgral.Count > 0; bool continuar = Filesgral.Count > 0;
string stringError = ""; string stringError = "";
@@ -1512,7 +1515,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{ {
if (!dontsaveconcepto)//el usuario definira si desea actualizar o no el concepto en el periodo if (!dontsaveconcepto)//el usuario definira si desea actualizar o no el concepto en el periodo
{ {
if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, true)) if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, true, chkImporte, chkImporteGravado, chkImporteValor))
{ {
rollback = true; rollback = true;
} }
@@ -1841,6 +1844,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
} }
protected void BtnAceptarMC_Click(object sender, EventArgs e) protected void BtnAceptarMC_Click(object sender, EventArgs e)
{ {
int chkImporte = 1;
int chkImporteGravado = 1;
int chkImporteValor = 1;
bool continuar = true; bool continuar = true;
int CveNomina = 0; int CveNomina = 0;
double Total = 0; double Total = 0;
@@ -1896,7 +1902,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (continuar) if (continuar)
{ {
if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true)) if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true, chkImporte, chkImporteGravado, chkImporteValor))
{ {
continuar = false; continuar = false;
} }
@@ -4737,8 +4743,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
private bool autorizarNomina(int FiltroCvePersonal) private bool autorizarNomina(int FiltroCvePersonal)
{ {
bool continuar = true; bool continuar = true;
int chkImporte = 1;
int chkImporteGravado = 1;
int chkImporteValor = 1;
string[] getcolumnas = new string[] { "CvePersonal", "CveMetodoPago", "SumaPercepciones", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" }; string[] getcolumnas = new string[] { "CvePersonal", "CveMetodoPago", "SumaPercepciones", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" };
DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", FiltroCvePersonal), "", getcolumnas); DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", FiltroCvePersonal), "", getcolumnas);
@@ -4814,7 +4823,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (continuar) if (continuar)
{ {
if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario)) if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario,false, chkImporte, chkImporteGravado, chkImporteValor))
{ {
continuar = false; continuar = false;
} }
@@ -5846,7 +5855,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
} }
catch (Exception ex) catch (Exception ex)
{ {
// OnError("Error al cargar Formato vacaciones", ex); this.OnError("Error al cargar Formato vacaciones", ex);
} }
} }
if (Documento.Length > 0) if (Documento.Length > 0)

1839
RH/CatPersonal.aspx
View File

File diff suppressed because it is too large Load Diff

143
RH/CatPersonal.aspx.vb
View File

@@ -9,6 +9,19 @@ Imports Microsoft.Reporting.WebForms
Partial Class RH_CatPersonal Partial Class RH_CatPersonal
Inherits ClsPaginas Inherits ClsPaginas
Private Property ISChange As Boolean
Get
If ViewState("ISChange") Is Nothing Then
Return False
Else
Return DirectCast(ViewState("ISChange"), Boolean)
End If
End Get
Set(value As Boolean)
ViewState("ISChange") = value
End Set
End Property
Private Property DTDatos As DataTable Private Property DTDatos As DataTable
Get Get
@@ -24,8 +37,12 @@ Partial Class RH_CatPersonal
End Property End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
If UsuarioActual.CveEmpresa.Contiene(1, 119, 158) Then
HplAddVenta.Visible = False
End If
LnkAddPersonalSimplificado.Visible = Not HplAddVenta.Visible
TxtFechaIngreso.Text = String.Format("{0:dd/MM/yyyy}", DateTime.Now)
ViewState("Orden") = "" ViewState("Orden") = ""
CargaEscolaridad() CargaEscolaridad()
CargaEstadoCivil() CargaEstadoCivil()
CargaDepartamento() CargaDepartamento()
@@ -41,6 +58,12 @@ Partial Class RH_CatPersonal
CargaSupervisores() CargaSupervisores()
CargaMetodosPago() CargaMetodosPago()
CargaDatos() CargaDatos()
CargaTipoRegimen()
CargaJornada()
CargaEstados()
CargaSatRiesgoPuesto()
LoadDefaultValues()
End If End If
End Sub End Sub
@@ -135,6 +158,38 @@ Partial Class RH_CatPersonal
#Region " C O M B O S " #Region " C O M B O S "
Private Sub LoadDefaultValues()
DdlDepartamentoAdd.SelectedIndex = 1
DdlRegimenContratacion.SelectedValueExist(1)
DdlMetodoPagoAdd.SelectedValueExist(1)
DdlTipoPeriodoAdd.SelectedValueExist(1)
DdlTipoContratoAdd.SelectedValueExist(2)
DdlJornada.SelectedValueExist(6)
DdlPuestoAdd.SelectedIndex = 1
DdlRiesgoPuesto.SelectedIndex = 1
End Sub
Private Sub CargaSatRiesgoPuesto()
DdlRiesgoPuesto.DataSource = GlobalDTNomSatRiesgoPuesto
DdlRiesgoPuesto.DataBind()
End Sub
Private Sub CargaJornada()
DdlJornada.DataSource = GlobalDTJornadas
DdlJornada.DataBind()
End Sub
Private Sub CargaEstados()
DdlEstados.DataSource = GlobalDTGralEstados(1)
DdlEstados.DataBind()
End Sub
Private Sub CargaTipoRegimen()
Dim dt As DataTable = GlobalDTNomSatRegimenContratacion.Copy()
For Each item As DataRow In dt.Rows
item("RegimenContratacion") = String.Format("{1}{0} {2}", item("CveSATRegimenContratacion"), If(item("CveSATRegimenContratacion").ToString().Length > 1, "", "0"), item("RegimenContratacion"))
Next
dt.AcceptChanges()
DdlRegimenContratacion.DataSource = dt.FiltraParametros("", "RegimenContratacion")
DdlRegimenContratacion.DataBind()
End Sub
Private Sub CargaEscolaridad() Private Sub CargaEscolaridad()
DdlEscolaridad.DataSource = GlobalDTEscolaridad DdlEscolaridad.DataSource = GlobalDTEscolaridad
DdlEscolaridad.DataBind() DdlEscolaridad.DataBind()
@@ -142,7 +197,9 @@ Partial Class RH_CatPersonal
Private Sub CargaGenero() Private Sub CargaGenero()
DdlGenero.DataSource = GlobalDTGenero DdlGenero.DataSource = GlobalDTGenero
DdlGeneroAdd.DataSource = GlobalDTGenero
DdlGenero.DataBind() DdlGenero.DataBind()
DdlGeneroAdd.DataBind()
End Sub End Sub
Private Sub CargaEstadoCivil() Private Sub CargaEstadoCivil()
@@ -153,11 +210,15 @@ Partial Class RH_CatPersonal
Private Sub CargaTipoPeriodo() Private Sub CargaTipoPeriodo()
DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
DdlTipoPeriodo.DataBind() DdlTipoPeriodo.DataBind()
DdlTipoPeriodoAdd.DataSource = GlobalDTTipoPeriodo
DdlTipoPeriodoAdd.DataBind()
End Sub End Sub
Private Sub CargaTiposContrato() Private Sub CargaTiposContrato()
DdlTipoContrato.DataSource = GlobalDTTiposContrato DdlTipoContrato.DataSource = GlobalDTTiposContrato
DdlTipoContrato.DataBind() DdlTipoContrato.DataBind()
DdlTipoContratoAdd.DataSource = GlobalDTTiposContrato
DdlTipoContratoAdd.DataBind()
End Sub End Sub
Private Sub CargaTurno() Private Sub CargaTurno()
@@ -167,12 +228,16 @@ Partial Class RH_CatPersonal
Private Sub CargaDepartamento() Private Sub CargaDepartamento()
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlDepartamentoAdd.DataSource = DdlDepartamento.DataSource
DdlDepartamentoAdd.DataBind()
DdlDepartamento.DataBind() DdlDepartamento.DataBind()
End Sub End Sub
Private Sub CargaPuestos() Private Sub CargaPuestos()
DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa) DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
DdlPuestoAdd.DataSource = DdlPuesto.DataSource
DdlPuesto.DataBind() DdlPuesto.DataBind()
DdlPuestoAdd.DataBind()
End Sub End Sub
Private Sub CargaRuta() Private Sub CargaRuta()
@@ -214,6 +279,10 @@ Partial Class RH_CatPersonal
End Sub End Sub
Private Sub CargaTipoCentroCosto() Private Sub CargaTipoCentroCosto()
CargarCentrosDeCosto(DdlProyectoAsignadoAdd, DdlSubProyectoAsignadoAdd, LblProyectoAsignado, LblSubProyectoAsignado)
DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyecto, LblSubProyecto) CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyecto, LblSubProyecto)
DivProyecto.Visible = LblProyecto.Visible DivProyecto.Visible = LblProyecto.Visible
ChkSubProyecto.Text = LblSubProyecto.Text ChkSubProyecto.Text = LblSubProyecto.Text
@@ -228,6 +297,8 @@ Partial Class RH_CatPersonal
Private Sub CargaMetodosPago() Private Sub CargaMetodosPago()
DdlMetodoPago.DataSource = GlobalDTMetodosPago DdlMetodoPago.DataSource = GlobalDTMetodosPago
DdlMetodoPago.DataBind() DdlMetodoPago.DataBind()
DdlMetodoPagoAdd.DataSource = GlobalDTMetodosPago
DdlMetodoPagoAdd.DataBind()
End Sub End Sub
#End Region #End Region
@@ -1041,4 +1112,74 @@ Partial Class RH_CatPersonal
' End If ' End If
'End Using 'End Using
End Sub End Sub
Protected Sub LnkGuardar_Click(sender As Object, e As EventArgs)
DdlTurno.SelectedIndex = 1
Dim CveEtadoCivil = 1
Dim CveEstatusPersonal = 1
Dim CveEscolaridad As Integer = 0
Dim isSindicalizado As Boolean = (DDlSindicalizado.SelectedValue = "1")
Dim CvePuesto As Integer = DdlPuestoAdd.SelectedValue.ToEntero()
Dim CveSATRiesgoPuesto As Integer = DdlRiesgoPuesto.SelectedValue.ToEntero()
Dim continuar As Boolean = False
Dim CvePersonal As Integer = 0
Using ObjPersonal As New ClsRH()
If ObjPersonal.AddPersonal("-1", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, "", TxtFechaIngreso.Text.ToDate,
DdlTipoPeriodoAdd.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked, 0,
0, 0, 0, 0, 15, 25, DdlMetodoPagoAdd.SelectedValue.ToEntero, TxtFechaIngreso.Text.Trim.ToDate, "-1",
DdlTipoContratoAdd.SelectedValue.ToEntero, "",
DdlTurno.SelectedValue.ToEntero, CvePuesto,
DdlDepartamentoAdd.SelectedValue.ToEntero,
-1, CveEscolaridad,
CveEtadoCivil, DdlGeneroAdd.SelectedValue.ToEntero(),
-1, "-1", CveEstatusPersonal, TxtFechaNacimiento.Text.ToDate,
"", "", "", "", "", "", "",
DdlEstados.SelectedValue.ToEntero, "", "", TxtRFC.Text.Trim,
TxtCURP.Text.Trim, "", "", -1, CveSATRiesgoPuesto, DdlRegimenContratacion.SelectedValue.ToEntero,
-1, DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero, "",
DdlSupervisor.SelectedValue.ToEntero, "", "", DdlJornada.SelectedValue.ToEntero, -1, "-1",
0, "Seleccione", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, CveUniforme:=-1,
TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151) Then
Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
continuar = True
ISChange = True
Else
'Alert("El empleado a sido agregado satisfactoriamente", TipoMensaje.ToastInformacion, "", 0)
End If
End Using
DdlTurno.SelectedValueExist(-1)
If continuar Then
LimpiarCampos()
If chkcontinuarAgregando.Checked Then
Else
RegistraScript("$('#DmodalAddPersonal').modal('hide');")
End If
End If
End Sub
Protected Sub LimpiarCampos()
TxtAPaterno.Text = ""
TxtAMaterno.Text = ""
TxtNombres.Text = ""
TxtFechaNacimiento.Text = ""
TxtNumeroSS.Text = ""
TxtCURP.Text = ""
TxtRFC.Text = ""
End Sub
Protected Sub LnkAddPersonalSimplificado_Click(sender As Object, e As EventArgs)
ISChange = False
UpAddPerSimplificado.Update()
LimpiarCampos()
RegistraScript("$('#DmodalAddPersonal').modal();")
End Sub
Protected Sub ClickOnHideModal_Click(sender As Object, e As EventArgs)
If ISChange Then
CargaDatos()
End If
End Sub
End Class End Class

16
RH/Personal.aspx.vb
View File

@@ -876,7 +876,7 @@ Partial Class RH_Personal
divBitacora.Visible = True divBitacora.Visible = True
CargaGvBitacora() CargaGvBitacora()
Else Else
LoadDefaultValues()
'Configuración de Modalidad Insert 'Configuración de Modalidad Insert
ImgAddObs.Visible = False ImgAddObs.Visible = False
@@ -935,6 +935,20 @@ Partial Class RH_Personal
AgregarEventosAsincronosGvVacaciones() AgregarEventosAsincronosGvVacaciones()
End Sub End Sub
Private Sub LoadDefaultValues()
DdlDepartamento.SelectedIndex = 1
DdlRegimenContratacion.SelectedValueExist(1)
DdlMetodoPago.SelectedValueExist(1)
DdlTipoPeriodo.SelectedValueExist(1)
DdlTipoContrato.SelectedValueExist(2)
DdlJornada.SelectedValueExist(6)
DdlPuesto.SelectedIndex = 1
DdlTurno.SelectedIndex = 1
DdlEstatusPersonal.SelectedValue = "1"
DdlRiesgoPuesto.SelectedIndex = 1
End Sub
Private Sub CargaCuentasContables() Private Sub CargaCuentasContables()
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
If ObjContabilidad.GetCuentas(-1, "-1", -1) Then If ObjContabilidad.GetCuentas(-1, "-1", -1) Then

2
Ventas/Ventas.aspx
View File

@@ -10,7 +10,7 @@
padding: 0px 5px; padding: 0px 5px;
} }
.nolineheight TxtNombreCliente line-height: 1; .nolineheight {line-height: 1;
} }
.claseesconder { .claseesconder {