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

App_Code/ClsCompras.vb

@@ -589,6 +589,9 @@ Public Class ClsCompras
         Catch ex As SqlException
             If ex.Message.Contains("FK_Inv_MovimientosDetalle_Inv_MovimientosDetalleEntrada") Then
                 Alert(String.Format("No se puede eliminar la compra, porque tiene movimientos de salida de Almacen relacionados."), TipoMensaje.MsgAdvertencia)
+
+            ElseIf ex.Message.Contains("50015") Then
+                Alert("No se puede eliminar na compra debido a que el perido esta cerrado.", TipoMensaje.MsgAdvertencia)
             Else
                 Me.OnError("Ocurrió un error al eliminar la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If

App_Code/ClsSisUsuarios.vb

@@ -415,6 +415,65 @@ Public Class ClsSisUsuarios
         Return Retorno
     End Function
 
+
+    Public Function ValidaUsuarioPortalCliente(Clave As String, 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 = Clave.ToEntero
+                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
+
+
 #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 +2731,31 @@ 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 al guardar el nuevo usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 #End Region
 
 

Compras/Compras.aspx.vb

@@ -6729,10 +6729,10 @@ Partial Class Compras_Compras
                                                                     End If
 
 
-                                                                    If UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                                    If UsuarioActual.CveEmpresa.Contiene(119)  Then
                                                                         Dim ContienePSNeteoBonif As Boolean = False
                                                                         For Each Dr As DataRow In TmpDT.Rows
-                                                                            If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
+                                                                            If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.ToEntero = 11 Then 'clasificación de Bonificación, no se incluirá en el neteo
                                                                                 ContienePSNeteoBonif = True
                                                                                 Exit For
                                                                             End If

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

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,19 @@ Partial Class Sistemas_PopUpAddUsuario
                 '    Return
                 'End If
 
-                If UsuarioActual.Empresa.CvePlataforma = 3 Then
+                If UsuarioActual.Empresa.CvePlataforma = 1 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
+                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 +867,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" EmptyDataText="No se encontraron registros"
                         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,25 @@
                             </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>
                 </div>
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
-
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
@@ -93,6 +107,10 @@
             gotourl('/Inicio.aspx');
         }
 
+        function Ir4() {
+            gotourl('/PortalCliente/PortalCliente.aspx');
+        }
+
         function buscarDT() {
             $('.TxtBusqueda').on('keyup', function () {
                 if (this.value == '') {

Sistemas/PopUpSeleccionarEmpresa.aspx.vb

@@ -19,30 +19,31 @@ Partial Class PopUpSeleccionarEmpresa
     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)
-                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)", "Empresa")
-                GVCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
+                GvPortalRastreo.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
+                GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa")
             Else
                 LtlTotalRegistros.Text = "0"
-                GV.DataSource = Nothing
+                GvEmpresas.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()
+
         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 +81,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)
 
@@ -144,30 +117,47 @@ 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)
 
-    Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click
+            If gvr IsNot Nothing Then
-        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()
+                Dim ObjUsuario As New ClsSisUsuarios
-        Dim ObjEmpresa As New ClsSisEmpresas()
+                Dim Usuario As Usuario = Nothing
-        If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
+                Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente"), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
-            'Session("Empresa") = ObjEmpresa
+
-            If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then
+                ObjUsuario.Dispose()
-                Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
+
+                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 = 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 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)
@@ -193,6 +183,32 @@ Partial Class PopUpSeleccionarEmpresa
     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 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

TareasProgramadas/Tareas119.ashx

@@ -92,7 +92,8 @@ public class TareasJam : IHttpHandler
 
 
 
-        ////"ftp://us2.hostedftp.com/", "agrojam", "A12345678";
+        //"ftp://us2.hostedftp.com/", "agrojam", "A12345678";
+
         //string FTPServer = "ftp://127.0.0.1/";
         //string TFPUsr = "Toor";
         //string FTPPass = "agj-3500";
@@ -321,10 +322,10 @@ public class TareasJam : IHttpHandler
 
             if (CargaProductos)
             {
-                CargaVentas = CargarArchivos(FInfoVentas, FTPServer, TFPUsr, FTPPass);
+                CargaVentas = CargarArchivos(FInfoVentas, $"{FTPServer}/Ventas", TFPUsr, FTPPass);
                 if (CargaVentas)
                 {
-                    CargaVentas = VerificarArchivo(FInfoVentas, FInfoVentas.Length, FTPServer, TFPUsr, FTPPass);
+                    CargaVentas = VerificarArchivo(FInfoVentas, FInfoVentas.Length,  $"{FTPServer}/Ventas", TFPUsr, FTPPass);
                 }
             }
 
@@ -338,10 +339,10 @@ public class TareasJam : IHttpHandler
 
             if (CargaProductos & CargaVentas)
             {
-                CargaClientes = CargarArchivos(FInfoClientes, FTPServer, TFPUsr, FTPPass);
+                CargaClientes = CargarArchivos(FInfoClientes,  $"{FTPServer}/Clientes", TFPUsr, FTPPass);
                 if (CargaClientes)
                 {
-                    CargaClientes = VerificarArchivo(FInfoClientes, FInfoClientes.Length, FTPServer, TFPUsr, FTPPass);
+                    CargaClientes = VerificarArchivo(FInfoClientes, FInfoClientes.Length, $"{FTPServer}/Clientes", TFPUsr, FTPPass);
                 }
             }
 
@@ -355,10 +356,10 @@ public class TareasJam : IHttpHandler
 
             if (CargaProductos & CargaVentas& CargaClientes )
             {
-                CargaAlmacenes = CargarArchivos(FInfoAlmacenes, FTPServer, TFPUsr, FTPPass);
+                CargaAlmacenes = CargarArchivos(FInfoAlmacenes, $"{FTPServer}/Stock", TFPUsr, FTPPass);
                 if (CargaClientes)
                 {
-                    CargaAlmacenes = VerificarArchivo(FInfoAlmacenes, FInfoAlmacenes.Length, FTPServer, TFPUsr, FTPPass);
+                    CargaAlmacenes = VerificarArchivo(FInfoAlmacenes, FInfoAlmacenes.Length, $"{FTPServer}/Stock", TFPUsr, FTPPass);
                 }
             }
 
@@ -434,7 +435,7 @@ public class TareasJam : IHttpHandler
 
             ClsSisMail Correo = new ClsSisMail();
             string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx";
-            // string Para = "oscar.irigoyen@adssistemas.mx";
+            //string Para = "oscar.irigoyen@adssistemas.mx";
             string Asunto = ErrorProceso ? $"Carga Layout Corteva  {DateTime.Now.ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {DateTime.Now.ToString("yyyy-MM-dd")}";
 
             Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos);
@@ -446,7 +447,7 @@ public class TareasJam : IHttpHandler
     }
 
 
-    private bool CargarArchivos(FileInfo FInfo, string FTPServer, string FTPUsr, string FTPPass)
+    private bool CargarArchivos(FileInfo FInfo, string FTPServer, string FTPUsr, string FTPPass )
     {
         bool Respuesta;
         //var FInfo = new FileInfo(RutaArchivo);