Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2024-04-19 21:40:18 -07:00
parent 4df7e0840b ae77d20de6
commit f84576561d
13 changed files with 1198 additions and 1170 deletions
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -1099,7 +1099,7 @@ Public Class ClsBancos
            Dim Timbrado As New Timbrado
            Dim CFDIVersion As String = "4.0"

-            If GetComplementoPagosImpuestos(CveIE, UsuarioActual.CveEmpresa) Then
+            If GetComplementoPagosImpuestos(CveIE, UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
                dttpagosimpuestos = DtResultados
            End If

@@ -1386,7 +1386,7 @@ Public Class ClsBancos
        Return Retorno
    End Function

-    Public Function GetComplementoPagosImpuestos(CveIE As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetComplementoPagosImpuestos(CveIE As Integer, CveEmpresa As Integer, Optional CvePrePoliza As Integer = -1) As Boolean
        Dim Retorno As Boolean = False

        DataAdapter("PA_Banc_ComplementoPagoImpuestosGet")
@@ -1394,6 +1394,7 @@ Public Class ClsBancos
        With SqlAdapter.SelectCommand.Parameters
            .Add("@CveIE", SqlDbType.Int).Value = CveIE
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
        End With
        Try
            SqlAdapter.Fill(Data)
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -8831,7 +8831,7 @@ Public Class ClsPaginas
            If File.Exists($"{UsuarioActual.Empresa.Ruta}Formatos\ReciboDePago.rdlc") Then
                rutaArchivo = $"{UsuarioActual.Empresa.Ruta}Formatos\ReciboDePago.rdlc"
            Else
-                rutaArchivo = " \Empresas\Grales\Formatos\ReciboDePago.rdlc"
+                rutaArchivo = "\Empresas\Grales\Formatos\ReciboDePago.rdlc"
            End If
            If Not Directory.Exists($"{UsuarioActual.Empresa.Ruta}\PDF\Pag\") Then Directory.CreateDirectory($"{UsuarioActual.Empresa.Ruta}\PDF\Pag\")
            Dim ArchivoPDF As New System.IO.FileInfo($"{Ruta}PDF\Pag\{Serie}-{Folio}.pdf")
@@ -8843,7 +8843,7 @@ Public Class ClsPaginas
                    Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia)
                End Try
            Else
-                File.WriteAllBytes($"{UsuarioActual.Empresa.Ruta}\PDF\Pag\{SerieFolio}.pdf", StreamPDF(rutaArchivo, lrds, params, "Pago", "PDF"))
+                File.WriteAllBytes($"{UsuarioActual.Empresa.Ruta}PDF\Pag\{SerieFolio}.pdf", StreamPDF(rutaArchivo, lrds, params, "Pago", "PDF"))
            End If
            If imprimir Then
                ImprimirPDF(rutaArchivo, lrds, params, SerieFolio, "PDF")
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -2054,11 +2054,9 @@ Public Class ClsRH
            .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo
            .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
            .Add("@AreaGeografica", SqlDbType.VarChar).Value = AreaGeografica
-
            .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo

-            .Add("@ErrorMostrarADS", SqlDbType.VarChar).Direction = ParameterDirection.Output
-
+            '.Add("@ErrorMostrarADS", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output
            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.Output

        End With
--- a/Ashx/E119.ashx
+++ b/Ashx/E119.ashx
@@ -9,7 +9,7 @@ Imports Newtonsoft.Json
 Imports Newtonsoft.Json.Linq
 Imports Extensiones

-Public Class E119 : Implements IHttpHandler
+Public Class E119 : Implements IHttpHandler, System.Web.SessionState.IRequiresSessionState

    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
@@ -59,6 +59,7 @@ Public Class E119 : Implements IHttpHandler
                Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                UsuarioActual.CveEmpresa = CveEmpresa
+                HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
                CreaObjetoEmpresa(UsuarioActual)
            End If
        End If
@@ -79,7 +80,7 @@ Public Class E119 : Implements IHttpHandler
            End If

            UsuarioActual.Empresa = ObjEmpresa.Empresa
-            If UsuarioActual.Empresa.RutaDB = "" Then UsuarioActual.Empresa.RutaDB = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+
        End If
        ObjEmpresa.Dispose()
    End Sub
@@ -267,7 +268,7 @@ Public Class E119 : Implements IHttpHandler
        End If

        Dim Productos As JArray = Nothing
-
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
        Using ObjInventario As New ClsInventarios
            If ObjInventario.GetJAM_APIs(1, CveClasificacion:=CveClasificacion.ToEntero()) AndAlso ObjInventario.DtResultados IsNot Nothing Then
                Productos = JArray.Parse(ObjInventario.DtResultados.FiltroPrimeroValor("JsonTexto"))
@@ -302,6 +303,7 @@ Public Class E119 : Implements IHttpHandler
        Dim TieneError As Boolean = False

        Dim Clasificaciones As JArray = Nothing
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)

        Try
            'Clasificaciones = JArray.Parse(ClsPaginas.GlobalDTClasificaciones(CveEmpresa).FiltraParametros("", DistinctColumns:={"CveClasificacion", "Clasificacion"}).DataTableToJSONIPP())
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -10,7 +10,7 @@ Imports Newtonsoft.Json
 Imports Newtonsoft.Json.Linq
 Imports Extensiones

-Public Class E141 : Implements IHttpHandler
+Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSessionState

    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
@@ -69,6 +69,7 @@ Public Class E141 : Implements IHttpHandler
                Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                UsuarioActual.CveEmpresa = CveEmpresa
+                HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
                CreaObjetoEmpresa(UsuarioActual)
            End If
        End If
@@ -1671,6 +1672,21 @@ Public Class E141 : Implements IHttpHandler
            Return JsonConvert.SerializeObject(respuesta)
        End If

+
+        Dim UsuarioActual As Usuario = Nothing
+        Dim ObjUsuarios As New ClsSisUsuarios
+        If ObjUsuarios.GetUsuarios(100) Then
+            If ObjUsuarios.DtResultados.Rows.Count > 0 Then
+                Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
+                Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
+                UsuarioActual.CveEmpresa = CveEmpresa
+                HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
+                CreaObjetoEmpresa(UsuarioActual)
+            End If
+        End If
+        ObjUsuarios.Dispose()
+
        Using ObjPS As New ClsProductosServicios()
            If ObjPS.GetExistenciasEmpresa(Codigo, CveEmpresa) Then
                Dim ArrayPS As New JArray
@@ -1964,6 +1980,7 @@ Public Class E141 : Implements IHttpHandler

        Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0

+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
        Dim DtPS As DataTable = Nothing
        Using ObjPS As New ClsProductosServicios
            'OBTERNER PRECIOS DE PUBLICO GENERAL
@@ -2054,6 +2071,7 @@ Public Class E141 : Implements IHttpHandler

        Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0

+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
        Dim DtPS As DataTable = Nothing
        Using ObjPS As New ClsProductosServicios
            'OBTERNER PRECIOS DE PUBLICO GENERAL
@@ -2101,7 +2119,7 @@ Public Class E141 : Implements IHttpHandler
            Retorno = True
            Return Retorno
        End If
-
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
        Dim DtPS As DataTable = Nothing
        Using ObjPS As New ClsProductosServicios
            'OBTERNER PRECIOS DE PUBLICO GENERAL
@@ -2191,7 +2209,7 @@ Public Class E141 : Implements IHttpHandler
        Dim payload = New JObject()

        Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
-
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
        Dim DtPS As DataTable = Nothing
        Using ObjPS As New ClsProductosServicios
            If ObjPS.GetExistenciasEmpresa("-1", CveEmpresa) Then
@@ -2231,6 +2249,7 @@ Public Class E141 : Implements IHttpHandler
        Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0

        Dim DtVendedores As DataTable = Nothing
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
        Using ObjPS As New ClsProductosServicios
            'OBTERNER PRECIOS DE PUBLICO GENERAL
            If ObjPS.GetVendedoresModificados(CveEmpresa, If(Todos, -1, 1)) Then
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -10,10 +10,8 @@ Imports System.Threading.Tasks
 Imports Newtonsoft.Json
 Imports Extensiones
 Imports MoreLinq
-Imports ClsPaginas
 Imports System.Data.SqlClient
-
-
+Imports ClsPaginas

 Partial Class Compras_Compras
    Inherits ClsPaginas
@@ -3148,7 +3146,6 @@ Partial Class Compras_Compras
                    LtlGvAnticiposSel.Visible = True
                End If

-
                ''  VALIDA ELIMINAR COMPRA, QUE NO TENGA PAGOS CONCILIADOS
                If (UsuarioActual.TienePermisoProceso(77) OrElse UsuarioActual.TienePermisoProceso(135)) AndAlso dr("NumPagosConciliados").ToString.ToEntero = 0 Then ' Eliminar compra

@@ -3168,7 +3165,6 @@ Partial Class Compras_Compras
                        End If
                    End If

-
                    Dim StrInventario As String = ""
                    If dr("Inventario").ToString = "1" Then
                        StrInventario = "los <b>Movimientos de Inventario</b> relacionados"
@@ -6296,13 +6292,13 @@ Partial Class Compras_Compras
                                                        If RBLPago.SelectedValue.ToEntero = 4 Then
                                                            Exit Select 'Es credito el concepto 6 se agrega en CASE 17
                                                        End If
-                                                        Dim DifSubTotatles As Decimal = 0D
+                                                        Dim DifSubTotales As Decimal = 0D

                                                        If CveCompraRefacturacion > 0 Then
-                                                            DifSubTotatles = Math.Abs(SubTotalRefacturacion - TxtSubTotal2.Text.ToDecimal)
+                                                            DifSubTotales = Math.Abs(SubTotalRefacturacion - TxtSubTotal2.Text.ToDecimal)
                                                        End If

-                                                        If DifSubTotatles > 0 Or (Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked)) Then
+                                                        If DifSubTotales > 0 Or (Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked)) Then
                                                            'AF TipoAF 2 Es para las compras
                                                            DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1 ")
                                                            If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -6347,8 +6343,6 @@ Partial Class Compras_Compras
                                                                DT = DT.FiltraParametros("ISNULL(CveAlmacen,0) > 0")
                                                                If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then

-
-
                                                                    'SI ES GASTO CON ALMACEN
                                                                    If DdlTipoCompra.SelectedValue = "10" Then
                                                                        For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen", "CveClasificacion", "CveSubProyecto"}).Rows
@@ -6449,6 +6443,9 @@ Partial Class Compras_Compras
                                                                    ConceptoContabilizacion = 6
                                                                End If

+                                                                If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145, 13, 83) AndAlso ConceptoContabilizacion = 205 Then
+                                                                    ConceptoContabilizacion = 6
+                                                                End If

                                                                Select Case ConceptoContabilizacion
                                                                    Case 6
@@ -9316,6 +9313,10 @@ Partial Class Compras_Compras
                                    End If
                                End If

+                                If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145, 13, 83) AndAlso CveConceptoContableAlmacen = 205 Then
+                                    CveConceptoContableAlmacen = 6
+                                End If
+
                                'AF
                                DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2")
                                If DT.Rows.Count > 0 AndAlso DdlTipoComprobante.SelectedValue <> "NC" Then
@@ -21131,9 +21132,9 @@ Public Class ClsCompraManagerCompras
    Public Property CveRetISRConcepto As Integer = -1
    Public Property CveSubProyecto As Integer = -1
    Public Property UsuarioActual As Usuario
-    Public ReadOnly Property ConceptoPrePolizaIVA As ConceptosRetenciones
+    Public ReadOnly Property ConceptoPrePolizaIVA As ClsPaginas.ConceptosRetenciones
        Get
-            Dim Ret As New ConceptosRetenciones
+            Dim Ret As New ClsPaginas.ConceptosRetenciones
            If EsImportacion Then
                Ret.CveConceptoAcreditable = 288
                Ret.CveConceptoxAcreditar = 287
@@ -21144,9 +21145,9 @@ Public Class ClsCompraManagerCompras
            Return Ret
        End Get
    End Property
-    Public ReadOnly Property ConceptoPrePolizaRetIVA As ConceptosRetenciones
+    Public ReadOnly Property ConceptoPrePolizaRetIVA As ClsPaginas.ConceptosRetenciones
        Get
-            Dim Ret As New ConceptosRetenciones
+            Dim Ret As New ClsPaginas.ConceptosRetenciones
            Dim Funcionalidad, FuncionalidadxAcred As Integer
            If CveRetIVAConcepto = 1 Then
                Funcionalidad = 308 : FuncionalidadxAcred = 307
@@ -21176,9 +21177,9 @@ Public Class ClsCompraManagerCompras
            Return Ret
        End Get
    End Property
-    Public ReadOnly Property ConceptoPrePolizaRetISR As ConceptosRetenciones
+    Public ReadOnly Property ConceptoPrePolizaRetISR As ClsPaginas.ConceptosRetenciones
        Get
-            Dim Ret As New ConceptosRetenciones
+            Dim Ret As New ClsPaginas.ConceptosRetenciones
            Dim Funcionalidad, FuncionalidadxAcred As Integer
            If CveRetISRConcepto = 1 Then
                Funcionalidad = 316 : FuncionalidadxAcred = 315
@@ -21376,7 +21377,7 @@ Public Class ClsCompraManagerCompras
        Descuento = ValorXML(nodo, "descuento").ToDecimal
        Moneda = ValorXML(nodo, "Moneda")

-        CveMoneda = GlobalDTMonedas().FiltroPrimeroValor("CveMoneda", $" AbreviaturaSAT = '{Moneda}' ").ToEntero
+        CveMoneda = ClsPaginas.GlobalDTMonedas().FiltroPrimeroValor("CveMoneda", $" AbreviaturaSAT = '{Moneda}' ").ToEntero
        If Not CveMoneda > 0 Then
            GuardaLog($"Moneda {Moneda} no se obtuvo la clabe")
            Errores.AppendLine($"Moneda {Moneda} no se obtuvo la clabe")
@@ -21388,7 +21389,7 @@ Public Class ClsCompraManagerCompras
        TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDecimal

        If CFDIVersion = EnumCFDIVersion.v33 Or CFDIVersion = EnumCFDIVersion.v40 Then
-            Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
+            Dim drm As DataRow = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
            If drm IsNot Nothing Then
                CveMetodoPago = drm("CveMetodoPago").ToString.ToEntero
                MetodoPago = drm("MetodoPagoSAT").ToString
--- a/Nomina/CalculoISRAnual.aspx
+++ b/Nomina/CalculoISRAnual.aspx
@@ -26,19 +26,19 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
-        <asp:LinkButton ID="LnkdownExcel" OnClick="LnkdownExcel_Click" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Excel</asp:LinkButton>
-    </li>
    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
            <li>
-                <asp:LinkButton ID="LnkOpenModalAutoriza" OnClick="LnkOpenModalAutoriza_Click" runat="server"><i class="fa fa-check" aria-hidden="true"></i> Autoriza</asp:LinkButton>
+                <asp:LinkButton ID="LnkOpenModalAutoriza" OnClick="LnkOpenModalAutoriza_Click" runat="server"><i class="fa fa-check" aria-hidden="true"></i> Autorizar</asp:LinkButton>
            </li>
        </ContentTemplate>
    </asp:UpdatePanel>
+    <li>
+        <asp:LinkButton ID="LnkdownExcel" OnClick="LnkdownExcel_Click" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Descargar XLS</asp:LinkButton>
+    </li>
    
    <li>
-        <asp:LinkButton ID="LnkFormatoCargaAnual" OnClick="LnkFormatoCargaAnual_Click" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Formato Anual</asp:LinkButton>
+        <asp:LinkButton ID="LnkFormatoCargaAnual" OnClick="LnkFormatoCargaAnual_Click" runat="server"><i class="fa fa-download" aria-hidden="true"></i> Constancia 37</asp:LinkButton>
    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
--- a/Nomina/Nomina.aspx
+++ b/Nomina/Nomina.aspx
@@ -215,10 +215,7 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">

    <asp:UpdatePanel ID="UpAccciones" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <li>
-                <asp:LinkButton ID="LinkButton3" OnClick="LnkMostrarOrdenadores_Click" runat="server"><i class="fas fa-receipt"></i>Ordenar</asp:LinkButton>
-            </li>
+        <ContentTemplate> 
            <li>
                <asp:LinkButton ID="LnkAutorizar" Visible="false" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton>
            </li>
@@ -5049,8 +5046,7 @@
                    <div class="modal-footer">
                        <asp:LinkButton ID="LnkCargaMasiva" OnClick="LnkCargaMasiva_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="grpno validacion"> <i class='material-icons'>done_all</i>  Guardar</asp:LinkButton>
                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-                        
-                            <asp:CheckBox ID="ChkCargaMasivaRecalcularNomina" Text="¿Volver a calcular la nómina?" runat="server" />
+                        <%--<asp:CheckBox ID="ChkCargaMasivaRecalcularNomina" Text="¿Volver a calcular la nómina?" runat="server" />--%>
                    </div>
                </div>
            </ContentTemplate>
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -10994,12 +10994,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                Alert("Se cargo satisfactoriamente.");

                RegistraScript(string.Format("$('#divCargaMasiva').modal('hide');"));
-                if (ChkCargaMasivaRecalcularNomina.Checked)
-                {
-                    cargaDatos(true);
-
-                }
-                //
+                cargaPeriodos();
            }
        }
    }
--- a/RH/CatPersonal.aspx.vb
+++ b/RH/CatPersonal.aspx.vb
@@ -134,7 +134,10 @@ Partial Class RH_CatPersonal
            FechaFIngreso = "-1"
        End If

-        If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", CveTurno, CvePuesto, CveDepartamento, CveRuta, CveEscolaridad, CveEstadoCivil, CveGenero, CveEstatusPersonal, CveSubProyecto, CveClienteAsignado, HorarioTrabajo, CveSupervisor, CveTipoPeriodo, CveMetodoPago, CveTipoContrato, CveMotivoBaja, CveProyecto, FechaIFinContrato, FechaFFinContrato, FechaIIngreso, FechaFIngreso, UsuarioActual.CveEmpresa, ddlclasificacion.SelectedValue.ToEntero()) Then
+        If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", CveTurno, CvePuesto, CveDepartamento, CveRuta, CveEscolaridad, CveEstadoCivil, CveGenero,
+                                   CveEstatusPersonal, CveSubProyecto, CveClienteAsignado, HorarioTrabajo, CveSupervisor, CveTipoPeriodo, CveMetodoPago,
+                                   CveTipoContrato, CveMotivoBaja, CveProyecto, FechaIFinContrato, FechaFFinContrato, FechaIIngreso, FechaFIngreso,
+                                   UsuarioActual.CveEmpresa, ddlclasificacion.SelectedValue.ToEntero()) Then
            DTDatos = ObjPersonal.DtResultados

            'filtro por usuario subproyecto/sucursal vsh
--- a/Transportes/RepContratoDetalle.aspx
+++ b/Transportes/RepContratoDetalle.aspx
@@ -102,7 +102,7 @@
                        <div class="row">
                            <%-- Datos del Contrato --%>
                            <div class="col-md-7">
-                                <div class="portlet light bordered">
+                                <div class="portlet light bordered xspadding">
                                    <div class="portlet-title">
                                        <div class="tools">
                                            <a href="javascript;" data-idchekbox="C_chkexpand" class=" collapse" data-original-title=""
@@ -316,7 +316,7 @@
                            </div>
                            <%-- Contrato Digitalizado --%>
                            <div class="col-md-5">
-                                <div class="portlet light bordered">
+                                <div class="portlet light bordered xspadding">
                                    <div class="portlet-title">
                                        <div class="tools">
                                            <a href="javascript;" data-idchekbox="C_chkexpand1" class=" collapse" data-original-title=""
@@ -355,7 +355,7 @@
                            </div>
                            <%-- Bitácora --%>
                            <div class="col-md-12">
-                                <div class="portlet light bordered">
+                                <div class="portlet light bordered xspadding">
                                    <div class="portlet-title">
                                        <div class="tools">
                                            <a href="javascript;" data-idchekbox="C_chkexpand" class=" collapse" data-original-title=""
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -325,10 +325,12 @@ Partial Class RepContratoDetalle
            New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()),
            New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString),
            New ReportParameter("Moneda", DdlMoneda.SelectedItem.ToString),
-            New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal) / 2).ToString),
+            New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal), 2).ToString),
            New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString),
            New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "),
-            New ReportParameter("TelefonoEmpresa", TelefonoEmpresa)
+            New ReportParameter("TelefonoEmpresa", TelefonoEmpresa),
+            New ReportParameter("FechaImpresion", Date.Now.ToString("dd/MM/yyyy HH:mm:ss")),
+            New ReportParameter("Usuario", UsuarioActual.Nombre)
        }

        ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato")
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb