क्रिस्टल रिपोर्ट के साथ गतिशील कस्टम रिपोर्टिंग

यह पोस्ट उन लोगों के लिए है, जिन्हें रिपोर्ट या किसी भी विश्लेषणात्मक सामग्री के गतिशील व्यक्तिगत मेलिंग के कार्य से सामना करना पड़ता है।

मान लीजिए कि आपकी कंपनी की शाखाओं का नेटवर्क है और आपको शाखा प्रबंधकों को काम के परिणामों के साथ रिपोर्ट के साप्ताहिक वितरण की व्यवस्था करने की आवश्यकता है। रिपोर्ट में पिछले सप्ताह की शाखा की गतिविधि के परिणाम शामिल होने चाहिए - टेबल, ग्राफ, विश्लेषणात्मक जानकारी। तदनुसार, प्रत्येक शाखा के लिए, रिपोर्ट में जानकारी अद्वितीय है।

मैं आपको बताता हूं कि इसे कैसे जल्दी और आसानी से करना है।
समस्या को हल करने के लिए, हमें क्रिस्टल रिपोर्ट्स 2008 और विज़ुअल स्टूडियो 2010 की आवश्यकता है (आप उत्पादों के पुराने संस्करणों का उपयोग कर सकते हैं)।
रिपोर्टों के वितरण को स्वचालित करने के लिए, यह आवश्यक है कि रिपोर्टिंग के लिए सभी विश्लेषणात्मक जानकारी डेटाबेस में निहित हो। परिणामस्वरूप, रिपोर्ट भेजने से पहले एक या अधिक डेटाबेस प्रश्नों में प्रत्येक शाखा पर डेटा प्राप्त करना अच्छा है।
उदाहरण क्वेरी परिणाम:


क्रिस्टल रिपोर्ट्स का उपयोग करके हम बिक्री, खर्चों और एक व्यक्तिगत शाखा के लिए अन्य संकेतकों पर डेटा युक्त रिपोर्ट उत्पन्न कर सकते हैं। रिपोर्ट में, हम डेटा स्रोत के रूप में इस क्वेरी के परिणामों का उपयोग करते हैं, और रिकॉर्ड चयन फॉर्मूला में हम एक शाखा के लिए एक फिल्टर का उपयोग करते हैं। उदाहरण के लिए, शाखा संख्या 1 है:

{data.branch} = 1 

चूँकि क्रिस्टल रिपोर्ट एक काफी लचीली उपकरण होती है, अपने औजारों जैसे कि सूत्र और उप-खातों का उपयोग करके, आप कोई भी दस्तावेज़ प्रारूप बना सकते हैं: एक साधारण एक-पृष्ठ रिपोर्ट से लेकर टेबल और ग्राफ़ के साथ एक स्वैच्छिक विश्लेषणात्मक अध्ययन तक।

इसके अलावा, रिकॉर्ड चयन फॉर्मूला को बदलते हुए, हम रिपोर्ट में किसी भी शाखा पर जानकारी प्रदर्शित कर सकते हैं।
आगे हमें केवल एक प्रारूप (पीडीएफ, xls, आरटीएफ) में से किसी एक को रिपोर्ट निर्यात करने और ई-मेल द्वारा भेजने की आवश्यकता है।

आइए देखें कि यह कैसे स्वचालित हो सकता है।

सबसे पहले, हमें एक तालिका की आवश्यकता है जिसमें शाखा संख्या और रिपोर्ट प्राप्तकर्ता का ईमेल है। हमें इस तालिका की तर्ज पर एक लूप लागू करना होगा। अगला, प्रत्येक पंक्ति के लिए, हम शाखा संख्या लेते हैं और इसे अपनी रिपोर्ट के रिकॉर्ड चयन फॉर्मूले में प्रतिस्थापित करते हैं। अगला, रिपोर्ट को एक पीडीएफ फाइल में निर्यात करें और इस फाइल को पत्र में संलग्न करें। हम पत्र को उचित पते पर भेजते हैं।

क्रिस्टल रिपोर्टें न केवल रिपोर्टिंग विकास वातावरण प्रदान करती हैं, बल्कि NET प्लेटफॉर्म के लिए विकास घटक हैं।
नीचे Visual Basic में एक नमूना कोड है:

 Imports System.Net.Mail Imports System.IO Imports System.Net.NetworkCredential Imports CrystalDecisions Module Module1 Sub Main() '      Dim Rows1 As DataRow Dim Table1 As New myData.MailListDataSet.Query1DataTable Dim myDA As New myData.MailListDataSetTableAdapters.Query1TableAdapter Dim strDate = Format(CDate(Today()), "ddMMyyyy") Dim myBranch As Integer Dim myBranchMail As String Dim myAppPath As String Dim myLogFilePath As String Dim myLogStr As String myAppPath = My.Application.Info.DirectoryPath ' ,      Dim myDirInf As New DirectoryInfo(myAppPath + "\" + strDate) If Not myDirInf.Exists() Then myDirInf.Create() End If '          myLogFilePath = myAppPath + "\" + strDate + "\log.txt" Dim fs As StreamWriter = File.CreateText(myLogFilePath) '   ( ,   ) myDA.Fill(Table1) '  ReportDocument     Dim myReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument myReport.FileName = myAppPath + "\report1.rpt" '   For Each Rows1 In Table1.Rows '     myBranch = Rows1.Item(0) myBranchMail = Rows1.Item(1) ' Record Selection Formula myReport.RecordSelectionFormula = "{data.branch} = " + CStr(myBranch) '  myReport.Refresh() Try '   pdf (   -    ) myReport.ExportToDisk([Shared].ExportFormatType.PortableDocFormat, myAppPath + "\" + strDate + "\Report for Branch " + CStr(myBranch) + " " + strDate + ".pdf") '       myLogStr = CStr(Now()) + ": " + "generate file for Branch " + CStr(myBranch) + Chr(13) + Chr(10) Console.Write(myLogStr) fs.Write(myLogStr) Catch exp As Exception '      Console.WriteLine("Erorr:" & exp.Message) myLogStr = CStr(Now()) + ": Erorr" & exp.Message & " when generate file for Branch " + CStr(myBranch) + Chr(13) + Chr(10) Console.Write(myLogStr) fs.Write(myLogStr) End Try ' Smtp Client      Dim mySmtp As New System.Net.Mail.SmtpClient("company.com") mySmtp.Credentials = New System.Net.NetworkCredential("user", "password") ' ,     Dim myMsg As New System.Net.Mail.MailMessage("mail@example.com", myBranchMail, "   X", _ "   " + CStr(myBranch) + ",      .") '     pdf  Dim myAtt As New System.Net.Mail.Attachment(myAppPath + "\" + strDate + "\Report for Branch " + CStr(myBranch) + " " + strDate + ".pdf") myMsg.Attachments.Add(myAtt) Try '  mySmtp.Send(myMsg) '       myLogStr = CStr(Now()) + ": " + "sending file for Branch " + CStr(myBranch) + ", on " + myBranchMail + Chr(13) + Chr(10) Console.Write(myLogStr) fs.Write(myLogStr) Catch exp As Exception '      Console.WriteLine("Erorr:" & exp.Message) myLogStr = CStr(Now()) + ": Erorr" & exp.Message & " when sending file for Branch " + CStr(myBranch) + Chr(13) + Chr(10) Console.Write(myLogStr) fs.Write(myLogStr) End Try Next Rows1 fs.Close() End Sub End Module 

कोड का उपयोग करके, आप एक कंसोल एप्लिकेशन बना सकते हैं और इसे शेड्यूल पर चला सकते हैं, या आप इसे ETIS पैकेज SSIS (MS SQL Server इंटीग्रेशन सर्विसेज) में उपयोग कर सकते हैं।