[asd103]

السلام عليكم
شباب ازاي نعمل ملف بدف بلغة الفجول بيسك  مع دمج الملف XML مثل الفاتورة الاكترونية وكده
اعمل حاليا على تطوير نظام مبيعات وصادفة دي المشكلة تحويل الفاتورة لملف بدف مع الملف الاكسمل

وشكرا

[تركي الحلواني]

السلام عليكم

في الأول قم بإضافة مكتبة : iTextSharp

وجرب هذا الكود بافتراض ان ملف الXML  موجود في نفس المسار للمشروع

PHP كود :

mports iTextSharp.text
Imports iTextSharp.text.pdf
Imports System.IO
Imports System.Xml

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' اسم الملف PDF الناتج
        Dim outputFile As String = "output.pdf"

        ' إنشاء ملف PDF
        Using doc As New Document()
            ' إضافة جميع البيانات الموجودة في ملف XML إلى الملف PDF
            Using writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(outputFile, FileMode.Create))
                doc.Open()

                ' قراءة ملف XML
                Dim xmlDoc As New XmlDocument()
                xmlDoc.Load("data.xml")

                ' تعيين ترميز الخط
                Dim baseFont As BaseFont = BaseFont.CreateFont("c:\\windows\\fonts\\arial.ttf", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
                Dim font As New Font(baseFont, 12)

                ' إضافة البيانات الموجودة في ملف XML إلى الملف PDF
                Dim nodes As XmlNodeList = xmlDoc.SelectNodes("/root/element")
                For Each node As XmlNode In nodes
                    Dim text As String = node.InnerText
                    doc.Add(New Paragraph(text, font))
                Next

                doc.Close()
                MessageBox.Show("تم إنشاء ملف PDF بنجاح.")
            End Using
        End Using
    End Sub
End Class 


[asd103]

مرحبا تركي 
شكرا ليك على الرد حاولة لم انجح لا اعرف السبب هناك رسالة خطأ 
The document has no pages
عند قراءة الملف PDF 
وتم التجريب على فاتورة مرفقة لم يدمج الملف XML مع PDF هناك خطأ لم استطيع معرفته

ارفقة التجريب لعل احد مرة عليه الاشكالية.

[asd103]

هل من حل ولكم جزيل الشكر

[تركي الحلواني]

(05-07-24, 12:33 PM)asd103 كتب : هل من حل ولكم جزيل الشكر

جرب هذا التعديل

PHP كود :

Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports System.IO
Imports System.Xml

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            ' اسم الملف PDF الناتج
            Dim outputFile As String = "output.pdf"

            ' إنشاء ملف PDF
            Using doc As New Document()
                ' إضافة جميع البيانات الموجودة في ملف XML إلى الملف PDF
                Using writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(outputFile, FileMode.Create))
                    doc.Open()

                    ' قراءة ملف XML
                    Dim xmlDoc As New XmlDocument()
                    xmlDoc.Load("data.xml")

                    ' تعيين ترميز الخط
                    Dim baseFont As BaseFont = BaseFont.CreateFont("c:\windows\\fonts\\arial.ttf", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
                    Dim font As New Font(baseFont, 12)

                    ' استخراج البيانات من ملف XML
                    Dim invoiceDate As String = xmlDoc.SelectSingleNode("//cbc:IssueDate", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim customerName As String = xmlDoc.SelectSingleNode("//cac:AccountingCustomerParty/cac:Party/cac:PartyLegalEntity/cbc:RegistrationName", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim totalAmount As String = xmlDoc.SelectSingleNode("//cbc:PayableAmount", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim discount As String = xmlDoc.SelectSingleNode("//cbc:AllowanceTotalAmount", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim tax As String = xmlDoc.SelectSingleNode("//cbc:TaxAmount", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim taxNumber As String = xmlDoc.SelectSingleNode("//cac:PartyTaxScheme/cbc:CompanyID", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim electronicSignature As String = xmlDoc.SelectSingleNode("//ds:SignatureValue", GetNamespaceManager(xmlDoc))?.InnerText

                    ' إضافة البيانات إلى ملف PDF بشكل منسق
                    doc.Add(New Paragraph("Invoice Details", font))
                    doc.Add(New Paragraph($"Invoice Date: {invoiceDate}", font))
                    doc.Add(New Paragraph($"Customer Name: {customerName}", font))
                    doc.Add(New Paragraph($"Total Amount: {totalAmount}", font))
                    doc.Add(New Paragraph($"Discount: {discount}", font))
                    doc.Add(New Paragraph($"Tax: {tax}", font))
                    doc.Add(New Paragraph($"Tax Number: {taxNumber}", font))
                    doc.Add(New Paragraph($"Electronic Signature: {electronicSignature}", font))

                    ' إضافة الأصناف إلى ملف PDF
                    doc.Add(New Paragraph("Items:", font))
                    Dim table As New PdfPTable(5)
                    table.WidthPercentage = 100
                    table.SetWidths(New Single() {10, 30, 10, 20, 20})

                    ' إضافة العناوين للجدول
                    table.AddCell(New PdfPCell(New Phrase("ID", font)))
                    table.AddCell(New PdfPCell(New Phrase("Name", font)))
                    table.AddCell(New PdfPCell(New Phrase("Quantity", font)))
                    table.AddCell(New PdfPCell(New Phrase("Unit Price", font)))
                    table.AddCell(New PdfPCell(New Phrase("Line Extension Amount", font)))

                    ' استخراج وإضافة الأصناف إلى الجدول
                    Dim nodes As XmlNodeList = xmlDoc.SelectNodes("//cac:InvoiceLine", GetNamespaceManager(xmlDoc))
                    For Each node As XmlNode In nodes
                        Dim id As String = node.SelectSingleNode("cbc:ID", GetNamespaceManager(xmlDoc))?.InnerText
                        Dim name As String = node.SelectSingleNode("cac:Item/cbc:Name", GetNamespaceManager(xmlDoc))?.InnerText
                        Dim quantity As String = node.SelectSingleNode("cbc:InvoicedQuantity", GetNamespaceManager(xmlDoc))?.InnerText
                        Dim unitPrice As String = node.SelectSingleNode("cac:Price/cbc:PriceAmount", GetNamespaceManager(xmlDoc))?.InnerText
                        Dim lineExtensionAmount As String = node.SelectSingleNode("cbc:LineExtensionAmount", GetNamespaceManager(xmlDoc))?.InnerText

                        table.AddCell(New PdfPCell(New Phrase(id, font)))
                        table.AddCell(New PdfPCell(New Phrase(name, font)))
                        table.AddCell(New PdfPCell(New Phrase(quantity, font)))
                        table.AddCell(New PdfPCell(New Phrase(unitPrice, font)))
                        table.AddCell(New PdfPCell(New Phrase(lineExtensionAmount, font)))
                    Next

                    doc.Add(table)
                    doc.Close()
                    MessageBox.Show("تم إنشاء ملف PDF بنجاح.")
                End Using
            End Using

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Function GetNamespaceManager(xmlDoc As XmlDocument) As XmlNamespaceManager
        Dim nsmgr As New XmlNamespaceManager(xmlDoc.NameTable)
        nsmgr.AddNamespace("cbc", "urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2")
        nsmgr.AddNamespace("cac", "urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2")
        nsmgr.AddNamespace("ext", "urn:oasis:names:specification:ubl:schema:xsd:CommonExtensionComponents-2")
        nsmgr.AddNamespace("ds", "http://www.w3.org/2000/09/xmldsig#")
        Return nsmgr
    End Function
End Class 


[asd103]

(11-07-24, 10:42 AM)تركي الحلواني كتب :

(05-07-24, 12:33 PM)asd103 كتب : هل من حل ولكم جزيل الشكر

جرب هذا التعديل

PHP كود :

Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports System.IO
Imports System.Xml

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            ' اسم الملف PDF الناتج
            Dim outputFile As String = "output.pdf"

            ' إنشاء ملف PDF
            Using doc As New Document()
                ' إضافة جميع البيانات الموجودة في ملف XML إلى الملف PDF
                Using writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(outputFile, FileMode.Create))
                    doc.Open()

                    ' قراءة ملف XML
                    Dim xmlDoc As New XmlDocument()
                    xmlDoc.Load("data.xml")

                    ' تعيين ترميز الخط
                    Dim baseFont As BaseFont = BaseFont.CreateFont("c:\windows\\fonts\\arial.ttf", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
                    Dim font As New Font(baseFont, 12)

                    ' استخراج البيانات من ملف XML
                    Dim invoiceDate As String = xmlDoc.SelectSingleNode("//cbc:IssueDate", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim customerName As String = xmlDoc.SelectSingleNode("//cac:AccountingCustomerParty/cac:Party/cac:PartyLegalEntity/cbc:RegistrationName", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim totalAmount As String = xmlDoc.SelectSingleNode("//cbc:PayableAmount", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim discount As String = xmlDoc.SelectSingleNode("//cbc:AllowanceTotalAmount", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim tax As String = xmlDoc.SelectSingleNode("//cbc:TaxAmount", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim taxNumber As String = xmlDoc.SelectSingleNode("//cac:PartyTaxScheme/cbc:CompanyID", GetNamespaceManager(xmlDoc))?.InnerText
                    Dim electronicSignature As String = xmlDoc.SelectSingleNode("//ds:SignatureValue", GetNamespaceManager(xmlDoc))?.InnerText

                    ' إضافة البيانات إلى ملف PDF بشكل منسق
                    doc.Add(New Paragraph("Invoice Details", font))
                    doc.Add(New Paragraph($"Invoice Date: {invoiceDate}", font))
                    doc.Add(New Paragraph($"Customer Name: {customerName}", font))
                    doc.Add(New Paragraph($"Total Amount: {totalAmount}", font))
                    doc.Add(New Paragraph($"Discount: {discount}", font))
                    doc.Add(New Paragraph($"Tax: {tax}", font))
                    doc.Add(New Paragraph($"Tax Number: {taxNumber}", font))
                    doc.Add(New Paragraph($"Electronic Signature: {electronicSignature}", font))

                    ' إضافة الأصناف إلى ملف PDF
                    doc.Add(New Paragraph("Items:", font))
                    Dim table As New PdfPTable(5)
                    table.WidthPercentage = 100
                    table.SetWidths(New Single() {10, 30, 10, 20, 20})

                    ' إضافة العناوين للجدول
                    table.AddCell(New PdfPCell(New Phrase("ID", font)))
                    table.AddCell(New PdfPCell(New Phrase("Name", font)))
                    table.AddCell(New PdfPCell(New Phrase("Quantity", font)))
                    table.AddCell(New PdfPCell(New Phrase("Unit Price", font)))
                    table.AddCell(New PdfPCell(New Phrase("Line Extension Amount", font)))

                    ' استخراج وإضافة الأصناف إلى الجدول
                    Dim nodes As XmlNodeList = xmlDoc.SelectNodes("//cac:InvoiceLine", GetNamespaceManager(xmlDoc))
                    For Each node As XmlNode In nodes
                        Dim id As String = node.SelectSingleNode("cbc:ID", GetNamespaceManager(xmlDoc))?.InnerText
                        Dim name As String = node.SelectSingleNode("cac:Item/cbc:Name", GetNamespaceManager(xmlDoc))?.InnerText
                        Dim quantity As String = node.SelectSingleNode("cbc:InvoicedQuantity", GetNamespaceManager(xmlDoc))?.InnerText
                        Dim unitPrice As String = node.SelectSingleNode("cac:Price/cbc:PriceAmount", GetNamespaceManager(xmlDoc))?.InnerText
                        Dim lineExtensionAmount As String = node.SelectSingleNode("cbc:LineExtensionAmount", GetNamespaceManager(xmlDoc))?.InnerText

                        table.AddCell(New PdfPCell(New Phrase(id, font)))
                        table.AddCell(New PdfPCell(New Phrase(name, font)))
                        table.AddCell(New PdfPCell(New Phrase(quantity, font)))
                        table.AddCell(New PdfPCell(New Phrase(unitPrice, font)))
                        table.AddCell(New PdfPCell(New Phrase(lineExtensionAmount, font)))
                    Next

                    doc.Add(table)
                    doc.Close()
                    MessageBox.Show("تم إنشاء ملف PDF بنجاح.")
                End Using
            End Using

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Function GetNamespaceManager(xmlDoc As XmlDocument) As XmlNamespaceManager
        Dim nsmgr As New XmlNamespaceManager(xmlDoc.NameTable)
        nsmgr.AddNamespace("cbc", "urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2")
        nsmgr.AddNamespace("cac", "urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2")
        nsmgr.AddNamespace("ext", "urn:oasis:names:specification:ubl:schema:xsd:CommonExtensionComponents-2")
        nsmgr.AddNamespace("ds", "http://www.w3.org/2000/09/xmldsig#")
        Return nsmgr
    End Function
End Class 


جبتها من الاخر مع الجذر ياتركي 
مشكور الله يزيدك من علمه وينفع بيك ويبارك ليك الف الف الف شكر