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:
RPimienta
2024-09-25 21:44:22 -06:00
parent 843c122811 576ac83701
commit 76af21ee4f
9 changed files with 439 additions and 276 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
App_Code/ClsSisRoles.vb
View File

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

4
Ashx/SIGFacturacion.ashx
View File

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

37
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -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 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 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")))
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
HLFolio.NavigateUrl = $"/OC/OC.aspx?OC={CveOCSurtir}"
End If
If UsuarioActual.TienePermisoProceso(201) Then HLFolio.NavigateUrl = $"/OC/OC.aspx?OC={CveOCSurtir}"
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

17
OS/OrdenesServicios.aspx.vb
View File

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

50
SigAyuda.aspx
View File

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

27
SigAyuda.aspx.vb
View File

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

38
Sistemas/RolesDetalle.aspx
View File

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

71
Sistemas/RolesDetalle.aspx.vb
View File

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

43
Transportes/RepContratosCalendario.aspx
View File

@@ -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 parametros = '&cveContrato=' + cveContrato +'&U=' + '<%= UsuarioActual.CveUsuario %>' + '&E='+ '<%= UsuarioActual.CveEmpresa %>'+ '&tipoVista=' + '<%= RBTipoVista.Text %>' + '&CveUsuarioPara:' + $('#DdlTecnico').val(); + '&CveSubProyecto:' + $('#DdlSubProyecto').val();
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();
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);--%>