manejo sobre el usuario asignado, reporte cambios

2020-09-02 18:16:32 -07:00
parent 2db71eddfa
commit e3b39d3d09
4 changed files with 55 additions and 5 deletions
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -1485,6 +1485,10 @@
                                       
                                        <asp:DropDownList ID="DdlUsuariosAsignado" CssClass="select2me" Width="200px" DataTextField="Nombre" DataValueField="CveUsuario" runat="server"></asp:DropDownList>
                                    </asp:Panel>
+                                    <asp:Panel runat="server" ID="PnlUsuarioYaAsignado" Visible="false" Style="text-align:left;font-size:14px;height:34px;margin-top:10px">
+                                        Asignado a:
+                                        <asp:Label runat="server" ID="LblUsuarioYaAsignado"/><br /><br />
+                                    </asp:Panel>
                                    <asp:Button ID="BtnGuardar" CssClass="btn btn-primary" Style="margin-top: 5px;" runat="server" Text="Guardar" Width="170px" ValidationGroup="GrpGuardar" />
                                    <asp:UpdatePanel runat="server">
                                        <ContentTemplate>
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -817,6 +817,7 @@ Partial Class OC
            End If

        End If
+        MostrarUsuarioAsignado()
        Me.Form.DefaultButton = ""
    End Sub

@@ -3128,7 +3129,7 @@ Partial Class OC

            Else
                If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
-                                                 CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+                                                 CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                 PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                 EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
                                                 Promocion:=Promocion) Then
@@ -8038,6 +8039,13 @@ Partial Class OC
        UpSolicitarAnticipo.Update()
    End Sub

+    Private Sub MostrarUsuarioAsignado()
+        If CveUsuarioAsignado > 0 Then
+            PnlUsuarioYaAsignado.Visible = True
+            Dim NombreUsuario As String = GlobalDTUsuarios(CveUsuario:=CveUsuarioAsignado).FiltroPrimeroValor("Nombre")
+            LblUsuarioYaAsignado.Text = NombreUsuario
+        End If
+    End Sub
    'Private Sub CargaVentaRelacionada()
    '    Dim GridViewPSAux As GridView = GvD
    '    Dim CveOCDetalle As New StringBuilder()
--- a/OC/RepOC.aspx
+++ b/OC/RepOC.aspx
@@ -97,6 +97,9 @@
            <li>
                <asp:LinkButton ID="LbPorAtender" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel por Atender</asp:LinkButton>
            </li>
+            <li>
+                <asp:LinkButton ID="LbPendientesPDF" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF Pendientes</asp:LinkButton>
+            </li>
            <li>
                <asp:LinkButton ID="LbPendientes" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel Pendientes</asp:LinkButton>
            </li>
@@ -107,6 +110,7 @@
        <Triggers>
            <asp:PostBackTrigger ControlID="LbPorAtender" />
            <asp:PostBackTrigger ControlID="LbPendientes" />
+            <asp:PostBackTrigger ControlID="LbPendientesPDF" />
            <asp:PostBackTrigger ControlID="LbConsultar" />
        </Triggers>
    </asp:UpdatePanel>
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -22,9 +22,17 @@ Partial Class RepOC
        Set(value As DataTable)
            ViewState("DtPorAtender") = value
        End Set
-    End Property
+    End Property
+    Private Property DtPendiente As DataTable
+        Get
+            Return DirectCast(ViewState("DtPendiente"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtPendiente") = value
+        End Set
+    End Property
 #End Region
-
+
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            txtFechaI.Text = Now.AddMonths(-3).ToShortDateString
@@ -87,6 +95,7 @@ Partial Class RepOC
        CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LblSubProyecto)
        GvPorAtender.Columns(5).HeaderText = LblSubProyecto.Text
        GvPendientes.Columns(5).HeaderText = LblSubProyecto.Text
+        GvConsultar.Columns(5).HeaderText = LblSubProyecto.Text
        DivProyectos.Visible = DdlProyectos.Visible
    End Sub

@@ -182,6 +191,7 @@ Partial Class RepOC
    Protected Sub btnConsultarPendientes_Click(sender As Object, e As EventArgs) Handles btnConsultarPendientes.Click
        LbPorAtender.Visible = True
        LbPendientes.Visible = True
+        LbPendientesPDF.Visible = True
        LbConsultar.Visible = False

        Tab.Visible = True
@@ -214,6 +224,7 @@ Partial Class RepOC
                                   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
+            DtPendiente = OC.DtResultados
            GvPendientes.DataBind()
            'If (GvPendientes.Rows.Count > 0) Then
            '    GvPendientes.UseAccessibleHeader = True
@@ -312,6 +323,7 @@ Partial Class RepOC
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
        LbPorAtender.Visible = False
        LbPendientes.Visible = False
+        LbPendientesPDF.Visible = False
        LbConsultar.Visible = True
        DivConsultar.Visible = True
        DivPendiete.Visible = False
@@ -330,7 +342,8 @@ Partial Class RepOC
                        CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then

            GvConsultar.DataSource = OC.DtResultados
-            DtOC = OC.DtResultados
+            DtOC = OC.DtResultados
+            DtPorAtender = OC.DtResultados
            LblTotal.Text = OC.DtResultados.SUM("Total").FormatoNumero

            If UsuarioActual.TienePermisoProceso(227) Then
@@ -459,6 +472,7 @@ Partial Class RepOC
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("AgrupadoPor", $"{Folio}{Tipo}{Proyecto}{SubProyecto}{Estatus}{AF}{Usuario}{FI}{FF}{Clasificacion}{Producto}{Completa}{Proveedor}{Cliente}"))
            params.Add(New ReportParameter("SubProyectoHeader", LblSubProyecto.Text))
+            params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER"))

            If Imagen.Exists Then
                params.Add(New ReportParameter("LogoPath", logouri))
@@ -480,7 +494,27 @@ Partial Class RepOC

    End Sub
    Protected Sub LbPendientes_Click(sender As Object, e As System.EventArgs) Handles LbPendientes.Click
-        GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
+        'GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
+        ImprimirPendientes("EXCEL")
+    End Sub
+    Protected Sub LbPendientesPDF_Click(sender As Object, e As System.EventArgs) Handles LbPendientesPDF.Click
+        ImprimirPendientes("PDF")
+    End Sub
+
+    Private Sub ImprimirPendientes(format As String)
+        If UsuarioActual.CveEmpresa.Contiene(72) Then
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("FechaInicio", If(txtFechaI.Text = "", "-1", txtFechaI.Text)))
+            params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "-1", txtFechaF.Text)))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
+            params.Add(New ReportParameter("SubProyecto", LblSubProyecto.Text))
+
+            ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtPendiente, params, Formato:=format)
+        Else
+            GvConsultar.ExportToExcel("OrdenesCompra" & Now.ToShortDateString)
+        End If
    End Sub
    Protected Sub LbConsultar_Click(sender As Object, e As System.EventArgs) Handles LbConsultar.Click
        If UsuarioActual.CveEmpresa.Contiene(72) Then