GDiaz 2025-01-14

OC/RepOCxSurtir.aspx

@@ -69,7 +69,9 @@
                                 <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                 <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
-                            <div class="col-md-1" style="max-width: 110px;">Centro de Costo</div>
+                            <div class="col-md-1" style="max-width: 110px;">
+                                <asp:Label runat="server" ID="LblSubProyecto"></asp:Label>:
+                            </div>
                             <div class="col-md-2">
                                 <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="select2me Widthall"></asp:DropDownList>
                             </div>
@@ -125,6 +127,7 @@
                             <asp:HyperLinkField DataTextField="Folio" HeaderText="Folio" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataNavigateUrlFields="CveOrdenCompra" Target="_blank" />
                             <asp:BoundField DataField="FechaIng" HeaderText="Fecha" DataFormatString="{0:d}" />
                             <asp:BoundField DataField="Descripcion" HeaderText="Descripción" />                            
+                            <asp:BoundField DataField="SubProyecto" HeaderText="Descripción" />                            
                             <asp:BoundField DataField="CantidadOC" HeaderText="CantidadOC" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.####}" />
                             <asp:BoundField DataField="CantidadCompra" HeaderText="Cantidad Compra" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.####}" />
                             <asp:BoundField DataField="Pendiente" HeaderText="Pendiente" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.####}" />

OC/RepOCxSurtir.aspx.vb

@@ -39,7 +39,6 @@ Partial Class OC_RepOCxSurtir
     Protected Sub OC_RepOCxSurtir_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             InicializaValores()
-
         End If
     End Sub
 
@@ -92,6 +91,10 @@ Partial Class OC_RepOCxSurtir
         End If
 
 
+        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
+
+        GvDatosPorOC.Columns(3).HeaderText = LblSubProyecto.Text
+
         UPFiltros.Update()
     End Sub
 #End Region
@@ -207,7 +210,7 @@ Partial Class OC_RepOCxSurtir
         Dim FechaIF, FechaFF As String
         FechaIF = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
         FechaFF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
-        Dim FechaICapturaF, FechaFCapturaF As String
+
         'FechaICapturaF = If(IsDate(TxtFechaICaptura.Text.Trim()), TxtFechaICaptura.Text.Trim(), "-1")
         'FechaFCapturaF = If(IsDate(TxtFechaFCaptura.Text.Trim()), TxtFechaFCaptura.Text.Trim(), "-1")
 
@@ -243,7 +246,13 @@ Partial Class OC_RepOCxSurtir
 
             Dim NombreArchivo As String = If(DdlGrupo.SelectedValue.ToEntero = 1, "RepOCxSurtir.rdlc", "RepOCxSurtirPorOC.rdlc")
 
+            If DdlGrupo.SelectedValue.ToEntero = 2 Then
+                params.Add(New ReportParameter("TipoCentroCosto", LblSubProyecto.Text))
+            End If
+
+
             Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo))
+
             If Archivo.Exists Then
                 ImprimirPDF(Archivo.FullName, If(DdlGrupo.SelectedValue.ToEntero = 1, DtDatos, DtDatosPorOC), params, "OrdenesdeCompraporvincular ", Opcion)
             Else