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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-02-28 10:11:42 -07:00
parent d4b756b80e
commit 1a6c3c6264
14 changed files with 404 additions and 140 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
PortalGPS/InicioGPS.aspx
View File

@@ -128,6 +128,43 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>--%>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="divComentarios" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title" id="myModalLabelComenta">Comentarios para vehículo: </h4>
</div>
<div class="modal-body">
<asp:UpdatePanel ID="UpdatePanel2" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<asp:Button runat="server" ID="BtnCargaComentarios" Style="display: none" />
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtComentarios" runat="server" Text="--" TextMode="MultiLine" Rows="4" CausesValidation="True" CssClass="form-control"></asp:TextBox>
<asp:Label runat="server" Text="Comentario: " style="padding-bottom: 92px;" AssociatedControlID="TxtComentarios"></asp:Label>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel ID="UpdatePanel3" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<button id="BtnModalBancosLayoutCerrar" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
<asp:Button Text="Guardar" ID="BtnGuardarComentario" OnClick="BtnGuardarComentario_Click" CssClass="btn btn-primary" ValidationGroup="grpEditarcomentario" runat="server" />
</ContentTemplate>
</asp:UpdatePanel>
</div>
</ContentTemplate>
</asp:UpdatePanel>
@@ -245,6 +282,17 @@
$("#divComandos").modal()
$("#C_BtnCargaComandos").click()
}
function EditarComentario(Vehiculo, Comentario, CveDispositivo) {
$("#HdnCveDipositivo").val(CveDispositivo)
// if (open) { FNShowDiv(); }
$("#myModalLabelComenta").text("Comentarios para vehículo: " + Vehiculo)
closeLastOpenedInfoWindow();
$("#divComentarios").modal();
$("#C_TxtComentarios").val(Comentario)
$("#C_BtnCargaComentarios").click()
}
function ControlLabels(controlDiv, map) {
@@ -337,7 +385,7 @@
});
}
}
}
</script>
<script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>

24
PortalGPS/InicioGPS.aspx.vb
View File

@@ -229,23 +229,37 @@ Partial Class GPS_PruebaMaster
Public Function InfoWindowCombustible(Header As String, ExtraBody As String, CveDispositivo As Integer, row As DataRow, Optional PermisoComandos As Boolean = True) As String
Dim SBuilder As New StringBuilder
SBuilder.Clear()
SBuilder.Append($"<div>")
SBuilder.Append($"<div class=\'row\'><div class=\'col-md-6\'>")
SBuilder.Append($"<div><h5><a target=\'_blank\' href=\'/GPS/Vehiculos.aspx?CveDispositivo={CveDispositivo}\'><b>{Header}</b></a></h5></div>")
SBuilder.Append($"<div><table>")
SBuilder.Append($"<tr><td>Fecha : {row("FechaTrama")} </td></tr>")
SBuilder.Append($"<tr><td>Conductor : {row("Conductor").ToString}</td></tr>")
SBuilder.Append($"<tr><td>Conductor : {row("Conductor")}</td></tr>")
SBuilder.Append($"<tr><td>Combustible : {IfNull(row("Combustible"), "NO DISPONIBLE", $"{row("Combustible").ToString.FormatoNumero} lts").ToString}</td></tr>")
If row("SPD").ToString <> "-1" Then
SBuilder.Append($"<tr><td>Velocidad : {row("SPD").ToString} KM/H </td></tr>")
SBuilder.Append($"<tr><td>Velocidad : {row("SPD")} KM/H </td></tr>")
End If
If ExtraBody <> "" AndAlso ExtraBody <> "-1" Then
SBuilder.Append(ExtraBody)
End If
If PermisoComandos Then
SBuilder.Append($"<tr><td><a href=""javascript:;"" onclick=""CargaComandos(\'{row("Vehiculo").ToString}\',{CveDispositivo});"">Comandos</a></td></tr>")
SBuilder.Append($"<tr><td><a href=""javascript:;"" onclick=""CargaComandos(\'{row("Vehiculo")}\',{CveDispositivo});"">Comandos</a></td></tr>")
End If
SBuilder.AppendFormat("<tr><td><a target=\'_blank\' href=\'https://www.google.com/maps/search/{0},{1}/\'>Ver en google maps</a></td></tr>", row("Lat").ToString, row("Lng").ToString)
SBuilder.Append($"</table></div><div></div></div>")
SBuilder.Append("</table></div><div></div></div><div class=\'col-md-6\'>")
SBuilder.Append("Comentario:<br />")
SBuilder.Append($"{row("Comentarios")}<br /><a href=""javascript:;"" onclick=""EditarComentario(\'{row("Vehiculo")}\',\'{row("Comentarios")}\',{CveDispositivo});"">Editar</a>")
SBuilder.Append("</div></div>")
Return SBuilder.ToString
End Function
Protected Sub BtnGuardarComentario_Click(sender As Object, e As EventArgs)
Dim CveDispositivo As Integer = HdnCveDipositivo.Value.ToEntero()
Dim comentario As String = TxtComentarios.Text
Using objgps As New ClsGPS
objgps.DispositivoComentarioupdate(CveDispositivo, comentario, UsuarioActual.CveUsuario)
RegistraScript("$(""#divComentarios"").modal('hide');")
End Using
BtnCargar_Click(Nothing, Nothing)
End Sub
End Class