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

App_Code/ClsSisRoles.vb

@@ -329,6 +329,26 @@ Public Class ClsSisRoles
         Return Retorno
     End Function
 
+    Public Function UpdateRolAdjunto(CveRol As Integer, Adjunto As String, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Sis_RolAdjuntoUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveRol", SqlDbType.Int).Value = CveRol
+            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el adjunto del rol.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     ' IDisposable
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)
         If Not Me.disposedValue Then

Ashx/SIGFacturacion.ashx

@@ -13,7 +13,7 @@ Imports Modelos
 
 Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
 
-    Private Property CveEmpresaFacturar As Integer = 143
+    Private Property CveEmpresaFacturar As Integer = 194
 
     Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
         context.Response.ContentType = "text/plain"
@@ -906,7 +906,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
         '  strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
         strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString)
         Try
-            ArchivoW = New StreamWriter(String.Format("{0}\LogFacturacion.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8)
+            ArchivoW = New StreamWriter(String.Format("{0}\Log\LogFacturacion.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
         Catch ex As UnauthorizedAccessException
             'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError)
             Exit Sub

Inventarios/RecepcionAlmacen.aspx.vb

@@ -3,11 +3,9 @@ Option Explicit On
 
 Imports System.Data
 Imports System.IO
-Imports System.Text
 Imports Extensiones
 Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms
-Imports Org.BouncyCastle.Asn1.X509
 
 Partial Class Inventarios_RecepcionAlmacen
     Inherits ClsPaginas
@@ -2969,11 +2967,8 @@ Partial Class Inventarios_RecepcionAlmacen
                                             End If
                                         End If
                                     End If
-
                                 End If
-
                             End If
-
                         Next
 
                         If Not ErrorMovInv Then
@@ -2981,7 +2976,6 @@ Partial Class Inventarios_RecepcionAlmacen
                                 ErrorMovInv = True
                             End If
                         End If
-
                     End If
                 End If
 
@@ -3614,11 +3608,8 @@ Partial Class Inventarios_RecepcionAlmacen
                                     MensajeError = "Error al contabilizar los conceptos contables"
                                 End If
                             End If
-
                         End If
-
                     End If
-
                 Else
                     ErrorMovInv = True
                     MensajeError = "Error al obtener movimientos"
@@ -3633,11 +3624,6 @@ Partial Class Inventarios_RecepcionAlmacen
                 Dim ProveedorNombre As String = ""
                 Dim SerieFolio As String = ""
 
-                'Dim DrAlmO, DrAlmD As DataRow
-                'Dim CveSucursalOrigen, CveSucursalDestino As Integer
-                'Dim TipoAlmacenOrigen, TipoAlmacenDestino As Integer
-                'Dim CveSubProyectoOrigen, CveSubProyectoDestino As Integer
-
                 If ObjCompras.GetCompras(CveCompraSurtir, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
                     'Fecha = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
                     Fecha = TxtFecha.Text.ToDate
@@ -3654,7 +3640,6 @@ Partial Class Inventarios_RecepcionAlmacen
                 Else
                     ErrorMovInv = True
                 End If
-
                 'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {CveAlmacenDevolucionProveedor}").ToEntero()
 
                 'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
@@ -3672,7 +3657,6 @@ Partial Class Inventarios_RecepcionAlmacen
                 Else
                     ErrorMovInv = True
                 End If
-
             End If
 
             'AGREGA SALDOS A OC SURTIDAS
@@ -3702,7 +3686,7 @@ Partial Class Inventarios_RecepcionAlmacen
             ErrorMovInv = True
         End Try
 
-        If Not ErrorMovInv Then
+        If Not ErrorMovInv AndAlso ArchivoBitacora <> "" Then
             RenombrarBitacoras()
         End If
 
@@ -3725,8 +3709,7 @@ Partial Class Inventarios_RecepcionAlmacen
                     Msg.AppendFormat("<br/>La Orden de Compra se dividió en los siguientes productos:<br/>{0}", MensajeOC)
                 End If
                 If UsuarioActual.CveEmpresa.Contiene(1, 119, 186) Then
-                    Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Individual</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Cantidad")))
+                    Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Individual</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Cantidad")))                    'Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Por Caja</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja")))
-                    'Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Por Caja</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja")))
 
                 End If
                 'SI GENERO UN TRASPASO AL ALMACEN DE DEVOLUCION
@@ -3738,7 +3721,6 @@ Partial Class Inventarios_RecepcionAlmacen
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
             End If
 
-
             'If CveMovtoSalidaDirecta > 0 Then
             '    Msg.AppendFormat("<br/><br/> Movimientos de control:<br/>")
             '    link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovtoSalidaDirecta, FolioSalidaDirecta)
@@ -3760,8 +3742,6 @@ Partial Class Inventarios_RecepcionAlmacen
                     link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosSalidaDirecta(ind), FoliosSalidaDirecta(ind))
                     Msg.AppendFormat("<br/>Movimiento de Salida Folio: <b>{0}</b>", link)
                 Next
-
-
             End If
 
             'APARTADO
@@ -3784,7 +3764,6 @@ Partial Class Inventarios_RecepcionAlmacen
 
             'CONTABILIDAD
             Msg.Append(MensajeContabilidad)
-
             Alert(Msg.ToString, TipoMensaje.MsgInformacion)
 
             If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
@@ -3793,7 +3772,6 @@ Partial Class Inventarios_RecepcionAlmacen
                 BtnGuardar.Visible = True
             End If
             Limpia()
-
         Else
             ObjInventario.RollBack()
             If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
@@ -3809,10 +3787,7 @@ Partial Class Inventarios_RecepcionAlmacen
     End Sub
 
     Private Sub RenombrarBitacoras()
-
-
         Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss")
-
         Dim fib As New FileInfo(ArchivoBitacora)
         Dim fibd As New FileInfo(ArchivoBitacoraDetalle)
 
@@ -4277,18 +4252,16 @@ Partial Class Inventarios_RecepcionAlmacen
                 CveOCSurtir = CveOC
                 LbProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString
                 HLFolio.Text = ObjOC.DtResultados.Rows(0)("Folio").ToString
-                If UsuarioActual.TienePermisoProceso(201) Then
+                If UsuarioActual.TienePermisoProceso(201) Then HLFolio.NavigateUrl = $"/OC/OC.aspx?OC={CveOCSurtir}"
-                    HLFolio.NavigateUrl = $"/OC/OC.aspx?OC={CveOCSurtir}"
-                End If
                 LbDescripcionCompra.Text = ObjOC.DtResultados.Rows(0)("Descripcion").ToString
-
                 CveMoneda = ObjOC.DtResultados.Rows(0)("CveMoneda").ToString.ToEntero
                 lbDescripcion.Text = ObjOC.DtResultados.Rows(0)("Descripcion").ToString
                 TotalCompraOC = ObjOC.DtResultados.Rows(0)("SubTotal").ToString.ToDecimal
 
-                'TipoCambio = ObjOC.DtResultados.Rows(0)("TipoCambio").ToString.ToDecimal
                 TipoCambio = 0
                 TipoMovimiento = 1
+                ArchivoBitacora = String.Format("{0}Temp\RecepcionOCDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveOCSurtir)
+                ArchivoBitacoraDetalle = String.Format("{0}Temp\RecepcionOCDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveOCSurtir)
 
                 If ObjInventario.RecepcionAlmacenOCGet(CveOC, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                     DtDatosDetalle = Nothing

OS/OrdenesServicios.aspx.vb

@@ -5,14 +5,6 @@ Imports Extensiones
 Imports System.IO
 Imports System.Data
 Imports System.Data.SqlClient
-Imports System.Diagnostics
-Imports System.ServiceModel.Security
-Imports RVCFDI.RVLTimbrado
-Imports Microsoft.Owin.Security.Provider
-Imports Telerik.Web.UI
-Imports ADSNetLibrary.SIGAPI.Services.SAT.DescargaCFDI
-
-
 
 Partial Class OS_OrdenesServicios
     Inherits ClsPaginas
@@ -3125,7 +3117,8 @@ Partial Class OS_OrdenesServicios
                             Dim Lote As String = GVRow.DataKey("Lote")
                             Dim CveUM As Integer = GVRow.DataKey("CveUM").ToEntero
                             Dim FechaCaducidad As DateTime = GVRow.DataKey("FechaCaducidad").ToDate
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadRegistro, CveUM, CvePS, 0, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad) Then
+                            Dim CveVentaDetalle As Integer = GVRow.DataKey("CveVentaDetalle").ToEntero
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadRegistro, CveUM, CvePS, 0, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveVentaDetalle:=CveVentaDetalle) Then
                                 Alert("Error al agregar detalle de movimiento.", TipoMensaje.MsgAdvertencia)
                                 ProcesoOK = False
                                 Exit For
@@ -3705,14 +3698,8 @@ Partial Class OS_OrdenesServicios
         Try
             Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing
             If ObjFacturaCancelacion IsNot Nothing AndAlso ObjFacturaCancelacion.CveVenta > 0 Then
-
-                Dim SWatch As New Stopwatch
-                SWatch.Start()
-
                 Dim DevAlm As Boolean = True
-
                 ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion
-
                 resp = ObjFacturaCancelacion.CancelarFactura(2, New List(Of Integer), CveMotivoCancelacion:=CveMotivoCancelacion, Motivo:="Cancelacion de Orden de servicio")
 
                 If resp.HuboError Then

SigAyuda.aspx

@@ -6,12 +6,14 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
 
     <style>
-        .fa-file-pdf-o{
+        .fa-file-pdf-o {
             color: #e43a45;
         }
-        .fa-file-word-o{
+
+        .fa-file-word-o {
             color: #337ab7;
         }
+
         .fa-3 {
             font-size: 1.5em;
         }
@@ -89,6 +91,48 @@
                                     </div>--%>
             </a>
         </div>
+        <%-- Mi Perfil --%>
+        <div class="mt-list-container list-todo" id="DivPerfil" runat="server" visible="false">
+            <div class="list-todo-line"></div>
+            <ul>
+                <li class="mt-list-item">
+                    <div class="list-todo-icon bg-white">
+                        <i class="fa fa-user"></i>
+                    </div>
+                    <div class="list-todo-item grey">
+                        <a class="list-toggle-container font-white" data-toggle="collapse" href="#taskRoles" aria-expanded="false">
+                            <div class="list-toggle done uppercase">
+                                <div class="list-toggle-title bold">Mi Perfil</div>
+                                <div class="badge badge-default pull-right bold">1</div>
+                            </div>
+                        </a>
+                        <div class="task-list panel-collapse collapse " id="taskRoles">
+                            <ul>
+                                <li class="task-list-item done">
+                                    <div class="task-icon">
+                                        <a href="javascript:;">
+                                            <i class="fa fa-file-pdf-o fa-3"></i>
+                                        </a>
+                                    </div>
+                                    <asp:UpdatePanel ID="UpAdjunto" runat="server" UpdateMode="Conditional" class="task-status">
+                                        <ContentTemplate>
+                                            <a class="done" id="linkDescargaRol" runat="server">
+                                                <i class="fa fa-download fa-3"></i>
+                                            </a>
+                                        </ContentTemplate>
+                                    </asp:UpdatePanel>
+                                    <div class="task-content">
+                                        <h4 class="uppercase bold">Manual del Rol
+                                        </h4>
+
+                                    </div>
+                                </li>
+                            </ul>
+                        </div>
+                    </div>
+                </li>
+            </ul>
+        </div>
         <%-- Ordenes de compra --%>
         <div class="mt-list-container list-todo">
             <div class="list-todo-line"></div>
@@ -636,7 +680,7 @@
                                 <div class="badge badge-default pull-right bold">1</div>
                             </div>
                         </a>
-                        <div class="task-list panel-collapse collapse " id="divtaskOI" runat="server" ClientIDMode="Static">
+                        <div class="task-list panel-collapse collapse " id="divtaskOI" runat="server" clientidmode="Static">
                             <ul>
                                 <li class="task-list-item done">
                                     <div class="task-icon">

SigAyuda.aspx.vb

@@ -6,12 +6,37 @@ Imports Extensiones
 Partial Class Metronic_SigAyuda
     Inherits ClsPaginas
 
+    Public Property Adjunto As String
+        Get
+            Adjunto = ViewState("Adjunto").ToString
+        End Get
+        Set(value As String)
+            ViewState("Adjunto") = value
+        End Set
+    End Property
+
     Private Sub Metronic_SigAyuda_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            If usuarioActual.CveEmpresa.Contiene(13, 83) Then
+            Me.Adjunto = ""
+            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                 divtaskOI.Visible = True
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" OrElse UsuarioActual.CveRol = 1 Then
+                Dim ObjRoles As New ClsSisRoles
+                If ObjRoles.GetRoles(UsuarioActual.CveRol, UsuarioActual.CveEmpresa) Then
+                    If ObjRoles.DtResultados IsNot Nothing AndAlso ObjRoles.DtResultados.Rows.Count = 1 Then
+                        Me.Adjunto = ObjRoles.DtResultados.Rows(0)("Adjunto").ToString()
+                        If Not String.IsNullOrEmpty(Me.Adjunto) Then
+                            linkDescargaRol.HRef = $"javascript:downFile('{Me.Adjunto}');"
+                            DivPerfil.Visible = True
+                        End If
+                    End If
+                End If
+                ObjRoles.Dispose()
+            End If
+
+            UpAdjunto.Update()
         End If
     End Sub
     Protected Sub btnDownload_Click(sender As Object, e As EventArgs)

Sistemas/RolesDetalle.aspx

@@ -51,6 +51,19 @@
                                                     <%--  <ajax:ValidatorCalloutExtender ID="VCEEmpresa" runat="server" HighlightCssClass="vco" TargetControlID="RFVRol" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                                     <label for="<%= TxtRol.ClientID.ToString()%>">Nombre Rol:</label>
                                                 </div>
+                                                <div class="row" id="DivManual" runat="server" visible="false">
+                                                    <div class="col-md-3">
+                                                        <label>Manual del rol:</label>
+                                                        <div>
+                                                            <asp:LinkButton ID="BtnAdjuntar" runat="server" Visible="false" Text="<i class='fa-upload fa' style=' color: white;'></i>  Adjuntar" data-toggle="modal" data-target="#ModalAdjuntar" CssClass="btn myventasbutton btn-primary" />
+                                                            <br />
+                                                            <asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
+                                                            &nbsp;
+                                                            <asp:LinkButton ID="BtnReemplazarAdjunto" runat="server" Visible="false" AlternateText="Reemplazar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-sm blue" Text="<i class='fa-upload fa' style=' color: white;'></i>" data-toggle="modal" data-target="#ModalAdjuntar" />
+                                                        </div>
+                                                    </div>
+
+                                                </div>
                                                 <div class="form-group form-md-line-input input-iconright" id="LblFechaAlta" runat="server">
                                                     <label for="<%= TxtFecha.ClientID.ToString()%>">Fecha Alta:</label>
                                                     <asp:Label ID="TxtFecha" runat="server"></asp:Label>
@@ -59,6 +72,7 @@
                                                     <label for="<%= TxtUsuarioAlta.ClientID.ToString()%>">Usuario Alta:</label>
                                                     <asp:Label ID="TxtUsuarioAlta" runat="server"></asp:Label>
                                                 </div>
+
                                             </div>
                                         </div>
                                     </div>
@@ -239,7 +253,6 @@
                                                     </div>
                                                 </div>
                                                 <div class="tools">
-                                                    
                                                 </div>
                                             </div>
                                             <div class="portlet-body">
@@ -275,6 +288,29 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
+    <%--MODAL ADJUNTAR--%>
+    <div id="ModalAdjuntar" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Adjuntar</h4>
+                </div>
+                <div class="modal-body">
+                    <div class="row">
+                        <div class="col-md-12">
+                            <asp:TextBox ID="txtAdjuntar" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
+                        </div>
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <asp:Button ID="btnGuardarAdjunto" runat="server" Text="Guardar" CssClass="btn btn-primary" OnClick="btnGuardarAdjunto_Click" />
+                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                </div>
+            </div>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Sistemas/RolesDetalle.aspx.vb

@@ -1,5 +1,7 @@
 Imports System.Data
 Imports System.Drawing
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
+Imports System.IO
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Partial Class Sistemas_RolesDetalle
@@ -43,6 +45,11 @@ Partial Class Sistemas_RolesDetalle
                     TxtFecha.Text = DTRoles.FiltroPrimeroValor("FechaIng").ToDate.ToShortDateString
                     TxtUsuarioAlta.Text = DTRoles.FiltroPrimeroValor("Nombre")
                     DdlModulo.SelectedValueExist(DTRoles.FiltroPrimeroValor("CveModulo").ToEntero)
+
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" OrElse UsuarioActual.CveRol = 1 Then
+                        CargaAdjunto(DTRoles.FiltroPrimeroValor("Adjunto"))
+                    End If
+
                 Else
                     Dim Liga As String = $"document.location.href=""/Sistemas/CatRoles.aspx"";"
                     Alert("El Rol solicitado no existe.", TipoMensaje.MsgAdvertencia, Liga)
@@ -59,6 +66,18 @@ Partial Class Sistemas_RolesDetalle
 
     End Sub
 
+    Private Sub CargaAdjunto(Adjunto As String)
+        DivManual.Visible = True
+        If Adjunto <> "" Then
+            BtnArchivoAdjunto.Text = Adjunto
+            BtnArchivoAdjunto.Visible = True
+            BtnAdjuntar.Visible = False
+            BtnReemplazarAdjunto.Visible = True
+        Else
+            BtnAdjuntar.Visible = True
+        End If
+    End Sub
+
     Private Sub CargaUsuarios()
 
         If CveRol > 0 Then
@@ -253,5 +272,57 @@ Partial Class Sistemas_RolesDetalle
         GlobalDTRoles(UsuarioActual.CveEmpresa) = Nothing
     End Sub
 
+    Private Sub GuardarArchivoAdjunto()
+        If Not txtAdjuntar.getfiles().Archivos.Count > 0 Then
+            Alert("Tiene que cargar un archivo.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
+
+        Dim FileExtension As String = "-1"
+        Dim Filesgral As List(Of Archivo) = txtAdjuntar.getfiles().Archivos
+        Dim Filename As String = ""
+        Dim fileItem As Archivo = Filesgral(0)
+        Try
+            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+            Dim Adjunto = String.Format("{0}.{1}", Me.CveRol, FileExtension)
+
+            Dim Path As String
+            Path = String.Format("{0}Roles", UsuarioActual.Empresa.Ruta)
+            If Not Directory.Exists(Path) Then
+                Directory.CreateDirectory(Path)
+            End If
+            Path += $"/{Adjunto}"
+            If File.Exists(Path) Then
+                File.Delete(Path)
+            End If
+            My.Computer.FileSystem.MoveFile(fileItem.FileUrl, Path)
+
+            If File.Exists(Path) Then
+                If Me.CveRol > 0 Then
+                    Using ObjRol As New ClsSisRoles
+                        If ObjRol.UpdateRolAdjunto(Me.CveRol, Adjunto, UsuarioActual.CveEmpresa) Then
+                            Alert("Documento cargado", TipoMensaje.MsgInformacion)
+                        End If
+                    End Using
+                Else
+                    Alert("Documento cargado", TipoMensaje.MsgInformacion)
+                End If
+            End If
+
+            BtnAdjuntar.Visible = False
+            BtnArchivoAdjunto.Text = Adjunto
+            BtnArchivoAdjunto.Visible = True
+            BtnReemplazarAdjunto.Visible = True
+
+        Catch ex As Exception
+            OnError("Error al cargar archivo", ex)
+        End Try
+    End Sub
+
+
+
+    Protected Sub btnGuardarAdjunto_Click(sender As Object, e As EventArgs)
+        GuardarArchivoAdjunto()
+    End Sub
 End Class

Transportes/RepContratosCalendario.aspx

@@ -148,7 +148,7 @@
             <div class="col-md-12">
                 <ajax:TabContainer ID="Tab" runat="server" Width="100%" ActiveTabIndex="0">
                     <%--Calendario Tab--%>
-                    <ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Calendario" OnClientClick="TabAltaClicked" >
+                    <ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Calendario" OnClientClick="TabAltaClicked">
                         <ContentTemplate>
 
                             <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
@@ -326,7 +326,7 @@
         <asp:UpdatePanel runat="server" ID="UpModal" UpdateMode="Conditional">
             <ContentTemplate>
                 <div class="modal-dialog rowpadding">
-                    <div class="modal-content" style="width:950px;">
+                    <div class="modal-content" style="width: 950px;">
                         <div class="modal-header">
                             <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                                 <span aria-hidden="true">&times;</span>
@@ -341,10 +341,10 @@
 
                                         <label class="col-md-3 bold text-primary">Folio:</label>
                                         <div class="col-md-2">
-                                            <asp:TextBox ID="TxtFolio" runat="server" Width="80px" Font-Bold="true" cssclass="textaslabel"></asp:TextBox>
+                                            <asp:TextBox ID="TxtFolio" runat="server" Width="80px" Font-Bold="true" CssClass="textaslabel"></asp:TextBox>
                                         </div>
                                         <div class="col-md-2">
-                                            <asp:HyperLink runat="server" Text=""  Target="_blank" id="HypRemision" CssClass="Texto"></asp:HyperLink>
+                                            <asp:HyperLink runat="server" Text="" Target="_blank" ID="HypRemision" CssClass="Texto"></asp:HyperLink>
                                         </div>
                                         <div class="col-md-3">
                                             <asp:Label runat="server" ID="LblSaldo"></asp:Label>
@@ -449,8 +449,7 @@
                                                 DataTextField="TipoActivoFijo" Class="form-control input-inline"
                                                 Width="100%" runat="server" Enabled="true"
                                                 AutoPostBack="true"
-                                                OnSelectedIndexChanged="DdlTipoAF_SelectedIndexChanged"
+                                                OnSelectedIndexChanged="DdlTipoAF_SelectedIndexChanged">
-                                                >
                                             </asp:DropDownList>
                                         </div>
                                     </div>
@@ -460,7 +459,7 @@
                                         <div class="col-md-9">
                                             <asp:DropDownList ID="DdlAF" DataValueField="CveActivoFijo"
                                                 DataTextField="CodDesc" Class="form-control select2me"
-                                                Width="100%" runat="server"  AutoPostBack="true" OnSelectedIndexChanged="DdlAF_SelectedIndexChanged" >
+                                                Width="100%" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlAF_SelectedIndexChanged">
                                             </asp:DropDownList>
                                         </div>
                                     </div>
@@ -468,7 +467,7 @@
                                     <div class="row my-1" runat="server" id="DVMotivoCambioAF" visible="false">
                                         <label class="col-md-3">Motivo Cambio:</label>
                                         <div class="col-md-9">
-                                             <asp:TextBox ID="TxtMotivoCambioUnidad" CssStyle=" form-control" runat="server" MaxLength="2000"  Width="100%" ></asp:TextBox>
+                                            <asp:TextBox ID="TxtMotivoCambioUnidad" CssStyle=" form-control" runat="server" MaxLength="2000" Width="100%"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RfvTxtMotivoCambioUnidad" runat="server" ControlToValidate="TxtMotivoCambioUnidad" ErrorMessage="Campo Motivo Cambio requerido." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                             <ajax:ValidatorCalloutExtender ID="VCERfvTxtMotivoCambioUnidad" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtMotivoCambioUnidad" Width="300px"></ajax:ValidatorCalloutExtender>
                                         </div>
@@ -484,7 +483,7 @@
                                         </div>
                                     </div>
 
-                                    <div class="row my-1" >
+                                    <div class="row my-1">
                                         <label class="col-md-3">Chofer 2 &nbsp;<asp:CheckBox runat="server" ID="chkSegundoChofer" AutoPostBack="true" OnCheckedChanged="chkSegundoChofer_CheckedChanged" /></label>
                                         <div class="col-md-9" runat="server" id="DVChofer2">
                                             <asp:DropDownList ID="DdlChofer2" AppendDataBoundItems="true" DataValueField="CvePersonal"
@@ -539,7 +538,6 @@
                 <asp:HiddenField runat="server" ID="HdnCveContrato" Value="-1" ClientIDMode="Static" />
 
                 <%--<asp:Button runat="server" ID="BtnDdlTipoAF" OnClick="BtnDdlTipoAF_Click" ClientIDMode="Static"></asp:Button>--%>
-
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
@@ -728,11 +726,11 @@
 
                     $('#<%=HdnCveContrato.ClientID%>').val(cveContrato);
 
-                    let url = '/Ashx/CargaEventos.ashx?METODO=contrato_transportes' ;
+                    let url = '/Ashx/CargaEventos.ashx?METODO=contrato_transportes';
-                    let parametros = '&cveContrato=' + cveContrato +'&U=' + '<%= UsuarioActual.CveUsuario %>' + '&E='+ '<%= UsuarioActual.CveEmpresa %>'+ '&tipoVista=' + '<%= RBTipoVista.Text %>' +  '&CveUsuarioPara:' + $('#DdlTecnico').val(); +  '&CveSubProyecto:' + $('#DdlSubProyecto').val();
+                    let parametros = '&cveContrato=' + cveContrato + '&U=' + '<%= UsuarioActual.CveUsuario %>' + '&E=' + '<%= UsuarioActual.CveEmpresa %>' + '&tipoVista=' + '<%= RBTipoVista.Text %>' + '&CveUsuarioPara:' + $('#DdlTecnico').val(); +  '&CveSubProyecto:' + $('#DdlSubProyecto').val();
 
                     fetch(url + parametros).then(response => response.json()).then(json => {
-                        updateEvent(json[0],null,false);
+                        updateEvent(json[0], null, false);
                     }).catch(err => console.log('Solicitud fallida', err));
                 });
 
@@ -764,7 +762,7 @@
             }); // end am5.ready()
         }
 
-        function zoomAxis(anioI,mesI,diaI,anioF,mesF,diaF) {
+        function zoomAxis(anioI, mesI, diaI, anioF, mesF, diaF) {
             setTimeout(() => {
                 dateAxis.zoomToDates(new Date(anioI, mesI, diaI), new Date(anioF, mesF, diaF));
             }, 1500);
@@ -785,7 +783,7 @@
                 let mes = parseInt($('#<%=HidCurrentMonth.ClientID%>').val());
                 let anio = parseInt($('#<%=HidCurrentYear.ClientID%>').val());
 
-                Calendario(mes,anio);
+                Calendario(mes, anio);
 
             });
         }
@@ -803,14 +801,23 @@
 
             if (esCalendario) {
                 $('#<%=TxtFechaSalida.ClientID%>').val(formatearFechaISO(event.start._i));
-            }else{
+            } else {
                 $('#<%=TxtFechaSalida.ClientID%>').val(formatearFechaISO(event.start));
             }
             $('#<%=TxtFechaRegreso.ClientID%>').val(formatearFechaISO(event.FechaFinal));
             $('#<%=DdlClientes.ClientID%>').val(event.CveCliente);
 
             $('#<%=DdlChofer.ClientID%>').val(event.CvePersonal);
-            $('#<%=DdlChofer2.ClientID%>').val(event.CvePersonal2);
+
+            if (event.CvePersonal2 > 0) {
+                $('#<%=chkSegundoChofer.ClientID%>').prop('checked', true);
+                setTimeout(function () { $('#<%=DdlChofer2.ClientID%>').val(event.CvePersonal2).change(); }, 500);;
+                ;
+            } else {
+                $('#<%=chkSegundoChofer.ClientID%>').prop('checked', false);
+                $('#<%=DdlChofer2.ClientID%>').val(-1);
+            }
+
             $('#<%=DdlEstatusContrato.ClientID%>').val(event.CveEventoEstatus);
             $('#<%=TxtDolares.ClientID%>').val(event.Dolares);
             $('#<%=TxtPesos.ClientID%>').val(event.Pesos);
@@ -823,7 +830,7 @@
             $('#<%=DdlTipoAF.ClientID%>').val(event.CveTipoAF);
             $('#<%=DdlSubProyectoModal.ClientID%>').val(event.CveSubProyecto);
 
-            $('#<%= HidCveTipoAF.ClientID%>').val( $('#<%=DdlTipoAF.ClientID%>').val() );
+            $('#<%= HidCveTipoAF.ClientID%>').val($('#<%=DdlTipoAF.ClientID%>').val());
 
             <%--$('#<%=BtnDdlTipoAF.ClientID%>').click();--%>
             <%--$('#<%=DdlAF.ClientID%>').val(event.CveActivoFijo);--%>