-cleanup

CxC/RepCxC.aspx.vb

@@ -6,8 +6,8 @@ Imports System.IO
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Partial Class RepCxC
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "P R O P I E D A D E S"
     Private Property DtDatos As DataTable
         Get
@@ -93,11 +93,11 @@ Partial Class RepCxC
         Set(value As DataTable)
             ViewState("DtGrafica") = value
         End Set
-    End Property
-
+    End Property
+
 #End Region
-
-
+
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             Index = 0
@@ -110,8 +110,8 @@ Partial Class RepCxC
             If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True
             CreaDataTableColor()
         End If
-    End Sub
-
+    End Sub
+
 #Region "CARGAS"
     Private Sub CargaCombos()
         'CargaClientes
@@ -321,22 +321,22 @@ Partial Class RepCxC
         GvDatos.DataBind()
         ActualizarDatatable(NumCol)
         Agrupador = DdlGrupo.SelectedItem.Text
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "CONSULTAR"
-
+
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
         CargaDatos()
         UPDatos.Update()
         ActivaEnviarEstadoCuenta()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "GRIDVIEW"
-
+
     Protected Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
         If e.Row.RowType = DataControlRowType.Header Then
             Dim FC As New SortedList
@@ -598,10 +598,10 @@ Partial Class RepCxC
             If e.Row.FCHyperLink("LtlVentas").Text.ToDouble = 0 Then e.Row.FCHyperLink("LtlVentas").Text = "-"
 
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "PERSONALIZAR COLUMNAS"
     Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
 
@@ -634,10 +634,10 @@ Partial Class RepCxC
         End If
 
         UPDatos.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "IMPRESIONES"
     Private Sub ActualizarDatatable(NumCol As Integer)
 
@@ -743,12 +743,12 @@ Partial Class RepCxC
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "TIPO DE CAMBIO"
-
+
     Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
         If RblTipoCambio.SelectedValue.ToEntero = 3 Then
             Dim TipoCambio As Double
@@ -765,13 +765,13 @@ Partial Class RepCxC
         CargaDatos()
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio"))
         UPDatos.Update()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "PERSONALIZAR RANGO COLUMNAS"
-
+
     Protected Sub GvPersonalizarRango_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
             If Not e.Row.DBCampo("RangoFinal").ToDouble > 0 Then
@@ -927,10 +927,10 @@ Partial Class RepCxC
         End If
         ObjComp.Dispose()
         UPDatos.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "   ENVIAR ESTADO DE CUENTA   "
     Private Sub ActivaEnviarEstadoCuenta()
         LBEnviarSMS.Visible = DdlGrupo.SelectedValue = "5" And UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12)
@@ -1052,11 +1052,11 @@ Partial Class RepCxC
         Catch ex As Exception
             OnError("Ocurrió error al mandar el Mail", ex)
         End Try
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "DESCARGA TXT SEGMENTOS"
-
+
     Protected Sub LnkDescargarSegmentos_Click(sender As Object, e As EventArgs)
         Dim ObjMov As New ClsMovimientos
         If ObjMov.GetDescargaSegmentos(UsuarioActual.CveEmpresa) Then
@@ -1216,13 +1216,13 @@ Partial Class RepCxC
         End If
         ObjMov.Dispose()
 
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "GRAFICA"
-
+
     Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
         If Not DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
             Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
@@ -1425,13 +1425,13 @@ Partial Class RepCxC
     End Sub
     Protected Sub DdlMostrarGraficaTotales_SelectedIndexChanged(sender As Object, e As EventArgs)
         CambioGrafica(DdlVer.SelectedValue.ToEntero)
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "SELECTED INDEX CHANGE"
-
+
     Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaClientes()
     End Sub
@@ -1443,9 +1443,9 @@ Partial Class RepCxC
             DdlClientesWS.DataBind()
             DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 End Class