AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

GDiaz Pendientes de implementación 2025-01-10

Browse Source
This commit is contained in:
rakcsle
2025-01-11 01:48:19 -07:00
parent 52e672ac61
commit c2bde9a97c
10 changed files with 244 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
OC/OC.aspx.vb
View File

@@ -734,6 +734,7 @@ Partial Class OC_OC
DdlSubProyectoGral.DataBind()
DdlSubProyectoGral.Items.Insert(0, New ListItem("-", "-1"))
DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
DdlSubProyectoEntrega.SelectedValueExist(UsuarioActual.CveSubProyecto)
ModalidadSubProyectoGeneral = True
TdProyectoSubPrpyectoDdl.Visible = False
TdProyectoSubPrpyecto.Visible = False
@@ -4117,7 +4118,8 @@ Partial Class OC_OC
If e.Row.RowType = DataControlRowType.DataRow Then
If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then
'If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then
If TienePermisoKardex AndAlso (e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate) Then
e.Row.FCLabel("LblPS").Visible = False
e.Row.FCHyperLink("HlPS").Visible = True
e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}"

36
OC/RepOCxSurtir.aspx
View File

@@ -10,6 +10,22 @@
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UppAcciones">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExportar" runat="server"> <i class="fa fa-ad-excel"></i> Exportar Excel </asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkPdf" />
<asp:PostBackTrigger ControlID="LnkExportar" />
</Triggers>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
@@ -57,6 +73,13 @@
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="select2me Widthall"></asp:DropDownList>
</div>
<div class="col-md-1" style="max-width: 110px;">Grupo:</div>
<div class="col-md-1" >
<asp:DropDownList runat="server" ID="DdlGrupo" CssClass="select2me">
<asp:ListItem Value="1">Detallado</asp:ListItem>
<asp:ListItem Value="2">Por Orden de Compra</asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
@@ -84,6 +107,7 @@
<div class="col-md-12">
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" EmptyDataText="No se encontraron productos por surtir." CssClass="table table-striped table-hover Widthall ScrollAD" runat="server" AutoGenerateColumns="False" GridLines="None">
<Columns>
<asp:HyperLinkField DataTextField="Folio" HeaderText="Folio" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataNavigateUrlFields="CveOrdenCompra" Target="_blank" />
@@ -95,6 +119,18 @@
<asp:BoundField DataField="Pendiente" HeaderText="Pendiente" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.####}" />
</Columns>
</asp:GridView>
<asp:GridView ID="GvDatosPorOC" EmptyDataText="No se encontraron productos por surtir." CssClass="table table-striped table-hover Widthall ScrollAD" runat="server" AutoGenerateColumns="False" GridLines="None">
<Columns>
<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="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:#,###.####}" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>

163
OC/RepOCxSurtir.aspx.vb
View File

@@ -1,10 +1,41 @@
Option Explicit On
Option Strict On
Imports System.Activities.Expressions
Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class OC_RepOCxSurtir
Inherits ClsPaginas
Property DtDatos As DataTable
Get
If ViewState("DtDatos") Is Nothing Then
ViewState("DtDatos") = New DataTable
End If
Return DirectCast(ViewState("DtDatos"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtDatos") = value
End Set
End Property
Property DtDatosPorOC As DataTable
Get
If ViewState("DtDatosPorOC") Is Nothing Then
ViewState("DtDatosPorOC") = New DataTable
End If
Return DirectCast(ViewState("DtDatosPorOC"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtDatosPorOC") = value
End Set
End Property
Protected Sub OC_RepOCxSurtir_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
InicializaValores()
@@ -71,20 +102,44 @@ Partial Class OC_RepOCxSurtir
End Sub
Private Sub CargaDatos()
Dim ObjOC As New ClsOC
GvDatos.DataSource = Nothing
GvDatosPorOC.DataSource = Nothing
GvDatos.Visible = False
GvDatosPorOC.Visible = False
DtDatos = New DataTable
DtDatosPorOC = New DataTable
Dim FechaI, FechaF As String
FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
If ObjOC.GetPendietePorSurtirOC(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, If(TxtFolio.Text = "", -1, TxtFolio.Text.ToEntero), DdlSubProyecto.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjOC.DtResultados
Else
GvDatos.DataSource = Nothing
If ObjOC.GetPendietePorSurtirOC(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, If(TxtFolio.Text = "", -1, TxtFolio.Text.ToEntero), DdlSubProyecto.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
Gpo:=DdlGrupo.SelectedValue.ToEntero) Then
If DdlGrupo.SelectedValue.ToEntero = 1 Then
GvDatos.DataSource = ObjOC.DtResultados
DtDatos = ObjOC.DtResultados
GvDatos.Visible = True
Else
GvDatosPorOC.DataSource = ObjOC.DtResultados
DtDatosPorOC = ObjOC.DtResultados
GvDatosPorOC.Visible = True
End If
End If
GvDatos.DataBind()
ObjOC.Dispose()
If DdlGrupo.SelectedValue.ToEntero = 1 Then
GvDatos.DataBind()
Else
GvDatosPorOC.DataBind()
End If
UpDatos.Update()
End Sub
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
@@ -103,7 +158,105 @@ Partial Class OC_RepOCxSurtir
End If
End Sub
Private Sub GvDatosPorOC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosPorOC.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CveOrdenCompra") = "" Then
e.Row.CssClass = "Totales"
'e.Row.Cells(3).Visible = False
'e.Row.Cells(2).ColumnSpan = 2
'ElseIf e.Row.DBCampo("CodigoPS") = "" Then
' e.Row.CssClass = "SubTotales2"
Else
'e.Row.Cells(0).Text = ""
'e.Row.Cells(1).Text = ""
'e.Row.Cells(2).Text = ""
End If
End If
End Sub
#End Region
#Region " IMPRIMIR "
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
'GvDatos.ExportToExcel("ReporteComprasDetalles" & NowADS().ToShortDateString)
GenerarPDF("EXCEL")
End Sub
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
GenerarPDF("PDF")
End Sub
Private Sub GenerarPDF(Opcion As String)
Dim FechaI = If(TxtFechaI.Text = "" Or TxtFechaI.Text = "__/__/____", "-1", TxtFechaI.Text)
Dim FechaF = If(TxtFechaF.Text = "" Or TxtFechaF.Text = "__/__/____", "-1", TxtFechaF.Text)
'Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedores.SelectedText}")
'Dim Capturo = If(DDlUsuarioCaptura.SelectedValue = "-1", "", $"&emsp;<b>Capturó:</b> {DDlUsuarioCaptura.SelectedItem.Text}")
Dim Grupo = DdlGrupo.SelectedItem.Text
Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {TxtFechaI.Text}"
Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {TxtFechaF.Text}"
If TxtFechaI.Text = "" Then FechaIn = ""
If TxtFechaF.Text = "" Then FechaFn = ""
'Dim Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
'Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.GetSelectedText}")
'Dim TipoGasto = If(DdlTipoGasto.GetSelectedText = "", "", $"&emsp;<b>Tipo Gasto:</b> {DdlTipoGasto.GetSelectedText}")
'Dim TipoProveedor = If(DdlTipoProveedor.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Proveedor:</b> {DdlTipoProveedor.SelectedItem.Text}")
'Dim TipoDocto = If(DdlTipoDocto.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Documento:</b> {DdlTipoDocto.SelectedItem.Text}")
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")
'Dim FechaCIn As String = $"&emsp;<b>Fecha Inicio Captura:</b> {TxtFechaICaptura.Text.Trim()}"
'Dim FechaCFn As String = $"&emsp;<b>Fecha Fin Captura:</b> {TxtFechaFCaptura.Text.Trim()}"
'If Not IsDate(TxtFechaICaptura.Text.Trim()) Then FechaCIn = ""
'If Not IsDate(TxtFechaFCaptura.Text.Trim()) Then FechaCFn = ""
If DdlGrupo.SelectedValue.ToEntero = 1 Then
Else
End If
If (DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 AndAlso DdlGrupo.SelectedValue.ToEntero = 1) Or (DtDatosPorOC IsNot Nothing AndAlso DtDatosPorOC.Rows.Count > 0 AndAlso DdlGrupo.SelectedValue.ToEntero = 2) Then
'For Each Dr As DataRow In DtDatos.Rows
' Dr("Fecha") = Dr("Fecha").ToString.ToDate.ToShortDateString
'Next
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{FechaIn}{FechaFn}"))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
Dim NombreArchivo As String = If(DdlGrupo.SelectedValue.ToEntero = 1, "RepOCxSurtir.rdlc", "RepOCxSurtirPorOC.rdlc")
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
ImprimirPDF($"Empresas/Grales/Formatos/{NombreArchivo}", If(DdlGrupo.SelectedValue.ToEntero = 1, DtDatos, DtDatosPorOC), params, "OrdenesdeCompraporvincular", Opcion)
End If
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
End Sub
#End Region
End Class