Merge branch 'master' of http://192.168.10.111:8383/SIG

.gitignore

@@ -273,3 +273,4 @@ __pycache__/
 /Default.aspx.cs
 /App_WebReferences/WSRDLC
 /wwwSIGGIT.rar
+/Front

App_Code/ClsInventarios.vb

@@ -358,7 +358,7 @@ Public Class ClsInventarios
     End Function
 
 
-    Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean
+    Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_AlmacenesAdd")
@@ -374,6 +374,8 @@ Public Class ClsInventarios
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Orden", SqlDbType.SmallInt).Value = Orden
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
+
         End With
 
         Try
@@ -392,7 +394,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean
+    Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_AlmacenesUpdate")
@@ -408,6 +410,8 @@ Public Class ClsInventarios
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Orden", SqlDbType.SmallInt).Value = Orden
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
+
         End With
 
         Try
@@ -3882,7 +3886,7 @@ Public Class ClsInventarios
 
 #Region "  INVENTARIOS - SOLICITUD DE TRASPASOS  "
     Public Function AddTrasladoSolicitud(Observaciones As String, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, CveMovimientoAlmacen As Integer, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer,
-                                         Optional CveContrato As Integer = -1, Optional Guia As String = "", Optional CvePaqueteria As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional CveOS As Integer = -1) As Integer
+                                         Optional CveContrato As Integer = -1, Optional Guia As String = "", Optional CvePaqueteria As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional CveOS As Integer = -1, Optional EstatusAlmacen As Integer = -1) As Integer
         Dim Retorno = -1
         DataAdapter("PA_Inv_TraspasoSolicitudAdd")
 
@@ -3902,6 +3906,7 @@ Public Class ClsInventarios
             .Add("@CvePaqueteria", SqlDbType.Int).Value = CvePaqueteria
             .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio
             .Add("@CveOS", SqlDbType.Int).Value = CveOS
+            .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen
 
         End With
 
@@ -3969,6 +3974,31 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
+
+    Public Function UpdateTrasladoAutorizar(CveTraspasoSolicitud As Integer, CveEmpresa As Integer, EstatusAlmacen As Integer, CveUsuarioAutoriza As Integer, FechaAutorizacion As Date) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_TraspasoAutorizar")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTraspasoSolicitud", SqlDbType.Int).Value = CveTraspasoSolicitud
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen
+            .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza
+            .Add("@FechaAutorizacion", SqlDbType.Date).Value = FechaAutorizacion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
     Public Function RemoveTrasladoSolicitud(CveTrasladoSolicitud As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         Dim CveTraspasoSolicitud As Integer = 0

App_Code/ClsPaginas.vb

@@ -4238,6 +4238,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad2/CatCuentasAsignaciones.aspx".ToUpper(), 724)
             PaginaDict.Add("/Contabilidad2/CatContaEjercicios.aspx".ToUpper(), 725)
             PaginaDict.Add("/Contabilidad2/PolizasImpresion.aspx".ToUpper(), 726)
+            PaginaDict.Add("/Contabilidad2/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420)
+
 #End Region
             'CONTRATOS
 #Region "Contratos"
@@ -4283,12 +4285,11 @@ Public Class ClsPaginas
             PaginaDict.Add("/CRM/CatProbabilidadAcercamiento.aspx".ToUpper(), 1306)
             'PaginaDict.Add("/CRM/Acercamiento.aspx".ToUpper(), 1308)
             PaginaDict.Add("/CRM/Acercamiento.aspx".ToUpper(), 1305)
-            PaginaDict.Add("/CRM/RepAcercamientosEtapas.aspx".ToUpper(), 1310)
             PaginaDict.Add("/CRM/RepAcercamientos.aspx".ToUpper(), 1311)
             PaginaDict.Add("/CRM/PopUpBuscarAcercamiento.aspx".ToUpper(), 1312)
             PaginaDict.Add("/CRM/RepAcercamientosProcesos.aspx".ToUpper(), 1313)
             PaginaDict.Add("/CRM/RepAcercamientosRechazos.aspx".ToUpper(), 1314)
-            PaginaDict.Add("/CRM/RepAcercamientosProcesosDetalle.aspx".ToUpper(), 758)
+            PaginaDict.Add("/CRM/RepAcercamientosProcesosDetalle.aspx".ToUpper(), 1313)
             PaginaDict.Add("/CRM/CatMetas.aspx".ToUpper(), 684)
 #End Region
 #Region "CxC"
@@ -4311,7 +4312,6 @@ Public Class ClsPaginas
             PaginaDict.Add("/Finanzas/RepBalanceGeneralVertical.aspx".ToUpper(), 418)
             PaginaDict.Add("/Finanzas/RepBalanceGeneralHorizontal.aspx".ToUpper(), 419)
             PaginaDict.Add("/Finanzas/RepEstadoResultados.aspx".ToUpper(), 579)
-            PaginaDict.Add("/Finanzas/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420)
             PaginaDict.Add("/Finanzas/RepEstadoResultadosVertical.aspx".ToUpper(), 424)
             PaginaDict.Add("/Finanzas/RepOrigenAplicacion.aspx".ToUpper(), 581)
             PaginaDict.Add("/Finanzas/RazonesFinancierasCuentas.aspx".ToUpper(), -1)
@@ -4984,7 +4984,7 @@ Public Class ClsPaginas
 
             PaginaDict.Add("/Compras/RepCxPCaudillo.aspx".ToUpper(), -1)
 
-            PaginaDict.Add("/Contabilidad2/RepEstadoResultadosHorizontal.aspx".ToUpper(), -1)
+
             PaginaDict.Add("/Contabilidad2/RepBalanceGeneralHorizontal.aspx".ToUpper(), -1)
 
 

App_Code/Usuario.vb

@@ -201,7 +201,7 @@ Namespace ADSSession
                         Case OpcionSession.CerrarSession
                             Dim objlist = _dicSessionobj.Values.ToList()
                             For Each user As ADSSession.ADSSessionObj In objlist
-                                If CveUsuario = user.CveUsuario AndAlso (CveEmpresa = -1 OrElse CveEmpresa = user.CveEmpresa) Then
+                                If CveUsuario = user.CveUsuario Then 'AndAlso (CveEmpresa = -1 OrElse CveEmpresa = user.CveEmpresa) Then
                                     Dim taspsig As String = user.ASPSIG '"94C6AC57E8599390A4B7B8AB41FEABEF466D9B31120BE06D78110E66265F1ACC5616297BF3B88EDCEE71EBCFE35484308F62C8017EAC29FB3F0FB45CEC09E8F03DFBB4A4DD890D45755B7A30185C6D01F20AEFA74BE3A25FD12D536B20DCB8D9940A3D95"
                                     Dim tsessionID As String = user.SessionID
                                     Dim url = System.Configuration.ConfigurationManager.AppSettings("urlcerrarSession").ToString()

App_Code/WsSigfox.vb

@@ -27,8 +27,8 @@ Namespace Sigfox
                 'respuesta.Datos = Datos
 
                 Dim DevID As String = params.device
-                Dim Lat As Double = params.lat.ToDouble()
+                Dim Lat As Double = 90 'params.lat.ToDouble()
-                Dim Lng As Double = params.lng.ToDouble()
+                Dim Lng As Double = 90 'params.lng.ToDouble()
                 Dim Fecha As DateTime = params.time.ToDouble().ConvertFromUnixTimestamp()
                 Dim Velocidad As Double = 0
                 Dim MessageType As Integer = 0
@@ -68,12 +68,16 @@ Namespace Sigfox
             End Try
 
             Dim response As HttpResponseMessage
-            If datos.Length > 0 Then
+            If respuesta.Correcto Then
-                Dim jsonString As String = $"{{""{params.device}"":{{""downlinkData"":""{datos}""}}}}"
+                If datos.Length > 0 Then
-                response = Me.Request.CreateResponse(HttpStatusCode.OK)
+                    response = Me.Request.CreateResponse(HttpStatusCode.OK)
-                response.Content = New StringContent(jsonString, Encoding.UTF8, "application/json")
+                    response.Content = New StringContent($"{{""{params.device}"":{{""downlinkData"":""{datos}""}}}}", Encoding.UTF8, "application/json")
+                Else
+                    response = Request.CreateResponse(HttpStatusCode.NoContent, "")
+                End If
             Else
-                response = Request.CreateResponse(HttpStatusCode.NoContent, "")
+                response = Me.Request.CreateResponse(HttpStatusCode.OK)
+                response.Content = New StringContent($"{{""Fail"":{{""Msg"":""Ocurrió un error al agregar la trama""}}}}", Encoding.UTF8, "application/json")
             End If
             Return response
         End Function

Ashx/SIGWeb.ashx

@@ -47,12 +47,47 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     context.Response.Write(GettingCURP(context.Request("Curp").ToString(), context.Request("year").ToString().ToEntero()))
                 Case "ValidaCURP"
                     context.Response.Write(ValidaCURP(context.Request("Curp").ToString()))
+                Case "sendMail"
+                    context.Response.Write(sendMail(context))
+
             End Select
         Catch ex As Exception
             ex.GuardaLog(ex.Message)
         End Try
     End Sub
-
+    Private Function sendMail(context As HttpContext) As String
+        Dim retorno As String = "true"
+        Dim nombre As String = ""
+        Dim correo As String = ""
+        Dim sitio As String = ""
+        Dim cuerpo As String = ""
+        Dim obj = context.Request("Nombre")
+        If Not IsNothing(obj) Then
+            nombre = obj.ToString()
+        End If
+        obj = context.Request("Correo")
+        If Not IsNothing(obj) Then
+            correo = obj.ToString()
+        End If
+        obj = context.Request("Sitio")
+        If Not IsNothing(obj) Then
+            sitio = obj.ToString()
+        End If
+        obj = context.Request("Cuerpo")
+        If Not IsNothing(obj) Then
+            cuerpo = obj.ToString()
+        End If
+        Dim Body As String = String.Format("Nombre : {0}<br/>Nombre : {0}<br/>Correo : {1}<br/>Sitio : {2}<br/><br/>{3}", nombre, correo, sitio, cuerpo)
+        Dim para As String = "rene.molina@adssistemas.mx,sig.buzon@gmail.com,julian@adssistemas.mx;paola@adssistemas.mx;"
+        para = "caudillo.90d@gmail.com"
+        Dim Mail As New ClsSisMail()
+        If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then
+            retorno = "true"
+        Else
+            retorno = "false"
+        End If
+        Return retorno
+    End Function
 
     Private Sub GetUser(ByVal context As HttpContext)
         Dim usuario As String = context.Request("usuario").ToString()

CRM/RepAcercamientosProcesosDetalle.aspx

@@ -3,6 +3,31 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+    <style>
+        .Filtros {
+            padding: 10px;
+            background-color: #C3C3C3;
+        }
+
+            .Filtros label, .Filtros .form-group.form-md-line-input .form-control ~ label {
+                color: #fff;
+                font-weight: 600;
+            }
+
+        .form-group.form-md-line-input .form-control {
+            background-color: #fff;
+        }
+
+        .GVRep tr td a {
+            display: block;
+            text-align: center;
+        }
+
+        #chartdiv {
+            width: 100%;
+            height: 500px;
+        }
+    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
     Reporte Detalle de los Acercamientos Procesos
@@ -23,11 +48,106 @@
     
     <asp:UpdatePanel ID="upDatosRepA" runat ="server" UpdateMode="Conditional" >
         <ContentTemplate>
+            
+            <div class="Filtros portlet solid grey-cascade portlet-filter">
+                <div class="row">
+                    <div class="col-md-2" style="width: 85%">
+                        <div class="row">
+                            <div class="col-sm-3" style="width: 25%">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall" OnSelectedIndexChanged="DdlTipoProceso_Change" AutoPostBack="true" Width="100%"></asp:DropDownList>
+                                    <asp:Label runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-sm-3" style="width: 25%">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall" Width="100%"></asp:DropDownList>
+                                    <asp:Label runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-sm-3" style="width: 25%">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall" Width="100%"></asp:DropDownList>
+                                    <asp:Label runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-md-2" style="width: 25%">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall" Width="100%"></asp:DropDownList>
+                                    <asp:Label runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="row">
+
+                            <div class="col-md-2" style="padding-left: 15px; width: 25%;display:none">
+                                <div class="form-group form-md-line-input input-iconright" style="width: 100%">
+                                    <asp:DropDownList ID="DdlGrupo1" runat="server" CssClass="form-control input-sm select2me Widthall" Width="100%">
+                                        <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
+                                        <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
+                                        <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                        <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                        <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:Label runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-md-3" style="display: none; width: 25%">
+                                <div class="form-group form-md-line-input input-iconright" style="width: 100%">
+                                    <asp:DropDownList ID="DdlGrupo2" runat="server" CssClass="form-control input-sm select2me Widthall" Style="width: 100%">
+                                        <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
+                                        <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
+                                        <asp:ListItem Value="2" Text="Medio Captacion"></asp:ListItem>
+                                        <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                        <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                        <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:Label runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-md-2" style="width: 25%;padding-right: 15px;padding-left: 15px;">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:Label runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                        <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaSolicitudI" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                </div>
+                            </div>
+                            <div class="col-md-2" style="width: 25%">
+                                <div class="">
+                                    <asp:Label runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                        <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaSolicitudF" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                </div>
+
+                            </div>
+                        </div>
+                    </div>
+                    <div class="col-md-2" style="width: 138px">
+                        <div class="col-sm-1 text-right" style="width: 138px">
+                            <br />
+                            <asp:LinkButton ID="LnkConsultar" OnClick="LnkConsultar_Click" runat="server" CssClass="btn btn-default">Consultar</asp:LinkButton>
+                        </div>
+                    </div>
+                </div>
+            </div>
             <asp:GridView ID="GVRepAcercamientosDetalle" runat="server" GridLines="None" CssClass ="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False" DataKeyNames="CveAcercamiento">
                 <Columns> 
-                    <asp:TemplateField HeaderText="Empresa">
+                    <asp:TemplateField HeaderText="Prospecto">
                         <ItemTemplate>
-                            <asp:Label ID="lblempresa" runat="server" Text='<%# Eval("Empresa")%>'> </asp:Label>
+                            <asp:HyperLink   href='<%# Eval("Empresa","/{0}")%>' runat="server" Text='<%# Eval("Empresa")%>'>HyperLink</asp:HyperLink>
+                            <%--<asp:Label ID="lblempresa" runat="server" Text='<%# Eval("Empresa")%>'> </asp:Label>--%>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Vendedor">
@@ -35,12 +155,17 @@
                             <asp:Label ID="lblvendedor" runat="server" Text='<%# Eval("Vendedor")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nombre Acercamiento">
+                        <ItemTemplate>
+                            <asp:Label ID="lblnombreAcercamiento" runat="server" Text='<%# Eval("NombreAcercamiento")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                     <asp:TemplateField HeaderText="Medio Captacion">
                         <ItemTemplate>
                             <asp:Label ID="lblmedioCaptacion" runat="server" Text='<%# Eval("MedioCaptacion")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Etapa Proceso">
+                    <asp:TemplateField HeaderText="Etapa del Proceso">
                         <ItemTemplate>
                             <asp:Label ID="lbletapaProceso" runat="server" Text='<%# Eval("EtapaProceso")%>'> </asp:Label>
                         </ItemTemplate>
@@ -50,17 +175,12 @@
                             <asp:Label ID="lblprobabilidadAcercamiento" runat="server" Text='<%# Eval("ProbabilidadAcercamiento")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Nombre Acercamiento">
+                    <asp:TemplateField HeaderText="Nombre del Contacto">
-                        <ItemTemplate>
-                            <asp:Label ID="lblnombreAcercamiento" runat="server" Text='<%# Eval("NombreAcercamiento")%>'> </asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Nombre">
                         <ItemTemplate>
                             <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Telefono Oficina">
+                    <asp:TemplateField HeaderText="Telefono">
                         <ItemTemplate>
                             <asp:Label ID="lbltelefonoOficina" runat="server" Text='<%# Eval("TelefonoOficina")%>'> </asp:Label>
                         </ItemTemplate>

CRM/RepAcercamientosProcesosDetalle.aspx.cs

@@ -7,9 +7,14 @@ using System.Web.UI.WebControls;
 using Extensiones;
 using System.Data;
 
-public partial class CRM_RepAcercamientosProcesosDetalle :  ClsPaginas
+public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
 {
     #region Propiedades
+    private int RCveTipoProceso
+    {
+        get { return (ViewState["RCveTipoProceso"] == null) ? 0 : Convert.ToInt32(ViewState["RCveTipoProceso"]); }
+        set { ViewState["RCveTipoProceso"] = value; }
+    }
     private int RcveVendedor
     {
         get { return (ViewState["RcveVendedor"] == null) ? 0 : Convert.ToInt32(ViewState["RcveVendedor"]); }
@@ -46,12 +51,37 @@ public partial class CRM_RepAcercamientosProcesosDetalle :  ClsPaginas
         set { ViewState["RsFechaFin"] = value; }
     }
 
+    private DataTable DtMedioCaptacion
+    {
+        get
+        {
+            return (DataTable)ViewState["DtMedioCaptacion"];
+        }
+
+        set
+        {
+            ViewState["DtMedioCaptacion"] = value;
+        }
+    }
+    private DataTable DtProbabilidadAcercamiento
+    {
+        get
+        {
+            return (DataTable)ViewState["DtProbabilidadAcercamiento"];
+        }
+
+        set
+        {
+            ViewState["DtProbabilidadAcercamiento"] = value;
+        }
+    }
     #endregion
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
         {
-            int CveTipoProceso = Request["CveTipoProceso"] == null ? -1 : Request["CveTipoProceso"].ToString().ToEntero();
+            CargaDdl();
+            RCveTipoProceso = Request["CveTipoProceso"] == null ? -1 : Request["CveTipoProceso"].ToString().ToEntero();
             RcveVendedor = Request["cveVendedor"] == null ? -1 : Request["cveVendedor"].ToString().ToEntero();
             RcveMedioCaptacion = Request["cveMedioCaptacion"] == null ? -1 : Request["cveMedioCaptacion"].ToString().ToEntero();
             RcveProbabilidadAcercamiento = Request["cveProbabilidadAcercamiento"] == null ? -1 : Request["cveProbabilidadAcercamiento"].ToString().ToEntero();
@@ -59,11 +89,11 @@ public partial class CRM_RepAcercamientosProcesosDetalle :  ClsPaginas
             RsFecha = Request["Fecha"] == null ? "" : Request["Fecha"].ToString();
             RsFechaIni = Request["FechaInicio"] == null ? "" : Request["FechaInicio"].ToString();
             RsFechaFin = Request["FechaFin"] == null ? "" : Request["FechaFin"].ToString();
-            try { RsFechaIni = RsFechaIni.ToDateTime().ToString("yyyy/MM/dd"); }
+            try { RsFechaIni = RsFechaIni.ToDateTime().ToString("yyyy/MM/dd"); TxtFechaInicio.Text = RsFechaIni.ToDateTime().ToString("dd/MM/yyyy"); }
             catch (Exception) { RsFechaIni = ""; }
-            try { RsFechaFin = RsFechaFin.ToDateTime().ToString("yyyy/MM/dd"); }
+            try { RsFechaFin = RsFechaFin.ToDateTime().ToString("yyyy/MM/dd"); TxtFechaFin.Text = RsFechaFin.ToDateTime().ToString("dd/MM/yyyy"); }
             catch (Exception) { RsFechaFin = ""; }
-            switch (CveTipoProceso)
+            switch (RCveTipoProceso)
             {
                 case 1:
                     RcveVendedor = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
@@ -78,16 +108,121 @@ public partial class CRM_RepAcercamientosProcesosDetalle :  ClsPaginas
                     RsFecha = Request["CveGrupo1"] == null ? "" : Request["CveGrupo1"].ToString();
                     break;
             }
+            DdlTipoProceso.SelectedValueExist(RCveTipoProceso);
+
+
+            //DdlGrupo1.SelectedValueExist(idgrupo1);
+            //DdlGrupo2.SelectedValueExist(idgrupo2); 
+            DdlVendedor.SelectedValueExist(RcveVendedor);
+            DdlMedioCaptacion.SelectedValueExist(RcveMedioCaptacion);
+            DdlProbabilidad.SelectedValueExist(RcveProbabilidadAcercamiento);
             cargarDatos();
         }
     }
+
+    protected void CargaDdl()
+    {
+        ClsCRM ObjCRM = new ClsCRM();
+        DdlTipoProceso.DataSource = null;
+        DdlVendedor.DataSource = null;
+        DdlMedioCaptacion.DataSource = null;
+        DdlProbabilidad.DataSource = null;
+
+        if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa, 1))
+        {
+            DdlTipoProceso.DataSource = ObjCRM.DtResultados;
+        }
+        DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);
+        if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa))
+        {
+            DdlMedioCaptacion.Items.Clear();
+            DdlMedioCaptacion.DataSource = ObjCRM.DtResultados;
+            DtMedioCaptacion = ObjCRM.DtResultados;
+        }
+        if (ObjCRM.GetProbabilidadAcercamiento(UsuarioActual.CveEmpresa, -1))
+        {
+            DdlProbabilidad.DataSource = ObjCRM.DtResultados;
+            DtProbabilidadAcercamiento = ObjCRM.DtResultados;
+        }
+        ObjCRM.Dispose();
+
+        DdlTipoProceso.DataBind();
+        DdlVendedor.DataBind();
+        DdlMedioCaptacion.DataBind();
+        DdlProbabilidad.DataBind();
+        DdlVendedor.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+        DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+        DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+        DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        DdlVendedor.SelectedValue = "-1";
+        DdlMedioCaptacion.SelectedValue = "-1";
+        DdlProbabilidad.SelectedValue = "-1";
+        DdlTipoProceso.SelectedIndex = 0;
+
+        int n;
+        string CveProbabilidadAcercamiento = Request["CveProbabilidadAcercamiento"];
+        bool isNumeric = int.TryParse(CveProbabilidadAcercamiento, out n);
+
+        int c;
+        string CveTipoProceso = Request["CveTipoProceso"];
+        bool isNumericC = int.TryParse(CveTipoProceso, out c);
+
+        if (isNumeric && isNumericC)
+        {
+            DdlProbabilidad.SelectedValue = CveProbabilidadAcercamiento;
+            DdlTipoProceso.SelectedValue = CveTipoProceso;
+        }
+        upDatosRepA.Update();
+    }
+
+    protected void DdlTipoProceso_Change(object sender, EventArgs e)
+    {
+        DdlMedioCaptacion.Items.Clear();
+        DdlMedioCaptacion.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlMedioCaptacion.DataBind();
+        DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        DdlProbabilidad.Items.Clear();
+        DdlProbabilidad.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlProbabilidad.DataBind();
+        DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        upDatosRepA.Update();
+    }
     protected void cargarDatos()
     {
         ClsCRM ObjRepA = new ClsCRM();
-        ObjRepA.RepAcercamientosDetalle(UsuarioActual.CveEmpresa,RcveVendedor, RcveMedioCaptacion, RcveProbabilidadAcercamiento, RcveEtapaProceso, RsFecha, RsFechaIni, RsFechaFin);
+        ObjRepA.RepAcercamientosDetalle(UsuarioActual.CveEmpresa, RcveVendedor, RcveMedioCaptacion, RcveProbabilidadAcercamiento, RcveEtapaProceso, RsFecha, RsFechaIni, RsFechaFin);
         GVRepAcercamientosDetalle.DataSource = ObjRepA.DtResultados;
         ObjRepA.Dispose();
         GVRepAcercamientosDetalle.DataBind();
         upDatosRepA.Update();
     }
+
+    protected void LnkConsultar_Click(object sender, EventArgs e)
+    {
+
+        RCveTipoProceso = DdlTipoProceso.SelectedValue.ToEntero();
+        switch (RCveTipoProceso)
+        {
+            case 1:
+                RcveVendedor = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+                break;
+            case 2:
+                RcveMedioCaptacion = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+                break;
+            case 3:
+                RcveProbabilidadAcercamiento = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+                break;
+            case 4:
+                RsFecha = Request["CveGrupo1"] == null ? "" : Request["CveGrupo1"].ToString();
+                break;
+        }
+        RsFechaIni = TxtFechaInicio.Text.Length > 0 ? TxtFechaInicio.Text.ToDateTime().ToString("yyyy/MM/dd") : "";
+        RsFechaFin = TxtFechaFin.Text.Length > 0 ? TxtFechaFin.Text.ToDateTime().ToString("yyyy/MM/dd") : "";
+        RcveVendedor = DdlVendedor.SelectedValue.ToEntero();
+        RcveMedioCaptacion = DdlMedioCaptacion.SelectedValue.ToEntero();
+        RcveProbabilidadAcercamiento = DdlProbabilidad.SelectedValue.ToEntero();
+        cargarDatos();
+    }
 }

CRM/RepAcercamientosRechazos.aspx

@@ -5,8 +5,7 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
         .Filtros {
-            padding: 10px;
+            padding: 10px;background-color: #95A5A6;
-            background-color: #C3C3C3;
         }
 
             .Filtros label, .Filtros .form-group.form-md-line-input .form-control ~ label {

Contabilidad/RegPoliza.aspx.vb

@@ -1702,9 +1702,21 @@ Partial Class RegPoliza
 
         If ObjConta.RemovePoliza(IDPoliza) Then
             If ObjMov.DesvincularPrePolizaContabilizada(IDPoliza, UsuarioActual.CveEmpresa) Then
-                If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
 
+                    ErrorTrans = True
                 Else
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                    ErrorTrans = True
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtFechaPoliza.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                    ErrorTrans = True
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", DdlTipoPoliza.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
                     ErrorTrans = True
                 End If
             Else

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -298,7 +298,7 @@
                                     </asp:GridView>
                                     <br />
                                     <br />
-                                    <asp:GridView ID="GvGastosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvGastosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvGastosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta" OnRowDataBound="GvGastosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                         <Columns>
                                             
                                             <asp:TemplateField>

Empresas/72/Formatos/Entradas.rdlc

@@ -15,10 +15,10 @@
               <Width>6.26873cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.69187cm</Width>
+              <Width>2.82959cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.8175cm</Width>
+              <Width>1.67979cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.11844cm</Width>
@@ -223,7 +223,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Sección Almacén</Value>
+                              <Value>Sección</Value>
                               <Style>
                                 <FontFamily>MYRIAd Pro</FontFamily>
                                 <FontSize>8pt</FontSize>
@@ -700,7 +700,7 @@
         <Top>0.17639cm</Top>
         <Left>0.12931cm</Left>
         <Height>0.96717cm</Height>
-        <Width>19.16932cm</Width>
+        <Width>19.16933cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1190,7 +1190,7 @@
       </Style>
     </PageHeader>
     <PageFooter>
-      <Height>3.15049cm</Height>
+      <Height>2.33028cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>

Empresas/Grales/Formatos/AuxiliarProveedor.rdlc

@@ -50,34 +50,34 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.57873cm</Width>
+              <Width>2.19852cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.54731cm</Width>
+              <Width>2.26204cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.70704cm</Width>
+              <Width>0.69929cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.66702cm</Width>
+              <Width>1.65927cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.99686cm</Width>
+              <Width>1.98911cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.96369cm</Width>
+              <Width>1.95594cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.75246cm</Width>
+              <Width>1.74471cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.85958cm</Width>
+              <Width>0.85183cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.6398cm</Width>
+              <Width>1.63205cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.77947cm</Width>
+              <Width>1.50713cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -822,7 +822,7 @@
             <TablixMember>
               <Group Name="GPO" />
               <TablixHeader>
-                <Size>3.06196cm</Size>
+                <Size>3.05421cm</Size>
                 <CellContents>
                   <Textbox Name="RazonSocial">
                     <CanGrow>true</CanGrow>
@@ -863,7 +863,7 @@
         <Top>0.75875cm</Top>
         <Left>0.06614cm</Left>
         <Height>1.19472cm</Height>
-        <Width>19.55393cm</Width>
+        <Width>19.55408cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -891,8 +891,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>0.07056cm</Top>
+        <Top>0.0635cm</Top>
-        <Left>0.06614cm</Left>
+        <Left>0.01654cm</Left>
         <Height>0.58236cm</Height>
         <Width>19.58715cm</Width>
         <ZIndex>1</ZIndex>
@@ -910,10 +910,10 @@
     <Height>0.87325in</Height>
     <Style />
   </Body>
-  <Width>7.73752in</Width>
+  <Width>7.7245in</Width>
   <Page>
     <PageHeader>
-      <Height>2.22362cm</Height>
+      <Height>2.32973cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <ReportItems>
         <Textbox Name="Textbox1">
@@ -935,9 +935,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox1</rd:DefaultName>
-          <Left>2.43857cm</Left>
           <Height>0.6cm</Height>
-          <Width>14.68354cm</Width>
+          <Width>19.60369cm</Width>
           <Style>
             <Border>
               <Style>None</Style>
@@ -983,9 +982,8 @@
           </Paragraphs>
           <rd:DefaultName>Textbox2</rd:DefaultName>
           <Top>0.63528cm</Top>
-          <Left>2.40329cm</Left>
           <Height>0.52945cm</Height>
-          <Width>14.68354cm</Width>
+          <Width>19.62022cm</Width>
           <ZIndex>1</ZIndex>
           <Style>
             <Border>
@@ -1003,7 +1001,7 @@
           <Sizing>FitProportional</Sizing>
           <Left>0.06614cm</Left>
           <Height>2.22362cm</Height>
-          <Width>2.33715cm</Width>
+          <Width>4.64069cm</Width>
           <ZIndex>2</ZIndex>
           <Style>
             <Border>

General/PopUpPaqueteriasGuias.aspx.cs

@@ -762,7 +762,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
             strBody.Append("<head>");
             strBody.Append("<meta charset='UTF-8'>");
             strBody.Append("</head>");
-            strBody.Append("  <body>");
+            strBody.Append("  <body style='width:800px;'>");
             strBody.Append("<div>");
             strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
             strBody.Append("</div>");
@@ -771,7 +771,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
             strBody.Append("    </p>");
             strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
             strBody.Append("  <div style='width:100%;text-align:center'>");
-            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+            strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
             strBody.Append(DetalleTable);
             strBody.Append("    </table>");
             strBody.Append("  </div>");

General/RepPaqueteriasGuias.aspx.cs

@@ -1110,7 +1110,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             strBody.Append("<head>");
             strBody.Append("<meta charset='UTF-8'>");
             strBody.Append("</head>");
-            strBody.Append("  <body>");
+            strBody.Append("  <body style='width:800px'>");
             strBody.Append("<div>");
             strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
             strBody.Append("</div>");
@@ -1120,7 +1120,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
             strBody.Append("  <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>Su Pedido:</p>");
             strBody.Append("  <div style='width:100%;text-align:center'>");
-            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+            strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
             strBody.Append(DetalleTable);
             strBody.Append("    </table>");
             strBody.Append("  </div>");

Inventarios/CatAlmacenes.aspx

@@ -151,7 +151,7 @@
     </div>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,IdCtaContable,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,IdCtaContable,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta,CveUsuarioAutoriza" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
                 <Columns>
                     <asp:TemplateField ItemStyle-Width="15%" HeaderText="Almacen">
                         <ItemTemplate>
@@ -302,6 +302,20 @@
                                     <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
                                     <asp:Label AssociatedControlID="ChkEstatus" runat="server" Text="Estatus:"></asp:Label>
                                 </div>
+
+
+                                <div class="row">
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlUsuariosAutoriza" runat="server"  DataTextField="Nombre"  DataValueField="CveUsuario"    Width="100%" CssClass="form-control input-sm select2me">                                                                                                 
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DdlUsuariosAutoriza" runat="server" Text="Autorizá:"></asp:Label>
+                                        </div>
+                                    </div>                                  
+
+                                </div>
+
+
                             </ContentTemplate>
                         </asp:UpdatePanel>
                         <div class="modal-footer">

Inventarios/CatAlmacenes.aspx.vb

@@ -48,6 +48,7 @@ Partial Class Inventarios_CatAlmacenes
             CargaSubProyectos()
             CargaTipoAlmacen()
             CargaDatos()
+            CargaUsuarios()
 
         End If
     End Sub
@@ -83,6 +84,15 @@ Partial Class Inventarios_CatAlmacenes
         DdlTipoAlmacen.DataBind()
     End Sub
 
+    Private Sub CargaUsuarios()
+
+        DdlUsuariosAutoriza.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ")
+        DdlUsuariosAutoriza.DataBind()
+
+        DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+    End Sub
+
     Private Sub CargaCuentasContables()
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             divCuentasCompac.Visible = False
@@ -222,6 +232,7 @@ Partial Class Inventarios_CatAlmacenes
         If ChkEstatus.Checked Then Estatus = 1
         Dim CuentaContable As Integer = 0
         Dim CveCuenta As Integer = 0
+
         If divddlcc.Visible Then
             If pnlCuentassig.Visible Then
                 CveCuenta = DdlCuentasSig.SelectedValue.ToEntero()
@@ -229,8 +240,9 @@ Partial Class Inventarios_CatAlmacenes
                 CuentaContable = DdlCuentasContables.SelectedValue.ToEntero()
             End If
         End If
+
         If HdnModalidad.Value = "A" Then
-            If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta) Then
+            If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero) Then
                 Alert("El nuevo Almacen se guardó correctamente.", TipoMensaje.MsgInformacion)
                 UpDatos.Update()
                 ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -240,7 +252,7 @@ Partial Class Inventarios_CatAlmacenes
             Else
                 TieneError = True
             End If
-        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta) Then
+        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero) Then
             Alert("El  Almacen se actualizo correctamente.", TipoMensaje.MsgInformacion)
             UpDatos.Update()
             ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -268,6 +280,8 @@ Partial Class Inventarios_CatAlmacenes
         TxtOrden.Text = ""
         ChkEstatus.Checked = True
         divEstatus.Visible = False
+        DdlUsuariosAutoriza.SelectedValueExist("-1")
+
         UpAddAlmacen.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen"))
 
@@ -304,11 +318,15 @@ Partial Class Inventarios_CatAlmacenes
         DdlTipoAlmacen.SelectedValueExist(GvRow.DataKey("CveTipoAlmacen"))
         TxtAlmacen.Text = GvRow.DataKey("Almacen")
         TxtOrden.Text = GvRow.DataKey("Orden")
+        DdlUsuariosAutoriza.SelectedValueExist(If(GvRow.DataKey("CveUsuarioAutoriza").ToEntero > 0, GvRow.DataKey("CveUsuarioAutoriza"), "-1"))
+
+
         divEstatus.Visible = True
         ChkEstatus.Checked = If((GvRow.DataKey("Estatus")) = "Activo", True, False)
         UpAddAlmacen.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen"))
 
+
     End Sub
     Private Sub LnkAlmacen_Click(sender As Object, e As EventArgs) Handles LnkAlmacen.Click
         Agregar()

Inventarios/EntregaAlmacen.aspx.vb

@@ -3228,7 +3228,7 @@ Partial Class Inventarios_EntregaAlmacen
             strBody.Append("<head>")
             strBody.Append("<meta charset='UTF-8'>")
             strBody.Append("</head>")
-            strBody.Append("  <body>")
+            strBody.Append("  <body style='width:800px'>")
             strBody.Append("<div>")
             strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>")
             strBody.Append("</div>")
@@ -3239,7 +3239,7 @@ Partial Class Inventarios_EntregaAlmacen
             strBody.Append("    </p>")
             strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>")
             strBody.Append("  <div style='width:100%;text-align:center'>")
-            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>")
+            strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>")
             strBody.Append(DetalleTable)
             strBody.Append("    ")
             strBody.Append("    </table>")

Inventarios/EntregasPorRealizar.aspx.cs

@@ -151,7 +151,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         strBody.Append("<head>");
             strBody.Append("<meta charset='UTF-8'>");
             strBody.Append("</head>");
-        strBody.Append("  <body>");
+        strBody.Append("  <body style='width:800px'>");
         strBody.Append("<div>");
         strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
         strBody.Append("</div>");
@@ -161,7 +161,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         strBody.Append("    </p>");
         strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
         strBody.Append("  <div style='width:100%;text-align:center'>");
-        strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+        strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
         strBody.Append(DetalleTable);
         strBody.Append("    </table>");
         strBody.Append("  </div>");

Inventarios/TrasladoSolicitud.aspx

@@ -105,7 +105,7 @@
                                 <tr>
                                     <td><b>Almacén Destino: </b></td>
                                     <td>
-                                        <asp:DropDownList ID="DdlAlmacenDestino" DataTextField="Almacen" DataValueField="CveAlmacen" Width="250" CssClass="select2me" runat="server"></asp:DropDownList>
+                                        <asp:DropDownList ID="DdlAlmacenDestino" DataTextField="Almacen" DataValueField="CveAlmacen" Width="250" CssClass="select2me" runat="server"  ></asp:DropDownList>
                                     </td>
                                 </tr>
 
@@ -153,6 +153,7 @@
 
 
                 <div class="col-md-6" id="DivInfo" runat="server" visible="false">
+                    
                     <div class="portlet light smmallpadding traspasorow bordered">
                         <div class="portlet-title">
                             <div class="caption font-green">
@@ -214,6 +215,67 @@
                         </div>
                     </div>
                 </div>
+
+                <div class="col-md-6" id="DivAutoriza" runat="server" visible="false">
+
+                    <div class="portlet light smmallpadding traspasorow bordered">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">AUTORIZACIÓN</span>
+                            </div>
+                            <div class="actions">
+                                <div class="btn-group">
+                                </div>
+                            </div>
+
+                            <div class="tools">
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+                        </div>
+                        <div class="portlet-body rowpadding">
+
+
+                            <div  class="row" runat="server"   id="DVAutorizaInformacion" visible = "False" >
+
+                                <div class="col-md-12"  runat="server" >
+                                     <table>
+                                         
+                                         <tr><td><b>Estado : </b></td><td><asp:Label runat="server" id="LblEstatusAutorizo" ></asp:Label></td></tr>
+                                         <tr><td><b>Usuario : </b></td><td><asp:Label runat="server" id="LblUsaurioAutorizo" ></asp:Label></td></tr>
+                                         <tr><td><b>Fecha : </b></td><td><asp:Label runat="server" id="LblFechaAutoriza" ></asp:Label></td></tr>
+                                          
+                                     </table>
+
+                                 </div>
+
+                            </div>
+
+                            <div class="row" runat="server"   id="DVAutorizarBotones" visible = "False"  >
+                               
+                                 
+                                <div class="col-md-6" style="text-align:center!important">
+                                    <asp:LinkButton  runat="server" Text ="Aceptar" id="LnkAceptarTraslado" CssClass="btn btn-success" 
+                                        data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar autorización?" data-btn-ok-label="Si"  OnClick="LnkAceptarTraslado_Click"></asp:LinkButton>    
+                                </div>
+                                <div class="col-md-6" style="text-align:center!important">
+                                    <asp:LinkButton  runat="server" Text ="Rechazar" ID="LnkRechazarTraslado" CssClass="btn btn-danger" 
+                                        data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar rechazo?" data-btn-ok-label="Si"  OnClick="LnkRechazarTraslado_Click" ></asp:LinkButton>    
+                                </div>
+
+                            </div>
+
+                       
+
+
+                        </div>
+                    </div>
+
+
+
+                </div>
+
+
             </div>
 
 
@@ -238,7 +300,7 @@
                     </div>
                     <div class="portlet-body rowpadding">
 
-                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS, CodigoPS, CveUM, Cantidad, Precio, Observaciones, CveContratoDetalle" EmptyDataText="No se encontraron Productos registrados" ToolTip="Listado de Productos" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall" GridLines="None">
+                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS, CodigoPS, CveUM, Cantidad, Precio, Observaciones, CveContratoDetalle,UnidadMedida" EmptyDataText="No se encontraron Productos registrados" ToolTip="Listado de Productos" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall" GridLines="None">
                             <Columns>
                                 <asp:BoundField HeaderText="Cantidad" HeaderStyle-HorizontalAlign="Left" DataFormatString="{0:N}" ItemStyle-HorizontalAlign="Center" DataField="Cantidad" ItemStyle-Width="5%" />
                                 <asp:BoundField HeaderText="U.M" HeaderStyle-HorizontalAlign="Center" DataFormatString="{0:N}" ItemStyle-HorizontalAlign="Center" DataField="UnidadMedida" ItemStyle-Width="10%" />

Inventarios/TrasladoSolicitud.aspx.vb

@@ -36,6 +36,21 @@ Partial Class Inventarios_TrasladoSolicitud
             ViewState("CveDireccionEnvio") = value
         End Set
     End Property
+
+    'Private Property CveUsuarioAutoriza As Integer
+    '    Get
+    '        If ViewState("CveUsuarioAutoriza") Is Nothing Then
+    '            Return -1
+    '        Else
+    '            Return CType(ViewState("CveUsuarioAutoriza"), Integer)
+    '        End If
+
+    '    End Get
+    '    Set(value As Integer)
+    '        ViewState("CveUsuarioAutoriza") = value
+    '    End Set
+    'End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -133,6 +148,7 @@ Partial Class Inventarios_TrasladoSolicitud
     Private Sub CargaDatos()
         Dim ObjInventarios As New ClsInventarios
         Dim ObjClientes As New ClsClientes
+
         If ObjInventarios.AddTrasladoSolicitudGet(CveTraspasoSolicitud, UsuarioActual.CveEmpresa) Then
             If ObjInventarios.DtResultados.Rows.Count > 0 Then
 
@@ -213,6 +229,55 @@ Partial Class Inventarios_TrasladoSolicitud
                 LbAgregarPS.Visible = False
                 HLDesdeContrato.Visible = False
 
+
+                Dim EstatusAlmacen As Integer = ObjInventarios.DtResultados.Rows(0)("EstatusAlmacen").ToString().ToEntero
+                Dim CveUsuarioAutoriza As Integer = ObjInventarios.DtResultados.Rows(0)("CveUsuarioAutorizaDestino").ToString().ToEntero
+
+                If EstatusAlmacen > 0 Then
+
+
+                    If UsuarioActual.CveUsuario = CveUsuarioAutoriza Then
+
+                        If EstatusAlmacen = 1 Then
+
+
+                            DivAutoriza.Visible = True
+                            DVAutorizarBotones.Visible = True
+                            DVAutorizaInformacion.Visible = False
+
+                        ElseIf EstatusAlmacen.Contiene(2, 3) Then
+                            DivAutoriza.Visible = True
+
+                            DVAutorizarBotones.Visible = False
+                            DVAutorizaInformacion.Visible = True
+
+                            LblEstatusAutorizo.Text = If(EstatusAlmacen = 2, "Aceptado", "Rechazado")
+                            LblUsaurioAutorizo.Text = ObjInventarios.DtResultados.Rows(0)("NombreAutoriza").ToString()
+                            LblFechaAutoriza.Text = ObjInventarios.DtResultados.Rows(0)("FechaAutorizacion").ToString().ToDate().ToString("dd/MM/yyyy")
+                        Else
+
+                        End If
+
+                    ElseIf EstatusAlmacen.Contiene(2, 3) Then
+
+                        DivAutoriza.Visible = True
+
+                        DVAutorizarBotones.Visible = False
+                        DVAutorizaInformacion.Visible = True
+
+                        LblEstatusAutorizo.Text = If(EstatusAlmacen = 2, "Aceptado", "Rechazado")
+                        LblUsaurioAutorizo.Text = ObjInventarios.DtResultados.Rows(0)("NombreAutoriza").ToString()
+                        LblFechaAutoriza.Text = ObjInventarios.DtResultados.Rows(0)("FechaAutorizacion").ToString().ToDate().ToString("dd/MM/yyyy")
+
+                    End If
+
+
+                Else
+                    DivAutoriza.Visible = False
+                End If
+
+
+
             Else
                 Alert("Ocurrió un error al obtener los datos del traspaso.", TipoMensaje.MsgError)
             End If
@@ -471,6 +536,9 @@ Partial Class Inventarios_TrasladoSolicitud
             Exit Sub
         End If
 
+
+        Dim CveUsuarioAutoriza As Integer = -1
+        Dim EstatusAlmacen As Integer = 2
         'VERIFICA EXISTENCIAS
         Dim ObjInventarios As New ClsInventarios
         Dim Existencia = 0.0
@@ -478,6 +546,25 @@ Partial Class Inventarios_TrasladoSolicitud
         Dim MensajeExistencia As New StringBuilder
         MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos:<br/>")
         Dim CodigoPS As String = ""
+
+
+        If ObjInventarios.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+
+            If ObjInventarios.DtResultados.Rows.Count > 0 Then
+
+                CveUsuarioAutoriza = If(ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero > 0, ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero, -1)
+                If CveUsuarioAutoriza > 0 Then
+                    EstatusAlmacen = 1
+                End If
+
+            Else
+                CveUsuarioAutoriza = -1
+            End If
+        End If
+
+
+
+
         For Each row As GridViewRow In GvDatos.Rows
             CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=row.DataKey("CvePS").ToEntero).FiltroPrimeroValor("PSCodigo", "")
             Existencia = ObjInventarios.GetExistenciasPS(row.DataKey("CvePS").ToEntero, row.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"))
@@ -509,7 +596,7 @@ Partial Class Inventarios_TrasladoSolicitud
             Estatus = 3
         End If
 
-        Dim Folio = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.Text.Trim, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato, Guia:=Guia, CvePaqueteria:=DdlPaqueteria.SelectedValue.ToEntero, CveDireccionEnvio:=CveDireccionEnvio)
+        Dim Folio = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.Text.Trim, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato, Guia:=Guia, CvePaqueteria:=DdlPaqueteria.SelectedValue.ToEntero, CveDireccionEnvio:=CveDireccionEnvio, EstatusAlmacen:=EstatusAlmacen)
 
         If Folio > 0 Then
             CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud
@@ -537,6 +624,11 @@ Partial Class Inventarios_TrasladoSolicitud
         If TieneError = False Then
             ObjInventarios.Commit()
             Alert($"El Traspaso se guardó correctamente con el folio #: <b>{Folio}</b>.", TipoMensaje.MsgInformacion, $"document.location.href=""/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}""")
+
+            If CveUsuarioAutoriza > 0 Then
+                MandaCorreoAutorizacion(Folio, CveTraspasoSolicitud, CveUsuarioAutoriza)
+            End If
+
         Else
             ObjInventarios.RollBack()
             Alert("Ocurrió un Error al guardar el traspaso.", TipoMensaje.MsgError)
@@ -875,5 +967,77 @@ Partial Class Inventarios_TrasladoSolicitud
         UpPS.Update()
         UpDatos.Update()
     End Sub
+
+
+    Protected Sub LnkAceptarTraslado_Click(sender As Object, e As EventArgs)
+
+        Dim ObjInven As New ClsInventarios
+        If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 2, UsuarioActual.CveUsuario, Now) Then
+            Alert("Autorizado correctamente.")
+        End If
+        ObjInven.Dispose()
+
+        CargaDatos()
+
+    End Sub
+    Protected Sub LnkRechazarTraslado_Click(sender As Object, e As EventArgs)
+
+        Dim ObjInven As New ClsInventarios
+        If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 3, UsuarioActual.CveUsuario, Now) Then
+            Alert("Rechazado correctamente.")
+        End If
+        ObjInven.Dispose()
+
+        CargaDatos()
+
+    End Sub
+
+
+    Private Sub MandaCorreoAutorizacion(Folio As Integer, CveTraspasoSolicitud As Integer, CveUsuarioAutoriza As Integer)
+
+        Dim SB As New StringBuilder
+
+        Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza)(0)("Correo").ToString.Trim
+
+
+        If CorreoDestino.Length > 0 Then
+
+
+
+            SB.AppendLine($"<p>Se ha registrado una solicitud de traspaso de {DdlAlmacenOrigen.SelectedItem.Text} a {DdlAlmacenDestino.SelectedItem.Text}, con los siguientes productos.</p>")
+
+
+
+            SB.AppendLine("<br>")
+            SB.AppendLine("<table border = '0'>")
+            SB.AppendLine("<tr style='color:white;background-color:#808080;' ><th>Cantidad</th> <th>U.M.</th>  <th>Producto</th>  <th>Observaciones</th> </tr>")
+
+            For Each GvRow As GridViewRow In GvDatos.Rows
+
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    SB.AppendLine($"<tr  style='background-color:#F2F2F0;'> <td>{GvRow.DataKey("Cantidad")}</td> <td>{GvRow.DataKey("UnidadMedida")}</td>  <td>{GvRow.DataKey("CodigoPS")}</td>  <td>{GvRow.DataKey("Observaciones")}</td> </tr>")
+                End If
+
+            Next
+            SB.AppendLine("</table>")
+            SB.AppendLine("<br>")
+            SB.AppendLine($"<strong> <a href='{Request.Url.GetLeftPart(UriPartial.Authority)}/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}'>Ir a solicitud de traspaso para autorización</a></strong>")
+
+
+
+            Dim MandaCorre As New ClsSisMail
+            MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Solicitud de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Solicitud de Traspaso")
+
+
+        End If
+
+
+
+
+
+
+
+    End Sub
+
 End Class
 

LogIn.aspx.vb

@@ -236,6 +236,7 @@ Partial Class LogIn
                     End If
 
                     Dim cookie = FormsAuthentication.GetAuthCookie(Encripta(Usuario.CveUsuario), False)
+                    'ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.SetAspSig, ASPSIG:=Request.Cookies.Get(".ASPXSIG").Value)
                     Response.Cookies.Add(cookie)
                     'RegistraScript(String.Format("iniciaSesion('{0}')", ReturnUrl.Replace("'", "\'")))
                     Response.Redirect(ReturnUrl, True)

Nomina/Nomina2.aspx.cs

@@ -1425,6 +1425,93 @@ public partial class Nomina_Nomina2 : ClsPaginas
     }
 
 
+    private class NConcepto
+    {
+        public string NoConceptoP { get; set; }
+        public string ConceptoP { get; set; }
+        public string LabelValorP { get; set; }
+        public int CveConceptoP { get; set; }
+        public double ImporteP { get; set; }
+        public double ValorP { get; set; }
+        public int EstatusP { get; set; }
+        public bool isEditedP { get; set; }
+        public int isOnlyBisibleP { get; set; }
+
+
+        public string NoConceptoD { get; set; }
+        public string ConceptoD { get; set; }
+        public string LabelValorD { get; set; }
+        public int CveConceptoD { get; set; }
+        public double ImporteD { get; set; }
+        public double ValorD { get; set; }
+        public int EstatusD { get; set; }
+        public bool isEditedD { get; set; }
+        public int isOnlyBisibleD { get; set; }
+    }
+
+    protected void GvConceptos_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            // Datakeys
+            // Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD
+            int CveConcepto = e.Row.DataKey("CveConceptoP").ToEntero();
+            int CveConceptoD = e.Row.DataKey("CveConceptoD").ToEntero();
+            // Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal()
+            // Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal()
+            int Estatus = e.Row.DataKey("EstatusP").ToEntero();
+            int EstatusD = e.Row.DataKey("EstatusD").ToEntero();
+            int isOnlyBisibleP = e.Row.DataKey("isOnlyBisibleP").ToEntero();
+            int isOnlyBisibleD = e.Row.DataKey("isOnlyBisibleD").ToEntero();
+
+            // Controles
+            Label LtlConcepto = e.Row.FCLabel("LtlConcepto");
+            LinkButton LnkConcepto = e.Row.FCLinkButton("LnkConcepto");
+            Label LtlConceptoD = e.Row.FCLabel("LtlConceptoD");
+            LinkButton LnkConceptoD = e.Row.FCLinkButton("LnkConceptod");
+            Label LtlImporte = e.Row.FCLabel("LtlImporte");
+            LinkButton LnkImporte = e.Row.FCLinkButton("LnkImporte");
+            Label LtlImporteD = e.Row.FCLabel("LtlImporteD");
+            LinkButton LnkImporteD = e.Row.FCLinkButton("LnkImporteD");
+            //isEditedD
+            if (isOnlyBisibleP == 1)
+            {
+                e.Row.CssClass = string.Format("{0} isOnlyBisibleP", e.Row.CssClass);
+            }
+            if (isOnlyBisibleD == 1)
+            {
+                e.Row.CssClass = string.Format("{0} isOnlyBisibleD", e.Row.CssClass);
+            }
+
+
+            if (Estatus < -1 | EstatusD < -1)
+                e.Row.CssClass = "ConceptosTotales";
+            if (CveConcepto == 0 && (Estatus == 0 || Estatus == -1 || Estatus == -3))
+                LtlImporte.Text = "";
+
+            if (CveConceptoD == 0 && (EstatusD == 0 || EstatusD == -1))
+                LtlImporteD.Text = "";
+
+            if (Estatus == -1)
+                LtlConcepto.Visible = false;
+            else if (Estatus > 0)
+                LtlImporte.Visible = false;
+
+            if (EstatusD == -1)
+                LtlConceptoD.Visible = false;
+            else if (EstatusD > 0)
+                LtlImporteD.Visible = false;
+
+
+            LnkConcepto.Visible = !LtlConcepto.Visible;
+            LnkConceptoD.Visible = !LtlConceptoD.Visible;
+            LnkImporte.Visible = !LtlImporte.Visible;
+            LnkImporteD.Visible = !LtlImporteD.Visible;
+        }
+    }
+    #endregion
+
     protected void LnkFormatoTabular_Click(object sender, EventArgs e)
     {
         try
@@ -1641,93 +1728,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
             Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString());
         }
     }
-    private class NConcepto
-    {
-        public string NoConceptoP { get; set; }
-        public string ConceptoP { get; set; }
-        public string LabelValorP { get; set; }
-        public int CveConceptoP { get; set; }
-        public double ImporteP { get; set; }
-        public double ValorP { get; set; }
-        public int EstatusP { get; set; }
-        public bool isEditedP { get; set; }
-        public int isOnlyBisibleP { get; set; }
-
-
-        public string NoConceptoD { get; set; }
-        public string ConceptoD { get; set; }
-        public string LabelValorD { get; set; }
-        public int CveConceptoD { get; set; }
-        public double ImporteD { get; set; }
-        public double ValorD { get; set; }
-        public int EstatusD { get; set; }
-        public bool isEditedD { get; set; }
-        public int isOnlyBisibleD { get; set; }
-    }
-
-    protected void GvConceptos_RowDataBound(object sender, GridViewRowEventArgs e)
-    {
-
-        if (e.Row.RowType == DataControlRowType.DataRow)
-        {
-            // Datakeys
-            // Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD
-            int CveConcepto = e.Row.DataKey("CveConceptoP").ToEntero();
-            int CveConceptoD = e.Row.DataKey("CveConceptoD").ToEntero();
-            // Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal()
-            // Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal()
-            int Estatus = e.Row.DataKey("EstatusP").ToEntero();
-            int EstatusD = e.Row.DataKey("EstatusD").ToEntero();
-            int isOnlyBisibleP = e.Row.DataKey("isOnlyBisibleP").ToEntero();
-            int isOnlyBisibleD = e.Row.DataKey("isOnlyBisibleD").ToEntero();
-
-            // Controles
-            Label LtlConcepto = e.Row.FCLabel("LtlConcepto");
-            LinkButton LnkConcepto = e.Row.FCLinkButton("LnkConcepto");
-            Label LtlConceptoD = e.Row.FCLabel("LtlConceptoD");
-            LinkButton LnkConceptoD = e.Row.FCLinkButton("LnkConceptod");
-            Label LtlImporte = e.Row.FCLabel("LtlImporte");
-            LinkButton LnkImporte = e.Row.FCLinkButton("LnkImporte");
-            Label LtlImporteD = e.Row.FCLabel("LtlImporteD");
-            LinkButton LnkImporteD = e.Row.FCLinkButton("LnkImporteD");
-            //isEditedD
-            if (isOnlyBisibleP == 1)
-            {
-                e.Row.CssClass = string.Format("{0} isOnlyBisibleP", e.Row.CssClass);
-            }
-            if (isOnlyBisibleD == 1)
-            {
-                e.Row.CssClass = string.Format("{0} isOnlyBisibleD", e.Row.CssClass);
-            }
-
-
-            if (Estatus < -1 | EstatusD < -1)
-                e.Row.CssClass = "ConceptosTotales";
-            if (CveConcepto == 0 && (Estatus == 0 || Estatus == -1 || Estatus == -3))
-                LtlImporte.Text = "";
-
-            if (CveConceptoD == 0 && (EstatusD == 0 || EstatusD == -1))
-                LtlImporteD.Text = "";
-
-            if (Estatus == -1)
-                LtlConcepto.Visible = false;
-            else if (Estatus > 0)
-                LtlImporte.Visible = false;
-
-            if (EstatusD == -1)
-                LtlConceptoD.Visible = false;
-            else if (EstatusD > 0)
-                LtlImporteD.Visible = false;
-
-
-            LnkConcepto.Visible = !LtlConcepto.Visible;
-            LnkConceptoD.Visible = !LtlConceptoD.Visible;
-            LnkImporte.Visible = !LtlImporte.Visible;
-            LnkImporteD.Visible = !LtlImporteD.Visible;
-        }
-    }
-    #endregion
-
     protected void LnkConcepto_Click(object sender, EventArgs e)
     {
 

RH/ActualizacionMasiva.aspx

@@ -10,20 +10,26 @@
     Cargas Masivas
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <li><asp:HyperLink data-toggle="modal" data-target="#DModalCargaexcel" runat="server"><i class="fa fa-ad-excel" style="margin-right:5px"></i> Carga Masiva</asp:HyperLink></li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="portlet solid grey-cascade portlet-filter" style="">
                 <div class="portlet-title portlet-filterT" style="">
-                    <div class="portlet-body" style="font-size:120%">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                        <a href="javascript:;" class="expand"></a>
+                        <a onclick="document.getElementById('C_BtnConsultar').click();" class="reload"></a>
+                    </div>
+                    <div class="titlefiltros  caption " style="font-size: 120%">
                         <ul class="list-inline">
-                            <li>Cliente:
+                            <%--<li>Cliente:
                                 <asp:Button ID="BtnCargarClientes" runat="server" ClientIDMode="Static" Text="CargarClientes" Style="display: none;" />
                                 <asp:DropDownList ID="DdlCliente" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;">
                                     <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
-                            </li>
+                            </li>--%>
                             <li>Proyecto:
                          <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 200px !important;" ValidationGroup="GrpGuardar">
                              <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -34,26 +40,21 @@
                             <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                             </li>
-                        </ul>
+                            <li style="width: 297px;">&nbsp;&nbsp;Turno:
-                    </div>
-                    <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
-                        <a href="javascript:;" class="expand"></a>
-                        <a onclick="document.getElementById('C_BtnConsultar').click();" class="reload"></a>
-                    </div>
-                </div>
-                <div class="portlet-body" style="display: none;font-size:120%">
-                    <ul class="list-inline">
-                        <li style="width: 297px;">&nbsp;&nbsp;Turno:
                         <asp:DropDownList ID="DdlTurno" runat="server" AppendDataBoundItems="true" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;" ValidationGroup="GrpGuardar">
                             <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
-                        </li>
+                            </li>
-                        <li>Supervisor:
+                        </ul>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none; font-size: 120%">
+                    <ul class="list-inline">
+                        <%--<li>Supervisor:
                          <asp:DropDownList ID="DdlSupervisor" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 200px !important;">
                              <asp:ListItem Selected="True" Text="Sin Supervisor Asignado" Value="-1"></asp:ListItem>
                          </asp:DropDownList>
-                        </li>
+                        </li>--%>
                     </ul>
                 </div>
             </div>
@@ -62,54 +63,55 @@
     <br />
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate> 
-            <table border="0" cellpadding="0" cellspacing="0">
+                    <div style="text-align:right">
-                <tr>
-                    <td align="right">
                         <asp:Button ID="BtnGuardar" runat="server" Text="Guardar Cambios" ValidationGroup="GrpGuardar" class="btn btn-primary" />
-                    </td>
+                        <br />
-                </tr>
+                        <br />
-                <tr>
+                    </div>
-                    <td align="left">
+                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal, CveSubProyecto" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Asistencias" 
-                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal, CveSubProyecto" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Asistencias" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                            CssClass="table table-striped table-advance table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Nombre</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
+                                        <asp:Literal ID="LtlNombre" runat="server" Text='<%# String.Format("{0}-{1}", Eval("Codigo"), Eval("Nombre"))%>'></asp:Literal>
                                     </ItemTemplate>
                                     <ItemStyle Width="250px" HorizontalAlign="Left" />
                                 </asp:TemplateField>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Proyecto</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:DropDownList ID="DdlGVProyecto" runat="server" AutoPostBack="True" DataTextField="Proyecto" DataValueField="CveProyecto" OnSelectedIndexChanged="DdlGVProyecto_SelectedIndexChanged" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>
+                                        <asp:Literal   runat="server" Text='<%#   Eval("Proyecto") %>'></asp:Literal>
+                                        <%--<asp:DropDownList ID="DdlGVProyecto" runat="server" AutoPostBack="True" DataTextField="Proyecto" DataValueField="CveProyecto" OnSelectedIndexChanged="DdlGVProyecto_SelectedIndexChanged" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>--%>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
                                 </asp:TemplateField>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Sub Proyecto</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:DropDownList ID="DdlGVSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>
+                                        <asp:Literal   runat="server" Text='<%#   Eval("SubProyecto") %>'></asp:Literal>
+                                        <%--<asp:DropDownList ID="DdlGVSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>--%>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
                                 </asp:TemplateField>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Turno</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:DropDownList ID="DdlTurno" runat="server" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;">
+                                        <asp:Literal   runat="server" Text='<%#   Eval("Turno") %>'></asp:Literal>
-                                        </asp:DropDownList>
+                                        <%--<asp:DropDownList ID="DdlTurno" runat="server" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;"></asp:DropDownList>--%>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
                                 </asp:TemplateField>
-                                <asp:TemplateField>
+                                <%--<asp:TemplateField>
                                     <HeaderTemplate>Supervisor</HeaderTemplate>
                                     <ItemTemplate>
+                                        <asp:Literal   runat="server" Text='<%#   Eval("Proyecto") %>'></asp:Literal>
                                         <asp:DropDownList ID="DdlSupervisor" runat="server" DataTextField="Nombre" DataValueField="CveUsuario" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 140px !important;">
                                         </asp:DropDownList>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
-                                </asp:TemplateField>
+                                </asp:TemplateField>--%>
-                                <asp:TemplateField>
+                                <asp:TemplateField HeaderStyle-Width="80px">
                                     <HeaderTemplate>SDD</HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:TextBox ID="TxtSalarioDiario" runat="server" MaxLength="10" Text='<%# Eval("SalarioDiario", "{0:N2}") %>' Width="50px"></asp:TextBox>
@@ -117,7 +119,7 @@
                                         <ajax:ValidatorCalloutExtender ID="VCOSalarioDiario" runat="server" HighlightCssClass="vco" TargetControlID="CVSalarioDiario" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
-                                </asp:TemplateField>
+                                </asp:TemplateField  >
                                 <asp:TemplateField>
                                     <HeaderTemplate>SDI</HeaderTemplate>
                                     <ItemTemplate>
@@ -125,9 +127,9 @@
                                         <asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" Display="None" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCOSDI" runat="server" HighlightCssClass="vco" TargetControlID="CVSDI" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </ItemTemplate>
-                                    <ItemStyle HorizontalAlign="Left" />
+                                    <ItemStyle HorizontalAlign="Left"  Width="80px" />
                                 </asp:TemplateField>
-                                <asp:TemplateField>
+                                <asp:TemplateField  HeaderStyle-Width="80px">
                                     <HeaderTemplate>SD IMSS</HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:TextBox ID="TxtSalarioCotizado" runat="server" MaxLength="10" Text='<%# Eval("SalarioDiarioSS", "{0:N2}") %>' Width="60px"></asp:TextBox>
@@ -140,11 +142,69 @@
                             <RowStyle CssClass="Texto" />
                             <HeaderStyle CssClass="Titulos" />
                         </asp:GridView>
-                    </td>
-                </tr>
-            </table>
         </ContentTemplate>
     </asp:UpdatePanel>
+
+    
+    <div id="DModalCargaexcel" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpCargarexcel" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Cargar Nomina de excel</h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="portlet light smmallpadding bordered">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-download font-green"></i>
+                                    <span class="caption-subject bold uppercase">Paso 1: Descargar Plantilla</span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding text-center">
+                                <asp:LinkButton ID="LnkFormato" OnClick="LnkFormato_Click" CssClass="btn btn-success" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
+                            </div>
+                        </div>
+                        <%--                        -recuerda Solo editar de las tercer fila en adelante.<br />
+                        -No se debe editar el nombre de la hoja 'Nomina'.<br />
+                        -la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.<br />
+                        -si desea agregar un empleado que no se encuentre en la lista solo debe de ingresar fila y el codigo del empleado.<br />
+                        -si no desea  insertar un concepto puede borrar la columna.<br />
+                        -no se debe borrar la columna codigo.<br />--%>
+
+                        <div class="portlet light smmallpadding bordered">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-upload font-green"></i>
+                                    <span class="caption-subject bold uppercase">Paso 2: cargar plantilla </span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding ">
+                                <asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                            </div>
+                        </div>
+                    </div>
+
+                    <div class="modal-footer"> 
+                                <asp:LinkButton ID="LnkCargarSalarios" OnClick="LnkCargarSalarios_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton> 
+                    </div>
+                </div>
+            </ContentTemplate>
+            <Triggers>
+                <asp:PostBackTrigger ControlID="LnkFormato" />
+            </Triggers>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script language="javascript" type="text/javascript">

RH/ActualizacionMasiva.aspx.vb

@@ -11,7 +11,7 @@ Partial Class RH_ActualizacionMasiva
         If Not IsPostBack Then
             SetPermisos()
 
-            DdlCliente.Attributes.Add("onclick", "CargaClientes();")
+            'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
             CargaProyecto()
             CargaTurnos()
             CargaSupervisores()
@@ -53,22 +53,22 @@ Partial Class RH_ActualizacionMasiva
 #Region "CargaCombos"
 
     Private Sub CargaClientes()
-        Dim ObjClientes As New ClsClientes
+        'Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+        'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            DdlCliente.DataSource = ObjClientes.DtResultados
+        '    DdlCliente.DataSource = ObjClientes.DtResultados
-        Else
+        'Else
-            DdlCliente.DataSource = Nothing
+        '    DdlCliente.DataSource = Nothing
-        End If
+        'End If
-        ObjClientes.Dispose()
+        'ObjClientes.Dispose()
-        'Application("GlobalDTResponsable")
+        ''Application("GlobalDTResponsable")
 
-        DdlCliente.DataBind()
+        'DdlCliente.DataBind()
     End Sub
 
-    Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
+    'Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
-        CargaClientes()
+    '    CargaClientes()
-        DdlCliente.Attributes.Remove("onclick")
+    '    DdlCliente.Attributes.Remove("onclick")
-    End Sub
+    'End Sub
 
     Private Sub CargaProyecto()
         ViewState("DTProyectos") = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
@@ -102,8 +102,8 @@ Partial Class RH_ActualizacionMasiva
         Row("CveUsuario") = -1 : Row("Nombre") = "Sin Supervisor Asignado"
         DirectCast(ViewState("DTUsuarios"), DataTable).Rows.InsertAt(Row, 0)
 
-        DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
+        'DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
-        DdlSupervisor.DataBind()
+        'DdlSupervisor.DataBind()
     End Sub
 
 #End Region
@@ -113,15 +113,16 @@ Partial Class RH_ActualizacionMasiva
     End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
-        Dim ObjPersonal As New ClsRH
 
-        If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlSupervisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        Using ObjPersonal As New ClsRH
-            GvDatos.DataSource = ObjPersonal.DtResultados
+
-        Else
+            If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
-            GvDatos.DataSource = Nothing
+                GvDatos.DataSource = ObjPersonal.DtResultados
-        End If
+            Else
+                GvDatos.DataSource = Nothing
+            End If
+        End Using
 
-        ObjPersonal.Dispose()
 
         GvDatos.DataBind()
         UPDatos.Update()
@@ -130,20 +131,20 @@ Partial Class RH_ActualizacionMasiva
     Protected Sub GvDatos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowCreated
         If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
 
-            e.Row.FCDropDownList("DdlGVProyecto").DataSource = DTProyectos
+            'e.Row.FCDropDownList("DdlGVProyecto").DataSource = DTProyectos
-            e.Row.FCDropDownList("DdlGVProyecto").DataBind()
+            'e.Row.FCDropDownList("DdlGVProyecto").DataBind()
-            'e.Row.FCDropDownList("DdlGVProyecto").Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
+            ''e.Row.FCDropDownList("DdlGVProyecto").Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
 
-            e.Row.FCDropDownList("DdlGVSubProyecto").DataSource = DTSubProyectos
+            'e.Row.FCDropDownList("DdlGVSubProyecto").DataSource = DTSubProyectos
-            e.Row.FCDropDownList("DdlGVSubProyecto").DataBind()
+            'e.Row.FCDropDownList("DdlGVSubProyecto").DataBind()
-            'e.Row.FCDropDownList("DdlGVSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
+            ''e.Row.FCDropDownList("DdlGVSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
 
-            e.Row.FCDropDownList("DdlTurno").DataSource = DTTurno
+            'e.Row.FCDropDownList("DdlTurno").DataSource = DTTurno
-            e.Row.FCDropDownList("DdlTurno").DataBind()
+            'e.Row.FCDropDownList("DdlTurno").DataBind()
 
-            e.Row.FCDropDownList("DdlSupervisor").DataSource = DTUsuarios
+            'e.Row.FCDropDownList("DdlSupervisor").DataSource = DTUsuarios
-            e.Row.FCDropDownList("DdlSupervisor").DataBind()
+            'e.Row.FCDropDownList("DdlSupervisor").DataBind()
-            'e.Row.FCDropDownList("DdlSupervisor").Items.Insert(0, New ListItem("Sin Supervisor Asignado", "-1"))
+            ''e.Row.FCDropDownList("DdlSupervisor").Items.Insert(0, New ListItem("Sin Supervisor Asignado", "-1"))
 
 
         End If
@@ -154,25 +155,25 @@ Partial Class RH_ActualizacionMasiva
 
             If e.Row.DBCampo("Turno") = "" AndAlso e.Row.DBCampo("Nombre") = "" Then
                 e.Row.FCLiteral("LtlNombre").Text = "<b>Sub Proyecto:</b> " & If(e.Row.DBCampo("SubProyecto") = String.Empty, "Sin Proyecto Asignado", e.Row.DBCampo("SubProyecto"))
-                e.Row.Cells(0).ColumnSpan = 8
+                e.Row.Cells(0).ColumnSpan = 7
-                For i As Integer = 1 To 7
+                For i As Integer = 1 To 6
                     e.Row.Cells(i).Visible = False
                 Next
                 e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             ElseIf e.Row.DBCampo("Turno") <> "" AndAlso e.Row.DBCampo("Nombre") = "" Then
                 e.Row.FCLiteral("LtlNombre").Text = "<b>Turno:</b> " & e.Row.DBCampo("Turno")
-                e.Row.Cells(0).ColumnSpan = 8
+                e.Row.Cells(0).ColumnSpan = 7
-                For i As Integer = 1 To 7
+                For i As Integer = 1 To 6
                     e.Row.Cells(i).Visible = False
                 Next
                 e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             Else
-                If e.Row.DBCampo("CveProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVProyecto").SelectedValue = e.Row.DBCampo("CveProyecto")
+                'If e.Row.DBCampo("CveProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVProyecto").SelectedValue = e.Row.DBCampo("CveProyecto")
-                CargaSubProyectoGV(e.Row.FCDropDownList("DdlGVProyecto"), e.Row.FCDropDownList("DdlGVSubProyecto"))
+                'CargaSubProyectoGV(e.Row.FCDropDownList("DdlGVProyecto"), e.Row.FCDropDownList("DdlGVSubProyecto"))
-                If e.Row.DBCampo("CveSubProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
+                'If e.Row.DBCampo("CveSubProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
-                e.Row.FCDropDownList("DdlGVSubProyecto").Attributes.Add("onChange", "F(this, " & e.Row.FCDropDownList("DdlGVProyecto").ClientID & ")")
+                'e.Row.FCDropDownList("DdlGVSubProyecto").Attributes.Add("onChange", "F(this, " & e.Row.FCDropDownList("DdlGVProyecto").ClientID & ")")
-                If e.Row.DBCampo("CveTurno") <> String.Empty Then e.Row.FCDropDownList("DdlTurno").SelectedValue = e.Row.DBCampo("CveTurno")
+                'If e.Row.DBCampo("CveTurno") <> String.Empty Then e.Row.FCDropDownList("DdlTurno").SelectedValue = e.Row.DBCampo("CveTurno")
-                If e.Row.DBCampo("CveSupervisor") <> String.Empty Then e.Row.FCDropDownList("DdlSupervisor").SelectedValue = e.Row.DBCampo("CveSupervisor")
+                'If e.Row.DBCampo("CveSupervisor") <> String.Empty Then e.Row.FCDropDownList("DdlSupervisor").SelectedValue = e.Row.DBCampo("CveSupervisor")
 
                 e.Row.FCTextBox("TxtSalarioCotizado").Text = e.Row.FCTextBox("TxtSalarioCotizado").Text.Replace(",", "")
 
@@ -181,39 +182,48 @@ Partial Class RH_ActualizacionMasiva
                 'e.Row.Cells(5).Enabled = True : e.Row.Cells(6).Enabled = True : e.Row.Cells(7).Enabled = True
 
                 '25: CargaMasiva-Proy,Sup,Tur
-                If Not UsuarioActual.TienePermisoProceso(25) Then e.Row.Cells(1).Enabled = False : e.Row.Cells(2).Enabled = False : e.Row.Cells(3).Enabled = False : e.Row.Cells(4).Enabled = False
+                'If Not UsuarioActual.TienePermisoProceso(25) Then e.Row.Cells(1).Enabled = False : e.Row.Cells(2).Enabled = False : e.Row.Cells(3).Enabled = False : e.Row.Cells(4).Enabled = False
-                '26: CargaMasiva-Salarios
-                If Not UsuarioActual.TienePermisoProceso(26) Then e.Row.Cells(5).Enabled = False : e.Row.Cells(6).Enabled = False : e.Row.Cells(7).Enabled = False
 
             End If
         End If
     End Sub
 
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
-        Dim ObjPersonal As New ClsRH
+        'Dim ObjPersonal As New ClsRH
-        ObjPersonal.IniciaTransacSQL()
+        'ObjPersonal.IniciaTransacSQL()
 
         Dim OcurrioError As Boolean = False
-        For Each Row As GridViewRow In GvDatos.Rows
+
-            If Row.DataKey("CvePersonal") <> "" Then
+        Using ObjPersonal As ClsRH = New ClsRH()
-                If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
+            For Each Row As GridViewRow In GvDatos.Rows
-                                                        Row.FCTextBox("TxtSalarioDiario").Text.ToDouble, Row.FCTextBox("TxtSDI").Text.ToDouble, Row.FCTextBox("TxtSalarioCotizado").Text.ToDouble,
+                If Row.DataKey("CvePersonal") <> "" Then
-                                                        Row.DataKey("CvePersonal").ToEntero, UsuarioActual.CveEmpresa) Then
+                    'If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
-                    OcurrioError = True
+                    '                                        Row.FCTextBox("TxtSalarioDiario").Text.ToDouble, Row.FCTextBox("TxtSDI").Text.ToDouble, Row.FCTextBox("TxtSalarioCotizado").Text.ToDouble,
-                    ObjPersonal.RollBack()
+                    '                                        Row.DataKey("CvePersonal").ToEntero, UsuarioActual.CveEmpresa) Then
-                    Exit For
+                    '    OcurrioError = True
+                    '    ObjPersonal.RollBack()
+                    '    Exit For
+                    'End If
+                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(), Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal()) Then
+
+                    Else
+                        OcurrioError = True
+                        ObjPersonal.RollBack()
+                        Exit For
+                    End If
                 End If
+
+            Next
+            If Not OcurrioError Then
+                'ObjPersonal.Commit()
+                Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
+            Else
+                Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
             End If
-        Next
+        End Using
 
-        If Not OcurrioError Then
-            ObjPersonal.Commit()
-            Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
-        Else
-            Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
-        End If
 
-        ObjPersonal.Dispose()
+        'ObjPersonal.Dispose()
     End Sub
 
     Private Sub CargaSubProyectoGV(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList)
@@ -234,4 +244,140 @@ Partial Class RH_ActualizacionMasiva
 
         If DdlGVSubProyecto IsNot Nothing Then CargaSubProyectoGV(DirectCast(sender, DropDownList), DdlGVSubProyecto)
     End Sub
+
+    Protected Sub LnkFormato_Click(ByVal sender As Object, ByVal e As EventArgs)
+        Try
+            Dim wb As ClosedXML.Excel.XLWorkbook = New ClosedXML.Excel.XLWorkbook()
+            Dim libro = wb.AddWorksheet("Salario")
+            Dim column As Integer = 1
+            Dim Fila As Integer = 1
+            libro.Cell(Fila, column).Value = "Codigo"
+            column += 1
+            libro.Cell(Fila, column).Value = "Empleado"
+            column += 1
+            libro.Column(column).Width = 35
+            libro.Cell(Fila, column).Value = "SDD"
+            column += 1
+            libro.Cell(Fila, column).Value = "SDI"
+            column += 1
+            libro.Cell(Fila, column).Value = "SD IMSS"
+            column += 1
+            Dim DTEmpleados As New DataTable()
+
+            libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White
+            libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189))
+            Using ObjPersonal As New ClsRH
+                If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+                    DTEmpleados = ObjPersonal.DtResultados
+                End If
+            End Using
+            For Each dro As DataRow In DTEmpleados.Select("CvePersonal > 0 AND LEN(Codigo)>0")
+                column = 1
+                Fila = Fila + 1
+
+                libro.Cell(Fila, column).Value = String.Format("'{0}", dro("Codigo"))
+                column += 1
+                libro.Cell(Fila, column).Value = String.Format("'{0}", dro("Nombre"))
+                column += 1
+                libro.Column(column).Width = 35
+                libro.Cell(Fila, column).Value = dro("SalarioDiario")
+                column += 1
+                libro.Cell(Fila, column).Value = dro("SDI")
+                column += 1
+                libro.Cell(Fila, column).Value = dro("SalarioDiarioSS")
+                column += 1
+            Next
+
+
+            Dim fs As System.IO.Stream = New System.IO.MemoryStream()
+            wb.SaveAs(fs)
+            fs.Position = 0
+            Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream()
+
+            Using input As System.IO.Stream = fs
+                input.CopyTo(memoryStream)
+            End Using
+
+            memoryStream.Position = 0
+            Response.Clear()
+            Response.Buffer = True
+            Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
+            Response.AddHeader("content-disposition", String.Format("attachment;filename={0}.xlsx", "FormatoCargaSalario"))
+            Response.BinaryWrite(memoryStream.ToArray())
+            Response.[End]()
+        Catch ex As Exception
+            Alert("Ocurrio un error al generar el Formato de salario" & ex.ToString())
+        End Try
+    End Sub
+    Protected Sub LnkCargarSalarios_Click(sender As Object, e As EventArgs)
+        Dim Filesgral As List(Of Archivo) = TxtArchivoNomina.getfiles().Archivos
+        Dim continuar As Boolean = Filesgral.Count > 0
+        Dim stringError As String = ""
+        Dim fileItem As Archivo = If(continuar, Filesgral(0), Nothing)
+        Dim DTEmpleados As New DataTable()
+        Using ObjPersonal As New ClsRH
+            If ObjPersonal.GetPersonalMasivo(-1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+                DTEmpleados = ObjPersonal.DtResultados
+            Else
+                continuar = False
+                stringError = "Ocurrio un Error al procesar el excel "
+            End If
+        End Using
+        If continuar Then
+            Dim FileExtension As String = fileItem.Extencion.ToUpper()
+
+            If FileExtension = "XLS" Or FileExtension = "XLSX" Or FileExtension = "CSV" Then
+            Else
+                continuar = False
+                stringError = "No se inserto un archivo de tipo Excel"
+            End If
+        End If
+
+        Dim DTEXcel As DataTable = New DataTable()
+
+        If continuar Then
+
+            Try
+                DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True).FiltraParametros("  LEN(Codigo)>0  ")
+            Catch ex As Exception
+                continuar = False
+                stringError = "Ocurrio un Error al procesar el excel "
+                String.Format("{0} " & vbCrLf & "{0}", stringError, ex.ToString()).GuardaLog()
+            End Try
+        End If
+        If continuar Then
+
+            Dim OcurrioError As Boolean = False
+            Dim contador As Integer = 0
+            Using ObjPersonal As ClsRH = New ClsRH()
+                For Each Row As DataRow In DTEXcel.Rows
+                    If Row("Codigo").ToString() <> "" Then
+                        Dim drow As DataRow = DTEmpleados.FiltroPrimero(String.Format("Codigo='{0}'", Row("Codigo")))
+                        If Not IsNothing(drow) Then
+
+                            Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero()
+                            If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(), Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal()) Then
+                                contador = contador + 1
+                            Else
+                                OcurrioError = True
+                                Exit For
+                            End If
+                        End If
+
+                    End If
+
+                Next
+                If Not OcurrioError Then
+                    ObjPersonal.Commit()
+                    Alert(String.Format("La información se guardó correctamente.<br/> se registraron {0} empleados", contador), TipoMensaje.MsgInformacion)
+                Else
+                    ObjPersonal.RollBack()
+                    Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
+                End If
+            End Using
+        Else
+            Alert(stringError, TipoMensaje.MsgError)
+
+        End If
+    End Sub
 End Class

RH/Organigrama.aspx

@@ -51,6 +51,7 @@
                     } else {
                         let contenedor = document.getElementById('chart_div');
                         contenedor.innerHTML = '';
+                        console.log('vacio')
                     }
                 },
                 failure: function (r) {

RH/Organigrama.aspx.vb

@@ -52,9 +52,9 @@ Partial Class RH_Organigrama
         If Not IsPostBack Then
             txtNivel.Text = ""
             DdlSupervisorOrganigrama.SelectedIndex = 0
+            Dim viewFlag As Integer = CveCabecera
+            CargaSuperioresOrganigrama()
         End If
-        Dim viewFlag As Integer = CveCabecera
-        CargaSuperioresOrganigrama()
     End Sub
 
 

RH/Personal.aspx

@@ -1313,30 +1313,30 @@
                                                     </div>
 
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtSalarioDiario" runat="server" MaxLength="10"></asp:TextBox>
+                                                        <asp:TextBox CssClass="form-control" ID="TxtSalarioDiario"  Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtSalarioDiario" Enabled ="false" Text="Salario Diario (SDD):"></asp:Label>
-                                                        <asp:CompareValidator ID="CVSalarioDiario" runat="server" ControlToValidate="TxtSalarioDiario" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                        <%--<asp:CompareValidator ID="CVSalarioDiario" runat="server" ControlToValidate="TxtSalarioDiario" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
                                                         <i></i>
                                                     </div>
 
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtSDI" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtSDI" Text="Salario Diario Integrado (SDI):"></asp:Label>
-                                                        <asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" CssClass="help-block errorimput" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                        <%--<asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" CssClass="help-block errorimput" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
                                                         <i></i>
                                                     </div>
 
                                                     <div class="form-group form-md-line-input input-iconright" style="display: none;">
                                                         <asp:TextBox CssClass="form-control" ID="TxtSalarioDiarioPago" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioPago" Text="Salario Diario de Pago:"></asp:Label>
-                                                        <asp:CompareValidator ID="CVSalario" runat="server" ControlToValidate="TxtSalarioDiarioPago" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario de Pago''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                        <%--<asp:CompareValidator ID="CVSalario" runat="server" ControlToValidate="TxtSalarioDiarioPago" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario de Pago''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
                                                         <i></i>
                                                     </div>
 
                                                     <asp:Panel runat="server" ID="pnlSalarioIMSS" CssClass="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtSalarioCotizado" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtSalarioCotizado" Text="Salario Diario IMSS:"></asp:Label>
-                                                        <asp:CompareValidator ID="CVSDT" runat="server" ControlToValidate="TxtSalarioCotizado" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario Cotizado''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                        <%--<asp:CompareValidator ID="CVSDT" runat="server" ControlToValidate="TxtSalarioCotizado" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario Cotizado''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
 
                                                         <i></i>
                                                     </asp:Panel>

Sistemas/UsuarioDetalle.aspx.vb

@@ -4772,6 +4772,55 @@ Partial Class Sistemas_UsuarioDetalle
     End Sub
     Protected Sub BtnCerrarSession_Click(sender As Object, e As EventArgs)
 
-        ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CerrarSession, CveUsuario:=CveUsuario)
+        'ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CerrarSession, CveUsuario:=CveUsuario)
+        Dim objlist As List(Of ADSSession.ADSSessionObj) = DirectCast(ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.getListasession, CveUsuario:=CveUsuario), List(Of ADSSession.ADSSessionObj))
+
+        For Each user As ADSSession.ADSSessionObj In objlist
+            If CveUsuario = user.CveUsuario Then 'AndAlso (CveEmpresa = -1 OrElse CveEmpresa = user.CveEmpresa) Then
+                Dim taspsig As String = user.ASPSIG '"94C6AC57E8599390A4B7B8AB41FEABEF466D9B31120BE06D78110E66265F1ACC5616297BF3B88EDCEE71EBCFE35484308F62C8017EAC29FB3F0FB45CEC09E8F03DFBB4A4DD890D45755B7A30185C6D01F20AEFA74BE3A25FD12D536B20DCB8D9940A3D95"
+                Dim tsessionID As String = user.SessionID
+                Dim url = System.Configuration.ConfigurationManager.AppSettings("urlcerrarSession").ToString()
+                Dim cookie As String = String.Format("ASP.NET_SessionId={0};.ASPXSIG={1}", tsessionID, taspsig)
+                sendURL(url, cookie)
+            End If
+        Next
+        Alert("Sessión Cerrada")
     End Sub
+
+    Private Shared Function sendURL(ByVal URL As String, ByVal Optional Cookie As String = "", ByVal Optional maxTimeMilliseconds As Integer = 120000) As String
+        Dim resultado As String = ""
+
+        Try
+
+            Dim request As Net.HttpWebRequest = CType(Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
+            request.Timeout = maxTimeMilliseconds
+            request.Method = "POST"
+            request.ContentType = "text/xml; charset=utf-8"
+
+            If Not String.IsNullOrEmpty(Cookie) Then
+                request.Headers.Add("Cookie", Cookie)
+            End If
+
+            Using stream As IO.Stream = request.GetRequestStream()
+
+                Using stmw As IO.StreamWriter = New IO.StreamWriter(stream)
+                    stmw.Write("")
+                End Using
+            End Using
+
+            Using response As Net.WebResponse = CType(request.GetResponse(), Net.WebResponse)
+                Using sr As IO.StreamReader = New IO.StreamReader(response.GetResponseStream())
+
+                    resultado = sr.ReadToEnd()
+                    sr.Close()
+                End Using
+
+            End Using
+            request = Nothing
+        Catch ex As Exception
+            'Extenciones.ApplicationParameter.GuardaLogEx(ex, $"SOAPAction : {SOAPAction} XML : {xml}")
+        End Try
+
+        Return resultado
+    End Function
 End Class

Site.master.vb

@@ -455,7 +455,7 @@ Partial Class Site
                 If objgen.DtResultados.Rows.Count > 0 Then
                     For Each dtrow As DataRow In objgen.DtResultados.Rows
                         If dtrow("Contador").ToString().ToEntero() > 0 Then
-                            Notificaciones.Append(ItemNotificaciones(String.Format("Se registro una solicitud de descarga del sat con {0} XML del SAT", dtrow("Contador")), Ico:="fa fa-tags", Tipo:="info", Link:=String.Format("javascript:$('#{0}').val({1});$('#{2}').click();", TxtCveNotisat.ClientID, dtrow("CveSolicitudSat").ToString().ToEntero(), btnoknotisat.ClientID), tonewpage:=False)) ' 
+                            Notificaciones.Append(ItemNotificaciones(String.Format("Se registro una solicitud de descarga del SAT con {0} XML", dtrow("Contador")), Ico:="fa fa-tags", Tipo:="info", Link:=String.Format("javascript:$('#{0}').val({1});$('#{2}').click();", TxtCveNotisat.ClientID, dtrow("CveSolicitudSat").ToString().ToEntero(), btnoknotisat.ClientID), tonewpage:=False)) ' 
                             countNotificaciones = countNotificaciones + 1
 
                         End If

Ventas/Ventas.aspx

@@ -1300,14 +1300,14 @@
                                                         </div>
                                                     </ContentTemplate>
                                                 </asp:UpdatePanel>
-                                                 <div id="DivOCRelacionadas" class="col-md-3" runat="server" visible="false">
+                                                <div id="DivOCRelacionadas" class="col-md-3" runat="server" visible="false">
-                                                   <asp:GridView runat="server" ID="GvOCRelacionadas" Caption="OC Relacionadas:" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra,Folio" 
+                                                    <asp:GridView runat="server" ID="GvOCRelacionadas" Caption="OC Relacionadas:" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra,Folio"
-                                                                    CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None">
+                                                        CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None">
-                                                                    <Columns>
+                                                        <Columns>
-                                                                        <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveOrdenCompra" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" HeaderText="Orden Compra" />
+                                                            <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveOrdenCompra" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" HeaderText="Orden Compra" />
-                                                                    </Columns>
+                                                        </Columns>
-                                                                </asp:GridView>
+                                                    </asp:GridView>
-                                                 </div>
+                                                </div>
                                             </div>
                                         </div>
                                         <div class="col-md-6 ">
@@ -2879,6 +2879,192 @@
 
                     </ContentTemplate>
                 </ajax:TabPanel>
+
+                <ajax:TabPanel ID="TabAuxiliarConta" runat="server" HeaderText="Saldo" Visible="false">
+                    <ContentTemplate>
+                        <asp:Literal ID="LtlTipo1" runat="server"></asp:Literal>
+                        <table border="0" class="contenido Widthall">
+                            <tr>
+                                <td align="left">
+                                    <%--<div class="note note-success">
+                                        <label class="title">Auxiliar contable de:</label>
+
+                                        <label>
+                                            <asp:Literal ID="LtlTipo2" runat="server"></asp:Literal>:&nbsp;</label><asp:Literal ID="LtlFolio" runat="server"></asp:Literal>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                                        <label>
+                                            <asp:Literal ID="LtlTipo3" runat="server"></asp:Literal>:&nbsp;</label><asp:Literal ID="LtlFechaVenta" runat="server"></asp:Literal>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                                        <label>
+                                            <asp:Literal runat="server" Text="Importe"></asp:Literal>:&nbsp;</label><asp:Literal ID="LtlImporte" runat="server"></asp:Literal>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                                        <label>
+                                            <asp:Literal runat="server" Text="Saldo"></asp:Literal>:&nbsp;</label><asp:Literal ID="LtlSaldo" runat="server"></asp:Literal>
+                                    </div>--%>
+                                </td>
+                            </tr>
+                            <tr>
+                                <td>
+                                    <div class="portlet light xspadding bordered">
+                                        <%--<div class="portlet-title">
+                                            <div class="caption font-green">
+                                                <i class="fa fa-th-list font-green"></i>
+                                                <span class="caption-subject bold uppercase">Movimientos</span>
+                                            </div>
+                                            <div class="actions">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpRepClientesPagosBancos">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkPagosClientesBancosPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkPagosClientesBancosExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkPagosClientesBancosPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkPagosClientesBancosExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
+                                            </div>
+                                            <div class="tools">
+                                                <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                            </div>
+                                        </div>--%>
+                                        <div class="portlet-body form-horizontal form-row-sepe formnombottom">
+                                            <table border="0">
+                                                <tr>
+                                                    <td>
+
+                                                        <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpDatos">
+                                                            <ContentTemplate>
+                                                                <asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal" EmptyDataText="No se encontraron Movimientos de Auxiliar" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" Style="text-align: center;" GridLines="None">
+                                                                    <Columns>
+                                                                        <asp:TemplateField>
+                                                                            <HeaderTemplate>Fecha</HeaderTemplate>
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="LtlFechaMovto" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <HeaderTemplate>Concepto</HeaderTemplate>
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="LtlConcepto" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <HeaderTemplate>Cargo</HeaderTemplate>
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="LtlCargo" runat="server" Text='<%# If(CDbl(Eval("Cargo")) = 0, "", Eval("Cargo", "{0:N2}")) %>'></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <HeaderTemplate>Abono</HeaderTemplate>
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="LtlAbono" runat="server" Text='<%# If(CDbl(Eval("Abono")) = 0, "", Eval("Abono", "{0:N2}")) %>'></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <HeaderTemplate>Folio (Ref.)</HeaderTemplate>
+                                                                            <ItemTemplate>
+                                                                                &nbsp;<asp:HyperLink ID="HplReferencia" runat="server" Text='<%# Eval("Referencia", "{0}") %>' Target="_blank"></asp:HyperLink>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField Visible="false">
+                                                                            <HeaderTemplate>Contabilizado</HeaderTemplate>
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="LtlContabilizado" runat="server" Text='<%# Eval("Contabilizado") %>'></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <HeaderTemplate>Num. Póliza</HeaderTemplate>
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="LtlPoliza" runat="server"></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField Visible="false">
+                                                                            <HeaderTemplate>Fecha Conta.</HeaderTemplate>
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="LtlFechaConta" runat="server" Text='<%# Eval("FechaConta", "{0:d}") %>'></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField ItemStyle-Width="8000px">
+                                                                            <HeaderTemplate>Referencia</HeaderTemplate>
+                                                                            <ItemTemplate>
+                                                                                <asp:HyperLink ID="LtlConceptoInfo" runat="server" Text='<%# Eval("Concepto") %>' NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}") %>'></asp:HyperLink>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField>
+                                                                            <HeaderTemplate>Usuario</HeaderTemplate>
+                                                                            <ItemTemplate>
+                                                                                <asp:Label ToolTip='<%# Eval("Usuario") %>' runat="server">
+                                                                                    <asp:Literal ID="LtlUsuario" runat="server" Text='<%# If(Eval("Usuario").ToString.Length > 15, Eval("Usuario").ToString.Substring(0, 15), Eval("Usuario")) %>'></asp:Literal>
+                                                                                </asp:Label>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+
+                                                                    </Columns>
+                                                                    <RowStyle CssClass="Texto" />
+                                                                    <AlternatingRowStyle CssClass="TextoAlterno" />
+                                                                    <HeaderStyle CssClass="Titulos" />
+                                                                </asp:GridView>
+                                                            </ContentTemplate>
+                                                        </asp:UpdatePanel>
+
+
+                                                    </td>
+                                                </tr>
+                                            </table>
+
+                                        </div>
+                                    </div>
+                                    <div>
+                                    </div>
+                                </td>
+                            </tr>
+                        </table>
+
+                        <div id="DivCancelar" class="modal fade">
+                            <div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
+                                <asp:UpdatePanel ID="UpEliminarCotizacion" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                                    <ContentTemplate>
+                                        <div class="modal-header">
+                                            <button type="button" class="close" data-dismiss="modal" aria-hidden="true"></button>
+                                            <h3 class="modal-title">Cancelar Movimiento</h3>
+                                        </div>
+                                        <div class="modal-body">
+                                            <div class="row" style="align-items: center; vertical-align: middle;">
+                                                <label class="col-md-4" style="max-width: 155px;">Concepto:</label>
+                                                <asp:TextBox ID="TxtConceptoCancelacion" runat="server" CssClass="form-control input-sm" Width="90%" CausesValidation="true" MaxLength="100" ValidationGroup="GrpCancelarPrepoliza"></asp:TextBox>
+                                                <asp:RequiredFieldValidator ID="RFVTxtConceptoCancelacion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoCancelacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCancelarPrepoliza"></asp:RequiredFieldValidator>
+
+                                            </div>
+                                            <div class="row" style="align-items: center; vertical-align: middle;">
+                                                <label class="col-md-4" style="max-width: 155px;">Fecha de Cancelación:</label>
+                                                <div class="col-md-3">
+
+                                                    <div class="input-group date date-picker" data-date-format="dd/mm/yyyy" style="width: 85px !important; padding: 0px;">
+                                                        <asp:TextBox ID="TxtFechaCancelacion" runat="server" CssClass="form-control input-sm" Width="80px" CausesValidation="true" MaxLength="10" ValidationGroup="GrpCancelarPrepoliza"></asp:TextBox>
+
+                                                        <span class="input-group-btn ">
+                                                            <asp:LinkButton ID="ImgCalendarioDel" class="btn default input-sm" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                        </span>
+
+                                                        <ajax:MaskedEditExtender ID="MEEFechaCancelacion" runat="server" TargetControlID="TxtFechaCancelacion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                        <ajax:CalendarExtender ID="CalendarioCancelacion" runat="server" TargetControlID="TxtFechaCancelacion" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                                        <asp:CompareValidator ID="CVFechaCancelacion" runat="server" ControlToValidate="TxtFechaCancelacion" Display="None" Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpCancelarPrepoliza" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Cancelación''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."></asp:CompareValidator>
+                                                        <ajax:ValidatorCalloutExtender ID="VCOFecha2Cancelacion" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCancelacion" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                                    </div>
+                                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator13" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFechaCancelacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCancelarPrepoliza"></asp:RequiredFieldValidator>
+                                                </div>
+
+                                            </div>
+                                        </div>
+                                        <div class="modal-footer">
+                                            <asp:Button ID="Button2" OnClick="BtnCancelarAux_Click" runat="server" CssClass="btn btn-success" Text="Cancelar Movimiento" ValidationGroup="GrpCancelarPrepoliza" />
+                                            <button type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                                        </div>
+                                    </ContentTemplate>
+                                </asp:UpdatePanel>
+                            </div>
+                        </div>
+                    </ContentTemplate>
+                </ajax:TabPanel>
             </ajax:TabContainer>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -5348,13 +5534,13 @@
                             <asp:UpdatePanel ID="UPPProyecto" runat="server" UpdateMode="Conditional">
                                 <ContentTemplate>
                                     <div class="form-group form-md-line-input input-iconright" id="divProyectoPyME" runat="server">
-                                        <asp:Label id="LblProyectoPyME" runat="server" for="<%= DdlProyectoPyME.ClientID.ToString()%>">Proyecto:</asp:Label>
+                                        <asp:Label ID="LblProyectoPyME" runat="server" for="<%= DdlProyectoPyME.ClientID.ToString()%>">Proyecto:</asp:Label>
                                         <asp:DropDownList ID="DdlProyectoPyME" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="50%">
                                             <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                         </asp:DropDownList>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright">
-                                        <asp:Label id="LblSubProyectoPyME" runat="server" for="<%= DdlSubProyectoPyME.ClientID.ToString()%>">SubProyecto:</asp:Label>
+                                        <asp:Label ID="LblSubProyectoPyME" runat="server" for="<%= DdlSubProyectoPyME.ClientID.ToString()%>">SubProyecto:</asp:Label>
                                         <asp:DropDownList ID="DdlSubProyectoPyME" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="50%">
                                             <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                         </asp:DropDownList>
@@ -6399,22 +6585,22 @@
                                 <div id="DivEstadoPaisCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
 
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                       <asp:DropDownList ID="DdlSATPais"  runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
+                                        <asp:DropDownList ID="DdlSATPais" runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
-                                                <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
+                                            <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
-                                                <asp:ListItem  Value="MEX" Text="México"  Selected="True"></asp:ListItem>
+                                            <asp:ListItem Value="MEX" Text="México" Selected="True"></asp:ListItem>
-                                                <asp:ListItem   Value="USA" Text="USA"></asp:ListItem>
+                                            <asp:ListItem Value="USA" Text="USA"></asp:ListItem>
-                                                <asp:ListItem   Value="CAN" Text="Canada"></asp:ListItem>
+                                            <asp:ListItem Value="CAN" Text="Canada"></asp:ListItem>
-                                            </asp:DropDownList>
+                                        </asp:DropDownList>
 
-                                             <asp:RequiredFieldValidator ID="RFVSATPais" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <asp:RequiredFieldValidator ID="RFVSATPais" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
-                                            <label for="<%= DdlSATPais.ClientID.ToString()%>">Pais:</label>
+                                        <label for="<%= DdlSATPais.ClientID.ToString()%>">Pais:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                         <asp:DropDownList ID="DdlEstadoSAT" DataTextField="NombreEstado" DataValueField="CveSATEstado" runat="server" CssClass="form-control input-sm select2me">
+                                        <asp:DropDownList ID="DdlEstadoSAT" DataTextField="NombreEstado" DataValueField="CveSATEstado" runat="server" CssClass="form-control input-sm select2me">
-                                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                            </asp:DropDownList>
+                                        </asp:DropDownList>
-                                             <asp:RequiredFieldValidator ID="RfvDdlEstadoSAT" runat="server" InitialValue="-1" ControlToValidate="DdlEstadoSAT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <asp:RequiredFieldValidator ID="RfvDdlEstadoSAT" runat="server" InitialValue="-1" ControlToValidate="DdlEstadoSAT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
-                                            <label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label>                                            
+                                        <label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label>
                                     </div>
                                 </div>
                                 <div id="DivCorreoCuentaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
@@ -7141,121 +7327,121 @@
             var ValorTxt = Obj.value;
             var suma = 0;
             var total = parseFloat($('#<%= HplSaldoAuxiliar.ClientID%>').text().replace(',', ''));
-                            $('#<%= GVAnticipos.ClientID%> input[type="text"]').each(function (index) {
+            $('#<%= GVAnticipos.ClientID%> input[type="text"]').each(function (index) {
-                                var currentsaldo = parseFloat($(this).val())
+                var currentsaldo = parseFloat($(this).val())
-                                if (isNaN(currentsaldo)) { currentsaldo = 0 }
+                if (isNaN(currentsaldo)) { currentsaldo = 0 }
-                                suma = currentsaldo + suma;
+                suma = currentsaldo + suma;
-                            });
+            });
-                            var txtvalue = (total - suma) + parseFloat(ValorTxt);
+            var txtvalue = (total - suma) + parseFloat(ValorTxt);
-                            if (txtvalue < 0) { txtvalue = 0; }
+            if (txtvalue < 0) { txtvalue = 0; }
-                            if (txtvalue < Monto) { Monto = txtvalue.toFixed(2); }
+            if (txtvalue < Monto) { Monto = txtvalue.toFixed(2); }
 
-                            if (isNaN(ValorTxt))
+            if (isNaN(ValorTxt))
-                                ValorTxt = 0;
+                ValorTxt = 0;
-                            if (isNaN(Monto))
+            if (isNaN(Monto))
-                                Monto = 0;
+                Monto = 0;
-                            if (parseFloat(ValorTxt) < 0) {
+            if (parseFloat(ValorTxt) < 0) {
-                                ValorTxt = 0;
+                ValorTxt = 0;
-                                Obj.value = 0;
+                Obj.value = 0;
-                            }
+            }
 
-                            if (parseFloat(ValorTxt) > parseFloat(Monto)) {
+            if (parseFloat(ValorTxt) > parseFloat(Monto)) {
-                                alert("El monto de ''Anticipo a Amortizar'' no puede ser mayor al monto del ''Anticipo''");
+                alert("El monto de ''Anticipo a Amortizar'' no puede ser mayor al monto del ''Anticipo''");
-                                Obj.value = Monto;
+                Obj.value = Monto;
-                            }
+            }
-                        }
+        }
-                        function ImprimirCotizacion() {
+        function ImprimirCotizacion() {
-                            __doPostBack('ctl00$HB$LNKImprimirCotizacion', '');
+            __doPostBack('ctl00$HB$LNKImprimirCotizacion', '');
-                        }
+        }
-                        function SetText2(ObjTo, Value) {
+        function SetText2(ObjTo, Value) {
-                            ObjTo.innerText = Value;
+            ObjTo.innerText = Value;
-                        }
+        }
 
-                        //VALIDA QUE LA CANTIDAD DE T (TXT) NO SEA MAYOR A C
+        //VALIDA QUE LA CANTIDAD DE T (TXT) NO SEA MAYOR A C
-                        function ValidarCantidad(t, c) {
+        function ValidarCantidad(t, c) {
-                            t.value = (t.value > c ? c : t.value)
+            t.value = (t.value > c ? c : t.value)
-                        }
+        }
 
-                        //VALIDA QUE LA CANTIDAD DE T (TXT) NO SEA MENOR A C
+        //VALIDA QUE LA CANTIDAD DE T (TXT) NO SEA MENOR A C
-                        function ValidarCantidadMenor(t, c) {
+        function ValidarCantidadMenor(t, c) {
-                            t.value = (t.value > c ? t.value : c)
+            t.value = (t.value > c ? t.value : c)
-                        }
+        }
 
-                        function Comma(Num) { //function to add commas to textboxes
+        function Comma(Num) { //function to add commas to textboxes
-                            Num += '';
+            Num += '';
-                            Num = Num.replace(',', ''); Num = Num.replace(',', ''); Num = Num.replace(',', '');
+            Num = Num.replace(',', ''); Num = Num.replace(',', ''); Num = Num.replace(',', '');
-                            Num = Num.replace(',', ''); Num = Num.replace(',', ''); Num = Num.replace(',', '');
+            Num = Num.replace(',', ''); Num = Num.replace(',', ''); Num = Num.replace(',', '');
-                            x = Num.split('.');
+            x = Num.split('.');
-                            x1 = x[0];
+            x1 = x[0];
-                            x2 = x.length > 1 ? '.' + x[1] : '';
+            x2 = x.length > 1 ? '.' + x[1] : '';
-                            var rgx = /(\d+)(\d{3})/;
+            var rgx = /(\d+)(\d{3})/;
-                            while (rgx.test(x1))
+            while (rgx.test(x1))
-                                x1 = x1.replace(rgx, '$1' + ',' + '$2');
+                x1 = x1.replace(rgx, '$1' + ',' + '$2');
-                            return x1 + x2;
+            return x1 + x2;
-                        }
+        }
 
-                        function AddCodigoBarrasSerie(e) {
+        function AddCodigoBarrasSerie(e) {
-                            if (e.keyCode == 13 || e.which == 13) {
+            if (e.keyCode == 13 || e.which == 13) {
-                                $('#BtnCodigoBarrasSerie').click();
+                $('#BtnCodigoBarrasSerie').click();
-                            }
+            }
-                        }
+        }
 
-                        //SERIE PS
+        //SERIE PS
-                        function SeriePS(e, b, txt, hdn) {
+        function SeriePS(e, b, txt, hdn) {
-                            ;
+            ;
-                            if (e.keyCode == 13 || e.which == 13) {
+            if (e.keyCode == 13 || e.which == 13) {
-                                if (txt.value != "" && txt.value != hdn.value) {
+                if (txt.value != "" && txt.value != hdn.value) {
-                                    $(b).click();
+                    $(b).click();
-                                }
+                }
-                            }
+            }
-                        }
+        }
 
-                        function SeriePSBlur(b, txt, hdn) {
+        function SeriePSBlur(b, txt, hdn) {
-                            ;
+            ;
-                            if (txt.value != "" && txt.value != hdn.value) {
+            if (txt.value != "" && txt.value != hdn.value) {
-                                $(b).click();
+                $(b).click();
-                            }
+            }
-                        }
+        }
 
-                        //SERIE-LOTE INV
+        //SERIE-LOTE INV
-                        var H1 = "";
+        var H1 = "";
-                        var H2 = "";
+        var H2 = "";
-                        var T = "";
+        var T = "";
 
-                        function EnterAFEdit(event, Txt, Hdn1, Hdn2) {
+        function EnterAFEdit(event, Txt, Hdn1, Hdn2) {
-                            if (event.which == 13 || event.keyCode == 13) {
+            if (event.which == 13 || event.keyCode == 13) {
-                                H1 = Hdn1;
+                H1 = Hdn1;
-                                H2 = Hdn2;
+                H2 = Hdn2;
-                                T = Txt;
+                T = Txt;
-                                $get("HdnCodAFEdit").value = Txt.value;
+                $get("HdnCodAFEdit").value = Txt.value;
 
-                                $('#BtnVinculaAFEdit').click();
+                $('#BtnVinculaAFEdit').click();
-                            }
+            }
-                        }
+        }
 
-                        function AFBlurEdit(Txt, Hdn1, Hdn2) {
+        function AFBlurEdit(Txt, Hdn1, Hdn2) {
-                            if (Txt.value.length > 0 && Txt.value != Hdn2.value) {
+            if (Txt.value.length > 0 && Txt.value != Hdn2.value) {
-                                H1 = Hdn1;
+                H1 = Hdn1;
-                                H2 = Hdn2;
+                H2 = Hdn2;
-                                T = Txt;
+                T = Txt;
-                                $get("HdnCodAFEdit").value = Txt.value;
+                $get("HdnCodAFEdit").value = Txt.value;
-                                $('#BtnVinculaAFEdit').click();
+                $('#BtnVinculaAFEdit').click();
-                            }
+            }
-                        }
+        }
 
-                        function EnterAFEditOK(Cve, Codigo) {
+        function EnterAFEditOK(Cve, Codigo) {
-                            $get(H1.id).value = Cve;
+            $get(H1.id).value = Cve;
-                            $get(H2.id).value = Codigo;
+            $get(H2.id).value = Codigo;
-                            $get(T.id).value = (Codigo == -1) ? "" : Codigo;
+            $get(T.id).value = (Codigo == -1) ? "" : Codigo;
 
-                        }
+        }
 
-                        //Suma Totales
+        //Suma Totales
-                        function FnSuma() {
+        function FnSuma() {
-                            $get('TxtSubTotal2').value = FormatoNumero(ToDouble($get('TxtSubTotal').value) - ToDouble($get('LblDescuentos').innerHTML) - ToDouble($get('LblAmortizacion').innerHTML), 2);
+            $get('TxtSubTotal2').value = FormatoNumero(ToDouble($get('TxtSubTotal').value) - ToDouble($get('LblDescuentos').innerHTML) - ToDouble($get('LblAmortizacion').innerHTML), 2);
-                            var totalVenta = ToDouble($get('TxtSubTotal2').value) + ToDouble($get('TxtIVA').value) + ToDouble($get('TxtIEPS') ? ToDouble($get('TxtIEPS').value) : 0) - ToDouble($get('TxtRetIVA').value) - ToDouble($get('TxtRetISR').value);
+            var totalVenta = ToDouble($get('TxtSubTotal2').value) + ToDouble($get('TxtIVA').value) + ToDouble($get('TxtIEPS') ? ToDouble($get('TxtIEPS').value) : 0) - ToDouble($get('TxtRetIVA').value) - ToDouble($get('TxtRetISR').value);
-                            debugger;
+            debugger;
-                            $("#<%=GvImpuestosLocales2.ClientID%> input[type='text']").each(function () {
+            $("#<%=GvImpuestosLocales2.ClientID%> input[type='text']").each(function () {
 
                 if ($(this).attr("class") == '5') // cuando es traslado de impuesto local, se suma
                     totalVenta += ToDouble($(this).val().toString());
@@ -7325,60 +7511,60 @@
 
             var Total = ToDouble($get('TxtSubTotal').value);
             let TipoAnticipo = $('#<%=  DdlTipoAmortizacionAnticipo.ClientID  %>').val();
-            let importeTxt = parseFloat(txt.value.replace(/,/g, ''));
+                            let importeTxt = parseFloat(txt.value.replace(/,/g, ''));
 
-            if (isNaN(importeTxt)) {
+                            if (isNaN(importeTxt)) {
-                importeTxt = 0;
+                                importeTxt = 0;
-            } else {
+                            } else {
-                if (importeTxt <= 0) {
+                                if (importeTxt <= 0) {
-                    importeTxt = 0;
+                                    importeTxt = 0;
-                    chk.checked = false;
+                                    chk.checked = false;
-                    return;
+                                    return;
-                }
+                                }
-            }
+                            }
 
-            saldo = (importeTxt > saldo) ? saldo : importeTxt;
+                            saldo = (importeTxt > saldo) ? saldo : importeTxt;
 
 
 
-            var SaldoCompra = (Total - FnSumaValoresAnt() + ToDouble(txt.value)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnVentaSaldo').value).toFixed(2));
+                            var SaldoCompra = (Total - FnSumaValoresAnt() + ToDouble(txt.value)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnVentaSaldo').value).toFixed(2));
-            if (SaldoCompra < 0) txt.value = SaldoCompra - txt.value;
+                            if (SaldoCompra < 0) txt.value = SaldoCompra - txt.value;
-            //minimo entre saldocompra y el saldoanticipo
+                            //minimo entre saldocompra y el saldoanticipo
-            if (SaldoCompra < saldo) saldo = SaldoCompra;
+                            if (SaldoCompra < saldo) saldo = SaldoCompra;
 
-            if (ToDouble(txt.value) > 0) {
+                            if (ToDouble(txt.value) > 0) {
-                chk.checked = true;
+                                chk.checked = true;
-            } else {
+                            } else {
-                chk.checked = false;
+                                chk.checked = false;
-            }
+                            }
 
-            if (ToDouble(txt.value) > saldo) {
+                            if (ToDouble(txt.value) > saldo) {
-                txt.value = saldo;
+                                txt.value = saldo;
-                alert("El Importe no debe de exceder a el saldo");
+                                alert("El Importe no debe de exceder a el saldo");
-            }
+                            }
 
-            $("#LblTotalAnticipos").text(FormatoNumero(FnSumaValoresAnt(), 2));
+                            $("#LblTotalAnticipos").text(FormatoNumero(FnSumaValoresAnt(), 2));
 
 
-            $get('HdnVentaSaldo').value = Total - FnSumaValoresAnt();
+                            $get('HdnVentaSaldo').value = Total - FnSumaValoresAnt();
-        }
+                        }
 
-        function FnSumaValoresAnt() {
+                        function FnSumaValoresAnt() {
-            debugger;
+                            debugger;
-            var totalPoints = 0;
+                            var totalPoints = 0;
-            var t = '';
+                            var t = '';
 
 
-            $('input[name*=TxtAnticipo]').each(function () {
+                            $('input[name*=TxtAnticipo]').each(function () {
-                totalPoints += ToDouble($(this).val());
+                                totalPoints += ToDouble($(this).val());
-            });
+                            });
 
 
-            return Math.round(totalPoints * 100) / 100;
+                            return Math.round(totalPoints * 100) / 100;
-        }
+                        }
 
-        function LimpiaModal() {
+                        function LimpiaModal() {
-            $('#<%= TxtDireccion.ClientID  %>').val('');
+                            $('#<%= TxtDireccion.ClientID  %>').val('');
             $('#<%= TxtColonia.ClientID  %>').val('');
             $('#<%= TxtCiudad.ClientID  %>').val('');
             $('#<%= TxtEstado.ClientID  %>').val('');

Ventas/Ventas.aspx.vb

@@ -1710,6 +1710,31 @@ Partial Class Ventas
 
 #End Region
 
+#Region "AuxiliarConta"
+    Property CvePrePolizaNegativa As Integer
+        Get
+            If ViewState("CvePrePolizaNegativa") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CvePrePolizaNegativa").ToString.ToEntero
+            End If
+
+        End Get
+        Set(value As Integer)
+            ViewState("CvePrePolizaNegativa") = value
+        End Set
+    End Property
+
+    Private Property DTDatos As DataTable
+        Get
+            Return CType(ViewState("DTDatos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTDatos") = value
+        End Set
+    End Property
+#End Region
+
 #Region " A C U M U L A D O R E S"
 
     Private Property ClienteEsDistribuidor As Boolean
@@ -3642,7 +3667,8 @@ Partial Class Ventas
                                 HLPagar.NavigateUrl = $"/Bancos/PopIEVentas.aspx?CveVenta={CveVenta}&TB_iframe=true&height=500&width=675"
                                 HlCuentaTerminal.Visible = True
                             End If
-
+                            CargarSaldoAuxiliar(CveCliente)
+                            TabAuxiliarConta.Visible = True
                             Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
                             If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 
                                 'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175)
@@ -26096,4 +26122,123 @@ Partial Class Ventas
         End If
         ObjVentas.Dispose()
     End Sub
+
+#Region "Auxiliar"
+    Private Sub CargarSaldoAuxiliar(CveCliente As Integer)
+
+        CargaAuxiliarClienteCxC(CveCliente, CveVenta)
+
+    End Sub
+
+    Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer)
+        Dim ObjMovtos As New ClsMovimientos()
+        If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveVenta) Then
+            DtDatos = ObjMovtos.DtResultados
+            GVAuxiliar.DataSource = ObjMovtos.DtResultados
+        Else
+            GVAuxiliar.DataSource = Nothing
+        End If
+        ObjMovtos.Dispose()
+        GVAuxiliar.DataBind()
+    End Sub
+
+    Protected Sub BtnCancelarAux_Click(sender As Object, e As EventArgs)
+        AgregaPolizaNegativo(CvePrePolizaNegativa)
+    End Sub
+
+    Private Sub AgregaPolizaNegativo(CvePrePoliza As Integer)
+
+        Dim ObjContabilidad As New ClsContabilidad
+        Dim TieneError As Boolean = False
+        ObjContabilidad.IniciaTransacSQL()
+
+        Dim CvePrePolizaNueva As Integer = ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate)
+
+        If Not CvePrePolizaNueva > 0 Then
+
+
+            TieneError = True
+        End If
+
+        If Not TieneError Then
+
+            ObjContabilidad.Commit()
+            Dim Str As New StringBuilder
+            Str.Append("Se agrego la póliza de cancelación correctamente.<br/>")
+            RegistraScript(" $('#DivCancelar').modal('hide'); ")
+            If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                If ObjContabilidad.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+                    Str.AppendFormat("<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", ObjContabilidad.ContaIdPoliza)
+
+                End If
+            End If
+            Alert(Str.ToString)
+        Else
+            ObjContabilidad.RollBack()
+
+        End If
+
+
+
+        ObjContabilidad.Dispose()
+        CargarSaldoAuxiliar(CveCliente)
+
+    End Sub
+
+    Protected Sub GVAuxiliar_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAuxiliar.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.RowIndex = 0 Then
+                e.Row.BackColor = Drawing.Color.LightGray
+                e.Row.FCLiteral("LtlFechaMovto").Text = "Totales:&nbsp;"
+                e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
+                e.Row.Cells(0).ColumnSpan = 2
+                e.Row.Cells(1).Visible = False
+                e.Row.Cells(4).ColumnSpan = 3
+                e.Row.Cells(5).Visible = False
+                e.Row.Cells(6).Visible = False
+                e.Row.Cells(7).Visible = False
+                e.Row.Cells(8).Visible = False
+            ElseIf e.Row.RowIndex = 1 Then
+                e.Row.Cells(0).Width = Unit.Pixel(95)
+                e.Row.Cells(1).Width = Unit.Pixel(180)
+                e.Row.Cells(2).Width = Unit.Pixel(80)
+                e.Row.Cells(3).Width = Unit.Pixel(80)
+                e.Row.Cells(4).Width = Unit.Pixel(83)
+                e.Row.Cells(5).Width = Unit.Pixel(93)
+                e.Row.Cells(6).Width = Unit.Pixel(85)
+                e.Row.Cells(7).Width = Unit.Pixel(95)
+                e.Row.Cells(8).Width = Unit.Pixel(70)
+            End If
+
+            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Right
+            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right
+            e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left
+
+            If e.Row.FCLiteral("LtlContabilizado").Text = "Si" Then
+                Dim Liga As String = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">", e.Row.DBCampo("IdPoliza"))
+                e.Row.FCLiteral("LtlPoliza").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("Poliza"))
+            End If
+
+            If e.Row.DBCampo("CveConceptoContable").ToEntero.Contiene(2) AndAlso e.Row.DBCampo("CvePersonal").ToEntero > 0 Then
+                Dim Liga As String = String.Format("<a class=""Texto"" href=""/RH/Personal.aspx?CvePersonal={0}"">", e.Row.DBCampo("CvePersonal"))
+                e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable"))
+            End If
+
+            If e.Row.DBCampo("TipoReferencia").ToEntero = 1 Then
+                e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Bancos/IE.aspx?CveIE={e.Row.DBCampo("CveReferencia").ToEntero}"
+
+            ElseIf e.Row.DBCampo("TipoReferencia").ToEntero = 2 Then
+                e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveReferencia").ToEntero}"
+            End If
+
+            If e.Row.DBCampo("CveConceptoContable").ToEntero.Contiene(275) AndAlso e.Row.DBCampo("CveVenta").ToEntero > 0 Then
+                e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveVenta").ToEntero}"
+
+            End If
+        End If
+    End Sub
+
+#End Region
 End Class

packages.config

@@ -17,9 +17,14 @@
   <package id="Microsoft.Bcl" version="1.1.9" targetFramework="net40" />
   <package id="Microsoft.Bcl.Async" version="1.0.168" targetFramework="net40" />
   <package id="Microsoft.Bcl.Build" version="1.0.14" targetFramework="net40" />
-  <package id="Microsoft.Owin" version="3.0.1" targetFramework="net45" />
+  <package id="Microsoft.IdentityModel.JsonWebTokens" version="5.3.0" targetFramework="net45" />
+  <package id="Microsoft.IdentityModel.Logging" version="5.3.0" targetFramework="net45" />
+  <package id="Microsoft.IdentityModel.Tokens" version="5.3.0" targetFramework="net45" />
+  <package id="Microsoft.Owin" version="4.1.0" targetFramework="net45" />
   <package id="Microsoft.Owin.Host.SystemWeb" version="3.0.1" targetFramework="net45" />
-  <package id="Microsoft.Owin.Security" version="3.0.1" targetFramework="net45" />
+  <package id="Microsoft.Owin.Security" version="4.1.0" targetFramework="net45" />
+  <package id="Microsoft.Owin.Security.Jwt" version="4.1.0" targetFramework="net45" />
+  <package id="Microsoft.Owin.Security.OAuth" version="4.1.0" targetFramework="net45" />
   <package id="Microsoft.ReportingServices.ReportViewerControl.WebForms" version="150.1358.0" targetFramework="net45" />
   <package id="Microsoft.ReportViewer.2015.Runtime" version="12.0.2.2402" targetFramework="net4" />
   <package id="Microsoft.ReportViewer.Common.v12" version="12.0.0.1" targetFramework="net45" />
@@ -28,8 +33,10 @@
   <package id="Microsoft.Web.Infrastructure" version="1.0.0.0" targetFramework="net4" />
   <package id="Microsoft.Web.Xdt" version="1.0.0" targetFramework="net4" />
   <package id="NC-OS-SessionStateProvider" version="4.4.0.0" targetFramework="net40" />
+  <package id="Newtonsoft.Json" version="12.0.3" targetFramework="net45" />
   <package id="NuGet.Core" version="2.8.0" targetFramework="net4" />
   <package id="Owin" version="1.0" targetFramework="net45" />
   <package id="StackExchange.Redis.StrongName" version="1.0.488" targetFramework="net40" />
+  <package id="System.IdentityModel.Tokens.Jwt" version="5.3.0" targetFramework="net45" />
   <package id="WebGrease" version="1.6.0" targetFramework="net40" />
 </packages>

vwd.webinfo

@@ -80,10 +80,6 @@
     
   
     
-  
-    
-  
-