From 20608943697455f4428006264538eeaf8bf02bbe Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Thu, 11 Aug 2022 19:26:03 -0700
Subject: [PATCH] RepVentas Cartas porte, Consignaciones, serie lote

---
 App_Code/ClsVentas.vb                  |  26 ++++
 Empresas/13/Formatos/ReciboDePago.rdlc |   9 +-
 Inventarios/Consignaciones.aspx        | 128 ++++++++++----------
 Inventarios/Consignaciones.aspx.vb     | 159 +++++++++++++++----------
 Ventas/RepVentas.aspx                  |  10 +-
 Ventas/RepVentas.aspx.vb               |  27 +++++
 6 files changed, 224 insertions(+), 135 deletions(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 8058e13d5..9aee1fca2 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -860,6 +860,9 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+
+
+
     Public Function UpdateVentaRNCUsado(CveVentaRNC As Integer, CveVenta As Integer) As Boolean
         Dim Retorno As Boolean = False
 
@@ -5544,6 +5547,29 @@ Public Class ClsVentas
 
 #End Region
 
+    Public Function GetListadoCartaPorteRep(FechaI As Date, FechaF As Date, CveSubProyecto As String, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_RepListadoCartaPorteGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto
+            .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error obtener el listado de carta porte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+
+
+    End Function
+
+
 #Region "IDisposable Support"
 
 
diff --git a/Empresas/13/Formatos/ReciboDePago.rdlc b/Empresas/13/Formatos/ReciboDePago.rdlc
index 4e47b8017..36a1aa69e 100644
--- a/Empresas/13/Formatos/ReciboDePago.rdlc
+++ b/Empresas/13/Formatos/ReciboDePago.rdlc
@@ -1514,7 +1514,6 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -1869,7 +1868,6 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -2224,7 +2222,6 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -2579,7 +2576,6 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -2934,7 +2930,6 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -4948,7 +4943,7 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>EXPLORACIONES MINERAS DEL DESIERTO S.A. DE C.V. RFC: EMD950206SRA </Value>
+                  <Value>EXPLORACIONES MINERAS DEL DESIERTO S.A. DE C.V. </Value>
                   <Style>
                     <FontStyle>Normal</FontStyle>
                     <FontSize>8pt</FontSize>
@@ -4965,7 +4960,7 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>Tipo de Comprobante: I - Ingreso </Value>
+                  <Value>RFC: EMD950206SRA </Value>
                   <Style>
                     <FontStyle>Normal</FontStyle>
                     <FontSize>8pt</FontSize>
diff --git a/Inventarios/Consignaciones.aspx b/Inventarios/Consignaciones.aspx
index 90a5bdc4d..29ec3f198 100644
--- a/Inventarios/Consignaciones.aspx
+++ b/Inventarios/Consignaciones.aspx
@@ -361,8 +361,7 @@
                                     <th width="100px">
                                         <asp:Literal ID="LtCantidad" Text="Cantidad" runat="server" />
                                     </th>
-                                    <th width="300px">Clasificación
-                                            <br />
+                                    <th width="300px">                                            
                                         Producto
                                     </th>
                                     <th width="90px">Unidad</th>
@@ -390,14 +389,18 @@
                                 <td style="text-align: left;" align="center">
                                     <div class="psagregar">
                                         <div class="comboxes">
-                                            <asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="form-control input-sm select2me">
+                                         <%--   <asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="form-control input-sm select2me">
                                                 <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
                                             </asp:DropDownList>
-                                            <br />
-                                            <asp:DropDownList ID="DdlProducto" runat="server" DataTextField="PSCodigo" AutoPostBack="true" DataValueField="CvePS" Class="form-control input-sm select2me"></asp:DropDownList>
-                                            <select id="DdlProductows" runat="server" class="form-control"></select><asp:Button ID="myhidenbutton" runat="server" Text="Button" Style="display: none;" />
+                                            <br />--%>
+                                            <%--<asp:DropDownList ID="DdlProducto" runat="server" DataTextField="PSCodigo" AutoPostBack="true" DataValueField="CvePS" Class="form-control input-sm select2me"></asp:DropDownList>--%>
+
+                                            <ADS:Dropdownlost Onselectedindexchange="DdlProducto_selectedindexchange" runat="server" ID="DdlProducto" CssStyle="width:100%%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
+
+
+                                        <%--    <select id="DdlProductows" runat="server" class="form-control"></select><asp:Button ID="myhidenbutton" runat="server" Text="Button" Style="display: none;" />
                                             <asp:HiddenField ID="HFProducto" runat="server" />
-                                            <asp:HiddenField ID="HFTProducto" runat="server" />
+                                            <asp:HiddenField ID="HFTProducto" runat="server" />--%>
                                         </div>
                                     </div>
                                 </td>
@@ -725,7 +728,8 @@
     <script type="text/javascript">
 
         function AddItem(Text, Value, idproductows) {
-            // Create an Option object <%= DdlProductows.ClientID%>
+           
+            <%--      Create an Option object <%= DdlProductows.ClientID%>  --%>
 
             var opt = document.createElement("option");
 
@@ -741,7 +745,7 @@
         }
 
 
-        Sys.Application.add_load(function (s, e) {
+<%--        Sys.Application.add_load(function (s, e) {
 
             var Tam = TamañoVentana();
             var Alto = Tam.height - 300;
@@ -805,73 +809,73 @@
             }
 
 
-        });
+        });--%>
 
         var DdlProductows = '-1';
         var DdlProducto = '-1';
         var HFProducto = '-1';
         var HFTProducto = '-1';
         var Myhidenbutton = '-1';
-        function Asigna105(tDdlProductows, tDdlProducto, tHFProducto, tHFTProducto, tsMyhidenbutton) {
+        //function Asigna105(tDdlProductows, tDdlProducto, tHFProducto, tHFTProducto, tsMyhidenbutton) {
 
 
-            DdlProductoWS = tDdlProductows;
-            DdlProducto = tDdlProducto;
-            HFProducto = tHFProducto;
-            tHFTProducto = tHFTProducto;
-            Myhidenbutton = tsMyhidenbutton;
+        //    DdlProductoWS = tDdlProductows;
+        //    DdlProducto = tDdlProducto;
+        //    HFProducto = tHFProducto;
+        //    tHFTProducto = tHFTProducto;
+        //    Myhidenbutton = tsMyhidenbutton;
 
-            Asigna1052(DdlProductows, DdlProducto, HFProducto, HFTProducto, sMyhidenbutton);
-        }
+        //    Asigna1052(DdlProductows, DdlProducto, HFProducto, HFTProducto, sMyhidenbutton);
+        //}
 
-        function Asigna1052(DdlProductows, DdlProducto, HFProducto, HFTProducto, sMyhidenbutton) {
+        //function Asigna1052(DdlProductows, DdlProducto, HFProducto, HFTProducto, sMyhidenbutton) {
 
-            if ($(DdlProductows)) {
-                if (!($(HFProducto).val() === '')) {
-                    AddItem($(HFTProducto).val(), $(HFProducto).val(), DdlProductows.replace('#', ''));
-                }
-            }
-            if ($(DdlProductows).data('creado') === '1') { } else {
-                $(DdlProductows).data('creado', '1')
-                $(DdlProductows).select2({
-                    ajax: {
-                        url: "/Ashx/SIGWeb.ashx",
-                        dataType: 'json',
-                        delay: 250,
-                        data: function (params) {
-                            return {
-                                Name: params.term, // search term
-                                Metodo: 'getps'
-                            };
-                        },
-                        processResults: function (data, params) {
-                            params.page = params.page || 1;
+        //    if ($(DdlProductows)) {
+        //        if (!($(HFProducto).val() === '')) {
+        //            AddItem($(HFTProducto).val(), $(HFProducto).val(), DdlProductows.replace('#', ''));
+        //        }
+        //    }
+        //    if ($(DdlProductows).data('creado') === '1') { } else {
+        //        $(DdlProductows).data('creado', '1')
+        //        $(DdlProductows).select2({
+        //            ajax: {
+        //                url: "/Ashx/SIGWeb.ashx",
+        //                dataType: 'json',
+        //                delay: 250,
+        //                data: function (params) {
+        //                    return {
+        //                        Name: params.term, // search term
+        //                        Metodo: 'getps'
+        //                    };
+        //                },
+        //                processResults: function (data, params) {
+        //                    params.page = params.page || 1;
 
-                            return {
-                                results: data,
-                                pagination: {
-                                    more: (params.page * 30) < data.total_count
-                                }
-                            };
-                        },
-                        cache: true
-                    },
-                    escapeMarkup: function (markup) { return markup; }, // let our custom formatter work
-                    minimumInputLength: 3
-                });
-            }
-            if ($(DdlProductows)) {
-                if (!($(HFProducto).val() === '')) {
-                    AddItem($(HFTProducto).val(), $(HFProducto).val(), DdlProductows.replace('#', ''));
-                }
-                $(DdlProductows).on("select2:select", function (e) { console.log(e); $(HFProducto).val(e.params.data.id); $(HFTProducto).val(e.params.data.text); $(sMyhidenbutton).click(); });
-            }
-            if ($(DdlProducto)) {
-                $(DdlProducto).on("select2:select", function (e) { console.log(e); $(HFProducto).val(e.params.data.id); $(HFTProducto).val(e.params.data.text); });
+        //                    return {
+        //                        results: data,
+        //                        pagination: {
+        //                            more: (params.page * 30) < data.total_count
+        //                        }
+        //                    };
+        //                },
+        //                cache: true
+        //            },
+        //            escapeMarkup: function (markup) { return markup; }, // let our custom formatter work
+        //            minimumInputLength: 3
+        //        });
+        //    }
+        //    if ($(DdlProductows)) {
+        //        if (!($(HFProducto).val() === '')) {
+        //            AddItem($(HFTProducto).val(), $(HFProducto).val(), DdlProductows.replace('#', ''));
+        //        }
+        //        $(DdlProductows).on("select2:select", function (e) { console.log(e); $(HFProducto).val(e.params.data.id); $(HFTProducto).val(e.params.data.text); $(sMyhidenbutton).click(); });
+        //    }
+        //    if ($(DdlProducto)) {
+        //        $(DdlProducto).on("select2:select", function (e) { console.log(e); $(HFProducto).val(e.params.data.id); $(HFTProducto).val(e.params.data.text); });
 
-            }
+        //    }
 
-        }
+        //}
 
 
 
diff --git a/Inventarios/Consignaciones.aspx.vb b/Inventarios/Consignaciones.aspx.vb
index 13a90fff7..7c48b41bf 100644
--- a/Inventarios/Consignaciones.aspx.vb
+++ b/Inventarios/Consignaciones.aspx.vb
@@ -88,6 +88,24 @@ Partial Class Inventarios_Consignaciones
         TxtFechaTraspaso.Text = Now.ToShortDateString
         TxtFechaDevolucion.Text = Now.ToShortDateString
         SoloLectura = False
+
+        'Carga Productos
+        DdlProducto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+            DdlProducto.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
+            DdlProducto.SelectedText = ""
+            DdlProducto.SelectedValue = "-1"
+            DdlProducto.ddl.Visible = False
+
+        Else
+            DdlProducto.ddl.Items.Clear()
+            DdlProducto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1)
+            DdlProducto.ddl.DataBind()
+            DdlProducto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+            DdlProducto.ddlWS.Visible = False
+        End If
+
     End Sub
 
     Protected Sub CreaDT()
@@ -136,12 +154,12 @@ Partial Class Inventarios_Consignaciones
     Private Sub CargaCombos()
 
         'Llenar Clasificaciones
-        If UsuarioActual.CveEmpresa = 66 Then
-            DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
-        Else
-            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
-        End If
-        DdlClasificacion.DataBind()
+        'If UsuarioActual.CveEmpresa = 66 Then
+        '    DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+        'Else
+        '    DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        'End If
+        'DdlClasificacion.DataBind()
 
 
         'Llena unidades de medida
@@ -168,15 +186,19 @@ Partial Class Inventarios_Consignaciones
         DdlProveedorFiltro.SelectedValue = "-1"
         DdlProveedorFiltro.SelectedText = "Seleccione el Proveedor"
 
-        'Llenar el dropdownlist de Productos y servicios 
-        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-            DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
-            DdlProducto.DataBind()
-            DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
-            DdlProductows.Visible = False
-        Else
-            DdlProducto.Visible = False
-        End If
+        ''Llenar el dropdownlist de Productos y servicios 
+        'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+        '    DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+        '    DdlProducto.DataBind()
+        '    DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
+        '    DdlProductows.Visible = False
+        'Else
+        '    DdlProducto.Visible = False
+        'End If
+
+
+
+
 
         DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
         DdlSeccionAlmacen.DataBind()
@@ -411,9 +433,9 @@ Partial Class Inventarios_Consignaciones
         ImgFecha.Enabled = Not Accion
 
         TxtCantidad.Enabled = Not Accion
-        DdlClasificacion.Enabled = Not Accion
+        'DdlClasificacion.Enabled = Not Accion
         DdlProducto.Enabled = Not Accion
-        DdlProductows.Disabled = Accion
+        ' DdlProductows.Disabled = Accion
         DdlUnidad.Enabled = Not Accion
         TxtPU.Enabled = Not Accion
         LbAgregar.Visible = Not Accion
@@ -486,7 +508,7 @@ Partial Class Inventarios_Consignaciones
                 Else
                     e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
                 End If
-                DdlClasificacion.DataBind()
+                'DdlClasificacion.DataBind()
                 e.Row.FCDropDownList("DdlClasificacion").DataBind()
                 e.Row.FCDropDownList("DdlClasificacion").SelectedValue = e.Row.DBCampo("CveClasificacion")
 
@@ -585,7 +607,7 @@ Partial Class Inventarios_Consignaciones
         AddNew()
     End Sub
     Protected Sub AddNew()
-        Dim PSSelected As Integer = HFProducto.Value.ToEntero
+        Dim PSSelected As Integer = DdlProducto.SelectedValue.ToEntero
 
         If PSSelected > 0 Then
 
@@ -632,7 +654,7 @@ Partial Class Inventarios_Consignaciones
                     registro.Item("CveUM") = DdlUnidad.SelectedValue.ToEntero
                     registro.Item("UnidadMedida") = DdlUnidad.SelectedItem.Text
                     registro.Item("CvePS") = PSSelected
-                    registro.Item("PS") = HFTProducto.Value
+                    registro.Item("PS") = DdlProducto.txtText.Value
                     registro.Item("PSCodigo") = PSCodigo
                     registro.Item("CveClasificacion") = CveClasificacion
                     registro.Item("EstatusExistencia") = "1"
@@ -838,10 +860,13 @@ Partial Class Inventarios_Consignaciones
         DdlMoneda_SelectedIndexChanged(DdlMoneda, EventArgs.Empty)
 
         TxtCantidad.Text = ""
-        DdlClasificacion.SelectedValueExist(-1)
-        DdlProducto.SelectedValueExist(-1)
-        DdlProductows.Items.Clear()
-        DdlProductows.DataBind()
+        'DdlClasificacion.SelectedValueExist(-1)
+
+        DdlProducto.txtText.Value = ""
+        DdlProducto.txtValue.Value = ""
+
+        'DdlProductows.Items.Clear()
+        'DdlProductows.DataBind()
         TxtPU.Text = ""
 
         'DEVOLUCION
@@ -916,7 +941,7 @@ Partial Class Inventarios_Consignaciones
                 End If
 
                 'AGREGAMOS MOVTOS DETALLE
-                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, "", "") Then
+                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("Serie").ToString, Gvr.DataKey("Lote").ToString) Then
                     ErrorMovInv = True
                     TextoError = "Ocurrió un Error al guardar los movimientos"
                     Exit For
@@ -1555,31 +1580,29 @@ Partial Class Inventarios_Consignaciones
 
 
 #Region "DDL CLASIFICACION"
-    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
-        ChangeDdlProducto()
-    End Sub
-    Private Sub ChangeDdlProducto()
-        If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
-            DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
-            DdlProducto.DataBind()
-            DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
-        End If
-        HFProducto.Value = ""
-        HFTProducto.Value = ""
-    End Sub
+    'Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+    '    ChangeDdlProducto()
+    'End Sub
+    'Private Sub ChangeDdlProducto()
+    '    If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
+    '        DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
+    '        DdlProducto.DataBind()
+    '        DdlProducto.Items.Insert(0, New ListItem("----", "-1"))
+    '    End If
+    '    HFProducto.Value = ""
+    '    HFTProducto.Value = ""
+    'End Sub
 
-    Protected Sub DdlProducto_ValueChanged(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged
-        ElProductoChange()
-    End Sub
-    Protected Sub HFProducto_ValueChanged(sender As Object, e As EventArgs) Handles HFProducto.ValueChanged
-        ElProductoChange()
-    End Sub
+    'Protected Sub DdlProducto_ValueChanged(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged
+    '    ElProductoChange()
+    'End Sub
+    'Protected Sub HFProducto_ValueChanged(sender As Object, e As EventArgs) Handles HFProducto.ValueChanged
+    '    ElProductoChange()
+    'End Sub
     Private Sub ElProductoChange()
-        If HFProducto.Value = "" Then
-            HFProducto.Value = DdlProducto.SelectedValue
-        End If
 
-        DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(HFProducto.Value.ToEntero, -1, UsuarioActual.CveEmpresa)
+
+        DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProducto.txtValue.Value.ToEntero, -1, UsuarioActual.CveEmpresa)
         DdlUnidad.DataBind()
         UpDatos.Update()
     End Sub
@@ -1599,25 +1622,25 @@ Partial Class Inventarios_Consignaciones
     Private Function isWhitFamily() As Boolean
         Return (UsuarioActual.CveEmpresa = 66)
     End Function
-    Protected Sub DdlProducto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProducto.SelectedIndexChanged
-        If Not DdlProducto.SelectedValue = "" Then
-            'If DtPS.FiltraParametros( string.Format("CvePS = {0} AND Inv_CveMetodoInventario = 3 ",DdlProducto.SelectedValue)).Rows.Count > 0 Then
-            '    LblSerieLote.Visible = True
-            '    TxtnSerieLote.Visible = True
-            'Else
-            '    LblSerieLote.Visible = False
-            '    TxtnSerieLote.Visible = False
-            'End If
-        End If
-        Dim dtpse As DataTable
-        dtpse = GlobalDTProductosServiciosEquivalencias(DdlProducto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
-        'dtpse.Columns("UM").ColumnName = "UnidadMedida"
-        'dtpse.Columns("CveUM").ColumnName = "CveUnidadMedida"
-        DdlUnidad.DataSource = dtpse
-        DdlUnidad.DataBind()
+    'Protected Sub DdlProducto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProducto.SelectedIndexChanged
+    '    If Not DdlProducto.SelectedValue = "" Then
+    '        'If DtPS.FiltraParametros( string.Format("CvePS = {0} AND Inv_CveMetodoInventario = 3 ",DdlProducto.SelectedValue)).Rows.Count > 0 Then
+    '        '    LblSerieLote.Visible = True
+    '        '    TxtnSerieLote.Visible = True
+    '        'Else
+    '        '    LblSerieLote.Visible = False
+    '        '    TxtnSerieLote.Visible = False
+    '        'End If
+    '    End If
+    '    Dim dtpse As DataTable
+    '    dtpse = GlobalDTProductosServiciosEquivalencias(DdlProducto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
+    '    'dtpse.Columns("UM").ColumnName = "UnidadMedida"
+    '    'dtpse.Columns("CveUM").ColumnName = "CveUnidadMedida"
+    '    DdlUnidad.DataSource = dtpse
+    '    DdlUnidad.DataBind()
 
 
-    End Sub
+    'End Sub
 #End Region
 
 
@@ -1680,7 +1703,8 @@ Partial Class Inventarios_Consignaciones
 
 #Region "Columnas Opcionales en PS"
 
-    Protected Sub DdlProducto_Click(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged
+
+    Protected Sub DdlProducto_selectedindexchange(sender As Object, e As EventArgs)
         If DdlProducto.SelectedValue.ToEntero > 0 Then
             Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto.SelectedValue.ToEntero).FiltroPrimero("")
 
@@ -1710,9 +1734,14 @@ Partial Class Inventarios_Consignaciones
             End If
             UpDatos.Update()
         End If
+        ElProductoChange()
+
+
     End Sub
 #End Region
 
 
 
+
+
 End Class
diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx
index 459cf763a..28400d0ef 100644
--- a/Ventas/RepVentas.aspx
+++ b/Ventas/RepVentas.aspx
@@ -72,7 +72,7 @@
             <li>
                 <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
             </li>
-        </ContentTemplate>
+        </ContentTemplate>      
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpLnkHP" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
@@ -89,7 +89,15 @@
             <li>
                 <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server"><i class="fa fa-signal"></i> Ver Grafica</asp:LinkButton>
             </li>
+
+             <li>
+                <asp:LinkButton ID="LnkDescargaCartaPorte" OnClick="LnkDescargaCartaPorte_Click"     runat="server" Visible="false"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Descarga Carta Porte</asp:LinkButton>
+            </li>
+
         </ContentTemplate>
+          <Triggers>
+            <asp:PostBackTrigger ControlID="LnkDescargaCartaPorte" />
+        </Triggers>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 551cbb3d9..ae9338284 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -120,6 +120,11 @@ Partial Class Ventas_RepVentas
                 DdlVendedor.Attributes.Add("disabled", "disabled")
                 DdlVendedor.Enabled = False
             End If
+
+            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                LnkDescargaCartaPorte.Visible = True
+            End If
+
         End If
 
     End Sub
@@ -936,4 +941,26 @@ Partial Class Ventas_RepVentas
         Context.Response.End()
     End Sub
 
+
+    Protected Sub LnkDescargaCartaPorte_Click(sender As Object, e As EventArgs)
+
+
+        Dim ObjVentas As New ClsVentas
+        Dim DTDataos As New DataTable
+        Dim CveSubProyectos As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
+
+
+        If ObjVentas.GetListadoCartaPorteRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveSubProyectos, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            DTDataos = ObjVentas.DtResultados
+        End If
+
+        ObjVentas.Dispose()
+
+
+        DTDataos.ExportToExcel("RepCartasPorte.xls")
+
+
+    End Sub
+
+
 End Class