RepVentas Cartas porte, Consignaciones, serie lote

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