thanks this is really good...
Date: Tue, 27 Apr 2010 08:46:12 -0600
From: forums@adobe.com
To: vidya_radkrish@hotmail.com
Subject: Re: Using Adobe LiveCycle Designer with ASP.NET to populate PDF Forms from Server Database. Using Adobe LiveCycle Designer with ASP.NET to populate PDF Forms from Server Database.
I have developed a Simple Class to defined and render a PDF Form. It will simplify your job to a great extent:
Imports System.IO
<Serializable()> _
Public Class AdobeLiveCycleForm
#Region " Business Methods "
Private Shared mXDPHeader As String
'Private mXDPData As String
Private mXDPFooter
Private mXDPData As Text.StringBuilder
Private mDoWriteToFile As Boolean
Private mFileName As String
Private mOutputFile As StreamWriter
Public ReadOnly Property XDPHeader() As String
Get
Return mXDPHeader
End Get
End Property
Public Property XDPData() As String
Get
Return mXDPData.ToString
End Get
Set(ByVal value As String)
mXDPData.Length = 0
mXDPData.Append(value)
If mDoWriteToFile Then
mOutputFile.Close()
IO.File.Delete(mFileName)
mOutputFile = New System.IO.StreamWriter(mFileName, False, Text.UTF8Encoding.UTF8)
mOutputFile.Write(mXDPHeader & mXDPData.ToString)
End If
End Set
End Property
Public ReadOnly Property XDPFooter() As String
Get
Return mXDPFooter
End Get
End Property
Public ReadOnly Property FileName() As String
Get
Return mFileName
End Get
End Property
Public ReadOnly Property GetXDP() As String
Get
Return mXDPHeader & mXDPData.ToString & mXDPFooter
End Get
End Property
Public Sub CloseXDP()
If mDoWriteToFile Then
mOutputFile.Write(mXDPFooter)
mOutputFile.Flush()
mOutputFile.Close()
mOutputFile.Dispose()
mOutputFile = Nothing
End If
End Sub
Public Sub CloseFile()
If mDoWriteToFile Then
Try
mOutputFile.Flush()
mOutputFile.Close()
mOutputFile.Dispose()
mOutputFile = Nothing
Catch ex As Exception
End Try
End If
End Sub
Private Sub InitStringBuilder()
If mXDPData Is Nothing Then
mXDPData = New Text.StringBuilder
End If
End Sub
Public Sub AppendXDPData(ByVal NewXDPData As String)
mXDPData.Append(NewXDPData)
If mDoWriteToFile Then
mOutputFile.Write(mXDPData.ToString)
mXDPData.Length = 0
End If
End Sub
Public Sub Render(ByVal WebResponse As System.Web.HttpResponse)
WebResponse.ContentType = "application/vnd.adobe.xdp+xml"
If mDoWriteToFile Then
WebResponse.WriteFile(mFileName)
'WebResponse.TransmitFile(mFileName)
Else
WebResponse.Write(GetXDP)
End If
'WebResponse.End()
End Sub
#End Region
#Region " Constructors "
Public Sub New(ByVal XDPFormLink As String)
Dim strXMLBuilder As Text.StringBuilder = New Text.StringBuilder
If String.IsNullOrEmpty(mXDPHeader) Then
'
' Build the Constant XDP Header which is common for all forms
'
strXMLBuilder.Length = 0
strXMLBuilder.Append("<?xml version='1.0' encoding='UTF-8'?>")
strXMLBuilder.Append("<?xfa generator='AdobeDesigner_V7.0' APIVersion='2.2.4333.0'?>")
strXMLBuilder.Append("<xdp:xdp xmlns:xdp='http://ns.adobe.com/xdp/'>")
strXMLBuilder.Append("<xfa:datasets xmlns:xfa='http://www.xfa.org/schema/xfa-data/1.0/'>")
strXMLBuilder.Append("<xfa:data>")
mXDPHeader = strXMLBuilder.ToString
End If
InitStringBuilder()
'
' Build the XDP Footer part
'
strXMLBuilder.Length = 0
strXMLBuilder.Append("</xfa:data>")
strXMLBuilder.Append("</xfa:datasets>")
'
' Point the XPD to the PDF Form created under Adobe LiveCycle Desinger
'
strXMLBuilder.Append("<pdf href='" & XDPFormLink & "' xmlns='http://ns.adobe.com/xdp/pdf/' />")
'
' Close the XPD File
'
strXMLBuilder.Append("</xdp:xdp>")
mDoWriteToFile = False
mXDPFooter = strXMLBuilder.ToString
End Sub
Public Sub New(ByVal XDPFormLink As String, ByVal OutputFilePath As String)
Me.New(XDPFormLink)
mFileName = OutputFilePath
mOutputFile = New System.IO.StreamWriter(mFileName, False, Text.UTF8Encoding.UTF8)
mDoWriteToFile = True
mOutputFile.Write(mXDPHeader)
End Sub
Private Sub New()
End Sub
#End Region
Protected Overrides Sub Finalize()
MyBase.Finalize()
Try
If Not mOutputFile Is Nothing Then
mOutputFile.Flush()
mOutputFile.Close()
mOutputFile.Dispose()
End If
Catch ex As Exception
Finally
mOutputFile = Nothing
End Try
End Sub
End Class
Also, I developed this "LabRequestReport" class, which uses the above class, also, it uses "XmlDocument" object to generate the XML, much more simplere than before:
Imports System.Xml
Namespace Clinic
Public Class LabReport01PDF
Inherits AdobeLiveCycleForm
Public Sub New(ByVal theLabRequestID As String)
MyBase.New(Configuration.ConfigurationManager.AppSettings("LabReport0 1URLRoot").ToString)
Dim theLabRequest As LabRequest
Dim theLabItem As LabRequestItem
Dim theLabItems As Csla.SortedBindingList(Of LabRequestItem) = Nothing
Dim theStaffBasicInfo As StaffBasicInfo
Dim theLastCatg As String
Dim CurrCatg As String
Dim theXML As XmlDocument
Dim xmlDecl As XmlDeclaration
Dim theLabInfo As XmlElement
Dim theLabGroup As XmlElement
Dim theNode As XmlElement
Dim theLabReport01 As XmlElement
Dim theTableData As XmlElement = Nothing
Dim theTableDataRow As XmlElement = Nothing
'
' Generate XML String which will be used as a DataSource for the
' LabReport01.PDF LiveCycle Form.
'
' The output XML must match the Sample XML File "LabReportTestData.xml".
'
theLabRequest = LabRequest.GetLabRequest(theLabRequestID)
theStaffBasicInfo = StaffBasicInfo.GetStaffBasicInfo2(theLabRequest.PatientID)
theXML = New Xml.XmlDocument()
'initialize the report master data
theLabReport01 = theXML.CreateElement("LabReport01")
theLabInfo = theXML.CreateElement("LabInfo")
theNode = theXML.CreateElement("StaffID")
theNode.InnerText = theLabRequest.PatientID
theLabInfo.AppendChild(theNode)
theNode = theXML.CreateElement("Name")
theNode.InnerText = theLabRequest.PatientName
theLabInfo.AppendChild(theNode)
theNode = theXML.CreateElement("Dept")
theNode.InnerText = theStaffBasicInfo.StaffDept
theLabInfo.AppendChild(theNode)
theNode = theXML.CreateElement("Sex")
theNode.InnerText = theStaffBasicInfo.StaffSex
theLabInfo.AppendChild(theNode)
theNode = theXML.CreateElement("DoB")
theNode.InnerText = theStaffBasicInfo.DOB
theLabInfo.AppendChild(theNode)
theNode = theXML.CreateElement("Nationality")
theNode.InnerText = theStaffBasicInfo.Nationality
theLabInfo.AppendChild(theNode)
theNode = theXML.CreateElement("Doctor")
theNode.InnerText = theLabRequest.DoctorName
theLabInfo.AppendChild(theNode)
theNode = theXML.CreateElement("LabDate")
theNode.InnerText = theLabRequest.LabRequestDateDMYStr
theLabInfo.AppendChild(theNode)
theNode = theXML.CreateElement("LabNo")
theNode.InnerText = theLabRequest.LabRequestID
theLabInfo.AppendChild(theNode)
theNode = theXML.CreateElement("ReportDate")
theNode.InnerText = Now.ToString("dd/MM/yyyy hh:mm:ss tt").ToLower
theLabInfo.AppendChild(theNode)
theNode = theXML.CreateElement("Comment")
theNode.InnerText = theLabRequest.LabComments
theLabInfo.AppendChild(theNode)
theNode = theXML.CreateElement("Tech")
theNode.InnerText = theLabRequest.TechnicianName
theLabInfo.AppendChild(theNode)
theLabReport01.AppendChild(theLabInfo)
'populate the report with the item details
'create a sorted list of lab result items
If Not theLabRequest.RequestItems Is Nothing Then
theLabItems = New Csla.SortedBindingList(Of LabRequestItem)(theLabRequest.RequestItems)
theLabItems.ApplySort("LabReport01Sort", ComponentModel.ListSortDirection.Ascending)
End If
theLastCatg = "*"
theLabGroup = Nothing
For Each theLabItem In theLabItems
CurrCatg = theLabItem.LabTestCatg
If theLastCatg = "*" Or theLastCatg <> CurrCatg Then
'create Group if first time or there is a break
If Not theLabGroup Is Nothing Then
'if this is not the first time, append the last group
'to the Lab Report
theLabGroup.AppendChild(theTableData)
theLabReport01.AppendChild(theLabGroup)
End If
'initialize group header and Table Data
theLabGroup = theXML.CreateElement("LabGroup")
theNode = theXML.CreateElement("Lab")
theNode.InnerText = theLabItem.LabTestCatg
theLabGroup.AppendChild(theNode)
theTableData = theXML.CreateElement("TableData")
End If
'populate the table data with Lab Results.
theTableDataRow = theXML.CreateElement("TableDataRow")
theNode = theXML.CreateElement("TestCode")
theNode.InnerText = theLabItem.LabTestName
theTableDataRow.AppendChild(theNode)
theNode = theXML.CreateElement("Result")
theNode.InnerText = theLabItem.LabTestResult
theTableDataRow.AppendChild(theNode)
theNode = theXML.CreateElement("RefRange")
theNode.InnerText = theLabItem.RefRange
theTableDataRow.AppendChild(theNode)
theTableData.AppendChild(theTableDataRow)
theLastCatg = CurrCatg
Next
If Not theLabGroup Is Nothing Then
'this is the last group, append it to the Lab Report
theLabGroup.AppendChild(theTableData)
theLabReport01.AppendChild(theLabGroup)
End If
theXML.AppendChild(theLabReport01)
xmlDecl = theXML.CreateXmlDeclaration("1.0", "utf-8", Nothing)
'theXML.InsertBefore(xmlDecl, theLabReport01)
Me.XDPData = theXML.InnerXml
End Sub
End Class
End Namespace
I hope this will be of help to all of you.
|
