From 42aa9875fbaad9dfb63397a0d2d5443f8505bfa7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 12 Aug 2022 11:03:45 -0700 Subject: [PATCH 1/6] Correcion en inventario de remisiones y carga de restricciones de credito en autorizaciones --- Ventas/Ventas.aspx.vb | 25 +++++++++++++++++-------- 1 file changed, 17 insertions(+), 8 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 0ca49f970..4d8bf7e6e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6949,10 +6949,10 @@ Partial Class Ventas Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón:

{0}", Vta.SerieVenta) Vta.Dispose() If Opcion > 0 Then - If Opcion = 1 Then - BtnEmitirImprimir.Visible = False - BtnsFacturar.Visible = False - End If + 'If Opcion = 1 Then + ' BtnEmitirImprimir.Visible = False + ' BtnsFacturar.Visible = False + 'End If If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia) Else If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia) @@ -6978,6 +6978,7 @@ Partial Class Ventas LnkPedido2SinFacturar.Visible = False LnkCotizaciones.Visible = False LnkOCs.Visible = False + Else 'VERIFICAR LIMITE DE CREDITO If DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 AndAlso RBLPago.SelectedValue = "1" Then @@ -19858,7 +19859,7 @@ Partial Class Ventas AplicaMovimientoDetalleEntrada = True Else 'Le damos salida de apartado por traspaso - CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada) + CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, ObjConta:=ObjConta) If Not CveMovimientoSalidaPorTraspaso > 0 Then OcurrioError = True @@ -19867,7 +19868,7 @@ Partial Class Ventas 'Le damos entrada al general por traspaso If Not OcurrioError Then - GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada) > 0 + GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, ObjConta:=ObjConta) > 0 If Not GeneroMovimientoAlmacen Then OcurrioError = True @@ -20155,6 +20156,13 @@ Partial Class Ventas Dim Cont As Integer = 1 Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL + Dim TipoMovto69 As Boolean = False + + 'SI ES MOVIMIENTO DE ENTRADA CAMBIAR LA NATURALEZA DEL MOVIMIENTO + If ConceptoEntrada.Contiene(9) Then + TipoMovto69 = True + End If + For Each RowInv As DataRow In DtCostosDistinct.Rows ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() @@ -20167,13 +20175,14 @@ Partial Class Ventas Try 'If ValorInventario <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ValorInventario, 69, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto69, ValorInventario, ValorInventario, 69, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True Exit For End If 'End If Catch ex As Exception OcurrioError = True + ModExtensiones.GuardaLog("Error inesperado (15147)." + ex.ToString()) Alert("Error inesperado (15147). Por favor comuniquese con atención SIG.", TipoMensaje.ToastError) End Try Cont += 1 @@ -20181,7 +20190,7 @@ Partial Class Ventas If Not OcurrioError Then IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero() - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, TotalCosto, 68, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovto69, TotalCosto, TotalCosto, 68, ObjFactura.SerieFolio, ObjFactura.SerieFolio, IdCtaContable, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True End If End If From 360ffb69257f60d1f25ddd0899baa1e5909f0444 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 12 Aug 2022 11:04:10 -0700 Subject: [PATCH 2/6] Nueva entrada en formato de entrada de almacen --- Compras/PopUpVerFactura.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index c148ba7af..7608f8afe 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3350,7 +3350,7 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios") End If - Case 2, 32, 33, 36 ' E N T R A D A S + Case 2, 32, 33, 36, 48 ' E N T R A D A S Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) From 51b09b7687595b7c3b053bf6469bb8b1bd630b8e Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sun, 14 Aug 2022 23:44:01 -0700 Subject: [PATCH 3/6] estatuse incapacidad personal --- App_Code/ClsNominas.vb | 6 +- App_Code/ClsRH.vb | 21 ++ App_Code/Timbrado.vb | 2 +- Nomina/Finiquito.aspx.cs | 4 +- Nomina/Nomina.aspx | 14 +- Nomina/Nomina.aspx.cs | 9 +- RH/Personal.aspx | 585 +++++++++++++++++++++++++++++----- RH/Personal.aspx.vb | 399 +++++++++++++++++++++++ SAT/SolicitudesNominaSat.aspx | 203 ++++++------ 9 files changed, 1031 insertions(+), 212 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index e688b1a85..f317b2d84 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2733,7 +2733,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function PersonalIncapacidadAdd(CveUsuarioCapturo As Integer, cvePersonal As Int32, folio As String, fechaInicio As DateTime, diasAutorizados As Int32, cveTipodeIncidencia As Int32, cveRamoSeguro As Int32, cveTipoRiesgo As Int32, porcentajedeIncapacidad As Int32, cveSecuelaConsecuencia As Int32, cveControlIncapacidad As Int32, descripcion As String) As Boolean + Public Function PersonalIncapacidadAdd(CveUsuarioCapturo As Integer, cvePersonal As Int32, folio As String, fechaInicio As DateTime, diasAutorizados As Int32, cveTipodeIncidencia As Int32, cveRamoSeguro As Int32, cveTipoRiesgo As Int32, porcentajedeIncapacidad As Int32, cveSecuelaConsecuencia As Int32, cveControlIncapacidad As Int32, descripcion As String, Optional DiasPagoEmpresa As Integer = 0) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_PersonalIncapacidadAdd", CommandType.StoredProcedure) Try @@ -2750,6 +2750,7 @@ Public Class ClsNominas .Add("@CveSecuelaConsecuencia", SqlDbType.Int).Value = cveSecuelaConsecuencia .Add("@CveControlIncapacidad", SqlDbType.Int).Value = cveControlIncapacidad .Add("@Descripcion", SqlDbType.VarChar).Value = descripcion + .Add("@DiasPagoEmpresa", SqlDbType.Int).Value = DiasPagoEmpresa End With SqlAdapter.Fill(Data) retorno = True @@ -2766,7 +2767,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function PersonalIncapacidadUp(CveUsuarioCapturo As Integer, cvePersonalIncapacidad As Int32, folio As String, fechaInicio As DateTime, diasAutorizados As Int32, cveTipodeIncidencia As Int32, cveRamoSeguro As Int32, cveTipoRiesgo As Int32, porcentajedeIncapacidad As Int32, cveSecuelaConsecuencia As Int32, cveControlIncapacidad As Int32, descripcion As String) As Boolean + Public Function PersonalIncapacidadUp(CveUsuarioCapturo As Integer, cvePersonalIncapacidad As Int32, folio As String, fechaInicio As DateTime, diasAutorizados As Int32, cveTipodeIncidencia As Int32, cveRamoSeguro As Int32, cveTipoRiesgo As Int32, porcentajedeIncapacidad As Int32, cveSecuelaConsecuencia As Int32, cveControlIncapacidad As Int32, descripcion As String, Optional DiasPagoEmpresa As Integer = 0) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_PersonalIncapacidadUp", CommandType.StoredProcedure) Try @@ -2783,6 +2784,7 @@ Public Class ClsNominas .Add("@CveSecuelaConsecuencia", SqlDbType.Int).Value = cveSecuelaConsecuencia .Add("@CveControlIncapacidad", SqlDbType.Int).Value = cveControlIncapacidad .Add("@Descripcion", SqlDbType.VarChar).Value = descripcion + .Add("@DiasPagoEmpresa", SqlDbType.Int).Value = DiasPagoEmpresa End With SqlAdapter.Fill(Data) retorno = True diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index d7d2ecae0..96d7cd193 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -7343,6 +7343,27 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno End Function + Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + Data = New DataTable + SqlDataAdapter("estatusPersonalUp") + With SqlAdapter.SelectCommand.Parameters + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al guardar correos nominas", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al guardar correos nominas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function Public Function NomBitacoraCorreoAdd(CvePeriodo As Integer, CvePersonal As Integer, Correos As String, CveEmpresa As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False Data = New DataTable diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 48bfd0a27..09b82768c 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -4832,7 +4832,7 @@ Public Class Timbrado If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos - cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####"), concep.Importe, concep.Descuento, concep.ObjetoImpuesto) + cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####").ToDouble(), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####").ToDouble(), concep.Importe, concep.Descuento, concep.ObjetoImpuesto) For Each imp As CFDIConceptosImpuestos In concep.Impuestos If imp.TrasladooRetencion = "T" Then cfdi.ConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe) diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 0f0849dc7..25bc63094 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -166,8 +166,8 @@ public partial class Nomina_Finiquito : ClsPaginas chkPrimaantiguedad.Checked = da["ValPrimadeantiguedad"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); } } - - + + DdlTipoPeriodo.SelectedValueExist(da["CveTipoPeriodo"]); DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]); TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}"; ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE"); diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 543a0c32f..ef037529c 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -1741,7 +1741,7 @@
+ DataKeyNames="CvePersonalIncapacidad,CvePersonal,Folio,FechaInicio,DiasAutorizados,DiasPagoEmpresa,CveTipodeIncidencia,CveRamoSeguro,CveTipoRiesgo,PorcentajedeIncapacidad,CveSecuelaConsecuencia,CveControlIncapacidad,Descripcion"> @@ -1795,7 +1795,7 @@
-
+
@@ -1804,7 +1804,7 @@
-
+
@@ -1816,7 +1816,7 @@
-
+
@@ -1824,6 +1824,12 @@ Dias autorizados
+
+
+ + Dias pagados por empresa +
+
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index b4ad46dc9..840e92404 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -7363,6 +7363,8 @@ public partial class Nomina_Nomina2 : ClsPaginas string folio = gvRow.DataKey("Folio"); DateTime fechaInicio = gvRow.DataKey("FechaInicio").ToDateTime(); int diasAutorizados = gvRow.DataKey("DiasAutorizados").ToEntero(); + int diasPagoEmpresa = gvRow.DataKey("DiasPagoEmpresa").ToEntero(); + int cveTipodeIncidencia = gvRow.DataKey("CveTipodeIncidencia").ToEntero(); int cveRamoSeguro = gvRow.DataKey("CveRamoSeguro").ToEntero(); int cveTipoRiesgo = gvRow.DataKey("CveTipoRiesgo").ToEntero(); @@ -7374,6 +7376,7 @@ public partial class Nomina_Nomina2 : ClsPaginas TxtSRINCfolio.Text = folio.ToString(); TxtSRINCfechaInicio.Text = $"{fechaInicio:dd/MM/yyyy}"; TxtSRINCdiasAutorizados.Text = diasAutorizados.ToString(); + TxtDiasPagoEmpresa.Text = diasPagoEmpresa.ToString(); DdlSRINCcveTipodeIncidencia.SelectedValueExist(cveTipodeIncidencia.ToString()); DdlSRINCcveRamoSeguro.SelectedValueExist(cveRamoSeguro.ToString()); DdlSRINCcveTipoRiesgo.SelectedValueExist(cveTipoRiesgo.ToString()); @@ -7399,6 +7402,7 @@ public partial class Nomina_Nomina2 : ClsPaginas string folio = TxtSRINCfolio.Text; DateTime fechaInicio = TxtSRINCfechaInicio.Text.ToDateTime(); int diasAutorizados = TxtSRINCdiasAutorizados.Text.ToEntero(); + int diasPagoEmpresa = TxtDiasPagoEmpresa.Text.ToEntero(); int cveTipodeIncidencia = DdlSRINCcveTipodeIncidencia.Text.ToEntero(); int cveRamoSeguro = DdlSRINCcveRamoSeguro.Text.ToEntero(); int cveTipoRiesgo = DdlSRINCcveTipoRiesgo.Text.ToEntero(); @@ -7409,7 +7413,7 @@ public partial class Nomina_Nomina2 : ClsPaginas bool Continuar; using (ClsNominas ObjPers = new ClsNominas()) { - Continuar = ObjPers.PersonalIncapacidadAdd(UsuarioActual.CveUsuario, SRCvePersonal, folio, fechaInicio, diasAutorizados, cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion); + Continuar = ObjPers.PersonalIncapacidadAdd(UsuarioActual.CveUsuario, SRCvePersonal, folio, fechaInicio, diasAutorizados, cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion, diasPagoEmpresa); } if (Continuar) { @@ -7425,6 +7429,7 @@ public partial class Nomina_Nomina2 : ClsPaginas string folio = TxtSRINCfolio.Text; DateTime fechaInicio = TxtSRINCfechaInicio.Text.ToDateTime(); int diasAutorizados = TxtSRINCdiasAutorizados.Text.ToEntero(); + int diasPagoEmpresa = TxtDiasPagoEmpresa.Text.ToEntero(); int cveTipodeIncidencia = DdlSRINCcveTipodeIncidencia.Text.ToEntero(); int cveRamoSeguro = DdlSRINCcveRamoSeguro.Text.ToEntero(); int cveTipoRiesgo = DdlSRINCcveTipoRiesgo.Text.ToEntero(); @@ -7436,7 +7441,7 @@ public partial class Nomina_Nomina2 : ClsPaginas using (ClsNominas ObjPers = new ClsNominas()) { Continuar = ObjPers.PersonalIncapacidadUp(UsuarioActual.CveUsuario, CcvePersonalIncapacidad, folio, fechaInicio, diasAutorizados, - cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion); + cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion, diasPagoEmpresa); } if (Continuar) { diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 5b3dec480..0e3d14f19 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -62,6 +62,10 @@
  • Agregar buzón de calidad
    • +
  • + Activar + Desactivar +
    • @@ -588,13 +592,13 @@
    -
    - - - +
    + + +
    - +
    @@ -604,7 +608,7 @@
    -
    +
    @@ -621,7 +625,7 @@
    - +
    @@ -634,7 +638,8 @@
    @@ -712,79 +717,46 @@
    -
    - - - - - - -
    -
    - - - - - -
    - <%--
    - -
    - - - - - +
    +
    + + + + + +
    - - - - - - - - -
    --%> - -
    - -
    - - - - - - +
    + + + + +
    - - - - - + +
    + +
    + + + + + + +
    + + + + + + + +
    - <%--
    - -
    - - - - - - -
    - - - - - - - -
    --%> -
    - -
    @@ -1449,7 +1418,7 @@
    - + @@ -1597,6 +1566,408 @@
    + + + + + +
    +
    +
    + + Movimientos Permanentes +
    +
    + +
    + +
    +
    + Agregar +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    + +     +     + + + +
    +
    +
    + + Incapacidades registradas +
    +
    + +
    +
    +
    + Agregar +
    +
    +
    +
    + + + + + + + + + + + + + + + +
    +
    + <%# Eval("DiasAutorizados")%> +
    +
    + +
    +
    +     +     +     +     +     +
    +
    + + + + + +     +     <%--
    @@ -3093,14 +3464,8 @@ - - + + @@ -5291,6 +5656,52 @@
    + diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 628fc2cc2..4f0d1d4a6 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -16,6 +16,18 @@ Partial Class RH_Personal #Region "P R O P I E D A D E S" + Property CcveMovtoPermanente As Integer + Get + If ViewState("CcveMovtoPermanente") Is Nothing Then + Return -1 + Else + Return DirectCast(ViewState("CcveMovtoPermanente"), Integer) + End If + End Get + Set(value As Integer) + ViewState("CcveMovtoPermanente") = value + End Set + End Property Property CveFonacot As Integer Get If ViewState("CveFonacot") Is Nothing Then @@ -218,6 +230,17 @@ Partial Class RH_Personal End If End Get End Property + + + Private Property dtNomConceptos As Data.DataTable + Get + Return CType(ViewState("dtNomConceptos"), DataTable) + End Get + Set(value As Data.DataTable) + ViewState("dtNomConceptos") = value + End Set + End Property + Private Property DtCuentasContables As Data.DataTable Get Return CType(ViewState("DtCuentasContables"), DataTable) @@ -825,6 +848,10 @@ Partial Class RH_Personal pnlSalarioIMSS.Visible = False End If ' + Using objno = New ClsNominas + objno.GetConceptos() + dtNomConceptos = objno.DtResultados + End Using PnlSalarios.Visible = showsalarios ViewState("Orden") = "" @@ -877,6 +904,8 @@ Partial Class RH_Personal 'CvePersonal = ViewState("CvePersonal").ToString().ToEntero() CargaDatos() CargaDocumentacionFirmaDecontratos() + CargaPersonalIncapacidad() + CargaMovtoPermanente() 'LnkAddLicencias.Visible = True 'TabLicencias.Visible = True 'Configuración de Modalidad Update @@ -1663,6 +1692,8 @@ Partial Class RH_Personal 'End If DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString() + LnkActivar.Visible = (ObjPersonal.CveEstatusPersonal = 2) + LnkDesactivar.Visible = Not LnkActivar.Visible CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero()) MostrarOcultarFechasEstatus() @@ -7062,5 +7093,373 @@ Partial Class RH_Personal End Using End Sub +#Region "movtosPermanentes" + Protected Sub CargaTipoConcepto() + CargaConcepto() + End Sub + + Protected Sub CargaConcepto() + Dim dt As DataTable = dtNomConceptos.FiltraParametros(" FormulaTotal = 'FNC.[MovimientosPermanentes]'") + DdlConcepto.Items.Clear() + + If DdlTipo.SelectedValue.Contiene("P", "D", "O") Then + DdlConcepto.DataSource = dt.FiltraParametros(String.Format("Tipo ='{0}'", DdlTipo.SelectedValue)) + End If + + Dim drow As DataRow = dt.NewRow() + drow("CveConcepto") = "-1" + drow("Concepto") = "Seleccione" + dt.Rows.InsertAt(drow, 0) + DdlConcepto.DataSource = dt + DdlConcepto.SelectedValueExist("-1") + DdlConcepto.DataBind() + End Sub + + Private Sub CargaMovtoPermanente() + Using ObjMovt As ClsNominas = New ClsNominas() + ObjMovt.GetMovtoPermanente(UsuarioActual.CveEmpresa, CvePersonal) + GVMovtoPermanente.DataSource = ObjMovt.DtResultados + End Using + + GVMovtoPermanente.DataBind() + UpMovtosPermanentes.Update() + End Sub + + Protected Sub DdlTipo_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) + CargaConcepto() + End Sub + + Protected Sub LnkAddMovtoPermanente_Click(ByVal sender As Object, ByVal e As EventArgs) + CargaConcepto() + DdlTipoDescto_SelectedIndexChanged(Nothing, Nothing) + pnlAddupMovto.Visible = True + LnkAddMovto.Visible = True + LnkUpMovto.Visible = False + LtlMovtoPermanenteaddup.Text = "Agregar Movimiento" + TxtDescripcion.Text = "" + TxtValor.Text = "" + TxtVecesAplicar.Text = "" + TxtMontoLimite.Text = "" + TxtFechaAplicacion.Text = "" + ChkEstatus.Visible = True + ChkEstatus.Checked = True + UpMovtosPermanentesModal.Update() + RegistraScript("$('#ModalMovtoPermanente').modal()") + End Sub + + Protected Sub LnkAddMovto_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim cveConcepto As Integer = DdlConcepto.SelectedValue.ToEntero() + Dim descripcion As String = TxtDescripcion.Text + Dim tipoDescuento As Integer = DdlTipoDescto.SelectedValue.ToEntero() + 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 estatus As Boolean = ChkEstatus.Checked + Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1)) + Dim Continuar As Boolean + + Using ObjMovt As ClsNominas = New ClsNominas() + Continuar = ObjMovt.AddMovtoPermanente(cveConcepto, CvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta) > 0 + End Using + + If Continuar Then + Me.RegistraScript("$('#DModalMovtoPermanente').modal('hide');") + CargaMovtoPermanente() + UpMovtosPermanentes.Update() + Me.Alert("Se ha agregado el movimiento permanente") + End If + + RegistraScript("$('#ModalMovtoPermanente').modal('hide')") + End Sub + + Protected Sub LnkUpMovto_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim cveConcepto As Integer = DdlConcepto.SelectedValue.ToEntero() + Dim descripcion As String = TxtDescripcion.Text + Dim tipoDescuento As Integer = DdlTipoDescto.SelectedValue.ToEntero() + 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 estatus As Boolean = ChkEstatus.Checked + Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1)) + Dim Continuar As Boolean + + Using ObjMovt As ClsNominas = New ClsNominas() + Continuar = ObjMovt.UpMovtoPermanente(CcveMovtoPermanente, cveConcepto, CvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta) + End Using + + If Continuar Then + Me.RegistraScript("$('#ModalMovtoPermanente').modal('hide');") + CargaMovtoPermanente() + UpMovtosPermanentes.Update() + Me.Alert("Se ha actualizado el movimiento permanente") + End If + End Sub + + Protected Sub DdlTipoDescto_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) + pnlMonto.Visible = DdlTipoDescto.SelectedValue.ToEntero() > 2 + pnlVecesAplicar.Visible = DdlTipoDescto.SelectedValue.ToEntero() < 3 + End Sub + + Protected Sub LnkremoveMovtoPermanente_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + CcveMovtoPermanente = gvRow.DataKey("CveMovtoPermanente").ToEntero() + Dim Continuar As Boolean = False + + Using ObjMovt As ClsNominas = New ClsNominas() + Continuar = ObjMovt.RemoveMovtoPermanente(CcveMovtoPermanente) + End Using + + If Continuar Then + Me.RegistraScript("$('#ModalMovtoPermanente').modal('hide');") + CargaMovtoPermanente() + UpMovtosPermanentes.Update() + Me.Alert("Se ha eliminadó el movimiento permanente") + End If + End Sub + + Protected Sub LnkEditarMovtoPermanente_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + CcveMovtoPermanente = gvRow.DataKey("CveMovtoPermanente").ToEntero() + Dim cveConcepto As Integer = gvRow.DataKey("CveConcepto").ToEntero() + Dim cvePersonal As Integer = gvRow.DataKey("CvePersonal").ToEntero() + Dim CveCuenta As Integer = gvRow.DataKey("CveCuenta").ToEntero() + Dim IdCtaContable As Integer = gvRow.DataKey("IdCtaContable").ToEntero() + Dim descripcion As String = gvRow.DataKey("Descripcion") + Dim tipoDescuento As Integer = gvRow.DataKey("TipoDescuento").ToEntero() + Dim valor As Double = gvRow.DataKey("Valor").ToDouble() + Dim vecesAplicar As Integer = gvRow.DataKey("VecesAplicar").ToEntero() + Dim montoLimite As Decimal = gvRow.DataKey("MontoLimite").ToDecimal() + Dim fechaInicioAplicacion As DateTime = gvRow.DataKey("FechaInicioAplicacion").ToDate() + Dim estatus As Boolean = gvRow.DataKey("Estatus") = "1" OrElse gvRow.DataKey("Estatus").ToUpper() = "TRUE" + Dim fechaRegistro As DateTime = gvRow.DataKey("FechaRegistro").ToDateTime() + Dim tipo As String = "P" + Dim drow As DataRow = dtNomConceptos.FiltroPrimero(String.Format("CveConcepto ='{0}'", cveConcepto)) + + If drow IsNot Nothing Then + tipo = drow("Tipo").ToString() + DdlTipo.SelectedValueExist(tipo) + DdlTipo_SelectedIndexChanged(Nothing, Nothing) + End If + + CargaConcepto() + DdlConcepto.SelectedValueExist(cveConcepto) + TxtDescripcion.Text = descripcion.ToString() + DdlTipoDescto.SelectedValueExist(tipoDescuento.ToString()) + DdlTipoDescto_SelectedIndexChanged(Nothing, Nothing) + TxtValor.Text = valor.ToString() + TxtVecesAplicar.Text = vecesAplicar.ToString() + TxtMontoLimite.Text = montoLimite.ToString() + TxtFechaAplicacion.Text = $"{fechaInicioAplicacion}" + DdlCtaContable.SelectedValueExist("-1") + + If DdlCtaContable.DataValueField = "Id" Then + DdlCtaContable.SelectedValueExist(IdCtaContable) + Else + DdlCtaContable.SelectedValueExist(CveCuenta) + End If + + ChkEstatus.Checked = estatus + RegistraScript("$('#ModalMovtoPermanente').modal()") + pnlAddupMovto.Visible = True + LnkAddMovto.Visible = False + LnkUpMovto.Visible = True + UpMovtosPermanentesModal.Update() + End Sub +#End Region +#Region "incapacidad" + Private Property CcvePersonalIncapacidad As Integer + Get + Return If((ViewState("CcvePersonalIncapacidad") Is Nothing), 0, Convert.ToInt32(ViewState("CcvePersonalIncapacidad"))) + End Get + Set(ByVal value As Integer) + ViewState("CcvePersonalIncapacidad") = value + End Set + End Property + + Protected Sub CargaPersonalIncapacidad() + LimpiaPersonalIncapacidad() + LnkAgregarIncapacidad.Visible = False + LnkActualizarIncapacidad.Visible = False + CcvePersonalIncapacidad = 0 + + Using ObjPers As ClsNominas = New ClsNominas() + ObjPers.PersonalIncapacidadGet(-1, CvePersonal, UsuarioActual.CveEmpresa) + GVNom_PersonalIncapacidad.DataSource = ObjPers.DtResultados + End Using + + GVNom_PersonalIncapacidad.DataBind() + UpsrIncapacidadpersonal.Update() + End Sub + + Protected Sub LimpiaPersonalIncapacidad() + TxtSRINCfolio.Text = "" + TxtSRINCfechaInicio.Text = "" + TxtSRINCdiasAutorizados.Text = "" + DdlSRINCcveTipodeIncidencia.SelectedValue = "-1" + DdlSRINCcveRamoSeguro.SelectedValue = "-1" + DdlSRINCcveTipoRiesgo.SelectedValue = "-1" + TxtSRINCporcentajedeIncapacidad.Text = "100" + DdlSRINCcveSecuelaConsecuencia.SelectedValue = "-1" + DdlSRINCcveControlIncapacidad.SelectedValue = "-1" + TxtSRINCdescripcion.Text = "" + UpsrIncapacidadpersonal.Update() + End Sub + + Protected Sub LnkPersonalIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs) + LimpiaPersonalIncapacidad() + Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + CcvePersonalIncapacidad = gvRow.DataKey("CvePersonalIncapacidad").ToEntero() + Dim cvePersonal As Integer = gvRow.DataKey("CvePersonal").ToEntero() + Dim folio As String = gvRow.DataKey("Folio") + Dim fechaInicio As DateTime = gvRow.DataKey("FechaInicio").ToDateTime() + Dim diasAutorizados As Integer = gvRow.DataKey("DiasAutorizados").ToEntero() + Dim diasPagoEmpresa As Integer = gvRow.DataKey("DiasPagoEmpresa").ToEntero() + Dim cveTipodeIncidencia As Integer = gvRow.DataKey("CveTipodeIncidencia").ToEntero() + Dim cveRamoSeguro As Integer = gvRow.DataKey("CveRamoSeguro").ToEntero() + Dim cveTipoRiesgo As Integer = gvRow.DataKey("CveTipoRiesgo").ToEntero() + Dim porcentajedeIncapacidad As Integer = gvRow.DataKey("PorcentajedeIncapacidad").ToEntero() + Dim cveSecuelaConsecuencia As Integer = gvRow.DataKey("CveSecuelaConsecuencia").ToEntero() + Dim cveControlIncapacidad As Integer = gvRow.DataKey("CveControlIncapacidad").ToEntero() + Dim descripcion As String = gvRow.DataKey("Descripcion") + TxtSRINCfolio.Text = folio.ToString() + TxtSRINCfechaInicio.Text = $"{fechaInicio}" + TxtSRINCdiasAutorizados.Text = diasAutorizados.ToString() + TxtDiasPagoEmpresa.Text = diasPagoEmpresa.ToString() + DdlSRINCcveTipodeIncidencia.SelectedValueExist(cveTipodeIncidencia.ToString()) + DdlSRINCcveRamoSeguro.SelectedValueExist(cveRamoSeguro.ToString()) + DdlSRINCcveTipoRiesgo.SelectedValueExist(cveTipoRiesgo.ToString()) + TxtSRINCporcentajedeIncapacidad.Text = porcentajedeIncapacidad.ToString() + DdlSRINCcveSecuelaConsecuencia.SelectedValueExist(cveSecuelaConsecuencia.ToString()) + DdlSRINCcveControlIncapacidad.SelectedValueExist(cveControlIncapacidad.ToString()) + TxtSRINCdescripcion.Text = descripcion.ToString() + LnkAgregarIncapacidad.Visible = False + LnkActualizarIncapacidad.Visible = True + RegistraScript("$('#ModalSRIncapacidad').modal()") + End Sub + + Protected Sub LnkshowaaddIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs) + LimpiaPersonalIncapacidad() + LnkAgregarIncapacidad.Visible = True + LnkActualizarIncapacidad.Visible = False + CcvePersonalIncapacidad = 0 + RegistraScript("$('#ModalSRIncapacidad').modal()") + End Sub + + Protected Sub LnkAgregarIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim folio As String = TxtSRINCfolio.Text + Dim fechaInicio As DateTime = TxtSRINCfechaInicio.Text.ToDateTime() + Dim diasAutorizados As Integer = TxtSRINCdiasAutorizados.Text.ToEntero() + Dim DiasPagoEmpresa As Integer = TxtDiasPagoEmpresa.Text.ToEntero() + Dim cveTipodeIncidencia As Integer = DdlSRINCcveTipodeIncidencia.Text.ToEntero() + Dim cveRamoSeguro As Integer = DdlSRINCcveRamoSeguro.Text.ToEntero() + Dim cveTipoRiesgo As Integer = DdlSRINCcveTipoRiesgo.Text.ToEntero() + Dim porcentajedeIncapacidad As Integer = TxtSRINCporcentajedeIncapacidad.Text.ToEntero() + Dim cveSecuelaConsecuencia As Integer = DdlSRINCcveSecuelaConsecuencia.Text.ToEntero() + Dim cveControlIncapacidad As Integer = DdlSRINCcveControlIncapacidad.Text.ToEntero() + Dim descripcion As String = TxtSRINCdescripcion.Text + Dim Continuar As Boolean + + Using ObjPers As ClsNominas = New ClsNominas() + Continuar = ObjPers.PersonalIncapacidadAdd(UsuarioActual.CveUsuario, CvePersonal, folio, fechaInicio, diasAutorizados, cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion, DiasPagoEmpresa) + End Using + + If Continuar Then + CargaPersonalIncapacidad() + UpsrIncapacidadpersonal.Update() + Me.Alert("La incapacidad se ha agregado.", TipoMensaje.ToastInformacion) + RegistraScript("$('#ModalSRIncapacidad').modal('hide')") + End If + End Sub + + Protected Sub LnkActualizarIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim folio As String = TxtSRINCfolio.Text + Dim fechaInicio As DateTime = TxtSRINCfechaInicio.Text.ToDateTime() + Dim diasAutorizados As Integer = TxtSRINCdiasAutorizados.Text.ToEntero() + Dim DiasPagoEmpresa As Integer = TxtDiasPagoEmpresa.Text.ToEntero() + Dim cveTipodeIncidencia As Integer = DdlSRINCcveTipodeIncidencia.Text.ToEntero() + Dim cveRamoSeguro As Integer = DdlSRINCcveRamoSeguro.Text.ToEntero() + Dim cveTipoRiesgo As Integer = DdlSRINCcveTipoRiesgo.Text.ToEntero() + Dim porcentajedeIncapacidad As Integer = TxtSRINCporcentajedeIncapacidad.Text.ToEntero() + Dim cveSecuelaConsecuencia As Integer = DdlSRINCcveSecuelaConsecuencia.Text.ToEntero() + Dim cveControlIncapacidad As Integer = DdlSRINCcveControlIncapacidad.Text.ToEntero() + Dim descripcion As String = TxtSRINCdescripcion.Text + Dim Continuar As Boolean + + Using ObjPers As ClsNominas = New ClsNominas() + Continuar = ObjPers.PersonalIncapacidadUp(UsuarioActual.CveUsuario, CcvePersonalIncapacidad, folio, fechaInicio, diasAutorizados, cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion, DiasPagoEmpresa) + End Using + + If Continuar Then + CargaPersonalIncapacidad() + UpsrIncapacidadpersonal.Update() + Me.Alert("La incapacidad se ha actualizado.", TipoMensaje.ToastInformacion) + RegistraScript("$('#ModalSRIncapacidad').modal('hide')") + End If + End Sub +#End Region + + + Protected Sub LnkActivar_Click(sender As Object, e As EventArgs) + LblEstatus.Text = "Activar personal" + LblFechaEstatus.Text = "Fecha ingreso ó reingreso" + TxtFechaEstatus.Text = "" + RegistraScript("$('#ModalUpEstatus').modal();") + upPersonEstatus.Update() + End Sub + + Protected Sub LnkDesactivar_Click(sender As Object, e As EventArgs) + LblEstatus.Text = "Desactivar personal" + LblFechaEstatus.Text = "Fecha baja" + TxtFechaEstatus.Text = "" + RegistraScript("$('#ModalUpEstatus').modal();") + upPersonEstatus.Update() + End Sub + + Protected Sub LnkUpEstatus_Click(sender As Object, e As EventArgs) + Dim fini As DateTime + Dim ffin As DateTime + Dim fecha As DateTime = TxtFechaEstatus.Text.ToDateTime() + + If GvPersonalAltas.Rows.Count > 0 Then + Dim gvrow As GridViewRow = GvPersonalAltas.Rows(0) + fini = gvrow.DataKey("FechaInicio").ToDateTime() + ffin = gvrow.DataKey("FechaFin").ToDateTime() + + End If + Dim estatus = -1 + Dim continuar = False + + + If (LnkActivar.Visible) Then + estatus = 1 + If ffin >= fecha Then + continuar = False + Alert(String.Format("la '{0}' debe ser mayor a {1:dd/MM/yyyy}", LblFechaEstatus.Text, ffin), TipoMensaje.MsgAdvertencia) + Else + continuar = True + + End If + Else + + estatus = 2 + If fini >= fecha Then + continuar = False + Alert(String.Format("la '{0}' debe ser mayor a {1:dd/MM/yyyy}", LblFechaEstatus.Text, fini), TipoMensaje.MsgAdvertencia) + Else + continuar = True + + End If + End If + + + If continuar Then + + RegistraScript("$('#ModalUpEstatus').modal('hide');") + Alert("Se guardo correctamente", TipoMensaje.MsgInformacion) + CargaDatos() + End If + End Sub End Class diff --git a/SAT/SolicitudesNominaSat.aspx b/SAT/SolicitudesNominaSat.aspx index 92de2442c..d4ec0e936 100644 --- a/SAT/SolicitudesNominaSat.aspx +++ b/SAT/SolicitudesNominaSat.aspx @@ -14,7 +14,7 @@ } .ajax__tab_xp .ajax__tab_body { - font-family: verdana,tahoma,helvetica; + font-family: "Open Sans", sans-serif; font-size: 12px; } @@ -131,12 +131,13 @@ background-color: #3598dc; color: #FFF; } - + .reporte5 .GVSolicitudTimbreNominaGral tr td:nth-child(2), .reporte5 .GVSolicitudTimbreNominaGral tr td:nth-child(3), - .reporte5 .GVSolicitudTimbreNominaGral tr td:nth-child(4){ - text-align:right + .reporte5 .GVSolicitudTimbreNominaGral tr td:nth-child(4) { + text-align: right } + .reporte5 .GVSolicitudTimbreNominaGral tr th:nth-child(2) /*, .reporte5 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2)*/ { background-color: #C46B06; @@ -490,121 +491,95 @@ -
    -
    -
    - - -
    -
    - - -
    -
    -
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    -
    - - -
    -
    - - -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     From f76e42b2e8f40985ebc7e20544125e044f004617 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sun, 14 Aug 2022 23:56:47 -0700 Subject: [PATCH 4/6] --- App_Code/ClsRH.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 96d7cd193..d8aa2d0f5 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -7346,7 +7346,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False Data = New DataTable - SqlDataAdapter("estatusPersonalUp") + SqlDataAdapter("PA_RH_EstatusPersonalUp") With SqlAdapter.SelectCommand.Parameters .Add("@Fecha", SqlDbType.DateTime).Value = Fecha .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal From 262804eab079b7852e03afb7d1e4ecf0a4932a47 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 15 Aug 2022 10:15:02 -0700 Subject: [PATCH 5/6] eFacturas Solicitdes SAt solo empresas con PFX, Rep CxC detalle incluir cartera en impresion de reporte. --- Compras/eFacturas.aspx | 3 + Compras/eFacturas.aspx.vb | 13 + CxC/RepCxCDetalle.aspx.vb | 54 ++- Empresas/Grales/Formatos/RepCxCDetalle.rdlc | 476 +++++++++++++++++++- Ventas/RepVentas.aspx.vb | 2 +- 5 files changed, 531 insertions(+), 17 deletions(-) diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index ec13217d4..670f7fa0d 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -30,6 +30,9 @@ .table table-striped table-hover dataTable no-footer { margin-top: 0px !important; } + .ajax__tab_xp .ajax__tab_body { + font-size: 12px !important; + } diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 6fc2bdb8f..295d0a10a 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -778,6 +778,7 @@ Partial Class Compras_eFacturas CargaGvBitacora() CargaDatos() + MostrarSolcitudesSAT() End If removeasincevent() End Sub @@ -2976,6 +2977,18 @@ Partial Class Compras_eFacturas End If End Sub + Private Sub MostrarSolcitudesSAT() + LnkShowSolicitudes.Visible = False + + If UsuarioActual.Empresa.ArchivoPfx.Trim.Length > 0 Then + Dim ArchivoCertificado As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.ArchivoPfx}" + If File.Exists(ArchivoCertificado) Then + LnkShowSolicitudes.Visible = True + End If + End If + + End Sub + #End Region diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index e6a841ce5..3e189178f 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -426,8 +426,13 @@ Partial Class RepCxCDetalle If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True End Sub - Private Function CargaDatos() As DataTable - Dim dt As DataTable = Nothing + Private Function CargaDatos() As DataSet + + Dim DSRespuesta As New DataSet + + Dim DTaDAtos As New DataTable + Dim DTCartera As New DataTable + Dim ObjMovtos As New ClsMovimientos() Dim FechaI, FechaF, FechaVI, FechaVF As String @@ -452,10 +457,20 @@ Partial Class RepCxCDetalle CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0)) Then - GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0) - dt = ObjMovtos.DSResultados.Tables(0) + GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0) + + 'DTaDAtos = ObjMovtos.DSResultados.Tables(0) + 'DTaDAtos.TableName = "DTaDAtos" + DSRespuesta.Tables.Add(ObjMovtos.DSResultados.Tables(0).Copy) + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + GvCartera.DataSource = ObjMovtos.DSResultados.Tables(1) + + 'DTCartera = ObjMovtos.DSResultados.Tables(1) + 'DTCartera.TableName = "DTCartera" + DSRespuesta.Tables.Add(ObjMovtos.DSResultados.Tables(1).Copy) + End If @@ -475,7 +490,7 @@ Partial Class RepCxCDetalle UPDatos.Update() UpCartera.Update() - Return dt + Return DSRespuesta End Function @@ -949,11 +964,36 @@ Partial Class RepCxCDetalle Else params.Add(New ReportParameter("LogoPath", "")) End If + + + Dim lrds As New List(Of ReportDataSource) + + Dim DSDatos As DataSet = CargaDatos() + + Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DSDatos.Tables(0)} + lrds.Add(rds) + + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + Dim rdsCartera As New ReportDataSource With {.Name = "DSCartera", .Value = DSDatos.Tables(1)} + lrds.Add(rdsCartera) + Else + Dim DTCartera As New DataTable + DTCartera.Columns.Add("Rango") + DTCartera.Columns.Add("Saldo", GetType(Decimal)) + DTCartera.Columns.Add("Porcentaje", GetType(Decimal)) + DTCartera.Columns.Add("Objetivo", GetType(Decimal)) + Dim rdsCartera As New ReportDataSource With {.Name = "DSCartera", .Value = DTCartera} + lrds.Add(rdsCartera) + End If + + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepCxCDetalle.rdlc", UsuarioActual.Empresa.Ruta)) If Archivo.Exists Then - ImprimirPDF(String.Format("{0}Formatos/RepCxCDetalle.rdlc", UsuarioActual.Empresa.Ruta), CargaDatos, params, "ReporteCxCDetalle", TipoImpresion) + ImprimirPDF(String.Format("{0}Formatos/RepCxCDetalle.rdlc", UsuarioActual.Empresa.Ruta), lrds, params, "ReporteCxCDetalle", TipoImpresion) Else - ImprimirPDF("Empresas/Grales/Formatos/RepCxCDetalle.rdlc", CargaDatos, params, "ReporteCxCDetalle", TipoImpresion) + ImprimirPDF("Empresas/Grales/Formatos/RepCxCDetalle.rdlc", lrds, params, "ReporteCxCDetalle", TipoImpresion) End If diff --git a/Empresas/Grales/Formatos/RepCxCDetalle.rdlc b/Empresas/Grales/Formatos/RepCxCDetalle.rdlc index 4aeb0b169..4f7fbd6a6 100644 --- a/Empresas/Grales/Formatos/RepCxCDetalle.rdlc +++ b/Empresas/Grales/Formatos/RepCxCDetalle.rdlc @@ -1202,8 +1202,435 @@ + + + + + 2.5cm + + + 2.5cm + + + 2.5cm + + + 2.5cm + + + + + 0.49417cm + + + + + true + true + + + + + Rango Días + + + + + + + Textbox15 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox19 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % + + + + + + + Textbox23 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + Objetivo + + + + + + + Textbox26 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.2825cm + + + + + true + true + + + + + =Fields!Rango.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Porcentaje.Value + + + + + + + Porcentaje + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Objetivo.Value + + + + + + + Objetivo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DSCartera + 1.6429cm + 0.77667cm + 10cm + 1 + + =IIF(CountRows()>0,false,true) + + + + + - 0.78933in + 0.99425in - 0.11642cm + 0.11641cm 0.0635cm 0cm 26.34825cm @@ -1549,7 +1975,7 @@ Textbox13 - 0.6103cm + 0.61029cm 0.14cm 0.6cm 6.69369cm @@ -1651,6 +2077,38 @@ + + + DataSet + /* Local Query */ + + + + Rango + System.String + + + Saldo + System.Double + + + Porcentaje + System.Double + + + Objetivo + System.Double + + + + DataSet + C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DSCartera.xsd + DataTable1 + + + + + diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index ae9338284..c551a0f98 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -957,7 +957,7 @@ Partial Class Ventas_RepVentas ObjVentas.Dispose() - DTDataos.ExportToExcel("RepCartasPorte.xls") + DTDataos.ExportToExcel("RepCartasPorte") End Sub From bac2fb339e09c984ae159ceb63b5f9a833376229 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 15 Aug 2022 16:31:03 -0700 Subject: [PATCH 6/6] =?UTF-8?q?Clientes=20Abonar=20Liquidaci=C3=B3n=20Semi?= =?UTF-8?q?lla?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ClientesAbonar.aspx | 14 ++++++++++---- Ventas/ClientesAbonar.aspx.vb | 30 +++++++++++++++++++++++------- 2 files changed, 33 insertions(+), 11 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index 0258b17f2..cb3cafa40 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -462,19 +462,25 @@ <%--25--%> + + + + + + <%--26--%> - <%--26--%> + <%--27--%> - <%--27--%> + <%--28--%> @@ -482,7 +488,7 @@ - <%--28--%> + <%--29--%> Auxiliar @@ -490,7 +496,7 @@ - <%--29--%> + <%--30--%> Comp
    Pago     diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 9c38fd83e..d31a60e0f 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -391,7 +391,8 @@ Partial Class Ventas_ClientesAbonar GvCxC.Columns(22).HeaderText = "Diversos" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol6).FiltroPrimeroValor("Clasificacion").Substring(0, 12) GvCxC.Columns(23).HeaderText = "Aduana
    USA" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12) GvCxC.Columns(24).HeaderText = "Material
    Empaque" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12) - GvCxC.Columns(25).HeaderText = "Total
    Gastos" + GvCxC.Columns(25).HeaderText = "Semilla" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12) + GvCxC.Columns(26).HeaderText = "Total
    Gastos" DvLiquidacion1.Visible = True DvLiquidacion2.Visible = True @@ -549,6 +550,7 @@ Partial Class Ventas_ClientesAbonar e.Row.FCTextBox("TxtLiqCol6").Visible = False e.Row.FCTextBox("TxtLiqCol7").Visible = False e.Row.FCTextBox("TxtLiqCol8").Visible = False + e.Row.FCTextBox("TxtLiqCol9").Visible = False e.Row.FCTextBox("TxtLiqColT").Visible = False e.Row.FCTextBox("TxtAmort").Visible = False e.Row.FCTextBox("TxtAmort2").Visible = False @@ -638,6 +640,8 @@ Partial Class Ventas_ClientesAbonar e.Row.FCTextBox("TxtLiqCol6").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") e.Row.FCTextBox("TxtLiqCol7").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") e.Row.FCTextBox("TxtLiqCol8").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") + e.Row.FCTextBox("TxtLiqCol9").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") + e.Row.FCTextBox("TxtLiqColT").Attributes.Add("class", $"ClsSelLiqVentaTotal{e.Row.DBCampo("CveVenta")}") e.Row.FCTextBox("TxtAmort").Attributes.Add("class", $"ClsSelLiqAnt") e.Row.FCTextBox("TxtAmort2").Attributes.Add("class", $"ClsSelLiqAnt") @@ -650,6 +654,7 @@ Partial Class Ventas_ClientesAbonar e.Row.FCTextBox("TxtLiqCol6").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtLiqCol7").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtLiqCol8").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") + e.Row.FCTextBox("TxtLiqCol9").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtAmort").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtAmort2").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") @@ -1005,6 +1010,7 @@ Partial Class Ventas_ClientesAbonar Dim ImporteLiq6 As Decimal = gvr.FCTextBox("TxtLiqCol6").Text.ToDecimal Dim ImporteLiq7 As Decimal = gvr.FCTextBox("TxtLiqCol7").Text.ToDecimal Dim ImporteLiq8 As Decimal = gvr.FCTextBox("TxtLiqCol8").Text.ToDecimal + Dim ImporteLiq9 As Decimal = gvr.FCTextBox("TxtLiqCol9").Text.ToDecimal Dim CveClasificacionCol1 As Integer = 21514 'comisiones sobre venta Dim CveClasificacionCol2 As Integer = 21916 ' manejo @@ -1014,6 +1020,7 @@ Partial Class Ventas_ClientesAbonar Dim CveClasificacionCol6 As Integer = 21920 ' diveros Dim CveClasificacionCol7 As Integer = 21919 'gastos aduanales usa Dim CveClasificacionCol8 As Integer = 21211 'material Empaque + Dim CveClasificacionCol9 As Integer = 21207 'Semilla Dim CveSubProyectoLiquidacion As Integer = gvr.DataKey("CveSubProyecto").ToEntero Dim CveConceptoLiquidacion As Integer = 51 @@ -1068,6 +1075,13 @@ Partial Class Ventas_ClientesAbonar End If End If + If ImporteLiq9 <> 0 Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiq9, gvr.DataKey("SerieFolio"), CveConceptoLiquidacion, ConceptoPartida, Now, -1, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiq9 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol9, ImporteME:=If(CveMoneda > 1, ImporteLiq9, 0), CveTipoGasto:=gvr.FCDropDownList("DdlTG").SelectedValue.ToEntero) Then + MsgError = "No se pudo insertar la póliza" + Exit For + End If + End If + If gvr.FCDropDownList("DdlAnti").SelectedValue.ToEntero > 0 Then Dim TCP As Decimal = 0 Dim FolioPago As String = " " @@ -2900,11 +2914,12 @@ Partial Class Ventas_ClientesAbonar GvCxC.Columns(23).Visible = True GvCxC.Columns(24).Visible = True GvCxC.Columns(25).Visible = True - GvCxC.Columns(26).Visible = True 'anticipos - GvCxC.Columns(27).Visible = True 'anticipos2 + GvCxC.Columns(26).Visible = True + GvCxC.Columns(27).Visible = True 'anticipos + GvCxC.Columns(28).Visible = True 'anticipos2 - GvCxC.Columns(28).Visible = False GvCxC.Columns(29).Visible = False + GvCxC.Columns(30).Visible = False Else @@ -2924,11 +2939,12 @@ Partial Class Ventas_ClientesAbonar GvCxC.Columns(23).Visible = False GvCxC.Columns(24).Visible = False GvCxC.Columns(25).Visible = False - GvCxC.Columns(26).Visible = False 'anticipos - GvCxC.Columns(27).Visible = False 'anticipos2 + GvCxC.Columns(26).Visible = False + GvCxC.Columns(27).Visible = False 'anticipos + GvCxC.Columns(28).Visible = False 'anticipos2 - GvCxC.Columns(28).Visible = True GvCxC.Columns(29).Visible = True + GvCxC.Columns(30).Visible = True End If