71 lines
2.0 KiB
Plaintext
71 lines
2.0 KiB
Plaintext
Imports CrystalDecisions.Shared
|
|
Imports CrystalDecisions.CrystalReports.Engine
|
|
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
|
|
|
|
Partial Class RepImprimirC
|
|
Inherits ClsPaginas
|
|
Dim rpt As ReportDocument = New ReportDocument()
|
|
Dim Path As String = AppDomain.CurrentDomain.BaseDirectory
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
Master.EsPopup = True
|
|
End If
|
|
|
|
Dim Reporte As String = IfNull(Request("Reporte"), "").ToString
|
|
If Reporte = "OC" Then
|
|
ImprimirOC(IfNull(Request("OC"), 0).ToString.ToEntero)
|
|
End If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Public Sub ImprimirOC(CveOC As Integer)
|
|
|
|
Dim dt As DataTable
|
|
Dim Solicita, Estatus, Autoriza, Proyecto, SubProyecto As String
|
|
Dim OC As New ClsOC
|
|
dt = OC.GetOrdenesDetalle(CveOC)
|
|
OC.GetOC(CveOC)
|
|
Solicita = OC.NombreSolicita
|
|
Autoriza = OC.NombreAutoriza
|
|
Proyecto = OC.Proyecto
|
|
SubProyecto = OC.SubProyecto
|
|
Estatus = OC.EstatusOrdenCompra
|
|
OC.Dispose()
|
|
|
|
Path &= "\OC\Reportes\OC.rpt"
|
|
rpt.Load(Path)
|
|
|
|
|
|
rpt.SetDataSource(dt.DefaultView.ToTable)
|
|
|
|
|
|
rpt.ParameterFields(0).CurrentValues.AddValue(CveOC.ToString())
|
|
rpt.ParameterFields(1).CurrentValues.AddValue(Proyecto)
|
|
rpt.ParameterFields(2).CurrentValues.AddValue(SubProyecto)
|
|
rpt.ParameterFields(3).CurrentValues.AddValue(Solicita)
|
|
rpt.ParameterFields(4).CurrentValues.AddValue(Autoriza)
|
|
rpt.ParameterFields(5).CurrentValues.AddValue(Estatus.ToUpper)
|
|
|
|
CRViewer.ReportSource = rpt
|
|
|
|
|
|
|
|
'.Add(New ReportParameter("CveOrdenCompra", CveOC.ToString, True))
|
|
'.Add(New ReportParameter("FechaSolicitud", NowADS().ToShortDateString, True))
|
|
'.Add(New ReportParameter("pSolicita", Solicita, True))
|
|
'.Add(New ReportParameter("pSupervisa", Supervisa, True))
|
|
'.Add(New ReportParameter("pAutoriza", Autoriza, True))
|
|
|
|
|
|
dt.Dispose()
|
|
End Sub
|
|
|
|
End Class
|