diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index d2f3cfe8d..f7ee2c5dc 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -621,10 +621,14 @@ Public Class ClsNominas Return Retorno 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 - DataAdapter("PA_Nom_NominasDetallesAdd") + DataAdapter("PA_Nom_NominasDetallesAddUP") With SqlAdapter.SelectCommand.Parameters .Add("CveNomina", SqlDbType.Int).Value = CveNomina @@ -634,6 +638,12 @@ Public Class ClsNominas .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 + .Add("chkImporteValor", SqlDbType.Int).Value = chkImporteValor + .Add("chkImporte", SqlDbType.Int).Value = chkImporte + .Add("chkImporteGravado", SqlDbType.Int).Value = chkImporteGravado End With Try @@ -646,31 +656,56 @@ Public Class ClsNominas 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") + '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 - 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 + ' DataAdapter("PA_Nom_NominasDetallesAdd") - 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 + ' 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 + ' End With - Return Retorno - End Function + ' 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 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 Dim Retorno As Boolean = False @@ -1770,7 +1805,7 @@ Public Class ClsNominas End Function #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 Dim Retorno As Boolean = False @@ -2172,34 +2207,6 @@ Public Class ClsNominas End Try Return Retorno 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 Dim retorno As Boolean = False DTSet = New DataSet() @@ -2298,7 +2305,7 @@ Public Class ClsNominas Dim retorno As Boolean = False Try DTSet = New DataSet() - DataAdapter("PA_Nom_NominaEmpleado", CommandType.StoredProcedure) + DataAdapter("PA_Nom_NominaEmpleadoV2", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto diff --git a/Nomina/Aguinaldo.aspx.cs b/Nomina/Aguinaldo.aspx.cs index 8177fa3e8..32205eb70 100644 --- a/Nomina/Aguinaldo.aspx.cs +++ b/Nomina/Aguinaldo.aspx.cs @@ -217,7 +217,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas 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; } diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index eae100f6b..34524b072 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -1232,7 +1232,7 @@ public partial class Nomina_Finiquito : ClsPaginas 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; } @@ -1345,6 +1345,10 @@ public partial class Nomina_Finiquito : ClsPaginas protected void BtnAceptarMC_Click(object sender, EventArgs e) { + + int chkImporte = 1; + int chkImporteGravado = 1; + int chkImporteValor = 1; bool continuar = true; int CveNomina = 0; double Total = 0; @@ -1395,7 +1399,7 @@ public partial class Nomina_Finiquito : ClsPaginas 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; } diff --git a/Nomina/NomTimbrados.aspx.cs b/Nomina/NomTimbrados.aspx.cs index b43e87d9f..49bd38fdb 100644 --- a/Nomina/NomTimbrados.aspx.cs +++ b/Nomina/NomTimbrados.aspx.cs @@ -130,8 +130,8 @@ public partial class Nomina_NomTimbrados : ClsPaginas case "DESCUENTO": drow["DESCUENTO"] = 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:XSI": xmlCFDI.comprobante.xmlns_xsi = 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 "SELLO": xmlCFDI.comprobante.Sello = xtr.Value; break; //case "CERTIFICADO": xmlCFDI.comprobante.Certificado = xtr.Value; break; - } + //} cont = xtr.MoveToNextAttribute(); } cont = xtr.MoveToFirstAttribute(); @@ -244,8 +244,8 @@ public partial class Nomina_NomTimbrados : ClsPaginas cont = xtr.MoveToFirstAttribute(); while (cont) { - switch (xtr.Name.ToUpper()) - { + //switch (xtr.Name.ToUpper()) + //{ //case "CLAVEPRODSERV": concepto.ClaveProdServ = xtr.Value; break; //case "NOIDENTIFICACION": concepto.NoIdentificacion = 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 "DESCUENTO": decimal DDescuento = 0; decimal.TryParse(xtr.Value, out DDescuento); concepto.Descuento = DDescuento; ; break; //case "DESCRIPCION": concepto.Descripcion = xtr.Value; break; - } + //} cont = xtr.MoveToNextAttribute(); } xtr.MoveToFirstAttribute(); @@ -377,22 +377,22 @@ public partial class Nomina_NomTimbrados : ClsPaginas while (conts) { - decimal Base = 0; - switch (xtr.Name.ToUpper()) - { - //case "FECHAPAGO": xmlCFDI.complemento.Pagos.FechaPago = xtr.Value; break; - //case "FORMADEPAGOP": xmlCFDI.complemento.Pagos.FormaDePagoP = xtr.Value; break; - //case "FORMADEPAGOPTEXT": xmlCFDI.complemento.Pagos.FormaDePagoPText = 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 "TIPOCAMBIOP": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.TipoCambioP = Base; break; - //case "NUMOPERACION": xmlCFDI.complemento.Pagos.NumOperacion = xtr.Value; break; - //case "NOMBANCOORDEXT": xmlCFDI.complemento.Pagos.NomBancoOrdExt = xtr.Value; break; - //case "RFCEMISORCTAORD": xmlCFDI.complemento.Pagos.RfcEmisorCtaOrd = xtr.Value; break; - //case "CTAORDENANTE": xmlCFDI.complemento.Pagos.CtaOrdenante = xtr.Value; break; - //case "RFCEMISORCTABEN": xmlCFDI.complemento.Pagos.RfcEmisorCtaBen = xtr.Value; break; - //case "CTABENEFICIARIO": xmlCFDI.complemento.Pagos.CtaBeneficiario = xtr.Value; break; - } + //decimal Base = 0; + //switch (xtr.Name.ToUpper()) + //{ + // case "FECHAPAGO": xmlCFDI.complemento.Pagos.FechaPago = xtr.Value; break; + // case "FORMADEPAGOP": xmlCFDI.complemento.Pagos.FormaDePagoP = xtr.Value; break; + // case "FORMADEPAGOPTEXT": xmlCFDI.complemento.Pagos.FormaDePagoPText = 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 "TIPOCAMBIOP": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.TipoCambioP = Base; break; + // case "NUMOPERACION": xmlCFDI.complemento.Pagos.NumOperacion = xtr.Value; break; + // case "NOMBANCOORDEXT": xmlCFDI.complemento.Pagos.NomBancoOrdExt = xtr.Value; break; + // case "RFCEMISORCTAORD": xmlCFDI.complemento.Pagos.RfcEmisorCtaOrd = xtr.Value; break; + // case "CTAORDENANTE": xmlCFDI.complemento.Pagos.CtaOrdenante = xtr.Value; break; + // case "RFCEMISORCTABEN": xmlCFDI.complemento.Pagos.RfcEmisorCtaBen = xtr.Value; break; + // case "CTABENEFICIARIO": xmlCFDI.complemento.Pagos.CtaBeneficiario = xtr.Value; break; + //} conts = xtr.MoveToNextAttribute(); } conts = xtr.MoveToFirstAttribute(); @@ -404,20 +404,20 @@ public partial class Nomina_NomTimbrados : ClsPaginas while (conts) { - decimal Basep = 0; - switch (xtr.Name.ToUpper()) - { - //case "IDDOCUMENTO": objpago.IdDocumento = xtr.Value; break; - //case "SERIE": objpago.Serie = xtr.Value; break; - //case "FOLIO": objpago.Folio = xtr.Value; break; - //case "MONEDADR": objpago.MonedaDR = xtr.Value; break; - //case "METODODEPAGODR": objpago.MetodoDePagoDR = xtr.Value; break; - //case "NUMPARCIALIDAD": objpago.NumParcialidad = xtr.Value; 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 "IMPSALDOINSOLUTO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoInsoluto = Basep; break; + //decimal Basep = 0; + //switch (xtr.Name.ToUpper()) + //{ + // case "IDDOCUMENTO": objpago.IdDocumento = xtr.Value; break; + // case "SERIE": objpago.Serie = xtr.Value; break; + // case "FOLIO": objpago.Folio = xtr.Value; break; + // case "MONEDADR": objpago.MonedaDR = xtr.Value; break; + // case "METODODEPAGODR": objpago.MetodoDePagoDR = xtr.Value; break; + // case "NUMPARCIALIDAD": objpago.NumParcialidad = xtr.Value; 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 "IMPSALDOINSOLUTO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoInsoluto = Basep; break; - } + //} conts = xtr.MoveToNextAttribute(); } conts = xtr.MoveToFirstAttribute(); diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index f5e48e16c..5f0143d8c 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -1389,6 +1389,9 @@ public partial class Nomina_Nomina2 : ClsPaginas protected void LnkCargarNomina_Click(object sender, EventArgs e) { + int chkImporteValor = 1; + int chkImporte = 1; + int chkImporteGravado = 0; List Filesgral = TxtArchivoNomina.getfiles().Archivos; bool continuar = Filesgral.Count > 0; 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 (!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; } @@ -1841,6 +1844,9 @@ public partial class Nomina_Nomina2 : ClsPaginas } protected void BtnAceptarMC_Click(object sender, EventArgs e) { + int chkImporte = 1; + int chkImporteGravado = 1; + int chkImporteValor = 1; bool continuar = true; int CveNomina = 0; double Total = 0; @@ -1896,7 +1902,7 @@ public partial class Nomina_Nomina2 : ClsPaginas 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; } @@ -4737,8 +4743,11 @@ public partial class Nomina_Nomina2 : ClsPaginas private bool autorizarNomina(int FiltroCvePersonal) { - 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" }; 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 (!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; } @@ -5846,7 +5855,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } catch (Exception ex) { - // OnError("Error al cargar Formato vacaciones", ex); + this.OnError("Error al cargar Formato vacaciones", ex); } } if (Documento.Length > 0) diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index f6ba72b60..3f6a9d946 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -56,25 +56,13 @@ Nuevo Personal -
  • - Descargar PDF -
    • -
  • - Descargar Excel -
    • -
  • - Formato saldos iniciales -
    • -
  • - Personalizar -
    • +
  • + Agregar Personal +
  • - - - Excel Personalizado - + Excel Personalizado
    • @@ -83,6 +71,18 @@     +
  • + Descargar PDF +
    • +
  • + Descargar Excel +
    • +
  • + Formato carga masiva +
    • +
  • + Personalizar +
  • Validacion Masiva RFC
    • @@ -475,7 +475,7 @@   - + FechaIngreso @@ -607,7 +607,7 @@ - + Fecha registro @@ -810,6 +810,302 @@ + + @@ -932,6 +1222,11 @@ localStorage.setItem('CatPersonal_listaChked', CatPersonal_listaChked); } jQuery(document).ready(function () { + $('#DmodalAddPersonal').on('hidden.bs.modal', function () { + $('#ClickOnHideModal').click(); + }); + + let CatPersonal_listaChked = localStorage.getItem('CatPersonal_listaChked'); if (CatPersonal_listaChked != null && CatPersonal_listaChked.length > 0) { try { @@ -948,4 +1243,1486 @@ }); + diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 7bbb3db8d..302083385 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -9,6 +9,19 @@ Imports Microsoft.Reporting.WebForms Partial Class RH_CatPersonal 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 Get @@ -24,8 +37,12 @@ Partial Class RH_CatPersonal End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load 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") = "" - CargaEscolaridad() CargaEstadoCivil() CargaDepartamento() @@ -41,6 +58,12 @@ Partial Class RH_CatPersonal CargaSupervisores() CargaMetodosPago() CargaDatos() + CargaTipoRegimen() + CargaJornada() + CargaEstados() + CargaSatRiesgoPuesto() + + LoadDefaultValues() End If End Sub @@ -135,6 +158,38 @@ Partial Class RH_CatPersonal #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() DdlEscolaridad.DataSource = GlobalDTEscolaridad DdlEscolaridad.DataBind() @@ -142,7 +197,9 @@ Partial Class RH_CatPersonal Private Sub CargaGenero() DdlGenero.DataSource = GlobalDTGenero + DdlGeneroAdd.DataSource = GlobalDTGenero DdlGenero.DataBind() + DdlGeneroAdd.DataBind() End Sub Private Sub CargaEstadoCivil() @@ -153,11 +210,15 @@ Partial Class RH_CatPersonal Private Sub CargaTipoPeriodo() DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo DdlTipoPeriodo.DataBind() + DdlTipoPeriodoAdd.DataSource = GlobalDTTipoPeriodo + DdlTipoPeriodoAdd.DataBind() End Sub Private Sub CargaTiposContrato() DdlTipoContrato.DataSource = GlobalDTTiposContrato DdlTipoContrato.DataBind() + DdlTipoContratoAdd.DataSource = GlobalDTTiposContrato + DdlTipoContratoAdd.DataBind() End Sub Private Sub CargaTurno() @@ -167,12 +228,16 @@ Partial Class RH_CatPersonal Private Sub CargaDepartamento() DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamentoAdd.DataSource = DdlDepartamento.DataSource + DdlDepartamentoAdd.DataBind() DdlDepartamento.DataBind() End Sub Private Sub CargaPuestos() DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa) + DdlPuestoAdd.DataSource = DdlPuesto.DataSource DdlPuesto.DataBind() + DdlPuestoAdd.DataBind() End Sub Private Sub CargaRuta() @@ -214,6 +279,10 @@ Partial Class RH_CatPersonal End Sub Private Sub CargaTipoCentroCosto() + + CargarCentrosDeCosto(DdlProyectoAsignadoAdd, DdlSubProyectoAsignadoAdd, LblProyectoAsignado, LblSubProyectoAsignado) + DivProyectosAsignado.Visible = LblProyectoAsignado.Visible + CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyecto, LblSubProyecto) DivProyecto.Visible = LblProyecto.Visible ChkSubProyecto.Text = LblSubProyecto.Text @@ -228,6 +297,8 @@ Partial Class RH_CatPersonal Private Sub CargaMetodosPago() DdlMetodoPago.DataSource = GlobalDTMetodosPago DdlMetodoPago.DataBind() + DdlMetodoPagoAdd.DataSource = GlobalDTMetodosPago + DdlMetodoPagoAdd.DataBind() End Sub #End Region @@ -1041,4 +1112,74 @@ Partial Class RH_CatPersonal ' End If 'End Using 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 Ver empleado", 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 diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index bc495a4c1..9c3f73719 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -876,7 +876,7 @@ Partial Class RH_Personal divBitacora.Visible = True CargaGvBitacora() Else - + LoadDefaultValues() 'Configuración de Modalidad Insert ImgAddObs.Visible = False @@ -935,6 +935,20 @@ Partial Class RH_Personal AgregarEventosAsincronosGvVacaciones() 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() Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) If ObjContabilidad.GetCuentas(-1, "-1", -1) Then diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 2a85b6ce7..d6a5cec27 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -10,7 +10,7 @@ padding: 0px 5px; } - .nolineheight TxtNombreCliente line-height: 1; + .nolineheight {line-height: 1; } .claseesconder {