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 diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index d79ec8554..120c31636 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 > Longitud, Longitud, Str.Length)) + End Function Public Function Texto2Letras(ByVal Importe As Decimal, Optional CveMoneda As Integer = 1) As String 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 diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 5a7f08614..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() + LblUsuario.Text = DbRowVenta("Nombre").ToString().SubStringADS(30) 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