Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

App_Code/ClsCompras.vb

@@ -3074,6 +3074,39 @@ Public Class ClsCompras
         Return Retorno
     End Function
 
+    Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_FletesComprasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_FletesComprasAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveOC", SqlDbType.Int).Value = CveOC
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
 #Region "REPORTE PUE SIN PAGO"
 
     Public Function GetPUESinPago(FI As DateTime, FF As DateTime, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean

App_Code/ClsSisUsuarios.vb

@@ -415,6 +415,123 @@ Public Class ClsSisUsuarios
         Return Retorno
     End Function
 
+
+    Public Function ValidaUsuarioPortalCliente(CveCliente As Integer, Usuario As String, Password As String) As Usuario
+        Dim Retorno As Usuario = Nothing
+
+        DataAdapter("PA_Sis_UsuariosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUsuario", SqlDbType.Int).Value = -1
+            .Add("@CveRol", SqlDbType.Int).Value = -1
+            .Add("@Usuario", SqlDbType.VarChar).Value = Usuario
+            .Add("@Contraseña", SqlDbType.VarChar).Value = Password
+            .Add("@EsLogIn", SqlDbType.Bit).Value = 1
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            If Data.Rows.Count > 0 Then
+                Retorno = New Usuario
+
+                Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
+                Retorno.Usuario = Usuario
+                Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString
+                Retorno.Nombre = Data.Rows(0)("Nombre").ToString
+                Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero
+                Retorno.Rol = Data.Rows(0)("Rol").ToString
+                'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
+                Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
+                Retorno.CveCliente = CveCliente
+                Retorno.ClienteGPS = False
+                Retorno.Portal = True
+                Retorno.Referencia = Data.Rows(0)("Referencia").ToString
+                Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
+                'Retorno.Liga = Data.Rows(0)("Liga").ToString
+                'cargo los modulos del usuario y genero el menú
+                Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveCliente)
+
+                Dim UsuariosModulos As New HybridDictionary
+                For Each Row As DataRow In dttmp.Rows
+                    UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString)
+                Next
+                Retorno.Modulos = UsuariosModulos
+                ''cargo los procesos del usuario
+                dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario)
+                Dim UsuariosProcesos As New HybridDictionary
+                For Each Row As DataRow In dttmp.Rows
+                    UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString)
+                Next
+                Retorno.Procesos = UsuariosProcesos
+            End If
+
+        Catch ex As SqlException
+            OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex)
+            Retorno = Nothing
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function ValidaUsuarioPortalProveedor(CveProveedor As Integer, Usuario As String, Password As String) As Usuario
+        Dim Retorno As Usuario = Nothing
+
+        DataAdapter("PA_Sis_UsuariosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUsuario", SqlDbType.Int).Value = -1
+            .Add("@CveRol", SqlDbType.Int).Value = -1
+            .Add("@Usuario", SqlDbType.VarChar).Value = Usuario
+            .Add("@Contraseña", SqlDbType.VarChar).Value = Password
+            .Add("@EsLogIn", SqlDbType.Bit).Value = 1
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            If Data.Rows.Count > 0 Then
+                Retorno = New Usuario
+
+                Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
+                Retorno.Usuario = Usuario
+                Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString
+                Retorno.Nombre = Data.Rows(0)("Nombre").ToString
+                Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero
+                Retorno.Rol = Data.Rows(0)("Rol").ToString
+                'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
+                Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
+                Retorno.CveProveedor = CveProveedor
+                Retorno.ClienteGPS = False
+                Retorno.Portal = True
+                Retorno.Referencia = Data.Rows(0)("Referencia").ToString
+                Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
+                'Retorno.Liga = Data.Rows(0)("Liga").ToString
+                'cargo los modulos del usuario y genero el menú
+                Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveProveedor)
+
+                Dim UsuariosModulos As New HybridDictionary
+                For Each Row As DataRow In dttmp.Rows
+                    UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString)
+                Next
+
+                Retorno.Modulos = UsuariosModulos
+                ''cargo los procesos del usuario
+                dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario)
+                Dim UsuariosProcesos As New HybridDictionary
+                For Each Row As DataRow In dttmp.Rows
+                    UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString)
+                Next
+                Retorno.Procesos = UsuariosProcesos
+            End If
+
+        Catch ex As SqlException
+            OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex)
+            Retorno = Nothing
+        End Try
+
+        Return Retorno
+    End Function
+
+
 #Region "U S U A R I O - I N D I C A D O R E S"
     Public Function getUsuarioIndicadores(_CveUsuario As Integer, _CveEmpresa As Integer, _CveRol As Integer) As DataTable
 
@@ -2672,6 +2789,78 @@ Public Class ClsSisUsuarios
 
         Return Retorno
     End Function
+
+    Public Function GetUsuarioCliente(CveUsuario As Integer, CveCliente As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Sis_UsuariosClienteGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error el acceso a clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Sis_UsuariosProveedoresAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar el nuevo usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Sis_UsuariosProveedorGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el acceso a proveedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 #End Region
 
 

Compras/Compras.aspx.vb

@@ -19218,13 +19218,13 @@ Partial Class Compras_Compras
                     Dr = ObjInventario.DtResultados.Rows(0)
                 End If
             End If
-            If Dr IsNot Nothing Then
+            'If Dr IsNot Nothing Then
-                If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then
+            '    If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then
-                    Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia)
+            '        Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia)
-                    ObjInventario.Dispose()
+            '        ObjInventario.Dispose()
-                    Exit Sub
+            '        Exit Sub
-                End If
+            '    End If
-            End If
+            'End If
             ObjInventario.Dispose()
         End If
 
@@ -19257,8 +19257,11 @@ Partial Class Compras_Compras
                                 If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
                                     ErrorTrans = True
                                 End If
+                                If Not ObjCompras.AddFletesCompras(CveFlete, CveCompra:=CveCompra) Then
+                                    ErrorTrans = True
+                                End If
                             Else
-                                ErrorTrans = True
+                                    ErrorTrans = True
                             End If
                         Case 2
                             If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then

Compras/RepComprasDetalle.aspx

@@ -410,6 +410,7 @@
                             <asp:Literal ID="LtlObs" runat="server" Text='<%# Eval("Observaciones") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:BoundField DataField="Descripcion" ItemStyle-Width="100px" HeaderText="Descripción" />
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -481,7 +482,7 @@
                                         <asp:CheckBox ID="ChkDesc" runat="server" Text="Descuentos" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkTotal" runat="server" Text="Total" /></td>
-                                    <td></td>
+                                    <td><asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción"/></td>
                                 </tr>
                                 <tr>
                                     <td>

Compras/RepComprasDetalle.aspx.vb

@@ -607,6 +607,7 @@ Partial Class Compras_RepComprasDetalle
         GvDatos.Columns(10).Visible = ChkFolio.Checked
         GvDatos.Columns(11).Visible = ChkFecha.Checked
         GvDatos.Columns(12).Visible = ChkObs.Checked
+        GvDatos.Columns(13).Visible = ChkDescripcion.Checked
         UPDatos.Update()
     End Sub
 

Contabilidad/RegPrePoliza.aspx

@@ -190,6 +190,7 @@
                                                     <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList><br />
                                                     <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
                                                     <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
+                                                    <asp:DropDownList ID="DdlClasificaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false"></asp:DropDownList>
                                                     <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
                                                     <br />
                                                     <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList><br />

Contabilidad/RegPrePoliza.aspx.vb

@@ -570,6 +570,16 @@ Partial Class ContabilidadC_RegPrePoliza
             TxtTC.Visible = False
         End If
 
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(69) Then
+            CargaClasificaciones()
+            DdlClasificaciones.Visible = True
+        Else
+        TxtTC.Text = ""
+        DdlClasificaciones.Visible = False
+        End If
+
+
+
     End Sub
 
     Private Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged
@@ -633,6 +643,12 @@ Partial Class ContabilidadC_RegPrePoliza
         '  DdlClientes.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
 
+    Private Sub CargaClasificaciones()
+        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificaciones.DataBind()
+        '  DdlClientes.Items.Insert(0, New ListItem("  -  ", "-1"))
+    End Sub
+
     Private Sub CargaVentas(CveCliente As Integer)
         Dim ObjVentas As New ClsVentas
 
@@ -942,6 +958,7 @@ Partial Class ContabilidadC_RegPrePoliza
 
                                 'MENSAJE PRINCIPAL
                                 MensajeAlert.AppendFormat("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
+                                MensajeAlert.AppendFormat("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
                                 'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
                             Else
                                 Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
@@ -1209,7 +1226,7 @@ Partial Class ContabilidadC_RegPrePoliza
                 dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
                 dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
                 dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
-                dr("CveClasificacion") = -1
+                dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
             End If
@@ -1278,7 +1295,7 @@ Partial Class ContabilidadC_RegPrePoliza
                 dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
                 dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
                 dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
-                dr("CveClasificacion") = -1
+                dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
                 dr("TC") = TxtTC.Text.ToDouble

Inventarios/Fletes.aspx

@@ -63,34 +63,34 @@
                                     </div>
                                 </div>
                             </div>
-                            <div class="row">
+                            <%--<div class="row">
                                 <div class="col-md-12">
                                     <hr />
                                 </div>
                                 <div class="col-md-2">
                                     Modalidad
-                                </div>
+                                </div>--%>
-                                <div class="col-md-5">
+                                <%--<div class="col-md-5">
                                     <asp:DropDownList ID="DdlModalidad" AutoPostBack="true" OnSelectedIndexChanged="DdlModalidad_SelectedIndexChanged" runat="server" CssClass="select2me Widthall">
                                         <asp:ListItem Text="OC" Value="1" Selected="True" />
                                         <asp:ListItem Text="Compra" Value="2" />
                                     </asp:DropDownList>
-                                </div>
+                                </div>--%>
-                                <div class="col-md-5 text-center">
+                                <%--<div class="col-md-5 text-center">
-                                    <div runat="server" id="DivVincularOC">
+                                    <%--<div runat="server" id="DivVincularOC">
                                         <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/OC/PopUpBuscarReq.aspx?Op=FactFle',800,600,'N');"><i class='fa fa-plus'></i>Vincular Orden de Compra</a>
-                                        <asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" OnClick="BtnVincularOC_Click" Style="display: none;" class="btn btn-primary" />
+                                        <asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" Style="display: none;" class="btn btn-primary" />
                                         <asp:HiddenField runat="server" ID="HdnCveOC" ClientIDMode="Static" Value="-1" />
-                                    </div>
+                                    </div>--%>
 
-                                    <div runat="server" id="DivVincularCompra" visible="false">
+                                    <%--<div runat="server" id="DivVincularCompra" visible="false">
                                         <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=Fact',800,600,'N');"><i class='fa fa-plus'></i>Vincular Compra</a>
                                         <asp:Button ID="BtnVincularCompra" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompra_Click" Style="display: none;" class="btn btn-primary" />
                                         <asp:HiddenField runat="server" ID="HdnCveCompra" ClientIDMode="Static" Value="-1" />
-                                    </div>
+                                    </div>--%>
-                                </div>
+                                <%--</div>--%>
-                            </div>
+                            <%--</div>--%>
-                        <div class="row">
+                        <%--<div class="row">
                             <div class="col-md-2">Proveedor:</div>
                             <div class="col-md-10">
                                 <asp:Label ID="LbOCProveedor" Text="" runat="server" />
@@ -107,12 +107,51 @@
                             <div class="col-md-10">
                                 <asp:Label ID="LbOCImporte" Text="" runat="server" />
                             </div>
-                        </div>
+                        </div>--%>
                     </div>
                     </div>
                 </ContentTemplate>
             </asp:UpdatePanel>
         </div>
+        <div class="col-md-6">
+            <asp:UpdatePanel runat="server" ID="UpComprasGrid">
+                <ContentTemplate>
+                    <div class="portlet light smmallpadding bordered " id="PorletCompras">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">Compras</span>
+                            </div>
+                            <div class="tools">
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+                        </div>
+                        <div class="portlet-body rowpadding">
+                            <div class="row">
+                                <div class="col-md-12">
+                                    <asp:GridView ID="GvComprasVinculadas" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD" Width="100%" GridLines="None" DataKeyNames="CveFleteCompra" EmptyDataText="No hay compras vinculadas" >
+                                        <Columns>
+                                            <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-Width="30%" />
+                                            <asp:HyperLinkField HeaderText="Serie-Folio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="SerieFolio" ItemStyle-Width="10%" Target="_blank" />
+                                            <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
+                                            <asp:BoundField HeaderText="Moneda" ItemStyle-HorizontalAlign="Center" DataField="Abreviatura" ItemStyle-Width="10%" />
+                                            <asp:BoundField HeaderText="TC" ItemStyle-HorizontalAlign="Center" DataField="TipoCambio" ItemStyle-Width="5%" />
+                                            <%--<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" >
+                                                <ItemTemplate>
+                                                    <div data-toggle="tooltip" data-original-title="Eliminar compra vinculada">
+                                                        <asp:LinkButton ID="LnkEliminaCompraVinculada" OnClick="LnkEliminaCompraVinculada_Click" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />   
+                                                    </div>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>--%>
+                                        </Columns>
+                                    </asp:GridView>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
     </div>
 
     <div class="row">
@@ -128,13 +167,13 @@
                             <div class="tools">
                                 <a href="javascript:;" class="collapse"></a>
                             </div>
-                            <div class="actions">
+                            <%--<div class="actions">
                                 <div class="btn-group">
                                     <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=FactFlete',800,600,'N');" data-toggle="tooltip" data-placement="top" title="Agregar compra(factura) de gastos."><i class='fa fa-plus'></i>Agregar compra de gasto</a>
                                     <asp:Button ID="BtnVincularCompraGasto" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompraGasto_Click" Style="display: none;" class="btn btn-primary" />
                                     <asp:HiddenField runat="server" ID="HdnCveCompraGasto" ClientIDMode="Static" Value="-1" />
                                 </div>
-                            </div>
+                            </div>--%>
                         </div>
                         <div class="portlet-body rowpadding">
                             <div class="row">

Inventarios/Fletes.aspx.vb

@@ -81,27 +81,27 @@ Partial Class Compras_Fletes
                 TxtFecha.Text = ObjInv.DtResultados.Rows(0)("Fecha").ToString
 
                 If ObjInv.DtResultados.Rows(0)("CveOC").ToString.ToEntero > 0 Then
-                    DdlModalidad.SelectedValue = "1"
+                    'DdlModalidad.SelectedValue = "1"
                 Else
-                    DdlModalidad.SelectedValue = "2"
+                    'DdlModalidad.SelectedValue = "2"
                 End If
-                CambiaModalidad()
+                'CambiaModalidad()
-                HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString
+                'HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString
-                HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString
+                'HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString
 
-                LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString
+                'LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString
-                HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString
+                'HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString
-                HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}")
+                'HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}")
-                LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}"
+                'LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}"
 
                 If ObjInv.GetFleteDetalle(CveFlete) Then
                     DtCompras = ObjInv.DtResultados
                 Else
                     Alert("Ocurrió un error al cargar el detalle del flete", TipoMensaje.MsgError)
                 End If
-
+                CargarComprasRelacionadas()
             Else
-                Alert("No se encontró el flete", TipoMensaje.MsgInformacion)
+                Alert("No se encontró el flete", TipoMensaje.MsgAdvertencia)
             End If
         Else
             Alert("Ocurrió un error al cargar el flete", TipoMensaje.MsgError)
@@ -123,168 +123,168 @@ Partial Class Compras_Fletes
 #Region "   VINCULA DOCUMENTO PRINCIPAL - OC | COMPRA   "
 
     Protected Sub DdlModalidad_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CambiaModalidad()
+        'CambiaModalidad()
         UpRegistro.Update()
     End Sub
-    Private Sub CambiaModalidad()
+    'Private Sub CambiaModalidad()
-        HdnCveOC.Value = "-1"
+    '    HdnCveOC.Value = "-1"
-        HdnCveCompra.Value = "-1"
+    '    HdnCveCompra.Value = "-1"
 
-        LbOCProveedor.Text = ""
+    '    LbOCProveedor.Text = ""
-        HLOCFolio.Text = ""
+    '    HLOCFolio.Text = ""
-        HLOCFolio.NavigateUrl = "#"
+    '    HLOCFolio.NavigateUrl = "#"
-        LbOCImporte.Text = ""
+    '    LbOCImporte.Text = ""
 
-        DivVincularOC.Visible = DdlModalidad.SelectedValue = "1"
+    '    DivVincularOC.Visible = DdlModalidad.SelectedValue = "1"
-        DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2"
+    '    DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2"
-    End Sub
+    'End Sub
 
-    Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
+    'Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
-        VinculaOC()
+    '    VinculaOC()
-    End Sub
+    'End Sub
-    Private Sub VinculaOC()
+    'Private Sub VinculaOC()
-        If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then
+    '    If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then
-            Dim ObjInv As New ClsInventarios
+    '        Dim ObjInv As New ClsInventarios
-            Dim ObjOC As New ClsOC
+    '        Dim ObjOC As New ClsOC
-            If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then
+    '        If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then
-                If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+    '            If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then
-                    If ObjOC.DtResultados.Rows.Count > 0 Then
+    '                If ObjOC.DtResultados.Rows.Count > 0 Then
-                        LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString
+    '                    LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString
-                        HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}"
+    '                    HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}"
-                        HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}"
+    '                    HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}"
-                        LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}"
+    '                    LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}"
-                    End If
+    '                End If
-                Else
+    '            Else
-                    HdnCveOC.Value = "-1"
+    '                HdnCveOC.Value = "-1"
-                End If
+    '            End If
-            Else
+    '        Else
-                Alert($"La orden de compra ya forma parte del flete: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '            Alert($"La orden de compra ya forma parte del flete: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
+    '        End If
-            ObjInv.Dispose()
+    '        ObjInv.Dispose()
-            ObjOC.Dispose()
+    '        ObjOC.Dispose()
-        End If
+    '    End If
-        UpRegistro.Update()
+    '    UpRegistro.Update()
-    End Sub
+    'End Sub
-    Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs)
+    'Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs)
-        VincularCompra()
+    '    VincularCompra()
-    End Sub
+    'End Sub
-    Private Sub VincularCompra()
+    'Private Sub VincularCompra()
 
-        If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then
+    '    If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then
-            Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia)
+    '        Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+    '        Exit Sub
-        End If
+    '    End If
 
-        Dim ObjCompras As New ClsCompras
+    '    Dim ObjCompras As New ClsCompras
-        Dim ObjInv As New ClsInventarios
+    '    Dim ObjInv As New ClsInventarios
-        Dim ErrorAgregar = False
+    '    Dim ErrorAgregar = False
-        Dim RowCompras As DataRow = Nothing
+    '    Dim RowCompras As DataRow = Nothing
 
-        If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
+    '    If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
-            RowCompras = ObjCompras.DtResultados.Rows(0)
+    '        RowCompras = ObjCompras.DtResultados.Rows(0)
-            If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
+    '        If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
-                ErrorAgregar = True
+    '            ErrorAgregar = True
-                Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '            Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
+    '        End If
-        Else
+    '    Else
-            ErrorAgregar = True
+    '        ErrorAgregar = True
-            Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
+    '        Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
-        End If
+    '    End If
 
-        If Not ErrorAgregar Then
+    '    If Not ErrorAgregar Then
-            If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
+    '        If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
-                ErrorAgregar = True
+    '            ErrorAgregar = True
-                Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '            Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
+    '        End If
-        End If
+    '    End If
 
-        If Not ErrorAgregar Then
+    '    If Not ErrorAgregar Then
-            LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString
+    '        LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString
-            HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}"
+    '        HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}"
-            HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}"
+    '        HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}"
-            LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}"
+    '        LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}"
-        Else
+    '    Else
-            HdnCveCompra.Value = "-1"
+    '        HdnCveCompra.Value = "-1"
-        End If
+    '    End If
 
-        ObjCompras.Dispose()
+    '    ObjCompras.Dispose()
-        ObjInv.Dispose()
+    '    ObjInv.Dispose()
 
-    End Sub
+    'End Sub
 
 #End Region
 
 #Region "   AGREGA COMPRA GASTO   "
-    Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs)
+    'Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs)
-        AgregaCompraGasto()
+    '    AgregaCompraGasto()
-    End Sub
+    'End Sub
-    Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs)
+    'Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs)
-        AgregaCompraGasto()
+    '    AgregaCompraGasto()
-    End Sub
+    'End Sub
-    Private Sub AgregaCompraGasto()
+    'Private Sub AgregaCompraGasto()
 
-        If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then
+    '    If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then
-            Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia)
+    '        Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+    '        Exit Sub
-        End If
+    '    End If
 
-        Dim ObjCompras As New ClsCompras
+    '    Dim ObjCompras As New ClsCompras
-        Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL)
+    '    Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL)
-        Dim ErrorAgregar = False
+    '    Dim ErrorAgregar = False
-        Dim RowCompras As DataRow = Nothing
+    '    Dim RowCompras As DataRow = Nothing
 
-        If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
+    '    If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
-            RowCompras = ObjCompras.DtResultados.Rows(0)
+    '        RowCompras = ObjCompras.DtResultados.Rows(0)
-            If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
+    '        If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
-                ErrorAgregar = True
+    '            ErrorAgregar = True
-                Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '            Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
+    '        End If
-        Else
+    '    Else
-            ErrorAgregar = True
+    '        ErrorAgregar = True
-            Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
+    '        Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
-        End If
+    '    End If
 
-        If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then
+    '    If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then
-            ErrorAgregar = True
+    '        ErrorAgregar = True
-            Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '        Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-        End If
+    '    End If
 
-        If Not ErrorAgregar Then
+    '    If Not ErrorAgregar Then
-            If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
+    '        If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
-                ErrorAgregar = True
+    '            ErrorAgregar = True
-                Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '            Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
+    '        End If
-        End If
+    '    End If
 
-        If Not ErrorAgregar Then
+    '    If Not ErrorAgregar Then
-            If Not GvDatos.Rows.Count > 0 Then
+    '        If Not GvDatos.Rows.Count > 0 Then
-                DtCompras = RowCompras.Table.Clone
+    '            DtCompras = RowCompras.Table.Clone
-                DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32"))
+    '            DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32"))
-            End If
+    '        End If
-            If CveFlete > 0 Then
+    '        If CveFlete > 0 Then
-                If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then
+    '            If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then
-                    ErrorAgregar = True
+    '                ErrorAgregar = True
-                    Alert("Ocurrió un error al agregar la  compra. Por favor intente de nuevo.", TipoMensaje.MsgError)
+    '                Alert("Ocurrió un error al agregar la  compra. Por favor intente de nuevo.", TipoMensaje.MsgError)
-                End If
+    '            End If
-            End If
+    '        End If
-        End If
+    '    End If
 
-        If Not ErrorAgregar Then
+    '    If Not ErrorAgregar Then
-            ObjCompras.Commit()
+    '        ObjCompras.Commit()
-            DtCompras.ImportRow(RowCompras)
+    '        DtCompras.ImportRow(RowCompras)
-            CargaGrid()
+    '        CargaGrid()
-            If CveFlete > 0 Then
+    '        If CveFlete > 0 Then
-                Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion)
+    '            Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion)
-            End If
+    '        End If
-        Else
+    '    Else
-            ObjCompras.RollBack()
+    '        ObjCompras.RollBack()
-        End If
+    '    End If
 
-        HdnCveCompraGasto.Value = "-1"
+    '    HdnCveCompraGasto.Value = "-1"
-        ObjCompras.Dispose()
+    '    ObjCompras.Dispose()
-        ObjInv.Dispose()
+    '    ObjInv.Dispose()
 
-    End Sub
+    'End Sub
     Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
         Dim TieneError = False
         If CveFlete > 0 AndAlso GvDatos.Rows(e.RowIndex).DataKey("CveFleteDetalle").ToEntero > 0 Then
@@ -312,18 +312,18 @@ Partial Class Compras_Fletes
 #Region "  GUARDAR  "
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
 
-        Select Case DdlModalidad.SelectedValue.ToEntero
+        'Select Case DdlModalidad.SelectedValue.ToEntero
-            Case 1
+        '    Case 1
-                If Not HdnCveOC.Value.ToEntero > 0 Then
+        '        'If Not HdnCveOC.Value.ToEntero > 0 Then
-                    Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia)
+        '        '    Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
+        '        '    Exit Sub
-                End If
+        '        'End If
-            Case 2
+        '    Case 2
-                If Not HdnCveCompra.Value.ToEntero > 0 Then
+        '        'If Not HdnCveCompra.Value.ToEntero > 0 Then
-                    Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia)
+        '        '    Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
+        '        '    Exit Sub
-                End If
+        '        'End If
-        End Select
+        'End Select
 
         If Not DtCompras.Rows.Count > 0 Then
             Alert("Tiene que tener compras de gastos agregadas", TipoMensaje.MsgAdvertencia)
@@ -336,7 +336,7 @@ Partial Class Compras_Fletes
         Dim CveFleteTemporal As Integer = 0
 
         If CveFlete < 0 Then
-            If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 CveFleteTemporal = ObjInv.CveFlete
             Else
                 ErrorFlete = True
@@ -352,7 +352,7 @@ Partial Class Compras_Fletes
                 ErrorFlete = True
             End If
         Else
-            If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario) Then
+            If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario) Then
                 ErrorFlete = True
             End If
         End If
@@ -410,25 +410,32 @@ Partial Class Compras_Fletes
 
         If Archivo.Exists Then
             Dim ImporteGrid As Double = DtCompras.SUM("SubTotal")
-            Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
+            'Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
-            Dim ImporteData As Double = ImporteStr.ToDouble()
+            'Dim ImporteData As Double = ImporteStr.ToDouble()
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("Folio", LblFolio.Text))
             params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text))
             params.Add(New ReportParameter("Fecha", TxtFecha.Text))
-            params.Add(New ReportParameter("Modalidad", If(DdlModalidad.SelectedValue = "-1", "Por Orden de Compra", "Factura de Compra")))
+            params.Add(New ReportParameter("Modalidad", "Factura de Compra"))
-            params.Add(New ReportParameter("Proveedor", LbOCProveedor.Text))
+            params.Add(New ReportParameter("Proveedor", ""))
-            params.Add(New ReportParameter("FolioModalidad", HLOCFolio.Text))
+            params.Add(New ReportParameter("FolioModalidad", ""))
-            params.Add(New ReportParameter("Importe", (ImporteGrid + ImporteData).ToString()))
+            params.Add(New ReportParameter("Importe", (ImporteGrid).ToString()))
 
             ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Fletes.rdlc", DtCompras, params, String.Format("Costo Indirecto - {0}", LblFolio.Text), RDSName:="DataSet1")
         End If
 
     End Sub
 
-
+    Private Sub CargarComprasRelacionadas()
+        Dim ObjCompras As New ClsCompras
+        If ObjCompras.GetFletesCompras(CveFlete, UsuarioActual.CveEmpresa) Then
+            GvComprasVinculadas.DataSource = ObjCompras.DtResultados
+        End If
+        ObjCompras.Dispose()
+        GvComprasVinculadas.DataBind()
+    End Sub
 
 
 End Class

Sistemas/PopUpAddUsuario.aspx

@@ -21,6 +21,17 @@
         #GvPermisosComandos tr td:nth-child(n+3), #GVNotificaciones tr th:nth-child(n+2) {
             width: 50px;
         }
+        .CustomSpinner {
+            position: fixed;
+            background-image: url(/Imagenes/Loading.gif);
+            background-repeat: no-repeat, repeat;
+            background-size: contain;
+            top: 60px;
+            right: 25px;
+            z-index: 500000;
+            height: 40px;
+            width: 40px;
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -430,6 +441,7 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
+    <div class="CustomSpinner" style="display: none;"></div>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
     <script>
@@ -440,6 +452,10 @@
 
         let myTick = 0
         $('body').on('keyup', '#TxtEmail ', function (e) {
+            changeUser();
+        });
+
+        function changeUser() {
             let Tick = myTick + 1;
             myTick = Tick;
             setTimeout(
@@ -448,22 +464,22 @@
                         myTick = 0;
                         let Tusuario = $('#TxtEmail').val();
                         if (TusuarioOld != Tusuario) {
+                            $('.CustomSpinner').show();
                             TusuarioOld = Tusuario
-                            //console.log(Tusuario)
                             $.ajax({
                                 url: "/Ashx/SIGWeb.ashx",
                                 data: { usuario: Tusuario, metodo: 'GetUser' }
                             }).done(function (data) {
-                                //console.log(data)
                                 if (data == "1") {
                                     $('#BtnCambiarUsuario').click()
+                                } else {
+                                    $('.CustomSpinner').hide();
                                 }
                             });
-
                         }
                     }
-                }, 2000);
+                }, 500);
-        });
+        }
 
         function ADSBegin() {
             TusuarioOld = $('#TxtEmail').val()

Sistemas/PopUpAddUsuario.aspx.vb

@@ -371,7 +371,33 @@ Partial Class Sistemas_PopUpAddUsuario
                 '    Return
                 'End If
 
-                If UsuarioActual.Empresa.CvePlataforma = 3 Then
+                'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL CLIENTE
+                If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveCliente > 0 Then
+                    Dim DtClientesAcceso As DataTable = Nothing
+                    If Not HuboError AndAlso ObjUsuarios.GetUsuarioCliente(CveUsuario, CveCliente) Then
+                        'DEBE AGREGAR EL USUARIO AL CLIENTE
+                        If ObjUsuarios.DtResultados.Rows.Count = 0 Then
+                            If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioCliente(CveUsuario, CveCliente) Then
+                                HuboError = True
+                            End If
+                        End If
+                    Else
+                        HuboError = True
+                    End If
+                    'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL PROVEEDOR
+                ElseIf UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveProveedor > 0 Then
+                    Dim DtProveedoresAcceso As DataTable = Nothing
+                    If Not HuboError AndAlso ObjUsuarios.GetUsuarioProveedor(CveUsuario, CveProveedor) Then
+                        'DEBE AGREGAR EL USUARIO AL PROVEEDOR
+                        If ObjUsuarios.DtResultados.Rows.Count = 0 Then
+                            If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then
+                                HuboError = True
+                            End If
+                        End If
+                    Else
+                        HuboError = True
+                    End If
+                ElseIf UsuarioActual.Empresa.CvePlataforma = 3 Then
                     If Not ObjUsuarios.UpdateUsuario(LtlUsuario.Text.Trim, TxtNombre.Text, -1, TxtEmail.Text, -1, -1, False, True, -1, CveUsuario, -1, -1) Then
                         HuboError = True
                     End If
@@ -855,6 +881,8 @@ Partial Class Sistemas_PopUpAddUsuario
         CargaModulosPermisos()
         CargaComandos()
         UpDatos.Update()
+
+        RegistraScript(" $('.CustomSpinner').hide();")
     End Sub
 
 End Class

Sistemas/PopUpSeleccionarEmpresa.aspx

@@ -21,7 +21,7 @@
                 <asp:Button ID="BtnSetWindows" runat="server" ClientIDMode="Static" Text="Set Window" Style="display: none;" class="btn btn-primary" />
                 <asp:HiddenField ID="HdnAncho" runat="server" ClientIDMode="Static" Value="-1" />
                 <asp:HiddenField ID="HdnAlto" runat="server" ClientIDMode="Static" Value="-1" />
-                <div id="TblBusqueda" runat="server" border="0" visible="false" >
+                <div id="TblBusqueda" runat="server" border="0" visible="false">
                     <div>
                         Número de registros encontrados: <b>
                             <asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b>
@@ -29,7 +29,7 @@
                     <div>
                         <input name="ctl00$C$TxtBusqueda" type="text" id="TxtBusqueda" class="form-control input-sm TxtBusqueda" placeholder="" data-table=".GVSearch" style="width: 100%">
                     </div>
-                    <asp:GridView ID="GV" runat="server" DataKeyNames="CveUsuario, Contraseña, Usuario,CveEmpresa" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros"
+                    <asp:GridView ID="GvEmpresas" runat="server" DataKeyNames="CveUsuario, Contraseña, Usuario,CveEmpresa" AutoGenerateColumns="false"
                         Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch" Style="margin-top: -10px; text-align: center;"
                         GridLines="None">
                         <Columns>
@@ -46,7 +46,7 @@
                         <AlternatingRowStyle CssClass="TextoAlterno" />
                     </asp:GridView>
 
-                    <asp:GridView ID="GVCliente" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
+                    <asp:GridView ID="GvPortalRastreo" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
                         Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
                         Style="margin-top: -10px; text-align: center;" GridLines="None">
                         <Columns>
@@ -60,11 +60,39 @@
                             </asp:TemplateField>
                         </Columns>
                     </asp:GridView>
+
+                    <asp:GridView ID="GvPortalCliente" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario, CveEmpresa" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
+                        Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
+                        Style="margin-top: -10px; text-align: center;" GridLines="None">
+                        <Columns>
+                            <asp:TemplateField>
+                                <HeaderTemplate>Portal del Cliente</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("ClienteEmpresa")%>' CommandArgument='<%# Eval("CveCliente") %>' CommandName="Cambia"></asp:LinkButton>
+                                </ItemTemplate>
+                                <ItemStyle HorizontalAlign="Left" />
+                                <HeaderStyle HorizontalAlign="Left" />
+                            </asp:TemplateField>
+                        </Columns>
+                    </asp:GridView>
+                    <asp:GridView ID="GvPortalProveedor" runat="server" DataKeyNames="CveUsuario, CveProveedor, Contraseña, Usuario, CveEmpresa" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
+                        Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
+                        Style="margin-top: -10px; text-align: center;" GridLines="None">
+                        <Columns>
+                            <asp:TemplateField>
+                                <HeaderTemplate>Portal del Proveedor</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("ProveedorEmpresa")%>' CommandArgument='<%# Eval("CveProveedor") %>' CommandName="Cambia"></asp:LinkButton>
+                                </ItemTemplate>
+                                <ItemStyle HorizontalAlign="Left" />
+                                <HeaderStyle HorizontalAlign="Left" />
+                            </asp:TemplateField>
+                        </Columns>
+                    </asp:GridView>
                 </div>
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
-
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
@@ -93,6 +121,13 @@
             gotourl('/Inicio.aspx');
         }
 
+        function Ir4() {
+            gotourl('/PortalCliente/PortalCliente.aspx');
+        }
+        function Ir5() {
+            gotourl('/PortalProveedor/PortalProveedor.aspx');
+        }
+
         function buscarDT() {
             $('.TxtBusqueda').on('keyup', function () {
                 if (this.value == '') {

Sistemas/PopUpSeleccionarEmpresa.aspx.vb

@@ -12,37 +12,50 @@ Partial Class PopUpSeleccionarEmpresa
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CType(Me.Master, BaseMasterPage).EsPopup = True
-            'CType(Me.Master, BaseMasterPage).PopupWidth = HdnAncho.Value.ToEntero
-            'RegistraScript("alertSize();")
             GetEmpresas()
         End If
     End Sub
 
     Private Sub GetEmpresas()
-
-
         Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
 
         If Dt IsNot Nothing Then
             If Dt.Rows.Count > 0 Then
-                LtlTotalRegistros.Text = Dt.Rows.Count.ToString.FormatoNumero(0)
+                Dim NumRegistros As Integer = 0
-                GV.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa")
+                GvEmpresas.DataSource = Dt.FiltraParametros("(CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)) AND CvePlataformaUsuario NOT IN (6,7)", "Empresa")
-                GVCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
+                NumRegistros += DirectCast(GvEmpresas.DataSource, System.Data.DataTable).Rows.Count
+
+                GvPortalRastreo.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
+                NumRegistros += DirectCast(GvPortalRastreo.DataSource, System.Data.DataTable).Rows.Count
+
+                GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa")
+                NumRegistros += DirectCast(GvPortalCliente.DataSource, System.Data.DataTable).Rows.Count
+
+                GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa")
+                NumRegistros += DirectCast(GvPortalProveedor.DataSource, System.Data.DataTable).Rows.Count
+
+                LtlTotalRegistros.Text = NumRegistros.ToString().FormatoNumero(0)
             Else
                 LtlTotalRegistros.Text = "0"
-                GV.DataSource = Nothing
+                GvEmpresas.DataSource = Nothing
+                GvPortalRastreo.DataSource = Nothing
+                GvPortalCliente.DataSource = Nothing
+                GvPortalProveedor.DataSource = Nothing
                 Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
             End If
         End If
 
-        GV.DataBind()
+        GvEmpresas.DataBind()
-        GVCliente.DataBind()
+        GvPortalRastreo.DataBind()
+        GvPortalCliente.DataBind()
+        GvPortalProveedor.DataBind()
+
         UPDatos.Update()
 
         TblBusqueda.Visible = True
     End Sub
 
-    Protected Sub GV_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GV.RowCommand
+    Protected Sub GvEmpresas_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvEmpresas.RowCommand
         If e.CommandName = "Cambia" Then
 
             Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
@@ -80,35 +93,7 @@ Partial Class PopUpSeleccionarEmpresa
         End If
 
     End Sub
-
+    Protected Sub GvPortalRastreo_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalRastreo.RowCommand
-    Private Sub GuardaLogR(Mensaje As String)
-        Dim ArchivoW As IO.StreamWriter
-        Dim MensajeLog As String = ""
-        Dim continuar As Boolean = True
-        Try
-            If Not IsNothing(System.Web.HttpContext.Current) Then
-                If Not IsNothing(System.Web.HttpContext.Current.Request) Then
-
-                    MensajeLog = $"{HttpContext.Current.Request.Url.ToString()}{Environment.NewLine}"
-                End If
-            End If
-        Catch
-        End Try
-        MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}"
-
-        Try
-            ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
-        Catch
-            Exit Sub
-        End Try
-        Try
-            ArchivoW.Write(MensajeLog)
-        Catch
-        End Try
-        ArchivoW.Close()
-        ArchivoW.Dispose()
-    End Sub
-    Protected Sub gvUsuarios_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GVCliente.RowCommand
         If e.CommandName = "Cambia" Then
             Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
 
@@ -143,31 +128,88 @@ Partial Class PopUpSeleccionarEmpresa
 
         End If
     End Sub
+    Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand
+        If e.CommandName = "Cambia" Then
+            Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
 
+            If gvr IsNot Nothing Then
 
-    Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click
+                Dim ObjUsuario As New ClsSisUsuarios
-        RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30))
+                Dim Usuario As Usuario = Nothing
-    End Sub
+                Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
 
-    Private Sub CreaObjetoEmpresa()
+                ObjUsuario.Dispose()
-        Dim ObjEmpresa As New ClsSisEmpresas()
+
-        If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
+                If Usuario IsNot Nothing Then
-            'Session("Empresa") = ObjEmpresa
+                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
-            If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then
+
-                Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
+                    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 = 6
+                            UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
+                            ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
+                            CreaObjetoEmpresa(Usuario)
+                            'si la contraseña es la prederminada, pide la nueva contraseña
+                            'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
+                            RegistraScript("Ir4();")
+                        End If
+                    End If
+                    dt.Dispose()
+                End If
 
-                Dim EmpresasFuncionalidades As New HybridDictionary
-                For Each Row As Data.DataRow In dttmp.Rows
-                    EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
-                Next
-                ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
             End If
 
-            UsuarioActual.Empresa = ObjEmpresa.Empresa
-        Else
-            Session("Empresa") = Nothing
         End If
-        ObjEmpresa.Dispose()
+    End Sub
+    Protected Sub GvPortalProveedor_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalProveedor.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.ValidaUsuarioPortalProveedor(gvr.DataKey("CveProveedor").ToEntero(), 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 = 7
+                            UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
+                            ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
+                            CreaObjetoEmpresa(Usuario)
+                            'si la contraseña es la prederminada, pide la nueva contraseña
+                            'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
+                            RegistraScript("Ir5();")
+                        End If
+                    End If
+                    dt.Dispose()
+                End If
+
+            End If
+
+        End If
+    End Sub
+
+#Region "F U N C I O N E S"
+    Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click
+        RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30))
     End Sub
 
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
@@ -191,8 +233,33 @@ Partial Class PopUpSeleccionarEmpresa
         End If
         ObjEmpresa.Dispose()
     End Sub
+    Private Sub GuardaLogR(Mensaje As String)
+        Dim ArchivoW As IO.StreamWriter
+        Dim MensajeLog As String = ""
+        Dim continuar As Boolean = True
+        Try
+            If Not IsNothing(System.Web.HttpContext.Current) Then
+                If Not IsNothing(System.Web.HttpContext.Current.Request) Then
 
+                    MensajeLog = $"{HttpContext.Current.Request.Url.ToString()}{Environment.NewLine}"
+                End If
+            End If
+        Catch
+        End Try
+        MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}"
 
-
+        Try
+            ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+        Catch
+            Exit Sub
+        End Try
+        Try
+            ArchivoW.Write(MensajeLog)
+        Catch
+        End Try
+        ArchivoW.Close()
+        ArchivoW.Dispose()
+    End Sub
+#End Region
 
 End Class

Site.master.vb

@@ -122,15 +122,11 @@ Partial Class Site
                     '2018.08.14, se movió de la linea 59 a la actual
                     CargaTipoCambio()
 
-
+                    CargaUsuario()
                     If UsuarioActual.Portal = False Then
                         CreaMenu()
                         'Configuracion()
-                        CargaUsuario()
                         CargaBuscadores()
-                    Else
-                        LtMasterPerfil.Text = UsuarioActual.Rol
-                        LtMasterUsuario.Text = UsuarioActual.Usuario
                     End If
 
                 End If

asmx/WSApp.asmx

@@ -548,15 +548,19 @@ Public Class WSApp
                 Salida.CveSubProyecto = UsuarioActual.CveSubProyecto
                 Salida.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList()
 
-                If ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+                If UsuarioActual.CveCliente > 0 AndAlso ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                     If ObjClientes.DtResultados.Rows.Count > 0 Then
                         Salida.Cliente = ObjClientes.Nombre
                         Salida.CvePrecioLista = ObjClientes.CvePrecioLista
                         Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0)
+
+                        retorno = JsonConvert.SerializeObject(Salida)
                     End If
+                Else
+                    retorno = "{}"
                 End If
 
-                retorno = JsonConvert.SerializeObject(Salida)
+
             Else
                 retorno = "{}"
             End If