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

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

App_Code/modExtensiones.vb

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

Nomina/Finiquito.aspx

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

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("<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"]);

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

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
 

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