Merge branch 'master' of http://192.168.10.111:8383/SIG

2020-08-25 09:11:42 -07:00
parent 1de3c1b1c0 8651eebeaf
commit d612ac7f70
3 changed files with 41 additions and 14 deletions
--- 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>
--- 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>
--- 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