Registrar
diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx b/Sistemas/PopUpSeleccionarEmpresa.aspx
index efd3192d7..c51f00ae2 100644
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx
@@ -46,14 +46,14 @@
-
Portal Rastreo
-
+
@@ -113,8 +113,9 @@
$('#BtnSeleccionar').click();
}
- function Ir2() {
- gotourl('/PortalGPS/InicioGPS.aspx');
+ function Ir2(url) {
+ //gotourl('/PortalGPS/InicioGPS.aspx');
+ gotourl(url);
}
function Ir3() {
diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
index 46170eba2..684dd4553 100644
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
@@ -93,41 +93,6 @@ Partial Class PopUpSeleccionarEmpresa
End If
End If
- End Sub
- Protected Sub GvPortalRastreo_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalRastreo.RowCommand
- If e.CommandName = "Cambia" Then
- Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
-
- If gvr IsNot Nothing Then
-
- Dim ObjUsuario As New ClsSisUsuarios
- Dim Usuario As Usuario = Nothing
- Usuario = ObjUsuario.ValidaUsuarioGPS2(gvr.DataKey("CveCliente"), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
- ObjUsuario.Dispose()
-
- If Usuario IsNot Nothing Then
- Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
- Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
- Usuario.ModoSimulacion = ModoSimulacion
- ADSSession.ADSSessionConfig.sessionUser = Usuario
- ADSSession.ADSSessionConfig.sessionDpage = False
-
- If dt IsNot Nothing Then
- If dt.Rows.Count >= 1 Then
- If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
- Usuario.CvePlataforma = 3
- CreaObjetoEmpresa(Usuario)
- 'si la contraseña es la prederminada, pide la nueva contraseña
- 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
- RegistraScript("Ir2();")
- End If
- End If
- dt.Dispose()
- End If
-
- End If
-
- End If
End Sub
Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand
If e.CommandName = "Cambia" Then
@@ -263,4 +228,15 @@ Partial Class PopUpSeleccionarEmpresa
End Sub
#End Region
+ Protected Sub GvPortalRastreo_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ Dim Parametros As String = Encripta($"OPCION=PORTALGPS&CVEEMPRESA={e.Row.DBCampo("CveEmpresa")}&CVECLIENTE={e.Row.DBCampo("CveCliente")}&CVEUSUARIO={UsuarioActual.CveUsuario}&TICKS={Now.Ticks}")
+
+ Dim SitioGPS As String = "https://gps.signalsgps.com/"
+
+ Dim URLGPS As String = $"{SitioGPS}LogIn.aspx?P={Parametros}"
+
+ e.Row.FCHyperLink("HlpPortal").NavigateUrl = URLGPS
+ End If
+ End Sub
End Class
\ No newline at end of file
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 7ca8fc7ea..b828d9285 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -27021,7 +27021,7 @@ Partial Class Ventas
Dim ObjMovtos As New ClsMovimientos()
If ObjMovtos.GetRemisionesNCCliente(CveCliente, True, CveMoneda:=-1) Then
- Me.TmpDTRNCDetalle = ObjMovtos.DtResultados.Copy()
+ Me.TmpDTRNCDetalle = ObjMovtos.DtResultados.FiltraParametros("Total > 0")
End If
ObjMovtos.Dispose()