Descarga Extenciones FireFox, Rep Cartra Prote Traslados

2022-02-28 18:53:27 -07:00
parent 150ee16aab
commit d00b6d93b3
5 changed files with 299 additions and 8 deletions
--- a/Compras/RepCartaPorteTraslados.aspx.vb
+++ b/Compras/RepCartaPorteTraslados.aspx.vb
@@ -0,0 +1,117 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Compras_RepCartaPorteTraslados
+    Inherits ClsPaginas
+
+    'Private Property DTComplemntos As DataTable
+    '    Get
+    '        If ViewState("DTComplemntos") Is Nothing Then
+    '            Return New DataTable
+    '        Else
+    '            Return DirectCast(ViewState("DTComplemntos"), DataTable)
+    '        End If
+    '    End Get
+    '    Set(value As DataTable)
+    '        ViewState("DTComplemntos") = value
+    '    End Set
+    'End Property
+
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+
+            InicializaValores()
+
+        End If
+    End Sub
+
+#Region "  INICIALIZA VALORES  "
+    Private Sub InicializaValores()
+
+        TxtFiltrosFechaInicio.Text = Now.FirstDayOfMonth.ToShortDateString
+        TxtFiltrosFechaFin.Text = Now.ToShortDateString
+
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+
+        'DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlProveedores.DataBind()
+        'DdlProveedores.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        'DdlSubProyecto.DataBind()
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)
+
+        DdlUsuarioRegistra.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        DdlUsuarioRegistra.DataBind()
+        DdlUsuarioRegistra.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        UpFiltros.Update()
+    End Sub
+#End Region
+
+
+#Region "  CARGA DATOS  "
+    Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+    Private Sub CargaDatos()
+
+        LnkExcel.Visible = False
+
+        Dim CveProveedor As Integer = If(DdlProveedores.SelectedValue.ToEntero = 0, -1, DdlProveedores.SelectedValue.ToEntero)
+        Dim CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
+        Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha)
+        Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha)
+        Dim Count As Integer = 0
+
+        Dim ObjCompras As New ClsCompras
+        If ObjCompras.GetComplementoTrasladoRep(UsuarioActual.CveEmpresa, CveProveedor, CveTipoProveedor, FechaInicio, FechaFin, UsuarioActual.CveUsuario, DdlUsuarioRegistra.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero) Then
+            GvDatos.DataSource = ObjCompras.DtResultados
+
+            If ObjCompras.DtResultados.Rows.Count > 0 Then
+                LnkExcel.Visible = True
+            End If
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjCompras.Dispose()
+
+        GvDatos.DataBind()
+
+        UpAcciones.Update()
+        UpDatos.Update()
+
+
+    End Sub
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+        End If
+    End Sub
+#End Region
+
+
+
+
+#Region "IMPRESION"
+
+    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs)
+        GeneraImpresion("Excel")
+    End Sub
+
+    Private Sub GeneraImpresion(Optional Formato As String = "PDF")
+
+        GvDatos.ExportToExcel2("RepCartaPorteTraslados.xlsx")
+
+    End Sub
+#End Region
+End Class