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

-- mejoras, cambio de "no requiere unidad"

Browse Source 
-- quitar la unidad especificada!
This commit is contained in:
rrene
2024-12-04 18:25:27 -07:00
parent f4b4267d50
commit db8d7f6aff
5 changed files with 21 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Transportes/RepContratoDetalle.aspx
View File

@@ -418,8 +418,7 @@
<div class="col-md-12" style="text-align: center;">
<asp:UpdatePanel ID="UpPagos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" runat="server" visible="false" id="DVFactura">
<div class="row" runat="server" id="DVFactura">
<label class="col-md-2">Factura: </label>
<div class="col-md-3">
<asp:HyperLink runat="server" Text="" Target="_blank" id="HypRemision" CssClass="Texto"></asp:HyperLink>

29
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -7,8 +7,6 @@ Imports System.IO
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class RepContratoDetalle
Inherits ClsPaginas
#Region "Propiedades"
@@ -279,18 +277,8 @@ Partial Class RepContratoDetalle
LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-light"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveContrato:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveContrato)
CargaEventoBitacora()
End If
'If CveVentaRemision > 0 Then
' DVFactura.Visible = True
' ChkEsPresupuestal.Enabled = False
' ChkEsPresupuestal.Checked = False
'End If
End If
End Sub
Private Sub InicializaCombos()
'Lista Tipo AF
@@ -325,16 +313,12 @@ Partial Class RepContratoDetalle
DdlVendedor.Enabled = False
End If
End Sub
Private Sub CargaDatos()
CargaDatosContrato()
CargaDatosViajes()
'Información General
End Sub
Private Sub CargaDatosContrato()
@@ -440,7 +424,6 @@ Partial Class RepContratoDetalle
UpTabContainer.Update()
End Sub
#End Region
Protected Sub DdlUsuarioFiltroBoletos_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaDatosViajes()
@@ -478,8 +461,6 @@ Partial Class RepContratoDetalle
Filename = fileItem.filename
Next
If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then
If Filename <> "" Then
Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
@@ -499,7 +480,6 @@ Partial Class RepContratoDetalle
CargaEventoBitacora()
UPAddEventoBitacora.Update()
End Sub
Private Sub CargaEventoBitacora()
If CveContrato > 0 Then
@@ -515,8 +495,6 @@ Partial Class RepContratoDetalle
End If
End Sub
Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)
Dim Archivo As New System.IO.FileInfo(filePath)
@@ -578,8 +556,6 @@ Partial Class RepContratoDetalle
BtnDescargar.Visible = True
End If
End Sub
Public Function ObtenerUrlCompleta() As String
Dim Solicitud As HttpRequest = HttpContext.Current.Request
@@ -589,7 +565,6 @@ Partial Class RepContratoDetalle
url &= ":" & Solicitud.Url.Port
End If
url &= Solicitud.ApplicationPath
If Not url.EndsWith("/") Then
@@ -599,15 +574,12 @@ Partial Class RepContratoDetalle
Return url
End Function
Protected Sub UpdateContrato(sender As Object, e As EventArgs)
Dim ArchivoUpdate As String = "-1"
Dim ErrorProceso As Boolean = False
Dim SeGeneroRemision As Boolean = False
Dim SerieFolioRemision As String = ""
If Session("FileExtension").ToString <> "" Then
'ArchivoUpdate = $"{CveContrato.ToString}.{ Session("FileExtension")}"
ArchivoUpdate = $".{Session("FileExtension").ToString}"
Else
@@ -617,7 +589,6 @@ Partial Class RepContratoDetalle
Dim ObjContratos As New ClsContratos
ObjContratos.IniciaTransacSQL()
If Not ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "",
DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkEsPresupuestal.Checked, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then

6
Transportes/RepContratos.aspx
View File

@@ -515,9 +515,9 @@
</ContentTemplate>
</asp:UpdatePanel>
<div class="row my-1">
<label class="col-md-5">NO Requiere Unidad</label>
<div class="col-md-7">
<asp:CheckBox runat="server" ID="ChkEsPresupuestal" Checked="true" />
<label class="col-md-6">NO Requiere Unidad</label>
<div class="col-md-6">
<asp:CheckBox runat="server" ID="ChkEsPresupuestal" />
</div>
</div>
</div>

19
Transportes/RepContratosCalendario.aspx
View File

@@ -296,7 +296,7 @@
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
<div class="row" style="margin-right: 10px; margin-top: 8px;" align="right">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvContratos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvContratos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
@@ -316,8 +316,7 @@
<asp:TemplateField ItemStyle-Width="120px">
<HeaderTemplate>
Fecha<br />
Salida
Salida
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlFechaI" runat="server" Text='<%# Eval("FechaInicial", "{0:dd/MM/yyyy HH:mm}") %>'></asp:Literal>
@@ -775,11 +774,14 @@
<script >
var chartHeader;
var chartBody;
function cargaDiagramaGrantAMC4(data, categorias, TipoVista) {
function cargaDiagramaGrantAMC4(data, categorias, TipoVista) {
try {
// Si ya hay gráficos, eliminarlos para crear nuevos
if (chartHeader) {
@@ -1009,9 +1011,10 @@
chartHeader.validateLayout();
});
}
catch (error) {
console.error(error);
}
}
function cargaDiagramaGrant(data, categorias, TipoVista) {

29
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -53,7 +53,7 @@ Partial Class RepContratosCalendario
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString()
txtFechaF.Text = GetLastDayOfMonth(NowADS()).ToShortDateString()
InicializaCombos()
CargaDatos()
CargaDatos()
End If
'InicializaCalendar()
End Sub
@@ -189,27 +189,14 @@ Partial Class RepContratosCalendario
End Sub
Private Sub CargaCronograma(Optional TipoVista As Integer = -1)
If DtAvance IsNot Nothing Then
Dim strData As New StringBuilder
Dim strAFData As New StringBuilder
'Dim separator As String = ""
'Dim str As New StringBuilder()
'str.AppendLine("datosGant=[")
Dim StrFiltro As String = ""
If DdlTipoUnidad.SelectedValue.ToEntero > 0 Then StrFiltro = " AND CveTipoActivoFijo = " & DdlTipoUnidad.SelectedValue
Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3) " & StrFiltro, Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"})
Dim jsonData As New JArray()
Dim jsonCategorias As New JArray()
Dim random = New Random()
'DATOS
@@ -237,11 +224,11 @@ Partial Class RepContratosCalendario
Dim FF As Date = Row("FechaFinal").ToString.ToDate
strData.AppendLine("{")
strData.AppendLine($"category: '{Row("CodigoAF").ToString}',")
strData.AppendLine($"category: '{Row("CodigoAF").ToString.Replace("'", "")}',")
strData.AppendLine($"fromDate: '{FI.ToString("yyyy-MM-dd HH:mm:ss")}',")
strData.AppendLine($"toDate: '{FF.ToString("yyyy-MM-dd HH:mm:ss")}',")
'strData.AppendLine($"columnSettings: {{fill: '{String.Format("#{0:X6}", random.Next(16777216))}'}},")
strData.AppendLine($"unidad: '{Row("NombreAF").ToString}',")
strData.AppendLine($"unidad: '{Row("NombreAF").ToString.Replace("'", "")}',")
strData.AppendLine($"color: am4core.color('" & String.Format("#{0:X6}", random.Next(16777216)) & "'),")
strData.AppendLine($"cveContrato: {Row("CveContrato").ToString.ToEntero},")
strData.AppendLine($"contrato: '{Row("NumeroContrato").ToString}',")
@@ -249,7 +236,6 @@ Partial Class RepContratosCalendario
strData.AppendLine($"cliente: '{Row("NombreComercial").ToString.Replace("'", "")}'")
strData.AppendLine("},")
strAF.AppendFormat("{0},", Row("CveAF"))
'uniad contrato y duracion
@@ -275,16 +261,15 @@ Partial Class RepContratosCalendario
New JProperty("category", Row("Codigo"))
)
jsonCategorias.Add(obj)
strAFData.AppendLine("{")
strAFData.AppendLine($"category: '{Row("Codigo").ToString}',")
strAFData.AppendFormat("category: '{0}'", Row("Codigo"))
strAFData.AppendLine("},")
Next
strAFData.AppendLine("{}]")
'RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()},{TipoVista});", $"{random.Next(16777216)}")
RegistraScript($"cargaDiagramaGrantAMC4({strData.ToString().Replace(",{}", "")},{strAFData.ToString().Replace(",{}", "")},{TipoVista});", $"{random.Next(16777216)}")
RegistraScript($" cargaDiagramaGrantAMC4({strData.ToString().Replace(",{}", "")},{strAFData.ToString().Replace(",{}", "")},{TipoVista}); ", random.Next(16777216).ToString)
UPPGantt.Update()
UPGat.Update()
@@ -562,8 +547,6 @@ Partial Class RepContratosCalendario
e.Row.BackColor = Drawing.ColorTranslator.FromHtml(BGC_Atencion)
End If
End If
End If
End Sub
@@ -893,7 +876,7 @@ Partial Class RepContratosCalendario
'End If
DdlAF.DataBind()
DdlAF.Items.Insert(0, New ListItem("-", "-1"))
DdlAF.Items.Insert(0, New ListItem("-", "0")) 'DEBE DE SER CERO, SI SE QUIERE QUITAR LA UNIDAD
UpModal.Update()
End Sub