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

App_Code/ClsInventarios.vb

@@ -5602,12 +5602,13 @@ Public Class ClsInventarios
 #End Region
 
 #Region "PRESTAMOS DE PROVEEDOR"
-    Public Function PrestamosdeProveedorGet(CveProveedor As Integer, Folio As Integer, CveEmpresa As Integer) As Boolean
+    Public Function PrestamosdeProveedorGet(CveProveedor As Integer, Folio As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_PrestamosdeProveedorGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@Folio", SqlDbType.Int).Value = Folio
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try

App_Code/ClsVentas.vb

@@ -2501,7 +2501,8 @@ Public Class ClsVentas
 #Region "   PROMOCIONES   "
 
     Public Function GetPromociones(CvePromocion As Integer, Fecha As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer,
-                               CveSubProyecto As Integer, Optional CveMarca As Integer = -1, Optional CveUsuario As Integer = -1, Optional CvePS As Integer = -1) As Boolean
+                                   CveSubProyecto As Integer, Optional CveMarca As Integer = -1, Optional CveUsuario As Integer = -1, Optional CvePS As Integer = -1,
+                                   Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -2515,6 +2516,8 @@ Public Class ClsVentas
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuario
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
+            .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
         End With
         Try
             SqlAdapter.Fill(Data)

Ashx/TareasProgramadas.ashx

@@ -402,7 +402,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
                 Dim FechaCorte As DateTime = New DateTime(ClsPaginas.NowADS().Year, 12, 31)
 
                 If ObjMov.GetCxC(FechaI, FechaF, CveCliente, CveSubProyecto, CveVendedor, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, -1, TipoCambio, TCEspecifico, TipoDocto, FechaVI, FechaVF, FechaCorte:=FechaCorte,
-                                 EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1 ) Then
+                                 EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1) Then
                     DTClientes = ObjMov.DtResultados.FiltraParametros("CveCliente > 0", DistinctColumns:={"CveCliente"})
                 End If
 
@@ -1326,7 +1326,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
         objGenerales.Dispose()
         'MandaCorreoDiario
         Dim Correos As String = "hdiaz@grupodiaz.com.mx;libarra@grupodiaz.com.mx;jguerrero@grupodiaz.com.mx;contabilidad@grupodiaz.com.mx;cnazarit@yahoo.com;julian@adsistemas.mx;rene.molina@adssistemas.mx"
-        ' Dim Correos As String = " rene.molina@adssistemas.mx"
+        'Dim Correos As String = " rene.molina@adssistemas.mx;japmx95@gmail.com"
         MandaCorreoDiario(sbTablas.ToString(), Correos, respuesta)
         Return respuesta
     End Function

Compras/PopUpVerFactura.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports System.IO
 Imports System.Xml
 Imports Extensiones
+Imports iText.Barcodes.Dmcode
 Imports Microsoft.Reporting.WebForms
 Imports ZXing
 
@@ -6020,6 +6021,9 @@ Partial Class PopUpVerFactura
             End If
         Else
             If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+
+                ParamComprobacion = ObjIE.DtResultados
+
                 If ObjIE.DtResultados.Rows.Count > 0 Then
 
                     Dim reportDataSetsList As New List(Of ReportDataSource)
@@ -6096,6 +6100,14 @@ Partial Class PopUpVerFactura
                         ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
 
                     Else
+
+                        If UsuarioActual.CveEmpresa = 140 Then
+                            Dim Aplicado As Decimal = 0
+                            Dim ImporteDoc As Decimal = ParamComprobacion.Rows(0)("Importe").ToString.ToDecimal
+                            Dim LeyendaSaldo As String = $"Folio #{ParamComprobacion.Rows(0)("Folio").ToString} con importe de ${ImporteDoc.ToString("###,###,###.00")} y saldo antes de la comprobación de ${SaldoTotal.ToString("###,###,###.00")}, Comprobaciones a la fecha {ParamComprobacion.Rows(0)("FechaDocumento").ToString().ToDate().ToString("dd/MM/yyyy")}  ${ImportePagoTotal.ToString("###,###,###.00")} saldo después de la comprobación ${(SaldoTotal - ImportePagoTotal).ToString("###,###,###.00")} ."
+                            paramList.Add(New ReportParameter("LeyendaSaldo", LeyendaSaldo))
+                        End If
+
                         ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
                     End If
 

Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc

@@ -1121,7 +1121,9 @@
                       </Style>
                     </TextRun>
                   </TextRuns>
-                  <Style />
+                  <Style>
+                    <TextAlign>Center</TextAlign>
+                  </Style>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox1</rd:DefaultName>

Inventarios/Kardex.aspx

@@ -425,7 +425,7 @@
     </asp:UpdatePanel>
 
     <div class="row">
-        <div class="col-md-8">
+        <div class="col-md-7">
             <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpNumeroParte">
                 <ContentTemplate>
                     <asp:Label runat="server" ID="LblNumeroParte" Text="" Visible ="false"></asp:Label>
@@ -433,24 +433,54 @@
             </asp:UpdatePanel>
             
         </div>
-        <div class="col-md-2" style="text-align:right!important">
+        
+            
             <asp:UpdatePanel runat="server" ID="UpOCS" UpdateMode="Conditional">
                 <ContentTemplate> 
-                    <div id="DivIndicadorOC2" runat="server" visible="false" >
-                        <div style=" color: gray;font-size: 12px;font-weight: bold;">
-                            OC
-                        </div>
-                        <div style=" color: blue; font-size: 20px; font-weight: bold;">
-                            <asp:LinkButton ID="LnkIndicador_OC2" Text="" OnClick="LnkIndicador_OC_Click" runat="server" CssClass="Texto" />                                            
-                        </div>
 
+                    <div class="col-md-1" style="text-align:right!important">
+                        
+                        <div id="DivIndicadorOC2" runat="server" visible="false" >
+                            <div style=" color: gray;font-size: 12px;font-weight: bold;">
+                                OC
+                            </div>
+                            <div style=" color: blue; font-size: 20px; font-weight: bold;">
+                                <asp:LinkButton ID="LnkIndicador_OC2" Text="" OnClick="LnkIndicador_OC_Click" runat="server" CssClass="Texto" />                                            
+                            </div>
+
+                        </div>
                     </div>
 
+                   <div class="col-md-1" style="text-align:right!important">
+                       <div id="DivIndicadorL1" runat="server" visible="false" >
+                            <div style="font-size: 12px">
+                                <asp:Label runat="server" ID="LblHeaderL1"></asp:Label>
+                            </div>
+                            <div style="font-size: 12px">
+                                <asp:Label runat="server" ID="LblL1"></asp:Label>
+                            </div>
+
+                        </div>
+                   </div>
+
+                   <div class="col-md-1" style="text-align:right!important">
+                       <div id="DivIndicadorL2" runat="server" visible="false" >
+                             <div style="font-size: 12px">
+                                 <asp:Label runat="server" ID="LblHeaderL2"></asp:Label>
+                             </div>
+                             <div style="font-size: 12px">
+                                 <asp:Label runat="server" ID="LblL2"></asp:Label>
+                             </div>
+
+                         </div>
+                   </div>
+
+                  
                 </ContentTemplate>
             </asp:UpdatePanel>
                 
            
-        </div>
+        
         <div class="col-md-2">
             <div class="text-right" style="margin: 5px 0px;">
                 <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvM.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
@@ -467,67 +497,85 @@
             <asp:GridView ID="GvM" Width="100%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
                 ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" DataKeyNames="CveMovimiento,FechaMovto">
                 <Columns>
+                    <%--0--%>
                     <asp:BoundField DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="70px" HeaderText="Fecha" />
+                    <%--1--%>
                     <asp:TemplateField ItemStyle-Width="10px" ItemStyle-HorizontalAlign="Left" Visible="false">
                         <ItemTemplate>
                             <asp:LinkButton data-toggle="tooltip" title="Editar Fecha" ID="LnkEditarFecha" OnClick="LnkEditarFecha_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--2--%>
                     <asp:BoundField DataField="Concepto" HeaderText="Movimiento" ItemStyle-HorizontalAlign="Left" />
+                    <%--3--%>
                     <asp:BoundField DataField="Almacen" HeaderText="Almacén" ItemStyle-HorizontalAlign="Left" />
+                    <%--4--%>
                     <asp:TemplateField ItemStyle-Width="70px" HeaderText="Folio">
                         <ItemTemplate>
                             <asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--5--%>
                     <asp:BoundField DataField="AlmacenDestino" HeaderText="A.Destino" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px"  />
+                    <%--6--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Doc.">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--7--%>
+                    <asp:BoundField DataField="ClienteProveedor" HeaderText="Cliente/Proveedor" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                    <%--8--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel." Visible="false">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioDr" Text='<%# Eval("FolioRelacionEntrada")%>' NavigateUrl='<%# Eval("CveVentaRelacionada", "/Ventas/Ventas.aspx?CveVenta={0}")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--9--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Left" HeaderText="U. M.">
                         <ItemTemplate>
                             <asp:Label ID="lbUm" runat="server" Text='<%# Eval("UnidadMedida")%>' data-toggle="tooltip" title='<%# Eval("CveUnidadMedida")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--10--%>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Sección" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbSA" runat="server" Text='<%# Eval("SeccionAlmacen")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--11--%>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Serie" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbS" runat="server" Text='<%# Eval("Serie")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--12--%>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Lote" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbL" runat="server" Text='<%# Eval("Lote")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--13--%>
                     <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Center" HeaderText="F. Caducidad" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="lbFCad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}")%>' data-toggle="tooltip"></asp:Label>
                         </ItemTemplate>                        
                     </asp:TemplateField>
+                    <%--14--%>
                     <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" HeaderText="Entrada">
                         <ItemTemplate>
                             <asp:Label ID="lbEntrada" runat="server"
                                 Text='<%# Eval("Entrada", "{0:###,###.####}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--15--%>
                     <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" HeaderText="Salida">
                         <ItemTemplate>
                             <asp:Label ID="lbSalida" runat="server"
                                 Text='<%# Eval("Salida", "{0:###,###.####}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--16--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" HeaderText="Costo">
                         <ItemTemplate>
                             <asp:Label ID="lbCosto" runat="server"
@@ -535,24 +583,28 @@
                         </ItemTemplate>
                         <ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
+                    <%--17--%>
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Importe">
                         <ItemTemplate>
                             <asp:Label ID="lbImporte" runat="server"
                                 Text='<%# Eval("Importe", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--18--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" HeaderText="Existencias">
                         <ItemTemplate>
                             <asp:Label ID="lbExistencias" runat="server"
                                 Text='<%# Eval("Existencias", "{0:#,###.####}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--19--%>
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Valor">
                         <ItemTemplate>
                             <asp:Label ID="lbValor" runat="server"
                                 Text='<%# Eval("ValorInventario", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--20--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Center" HeaderText="OdeC">
                         <ItemTemplate>
                             <asp:Label ID="LbOC" runat="server" Text='<%# Eval("NoOrden")%>' data-toggle="tooltip" title='<%# Eval("CveOrdendeCorte")%>'></asp:Label>

Inventarios/Kardex.aspx.vb

@@ -79,16 +79,20 @@ Partial Class Inventarios_Kardex
     Private Sub CargaPermisos()
         If UsuarioActual.CveRol = 1 Then ChkAgruparAlmacen.Visible = True
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-        GvM.Columns(15).Visible = TienePermisoImportes ' costo
+        GvM.Columns(16).Visible = TienePermisoImportes ' costo
-        GvM.Columns(16).Visible = TienePermisoImportes ' importe
+        GvM.Columns(17).Visible = TienePermisoImportes ' importe
-        GvM.Columns(18).Visible = TienePermisoImportes ' valor
+        GvM.Columns(19).Visible = TienePermisoImportes ' valor
 
-        GvM.Columns(19).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1
+        GvM.Columns(20).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1
 
         If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
             DVFiltroCodigo.Visible = True
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            GvM.Columns(7).Visible = True
+        End If
+
     End Sub
 
     Private Function isWithFamily() As Boolean
@@ -261,13 +265,13 @@ Partial Class Inventarios_Kardex
                 AplicaAlmacenDestino = DtTemp.MAX("AlmacenDestino") <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1"
 
                 GvM.Columns(5).Visible = AplicaAlmacenDestino
-                GvM.Columns(7).Visible = DtTemp.MAX("FolioRelacionEntrada") <> ""
+                GvM.Columns(8).Visible = DtTemp.MAX("FolioRelacionEntrada") <> ""
 
-                If AplicaSeccion Then GvM.Columns(9).Visible = True
+                If AplicaSeccion Then GvM.Columns(10).Visible = True
-                If AplicaSerie Then GvM.Columns(10).Visible = True
+                If AplicaSerie Then GvM.Columns(11).Visible = True
-                If AplicaLote Then GvM.Columns(11).Visible = True
+                If AplicaLote Then GvM.Columns(12).Visible = True
-                If AplicaCaducidad Then GvM.Columns(12).Visible = True
+                If AplicaCaducidad Then GvM.Columns(13).Visible = True
-                If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(12).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
+                If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(13).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
 
                 Dim Drp As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
                 Dim AuxAplicaSerie As Boolean
@@ -341,6 +345,50 @@ Partial Class Inventarios_Kardex
         UpOCS.Update()
     End Sub
 
+
+    Private Sub CargaPreciosLista(CvePS As Integer)
+
+
+        LblHeaderL1.Text = ""
+        LblL1.Text = ""
+
+        LblHeaderL2.Text = ""
+        LblL2.Text = ""
+
+        DivIndicadorL1.Visible = False
+        DivIndicadorL2.Visible = False
+
+        Dim DTPrecioLista As New DataTable
+
+        Dim objPS As New ClsProductosServicios
+        If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CvePS:=CvePS) Then
+            DTPrecioLista = objPS.DtResultados.Copy
+        End If
+        objPS.Dispose()
+
+
+        If DTPrecioLista.Rows.Count = 1 Then
+            LblHeaderL1.Text = DTPrecioLista.Rows(0)("PrecioLista").ToString
+            LblL1.Text = DTPrecioLista.Rows(0)("Precio").ToString.ToDecimal.ToString("###,###,###.00")
+            DivIndicadorL1.Visible = True
+        ElseIf DTPrecioLista.Rows.Count >= 2 Then
+
+            LblHeaderL1.Text = DTPrecioLista.Rows(0)("PrecioLista").ToString
+            LblL1.Text = DTPrecioLista.Rows(0)("Precio").ToString.ToDecimal.ToString("###,###,###.00")
+
+            LblHeaderL2.Text = DTPrecioLista.Rows(1)("PrecioLista").ToString
+            LblL2.Text = DTPrecioLista.Rows(1)("Precio").ToString.ToDecimal.ToString("###,###,###.00")
+
+            DivIndicadorL1.Visible = True
+            DivIndicadorL2.Visible = True
+
+        End If
+
+
+
+
+    End Sub
+
     Private Function CargarKardex(CvePS As Integer) As DataTable
         Dim dt As DataTable = Nothing
 
@@ -409,6 +457,7 @@ Partial Class Inventarios_Kardex
 
                 If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                     CargarOCPendientesCompra()
+                    CargaPreciosLista(CvePS)
                     DivIndicadorOC.Visible = True
                     DivIndicadorOC2.Visible = True
                     UpOCS.Update()

Inventarios/PrestamosdeProveedor.aspx

@@ -16,24 +16,29 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel runat="server" ID="UpFiltraEntrega" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="portlet solid  grey-cascade portlet-filter">
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
                 <div class="portlet-title portlet-filterT smalltitle magindate">
                     <div class="tools">
                         <asp:Button ID="BtnCargaPendientes" runat="server" Text="Consultar" class="btn btn-default" />
                     </div>
                     <div class="titlefiltros caption ">
-
+                        <div class="row" style="display: flex; align-items: center;">
-                        <label class="col-md-1 truncate" style="text-align: right;">Proveedor:</label>
+                            <label class="col-md-1 truncate" style="text-align: right;">Proveedor:</label>
-                        <div class="col-md-3">
+                            <div class="col-md-2">
-                            <ADS:Dropdownlost ID="ddlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" AutoPostBack="true" CssClassDdl="select2me" CssStyle="width: 300px; "></ADS:Dropdownlost>
+                                <ADS:Dropdownlost ID="ddlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" AutoPostBack="true" CssClassDdl="select2me" CssStyle="width: 300px; "></ADS:Dropdownlost>
+                            </div>
+                            <label class="col-md-1 truncate" style="text-align: right;">Folio:</label>
+                            <div class="col-md-2">
+                                <asp:TextBox ID="TxtFolioEntrega" runat="server" Width="100px" CssClass="form-control input-sm"></asp:TextBox>
+                                <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtFolioEntrega" FilterType="Numbers" />
+                            </div>
+                            <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">Sucursal:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
                         </div>
-
-                        <label class="col-md-1 truncate" style="text-align: right;">Folio:</label>
-                        <div class="col-md-3">
-                            <asp:TextBox ID="TxtFolioEntrega" runat="server" Width="70px"></asp:TextBox>
-                            <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtFolioEntrega" FilterType="Numbers" />
-                        </div>
-
                     </div>
                 </div>
             </div>
@@ -138,7 +143,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
-                            <asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0" Enabled="false" Style="text-align:right;"></asp:TextBox>
+                            <asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0" Enabled="false" Style="text-align: right;"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
                         </ItemTemplate>
                     </asp:TemplateField>
@@ -146,19 +151,19 @@
                     <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
                     <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
                     <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="35%" />
-                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" Visible="false"/>
+                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" Visible="false" />
                     <asp:TemplateField HeaderText="Lote" ItemStyle-Width="10%" HeaderStyle-HorizontalAlign="Center" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="LtlLote" runat="server" Text='<%# Eval("Lote", "{0}") %>'></asp:Literal>
-                            <asp:Textbox ID="TxtLote" runat="server" Visible="false" Width="70px" Text='<%# Eval("Lote", "{0}") %>'></asp:Textbox>
+                            <asp:TextBox ID="TxtLote" runat="server" Visible="false" Width="70px" Text='<%# Eval("Lote", "{0}") %>'></asp:TextBox>
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Center" />
-                     </asp:TemplateField>
+                    </asp:TemplateField>
 
                     <asp:TemplateField HeaderText="Fecha" ItemStyle-Width="25%" HeaderStyle-HorizontalAlign="Center" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="LtlFechaCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal>
-                            <asp:Textbox ID="TxtFechaCaducidad" runat="server" Visible="false" Width="75px" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Textbox>                           
+                            <asp:TextBox ID="TxtFechaCaducidad" runat="server" Visible="false" Width="75px" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:TextBox>
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Center" />
                     </asp:TemplateField>

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -50,6 +50,9 @@ Partial Class Inventarios_PrestamosdeProveedor
         DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1)
         DdlAlmacenOrigen.DataBind()
 
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, CveEstatus:=1)
+        DdlSubProyecto.DataBind()
+
     End Sub
 
     Private Sub CargaDatos()
@@ -59,7 +62,7 @@ Partial Class Inventarios_PrestamosdeProveedor
         If TxtFolioEntrega.Text <> "" Then tFolio = TxtFolioEntrega.Text.ToEntero
         Dim ObjInv As New ClsInventarios
 
-        If ObjInv.PrestamosdeProveedorGet(tCveProveedor, tFolio, UsuarioActual.CveEmpresa) Then
+        If ObjInv.PrestamosdeProveedorGet(tCveProveedor, tFolio, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
             GvD.DataSource = ObjInv.DtResultados
             Dim Dr As Data.DataRow = ObjInv.DtResultados.FiltroPrimero("")
             If Dr IsNot Nothing AndAlso tFolio > 0 Then

Planeacion/CatFolios.aspx.vb

@@ -72,6 +72,9 @@ Partial Class CatFolios
             DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS"))
             DdlTipoDocto.Items.Insert(34, New ListItem("NC de Remisión", "RNC"))
             DdlTipoDocto.Items.Insert(35, New ListItem("Traspaso Carta Porte", "Tra"))
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                DdlTipoDocto.Items.Insert(35, New ListItem("Promoción", "PRM"))
+            End If
         ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then
             DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing"))
             DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs"))

Ventas/CatPromociones.aspx

@@ -9,7 +9,7 @@
                 <asp:LinkButton ID="ImgAddPromocion" PostBackUrl="/Ventas/Promociones.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i>Nueva Promoción</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkAccInactivar"  runat="server" OnClick="LnkAccInactivar_Click" Visible="false"><i class="fa fa-times" aria-hidden="true"></i>Inactivar</asp:LinkButton>
+                <asp:LinkButton ID="LnkAccInactivar" runat="server" OnClick="LnkAccInactivar_Click" Visible="false"><i class="fa fa-times" aria-hidden="true"></i>Inactivar</asp:LinkButton>
             </li>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -34,114 +34,121 @@
                             <a href="javascript:;" class="expand"></a>
                         </div>
                         <div class="titlefiltros  caption ">
-
+                            <div class="row" style="display: flex; align-items: center">
-                            <div class="row" style="padding-top: 10px;">
+                                <div class="col-md-3" style="display: flex; align-items: center">
-
+                                    <label style="min-width: 70px" class="truncate">Cliente</label>&nbsp;
-                                <div class="col-md-1">
+                                    <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:100%;"></ADS:Dropdownlost>
-                                    <asp:Label runat="server" ID="LblSubProyecto" class="truncate"></asp:Label>:
-                                </div>                                
-                                <div class="col-md-2 ">                                   
-                                     <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar"></asp:DropDownList>
                                 </div>
 
-                                <asp:Label runat="server" ID="Label1" class="col-md-1 truncate">Cliente:</asp:Label>
+                                <div class="col-md-3" style="display: flex; align-items: center">
-                                <div class="col-md-2 ">
+                                    <label style="min-width: 70px" class="truncate">Vendedor</label>&nbsp;
-                                      <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:100%;">
+                                <asp:DropDownList ID="DdlVendedor" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
-                                       </ADS:Dropdownlost>
                                 </div>
 
-                                <asp:Label runat="server" ID="Label2" class="col-md-1 truncate">Vendedor:</asp:Label>
+                                <div class="col-md-2 " style="display: flex; align-items: center">
-                                <div class="col-md-2 ">
+                                    <asp:Label runat="server" ID="LblSubProyecto" Style="min-width: 70px" class="truncate"></asp:Label>&nbsp;
-                                    <asp:DropDownList ID="DdlVendedor" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>     
+                                    <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                </div>
+
+                                <div class="col-md-2" style="display: flex; align-items: center">
+                                    <label style="min-width: 70px" class="truncate">Estatus</label>&nbsp;
+                                    <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100%" ValidationGroup="GrpGuardar">
+                                        <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                        <asp:ListItem Text="Activo" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
+                                    </asp:DropDownList>
                                 </div>
 
                             </div>
-
                         </div>
                     </div>
                     <div class="portlet-body" style="display: none">
-
                         <div class="row">
-                            <label class="col-md-1 truncate">Estatus:</label>
+                            <div class="col-md-3" style="display: flex; align-items: center">
-                            <div class="col-md-2">
+                                <label style="min-width: 70px" class="truncate">Marca</label>&nbsp;
-                                <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
+                                <asp:DropDownList ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
-                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                            </div>
-                                    <asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>
+                            <div class="col-md-3" style="display: flex; align-items: center;">
-                                    <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
+                                <label style="min-width: 70px" class="truncate">Producto</label>&nbsp;
-                                </asp:DropDownList>
+                                <ADS:Dropdownlost runat="server" Enabled="true" ID="DdlPS" Width="100%" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+                            </div>
+                            <div class="col-md-2" style="min-width: 200px; display: flex; align-items: center;">
+                                <label style="min-width: 70px" class="truncate">Fecha Inicio</label>&nbsp;
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                        <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" 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="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
 
-                              <asp:Label runat="server" ID="Label3" class="col-md-1 truncate">Marca:</asp:Label>
+                            <div class="col-md-2" style="min-width: 200px; display: flex; align-items: center">
-                              <div class="col-md-2 ">
+                                <label style="min-width: 70px" class="truncate">Fecha Fin</label>&nbsp;
-                                  <asp:DropDownList ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
-                              </div>
+                                        <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                            
+                                        <span class="input-group-btn ">
-
+                                            <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                            <asp:Label runat="server" ID="Label4" class="col-md-1 truncate">Producto:</asp:Label>
+                                        </span>
-                            <div class="col-md-2">
+                                    </div>
-                                <ADS:Dropdownlost runat="server" Enabled="true" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS"  />
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" 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="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-
-
                         </div>
                     </div>
-
                 </div>
             </asp:Panel>
         </ContentTemplate>
     </asp:UpdatePanel>
 
 
-  <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
+    <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
-
+        <div class="col-md-8">
-      <div class="col-md-8">
+        </div>
-
+        <div class="col-md-2">
-      </div>
+            <asp:UpdatePanel runat="server" ID="UpInactivar" UpdateMode="Conditional">
-
+                <ContentTemplate>
-      <div class="col-md-2">
+                    <asp:LinkButton runat="server" ID="LnkInactivar" CssClass="btn btn-primary" OnClick="LnkInactivar_Click" Visible="false"
-
+                        data-toggle="confirmation" data-popout="true" data-original-title="¿Inactivar selección?" data-btn-ok-label="si"><i class="fa fa-times" aria-hidden="true"></i> Inactivar</asp:LinkButton>
-          <asp:UpdatePanel runat="server" ID="UpInactivar" UpdateMode="Conditional">
+                </ContentTemplate>
-              <ContentTemplate>
+            </asp:UpdatePanel>
-                  <asp:LinkButton runat="server" ID="LnkInactivar" CssClass="btn btn-primary" OnClick="LnkInactivar_Click" Visible="false"
+        </div>
-                      data-toggle="confirmation" data-popout="true" data-original-title="¿Inactivar selección?" data-btn-ok-label="si" ><i class="fa fa-times" aria-hidden="true"></i> Inactivar</asp:LinkButton>
+        <div class="col-md-2">
-              </ContentTemplate>
+            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-          </asp:UpdatePanel>
-
-    </div>
-      <div class="col-md-2">
-          <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
             <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-
+        </div>
-            </div>
-
     </div>
 
-    
-
-
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-
+            <asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None"
-            <asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall ScrollAD"  data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None"
+                DataKeyNames="CvePromocion">
-                DataKeyNames="CvePromocion"
-                >
                 <Columns>
-                    <asp:TemplateField HeaderText=""  ItemStyle-HorizontalAlign="Left" Visible="false" >
+                    <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Left" Visible="false">
                         <HeaderTemplate>
-                            <input type="checkbox" id="chkSelectAll"  onclick="checkAll()" />
+                            <input type="checkbox" id="chkSelectAll" onclick="checkAll()" />
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:CheckBox runat="server" ID="chk" CssClass="selChk" />
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Promoción"  ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField HeaderText="Promoción" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
-                            <asp:HyperLink runat="server" ID="HLPromocion" Text='<%# Eval("Promocion").ToString %>' NavigateUrl ='<%# Eval("CvePromocion", "/Ventas/Promociones.aspx?CvePromocion={0}") %>' CssClass="Texto"></asp:HyperLink>
+                            <asp:HyperLink runat="server" ID="HLPromocion" Text='<%# Eval("Promocion").ToString %>' NavigateUrl='<%# Eval("CvePromocion", "/Ventas/Promociones.aspx?CvePromocion={0}") %>' CssClass="Texto"></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:BoundField DataField="NombreComercial" HeaderText="Cliente"  />
+                    <asp:BoundField DataField="NombreComercial" HeaderText="Cliente" />
                     <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" />
-                    <asp:BoundField DataField="Marca" HeaderText="Marca"  />
+                    <asp:BoundField DataField="Marca" HeaderText="Marca" />
 
                     <asp:BoundField DataField="FechaInicio" DataFormatString="{0:d}" HeaderText="F. Inicio" ItemStyle-Width="80px" />
                     <asp:BoundField DataField="FechaFin" DataFormatString="{0:d}" HeaderText="F. Fin" ItemStyle-Width="80px" />

Ventas/CatPromociones.aspx.vb

@@ -36,7 +36,16 @@ Partial Class Ventas_CatPromociones
 
     Private Sub InicializaControles()
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            txtFechaI.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy")
+            txtFechaF.Text = Now.AddMonths(1).ToString("dd/MM/yyyy")
+        End If
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            DdlEstatus.SelectedValueExist("-1")
+        Else
+            DdlEstatus.SelectedValueExist("1")
+        End If
 
         CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
 
@@ -71,25 +80,26 @@ Partial Class Ventas_CatPromociones
     End Sub
 
     Private Sub CargaDatos()
-
-
-        Dim ObjVentas As New ClsVentas
         Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
         Dim CvePS As Integer = If(DdlPS.SelectedValue.ToEntero > 0, DdlPS.SelectedValue.ToEntero, -1)
 
+        Dim FechaI, FechaF As Date
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha)
+        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha)
 
+        Dim ObjVentas As New ClsVentas
         If ObjVentas.GetPromociones(-1, MinFecha, DdlVendedor.SelectedValue.ToEntero, CveCliente, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, CveUsuario:=UsuarioActual.CveUsuario,
-                                    CveMarca:=DdlMarca.SelectedValue.ToEntero, CvePS:=CvePS) Then
+                                    CveMarca:=DdlMarca.SelectedValue.ToEntero, CvePS:=CvePS, FechaI:=FechaI, FechaF:=FechaF) Then
-            DtDatos = ObjVentas.DtResultados
+            DtDatos = ObjVentas.DtResultados.Copy()
         Else
             DtDatos = Nothing
             Alert("Ocurrio un error al cargar las promociones. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         End If
+        ObjVentas.Dispose()
 
         If DtDatos IsNot Nothing Then
             CargaGrid()
         End If
-
     End Sub
 
     Private Sub CargaGrid()

Ventas/Promociones.aspx

@@ -107,7 +107,7 @@
                                     <%--                                  <asp:DropDownList ID="DdlSucursal" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="select2me" runat="server"  Width="350px"></asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVSucursal" runat="server" ControlToValidate="DdlSucursal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCESucursal" runat="server" HighlightCssClass="vco" TargetControlID="RFVSucursal" Width="300px"></ajax:ValidatorCalloutExtender>--%>
-                                    <asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyecto" AutoPostBack="true" OnSelectedIndexChanged="DdlSubProyecto_SelectedIndexChanged" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCESubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
                                 </div>

Ventas/Promociones.aspx.vb

@@ -327,6 +327,9 @@ Partial Class Ventas_Promociones
                 End If
             Next
 
+            TxtPromocion.Enabled = False
+            TxtPromocion.ReadOnly = True
+
         End If
 
     End Sub
@@ -857,6 +860,11 @@ Partial Class Ventas_Promociones
 
     Private Sub GuardaPromocion()
 
+        If String.IsNullOrEmpty(TxtPromocion.Text.Trim) Then
+            Alert("Debe asignar un nombre a la promoción.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If EmpresaGrupoDiaz Then
 
             If DdlClientes.SelectedValue.ToEntero <= 0 AndAlso Not PermisoAutorizPromocionPorcentaje Then
@@ -1567,4 +1575,22 @@ Partial Class Ventas_Promociones
         UpAgregar.Update()
     End Sub
 
+
+    Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If Me.CvePromocion <= 0 Then
+            Dim ObjFolios As New ClsGralFolios()
+            If ObjFolios.GetFolios("PRM", UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()) Then
+                Dim DT As DataTable = ObjFolios.DtResultados
+                If DT.Rows.Count > 0 Then
+                    TxtPromocion.Text = String.Format("{0}-{1}", DT.Rows(0)("Serie"), DT.Rows(0)("FActual"))
+                Else
+                    TxtPromocion.Text = ""
+                End If
+                DT.Dispose()
+            End If
+            ObjFolios.Dispose()
+
+            UpGenerales.Update()
+        End If
+    End Sub
 End Class

Ventas/Ventas.aspx.vb

@@ -9088,7 +9088,7 @@ Partial Class Ventas
                     If DdlTipoComprobante.SelectedValue.Contiene("Cot") Then
                         e.Row.FCHyperLink("HLPS").Visible = True
                         e.Row.FCLabel("LblPS").Visible = False
-                        e.Row.FCHyperLink("HLPS").NavigateUrl = String.Format("/Inventarios/Kardex.aspx?CveSubProyecto={0}", DdlSubProyectoDatos.SelectedValue.ToEntero())
+                        e.Row.FCHyperLink("HLPS").NavigateUrl = String.Format("/Inventarios/Kardex.aspx?CvePS={0}&CveSubProyecto={1}", e.Row.DBCampo("CvePS"), DdlSubProyectoDatos.SelectedValue.ToEntero())
                     Else
                         e.Row.FCHyperLink("HLPS").Visible = False
                         e.Row.FCLabel("LblPS").Visible = True