From 4c49ea3f19ac180b5a8ed6c9d299e6e8c099f7f4 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 25 Aug 2020 09:10:21 -0700
Subject: [PATCH] cambios multiples en la interfaz, se agregaron filtros,
 columnas y se ajusto un reporte para compu

---
 Empresas/72/Formatos/OC.rdlc |  2 +-
 OC/RepOC.aspx                | 25 ++++++++++++++++++++++---
 OC/RepOC.aspx.vb             | 28 ++++++++++++++++++----------
 3 files changed, 41 insertions(+), 14 deletions(-)

diff --git a/Empresas/72/Formatos/OC.rdlc b/Empresas/72/Formatos/OC.rdlc
index 98d08aecd..a50a0b15a 100644
--- a/Empresas/72/Formatos/OC.rdlc
+++ b/Empresas/72/Formatos/OC.rdlc
@@ -2289,7 +2289,7 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>Comprador: </Value>
+                  <Value>Asignado a: </Value>
                   <Style>
                     <FontFamily>Myriad Pro Light</FontFamily>
                     <FontSize>9pt</FontSize>
diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx
index 7784cd01c..c5b970ffd 100644
--- a/OC/RepOC.aspx
+++ b/OC/RepOC.aspx
@@ -149,12 +149,12 @@
                                     <asp:ListItem Value="OC" Text="Ordenes Compra"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
-                            <label class="colf-1 truncate">Proyecto:</label>
-                            <div class="colf-2">
+                            <asp:Label runat="server" ID="LblProyecto" class="colf-1 truncate">Proyecto:</asp:Label>
+                            <div runat="server" id="DivProyectos" class="colf-2">
                                 <asp:DropDownList ID="DdlProyectos" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
                                 </asp:DropDownList>
                             </div>
-                            <label class="colf-1 truncate">SubProyecto:</label>
+                            <asp:Label runat="server" ID="LblSubProyecto" class="colf-1 truncate">SubProyecto:</asp:Label>
                             <div class="colf-2">
                                 <asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
                                 </asp:DropDownList>
@@ -186,6 +186,11 @@
                             <asp:DropDownList ID="DdlUsuarioAutorizo" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Nombre" DataValueField="CveUsuario">
                             </asp:DropDownList>
                         </div>
+                        <label class="colf-1">Usuario Asignado</label>
+                        <div class="colf-2">
+                            <asp:DropDownList ID="DdlUsuarioAsignado" runat="server" CssClass="form-control input-sm select2me" DataTextField="Nombre" DataValueField="CveUsuario" Style="width: 95px; height: 30px; display: inline-block;">
+                            </asp:DropDownList>
+                        </div>
 
                     </div>
                     <div class="row rownomargin">
@@ -241,6 +246,14 @@
                         <div class="colf-3">
                             <asp:CheckBox Text="No Completa" TextAlign="Left" CssClass="md-checksd2" ID="CheckNoCompleta" Visible="true" runat="server" />
                         </div>
+                        <label class="colf-1">Es Entrega Directa</label>
+                        <div class="colf-2">
+                            <asp:DropDownList ID="DdlEntregaDirecta" runat="server" CssClass="form-control input-sm select2me" Style="width: 95px; height: 30px; display: inline-block;">
+                                <asp:ListItem selected="True" Text="Todos" Value="-1"/>
+                                <asp:ListItem Text="No" Value="0"/>
+                                <asp:ListItem Text="Si" Value="1"/>
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>
@@ -326,6 +339,8 @@
                                 <asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" />
                                 <asp:BoundField DataField="Cliente" HeaderText="Cliente" />
                                 <asp:BoundField DataField="CodigoAF" HeaderText="AF" />
+                                <asp:BoundField DataField="FechaEstimadaEntrega" HeaderText="Fecha Entrega" DataFormatString = "{0:dd/MM/yyyy}"/>
+                                <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" />
                             </Columns>
@@ -361,6 +376,8 @@
                                 <asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" />
                                 <asp:BoundField DataField="Cliente" HeaderText="Cliente" />
                                 <asp:BoundField DataField="CodigoAF" HeaderText="AF" />
+                                <asp:BoundField DataField="FechaEstimadaEntrega" HeaderText="Fecha Entrega" DataFormatString = "{0:dd/MM/yyyy}"/>
+                                <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" />
                             </Columns>
@@ -398,6 +415,8 @@
                     <asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" />
                     <asp:BoundField DataField="Cliente" HeaderText="Cliente" />
                     <asp:BoundField DataField="CodigoAF" HeaderText="AF" />
+                    <asp:BoundField DataField="FechaEstimadaEntrega" HeaderText="Fecha Entrega" DataFormatString = "{0:dd/MM/yyyy}"/>
+                    <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" />
                 </Columns>
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb
index 290f20027..8c4c615cc 100644
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -53,7 +53,7 @@ Partial Class RepOC
             'End If
 
             CargaProyectos()
-            CargaSubProyectos()
+            'CargaSubProyectos()
             CargaUsuarios()
             CargaProveedores()
             CargaEstatus()
@@ -81,9 +81,12 @@ Partial Class RepOC
 
 #Region "  CARGA COMBOS  "
     Protected Sub CargaProyectos()
-        DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
-        DdlProyectos.DataBind()
-        DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
+        'DdlProyectos.DataBind()
+        'DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+        CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LblSubProyecto)
+        GvPorAtender.Columns(5).HeaderText = LblSubProyecto.Text
+        DivProyectos.Visible = DdlProyectos.Visible
     End Sub
 
     Protected Sub CargaSubProyectos()
@@ -97,6 +100,10 @@ Partial Class RepOC
         ddlUsuario.DataBind()
         ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
 
+        DdlUsuarioAsignado.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        DdlUsuarioAsignado.DataBind()
+        DdlUsuarioAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
+
         DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuarioAutorizo.DataBind()
         DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -187,8 +194,8 @@ Partial Class RepOC
 
         Dim OC As New ClsOC
         If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 0, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
-                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero,
-                                   SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then
+                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
+                                   CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
 
             DtPorAtender = OC.DtResultados
             GvPorAtender.DataSource = DtPorAtender 'OC.DtResultados
@@ -203,8 +210,8 @@ Partial Class RepOC
         End If
 
         If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 1, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
-                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero,
-                                   SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then
+                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
+                                   CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
             GvPendientes.DataSource = OC.DtResultados
             GvPendientes.DataBind()
             'If (GvPendientes.Rows.Count > 0) Then
@@ -317,8 +324,9 @@ Partial Class RepOC
         Dim OC As New ClsOC
         If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
                         DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
-                        If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero,
-                        SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero()) Then
+                        If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
+                        ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
+                        CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
 
             GvConsultar.DataSource = OC.DtResultados
             DtOC = OC.DtResultados