From b01f85b07118dbb8229bbf19247fa7192b37e968 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sun, 7 Jan 2024 13:30:52 -0700 Subject: [PATCH 1/5] cambios en finiquito y SBC --- Nomina/Finiquito.aspx | 19 +++++++++++++++++++ Nomina/Finiquito.aspx.cs | 5 +++-- RH/CalculoSBC.aspx.cs | 7 +++++++ RH/Personal.aspx.vb | 12 +++++++++++- 4 files changed, 40 insertions(+), 3 deletions(-) diff --git a/Nomina/Finiquito.aspx b/Nomina/Finiquito.aspx index cf5670537..f7c647ca5 100644 --- a/Nomina/Finiquito.aspx +++ b/Nomina/Finiquito.aspx @@ -307,6 +307,25 @@ + +
+
+
+ + +
+
+
+
+ + +
+
+
+
+
+
+
Conceptos a incluir
diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 266ec3e36..d1381fe2a 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -803,14 +803,15 @@ public partial class Nomina_Finiquito : ClsPaginas } else { continuar = false; } if (continuar) { continuar = validaAutorizado(onom); } - if (continuar) + if (continuar && (continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, diasindemnizacion: Txtdiasindemnizacion.Text.ToEntero()))) { - continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, diasindemnizacion: Txtdiasindemnizacion.Text.ToEntero()); if (onom.DtResultados.Rows.Count > 0) { DataRow drow = onom.DtResultados.Rows[0]; LnkShowFfiniquito.Text = string.Format("{0:##,###,###.00##}", drow["SalarioBC"]); + TxtDiasVacaciones.Text = string.Format("{0:##,###,###.00##}", drow["dvacporcentaje"]); + TxtDiasAguinaldo.Text = string.Format("{0:##,###,###.00##}", drow["dAguinaldo"]); LtlSFSDI.Text = string.Format("
{0:##,###,###.00##}
", drow["SDI"]); LtlSFDias.Text = string.Format("
{0:##,###,###}
", drow["diasMesAnterior"]); LtlSFPercepciones.Text = string.Format("
{0:##,###,###.00##}
", drow["TotalPercepciones"]); diff --git a/RH/CalculoSBC.aspx.cs b/RH/CalculoSBC.aspx.cs index 0e9ba31cc..5d836103a 100644 --- a/RH/CalculoSBC.aspx.cs +++ b/RH/CalculoSBC.aspx.cs @@ -85,8 +85,10 @@ public partial class RH_CalculoSBC : ClsPaginas string SuaFiletext = System.IO.File.ReadAllText(fileurl, Encoding.GetEncoding("iso-8859-1")); using (ClsNominas ObjPersonal = new ClsNominas()) { + ObjPersonal.IniciaTransacSQL(); if (ObjPersonal.ProcesarSUA(SuaFiletext, UsuarioActual.CveEmpresa)) { + ObjPersonal.Commit(); if (ObjPersonal.DTSetResultados.Tables.Count > 4) { DateTime dateperiodo; @@ -96,6 +98,11 @@ public partial class RH_CalculoSBC : ClsPaginas GVProcesarSUA.DataSource = ObjPersonal.DTSetResultados.Tables[3]; } } + else + { + ObjPersonal.RollBack(); + + } } } diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 7395a49c5..666f3b450 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -6972,7 +6972,10 @@ Partial Class RH_Personal calcularSDI() Using ObjPersonal As ClsRH = New ClsRH() + ObjPersonal.IniciaTransacSQL() + If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then + ObjPersonal.Commit() TxtSalarioDiario.Text = TxtFISalariodiario.Text TxtSalarioDiarioM.Text = TxtFISalariodiario.Text TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text @@ -6980,8 +6983,10 @@ Partial Class RH_Personal TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text TxtSDI.Text = TxtFISalarioDiarioIntegrado.Text UpDatos.Update() - Alert("Se ha actualizado el salario diario integreado") + Alert("Se ha actualizado el salario diario integrado") RegistraScript("$('#DmodalFactordeIntegraccion').modal('hide')") + Else + ObjPersonal.RollBack() End If End Using End Sub @@ -7002,9 +7007,12 @@ Partial Class RH_Personal TxtSalarioDiarioImSS.Text = (TxtFISalarioDiarioIntegrado.Text.ToDecimal() + salarioVariable).ToString() TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text Using ObjPersonal As ClsRH = New ClsRH() + ObjPersonal.IniciaTransacSQL() If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then + ObjPersonal.Commit() + TxtSalarioDiario.Text = TxtSalarioDiarioM.Text TxtFISalariodiario.Text = TxtSalarioDiarioM.Text TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text @@ -7014,6 +7022,8 @@ Partial Class RH_Personal UpModSalario.Update() UpDatos.Update() Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion) + Else + ObjPersonal.RollBack() End If End Using From 6704d38b9903a295dd4fbbaa16f230977b1e19d4 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 8 Jan 2024 08:28:56 -0700 Subject: [PATCH 2/5] - longitud del usuario --- Ventas/Ventas.aspx.vb | 23 +++++++++++++++++++++-- 1 file changed, 21 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 5a7f08614..0fe7531bd 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5194,7 +5194,7 @@ Partial Class Ventas HdnTotalVenta.Value = DbRowVenta("Total").ToString().FormatoNumero(2) TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString() TxtObsFact.Text = DbRowVenta("Observaciones").ToString() - LblUsuario.Text = DbRowVenta("Nombre").ToString() + LblUsuario.Text = DbRowVenta("Nombre").ToString().Substring(0, If(DbRowVenta("Nombre").ToString.Length > 30, 30, DbRowVenta("Nombre").ToString.Length)) LblFechaRegistro.Text = DbRowVenta("FechaIng").ToString().ToDate.ToShortDateString LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString() LblMail.Text = DbRowVenta("EnvioMail").ToString() @@ -26187,7 +26187,26 @@ Partial Class Ventas #Region " SALDAR VENTA " Protected Sub BtnSaldarVenta_Click(sender As Object, e As EventArgs) - SaldarVenta() + 'SaldarVenta() + + Dim ObjCancelacion As New Timbrado + + Dim FolioFiscal As String = LblFolioFiscal.Text + Dim RFCEmisor As String = UsuarioActual.Empresa.RFC + Dim RFCReceptor As String = LblRFC.Text + Dim CvePACCancelacion As Integer = 4 + + + Dim RespCancelacion As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TxtTotal.Text.ToDecimal, RFCReceptor, RFCEmisor, CvePACCancelacion, CveSATMotivoCancelacion:=3) + + If RespCancelacion.Verificado Then + + + + Else + Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.
Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError) + End If + End Sub Private Sub SaldarVenta() 'Dim ObjVenta As New ClsVentas From 6769d82e23a96e925e6fcbcd200ef4b4c9b960ba Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 8 Jan 2024 11:05:29 -0700 Subject: [PATCH 3/5] =?UTF-8?q?-=20nuevo=20m=C3=A9todo=20SubString?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/modExtensiones.vb | 4 ++++ Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index d79ec8554..cdc3e0a1b 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -821,6 +821,10 @@ Namespace Extensiones End If Return Tmp End Function + + Public Function SubStringADS(Str As String, Longitud As Integer) As String + Return Str.Substring(0, If(Str.Length > 30, 30, Str.Length)) + End Function Public Function Texto2Letras(ByVal Importe As Decimal, Optional CveMoneda As Integer = 1) As String diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 0fe7531bd..a92e64d81 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5194,7 +5194,7 @@ Partial Class Ventas HdnTotalVenta.Value = DbRowVenta("Total").ToString().FormatoNumero(2) TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString() TxtObsFact.Text = DbRowVenta("Observaciones").ToString() - LblUsuario.Text = DbRowVenta("Nombre").ToString().Substring(0, If(DbRowVenta("Nombre").ToString.Length > 30, 30, DbRowVenta("Nombre").ToString.Length)) + LblUsuario.Text = DbRowVenta("Nombre").ToString().SubStringADS(30) LblFechaRegistro.Text = DbRowVenta("FechaIng").ToString().ToDate.ToShortDateString LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString() LblMail.Text = DbRowVenta("EnvioMail").ToString() From b92fede0e352c227b1ce49e00dc6b66701355df9 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 8 Jan 2024 11:08:22 -0700 Subject: [PATCH 4/5] - --- App_Code/Modelos.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 100ca0f8b..ec1b61e57 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -7563,7 +7563,7 @@ Namespace Modelos Public Property CveVendedor As Integer = 0 Public Property VendedorCodigo As String = "" Public Property CveSucursalEjecucion As Integer - Public Property FechaEjecucion As Date + Public Property FechaEjecucion As DateTime Public Property CveSucursalCobranza As Integer Public Property CveSubProyectoCobranza As Integer From b24ad9f94dfb78dd95fa18dcc74c6601b7e04e4b Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 8 Jan 2024 11:09:04 -0700 Subject: [PATCH 5/5] - --- App_Code/modExtensiones.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index cdc3e0a1b..120c31636 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -823,7 +823,7 @@ Namespace Extensiones End Function Public Function SubStringADS(Str As String, Longitud As Integer) As String - Return Str.Substring(0, If(Str.Length > 30, 30, Str.Length)) + Return Str.Substring(0, If(Str.Length > Longitud, Longitud, Str.Length)) End Function