Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/RepVentaDetalle.aspx.vb

@@ -109,19 +109,19 @@ Partial Class RepVentaDetalle
         Set(value As Boolean)
             ViewState("Primeracontsulta") = value
         End Set
-    End Property
-    Private Property ConsultaAlCargar As Boolean
-        Get
-            Return CBool((IfNull(ViewState("ConsultaAlCargar"), False, ViewState("ConsultaAlCargar"))))
-        End Get
-        Set(value As Boolean)
-            ViewState("ConsultaAlCargar") = value
-        End Set
-    End Property
-
-
+    End Property
+    Private Property ConsultaAlCargar As Boolean
+        Get
+            Return CBool((IfNull(ViewState("ConsultaAlCargar"), False, ViewState("ConsultaAlCargar"))))
+        End Get
+        Set(value As Boolean)
+            ViewState("ConsultaAlCargar") = value
+        End Set
+    End Property
+
+
 #End Region
-    'pRivate ReadOnly Property ColumnasVisibles As 
+    'pRivate ReadOnly Property ColumnasVisibles As 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
@@ -130,10 +130,10 @@ Partial Class RepVentaDetalle
             InicializaValores()
             ConfiguraEmpresa()
 
-            If ConsultaAlCargar Then
-                CargaDatos()
-            End If
-
+            If ConsultaAlCargar Then
+                CargaDatos()
+            End If
+
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 LblServicioDomicilioFiltro.Visible = True
                 DVServicioDomicilio.Visible = True
@@ -288,12 +288,12 @@ Partial Class RepVentaDetalle
             DdlVendedor.Enabled = False
         End If
 
-        If Request("Menu") IsNot Nothing AndAlso Request("Menu").ToString() = "1" Then
-            ConsultaAlCargar = False
+        If Request("Menu") IsNot Nothing AndAlso Request("Menu").ToString() = "1" Then
+            ConsultaAlCargar = False
         End If
 
-    End Sub
-
+    End Sub
+
 #Region "CARGA COMBOS"
     Private Sub CargaGrupo()
         DdlGrupo.Items.Insert(0, New ListItem("Año", "1"))
@@ -553,10 +553,10 @@ Partial Class RepVentaDetalle
             If e.Row.DBCampo("RetISR").ToDouble < 0 Then e.Row.Cells(10).ForeColor = Drawing.Color.Red
             If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(11).ForeColor = Drawing.Color.Red
             If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(12).ForeColor = Drawing.Color.Red
-            If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(13).ForeColor = Drawing.Color.Red
-
-            Dim Ruta As String = UsuarioActual.Empresa.Ruta
-
+            If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(13).ForeColor = Drawing.Color.Red
+
+            Dim Ruta As String = UsuarioActual.Empresa.Ruta
+
             If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.xml") Then
                 e.Row.FCLiteral("LtlXML").Text = String.Format("<div class='truncate' style='width:40px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.xml&TipoArchivo=XML"">XML</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
             Else
@@ -744,10 +744,10 @@ Partial Class RepVentaDetalle
 
         If ChkTC.Checked Then ListPersonalizada.Add("TC")
 
-        If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta")
-
-        If ChkDescargarPDF.Checked Then ListPersonalizada.Add("PDF")
-
+        If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta")
+
+        If ChkDescargarPDF.Checked Then ListPersonalizada.Add("PDF")
+
         If ChkDescargarXML.Checked Then ListPersonalizada.Add("XML")
 
         If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then
@@ -939,10 +939,10 @@ Partial Class RepVentaDetalle
                         Exit Select
                     Case "DescripcionVenta"
                         ChkDescripcionVenta.Checked = True
-                        Exit Select
+                        Exit Select
                     Case "XML"
                         ChkDescargarXML.Checked = True
-                        Exit Select
+                        Exit Select
                     Case "PDF"
                         ChkDescargarPDF.Checked = True
                         Exit Select
@@ -1004,8 +1004,8 @@ Partial Class RepVentaDetalle
         GvDatos.Columns(38).Visible = ChkUsoCFDI.Checked
         GvDatos.Columns(39).Visible = ChkKilometraje.Checked
         GvDatos.Columns(40).Visible = ChkTC.Checked
-        GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked
-        GvDatos.Columns(42).Visible = ChkDescargarXML.Checked
+        GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked
+        GvDatos.Columns(42).Visible = ChkDescargarXML.Checked
         GvDatos.Columns(43).Visible = ChkDescargarPDF.Checked
 
         Personalizo = 1