From baf0c5ce5736812bb5c463dcf02506d77da75d08 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 19 Aug 2023 08:40:54 -0700 Subject: [PATCH] - addprepolizasdetalle --- Contabilidad/CatClasificacionPorcentaje.aspx | 137 ---------------- .../CatClasificacionPorcentaje.aspx.vb | 150 ------------------ Nomina/Nomina.aspx.cs | 10 +- Nomina/ReportePTU.aspx.vb | 2 +- RH/CatPersonal.aspx.vb | 3 +- Sistemas/CatSesiones.aspx.vb | 19 +-- 6 files changed, 8 insertions(+), 313 deletions(-) delete mode 100644 Contabilidad/CatClasificacionPorcentaje.aspx delete mode 100644 Contabilidad/CatClasificacionPorcentaje.aspx.vb diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx b/Contabilidad/CatClasificacionPorcentaje.aspx deleted file mode 100644 index 728874eca..000000000 --- a/Contabilidad/CatClasificacionPorcentaje.aspx +++ /dev/null @@ -1,137 +0,0 @@ -<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatClasificacionPorcentaje.aspx.vb" Inherits="Contabilidad_CatClasificacionPorcentaje" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - - - - - - Catálogo de Clasificacion Porcentaje - - - - -
  • - -
    • - -     -     -     - - - - - - - - - - - - - <%----%> - - -
    - -   -
    -     - - - -     - - - - - -     - - -     - - - -     -     -     - - diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx.vb b/Contabilidad/CatClasificacionPorcentaje.aspx.vb deleted file mode 100644 index fa155e307..000000000 --- a/Contabilidad/CatClasificacionPorcentaje.aspx.vb +++ /dev/null @@ -1,150 +0,0 @@ -Imports System.Data -Imports Extensiones -Imports Microsoft.Reporting.WebForms - -Partial Class Contabilidad_CatClasificacionPorcentaje - Inherits ClsPaginas - - Private Property DtClasificacionPorcentaje As DataTable - Get - Return CType(ViewState("DtClasificacionPorcentaje"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtClasificacionPorcentaje") = value - End Set - End Property - - Private Property CveClasificacion As Integer - Get - Return CType(ViewState("CveClasificacion"), Integer) - End Get - Set(value As Integer) - ViewState("CveClasificacion") = value - End Set - End Property - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - - CargaDatos() - CargaContPaq() - - End If - End Sub - - Protected Sub CargaDatos() - Dim ObjGenerales As New ClsGenerales - If ObjGenerales.GetClasificacionPorcentaje(UsuarioActual.CveEmpresa, CveClasificacionPorcentaje:=-1, CveClasificacion:=-1, PorcentajeIVA:=-1, Opcion:=2) Then - GvDatos.DataSource = ObjGenerales.DtResultados - DtClasificacionPorcentaje = ObjGenerales.DtResultados - End If - ObjGenerales.Dispose() - GvDatos.DataBind() - - DdlClasificaciones.Items.Add(New ListItem("Seleccione", "-1")) - DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) - DdlClasificaciones.DataBind() - - End Sub - - Protected Sub CargaContPaq() - Dim Empresa As DataTable = GlobalDTEmpresas(UsuarioActual.CveEmpresa) - Dim Servidor As String = Empresa.FiltroPrimeroValor("ServerContPAQi") - Dim BD As String = Empresa.FiltroPrimeroValor("BDContPAQi") - Dim Usuario As String = Empresa.FiltroPrimeroValor("UsrContPAQi") - Dim Contra As String = Empresa.FiltroPrimeroValor("PwdContPAQi") - - Dim ObjPaq As New ClsContPAQi(Servidor, BD, Usuario, Contra) - - DdlIdCtaIVAXAcreditar.Items.Add(New ListItem("Seleccione una cuenta", "-1")) - DdlIdCtaIVAAcreditable.Items.Add(New ListItem("Seleccione una cuenta", "-1")) - DdlIdCtaIVAXTrasladar.Items.Add(New ListItem("Seleccione una cuenta", "-1")) - DdlIdCtaIVATrasladado.Items.Add(New ListItem("Seleccione una cuenta", "-1")) - DdlIdCtaIVANoAcreditable.Items.Add(New ListItem("Seleccione una cuenta", "-1")) - - If ObjPaq.GetCuentas(-1, "-1", -1, IdPadre:=-1) Then - DdlIdCtaIVAXAcreditar.DataSource = ObjPaq.DtResultados - DdlIdCtaIVAAcreditable.DataSource = ObjPaq.DtResultados - DdlIdCtaIVAXTrasladar.DataSource = ObjPaq.DtResultados - DdlIdCtaIVATrasladado.DataSource = ObjPaq.DtResultados - DdlIdCtaIVANoAcreditable.DataSource = ObjPaq.DtResultados - End If - ObjPaq.Dispose() - DdlIdCtaIVAXAcreditar.DataBind() - DdlIdCtaIVAAcreditable.DataBind() - DdlIdCtaIVAXTrasladar.DataBind() - DdlIdCtaIVATrasladado.DataBind() - DdlIdCtaIVANoAcreditable.DataBind() - End Sub - - Protected Sub BtnAgregarMotivo_Click(sender As Object, e As EventArgs) Handles BtnAgregarClas.Click - BtnAgregarTiposDModal.Text = "Agregar" - BtnEditarTiposDModal.Visible = False - BtnAgregarTiposDModal.Visible = True - TxtPorcentajeIva.Text = "" - UpModalTiposD.Update() - RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")) - End Sub - - Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal" - Dim ObjGenerales As New ClsGenerales - If BtnAgregarTiposDModal.Text = "Agregar" Then - If ObjGenerales.AddClasificacionPorcentaje(DdlClasificaciones.SelectedValue, TxtPorcentajeIva.Text.ToDouble, DdlIdCtaIVAXAcreditar.SelectedValue, DdlIdCtaIVAAcreditable.SelectedValue, - DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue, UsuarioActual.CveEmpresa) Then - RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) - Alert("Clasificación porcentaje agregado correctamente") - 'If ObjGenerales.GetClasificacionPorcentaje(-1) Then - ' GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados - 'End If - CargaDatos() - CargaContPaq() - UpDatos.Update() - End If - ElseIf BtnAgregarTiposDModal.Text = "Actualizar" Then - If ObjGenerales.UpdateClasificacionPorcentaje(CveClasificacion, DdlClasificaciones.SelectedValue, TxtPorcentajeIva.Text.ToDouble, DdlIdCtaIVAXAcreditar.SelectedValue, - DdlIdCtaIVAAcreditable.SelectedValue, DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue) Then - RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) - Alert("Clasificación porcentaje actualizado correctamente") - 'If ObjGenerales.GetClasificacionPorcentaje(-1) Then - ' GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados - 'End If - CargaDatos() - CargaContPaq() - UpDatos.Update() - End If - End If - ObjGenerales.Dispose() - End Sub - - Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting - Dim objgenerales As New ClsGenerales - If objgenerales.RemoveClasificacionPorcentaje(GvDatos.DataKeys(e.RowIndex).Value.ToString) Then - Alert("la clasificación porcentaje se eliminó correctamente") - 'If objgenerales.GetClasificacionPorcentaje(-1) Then - ' GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados - 'End If - CargaDatos() - CargaContPaq() - UpDatos.Update() - End If - objgenerales.Dispose() - End Sub - - Public Sub GvDatos_RowEditing(sender As Object, e As EventArgs) - BtnAgregarTiposDModal.Text = "Actualizar" - - Dim renglon As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - DdlClasificaciones.SelectedValue = If(renglon.DataKey("CveClasificacion").ToString IsNot "", renglon.DataKey("CveClasificacion"), "-1") - TxtPorcentajeIva.Text = renglon.DataKey("PorcentajeIVA") - DdlIdCtaIVAXAcreditar.SelectedValue = If(renglon.DataKey("IdCtaIVAXAcreditar").ToString IsNot "", renglon.DataKey("IdCtaIVAXAcreditar"), "-1") - DdlIdCtaIVAAcreditable.SelectedValue = If(renglon.DataKey("IdCtaIVAAcreditable").ToString IsNot "", renglon.DataKey("IdCtaIVAAcreditable"), "-1") - DdlIdCtaIVAXTrasladar.SelectedValue = If(renglon.DataKey("IdCtaIVAXTrasladar").ToString IsNot "", renglon.DataKey("IdCtaIVAXTrasladar"), "-1") - DdlIdCtaIVATrasladado.SelectedValue = If(renglon.DataKey("IdCtaIVATrasladado").ToString IsNot "", renglon.DataKey("IdCtaIVATrasladado"), "-1") - DdlIdCtaIVANoAcreditable.SelectedValue = If(renglon.DataKey("IdCtaIVANoAcreditable").ToString IsNot "", renglon.DataKey("IdCtaIVANoAcreditable"), "-1") - - BtnEditarTiposDModal.Visible = False - BtnAgregarTiposDModal.Visible = True - UpModalTiposD.Update() - RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")) - End Sub -End Class diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 0bf1e6dc0..2137bd2c3 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -7138,15 +7138,7 @@ public partial class Nomina_Nomina2 : ClsPaginas TxtVecesAplicar.Text = vecesAplicar.ToString(); TxtMontoLimite.Text = montoLimite.ToString(); TxtFechaAplicacion.Text = $"{fechaInicioAplicacion:dd/MM/yyyy}"; - DdlCtaContable.SelectedValueExist("-1"); - if (DdlCtaContable.DataValueField == "Id") - { - DdlCtaContable.SelectedValueExist(IdCtaContable); - } - else - { - DdlCtaContable.SelectedValueExist(CveCuenta); - } + DdlCtaContable.SelectedValueExist("-1"); ChkEstatus.Checked = estatus; RegistraScript("$('#ModalMovtoPermanente').modal()"); diff --git a/Nomina/ReportePTU.aspx.vb b/Nomina/ReportePTU.aspx.vb index 80fe73ddb..f38802e4e 100644 --- a/Nomina/ReportePTU.aspx.vb +++ b/Nomina/ReportePTU.aspx.vb @@ -157,7 +157,7 @@ Partial Class Nomina_ReportePTU If Not IsNothing(rowc) Then CveConcepto = rowc("CveConcepto").ToString().ToEntero() Else - CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1, -1) + CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, 0, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1) End If If CveConcepto < 1 Then continuar = False diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 81f918c16..6df9b44f3 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -1193,8 +1193,7 @@ Partial Class RH_CatPersonal 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, + DdlSupervisor.SelectedValue.ToEntero, "", "", DdlJornada.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, "", -1, CveUniforme:=-1, TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151, CveMedioTransporte:=DdlMedioTransporte.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero() ) Then diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index fc9bff1f3..f0e7e95d8 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -92,9 +92,7 @@ Partial Class Sistemas_CatSesiones ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSATMotivoTraslado" Then CargaSATMotivoTraslado() ElseIf DdlVariable.SelectedItem.Value = "GlobalDTConceptosContables" Then - CargaConceptosContables() - ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then - CargaDTClasificacionPorcentaje() + CargaConceptosContables() ElseIf DdlVariable.SelectedItem.Value = "GlobalDTInvPSSeccionesAlmacen" Then CargaDTInvPSSeccionesAlmacen() ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then @@ -471,7 +469,7 @@ Partial Class Sistemas_CatSesiones Dim Gral As New ClsGenerales GlobalDTGralPaises = Nothing 'If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing - If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing + 'If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing Gral.Dispose() End Sub @@ -678,16 +676,9 @@ Partial Class Sistemas_CatSesiones ' Response.Redirect(dominio) 'End If LblTotal.Text = dominio - End Sub - - Private Sub CargaDTClasificacionPorcentaje() - - Dim ObjGenerales As New ClsGenerales - If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing - ObjGenerales.Dispose() - - End Sub - + End Sub + + Private Sub CargaDTInvPSSeccionesAlmacen() GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = Nothing