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

App_Code/ClsGPS.vb

@@ -2202,6 +2202,21 @@ Public Class ClsGPS
         End Try
         Return Retorno
     End Function
+    Public Function GetRutasPuntosRecoleecion(CveRuta As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_GPS_RutasPuntosRecoleecionGet")
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los puntos de recoleecion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
     Public Function UpdateRuta(CveRuta As Integer, Ruta As String, CveCliente As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_GPS_RutasUpdate")

App_Code/ClsPaginas.vb

@@ -5511,6 +5511,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Ventas/RepVentasMensuales.aspx".ToUpper(), 720)
             PaginaDict.Add("/Ventas/RepVentasMensualesDetalle.aspx".ToUpper(), 720)
             PaginaDict.Add("/Ventas/MetasVendedores.aspx".ToUpper(), 722)
+            PaginaDict.Add("/Ventas/MetasVendedoresDetalle.aspx".ToUpper(), 722)
             PaginaDict.Add("/Ventas/CatMetasVendedores.aspx".ToUpper(), 723)
             PaginaDict.Add("/Ventas/RepAuxiliarFacturas.aspx".ToUpper(), 567)
             PaginaDict.Add("/Ventas/CatAutorizacionLimites.aspx".ToUpper(), 781)

App_Code/ClsVentas.vb

@@ -3158,8 +3158,8 @@ Public Class ClsVentas
         Dim retorno As Boolean = False
         Try
 
-            Dim objServicio As Cancelacion.CancelacionSoapClient = New Cancelacion.CancelacionSoapClient()
+            Dim objServicio As Cancelacion2022.CancelacionSoapClient = New Cancelacion2022.CancelacionSoapClient()
-            Dim resp As Cancelacion.StructCancel = objServicio.ObtienePendientes(RFC, "UserTest", "1234567890")
+            Dim resp As Cancelacion2022.StructCancel = objServicio.ObtienePendientes(RFC, "UserTest", "1234567890")
             If resp.Estado = 0 Then
                 Dim XmlPendientes As String = System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(resp.Xml))
                 Dim theReader As IO.StringReader = New IO.StringReader(XmlPendientes)
@@ -4953,6 +4953,34 @@ Public Class ClsVentas
         Return retorno
     End Function
 
+
+    Public Function GetRepMetasVendedoresDetalle(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer,
+                                          CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer, CveCliente As Integer, EsDistribuidor As Integer,
+                                          Optional GrupoSuperior As Integer = 0) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_MetasVendedoresDetalle", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaMesActual", SqlDbType.DateTime).Value = FechaMesActual
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+            .Add("@GrupoSuperior", SqlDbType.Int).Value = GrupoSuperior
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de metas por vendedores", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+
     Public Function GetRepTopClientesVentas(CveEmpresa As Integer, Mes As Integer, Año As Integer, Optional Top As Integer = 20, Optional CveSubProyecto As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_Top20ClientesMasVendidos", CommandType.StoredProcedure)

App_Code/Modelos.vb

@@ -3826,46 +3826,9 @@ Namespace Modelos
                             OcurrioError = True
                         End If
 
-                        ' COMIENZA: GARANTIAS
+                        ' GENERA EL MOVIMIENTO DE GARANTIA SI TIENE
-                        Dim CveAlmacenGarantia As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={factura.CveSubProyecto}").ToEntero()
+                        If Not GenerarMovimientoGarantia(14, "Entrada Garantía", Now, factura, ObjAcum, ObjInventario, ObjConta) Then
-                        Dim DtGarantias As DataTable = Nothing
+                            OcurrioError = True
-
-                        If ObjAcum.GetGarantiasDetalle(factura.CveVenta) Then
-                            DtGarantias = ObjAcum.DtResultados.Copy()
-                        End If
-
-                        If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 AndAlso CveAlmacenGarantia > 0 Then
-                            Dim TotalGarantia As Decimal = 0
-                            Dim CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 2, 1, factura.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, -1, -1, Observaciones:="", Guia:="", Modulo:="Modelos/SDGA")
-                            Dim FolioGarantia = ObjInventario.Folio
-
-                            For Each RowGarantia As DataRow In DtGarantias.Rows
-                                Dim CvePS = RowGarantia("CvePS").ToString().ToEntero()
-                                Dim CveTamaño As Integer = RowGarantia("CveTamaño").ToString().ToEntero()
-                                Dim CveUM As Integer = RowGarantia("CveUnidadMedida").ToString().ToEntero()
-                                Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
-                                Dim Serie As String = RowGarantia("Comprobante").ToString
-
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=RowGarantia("CveVentaDetalle").ToString.ToEntero) Then
-                                    OcurrioError = True
-                                    Exit For
-                                End If
-                                TotalGarantia += (RowGarantia("Cantidad").ToString().ToDecimal() * PU)
-                            Next
-
-                            Dim CvePrePolizaTraspaso As Integer = ObjConta.AddPrePolizas("EA/Gar", 53, 0, 0, 1, factura.Fecha, "Entrada Garantía", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                            If CvePrePolizaTraspaso > 0 Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, TotalGarantia, "MOVIMIENTO DE GARANTIA", 68, "MOVIMIENTO DE GARANTIA", factura.Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
-                                    OcurrioError = True
-                                End If
-
-                                If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, TotalGarantia, "MOVIMIENTO DE GARANTIA", 331, "MOVIMIENTO DE GARANTIA", factura.Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
-                                    OcurrioError = True
-                                End If
-                            Else
-                                OcurrioError = True
-                            End If
-
                         End If
 
                     Else
@@ -3902,6 +3865,75 @@ Namespace Modelos
 
             Return OcurrioError
         End Function
+
+        Private Function GenerarMovimientoGarantia(CveConceptoMovimiento As Integer, ConceptoPoliza As String, FechaMovimiento As DateTime, factura As Factura, ByRef ObjAcum As ClsAcumuladores, ByRef ObjInventario As ClsInventarios, ObjConta As ClsContabilidad, Optional Modulo As String = "Modelos/SDGA") As Boolean
+            Dim OcurrioError As Boolean = False
+            Try
+                Dim CveAlmacenGarantia As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={factura.CveSubProyecto}").ToEntero()
+                Dim DtGarantias As DataTable = Nothing
+
+                If ObjAcum.GetGarantiasDetalle(factura.CveVenta) Then
+                    DtGarantias = ObjAcum.DtResultados.Copy()
+                Else
+                    OcurrioError = True
+                End If
+
+                'SI TIENE UNA GARANTIA, GENERAR EL MOVIMIENTO DE ALMACEN
+                If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 AndAlso CveAlmacenGarantia > 0 Then
+                    Dim TotalGarantia As Decimal = 0
+                    Dim CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, CveConceptoMovimiento, 1, FechaMovimiento, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, -1, -1, Observaciones:="", Guia:="", Modulo:=Modulo)
+                    Dim FolioGarantia = ObjInventario.Folio
+
+                    For Each RowGarantia As DataRow In DtGarantias.Rows
+                        Dim CvePS = RowGarantia("CvePS").ToString().ToEntero()
+                        Dim CveTamaño As Integer = RowGarantia("CveTamaño").ToString().ToEntero()
+                        Dim CveUM As Integer = RowGarantia("CveUnidadMedida").ToString().ToEntero()
+                        Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
+                        Dim Serie As String = RowGarantia("Comprobante").ToString
+
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=RowGarantia("CveVentaDetalle").ToString.ToEntero) Then
+                            OcurrioError = True
+                            Exit For
+                        End If
+                    Next
+
+                    If Not OcurrioError Then
+                        If ObjInventario.GetMovimientosDetalle(CveMovimientoGarantia, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                            TotalGarantia = ObjInventario.DtResultados.SUMD("Total").RoundSQL
+                        Else
+                            OcurrioError = True
+                        End If
+                    End If
+
+                    If Not OcurrioError Then
+                        Dim CvePrePolizaGarantia As Integer = ObjConta.AddPrePolizas("EA/Gar", 53, 0, 0, 1, FechaMovimiento, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                        If CvePrePolizaGarantia > 0 Then
+                            Dim TipoMovto As Boolean = False
+                            If CveConceptoMovimiento = 15 Then
+                                TipoMovto = True
+                            End If
+
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaGarantia, TipoMovto, TotalGarantia, "MOVIMIENTO DE GARANTIA", 68, "MOVIMIENTO DE GARANTIA", factura.Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
+                                OcurrioError = True
+                            End If
+
+                            If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaGarantia, Not TipoMovto, TotalGarantia, "MOVIMIENTO DE GARANTIA", 331, "MOVIMIENTO DE GARANTIA", factura.Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
+                                OcurrioError = True
+                            End If
+                        Else
+                            OcurrioError = True
+                        End If
+                    End If
+
+
+                End If
+            Catch ex As Exception
+                OcurrioError = True
+                OnError("Ocurrió un error al generar el movimiento de garantía", ex)
+            End Try
+
+            Return Not OcurrioError
+        End Function
         Private Function CuadrarFacturaMovimientos(MovDetalle As DataTable) As DataTable
             Dim MovDTCuadrados As New DataTable
             MovDTCuadrados = MovDetalle.Clone
@@ -5540,6 +5572,21 @@ Namespace Modelos
 
                                                 End If
 
+                                                'CANCELAR MOVIMIENTOS DE GARANTIA SI TIENE
+                                                If Not ErrorCancelar AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                                                    If Not GenerarMovimientoGarantia(15, "Salida Garantía", Now, ObjRemision, ObjAcum, ObjInventario, ObjConta) Then
+                                                        ErrorCancelar = True
+                                                    End If
+                                                End If
+
+                                                'CANCELA LOS FOLIOS DE GARANTIA
+                                                If Not ErrorCancelar Then
+                                                    If Not ObjAcum.UpdateGarantiaCancelacion(ObjRemision.CveVenta) Then
+                                                        ErrorCancelar = True
+                                                        MensajeError = "Ocurrió un error al actualizar la garantía"
+                                                    End If
+                                                End If
+
                                                 If DtDevRemision IsNot Nothing Then
                                                     DtDevRemision.Dispose()
                                                 End If
@@ -5629,6 +5676,13 @@ Namespace Modelos
                                         End If
                                     End If
 
+                                    'CANCELAR MOVIMIENTOS DE GARANTIA SI TIENE
+                                    If Not ErrorCancelar AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                                        If Not GenerarMovimientoGarantia(15, "Salida Garantía", Now, ObjFactura, ObjAcum, ObjInventario, ObjConta) Then
+                                            ErrorCancelar = True
+                                        End If
+                                    End If
+
                                 End If
 
                                 'VERIFICAR MOVIMIENTOS DE APARTADOS
@@ -6617,6 +6671,7 @@ Namespace Modelos
         Public Property SubProyecto As Modelos.SubProyectoModel
 
         Public Property DtDetalle As Data.DataTable
+        Public Property DtMercancias As Data.DataTable
         Public Property DtDetalleAC As Data.DataTable
         Public Property DtAjustes As Data.DataTable
         Public Property DtRecepcionUsados As Data.DataTable
@@ -7166,6 +7221,7 @@ Namespace Modelos
                     If Not DtRemisiones Is Nothing Then DtRemisiones.Dispose() : DtRemisiones = Nothing
                     If Not DtRemisionesPS Is Nothing Then DtRemisionesPS.Dispose() : DtRemisionesPS = Nothing
                     If Not DtVentasNC Is Nothing Then DtVentasNC.Dispose() : DtVentasNC = Nothing
+                    If Not DtMercancias Is Nothing Then DtMercancias.Dispose() : DtMercancias = Nothing
                 End If
             End If
             Me.disposedValue = True

Ashx/E141.ashx

@@ -2353,7 +2353,7 @@ Public Class E141 : Implements IHttpHandler
 #Region "D E S C A R G A  - P  D F"
 
     Private Function DescargarFactura(FilePDF As String) As Byte()
-        Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?TipoDocto=Ing&File={1}&TipoArchivo=PDF", "http://localhost/", FilePDF))
+        Dim Url = New Uri(String.Format("{0}://{1}:{2}/Compras/PopUpVerFactura.aspx?TipoDocto=Ing&File={3}&TipoArchivo=PDF", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, FilePDF))
         Dim File As Byte() = Nothing
         Try
             Using httpClient = New HttpClient()

Bancos/DepositosCaja.aspx

@@ -175,8 +175,6 @@
                 <div class="col-md-2" runat="server" style="text-align: left;">                  
                      
                          <asp:TextBox ID="TxtObservaciones" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500"></asp:TextBox>
-                         <asp:RequiredFieldValidator ID="RfvTxtObservaciones" runat="server" ControlToValidate="TxtObservaciones" Display="None" ErrorMessage="El campo <b>''Observaciones''</b> es requerido por la aplicación." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                         <ajax:ValidatorCalloutExtender ID="VceRfvTxtObservaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtObservaciones" Width="350px"></ajax:ValidatorCalloutExtender>                    
                          
                 </div>
    

Bancos/DepositosCaja.aspx.vb

@@ -38,10 +38,10 @@ Partial Class Bancos_DepositosCaja
     End Sub
 
     Private Sub CargaCuentas()
-        DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
+        DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
         DdlCuentaDeposito.DataBind()
 
-        DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
+        DdlCajaChica.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
         DdlCajaChica.DataBind()
 
         DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)

Bancos/RepCortes.aspx

@@ -231,7 +231,7 @@
                             <asp:Literal ID="LtlTotalIngreso" runat="server" Text='<%# Eval("TotalIngresos", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center">
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                     <HeaderTemplate>
                             <asp:Label Text="Devoluciones" runat="server" CausesValidation="false"> </asp:Label>
                             <asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
@@ -240,7 +240,16 @@
                             <asp:Literal ID="LtlDevoluciones" runat="server" Text='<%# Eval("Devoluciones", "{0:#,###.##}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center">
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                        <HeaderTemplate>
+                            <asp:Label Text="Importe Inicial" runat="server" CausesValidation="false"> </asp:Label>
+                            <asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlImporteInicial" runat="server" Text='<%# Eval("ImporteInicial", "{0:N2}") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                         <HeaderTemplate>
                             <asp:Label Text="Total Caja" runat="server" CausesValidation="false"> </asp:Label>
                             <asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>

Bancos/RepCortes.aspx.vb

@@ -11,7 +11,14 @@ Partial Class Bancos_RepCortes
     Private Shared missing As Object = System.Reflection.Missing.Value
 
 #Region "PROPIEDADES"
-
+    Private Property DtCortes As DataTable
+        Get
+            Return CType(ViewState("DtCortes"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtCortes") = value
+        End Set
+    End Property
     Private Property DtCortesVentasResumen As DataTable
         Get
             Return CType(ViewState("DtCortesVentasResumen"), DataTable)
@@ -68,15 +75,19 @@ Partial Class Bancos_RepCortes
 
 #Region " C A R G A - D A T O S "
     Public Sub CargaDatos()
-        Dim ObjPuntoVenta As New ClsPuntoVenta
+
         Dim FechaI As Date = If(txtFechaVI.Text <> "", txtFechaVI.Text.ToDate, MinFecha)
         Dim FechaF As Date = If(txtFechaVF.Text <> "", txtFechaVF.Text.ToDate, MaxFecha)
+
+        Dim ObjPuntoVenta As New ClsPuntoVenta
         If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF, DdlSubProyectos.SelectedValue.ToEntero) Then
-            GvDatos.DataSource = ObjPuntoVenta.DtResultados
+            DtCortes = ObjPuntoVenta.DtResultados.Copy()
-            GvDatos.DataBind()
-            UPDatos.Update()
         End If
         ObjPuntoVenta.Dispose()
+
+        GvDatos.DataSource = DtCortes
+        GvDatos.DataBind()
+        UPDatos.Update()
     End Sub
 #End Region
 
@@ -85,6 +96,9 @@ Partial Class Bancos_RepCortes
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CveCorte").ToString = "" Then
                 e.Row.CssClass = "SubTotales2"
+                If DtCortes IsNot Nothing Then
+                    e.Row.FCLiteral("LtlImporteInicial").Text = DtCortes.SUMD("ImporteInicial").FormatoNumero(2)
+                End If
             End If
         End If
     End Sub

Bancos/RepCxCCliente.aspx

@@ -156,7 +156,7 @@
 
             <asp:GridView ID="GvCxC" ClientIDMode="Static" runat="server" AutoGenerateColumns="False" AlternatingRowStyle-BackColor="" Width="100%" EmptyDataText="No se encontraron Cuentas X Cobrar Pendientes" CssClass="table table-striped table-hover Widthall" GridLines="None">
                 <Columns>
-                    <asp:TemplateField ItemStyle-Width="30%" HeaderText="Cliente">
+                    <asp:TemplateField HeaderText="Cliente">
                         <ItemTemplate>
                             <asp:HyperLink ID="Hpl" runat="server" Text='<%#String.Format("{0}{1}{2}", Eval("NombreComercial"), If(Eval("SucursalCliente").ToString.Length > 0, " - ", " "), Eval("SucursalCliente")) %>' NavigateUrl='<%# String.Format("/Ventas/Clientes.aspx?CveCliente={0}", Eval("CveCliente"))%>'>
                             </asp:HyperLink>
@@ -164,8 +164,8 @@
                     </asp:TemplateField>
                     <asp:BoundField HeaderText="Sucursal" DataField="SubProyecto" ItemStyle-Width="10%" Visible="false" />
                     <asp:BoundField HeaderText="# Fact" DataField="NumFacturas" ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%" />
-                    <asp:BoundField HeaderText="Último Vencimiento" DataField="UltimoVencimiento" ItemStyle-HorizontalAlign="center" ItemStyle-Width="10%" />
+                    <asp:BoundField HeaderText="Último Venc." DataField="UltimoVencimiento" ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%" />
-                    <asp:TemplateField HeaderText="Original" ItemStyle-HorizontalAlign="Right">
+                    <asp:TemplateField HeaderText="Original" ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="15%">
                         <ItemTemplate>
                             <asp:Literal ID="LtlO" runat="server" Text='<%# Eval("Original","{0:C}")  %>'></asp:Literal>
                             <asp:Literal ID="LtlA" runat="server" Text='<%# Eval("Abreviatura","{0:C}")  %>'></asp:Literal>

Compras/Compras.aspx.vb

@@ -15074,7 +15074,10 @@ Partial Class Compras_Compras
                                                                             dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
                                                                             If(cvemovimientoentrada > 0, cvemovimientoentrada, dr("CveMovimientoAlmacen").ToString.ToEntero),
                                                                             dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
-                                                                            ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
+                                                                            ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1,
+                                                                            CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
+                                                                            PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
+                                                                            CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
                                     ErrorCancelar = True
                                     Exit For
                                 End If

Contabilidad/PopUpAuxiliar.aspx.vb

@@ -268,7 +268,7 @@ Partial Class PopUpAuxiliar
         End If
 
         If Not TieneError Then
-            If IdPoliza > 0 Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso IdPoliza > 0 Then
                 If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then
                     ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
                     ObjContPaq.IniciaTransacSQL()
@@ -410,8 +410,9 @@ Partial Class PopUpAuxiliar
             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)
+                    If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-
+                        Str.AppendFormat("<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", ObjContabilidad.ContaIdPoliza)
+                    End If
                 End If
             End If
             Alert(Str.ToString)
@@ -420,8 +421,6 @@ Partial Class PopUpAuxiliar
 
         End If
 
-
-
         ObjContabilidad.Dispose()
         CargaDatos()
 

GPS/EmbarqueManifiesto.rdlc

@@ -37,6 +37,14 @@
           <DataField>Envase</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="ImpManifiesto">
+          <DataField>ImpManifiesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="TipoTarima">
+          <DataField>TipoTarima</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="Cultivo">
           <DataField>Cultivo</DataField>
           <rd:TypeName>System.String</rd:TypeName>
@@ -68,16 +76,16 @@
             <TablixBody>
               <TablixColumns>
                 <TablixColumn>
-                  <Width>2.45401cm</Width>
+                  <Width>2.59615cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.30818cm</Width>
+                  <Width>2.45032cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.99068cm</Width>
+                  <Width>2.13282cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.2288cm</Width>
+                  <Width>2.37094cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -505,9 +513,9 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <Top>0.3175cm</Top>
-            <Left>10.3553cm</Left>
+            <Left>9.78675cm</Left>
             <Height>3cm</Height>
-            <Width>8.98167cm</Width>
+            <Width>9.55023cm</Width>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -1146,7 +1154,7 @@
                 <TablixMember />
               </TablixMembers>
             </TablixRowHierarchy>
-            <Top>18.67696cm</Top>
+            <Top>19.44425cm</Top>
             <Left>3.27925cm</Left>
             <Height>1.58833cm</Height>
             <Width>14.27209cm</Width>
@@ -4568,7 +4576,7 @@
                                 </TextRun>
                               </TextRuns>
                               <Style>
-                                <TextAlign>Right</TextAlign>
+                                <TextAlign>Left</TextAlign>
                               </Style>
                             </Paragraph>
                           </Paragraphs>
@@ -6845,13 +6853,16 @@
                   <Width>1.68042cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>7.32708cm</Width>
+                  <Width>5.85895cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>3.69064cm</Width>
+                  <Width>3.10853cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>4.65604cm</Width>
+                  <Width>3.16148cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>3.5448cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -7011,6 +7022,57 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox12">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Tarima</Value>
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox12</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </RightBorder>
+                            <BackgroundColor>Silver</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox1">
@@ -7214,6 +7276,38 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="TipoTarima">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=IIf(Fields!ImpManifiesto.Value.ToString() ="1",Fields!TipoTarima.Value.ToString() ,"")</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>TipoTarima</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Etiqueta">
@@ -7287,6 +7381,11 @@
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
+                <TablixMember>
+                  <Visibility>
+                    <Hidden>=(MAX(Fields!ImpManifiesto.Value.ToString() )&lt;&gt;"1")</Hidden>
+                  </Visibility>
+                </TablixMember>
                 <TablixMember />
                 <TablixMember />
               </TablixMembers>
@@ -7314,10 +7413,10 @@
             </Style>
           </Tablix>
         </ReportItems>
-        <Height>8.07349in</Height>
+        <Height>8.28054in</Height>
         <Style />
       </Body>
-      <Width>7.64435in</Width>
+      <Width>7.67548in</Width>
       <Page>
         <PageHeight>29.7cm</PageHeight>
         <PageWidth>21cm</PageWidth>

Inicio.aspx.vb

@@ -18,8 +18,8 @@ Partial Class Inicio
         Dim retorno As Boolean = False
         Try
 
-            Dim objServicio As Cancelacion.CancelacionSoapClient = New Cancelacion.CancelacionSoapClient()
+            Dim objServicio As New Cancelacion2022.CancelacionSoapClient()
-            Dim resp As Cancelacion.StructCancel = objServicio.ObtienePendientes(RFC, "UserTest", "1234567890")
+            Dim resp As Cancelacion2022.StructCancel = objServicio.ObtienePendientes(RFC, "UserTest", "1234567890")
             If resp.Estado = 0 Then
                 Dim XmlPendientes As String = System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(resp.Xml))
                 Dim theReader As IO.StringReader = New IO.StringReader(XmlPendientes)

RH/ActualizacionMasiva.aspx

@@ -85,9 +85,13 @@
                                     <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
+                            <asp:Label runat="server" CssClass="col-md-1">Cliente: </asp:Label>
+                            <div class="col-md-2">
+                                    <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesfilter" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 140px"></ADS:Dropdownlost>
+                            </div>
                         </div>
                         <ul class="list-inline">
-                            <%--<li>Cliente:
+                            <%--<li>
                                 <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>
@@ -176,8 +180,8 @@
                             <asp:TemplateField>
                                 <HeaderTemplate>Turno</HeaderTemplate>
                                 <ItemTemplate>
-                                    <asp:Literal runat="server" Text='<%#   Eval("Turno") %>'></asp:Literal>
+                                    <%--<asp:Literal runat="server" Text='<%#   Eval("Turno") %>'></asp:Literal>--%>
-                                    <%--<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>--%>
+                                    <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>

RH/ActualizacionMasiva.aspx.vb

@@ -88,9 +88,16 @@ Partial Class RH_ActualizacionMasiva
     End Sub
 
     Private Sub CargaTurnos()
-        ViewState("DTTurno") = GlobalDTTurno.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+        Dim dt = GlobalDTTurno.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+        DdlTurno.DataSource = dt
         DdlTurno.DataBind()
+        Dim row = dt.NewRow
+        row("CveTurno") = "-1"
+        row("Turno") = "Sin Asignar"
+        dt.Rows.InsertAt(row, 0)
+        dt.AcceptChanges()
+
+        ViewState("DTTurno") = dt
     End Sub
 
     Private Sub CargaSupervisores()
@@ -180,6 +187,10 @@ Partial Class RH_ActualizacionMasiva
                 e.Row.FCDropDownList("DdlSupervisor").DataBind()
                 e.Row.FCDropDownList("DdlSupervisor").Items.Insert(0, New ListItem("Sin Supervisor Asignado", "-1"))
                 e.Row.FCDropDownList("DdlSupervisor").SelectedValueExist(e.Row.DBCampo("CveSupervisor").ToString())
+                e.Row.FCDropDownList("DdlTurno").DataSource = ViewState("DTTurno")
+                e.Row.FCDropDownList("DdlTurno").DataBind()
+                e.Row.FCDropDownList("DdlTurno").SelectedValueExist("-1")
+                e.Row.FCDropDownList("DdlTurno").SelectedValueExist(e.Row.DBCampo("CveTurno").ToString())
 
                 e.Row.FCDropDownLost("DdlClientes").SelectedValue = e.Row.DBCampo("CveCliente")
                 e.Row.FCDropDownLost("DdlClientes").SelectedText = e.Row.DBCampo("Cliente")

RH/Asistencias.aspx

@@ -10,6 +10,9 @@
     Registro de Asistencias
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+        <li>
+            <asp:HyperLink ID="HyperLink1"  NavigateUrl="#" runat="server"><i class="fa fa-file-pdf-o" style="color: #6D0C2E;" aria-hidden="true"></i>Lista asistencia</asp:HyperLink>
+        </li>
     <asp:Panel ID="PnlMasivo" runat="server" Visible="False">
         <li>
             <asp:HyperLink ID="HypCargaAsistenciaMasiva" data-toggle="modal" data-target="#DModalCargaASistenciaMasiva" runat="server"><i class="fa fa-check" aria-hidden="true"></i>Carga masiva de asistencia</asp:HyperLink>

SAT/SolicitudesNominaSat.aspx

@@ -42,15 +42,14 @@
         }
 
         .reporte1 .GVSolicitudTimbreNominaGral tr th:nth-child(2)
-        /*,.reporte1 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2) */
+        /*,.reporte1 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2) */ {
-        {
             background-color: #900;
             color: #FFF;
         }
 
         .reporte1 .GVSolicitudTimbreNominaGral tr th:nth-child(3),
         .reporte1 .GVSolicitudTimbreNominaGral tr th:nth-child(4),
-        .reporte1 .GVSolicitudTimbreNominaGral tr th:nth-child(5)/*,
+        .reporte1 .GVSolicitudTimbreNominaGral tr th:nth-child(5) /*,
         .reporte1 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(3),
         .reporte1 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(4),
         .reporte1 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(5)*/ {
@@ -67,14 +66,14 @@
             white-space: nowrap;
         }
 
-        .reporte2 .GVSolicitudTimbreNominaGral tr th:nth-child(2)/*,
+        .reporte2 .GVSolicitudTimbreNominaGral tr th:nth-child(2) /*,
         .reporte2 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2)*/ {
             background-color: #900;
             color: #FFF;
         }
 
-        .reporte2 .GVSolicitudTimbreNominaGral tr th:nth-child(n+3):not(:nth-child(7))/*,
+        .reporte2 .GVSolicitudTimbreNominaGral tr th:nth-child(n+3):not(:nth-child(7)) /*,
-        .reporte2 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(n+3):not(:nth-child(7))*/{
+        .reporte2 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(n+3):not(:nth-child(7))*/ {
             background-color: #3598dc;
             color: #FFF;
         }
@@ -94,15 +93,15 @@
         }
 
         .reporte3 .GVSolicitudTimbreNominaGral tr th:nth-child(2),
-        .reporte3 .GVSolicitudTimbreNominaGral tr th:nth-child(n+20)/*,
+        .reporte3 .GVSolicitudTimbreNominaGral tr th:nth-child(n+20) /*,
         .reporte3 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2),
-        .reporte3 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(n+20)*/{
+        .reporte3 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(n+20)*/ {
             background-color: #900;
             color: #FFF;
         }
 
         .reporte3 .GVSolicitudTimbreNominaGral tr th:nth-child(1),
-        .reporte3 .GVSolicitudTimbreNominaGral tr th:nth-child(n+3):not(:nth-child(n+20))/*,
+        .reporte3 .GVSolicitudTimbreNominaGral tr th:nth-child(n+3):not(:nth-child(n+20)) /*,
         .reporte3 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(1),
         .reporte3 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(n+3):not(:nth-child(n+20))*/ {
             background-color: #3598dc;
@@ -116,24 +115,25 @@
             white-space: nowrap;
         }
 
-        .reporte4 .GVSolicitudTimbreNominaGral tr th:nth-child(2)/*,
+        .reporte4 .GVSolicitudTimbreNominaGral tr th:nth-child(2) /*,
         .reporte4 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2)*/ {
             background-color: #900;
             color: #FFF;
         }
 
-        .reporte4 .GVSolicitudTimbreNominaGral tr th:nth-child(n+3):not(:nth-child(n+6))/*,
+        .reporte4 .GVSolicitudTimbreNominaGral tr th:nth-child(n+3):not(:nth-child(n+6)) /*,
         .reporte4 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(n+3)*/ {
             background-color: #3598dc;
             color: #FFF;
         }
 
-        .reporte5 .GVSolicitudTimbreNominaGral tr th:nth-child(2)/*,
+        .reporte5 .GVSolicitudTimbreNominaGral tr th:nth-child(2) /*,
         .reporte5 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2)*/ {
             background-color: #900;
             color: #FFF;
         }
-        .reporte5 .GVSolicitudTimbreNominaGral tr th:nth-child(3)/*,
+
+        .reporte5 .GVSolicitudTimbreNominaGral tr th:nth-child(3) /*,
         .reporte5 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(3)*/ {
             background-color: #3598dc;
             color: #FFF;
@@ -153,6 +153,7 @@
                 background-color: #900;
                 color: #FFF;
             }
+
         .reporte6 .GVSolicitudTimbreNominaGral tr th:nth-child(n+7):not(:nth-child(n+10)) {
             background-color: #3598dc;
             color: #FFF;
@@ -169,6 +170,7 @@
                 background-color: #900;
                 color: #FFF;
             }
+
         .reporte7 .GVSolicitudTimbreNominaGral tr th:nth-child(n+6):not(:nth-child(n+9)) {
             background-color: #3598dc;
             color: #FFF;
@@ -186,6 +188,7 @@
                 background-color: #900;
                 color: #FFF;
             }
+
         .reporte8 .GVSolicitudTimbreNominaGral tr th:nth-child(n+9):not(:nth-child(n+12)) {
             background-color: #3598dc;
             color: #FFF;
@@ -196,6 +199,7 @@
         .reporte9 .GVSolicitudTimbreNominaGral tr td:nth-child(4) {
             white-space: nowrap;
         }
+
         .reporte9 .GVSolicitudTimbreNominaGral tr td:nth-child(2),
         .reporte9 .GVSolicitudTimbreNominaGral tr td:nth-child(3),
         .reporte9 .GVSolicitudTimbreNominaGral tr td:nth-child(n+40) {
@@ -210,14 +214,14 @@
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <li>
-         <asp:LinkButton ID="LnkDownloadExcel" OnClick="LnkDownloadExcel_Click" runat="server"><i class="fa fa-download"></i>Descargar</asp:LinkButton>
+        <asp:LinkButton ID="LnkDownloadExcel" OnClick="LnkDownloadExcel_Click" runat="server"><i class="fa fa-download"></i>Descargar</asp:LinkButton>
     </li>
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
+        <contenttemplate>
             <li>
                 <asp:LinkButton ID="LnkShowSolicitudes" OnClick="LnkShowSolicitudes_Click" runat="server">Solicitudes</asp:LinkButton>
             </li>
-        </ContentTemplate>
+        </contenttemplate>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
@@ -225,7 +229,7 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
 
     <asp:UpdatePanel ID="upDatosChec" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
+        <contenttemplate>
             <div class="portlet solid  grey-cascade portlet-filter">
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="titlefiltros  caption">
@@ -246,7 +250,7 @@
                                 </asp:DropDownList>
                             </div>
                             <label class="col-md-1 mediocol">Fecha inicio:</label>
-                            <div class="col-md-1">
+                            <div class="col-md-2">
                                 <%--<asp:TextBox ID="TxtPeriodoInicio" Text="0" CssClass="form-control" runat="server"></asp:TextBox>--%>
 
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
@@ -254,27 +258,27 @@
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="LnkRpdFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                     </span>
-                                    <ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtRpdFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:maskededitextender id="MaskedEditExtender3" runat="server" targetcontrolid="TxtRpdFechaInicio" mask="99/99/9999" masktype="Date" displaymoney="Left" acceptnegative="Left"></ajax:maskededitextender>
-                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtRpdFechaInicio" PopupButtonID="LnkRpdFechaInicio" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                    <ajax:calendarextender runat="server" id="CalendarExtender3" targetcontrolid="TxtRpdFechaInicio" popupbuttonid="LnkRpdFechaInicio" popupposition="BottomRight" enabled="True" format="dd/MM/yyyy"></ajax:calendarextender>
                                     <asp:RequiredFieldValidator ID="rfvRpdFechaInicio" runat="server" ControlToValidate="TxtRpdFechaInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor ingréselo." ValidationGroup="VGReporterepperde"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="rfvRpdFechaInicio"></ajax:ValidatorCalloutExtender>
+                                    <ajax:validatorcalloutextender id="ValidatorCalloutExtender1" runat="server" highlightcssclass="vco" targetcontrolid="rfvRpdFechaInicio"></ajax:validatorcalloutextender>
                                 </div>
                             </div>
                             <label class="col-md-1 mediocol">Fecha fin:</label>
-                            <div class="col-md-1">
+                            <div class="col-md-2">
                                 <%--<asp:TextBox ID="TxtPeriodoFin" Text="99" CssClass="form-control" runat="server"></asp:TextBox>--%>
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
                                     <asp:TextBox ID="TxtRpdFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 80px" runat="server"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="LnkFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                     </span>
-                                    <ajax:MaskedEditExtender ID="MaskedEditExtender5" runat="server" TargetControlID="TxtRpdFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:maskededitextender id="MaskedEditExtender5" runat="server" targetcontrolid="TxtRpdFechaFin" mask="99/99/9999" masktype="Date" displaymoney="Left" acceptnegative="Left"></ajax:maskededitextender>
-                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtRpdFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                    <ajax:calendarextender runat="server" id="CalendarExtender4" targetcontrolid="TxtRpdFechaFin" popupbuttonid="LnkFechaFin" popupposition="BottomRight" enabled="True" format="dd/MM/yyyy"></ajax:calendarextender>
                                     <asp:RequiredFieldValidator ID="rfvRpdFechaFin" runat="server" ControlToValidate="TxtRpdFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor ingréselo." ValidationGroup="VGReporterepperde"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="rfvRpdFechaFin"></ajax:ValidatorCalloutExtender>
+                                    <ajax:validatorcalloutextender id="ValidatorCalloutExtender2" runat="server" highlightcssclass="vco" targetcontrolid="rfvRpdFechaFin"></ajax:validatorcalloutextender>
                                 </div>
                             </div>
-                            <div class="col-md-3">
+                            <div class="col-md-2">
                                 <asp:LinkButton ID="LnkConsultar" OnClick="LnkConsultar_Click" runat="server" Text="Consultar" Visible="true" class="btn btn-primary" />
                             </div>
                         </div>
@@ -385,18 +389,18 @@
 
                     <%--DataKeyNames="Periodo,Version CFDI,Version Nómina,UUID,UUIDs relacionados,Tipo relacion,Tipo nomina,Serie,Folio,Fecha emision,Fecha certificacion,Fecha cancelacion,Fecha pago,Fecha inicial pago,Fecha final pago,Dias pagados,RFC emisor,Razon emisor,Registro patronal,RFC receptor,Razon receptor,Fecha inicio relacion laboral,Tipo contrato,Tipo jornada,Tipo regimen,Num empleado,Antiguedad,Sindicalizado,ClaveEntFed,Banco,Cuenta bancaria,CURP,No Seguro social,Departamento,Puesto,Periodicidad pago,Salario base cot apor,Salario diario integrado,Estado"--%>
                     <asp:GridView ID="GVSolicitudTimbreNominaGral" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVSolicitudTimbreNominaGral" AutoGenerateColumns="true">
-                        <Columns></Columns>
+                        <columns></columns>
                     </asp:GridView>
 
                 </div>
             </div>
 
-        </ContentTemplate>
+        </contenttemplate>
     </asp:UpdatePanel>
 
     <div id="ModalViewSolicitudes" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UPModalViewSolicitudes" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
-            <ContentTemplate>
+            <contenttemplate>
                 <div class="modal-content">
                     <div class="modal-header">
                         <button type="button" class="close" data-dismiss="modal">&times;</button>
@@ -417,50 +421,53 @@
                             </div>
                             <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom " style="display: none">
                                 <div class="row">
+                                    <div class="col-md-4">
 
-                                    <div class="col-md-4" data-date-format="dd/mm/yyyy" style="padding-right: 0px;">
+                                        <asp:Label runat="server" Text="Fecha Inicio" AssociatedControlID="txtFechaIAdd"></asp:Label>
-                                        <div class="form-group form-md-line-input form-md-floating-label input-iconright">
-                                            <asp:TextBox ID="txtFechaIAdd" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                            <asp:Label runat="server" Text="Fecha Inicio" AssociatedControlID="txtFechaIAdd"></asp:Label>
-                                        </div>
-                                        <ajax:MaskedEditExtender ID="MEEFechaIAdd" runat="server" TargetControlID="txtFechaIAdd" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                        <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="txtFechaIAdd" PopupButtonID="LnkFechaIAdd" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                        <asp:RequiredFieldValidator ID="rfvFechaIAdd" runat="server" ControlToValidate="txtFechaIAdd" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="VGAdd"></asp:RequiredFieldValidator>
-                                        <asp:CompareValidator ID="cvFechaIAdd" runat="server" ControlToValidate="txtFechaIAdd" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaIAdd" Width="350px"></ajax:ValidatorCalloutExtender>
-                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaIAdd" Width="350px"></ajax:ValidatorCalloutExtender>
-
                                     </div>
-                                    <div class="col-md-2" style="padding-top: 14px; padding-left: 0px;">
+                                    <div class="col-md-4">
-                                        <div class="input-group input-sm input-small date date-picker " style="padding-left: 0px;" data-date-format="dd/mm/yyyy">
+
+                                        <asp:Label runat="server" Text="Fecha Fin" AssociatedControlID="txtFechaFAdd"></asp:Label>
+                                    </div>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-4">
+                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                                            <asp:TextBox ID="txtFechaIAdd" CssClass="form-control input-sm ADSMaskDate" Style="" runat="server"></asp:TextBox>
                                             <span class="input-group-btn ">
                                                 <asp:LinkButton ID="LnkFechaIAdd" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                             </span>
+                                            <ajax:maskededitextender id="MEEFechaIAdd" runat="server" targetcontrolid="txtFechaIAdd" mask="99/99/9999" masktype="Date" displaymoney="Left" acceptnegative="Left"></ajax:maskededitextender>
+                                            <ajax:calendarextender runat="server" id="CalendarExtender1" targetcontrolid="txtFechaIAdd" popupbuttonid="LnkFechaIAdd" popupposition="BottomRight" enabled="True"></ajax:calendarextender>
+                                            <asp:RequiredFieldValidator ID="rfvFechaIAdd" runat="server" ControlToValidate="txtFechaIAdd" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="VGAdd"></asp:RequiredFieldValidator>
+                                            <asp:CompareValidator ID="cvFechaIAdd" runat="server" ControlToValidate="txtFechaIAdd" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                            <ajax:validatorcalloutextender id="ValidatorCalloutExtender3" runat="server" highlightcssclass="vco" targetcontrolid="rfvFechaIAdd" width="350px"></ajax:validatorcalloutextender>
+                                            <ajax:validatorcalloutextender id="ValidatorCalloutExtender4" runat="server" highlightcssclass="vco" targetcontrolid="cvFechaIAdd" width="350px"></ajax:validatorcalloutextender>
+
                                         </div>
                                     </div>
 
-                                    <div class="col-md-4" data-date-format="dd/mm/yyyy" style="padding-right: 0px;">
+                                    <div class="col-md-4">
-                                        <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
-                                            <asp:TextBox ID="txtFechaFAdd" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                            <asp:TextBox ID="txtFechaFAdd" CssClass="form-control input-sm ADSMaskDate" Style="" runat="server"></asp:TextBox>
-                                            <asp:Label runat="server" Text="Fecha Fin" AssociatedControlID="txtFechaFAdd"></asp:Label>
-                                        </div>
-                                        <ajax:MaskedEditExtender ID="MEEFechaFAdd" runat="server" TargetControlID="txtFechaFAdd" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                        <ajax:CalendarExtender runat="server" ID="CalendarExtender2" TargetControlID="txtFechaFAdd" PopupButtonID="LnkFechaFAdd" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                        <asp:RequiredFieldValidator ID="rfvFechaFAdd" runat="server" ControlToValidate="txtFechaFAdd" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="VGAdd"></asp:RequiredFieldValidator>
-                                        <asp:CompareValidator ID="cvFechaFAdd" runat="server" ControlToValidate="txtFechaFAdd" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaFAdd" Width="350px"></ajax:ValidatorCalloutExtender>
-                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender6" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaFAdd" Width="350px"></ajax:ValidatorCalloutExtender>
-                                    </div>
-                                    <div class="col-md-2" style="padding-top: 14px; padding-left: 0px;">
-                                        <div class="input-group input-sm input-small date date-picker " style="padding-left: 0px;" data-date-format="dd/mm/yyyy">
                                             <span class="input-group-btn ">
                                                 <asp:LinkButton ID="LnkFechaFAdd" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                             </span>
+                                            <ajax:maskededitextender id="MEEFechaFAdd" runat="server" targetcontrolid="txtFechaFAdd" mask="99/99/9999" masktype="Date" displaymoney="Left" acceptnegative="Left"></ajax:maskededitextender>
+                                            <ajax:calendarextender runat="server" id="CalendarExtender2" targetcontrolid="txtFechaFAdd" popupbuttonid="LnkFechaFAdd" popupposition="BottomRight" enabled="True"></ajax:calendarextender>
+                                            <asp:RequiredFieldValidator ID="rfvFechaFAdd" runat="server" ControlToValidate="txtFechaFAdd" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="VGAdd"></asp:RequiredFieldValidator>
+                                            <asp:CompareValidator ID="cvFechaFAdd" runat="server" ControlToValidate="txtFechaFAdd" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                            <ajax:validatorcalloutextender id="ValidatorCalloutExtender5" runat="server" highlightcssclass="vco" targetcontrolid="rfvFechaFAdd" width="350px"></ajax:validatorcalloutextender>
+                                            <ajax:validatorcalloutextender id="ValidatorCalloutExtender6" runat="server" highlightcssclass="vco" targetcontrolid="cvFechaFAdd" width="350px"></ajax:validatorcalloutextender>
                                         </div>
                                     </div>
-                                </div>
+                                    <div class="col-md-4">
-                                <div class="text-right">
+
-                                    <asp:LinkButton ID="LnkSolicitarSat" CssClass="btn btn-primary" OnClick="LnkSolicitarSat_Click" runat="server">Solicitar</asp:LinkButton>
+                                        <div class="text-right">
+                                            <asp:LinkButton ID="LnkSolicitarSat" CssClass="btn btn-primary" OnClick="LnkSolicitarSat_Click" runat="server">Solicitar</asp:LinkButton>
+                                        </div>
+                                    </div>
+
                                 </div>
                             </div>
                         </div>
@@ -480,43 +487,43 @@
                                 <asp:GridView ID="GVSolicitudesPendientes" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
                                     ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
                                     DataKeyNames="idSolicitudNominas,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa">
-                                    <Columns>
+                                    <columns>
                                         <asp:TemplateField HeaderText="Folio">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label runat="server" Text='<%# Eval("idSolicitudNominas")%>'> </asp:Label>
+                                                <asp:Label runat="server" Text='<%# Eval("idSolicitudNominas")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Fecha Inicio">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label ID="lblfechaInicio" runat="server" Text='<%# Eval("FechaInicio","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                                                <asp:Label ID="lblfechaInicio" runat="server" Text='<%# Eval("FechaInicio","{0:dd/MM/yyyy}")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Fecha Fin">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                                                <asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin","{0:dd/MM/yyyy}")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Estatus">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label ID="lblestatus" runat="server" Text='<%# Eval("EstatusText")%>'> </asp:Label>
+                                                <asp:Label ID="lblestatus" runat="server" Text='<%# Eval("EstatusText")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Observaciones">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label ID="lblobservaciones" runat="server" Text='<%# Eval("Observaciones")%>'> </asp:Label>
+                                                <asp:Label ID="lblobservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Fecha solicitud">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label runat="server" Text='<%# Eval("FechaIng","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
+                                                <asp:Label runat="server" Text='<%# Eval("FechaIng","{0:dd/MM/yyyy HH:mm}")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Solicitó">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label runat="server" Text='<%# Eval("UsuarioIng")%>'> </asp:Label>
+                                                <asp:Label runat="server" Text='<%# Eval("UsuarioIng")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
-                                    </Columns>
+                                    </columns>
                                 </asp:GridView>
                             </div>
                         </div>
@@ -535,51 +542,52 @@
                                 <asp:GridView ID="GVSolicitudesNominas" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
                                     ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
                                     DataKeyNames="idSolicitudNominas,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa">
-                                    <Columns>
+                                    <columns>
                                         <asp:TemplateField HeaderText="Folio">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label runat="server" Text='<%# Eval("idSolicitudNominas")%>'> </asp:Label>
+                                                <asp:Label runat="server" Text='<%# Eval("idSolicitudNominas")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Fecha Inicio">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label ID="lblfechaInicio" runat="server" Text='<%# Eval("FechaInicio","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                                                <asp:Label ID="lblfechaInicio" runat="server" Text='<%# Eval("FechaInicio","{0:dd/MM/yyyy}")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Fecha Fin">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                                                <asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin","{0:dd/MM/yyyy}")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="No CFDI">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label ID="lblobservaciones" runat="server" Text='<%# Eval("numeroCFDIs")%>'> </asp:Label>
+                                                <asp:Label ID="lblobservaciones" runat="server" Text='<%# Eval("numeroCFDIs")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Observaciones">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label ID="lblobservaciones" runat="server" Text='<%# Eval("Observaciones")%>'> </asp:Label>
+                                                <asp:Label ID="lblobservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Fecha solicitud">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label runat="server" Text='<%# Eval("FechaIng","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
+                                                <asp:Label runat="server" Text='<%# Eval("FechaIng","{0:dd/MM/yyyy HH:mm}")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Solicitó">
-                                            <ItemTemplate>
+                                            <itemtemplate>
-                                                <asp:Label runat="server" Text='<%# Eval("UsuarioIng")%>'> </asp:Label>
+                                                <asp:Label runat="server" Text='<%# Eval("UsuarioIng")%>'></asp:Label>
-                                            </ItemTemplate>
+                                            </itemtemplate>
                                         </asp:TemplateField>
-                                    </Columns>
+                                    </columns>
                                 </asp:GridView>
                             </div>
                         </div>
                     </div>
                     <div class="modal-footer">
+                        <asp:LinkButton ID="LnkverificarSolicitudes" CssClass="btn btn-primary" OnClick="LnkverificarSolicitudes_Click" runat="server">Verificar pendientes</asp:LinkButton>
                         <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
                     </div>
-            </ContentTemplate>
+            </contenttemplate>
         </asp:UpdatePanel>
     </div>
 </asp:Content>

SAT/SolicitudesNominaSat.aspx.cs

@@ -179,9 +179,6 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas
             }
         }
         UPModalViewSolicitudes.Update();
-        var api = new GeneralesAPI();
-        api.GeneraSolicitud();
-        api.VerificaSolicitudesNominas();
     }
     protected void LnkShowSolicitudes_Click(object sender, EventArgs e)
     {
@@ -218,6 +215,15 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas
         }
     }
 
+
+    protected void LnkverificarSolicitudes_Click(object sender, EventArgs e)
+    {
+        var api = new GeneralesAPI();
+        api.GeneraSolicitud();
+        api.VerificaSolicitudesNominas();
+        cargasolicitudes();
+
+    }
 }
 
 public class GeneralesAPI : ADSNetLibrary.Helpers.Conexiones.SIGAPI.BaseSIGAPI

Sistemas/UsuarioDetalle.aspx

@@ -1496,8 +1496,8 @@
                                                                 <tr>
                                                                     <td>Porcentaje Máximo:</td>
                                                                     <td>
-                                                                        <asp:TextBox ID="TxtPorcentajeMaximoAutorizacion" runat="server" Width="400px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtPorcentajeMaximoAutorizacion" runat="server" Width="100px"></asp:TextBox>
-                                                                        <asp:RangeValidator ID="RVPM" runat="server" Type="Integer" MinimumValue="0" MaximumValue="999999" ErrorMessage="El campo <b>''Porcentaje Máximo''</b> no tiene el formato correcto, por favor ingréselo." ControlToValidate="TxtPorcentajeMaximoAutorizacion" Display="None" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                                                        <asp:RangeValidator ID="RVPM" runat="server" Type="Double" MinimumValue="0" MaximumValue="999999" ErrorMessage="El campo <b>''Porcentaje Máximo''</b> no tiene el formato correcto, por favor ingréselo." ControlToValidate="TxtPorcentajeMaximoAutorizacion" Display="None" ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                                                         <ajax:ValidatorCalloutExtender ID="VCEPM" runat="server" HighlightCssClass="vco" TargetControlID="RVPM" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                     </td>
                                                                     <td></td>
@@ -1505,7 +1505,7 @@
                                                                 <tr>
                                                                     <td>Días vencidos:</td>
                                                                     <td>
-                                                                        <asp:TextBox ID="TxtDiasVencidos" runat="server" Width="400px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtDiasVencidos" runat="server" Width="100px"></asp:TextBox>
                                                                         <asp:RangeValidator ID="RVDV" runat="server" Type="Integer" MinimumValue="0" MaximumValue="999999" ErrorMessage="El campo <b>''Dias Vencidos''</b> no tiene el formato correcto, por favor ingréselo." ControlToValidate="TxtDiasVencidos" Display="None" ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                                                         <ajax:ValidatorCalloutExtender ID="VCEDV" runat="server" HighlightCssClass="vco" TargetControlID="RVDV" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                     </td>

Ventas/ActualizarPrecios.aspx

@@ -178,10 +178,10 @@
                         <asp:BoundField DataField="PrecioLista" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="Importe" DataFormatString="$ {0:N2}" ItemStyle-HorizontalAlign="right" />
                         <asp:TemplateField HeaderText="">
                             <ItemTemplate>
-                                <asp:TextBox ID="TxtPrecio" runat="server" Text='<%# Eval("PrecioLista", "{0:N2}")%>' CssClass="CssCamviaPrecio" MaxLength="39" Width="60px"></asp:TextBox>
+                                <asp:TextBox ID="TxtPrecio" runat="server" Text='<%# Eval("PrecioLista", "{0:0.######}")%>' CssClass="CssCamviaPrecio" MaxLength="39" Width="60px" onkeypress="return onlyNumberKey(event)"></asp:TextBox>
-                                <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPrecio" FilterType="Numbers,Custom" ValidChars="." />
+                                <%--<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPrecio" FilterType="Numbers,Custom" ValidChars="." />
                                 <asp:RegularExpressionValidator ID="REVTxtPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" EnableClientScript="True" ErrorMessage="El campo <b>''PrecioLista''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." ValidationGroup="GrpGuardar" ValidationExpression="^[0-9]{1,15}(?:\.[0-9]{1,4})?$" />
-                                <ajax:ValidatorCalloutExtender ID="VCPrecio" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="VCPrecio" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtPrecio" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                             </ItemTemplate>
                         </asp:TemplateField>
                         <asp:TemplateField HeaderText="Precio Mínimo" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right">
@@ -191,10 +191,10 @@
                         </asp:TemplateField>
                         <asp:TemplateField HeaderText="">
                             <ItemTemplate>
-                                <asp:TextBox ID="TxtPrecioMinimo" runat="server" Text='<%# Eval("PrecioMinimo", "{0:N2}")%>' CssClass="CssCamviaPrecio" MaxLength="39" Width="60px"></asp:TextBox>
+                                <asp:TextBox ID="TxtPrecioMinimo" runat="server" Text='<%# Eval("PrecioMinimo", "{0:0.######}")%>' CssClass="CssCamviaPrecio" MaxLength="39" Width="60px" onkeypress="return onlyNumberKey(event)"></asp:TextBox>
-                                <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPrecioMinimo" FilterType="Numbers,Custom" ValidChars="." />
+<%--                                <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPrecioMinimo" FilterType="Numbers,Custom" ValidChars="." />
                                 <asp:RegularExpressionValidator ID="REVTxtPrecioMinimo" runat="server" ControlToValidate="TxtPrecioMinimo" Display="None" EnableClientScript="True" ErrorMessage="El campo <b>''PrecioLista''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." ValidationGroup="GrpGuardar" ValidationExpression="^[0-9]{1,15}(?:\.[0-9]{1,4})?$" />
-                                <ajax:ValidatorCalloutExtender ID="VCTxtPrecioMinimo" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtPrecioMinimo" Width="300px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="VCTxtPrecioMinimo" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtPrecioMinimo" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                             </ItemTemplate>
                         </asp:TemplateField>
 
@@ -266,7 +266,7 @@
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Precio Mínimo">
                                         <ItemTemplate>
-                                            <asp:TextBox ID="TxtPrecioMinimo" Style="text-align: right" runat="server" CausesValidation="true" MaxLength="39" Text='<%# Eval("PrecioMinimo", "{0:N2}")%>' ValidationGroup="GrpEditGuardarO" Width="90px" CssClass="CssMCamviaPrecio"></asp:TextBox>
+                                            <asp:TextBox ID="TxtPrecioMinimo" Style="text-align: right" runat="server" CausesValidation="true" MaxLength="39" Text='<%# Eval("PrecioMinimo", "{0:0.######}")%>' ValidationGroup="GrpEditGuardarO" Width="90px" CssClass="CssMCamviaPrecio"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RFVTxtPrecioMinimo" runat="server" ControlToValidate="TxtPrecioMinimo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEditGuardarS"></asp:RequiredFieldValidator>
                                             <ajax:ValidatorCalloutExtender ID="VCOTxtPrecioMinimo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtPrecioMinimo" Width="100px"></ajax:ValidatorCalloutExtender>
                                             <ajax:FilteredTextBoxExtender ID="FilTxtPrecioMinimo" runat="server" TargetControlID="TxtPrecioMinimo" FilterType="Numbers,Custom" ValidChars="." InvalidChars=",-+" />
@@ -366,6 +366,21 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script>
 
+        function onlyNumberKey(evt) {
+
+            // Only ASCII character in that range allowed
+            var ASCIICode = (evt.which) ? evt.which : evt.keyCode
+            if (ASCIICode > 31 && (ASCIICode < 48 || ASCIICode > 57))
+            {
+                if (ASCIICode == 46) {
+                    return true 
+                } else {
+                    return false;
+                }
+            }          
+            return true;
+        }
+
         function CambiaImporte() {
             var topLevelElem = document.getElementById("form1");
             var checks = topLevelElem.getElementsByTagName("input");

Ventas/Clientes.aspx.vb

@@ -1503,7 +1503,7 @@ Partial Class Clientes
                 'End If
 
                 'Campos para Modificación
-                LtlCliente.Text = ObjClientes.Nombre
+                LtlCliente.Text = ObjClientes.NombreComercial
                 TxtNombre.Text = ObjClientes.Nombre
                 TxtRegimenSociedad.Text = ObjClientes.RegimenSociedad
                 TxtNombreComercial.Text = ObjClientes.NombreComercial

Ventas/MetasVendedores.aspx

@@ -44,9 +44,9 @@
             font-weight: bold;
         }
 
-            .GrupoSuperior:hover {
+        .GrupoSuperior:hover {
                 background-color: #000077;
-            }
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
@@ -162,7 +162,7 @@
                         </asp:TemplateField>
                         <asp:TemplateField HeaderText="Real" ItemStyle-HorizontalAlign="Center">
                             <ItemTemplate>
-                                <asp:Label ID="lblRealMes" runat="server" Target="_blank" Text='<%# Eval("RealMes", "{0:#,###}").ToString() %>'> </asp:Label>
+                                <asp:HyperLink ID="HplRealMes" runat="server" Target="_blank" Text='<%# Eval("RealMes", "{0:#,###}").ToString() %>'> </asp:HyperLink>
                             </ItemTemplate>
                         </asp:TemplateField>
                         <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Center">

Ventas/MetasVendedores.aspx.vb

@@ -27,15 +27,11 @@ Partial Class MetasVendedores
         DdlSubProyectoFiltro.DataBind()
         DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        Dim ObjPS As New ClsProductosServicios
+        DdlMarcaFiltro.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
-        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
-            DdlMarcaFiltro.DataSource = ObjPS.DtResultados
-        End If
-        ObjPS.Dispose()
         DdlMarcaFiltro.DataBind()
         DdlMarcaFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
         DdlVendedorFiltro.DataBind()
         DdlVendedorFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
 
@@ -82,6 +78,11 @@ Partial Class MetasVendedores
             e.Row.FCLabel("lblRealAcumuladoPorcentaje").Text = String.Format("{0}{1}", e.Row.FCLabel("lblRealAcumuladoPorcentaje").Text, "%")
             'e.Row.FCLabel("lblVarVSAAPerc").Text = String.Format("{0}{1}", e.Row.FCLabel("lblVarVSAAPerc").Text, "%")
 
+            e.Row.FCHyperLink("HplRealMes").NavigateUrl = String.Format("/Ventas/MetasVendedoresDetalle.aspx?CveSubProyecto={0}&CveCategoria={1}&CveClasificacion={2}&CveCliente={3}&CveVendedor={4}&Fecha={5}&Grupo={6}&CveMarca={7}&EsGarantia={8}&EsDistribuidor={9}&CveClasificacion2={10}",
+                                                                            e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveVendedor"),
+                                                                            e.Row.DBCampo("Fecha"), e.Row.DBCampo("Grupo"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("EsGarantia"), e.Row.DBCampo("EsDistribuidor"), e.Row.DBCampo("CveClasificacion2"))
+
+
             Select Case e.Row.DBCampo("TipoFila")
                 Case "1"
                     e.Row.CssClass = "Totales"

Ventas/MetasVendedoresDetalle.aspx

@@ -0,0 +1,179 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="MetasVendedoresDetalle.aspx.vb" Inherits="MetasVendedoresDetalle" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .table-scrollable {
+            margin-top: 0px !important;
+            margin-bottom: 0px !important;
+        }
+
+        .dataTables_scrollHeadInner {
+            width: 100% !important;
+            background-color: #dddddd;
+            padding-left: 0px !important;
+        }
+
+        .dataTables_scrollFoot {
+            display: none;
+            position: static;
+        }
+
+        .table-scrollable {
+            margin: 0px !important;
+        }
+
+        .dataTables_scroll {
+            margin-bottom: 0px;
+        }
+
+        .table.dataTable {
+            margin-top: 0px !important;
+        }
+
+        .dataTables_scrollBody table th {
+            padding: 0px !important;
+            padding-right: 4px !important;
+            padding-left: 4px !important;
+        }
+
+        .GrupoSuperior {
+            background-color: #000077;
+            color: white;
+            font-weight: bold;
+        }
+
+        .GrupoSuperior:hover {
+                background-color: #000077;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+  Scorecard Ventas
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <li>
+        <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+    </li>
+    <li>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+    </li>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpFiltros">
+        <ContentTemplate>
+            <div class="portlet solid grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 45px; position: relative;">
+                    <div class="tools">
+                        <asp:Button ID="btConsultar" CssClass="btn btn-primary" runat="server" ValidationGroup="GrpConsultar" Text="Consultar" /></td>
+                        <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
+                    </div>
+                    <div class="titlefiltros caption magindate">
+                        <div class="row">
+                            <div class="col-md-1 truncate text-right">Fecha del mes: </div>
+                            <div class="col-md-3 col-sm-2">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
+                                    <asp:TextBox Style="width: 80px !important;" ID="TxtFechaMes" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgFechaMes" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaMes" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaMes" PopupButtonID="ImgFechaMes" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            </div>
+
+                            <div class="col-md-1 text-right">Sucursal: </div>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" CssClass="form-control input-sm select2me" Width="50%" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList>
+                            </div>
+                            <label class="col-md-1 text-right">Grupo: </label>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlGrupo" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%">
+                                    <asp:ListItem Value="0" Text="Por Vendedor"></asp:ListItem>
+                                    <asp:ListItem Value="1" Text="Por Sucursal"></asp:ListItem>
+                                    <asp:ListItem Value="2" Text="General"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body magindate" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                    <div class="row">
+                        <label class="col-md-1 text-right">Vendedor: </label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlVendedorFiltro" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveVendedor" DataTextField="Vendedor"></asp:DropDownList>
+                        </div>
+
+                        <label class="col-md-1 text-right">Categoria: </label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlCategoria" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCategoria" DataTextField="Categoria" AutoPostBack="true"></asp:DropDownList>
+                        </div>
+                        <label class="col-md-1 text-right">Clasificaciones: </label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlClasificaciones" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <label class="col-md-1 text-right">Sub Clasif: </label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlClasificacion2" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
+                        </div>
+                        <label class="col-md-1 text-right">Cliente: </label>
+                        <div class="col-md-3">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>                            
+                        </div>
+                        <label class="col-md-1 text-right">Marca: </label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlMarcaFiltro" runat="server" DataTextField="Marca" DataValueField="CveMarca" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%"></asp:DropDownList>
+                        </div>
+                     </div>
+                         <div class="row">
+                             <label title="Distr" data-toggle="tooltip" class="col-md-1 truncate">Distribuidor:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Text="Distribuidor" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="No Distribuidor" Value="0"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                           
+                    </div>
+                    <div id="DivFamiliaSubFamilia" class="row" runat="server" visible="false">
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <div id="dvCuerpo" style="width: 100%">
+        <asp:UpdatePanel ID="UPDatos" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+            <ContentTemplate>
+                <asp:GridView ID="GV" runat="server" GridLines="None" BorderWidth="0" UseAccessibleHeader="true" 
+                    CssClass="table table-advance Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                    AutoGenerateColumns="false" AllowPaging="False" ShowFooter="False">
+                    <Columns>
+                        <asp:BoundField DataField="RowNum" HeaderText="#" />
+                        <asp:BoundField DataField="Cantidad" HeaderText="Cantidad" />
+                        <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" />
+                        <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" />
+                        <asp:BoundField DataField="Clasificacion" HeaderText="Clasificacion" />
+                        <asp:BoundField DataField="Clasificacion2" HeaderText="Clasificacion2" />
+                         <asp:BoundField DataField="Marca" HeaderText="Marca" />
+                        <asp:BoundField DataField="SerieFolio" HeaderText="SerieFolio" />
+                        <asp:BoundField DataField="TipoDocto" HeaderText="TipoDocto" />
+                        <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" />                       
+                        <asp:BoundField DataField="CodigoPS" HeaderText="CodigoPS" />
+
+                    </Columns>
+                </asp:GridView>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script src="/Metronic/assets/global/scripts/datatable.js"></script>
+    <script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
+</asp:Content>

Ventas/MetasVendedoresDetalle.aspx.vb

@@ -0,0 +1,120 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class MetasVendedoresDetalle
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaDatosFiltros()
+
+        End If
+    End Sub
+    Private Sub CargaDatosFiltros()
+
+        TxtFechaMes.Text = IfNull(Request("Fecha"), "2000/01/01").ToString
+
+        DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectoFiltro.DataBind()
+        DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlMarcaFiltro.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
+        DdlMarcaFiltro.DataBind()
+        DdlMarcaFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
+        DdlVendedorFiltro.DataBind()
+        DdlVendedorFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
+        DdlCategoria.DataBind()
+        DdlCategoria.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1)
+        DdlClasificaciones.DataBind()
+        DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlClasificacion2.DataSource = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa)
+        DdlClasificacion2.DataBind()
+        DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+        DdlSubProyectoFiltro.SelectedValueExist(IfNull(Request("CveSubProyecto"), "-1").ToString)
+        DdlMarcaFiltro.SelectedValueExist(IfNull(Request("CveMarca"), "-1").ToString)
+        DdlVendedorFiltro.SelectedValueExist(IfNull(Request("CveVendedor"), "-1").ToString)
+        DdlCategoria.SelectedValueExist(IfNull(Request("CveCategoria"), "-1").ToString)
+        DdlClasificaciones.SelectedValueExist(IfNull(Request("CveClasificacion"), "-1").ToString)
+        DdlClasificacion2.SelectedValueExist(IfNull(Request("CveClasificacion2"), "-1").ToString)
+        CargarDatos()
+
+    End Sub
+
+    Private Sub CargarDatos()
+        Dim CveCliente As Integer = -1
+        If DdlClientes.SelectedValue.ToEntero > 0 Then
+            CveCliente = DdlClientes.SelectedValue.ToEntero
+        End If
+
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepMetasVendedoresDetalle(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
+                                           DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
+                                           DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlDistribuidor.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then
+            GV.DataSource = ObjVentas.DtResultados
+
+        End If
+        ObjVentas.Dispose()
+        GV.DataBind()
+    End Sub
+
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+        CargarDatos()
+        UPDatos.Update()
+    End Sub
+
+
+
+    'Protected Sub LnkPDF_RowDataBound(sender As Object, e As EventArgs) Handles LnkPDF.Click
+    '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+    '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+    '    Dim params As New List(Of ReportParameter)
+    '    params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+    '    If Imagen.Exists Then
+    '        params.Add(New ReportParameter("pImg", logouri))
+    '    Else
+    '        params.Add(New ReportParameter("pImg", ""))
+    '    End If
+    '    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+    '    params.Add(New ReportParameter("FechaImpresion", Today))
+    '    params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
+    '    params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))
+
+    '    ImprimirPDF("Empresas/Grales/Formatos/MetasVendedores.rdlc", DtDatos, params, "Rep. Metas por vendedores", "PDF", RDSName:="DataSet1")
+    'End Sub
+
+    'Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+    '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+    '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+    '    Dim params As New List(Of ReportParameter)
+    '    params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+    '    If Imagen.Exists Then
+    '        params.Add(New ReportParameter("pImg", logouri))
+    '    Else
+    '        params.Add(New ReportParameter("pImg", ""))
+    '    End If
+    '    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+    '    params.Add(New ReportParameter("FechaImpresion", Today))
+    '    params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
+    '    params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))
+
+    '    ImprimirPDF("Empresas/Grales/Formatos/MetasVendedores.rdlc", DtDatos, params, "Rep. Metas por vendedores", "Excel", RDSName:="DataSet1")
+    'End Sub
+
+    Private Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
+        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveCategoria:=DdlCategoria.SelectedValue.ToEntero, UsoClasificacion:=1)
+        DdlClasificaciones.DataBind()
+        DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+End Class

Ventas/PV.aspx.vb

@@ -3284,10 +3284,10 @@ Partial Class PV
             Exit Sub
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ChkServicioDomicilio.Checked AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) <= 0 Then
+        'If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ChkServicioDomicilio.Checked AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) <= 0 Then
-            Alert("Debe tener producto seleccionados para servicio a domicilio.", TipoMensaje.MsgAdvertencia)
+        '    Alert("Debe tener producto seleccionados para servicio a domicilio.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+        '    Exit Sub
-        End If
+        'End If
 
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ChkServicioDomicilio.Checked AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
             For Each GvRow As GridViewRow In GvInv.Rows
@@ -4393,7 +4393,7 @@ Partial Class PV
             End If
         Else
             If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) Then
-                Descuento = PU * ClasificacionesDescuentos(DrPS("CveClasificacion").ToString.ToEntero)
+                Descuento = ((Cantidad * PU) * ClasificacionesDescuentos(DrPS("CveClasificacion").ToString.ToEntero)).RoundSQL(2)
             End If
         End If
 

Ventas/PopUpBuscarClientes.aspx.vb

@@ -133,7 +133,7 @@ Partial Class PopUpBuscarClientes
             End If
 
             e.Row.FCLiteral("LtlCodigo").Text = String.Format("<div class='truncate' style='width:60px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Codigo"))
-            e.Row.FCLiteral("LtlNombre").Text = String.Format("<div class='truncate' style='width:190px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Nombre"))
+            e.Row.FCLiteral("LtlNombre").Text = String.Format("<div class='truncate' style='width:190px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("NombreComercial"))
             e.Row.FCLiteral("LtlRFC").Text = String.Format("<div class='truncate' style='width:100px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("RFC"))
             e.Row.FCLiteral("LtlDireccion").Text = String.Format("<div class='truncate' style='width:165px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Direccion"))
             e.Row.FCLiteral("LtlCiudad").Text = String.Format("<div class='truncate' style='width:90px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Ciudad"))

Ventas/PopUpBuscarFolio.aspx.vb

@@ -170,7 +170,7 @@ Partial Class PopUpBuscarFolio
             e.Row.FCLiteral("LtlTipo").Text = String.Format("<div class='truncate' style='width:27px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("TipoDocto"))
             e.Row.FCLiteral("LtlFolio").Text = String.Format("<div class='truncate' style='width:95px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Folio"))
             e.Row.FCLiteral("LtlFecha").Text = String.Format("<div class='truncate' style='width:64px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString)
-            e.Row.FCLiteral("LtlNombre").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Nombre"))
+            e.Row.FCLiteral("LtlNombre").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("NombreComercial"))
             'e.Row.FCLiteral("LtlSubTotal").Text = Liga & e.Row.DBCampo("SubTotal").FormatoNumero & "&nbsp;</a>"
             e.Row.FCLiteral("LtlTotal").Text = String.Format("<div class='truncate' style='width:56px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Total").FormatoNumero)
             e.Row.FCLiteral("LtlMon").Text = String.Format("<div class='truncate' style='width:30px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Abreviatura"))

Ventas/RepProductosServicios.aspx.vb

@@ -270,6 +270,13 @@ Partial Class Ventas_RepProductosServicios
         txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
         txtFechaF.Text = Now.ToShortDateString
 
+        If UsuarioActual.TienePermisoProceso(339) Then
+            GvDatos.Columns(2).Visible = False
+            GvDatos.Columns(3).Visible = False
+            GvDatos.Columns(4).Visible = False
+            GvDatos.Columns(5).Visible = False
+        End If
+
     End Sub
 #End Region
 
@@ -382,13 +389,13 @@ Partial Class Ventas_RepProductosServicios
             FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim(), "-1")
             FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim(), "-1")
 
-            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}&CveClienteSucursal={37}",
+            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}&CveClienteSucursal={37}&CveClasificacion2={38}",
                                                 e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"),
                                                 e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"),
                                                 e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"),
                                                 FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca,
                                                 CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), If(Not ChkLecturaAdmin.Checked, 1, 0),
-                                                e.Row.DBCampo("EsGarantia"), e.Row.DBCampo("CveCondicionesPago"), IIf(e.Row.DBCampo("MostrarLitraje") = "True", 1, 0), e.Row.DBCampo("EsDistribuidor"), e.Row.DBCampo("CveClienteSucursal").ToString.ToEntero)
+                                                e.Row.DBCampo("EsGarantia"), e.Row.DBCampo("CveCondicionesPago"), IIf(e.Row.DBCampo("MostrarLitraje") = "True", 1, 0), e.Row.DBCampo("EsDistribuidor"), e.Row.DBCampo("CveClienteSucursal").ToString.ToEntero, DdlClasificacion2.SelectedValue)
 
 
             e.Row.FCLiteral("LtlGrupo").Text = String.Format("<a target=""_blank"" Class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.DBCampo("Gpo"))

Ventas/RepProductosServiciosDetalle.aspx

@@ -364,6 +364,12 @@
                         <div class="col-md-2">
                             <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" Text="Lectura admiva:" TextAlign="Left" />
                         </div>
+                         <label class="col-md-1 truncate" id="divClasif2texto" runat="server" visible="false">Clasificación 2:</label>
+                        <div class="col-md-2" id="divClasif2" runat="server" visible="false">
+                            <asp:DropDownList ID="DdlClasificacion2" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>   
                     </div>
                 </div>
             </div>

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -239,8 +239,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
             DdlPS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
 
-
-
         'CargaEstatus
         DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(" CveEstatusFactura NOT IN (1, 4, 5) ")
         DdlEstatus.DataBind()
@@ -256,8 +254,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
         DdlClienteClasificacion.DataBind()
         DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
-
-
         If UsuarioActual.CveEmpresa.Contiene(141) Then
             DivDdlTipo.Visible = True
             lblDdlTipoPSDes.Visible = True
@@ -274,6 +270,14 @@ Partial Class Ventas_RepProductosServiciosDetalle
         TCEspecifico = 0
         TipoCambio = 1
 
+        If UsuarioActual.TienePermisoProceso(339) Then
+            GvDatos.Columns(10).Visible = False
+            GvDatos.Columns(11).Visible = False
+            GvDatos.Columns(12).Visible = False
+            GvDatos.Columns(13).Visible = False
+            GvDatos.Columns(14).Visible = False
+        End If
+
     End Sub
 
     Private Sub CargaSucursales(CveCliente As Integer, CveClienteSucursal As Integer)
@@ -309,7 +313,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
     End Sub
 
     Private Sub CargaParametrosDetalle()
-        Dim CveProyecto, CveSubProyecto, CveCategoria, CveClasificacion, CvePS, FechaI, FechaF, FechaIEjec, FechaFEjec, CveSubProyectoEjecucion, CveEstatus, CveUsuario, Anio, Mes, AnioMes, Fecha, AnioEjec, MesEjec, AnioMesEjec, FechaEjec, GPO, TipoDocto, CveClienteClasificacion As String
+        Dim CveProyecto, CveSubProyecto, CveCategoria, CveClasificacion, CveClasificacion2, CvePS, FechaI, FechaF, FechaIEjec, FechaFEjec, CveSubProyectoEjecucion, CveEstatus, CveUsuario, Anio, Mes, AnioMes, Fecha, AnioEjec, MesEjec, AnioMesEjec, FechaEjec, GPO, TipoDocto, CveClienteClasificacion As String
         Dim CveCliente As Integer = -1
         Dim CveProveedorCompra As Integer = -1
         Dim CveVendedor As Integer
@@ -325,6 +329,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
         CveCategoria = If(Request("CveCategoria") IsNot Nothing AndAlso Request("CveCategoria").ToEntero() > 0, Request("CveCategoria").ToEntero(), -1).ToString
         CveClasificacion = If(Request("CveClasificacion") IsNot Nothing AndAlso Request("CveClasificacion").ToEntero() > 0, Request("CveClasificacion").ToEntero(), -1).ToString
         CvePS = If(Request("CvePS") IsNot Nothing AndAlso Request("CvePS").ToEntero() > 0, Request("CvePS").ToEntero(), -1).ToString
+        CveClasificacion2 = If(Request("CveClasificacion2") IsNot Nothing AndAlso Request("CveClasificacion2").ToEntero() > 0, Request("CveClasificacion2").ToEntero(), -1).ToString
 
         Anio = If(Request("Anio") IsNot Nothing AndAlso Request("Anio").ToEntero() > 0, Request("Anio").ToEntero(), -1).ToString
         Mes = If(Request("Mes") IsNot Nothing AndAlso Request("Mes").ToEntero() > 0, Request("Mes").ToEntero(), -1).ToString
@@ -436,6 +441,11 @@ Partial Class Ventas_RepProductosServiciosDetalle
         If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then
             DvLitraje.Visible = True
             'garantia
+            DdlClasificacion2.DataSource = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa)
+            DdlClasificacion2.DataBind()
+            divClasif2texto.Visible = True
+            divClasif2.Visible = True
+
             divgarantia1.Visible = True
             divgarantia2.Visible = True
             divdistribuidor1.Visible = True
@@ -472,6 +482,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
         DdlSubProyecto.SelectedValueExist(CveSubProyecto)
         DdlCategoria.SelectedValueExist(CveCategoria)
         DdlClasificacion.SelectedValueExist(CveClasificacion)
+        DdlClasificacion2.SelectedValueExist(CveClasificacion2)
+
         If CvePS.ToEntero > 0 Then
             DdlPS.SelectedValue = CvePS
             DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS.ToEntero)(0)("PSCodigo").ToString
@@ -531,7 +543,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
                                               TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra,
                                               CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero(), TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
                                               ModalidadContable:=Not ChkLecturaAdmin.Checked, MostrarLitraje:=ChkLitraje.Checked, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero,
-                                              EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveClienteSucursal:=DdlClienteSucursal.SelectedValue.ToEntero) Then
+                                              EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveClienteSucursal:=DdlClienteSucursal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             TmpDT = ObjVentas.DtResultados
         Else

Ventas/Ventas.aspx.vb

@@ -2152,7 +2152,14 @@ Partial Class Ventas
             ViewState("EsGarantia") = value
         End Set
     End Property
-
+    Private Property DtMercancias As DataTable
+        Get
+            Return If(IsNothing(ViewState("DtMercancias")), Nothing, CType(ViewState("DtMercancias"), DataTable))
+        End Get
+        Set(value As DataTable)
+            ViewState("DtMercancias") = value
+        End Set
+    End Property
 #End Region
 
     '#Region "AuxiliarConta"
@@ -2452,6 +2459,7 @@ Partial Class Ventas
 
             CargaClasificaciones()
             CargaPS(-1, DdlPS)
+            CargaPS(-1, DdlPSMercancia)
             'CargaPSRemision(-1, DdlPSRemision)
             CargaPSPyME(-1, DdlPSPyME)
 
@@ -5322,6 +5330,11 @@ Partial Class Ventas
                             BtnsFacturar.Visible = True
                         End If
 
+                        'VERIFICA SI YA SE FACTURO COMPLETAMENTE
+                        If TmpDT.SUM("CantidadFacturadaRem") = TmpDT.SUM("Cantidad") Then
+                            BtnsFacturar.Visible = False
+                        End If
+
                         'VERIFICA SI TIENE USADOS O GARANTIAS PENDIENTES
                         If BtnsFacturar.Visible Then
                             If (Not EsGarantia AndAlso (DtUsadosPendientes IsNot Nothing AndAlso DtUsadosPendientes.Rows.Count > 0)) Then
@@ -5963,7 +5976,7 @@ Partial Class Ventas
             If ObjCliente.DtResultados.Rows.Count > 0 Then
                 TxtCodigo.Text = ObjCliente.Codigo
                 DdlFormaEntrega.SelectedValueExist(ObjCliente.DtResultados(0)("CveCondicionEntrega").ToString())
-                LblCliente.Text = String.Format("<a Class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente={0}"">{1}</a>", CveCliente, ObjCliente.Nombre)
+                LblCliente.Text = String.Format("<a Class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente={0}"">{1}</a>", CveCliente, ObjCliente.NombreComercial)
                 ViewState("NombreCliente") = ObjCliente.Nombre
                 LtlCliente.Text = ObjCliente.Nombre
                 ViewState("RequiereOC") = ObjCliente.RequiereOC
@@ -11021,12 +11034,18 @@ Partial Class Ventas
 
         ObjFactura.EsGarantia = Me.EsGarantia
 
+        If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 AndAlso TrKilometraje.Visible Then
+            ObjFactura.Kilometraje = TxtKilometraje.Text.Trim.ToDecimal()
+        End If
+
         'ASIGNAR RFC RECEPTOR
         If ObjFactura.Timbre IsNot Nothing Then
             If ObjFactura.Timbre.Receptor IsNot Nothing Then
                 ObjFactura.RFCReceptor = ObjFactura.Timbre.Receptor.RFC
             End If
         End If
+
+        ObjFactura.DtMercancias = DtMercancias
     End Sub
 
     Private Sub CreaObjetosVentaDevolucion()
@@ -11358,7 +11377,7 @@ Partial Class Ventas
             Timbre.Receptor.DomicilioFiscalReceptor = Obj.ClienteSucursal.CP
         Else
             Timbre.Receptor.RFC = Obj.Cliente.RFC
-            Timbre.Receptor.Nombre = Obj.Cliente.Nombre
+            Timbre.Receptor.Nombre = Obj.Cliente.NombreComercial
             Timbre.Receptor.DomicilioFiscalReceptor = Obj.Cliente.CP
         End If
 
@@ -14383,15 +14402,16 @@ Partial Class Ventas
 
                     End If
 
-                End If
+                    'DEBE GENERAR MOVIMIENTO SI SE FACTURAON PRODUCTOS, O NO SE REALIZA UNA REFACTURACION
-
+                    Dim DebeGenerarMovimiento As Boolean = TmpDT.COUNT("CvePS", "CveTipoPS = 2") > 0 AndAlso (NuevaFactura <> 1)
-                Dim DebeGenerarMovimiento As Boolean = TmpDT.COUNT("CvePS", "CveTipoPS = 2") > 0
+                    'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
-                'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
+                    If Not OcurrioError AndAlso DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Rem") Then
-                If DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Rem") Then
+                        If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
-                    If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
+                            OcurrioError = True
-                        OcurrioError = True
+                            ErrorList.Add("Ocurrió un error al verificar inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
-                        ErrorList.Add("Ocurrió un error al verificar inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
+                        End If
                     End If
+
                 End If
 
             End If
@@ -14831,12 +14851,11 @@ Partial Class Ventas
 
         'TIMBRADO NUEVO
         Try
-            PdfFactura(ObjFactura)
+            Dim ObjetoPDF As Byte() = DescargarFactura(ObjFactura.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)
-            'If DdlTipoComprobante.SelectedValue = "Ing" Or DdlTipoComprobante.SelectedValue = "Ant" Then
+
-            '    PdfFactura(ObjFactura)
+            If ObjetoPDF Is Nothing OrElse ObjetoPDF.Length = 0 Then
-            '    'Else
+                PdfFactura(ObjFactura, AplicaPagare:=If(ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant"), "1", "0"))
-            '    '    pdf = PdfFactura(ObjFactura)
+            End If
-            'End If
 
         Catch ex As Exception
             Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgError)
@@ -14935,7 +14954,7 @@ Partial Class Ventas
 
             'TIMBRADO NUEVO
             Try
-                pdf = PdfFactura(ObjFactura)
+                pdf = PdfFactura(ObjFactura, AplicaPagare:="1")
             Catch ex As Exception
                 Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgError)
             End Try
@@ -22241,10 +22260,10 @@ Partial Class Ventas
                 Return Retorno
             End If
 
-            If Not PermiteCredito AndAlso TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then
+            If (Not PermiteCredito OrElse RBLPago.SelectedValue = "2") AndAlso TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then
                 Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal() + AmortizacionNC
 
-                If TotalPago < TxtTotal.Text.ToDecimal Then
+                If TotalPago <> TxtTotal.Text.ToDecimal Then
                     If MostrarAlertas Then
                         Alert("La suma de los pagos debe ser igual al total de la venta.", TipoMensaje.MsgAdvertencia)
                     End If
@@ -22319,7 +22338,7 @@ Partial Class Ventas
                 If Not PermiteCredito AndAlso TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then
                     Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal() + AmortizacionNC
 
-                    If TotalPago < TxtTotal.Text.ToDecimal Then
+                    If TotalPago <> TxtTotal.Text.ToDecimal Then
                         If MostrarAlertas Then
                             Alert("La suma de los pagos debe ser igual al total de la venta.", TipoMensaje.MsgAdvertencia)
                         End If
@@ -22640,6 +22659,7 @@ Partial Class Ventas
 
         GvInv.DataSource = DtTemporal
         GvInv.DataBind()
+
         UpINV.Update()
     End Sub
 #End Region
@@ -32994,27 +33014,27 @@ Partial Class Ventas
 
     '    Return File
     'End Function
-    'Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, Optional GetBytes As Boolean = True) As Byte()
+    Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer, Optional GetBytes As Boolean = True) As Byte()
-    '    Dim Url = New Uri(String.Format("http://{0}:{1}/Compras/PopUpVerFactura.aspx?P={2}", HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
+        Dim Url = New Uri(String.Format("{0}://{1}:{2}/Compras/PopUpVerFactura.aspx?P={3}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
-    '    Dim File As Byte() = Nothing
+        Dim File As Byte() = Nothing
-    '    Try
+        Try
-    '        Using httpClient = New HttpClient()
+            Using httpClient = New HttpClient()
-    '            httpClient.Timeout = New TimeSpan(0, 15, 0)
+                httpClient.Timeout = New TimeSpan(0, 2, 0)
-    '            Using request = New HttpRequestMessage(HttpMethod.Get, Url)
+                Using request = New HttpRequestMessage(HttpMethod.Get, Url)
-    '                request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CveUsuario=100", CveEmpresa, DateTime.UtcNow.Ticks)))
+                    request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CveUsuario={2}", CveEmpresa, DateTime.UtcNow.Ticks, CveUsuarioCreo)))
-    '                Dim response = httpClient.SendAsync(request).Result
+                    Dim response = httpClient.SendAsync(request).Result
-    '                If GetBytes AndAlso response.StatusCode = Net.HttpStatusCode.OK Then
+                    If GetBytes AndAlso response.StatusCode = Net.HttpStatusCode.OK Then
-    '                    File = response.Content.ReadAsByteArrayAsync().Result
+                        File = response.Content.ReadAsByteArrayAsync().Result
-    '                End If
+                    End If
-    '            End Using
+                End Using
-    '        End Using
+            End Using
-    '    Catch ex As Exception
+        Catch ex As Exception
-    '        File = Nothing
+            File = Nothing
-    '        OnError("Ocurrió un error al descargar la factura", ex)
+            OnError("Ocurrió un error al descargar la factura", ex)
-    '    End Try
+        End Try
 
-    '    Return File
+        Return File
-    'End Function
+    End Function
     Protected Sub LnkGenerarOC_Click(sender As Object, e As EventArgs)
         Response.Redirect($"~/OC/OC.aspx?CveCotizacion={Me.CveVenta}&Tipo=OC")
     End Sub
@@ -34281,7 +34301,7 @@ Partial Class Ventas
 
             If CveEntregaAlmacen > 0 Then
 
-                For Each RowPS As DataRow In ObjFactura.DtDetalle.FiltraParametros("CveTipoPS = 2").Rows
+                For Each RowPS As DataRow In ObjFactura.DtMercancias.Rows
                     If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToEntero, RowPS("CveUM").ToString().ToEntero, UsuarioActual.CveUsuario) Then
                         ErrorProceso = True
                         Exit For
@@ -34458,6 +34478,65 @@ Partial Class Ventas
 
         UpEmitirTransitorio.Update()
     End Sub
+    Protected Sub LnkAgregarMercancia_Click(sender As Object, e As EventArgs)
+        TxtCantidadMercancia.Text = ""
+        DdlPSMercancia.SelectedValue = ""
+        DdlPSMercancia.SelectedText = "Seleccione"
+
+        UpAgregarMercancia.Update()
+        RegistraScript("$('#DivAddMercancia').modal('show');", "M1")
+    End Sub
+    Protected Sub LnkAddPSMercancia_Click(sender As Object, e As EventArgs)
+        If DtMercancias Is Nothing Then
+            DtMercancias = New DataTable()
+            DtMercancias.Columns.Add(New DataColumn("Consec", GetType(Integer)))
+            DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Integer)))
+            DtMercancias.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+            DtMercancias.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
+            DtMercancias.Columns.Add(New DataColumn("CodigoPS", GetType(String)))
+        End If
+        Dim CvePS As Integer = DdlPSMercancia.SelectedValue.ToEntero()
+
+        Dim DrPS As DataRow = GlobalDTPSSimplificado(CveEmpresa:=UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+        If DrPS Is Nothing Then
+            Alert("No se encontró el producto/servicio", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim NewRow As DataRow = DtMercancias.NewRow
+        NewRow("Consec") = DtMercancias.MAX("Consec").ToEntero() + 1
+        NewRow("Cantidad") = TxtCantidadMercancia.Text.ToDecimal()
+        NewRow("CvePS") = DrPS("CvePS")
+        NewRow("CveUM") = DrPS("CveUnidadMedida")
+        NewRow("CodigoPS") = DrPS("PSCodigo")
+
+        DtMercancias.Rows.Add(NewRow)
+
+        GvMercanciasCP.DataSource = DtMercancias
+        GvMercanciasCP.DataBind()
+
+        TxtCantidadMercancia.Text = ""
+        DdlPSMercancia.SelectedValue = ""
+        DdlPSMercancia.SelectedText = "Seleccione"
+
+        UpAgregarMercancia.Update()
+        UpEmitirTransitorio.Update()
+    End Sub
+
+    Protected Sub GvMercanciasCP_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvMercanciasCP.RowDeleting
+
+        Dim DbRow As DataRow = Nothing
+        DbRow = DtMercancias.Rows(e.RowIndex)
+        DtMercancias.Rows.Remove(DbRow)
+
+        GvMercanciasCP.DataSource = DtMercancias
+        GvMercanciasCP.DataBind()
+
+        Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
+
+        UpEmitirTransitorio.Update()
+    End Sub
+
 #End Region
 
     Protected Sub BtnGenerarPoliza_Click(sender As Object, e As EventArgs)
@@ -34499,5 +34578,7 @@ Partial Class Ventas
 
 
     End Sub
+
+
 End Class
 

asmx/WSGPSApp.asmx

@@ -1150,6 +1150,54 @@ Public Class WSGPSApp
 
     End Function
 
+    <WebMethod>
+    Public Function GetRutas(CveCliente As Integer, CveRuta As Integer, MostrarPuntos As Boolean) As String
+        Dim DtRutas As DataTable = Nothing
+
+        Using ObjGPS As New ClsGPS
+            If ObjGPS.GetRutas(CveRuta, CveCliente) Then
+                DtRutas = ObjGPS.DtResultados.Copy()
+            End If
+        End Using
+
+        Dim Rutas As New List(Of Object)
+        If DtRutas IsNot Nothing Then
+            For Each Row As DataRow In DtRutas.Rows
+                Dim Coordenadas As List(Of MWSGeolocation2) = Nothing
+                If MostrarPuntos Then
+                    Coordenadas = SQLToGmapsPolyline(Row("Poligono").ToString())
+                End If
+
+                Rutas.Add(New With {
+                    .CveRuta = Row("CveRuta").ToString().ToEntero(),
+                    .Ruta = Row("Ruta").ToString(),
+                    .Folio = Row("Folio").ToString(),
+                    .Fecha = Row("FechaIng").ToString(),
+                    .CveDispositivo = Row("CveDispositivo").ToString().ToEntero(),
+                    .CveUsuarioIngreso = Row("CveUsuarioIngreso").ToString().ToEntero(),
+                    .Coordenadas = Coordenadas
+                    })
+            Next
+        End If
+
+        Return JsonConvert.SerializeObject(Rutas)
+
+    End Function
+
+    <WebMethod>
+    Public Function GetRutaPuntosRecoleecion(CveRuta As Integer) As String
+        Dim Retorno As String = "[]"
+
+        Using ObjGPS As New ClsGPS
+            If ObjGPS.GetRutasPuntosRecoleecion(CveRuta) Then
+                Retorno = ObjGPS.DtResultados.DataTableToJSONIPP()
+            End If
+        End Using
+        Return Retorno
+
+    End Function
+
+
 #Region "F U N C I O N E S"
     Private Function CargarEventos(CveCliente As Integer, FechaI As DateTime, FechaF As DateTime) As MWSDashboard2
         Dim ObjGPS As New ClsGPS
@@ -1225,6 +1273,28 @@ Public Class WSGPSApp
         Next
         Return Var
     End Function
+    Private Function SQLToGmapsPolyline(CoordsSQL As String) As List(Of MWSGeolocation2)
+        Dim CoordsPoligono As String = CoordsSQL.Replace($"LINESTRING", "").Replace(")", "").Replace("(", "")
+        Dim CoordsPuntos() As String = CoordsPoligono.Split(","c)
+
+        Dim puntos As New List(Of MWSGeolocation2)
+        For Each coordenada As String In CoordsPuntos
+            Dim Var As New MWSGeolocation2
+            If coordenada Is CoordsPuntos.Last Then
+                Dim latlng() As String = coordenada.Trim.Split(" "c)
+                Var.Latitud = latlng(1).ToDouble()
+                Var.Longitud = latlng(0).ToDouble()
+            Else
+                Dim latlng() As String = coordenada.Trim.Split(" "c)
+                Var.Latitud = latlng(1).ToDouble()
+                Var.Longitud = latlng(0).ToDouble()
+            End If
+
+            puntos.Add(Var)
+        Next
+
+        Return puntos
+    End Function
     Private Function GetJson(ByVal dt As DataTable) As String
         Dim serializer As New System.Web.Script.Serialization.JavaScriptSerializer()
         Dim rows As New List(Of Dictionary(Of String, Object))()

vwd.webinfo

@@ -492,6 +492,10 @@
     
   
     
+  
+    
+  
+