AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
AbrahamCastilloV
2024-01-08 13:58:27 -07:00
parent 937902c363 b24ad9f94d
commit 3674c05d20
7 changed files with 66 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/Modelos.vb
View File

@@ -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

4
App_Code/modExtensiones.vb
View File

@@ -821,6 +821,10 @@ Namespace Extensiones
End If
Return Tmp
End Function
<Runtime.CompilerServices.Extension()>
Public Function SubStringADS(Str As String, Longitud As Integer) As String
Return Str.Substring(0, If(Str.Length > Longitud, Longitud, Str.Length))
End Function
<Runtime.CompilerServices.Extension()>
Public Function Texto2Letras(ByVal Importe As Decimal, Optional CveMoneda As Integer = 1) As String

19
Nomina/Finiquito.aspx
View File

@@ -307,6 +307,25 @@
</div>
</div>
</div>
<div class="row">
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDiasVacaciones" runat="server" Enabled="false" Text="--" CausesValidation="True" CssClass="form-control"></asp:TextBox>
<asp:Label runat="server" Text="DíasVacaciones: " AssociatedControlID="TxtDiasVacaciones"></asp:Label>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDiasAguinaldo" runat="server" Enabled="false" Text="--" CausesValidation="True" CssClass="form-control"></asp:TextBox>
<asp:Label runat="server" Text="Días Aguinaldo: " AssociatedControlID="TxtDiasAguinaldo"></asp:Label>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
</div>
</div>
</div>
<div class="gconceptos" runat="server" id="gconceptos">
<div class="text-center tconceptos">Conceptos a incluir</div>
<div class="row">

5
Nomina/Finiquito.aspx.cs
View File

@@ -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("<pre>{0:##,###,###.00##}</pre>", drow["SDI"]);
LtlSFDias.Text = string.Format("<pre>{0:##,###,###}</pre>", drow["diasMesAnterior"]);
LtlSFPercepciones.Text = string.Format("<pre>{0:##,###,###.00##}</pre>", drow["TotalPercepciones"]);

7
RH/CalculoSBC.aspx.cs
View File

@@ -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();
}
}
}

12
RH/Personal.aspx.vb
View File

@@ -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

23
Ventas/Ventas.aspx.vb
View File

@@ -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.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
End If
End Sub
Private Sub SaldarVenta()
'Dim ObjVenta As New ClsVentas