Commit inicial Ventas Productivo

Ventas/RepComisionesDetallePS.aspx.vb

@@ -0,0 +1,69 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Partial Class Ventas_RepComisionesDetallePS
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaParametrosUrl()
+        End If
+    End Sub
+
+
+#Region "  CARGA PARAMETROS URL  "
+    Private Sub CargaParametrosUrl()
+        Dim FechaI, FechaF As String
+        Dim CveVendedor, CveVenta, CveSubProyecto As Integer
+
+        CveVendedor = If(Request("CveVendedor") IsNot Nothing AndAlso Request("CveVendedor").ToEntero() > 0, Request("CveVendedor").ToEntero(), -1)
+        CveSubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1)
+        CveVenta = If(Request("CveVenta") IsNot Nothing AndAlso Request("CveVenta").ToEntero() > 0, Request("CveVenta").ToEntero(), -1)
+        FechaI = If(Request("FI") IsNot Nothing, Request("FI").ToString, "-1").ToString
+        FechaF = If(Request("FF") IsNot Nothing, Request("FF").ToString, "-1").ToString
+
+        CargaDatos(CveVendedor, FechaI, FechaF, CveVenta, CveSubProyecto)
+    End Sub
+#End Region
+
+
+#Region "  CARGA DATOS  "
+    Private Sub CargaDatos(CveVendedor As Integer, FI As String, FF As String, CveVenta As Integer, CveSubProyecto As Integer)
+
+        Dim FechaI = If(IsDate(FI), FI.ToDate, MinFecha)
+        Dim FechaF = If(IsDate(FF), FF.ToDate, MaxFecha)
+
+        Dim ObjComisiones As New ClsEsquemasComisiones()
+        If ObjComisiones.GetRepComisionesDetallePS(CveVendedor, FechaI, FechaF, CveVenta, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjComisiones.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+        ObjComisiones.Dispose()
+
+
+        If (GvDatos.Rows.Count > 0) Then
+            GvDatos.UseAccessibleHeader = True
+            GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
+            RegistraScript("OrdenarGV();")
+            ImgExcel.Visible = True
+        Else
+            ImgExcel.Visible = False
+        End If
+
+        GvDatos.DataBind()
+
+        UPDatos.Update()
+
+    End Sub
+#End Region
+
+
+#Region "  EXCEL  "
+    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+        GvDatos.ExportToExcel("ReporteComisionesDetalle_" & Now.ToShortDateString)
+    End Sub
+#End Region
+
+End Class