RepVentas Cartas porte, Consignaciones, serie lote

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">

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