RepCxP Correciones

Compras/RepCxPDetalle.aspx.vb

@@ -332,23 +332,15 @@ Partial Class RepCxPDetalle
         Ddlmoneda.SelectedValueExist(CveMoneda)
 
 
-        GvDatos.Columns(10).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0)
+        GvDatos.Columns(11).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0)
 
 
 
         For Each lItem As ListItem In DdlGrupo.Items
 
-
-
             If lItem.Value.ToEntero = 9 Then
                 lItem.Text = LblSubProyectofiltro.Text & "-Sucursal"
             End If
-
-            If lItem.Value.ToEntero = 11 Then
-                lItem.Text = LblSubProyectofiltro.Text & " Proveedor"
-            End If
-
-
         Next
 
 
@@ -416,9 +408,9 @@ Partial Class RepCxPDetalle
 
                 If DdlGrupo.SelectedValue.ToEntero = 5 And UsuarioActual.Empresa.UsaContabilidad Then 'cuando es grupo por proveedor, se muestra la cuneta contable
                     TMP_DTDatos = CargaCuentasContables(TMP_DTDatos)
-                    GvDatos.Columns(12).Visible = True
+                    GvDatos.Columns(13).Visible = True
                 Else
-                    GvDatos.Columns(12).Visible = False
+                    GvDatos.Columns(13).Visible = False
                 End If
 
                 DtDatos = TMP_DTDatos
@@ -509,16 +501,7 @@ Partial Class RepCxPDetalle
                     e.Row.CssClass = "Totales"
                 ElseIf e.Row.DBCampo("RazonSocial") = "" Then
                     e.Row.CssClass = "SubTotales"
-                End If
-
-
-                'If e.Row.DBCampo("CveSubProyecto") = "-1" And e.Row.DBCampo("Orden") = "" Then
-                '    e.Row.CssClass = "Totales"
-                'ElseIf e.Row.DBCampo("Orden") = "" And e.Row.DBCampo("CveSubProyecto") <> "0" Then
-                '    e.Row.CssClass = "SubTotales"
-                'End If
-
-
+                End If
             Else
                 If e.Row.DBCampo("RazonSocial") = "" And e.Row.DBCampo("SerieFolio") = "" Then
                     e.Row.CssClass = "SubTotales"
@@ -527,14 +510,14 @@ Partial Class RepCxPDetalle
                 If e.Row.DBCampo("Agrupador") = "" And e.Row.DBCampo("TipoDocto") <> "Ant" Then
                     e.Row.CssClass = "Totales"
                     e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
-                    e.Row.FCLabel("LtlTipoDocto").ForeColor = Drawing.Color.White
+                    e.Row.FCHyperLink("HplFolio").ForeColor = Drawing.Color.White
 
                     If e.Row.DBCampo("CveMoneda") = "1" Then
-                        e.Row.FCLabel("LtlTipoDocto").Text = "Total Pesos"
+                        e.Row.FCHyperLink("HplFolio").Text = "Total Pesos"
                     ElseIf e.Row.DBCampo("CveMoneda") = "2" Then
-                        e.Row.FCLabel("LtlTipoDocto").Text = "Total Dólares"
+                        e.Row.FCHyperLink("HplFolio").Text = "Total Dólares"
                     Else
-                        e.Row.FCLabel("LtlTipoDocto").Text = "Total"
+                        e.Row.FCHyperLink("HplFolio").Text = "Total"
                     End If
 
                 End If
@@ -542,12 +525,17 @@ Partial Class RepCxPDetalle
 
             End If
 
+
+            If e.Row.DBCampo("CveCompra") = "" Then
+                e.Row.FCLabel("LblMoneda").Text = ""
+            End If
+
             If e.Row.DBCampo("CveCompra") = "" And e.Row.DBCampo("Agrupador") <> "" Then
-                e.Row.FCLabel("LtlTipoDocto").Text = e.Row.DBCampo("Agrupador")
+                e.Row.FCHyperLink("HplFolio").Text = e.Row.DBCampo("Agrupador")
                 e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
                 If e.Row.DBCampo("Agrupador").Length > 25 Then
-                    e.Row.FCLabel("LtlTipoDocto").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25))
-                End If
+                    e.Row.FCHyperLink("HplFolio").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25))
+                End If
             Else
 
                 If (e.Row.DBCampo("TipoDocto").ToString = "Ant") Then
@@ -586,20 +574,18 @@ Partial Class RepCxPDetalle
 #Region "PERSONALIZAR"
     Protected Sub MostrarOcultarColumnas()
 
-        If ChkFolio.Checked Then
+        If ChkTipoDocto.Checked Then
             GvDatos.Columns(0).Visible = True
         Else
             GvDatos.Columns(0).Visible = False
         End If
 
-
-
-        If ChkTipoDocto.Checked Then
+        If ChkFolio.Checked Then
             GvDatos.Columns(1).Visible = True
         Else
             GvDatos.Columns(1).Visible = False
-        End If
-
+        End If
+
         If ChkSubTotal.Checked Then
             GvDatos.Columns(3).Visible = True
         Else
@@ -628,51 +614,60 @@ Partial Class RepCxPDetalle
             GvDatos.Columns(7).Visible = True
         Else
             GvDatos.Columns(7).Visible = False
-        End If
-
-        If ChkSaldo.Checked Then
+        End If
+
+
+        If ChkMoneda.Checked Then
             GvDatos.Columns(8).Visible = True
         Else
             GvDatos.Columns(8).Visible = False
         End If
 
-        If ChkFechaVencimiento.Checked Then
+
+
+        If ChkSaldo.Checked Then
             GvDatos.Columns(9).Visible = True
         Else
             GvDatos.Columns(9).Visible = False
-        End If
-
-        If ChkDiasVencidos.Checked Then
+        End If
+
+        If ChkFechaVencimiento.Checked Then
             GvDatos.Columns(10).Visible = True
         Else
             GvDatos.Columns(10).Visible = False
         End If
 
-        If ChkProveedor.Checked Then
+        If ChkDiasVencidos.Checked Then
             GvDatos.Columns(11).Visible = True
         Else
             GvDatos.Columns(11).Visible = False
         End If
 
-        If ChkCuenta.Checked Then
+        If ChkProveedor.Checked Then
             GvDatos.Columns(12).Visible = True
         Else
             GvDatos.Columns(12).Visible = False
         End If
 
-        If ChkObservaciones.Checked Then
+        If ChkCuenta.Checked Then
             GvDatos.Columns(13).Visible = True
         Else
             GvDatos.Columns(13).Visible = False
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
+        If ChkObservaciones.Checked Then
             GvDatos.Columns(14).Visible = True
         Else
-            GvDatos.Columns(14).Visible = False
+            GvDatos.Columns(14).Visible = False
         End If
 
-        GvDatos.Columns(15).Visible = ChkDescripcion.Checked
+        If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
+            GvDatos.Columns(15).Visible = True
+        Else
+            GvDatos.Columns(15).Visible = False
+        End If
+
+        GvDatos.Columns(16).Visible = ChkDescripcion.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then