Validaciones de OC

OC/OC.aspx.vb

@@ -2356,6 +2356,11 @@ Partial Class OC_OC
     Private Function ValidaGuardar() As Boolean
         Dim TieneError = False
 
+        If CboE.SelectedValue.ToEntero = 0 AndAlso TipoOC = "OC" Then
+            Alert("Las ordenes de compra no puede tener el estatus 'Pre Solicitud'. Debe ser una requisición", TipoMensaje.MsgAdvertencia)
+            Return True
+        End If
+
         'Entrega Directa requiere Cliente y Vendedor
         If ChkEntregaDirecta.Checked And Ddlcliente.txtValue.Value.ToEntero <= 0 Then
             Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.")

OC/RepOC.aspx

@@ -348,6 +348,7 @@
                                 <asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
                                 <asp:BoundField DataField="Total" DataFormatString="{0:N2}" HeaderText="Total" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
+                                <asp:BoundField DataField="PrioridadTexto" HeaderText="Prioridad" />
                             </Columns>
                         </asp:GridView>
 
@@ -385,6 +386,7 @@
                                 <asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
                                 <asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px" />
                                 <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
+                                <asp:BoundField DataField="PrioridadTexto" HeaderText="Prioridad" />
                             </Columns>
                         </asp:GridView>
                     </ContentTemplate>
@@ -424,6 +426,7 @@
                     <asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
                     <asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px" />
                     <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
+                    <asp:BoundField DataField="PrioridadTexto" HeaderText="Prioridad" />
                 </Columns>
             </asp:GridView>
 

OC/RepOC.aspx.vb

@@ -212,12 +212,25 @@ Partial Class RepOC
             GvPorAtender.DataSource = DtPorAtender 'OC.DtResultados
             GvPorAtender.DataBind()
 
-            'If (GvPorAtender.Rows.Count > 0) Then
-            '    GvPorAtender.UseAccessibleHeader = True
-            '    GvPorAtender.HeaderRow.TableSection = TableRowSection.TableHeader
-            '    RegistraScript("AddScrollGvPorAtender();")
-            'End If
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"UsuarioAsignado"}).FiltroPrimeroValor("UsuarioAsignado") = "" Then
+                GvPorAtender.Columns(10).Visible = False
+            End If
 
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"Cliente"}).FiltroPrimeroValor("Cliente") = "" Then
+                GvPorAtender.Columns(12).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"CodigoAF"}).FiltroPrimeroValor("CodigoAF") = "" Then
+                GvPorAtender.Columns(13).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"EntregaDirectaFormat"}).FiltroPrimeroValor("EntregaDirectaFormat") = "" Then
+                GvPorAtender.Columns(15).Visible = False
+            End If
         End If
 
         If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 1, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
@@ -226,13 +239,30 @@ Partial Class RepOC
             GvPendientes.DataSource = OC.DtResultados
             DtPendiente = OC.DtResultados
             GvPendientes.DataBind()
-            'If (GvPendientes.Rows.Count > 0) Then
-            '    GvPendientes.UseAccessibleHeader = True
-            '    GvPendientes.HeaderRow.TableSection = TableRowSection.TableHeader
-            '    RegistraScript("AddScrollGvPendientes();")
-            'End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"UsuarioAsignado"}).FiltroPrimeroValor("UsuarioAsignado") = "" Then
+                GvPendientes.Columns(10).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"Cliente"}).FiltroPrimeroValor("Cliente") = "" Then
+                GvPendientes.Columns(12).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"CodigoAF"}).FiltroPrimeroValor("CodigoAF") = "" Then
+                GvPendientes.Columns(13).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"EntregaDirectaFormat"}).FiltroPrimeroValor("EntregaDirectaFormat") = "" Then
+                GvPendientes.Columns(15).Visible = False
+            End If
+
         End If
         OC.Dispose()
+
     End Sub
     Protected Sub GVPendientes_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPendientes.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -350,6 +380,26 @@ Partial Class RepOC
                 DivTotalOC.Visible = True
             End If
 
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"UsuarioAsignado"}).FiltroPrimeroValor("UsuarioAsignado") = "" Then
+                GvConsultar.Columns(10).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"Cliente"}).FiltroPrimeroValor("Cliente") = "" Then
+                GvConsultar.Columns(12).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"CodigoAF"}).FiltroPrimeroValor("CodigoAF") = "" Then
+                GvConsultar.Columns(13).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"EntregaDirectaFormat"}).FiltroPrimeroValor("EntregaDirectaFormat") = "" Then
+                GvConsultar.Columns(15).Visible = False
+            End If
+
         End If
         OC.Dispose()
         GvConsultar.DataBind()
@@ -382,7 +432,7 @@ Partial Class RepOC
                 Case "2" 'Rechazada
                     e.Row.Cells(7).CssClass = "label label-sm label-danger" 'Rojo
                 Case "3" 'Solicitada
-                    e.Row.Cells(7).CssClass = "label label-sm label-Default" 'Gris
+                    e.Row.Cells(7).CssClass = "label label-sm label-default" 'Gris
             End Select
 
             If e.Row.DBCampo("Tipo") = "OC" Then

OC/RepRequisiciones.aspx

@@ -240,6 +240,7 @@
                                 <asp:Literal Text='<%# Eval("Proveedor").ToString %>'  runat="server"></asp:Literal>
                             </ItemTemplate>
                         </asp:TemplateField>
+                        <asp:BoundField DataField="PrioridadTexto" HeaderText="Prioridad" />