-cleanup

Ventas/RepRemisiones.aspx.vb

@@ -2,8 +2,8 @@
 Option Strict On
 
 Imports System.Data
-Imports Microsoft.Reporting.WebForms
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 Partial Class RepRemisiones
     Inherits ClsPaginas
 
@@ -63,8 +63,8 @@ Partial Class RepRemisiones
         Set(value As DataTable)
             ViewState("DtVentas") = 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 Page.IsPostBack Then
@@ -75,8 +75,8 @@ Partial Class RepRemisiones
             CargaDatos()
 
         End If
-    End Sub
-
+    End Sub
+
 #Region " C A R G A - D A T O S "
     Public Sub CargaDatos()
 
@@ -132,9 +132,9 @@ Partial Class RepRemisiones
             e.Row.FCLiteral("LtlTotal").Text = "<a class=""Texto"" target=""_blank"" href=""/Ventas/RepRemisionesDetalle.aspx?CveVenta=" & e.Row.DBCampo("CveVenta") & "&FechaI=" & FechaI & "&FechaF=" & FechaF & "&FechaV=" & FechaV & "&CveCliente=" & If(e.Row.DBCampo("CveCliente").ToString().ToEntero() > 0, e.Row.DBCampo("CveCliente").ToString(), DdlClientes.SelectedValue) & "&CveContrato=" & CveContrato & "&CveSubProyecto=" & Sucursales & "&CveMoneda=" & e.Row.DBCampo("CveMoneda") & """>" & e.Row.FCLiteral("LtlTotal").Text & "</a>"
 
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "CARGA COMBOS FILTRO"
     Private Sub CargaCliente()
         'CargaClientes
@@ -186,15 +186,15 @@ Partial Class RepRemisiones
             DdlVendedor.Attributes.Add("disabled", "disabled")
             DdlVendedor.Enabled = False
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "DDLS SELECTED INDEX CHANGED"
     Private Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaContrato()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "PDF"
     Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
         If DtVentas IsNot Nothing Then
@@ -232,7 +232,7 @@ Partial Class RepRemisiones
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If
-    End Sub
+    End Sub
 #End Region
     Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
     End Sub