SMS - Comisiones

Ventas/RepComisionesSMS.aspx.vb

@@ -1,40 +1,86 @@
 Option Explicit On
 Option Strict On
 
+Imports System.Data
 Imports Extensiones
-Imports Microsoft.Extensions.Primitives
+
 
 Partial Class Ventas_RepComisionesSMS
     Inherits ClsPaginas
 
-
+    Property DTDatos As DataTable
+        Get
+            If ViewState("DTDatos") Is Nothing Then
+                ViewState("DTDatos") = New DataTable
+            End If
+            Return DirectCast(ViewState("DTDatos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTDatos") = value
+        End Set
+    End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
+
+            Dim FechaInicial As Date = New Date(10)
+
+            txtFechaI.Text = Now.FirstDayOfMonth.ToString("dd/MM/yyyy")
+            txtFechaF.Text = Now.ToString("dd/MM/yyyy")
+            CargaCombos()
             CargaDatos()
         End If
 
     End Sub
 
+    Private Sub CargaCombos()
+
+
+        'If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
+        '    DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros(String.Format("VendedorTipo IN (1,4) AND (CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue))
+        'Else
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1")
+        'End If
+        DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+        DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlMedico.DataBind()
+        DdlMedico.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlUsuarioAtendio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        DdlUsuarioAtendio.DataBind()
+        DdlUsuarioAtendio.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+
+    End Sub
 
     Public Sub CargaDatos()
 
 
-        'Dim ObjVentas As New ClsVentas
 
-        'If ObjVentas.GetMedicos(-1, UsuarioActual.CveEmpresa, -1) Then
-        '    GvDatos.DataSource = ObjVentas.DtResultados
-        'Else
-        '    GvDatos.DataSource = Nothing
-        'End If
+        LnkExportar.Visible = False
 
-        'ObjVentas.Dispose()
+        Dim ObjVentas As New ClsVentas
 
-        'GvDatos.DataBind()
+        If ObjVentas.GetComisionesMedicasRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, -1, -1, DdlMedico.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, -1) Then
+            GvDatos.DataSource = ObjVentas.DtResultados
 
+            If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+                LnkExportar.Visible = True
+            End If
+        Else
+            GvDatos.DataSource = Nothing
+        End If
 
+        ObjVentas.Dispose()
+
+        GvDatos.DataBind()
+
+        UpDatos.Update()
 
-        'UpDatos.Update()
 
 
 
@@ -49,10 +95,10 @@ Partial Class Ventas_RepComisionesSMS
     Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
 
         GvDatos.Columns(10).Visible = False
-            Dim SbFiltros As New StringBuilder()
-            SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
-            GvDatos.ExportToExcelGembox("CatMedicos", UsuarioActual, "Catálogo de Médicos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
-            GvDatos.Columns(10).Visible = True
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
+        GvDatos.ExportToExcelGembox("CatMedicos", UsuarioActual, "Catálogo de Médicos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+        GvDatos.Columns(10).Visible = True
 
 
 
@@ -70,13 +116,14 @@ Partial Class Ventas_RepComisionesSMS
     End Sub
 
     Private Sub CargaComisiones()
-
+        DTDatos = New DataTable
         GvComisiones.DataSource = Nothing
 
         Dim objVentas As New ClsVentas
 
         If objVentas.GetComisionesMedicas(UsuarioActual.CveEmpresa) Then
             GvComisiones.DataSource = objVentas.DtResultados
+            DTDatos = objVentas.DtResultados
         End If
 
         objVentas.Dispose()
@@ -98,8 +145,19 @@ Partial Class Ventas_RepComisionesSMS
 
         For Each GvRow As GridViewRow In GvComisiones.Rows
 
-            If Not objVentas.AddUpdateComisionesMedicas(GvRow.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, GvRow.FCTextBox("TxtComisionMedico").Text.ToDecimal, GvRow.FCTextBox("TxtComisionVendedor").Text.ToDecimal, GvRow.FCTextBox("TxtComisionTecnico").Text.ToDecimal) Then
-                TieneError = True
+            Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
+            Dim ComisionMedicoDT As Decimal = DTDatos.FiltroPrimeroValor("ComisionMedico", $"CvePS = {CvePS} ").ToDecimal
+            Dim ComisionVendedorDT As Decimal = DTDatos.FiltroPrimeroValor("ComisionVendedor", $"CvePS = {CvePS} ").ToDecimal
+            Dim ComisionTecnicoDT As Decimal = DTDatos.FiltroPrimeroValor("ComisionTecnico", $"CvePS = {CvePS} ").ToDecimal
+
+            Dim ComisionMedicoGV As Decimal = GvRow.FCTextBox("TxtComisionMedico").Text.ToDecimal
+            Dim ComisionVendedorGV As Decimal = GvRow.FCTextBox("TxtComisionVendedor").Text.ToDecimal
+            Dim ComisionTecnicoGV As Decimal = GvRow.FCTextBox("TxtComisionTecnico").Text.ToDecimal
+
+            If ComisionMedicoDT <> ComisionMedicoGV Or ComisionVendedorDT <> ComisionVendedorGV Or ComisionTecnicoDT <> ComisionTecnicoGV Then
+                If Not objVentas.AddUpdateComisionesMedicas(GvRow.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, ComisionMedicoGV, ComisionVendedorGV, ComisionTecnicoGV) Then
+                    TieneError = True
+                End If
             End If
 
         Next