แนวทางการสร้าง XML
Imports System
Imports System.Xml
Imports System.Xml.XmlDeclaration
Imports System.IO
Imports System.Windows.Forms
Namespace ReadXML
End Namespace 'ReadXML
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Create XML."
Label1.Text = "start date"
Label2.Text = "end date"
DateTimePicker1.Value = Now
DateTimePicker2.Value = Now
Button1.Text = "OK"
''
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Sql As String
Dim GetXML As String = ""
Dim sPath As String = System.AppDomain.CurrentDomain.BaseDirectory()
Dim sFile As String = "ExportXML.xml"
Me.Cursor = Cursors.WaitCursor
Sql = sqlQuery()
ConnectDB(Sql)
'Deleted file
Dim fi As New FileInfo(sPath & sFile)
fi.Delete()
ExportXML(dt, sPath & sFile)
MsgBox(sPath & sFile & " is Successfull.", MsgBoxStyle.OkOnly)
Shell("explorer " & Trim((sPath & sFile)))
Me.Cursor = Cursors.Default
End Sub
Public Sub ExportXML(ByVal myTable As DataTable, ByVal Location As String)
Dim mdt As DataTable
Dim mysql As String
mysql = ""
Dim old_repair_order_Id As String
old_repair_order_Id = ""
Dim old_invoice_Id As String
old_invoice_Id = ""
Dim old_Invoice_Details_ID As String
old_Invoice_Details_ID = ""
Dim old_Parts_Order_ID As String
old_Parts_Order_ID = ""
Dim old_Repair_Task_ID As String
old_Repair_Task_ID = ""
Dim old_Customer_ID As String
old_Customer_ID = ""
Dim old_Vehicle_id As String
old_Vehicle_id = ""
'
Dim old_Vehicle_Model_ID As String
old_Vehicle_Model_ID = ""
Dim old_Make_ID As String
old_Make_ID = ""
'Dim old_subcontract_job_Id As String
'old_subcontract_job_Id = ""
Dim ele0 As MSXML2.IXMLDOMElement
Dim ele1 As MSXML2.IXMLDOMElement
Dim ele2 As MSXML2.IXMLDOMElement
Dim ele3 As MSXML2.IXMLDOMElement
Dim ele4 As MSXML2.IXMLDOMElement
Dim ele5 As MSXML2.IXMLDOMElement
Dim ele6 As MSXML2.IXMLDOMElement
Dim ele7 As MSXML2.IXMLDOMElement
Dim ele8 As MSXML2.IXMLDOMElement
Dim ele9 As MSXML2.IXMLDOMElement
Dim ele10 As MSXML2.IXMLDOMElement
Dim ele11 As MSXML2.IXMLDOMElement
Dim ele12 As MSXML2.IXMLDOMElement
Dim ele13 As MSXML2.IXMLDOMElement
Dim ele14 As MSXML2.IXMLDOMElement
Dim ele15 As MSXML2.IXMLDOMElement
Dim ele16 As MSXML2.IXMLDOMElement
Dim ele17 As MSXML2.IXMLDOMElement
Dim xmlDoc As MSXML2.DOMDocument
xmlDoc = New MSXML2.DOMDocument
'--head
Dim codePage = "version='1.0' encoding='UTF-8'"
Dim b = xmlDoc.createProcessingInstruction("xml", codePage)
xmlDoc.appendChild(b)
ele0 = xmlDoc.createNode(1, "carmamData", "") ' Dynamic FluxXXXXMessage
xmlDoc.appendChild(ele0)
For Each drRow As DataRow In myTable.Rows
If old_repair_order_Id <> drRow.Item("repair_order_Id").ToString Or old_repair_order_Id = "" Then
ele1 = AddElement(xmlDoc, ele0, "repair_order_Id", "")
AddAttribute(xmlDoc, ele1, 2, "Id", drRow.Item("repair_order_Id").ToString())
ele2 = AddElement(xmlDoc, ele1, "Repair_Order_Status_ID", drRow.Item("Repair_Order_Status_ID").ToString())
ele2 = AddElement(xmlDoc, ele1, "Vehicle_ID", drRow.Item("Vehicle_ID").ToString())
ele2 = AddElement(xmlDoc, ele1, "Order_creation_date", drRow.Item("Order_creation_date").ToString())
ele2 = AddElement(xmlDoc, ele1, "Created_by", drRow.Item("Created_by").ToString())
ele2 = AddElement(xmlDoc, ele1, "Definitive_Damage_Report_ID", drRow.Item("Definitive_Damage_Report_ID").ToString())
ele2 = AddElement(xmlDoc, ele1, "Work_Startdate", drRow.Item("Work_Startdate").ToString())
ele2 = AddElement(xmlDoc, ele1, "Work_Enddate", drRow.Item("Work_Enddate").ToString())
ele2 = AddElement(xmlDoc, ele1, "Modification_Date", drRow.Item("Modification_Date").ToString())
ele2 = AddElement(xmlDoc, ele1, "Repair_Order_Number", drRow.Item("Repair_Order_Number").ToString())
ele2 = AddElement(xmlDoc, ele1, "Car_pickup_date", drRow.Item("Car_pickup_date").ToString())
ele2 = AddElement(xmlDoc, ele1, "owner_id", drRow.Item("owner_id").ToString())
ele2 = AddElement(xmlDoc, ele1, "holder_id", drRow.Item("holder_id").ToString())
ele2 = AddElement(xmlDoc, ele1, "Dealer_id", drRow.Item("Dealer_id").ToString())
ele2 = AddElement(xmlDoc, ele1, "Vehicle_Date_In", drRow.Item("Vehicle_Date_In").ToString())
ele2 = AddElement(xmlDoc, ele1, "ExternalRONumber", drRow.Item("ExternalRONumber").ToString())
ele2 = AddElement(xmlDoc, ele1, "Work_start_time", drRow.Item("Work_start_time").ToString())
ele2 = AddElement(xmlDoc, ele1, "vehicle_in_time", drRow.Item("vehicle_in_time").ToString())
ele2 = AddElement(xmlDoc, ele1, "Work_finished_date", drRow.Item("Work_finished_date").ToString())
ele2 = AddElement(xmlDoc, ele1, "Date_Customer_Informed", drRow.Item("Date_Customer_Informed").ToString())
End If
''Invoice_Header
If old_invoice_Id <> drRow.Item("Invoice_Id").ToString Or old_invoice_Id = "" Then
ele2 = AddElement(xmlDoc, ele1, "Invoice_Id", "")
AddAttribute(xmlDoc, ele2, 2, "Id", drRow.Item("Invoice_Id").ToString())
ele3 = AddElement(xmlDoc, ele2, "Invoice_Date", drRow.Item("Invoice_Date").ToString())
ele3 = AddElement(xmlDoc, ele2, "Invoice_Due_Date", drRow.Item("Invoice_Due_Date").ToString())
ele3 = AddElement(xmlDoc, ele2, "Invoice_Number", drRow.Item("Invoice_Number").ToString())
ele3 = AddElement(xmlDoc, ele2, "Invoice_Ref", drRow.Item("Invoice_Ref").ToString())
ele3 = AddElement(xmlDoc, ele2, "Invoice_Total_Net", drRow.Item("Invoice_Total_Net").ToString())
ele3 = AddElement(xmlDoc, ele2, "Invoice_GLobal_Rebate_Amount", drRow.Item("Invoice_GLobal_Rebate_Amount").ToString())
ele3 = AddElement(xmlDoc, ele2, "Invoice_VAT_Amount", drRow.Item("Invoice_VAT_Amount").ToString())
ele3 = AddElement(xmlDoc, ele2, "Invoice_Total_To_Pay", drRow.Item("Invoice_Total_To_Pay").ToString())
ele3 = AddElement(xmlDoc, ele2, "Invoice_Status", drRow.Item("Invoice_Status").ToString())
ele3 = AddElement(xmlDoc, ele2, "Repair_Order_ID", drRow.Item("Repair_Order_ID").ToString())
ele3 = AddElement(xmlDoc, ele2, "Customer_ID", drRow.Item("Customer_ID").ToString())
ele3 = AddElement(xmlDoc, ele2, "Customer_Number", drRow.Item("Customer_Number").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_id", drRow.Item("Vehicle_id").ToString())
ele3 = AddElement(xmlDoc, ele2, "Direct_InvoiceYN", drRow.Item("Direct_InvoiceYN").ToString())
ele3 = AddElement(xmlDoc, ele2, "damage_report_ID", drRow.Item("damage_report_ID").ToString())
ele3 = AddElement(xmlDoc, ele2, "CancelledYN", drRow.Item("CancelledYN").ToString())
ele3 = AddElement(xmlDoc, ele2, "Cn_id", drRow.Item("Cn_id").ToString())
''invoice detail
mysql = "select Invoice_details.Invoice_Details_ID, Invoice_details.Invoice_ID, Invoice_details.Item_description, Invoice_details.Item_Unit_Price, Invoice_details.Item_Rebate_Amount, Invoice_details.Item_Quantity, Invoice_details.Item_Line_Total, Invoice_details.VAT_PCT, Invoice_details.analysis_cat_ID, Invoice_details.Item_Order, Invoice_details.Createby_Rebate_Scheme from Invoice_details where Invoice_details.Invoice_ID = " & drRow.Item("Invoice_Id").ToString()
mdt = UReadSqlbase("", mysql, "")
If Not mdt Is Nothing Then
For Each drRow1 As DataRow In mdt.Rows
ele3 = AddElement(xmlDoc, ele2, "Invoice_Details_ID", "")
AddAttribute(xmlDoc, ele3, 2, "Id", drRow1.Item("Invoice_Details_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Invoice_ID", drRow1.Item("Invoice_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Item_description", drRow1.Item("Item_description").ToString())
ele4 = AddElement(xmlDoc, ele3, "Item_Unit_Price", drRow1.Item("Item_Unit_Price").ToString())
ele4 = AddElement(xmlDoc, ele3, "Item_Rebate_Amount", drRow1.Item("Item_Rebate_Amount").ToString())
ele4 = AddElement(xmlDoc, ele3, "Item_Quantity", drRow1.Item("Item_Quantity").ToString())
ele4 = AddElement(xmlDoc, ele3, "Item_Line_Total", drRow1.Item("Item_Line_Total").ToString())
ele4 = AddElement(xmlDoc, ele3, "VAT_PCT", drRow1.Item("VAT_PCT").ToString())
ele4 = AddElement(xmlDoc, ele3, "analysis_cat_ID", drRow1.Item("analysis_cat_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Item_Order", drRow1.Item("Item_Order").ToString())
ele4 = AddElement(xmlDoc, ele3, "Createby_Rebate_Scheme", drRow1.Item("Createby_Rebate_Scheme").ToString())
Next
End If
mdt = Nothing
''''''Customer
If old_Customer_ID <> drRow.Item("Customer_ID").ToString Or old_Customer_ID = "" And drRow.Item("Customer_ID").ToString() <> "" Then
ele3 = AddElement(xmlDoc, ele2, "Customer_ID", "")
AddAttribute(xmlDoc, ele3, 2, "Id", drRow.Item("Customer_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Customer_Name", drRow.Item("Customer_Name").ToString())
ele4 = AddElement(xmlDoc, ele3, "Forename", drRow.Item("Forename").ToString())
ele4 = AddElement(xmlDoc, ele3, "Language_ID", drRow.Item("Language_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "CompanyYN", drRow.Item("CompanyYN").ToString())
ele4 = AddElement(xmlDoc, ele3, "Contact", drRow.Item("Contact").ToString())
ele4 = AddElement(xmlDoc, ele3, "Dayphone", drRow.Item("Dayphone").ToString())
ele4 = AddElement(xmlDoc, ele3, "Mobile", drRow.Item("Mobile").ToString())
ele4 = AddElement(xmlDoc, ele3, "Eveningphone", drRow.Item("Eveningphone").ToString())
ele4 = AddElement(xmlDoc, ele3, "Fax", drRow.Item("Fax").ToString())
ele4 = AddElement(xmlDoc, ele3, "Email", drRow.Item("Email").ToString())
ele4 = AddElement(xmlDoc, ele3, "Street_Nr", drRow.Item("Street_Nr").ToString())
ele4 = AddElement(xmlDoc, ele3, "Postcode", drRow.Item("Postcode").ToString())
ele4 = AddElement(xmlDoc, ele3, "Locality", drRow.Item("Locality").ToString())
ele4 = AddElement(xmlDoc, ele3, "City", drRow.Item("City").ToString())
ele4 = AddElement(xmlDoc, ele3, "Cy_Type_ID", drRow.Item("Cy_Type_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Cy_VAT", drRow.Item("Cy_VAT").ToString())
ele4 = AddElement(xmlDoc, ele3, "Credit_Limit", drRow.Item("Credit_Limit").ToString())
ele4 = AddElement(xmlDoc, ele3, "Payment_Time_ID", drRow.Item("Payment_Time_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Country_ID", drRow.Item("Country_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Customer_Type", drRow.Item("Customer_Type").ToString())
ele4 = AddElement(xmlDoc, ele3, "Handicapped", drRow.Item("Handicapped").ToString())
ele4 = AddElement(xmlDoc, ele3, "VAT_Code", drRow.Item("VAT_Code").ToString())
ele4 = AddElement(xmlDoc, ele3, "Nr_of_Copies_Invoice", drRow.Item("Nr_of_Copies_Invoice").ToString())
ele4 = AddElement(xmlDoc, ele3, "Blocked", drRow.Item("Blocked").ToString())
ele4 = AddElement(xmlDoc, ele3, "BLocked_By", drRow.Item("BLocked_By").ToString())
ele4 = AddElement(xmlDoc, ele3, "Customer_Number", drRow.Item("Customer_Number").ToString())
ele4 = AddElement(xmlDoc, ele3, "Contract_Number", drRow.Item("Contract_Number").ToString())
ele4 = AddElement(xmlDoc, ele3, "Rebate_Scheme_ID", drRow.Item("Rebate_Scheme_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Remarks", drRow.Item("Remarks").ToString())
ele4 = AddElement(xmlDoc, ele3, "Account_Number", drRow.Item("Account_Number").ToString())
ele4 = AddElement(xmlDoc, ele3, "Account_Type_Id", drRow.Item("Account_Type_Id").ToString())
ele4 = AddElement(xmlDoc, ele3, "Sex_ID", drRow.Item("Sex_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Nat_Nummer", drRow.Item("Nat_Nummer").ToString())
ele4 = AddElement(xmlDoc, ele3, "Post_address_name", drRow.Item("Post_address_name").ToString())
ele4 = AddElement(xmlDoc, ele3, "Post_address_country_ID", drRow.Item("Post_address_country_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Post_address_postcode", drRow.Item("Post_address_postcode").ToString())
ele4 = AddElement(xmlDoc, ele3, "Post_address_city", drRow.Item("Post_address_city").ToString())
ele4 = AddElement(xmlDoc, ele3, "Post_address_street_Nr", drRow.Item("Post_address_street_Nr").ToString())
ele4 = AddElement(xmlDoc, ele3, "Post_address_locality", drRow.Item("Post_address_locality").ToString())
ele4 = AddElement(xmlDoc, ele3, "Id_Card_Number", drRow.Item("Id_Card_Number").ToString())
ele4 = AddElement(xmlDoc, ele3, "Date_of_birth", drRow.Item("Date_of_birth").ToString())
ele4 = AddElement(xmlDoc, ele3, "Repair_Task_Type_ID", drRow.Item("Repair_Task_Type_ID").ToString())
End If
old_Customer_ID = drRow.Item("Customer_ID").ToString()
old_repair_order_Id = drRow.Item("repair_order_Id").ToString
End If
old_invoice_Id = drRow.Item("Invoice_Id").ToString
old_repair_order_Id = drRow.Item("repair_order_Id").ToString
''Parts_Order_Header
If old_Parts_Order_ID <> drRow.Item("Parts_Order_ID").ToString Or old_Parts_Order_ID = "" And drRow.Item("Parts_Order_ID").ToString() <> "" Then
ele2 = AddElement(xmlDoc, ele1, "Repair_Order_ID", "")
AddAttribute(xmlDoc, ele2, 2, "Id", drRow.Item("Parts_Order_ID").ToString())
ele3 = AddElement(xmlDoc, ele2, "Order_number", drRow.Item("Order_number").ToString())
ele3 = AddElement(xmlDoc, ele2, "Order_date", drRow.Item("Order_date").ToString())
ele3 = AddElement(xmlDoc, ele2, "Order_sent", drRow.Item("Order_sent").ToString())
ele3 = AddElement(xmlDoc, ele2, "Reference", drRow.Item("Reference").ToString())
ele3 = AddElement(xmlDoc, ele2, "Total_Net", drRow.Item("Total_Net").ToString())
ele3 = AddElement(xmlDoc, ele2, "Total_Gross", drRow.Item("Total_Gross").ToString())
ele3 = AddElement(xmlDoc, ele2, "Fix_Total", drRow.Item("Fix_Total").ToString())
ele3 = AddElement(xmlDoc, ele2, "completely_purchase_invoicedYN", drRow.Item("completely_purchase_invoicedYN").ToString())
ele3 = AddElement(xmlDoc, ele2, "remarks2", drRow.Item("remarks2").ToString())
''Parts_Order_Details
mysql = "select Parts_Order_ID,Parts_Order_Details.Part_Number,Parts_Order_Details.Quantity,Parts_Order_Details.Price,Parts_Order_Details.Rebate_Pct,Parts_Order_Details.Received,Parts_Order_Details.Backorder,Parts_Order_Details.Part_Type_Id ,Parts_Order_Details.CancelledYN ,Parts_Order_Details.Net_Purchase_Price ,Parts_Order_Details.purchase_invoicedYN,Parts_Order_Details.Purchase_creditedYN,Parts_Order_Details.return_quantity from Parts_Order_Header FULL OUTER JOIN Parts_Order_Details on Parts_Order_Details.Parts_Order_ID = " & drRow.Item("Parts_Order_ID").ToString & " and Parts_Order_Details.CancelledYN = 0 and Parts_Order_Details.return_quantity = 0 and (Parts_Order_Details.Part_Type_Id =14 or Parts_Order_Details.Part_Type_Id =12) "
Debug.Print(mysql)
mdt = UReadSqlbase("", mysql, "")
If Not mdt Is Nothing Then
For Each drRow1 As DataRow In mdt.Rows
ele3 = AddElement(xmlDoc, ele2, "Parts_Order_ID", "")
AddAttribute(xmlDoc, ele3, 2, "Id", drRow1.Item("Parts_Order_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Part_Number", drRow1.Item("Part_Number").ToString())
ele4 = AddElement(xmlDoc, ele3, "Quantity", drRow1.Item("Quantity").ToString())
ele4 = AddElement(xmlDoc, ele3, "Price", drRow1.Item("Price").ToString())
ele4 = AddElement(xmlDoc, ele3, "Rebate_Pct", drRow1.Item("Rebate_Pct").ToString())
ele4 = AddElement(xmlDoc, ele3, "Received", drRow1.Item("Received").ToString())
ele4 = AddElement(xmlDoc, ele3, "Backorder", drRow1.Item("Backorder").ToString())
ele4 = AddElement(xmlDoc, ele3, "Part_Type_Id", drRow1.Item("Part_Type_Id").ToString())
ele4 = AddElement(xmlDoc, ele3, "CancelledYN", drRow1.Item("CancelledYN").ToString())
ele4 = AddElement(xmlDoc, ele3, "Net_Purchase_Price", drRow1.Item("Net_Purchase_Price").ToString())
ele4 = AddElement(xmlDoc, ele3, "purchase_invoicedYN", drRow1.Item("purchase_invoicedYN").ToString())
ele4 = AddElement(xmlDoc, ele3, "Purchase_creditedYN", drRow1.Item("Purchase_creditedYN").ToString())
ele4 = AddElement(xmlDoc, ele3, "return_quantity", drRow1.Item("return_quantity").ToString())
Next
End If
mdt = Nothing
End If
old_Parts_Order_ID = drRow.Item("Parts_Order_ID").ToString
old_repair_order_Id = drRow.Item("repair_order_Id").ToString
''''Repair_Task
If old_Repair_Task_ID <> drRow.Item("Repair_Task_ID").ToString Or old_Repair_Task_ID = "" And drRow.Item("Repair_Task_ID").ToString() <> "" Then
ele2 = AddElement(xmlDoc, ele1, "Repair_Task_ID", "")
AddAttribute(xmlDoc, ele2, 2, "Id", drRow.Item("Repair_Task_ID").ToString())
ele3 = AddElement(xmlDoc, ele2, "Repair_Task_ID", drRow.Item("Repair_Task_ID").ToString())
ele3 = AddElement(xmlDoc, ele2, "Repair_Task_Comments", drRow.Item("Repair_Task_Comments").ToString())
ele3 = AddElement(xmlDoc, ele2, "Repair_Task_quantity", drRow.Item("Repair_Task_quantity").ToString())
ele3 = AddElement(xmlDoc, ele2, "Repair_Task_unit_price", drRow.Item("Repair_Task_unit_price").ToString())
ele3 = AddElement(xmlDoc, ele2, "Task_finished_date", drRow.Item("Task_finished_date").ToString())
''Parts_Order_Details
mysql = "select * from Repair_Part where Repair_Task_ID = " & drRow.Item("Repair_Task_ID").ToString
mdt = UReadSqlbase("", mysql, "")
If Not mdt Is Nothing Then
'Debug.Print("Repair_Task_ID = " & drRow.Item("Repair_Task_ID").ToString)
'Debug.Print("Qurey = " & mysql)
'Debug.Print("Record Count = " & mdt.Rows.Count)
'Debug.Print("Begin = " & Now)
For Each drRow1 As DataRow In mdt.Rows
ele3 = AddElement(xmlDoc, ele2, "Repair_Part_ID", "")
AddAttribute(xmlDoc, ele3, 2, "Id", drRow1.Item("Repair_Part_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Repair_Task_ID", drRow1.Item("Repair_Task_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Repair_Part_description", drRow1.Item("Repair_Part_description").ToString())
ele4 = AddElement(xmlDoc, ele3, "Repair_Part_Quantity", drRow1.Item("Repair_Part_Quantity").ToString())
ele4 = AddElement(xmlDoc, ele3, "Repair_Part_Amount", drRow1.Item("Repair_Part_Amount").ToString())
ele4 = AddElement(xmlDoc, ele3, "Repair_Part_Comment", drRow1.Item("Repair_Part_Comment").ToString())
ele4 = AddElement(xmlDoc, ele3, "Repair_Part_Type_ID", drRow1.Item("Repair_Part_Type_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Repair_OEM_Brand_ID", drRow1.Item("Repair_OEM_Brand_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Repair_Part_Price", drRow1.Item("Repair_Part_Price").ToString())
ele4 = AddElement(xmlDoc, ele3, "Repair_Partnumber", drRow1.Item("Repair_Partnumber").ToString())
ele4 = AddElement(xmlDoc, ele3, "ReplaceYN", drRow1.Item("ReplaceYN").ToString())
ele4 = AddElement(xmlDoc, ele3, "CountYN", drRow1.Item("CountYN").ToString())
ele4 = AddElement(xmlDoc, ele3, "Repair_Part_Time", drRow1.Item("Repair_Part_Time").ToString())
ele4 = AddElement(xmlDoc, ele3, "CreatebyGridYN", drRow1.Item("CreatebyGridYN").ToString())
ele4 = AddElement(xmlDoc, ele3, "Material_Type", drRow1.Item("Material_Type").ToString())
ele4 = AddElement(xmlDoc, ele3, "Damage_Location", drRow1.Item("Damage_Location").ToString())
ele4 = AddElement(xmlDoc, ele3, "OrderedYN", drRow1.Item("OrderedYN").ToString())
ele4 = AddElement(xmlDoc, ele3, "old_part_id", drRow1.Item("old_part_id").ToString())
ele4 = AddElement(xmlDoc, ele3, "part_finished", drRow1.Item("part_finished").ToString())
ele4 = AddElement(xmlDoc, ele3, "Date_finished", drRow1.Item("Date_finished").ToString())
ele4 = AddElement(xmlDoc, ele3, "ActivityYN", drRow1.Item("ActivityYN").ToString())
Next
'Debug.Print("end = " & Now)
'Debug.Print("......")
End If
mdt = Nothing
End If
old_Repair_Task_ID = drRow.Item("Repair_Task_ID").ToString
old_repair_order_Id = drRow.Item("repair_order_Id").ToString
'''Vehicle
If old_Vehicle_id <> drRow.Item("Vehicle_id").ToString Or old_Vehicle_id = "" And drRow.Item("Vehicle_id").ToString() <> "" Then
ele2 = AddElement(xmlDoc, ele1, "Vehicle_id", "")
AddAttribute(xmlDoc, ele2, 2, "Id", drRow.Item("Vehicle_id").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_Model_year", drRow.Item("Vehicle_Model_year").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_First_Reg", drRow.Item("Vehicle_First_Reg").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_Numberplate", drRow.Item("Vehicle_Numberplate").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_VIN", drRow.Item("Vehicle_VIN").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_Reg_Doc_Name", drRow.Item("Vehicle_Reg_Doc_Name").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_Colour", drRow.Item("Vehicle_Colour").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_Trim", drRow.Item("Vehicle_Trim").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_AlarmsystemYN", drRow.Item("Vehicle_AlarmsystemYN").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_alarm_key", drRow.Item("Vehicle_alarm_key").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_alarm_code", drRow.Item("Vehicle_alarm_code").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_wheellock_keyYN", drRow.Item("Vehicle_wheellock_keyYN").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_wheellock_code", drRow.Item("Vehicle_wheellock_code").ToString())
ele3 = AddElement(xmlDoc, ele2, "Locality", drRow.Item("Locality").ToString())
ele3 = AddElement(xmlDoc, ele2, "Customer_ID", drRow.Item("Customer_ID").ToString())
ele3 = AddElement(xmlDoc, ele2, "Engine_Number", drRow.Item("Engine_Number").ToString())
ele3 = AddElement(xmlDoc, ele2, "Fuel_Type", drRow.Item("Fuel_Type").ToString())
ele3 = AddElement(xmlDoc, ele2, "CC", drRow.Item("CC").ToString())
ele3 = AddElement(xmlDoc, ele2, "KW", drRow.Item("KW").ToString())
ele3 = AddElement(xmlDoc, ele2, "second_registration_date", drRow.Item("second_registration_date").ToString())
ele3 = AddElement(xmlDoc, ele2, "colour_code", drRow.Item("colour_code").ToString())
ele3 = AddElement(xmlDoc, ele2, "paint_type", drRow.Item("paint_type").ToString())
ele3 = AddElement(xmlDoc, ele2, "number_doors", drRow.Item("number_doors").ToString())
ele3 = AddElement(xmlDoc, ele2, "colour_code_paint", drRow.Item("colour_code_paint").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_Radio_Code", drRow.Item("Vehicle_Radio_Code").ToString())
ele3 = AddElement(xmlDoc, ele2, "Date_First_Permission", drRow.Item("Date_First_Permission").ToString())
ele3 = AddElement(xmlDoc, ele2, "Mileage_Type", drRow.Item("Mileage_Type").ToString())
ele3 = AddElement(xmlDoc, ele2, "Registration_Country", drRow.Item("Registration_Country").ToString())
ele3 = AddElement(xmlDoc, ele2, "Vehicle_Tec_Ctrl_date", drRow.Item("Vehicle_Tec_Ctrl_date").ToString())
End If
old_Vehicle_id = drRow.Item("Vehicle_id").ToString
old_repair_order_Id = drRow.Item("repair_order_Id").ToString
'' Make
If old_Make_ID <> drRow.Item("Vehicle_Make_ID").ToString Or old_Make_ID = "" And drRow.Item("Vehicle_Make_ID").ToString() <> "" Then
ele2 = AddElement(xmlDoc, ele1, "Make_ID", "")
AddAttribute(xmlDoc, ele2, 2, "Id", drRow.Item("Make_ID").ToString())
ele3 = AddElement(xmlDoc, ele2, "Make_name", drRow.Item("Make_name").ToString())
''Model
mysql = "SELECT * FROM Model where Make_ID = " & drRow.Item("Vehicle_Make_ID").ToString
mdt = UReadSqlbase("", mysql, "")
If Not mdt Is Nothing Then
For Each drRow1 As DataRow In mdt.Rows
ele3 = AddElement(xmlDoc, ele2, "Vehicle_Model_ID", "")
AddAttribute(xmlDoc, ele3, 2, "Id", drRow1.Item("Model_ID").ToString())
ele4 = AddElement(xmlDoc, ele3, "Model_name", drRow1.Item("Model_name").ToString())
Next
End If
mdt = Nothing
End If
old_Vehicle_Model_ID = drRow.Item("Vehicle_Model_ID").ToString
old_Make_ID = drRow.Item("Make_ID").ToString
old_repair_order_Id = drRow.Item("repair_order_Id").ToString
Next
xmlDoc.save(Location)
End Sub
'==================================================================
Function AddAttribute(ByVal root As MSXML2.DOMDocument, ByVal mom As MSXML2.IXMLDOMElement, _
ByVal ntype As Integer, ByVal name As String, ByVal value As String) As MSXML2.IXMLDOMNode
Try
AddAttribute = root.createNode(ntype, name, "")
AddAttribute.nodeValue = value
mom.attributes.setNamedItem(AddAttribute)
Catch ex As Exception
End Try
End Function
Function AddElement(ByVal root As MSXML2.DOMDocument, ByVal mom As MSXML2.IXMLDOMNode, _
ByVal name As String, ByVal value As String, Optional ByVal IshaveValue As Boolean = False) As MSXML2.IXMLDOMElement
Try
If IshaveValue Then
If Trim(value) <> "" Then
AddElement = root.createElement(name)
AddElement.nodeTypedValue = value
mom.appendChild(AddElement)
End If
Else
AddElement = root.createElement(name)
AddElement.nodeTypedValue = value
mom.appendChild(AddElement)
End If
Catch ex As Exception
End Try
End Function
Private Function sqlQuery() As String
Dim str As String
'set field
str = "Invoice_Header.Invoice_Id,Invoice_Header.Invoice_Date,Invoice_Header.Invoice_Due_Date,Invoice_Header.Invoice_Number,"
str += "Invoice_Header.Invoice_Ref,Invoice_Header.Invoice_Total_Net,Invoice_Header.Invoice_GLobal_Rebate_Amount,Invoice_Header.Invoice_VAT_Amount,"
str += "Invoice_Header.Invoice_Total_To_Pay,Invoice_Header.Invoice_Status,Invoice_Header.Repair_Order_ID,Invoice_Header.Customer_ID,"
str += "Invoice_Header.Customer_Number,Invoice_Header.Vehicle_id,Invoice_Header.Direct_InvoiceYN,Invoice_Header.damage_report_ID,"
str += "Invoice_Header.CancelledYN,Invoice_Header.Cn_id,Repair_Order.Repair_Order_Status_ID,Repair_Order.Vehicle_ID,"
str += "Repair_Order.Order_creation_date,Repair_Order.Created_by,Repair_Order.Definitive_Damage_Report_ID,Repair_Order.Work_Startdate,"
str += "Repair_Order.Work_Enddate ,Repair_Order.Modification_Date,Repair_Order.Repair_Order_Number,Repair_Order.Car_pickup_date,"
str += "Repair_Order.owner_id,Repair_Order.holder_id,Repair_Order.Vehicle_Date_In,Repair_Order.Dealer_id,"
str += "Repair_Order.Work_Endtime datetime,Repair_Order.ExternalRONumber,Repair_Order.Work_start_time,Repair_Order.vehicle_in_time,"
str += "Repair_Order.Work_finished_date,Repair_Order.Work_finished_time,Repair_Order.Date_Customer_Informed,Make.Make_ID,Make.Make_name,"
str += "model.Model_Id,model.Model_name,Vehicle.Vehicle_Model_year,Vehicle.Vehicle_First_Reg,Vehicle.Vehicle_Numberplate,Vehicle.Vehicle_VIN,Vehicle.Vehicle_Model_ID,Vehicle.Vehicle_Make_ID,"
str += "Vehicle.Vehicle_Reg_Doc_Name,Vehicle.Vehicle_Colour,Vehicle.Vehicle_Trim,Vehicle.Vehicle_AlarmsystemYN,"
str += "Vehicle.Vehicle_alarm_key,Vehicle.Vehicle_alarm_code,Vehicle.Vehicle_wheellock_keyYN,Vehicle.Vehicle_wheellock_code,"
str += "Vehicle.Customer_ID,Vehicle.Engine_Number,Vehicle.Fuel_Type, Vehicle.CC,"
str += "Vehicle.KW,Vehicle.second_registration_date,Vehicle.colour_code,Vehicle.paint_type,Vehicle.number_doors,"
str += "Vehicle.number_doors int,Vehicle.colour_code_paint,Vehicle.Vehicle_Radio_Code,Vehicle.Date_First_Permission,"
str += "Vehicle.Mileage_Type,Vehicle.Registration_Country,Vehicle.Vehicle_Tec_Ctrl_date,Parts_Order_Header.Parts_Order_ID,"
str += "Parts_Order_Header.Order_number,Parts_Order_Header.Order_date,Parts_Order_Header.Order_sent,Parts_Order_Header.Reference,Parts_Order_Header.Total_Net,Parts_Order_Header.Total_Gross,"
str += "Parts_Order_Header.Fix_Total,Parts_Order_Header.completely_purchase_invoicedYN,"
str += "Parts_Order_Header.remarks2, Parts_Order_Details.Part_Number,Parts_Order_Details.Quantity,Parts_Order_Details.Price,Parts_Order_Details.Rebate_Pct,"
str += "Parts_Order_Details.Received,Parts_Order_Details.Backorder,Parts_Order_Details.Part_Type_Id ,"
str += "Parts_Order_Details.CancelledYN ,Parts_Order_Details.Net_Purchase_Price ,Parts_Order_Details.purchase_invoicedYN,Parts_Order_Details.Purchase_creditedYN,"
str += "Parts_Order_Details.return_quantity ,Customer.Customer_Name,Customer.Forename,Customer.Language_ID,Customer.CompanyYN,"
str += "Customer.Contact,Customer.Dayphone,Customer.Mobile,Customer.Eveningphone,Customer.Fax,Customer.Email,Customer.Street_Nr,Customer.Postcode,"
str += "Customer.Locality,Customer.City,Customer.Cy_Type_ID,Customer.Cy_VAT,Customer.Credit_Limit,"
str += "Customer.Payment_Time_ID,Customer.Country_ID,Customer.Customer_Type,Customer.Handicapped,"
str += "Customer.VAT_Code,Customer.Nr_of_Copies_Invoice,Customer.Blocked,Customer.BLocked_By,Customer.Customer_Number,Customer.Contract_Number,"
str += "Customer.Rebate_Scheme_ID,Customer.Remarks,Customer.Account_Number,Customer.Account_Type_Id,Customer.Sex_ID,Customer.Nat_Nummer,"
str += "Customer.Post_address_name,Customer.Post_address_country_ID,Customer.Post_address_postcode,"
str += "Customer.Post_address_city,Customer.Post_address_street_Nr,Customer.Post_address_locality,"
str += "Customer.Id_Card_Number,Customer.Date_of_birth,Repair_Task.Repair_Task_Type_ID, Repair_Task.Repair_Task_Comments,Repair_Task.Repair_Task_quantity,"
str += "Repair_Task_ID,Repair_Task.Repair_Task_unit_price,Repair_Task.Task_finished_date"
'set query
str = "select " & str & " from Repair_Order "
str += " FULL OUTER JOIN Parts_Order_Header on Parts_Order_Header.Repair_Order_ID = Repair_Order.Repair_Order_ID and Parts_Order_Header.Order_sent = 'true' "
str += " FULL OUTER JOIN Parts_Order_Details on Parts_Order_Details.Parts_Order_ID = Parts_Order_Header.Parts_Order_ID and Parts_Order_Details.CancelledYN = 0 and Parts_Order_Details.return_quantity = 0 and (Parts_Order_Details.Part_Type_Id =14 or Parts_Order_Details.Part_Type_Id =12) "
str += " FULL OUTER JOIN Repair_Task on Repair_Task.Repair_Order_ID = Repair_Order.Repair_Order_ID "
str += " FULL OUTER JOIN subcontract_job on subcontract_job.repair_order_id =Repair_Order.Repair_Order_ID "
str += " FULL OUTER JOIN Invoice_Header on Invoice_Header.Repair_Order_ID =Repair_Order.Repair_Order_ID "
str += " FULL OUTER JOIN Customer on Customer.Customer_ID = Invoice_Header.Customer_ID or Customer.Customer_Number = Invoice_Header.Customer_Number "
str += " FULL OUTER JOIN Vehicle on Vehicle.Vehicle_id = Invoice_Header.Vehicle_id "
str += " FULL OUTER JOIN Vehicle_Customer_link on Vehicle.Vehicle_ID = Vehicle_Customer_link.Vehicle_ID "
str += " FULL OUTER JOIN Model on model.Model_ID = Vehicle.Vehicle_Model_ID "
str += " FULL OUTER JOIN Make on Make .Make_ID = Vehicle.Vehicle_Make_ID "
str += " where Repair_Order.Repair_Order_Type ='CAR' "
Dim s_and As String
s_and = " and "
If IsDate(DateTimePicker1.Value.Date) Then
str += s_and + " convert(datetime,'" + Format(DateTimePicker1.Value.Date, "dd/MM/yyyy") + " 00:00:01',103) <= Repair_Order.order_creation_date"
End If
If IsDate(DateTimePicker2.Value.Date) Then
str += s_and + " Repair_Order.order_creation_date <= convert(datetime,'" + Format(DateTimePicker2.Value.Date, "dd/MM/yyyy") + " 23:59:59',103)"
End If
Debug.Print(str)
sqlQuery = str
End Function
End Class
Imports System.Data.SqlClient
Module mdDB
Public cn As SqlClient.SqlConnection
Public da As SqlClient.SqlDataAdapter
Public dt As New DataTable
Public dr As DataRow
Public ConnectionString As String
Dim Gparam As New carmamParam.carmamParameters
Public Sub ConnectDB(Optional ByVal Sql As String = "")
Try
cn = New SqlClient.SqlConnection("Data Source=" & Gparam.SqlServerName & ";Initial Catalog=" & Gparam.DatabaseName & ";Persist Security Info=True;User ID=" & Gparam.SqlUsername & ";Password=" & Gparam.SqlPassword)
If cn.State = ConnectionState.Open Then cn.Close()
cn.Open()
Catch ex As Exception
MsgBox("Connection databest error..")
End Try
da = New SqlClient.SqlDataAdapter(Sql, cn)
dt.Clear()
dt.TableName = "tbcarmam"
da.Fill(dt)
End Sub
Public Function UReadSql(ByVal mSql As String, ByVal mTable As String, ByVal ParamArray mParam() As Object) As DataTable
ConnectionString = "Data Source=" & Gparam.SqlServerName & ";Initial Catalog=" & Gparam.DatabaseName & ";Persist Security Info=True;User ID=" & Gparam.SqlUsername & ";Password=" & Gparam.SqlPassword
Return UReadSqlbase(ConnectionString, mSql, mTable, mParam)
End Function
Function UReadSqlbase(ByVal mConnection As String, ByVal mSql As String, ByVal mTable As String, ByVal ParamArray mParam() As Object) As DataTable
mConnection = "Data Source=" & Gparam.SqlServerName & ";Initial Catalog=" & Gparam.DatabaseName & ";Persist Security Info=True;User ID=" & Gparam.SqlUsername & ";Password=" & Gparam.SqlPassword
Dim mConn As New SqlClient.SqlConnection(mConnection)
Try
mConn.Open()
Catch ex As Exception
UReadSqlbase = Nothing
Exit Function
End Try
Dim mComm As New SqlClient.SqlDataAdapter(mSql, mConn)
Dim i_for As Integer
For i_for = 0 To mParam.Length - 1
mComm.SelectCommand.Parameters.Add(mParam(i_for))
Next
Dim mTable1 As New DataTable(mTable)
Try
mComm.Fill(mTable1)
Catch ex As Exception
End Try
mComm = Nothing
If (mConn.State = ConnectionState.Open) Then mConn.Close()
Return mTable1
End Function
End Module
ผลลัพธ์
- <carmamData>
- <repair_order_Id Id="9348">
<Repair_Order_Status_ID>16</Repair_Order_Status_ID>
<Vehicle_ID>46054</Vehicle_ID>
<Order_creation_date>05/10/2010 3:53:23 PM</Order_creation_date>
<Created_by>95</Created_by>
<Definitive_Damage_Report_ID>0</Definitive_Damage_Report_ID>
<Work_Startdate>05/10/2010 3:30:00 PM</Work_Startdate>
<Work_Enddate>05/10/2010 10:59:59 PM</Work_Enddate>
<Modification_Date />
<Repair_Order_Number>7737</Repair_Order_Number>
<Car_pickup_date>30/12/1899 12:00:00 AM</Car_pickup_date>
<owner_id>34718</owner_id>
<holder_id>34999</holder_id>
<Dealer_id>35741</Dealer_id>
<Vehicle_Date_In>30/12/1899 12:00:00 AM</Vehicle_Date_In>
<ExternalRONumber />
<Work_start_time>30/12/1899 12:00:00 AM</Work_start_time>
<vehicle_in_time>30/12/1899 12:00:00 AM</vehicle_in_time>
<Work_finished_date>30/12/1899 12:00:00 AM</Work_finished_date>
<Date_Customer_Informed>30/12/1899 12:00:00 AM</Date_Customer_Informed>
- <Invoice_Id Id="8274">
<Invoice_Date>05/10/2010 12:00:00 AM</Invoice_Date>
<Invoice_Due_Date>05/10/2010 12:00:00 AM</Invoice_Due_Date>
<Invoice_Number>2080936</Invoice_Number>
<Invoice_Ref>0</Invoice_Ref>
<Invoice_Total_Net>1755.00</Invoice_Total_Net>
<Invoice_GLobal_Rebate_Amount>0.00</Invoice_GLobal_Rebate_Amount>
<Invoice_VAT_Amount>368.5500</Invoice_VAT_Amount>
<Invoice_Total_To_Pay>2123.5500</Invoice_Total_To_Pay>
<Invoice_Status>2</Invoice_Status>
<Repair_Order_ID>9348</Repair_Order_ID>
<Customer_ID>34718</Customer_ID>
<Customer_Number>2375</Customer_Number>
<Vehicle_id>46054</Vehicle_id>
<Direct_InvoiceYN>False</Direct_InvoiceYN>
<damage_report_ID>4004</damage_report_ID>
<CancelledYN>False</CancelledYN>
<Cn_id />
- <Invoice_Details_ID Id="19295">
<Invoice_ID>8274</Invoice_ID>
<Item_description>TEST1</Item_description>
<Item_Unit_Price>123.0000</Item_Unit_Price>
<Item_Rebate_Amount>0.00</Item_Rebate_Amount>
<Item_Quantity>0</Item_Quantity>
<Item_Line_Total>0.0000</Item_Line_Total>
<VAT_PCT>21.00</VAT_PCT>
<analysis_cat_ID>1</analysis_cat_ID>
<Item_Order>1</Item_Order>
<Createby_Rebate_Scheme>False</Createby_Rebate_Scheme>
</Invoice_Details_ID>
- <Invoice_Details_ID Id="19296">
<Invoice_ID>8274</Invoice_ID>
<Item_description />
<Item_Unit_Price>300.0000</Item_Unit_Price>
<Item_Rebate_Amount>0.00</Item_Rebate_Amount>
<Item_Quantity>0</Item_Quantity>
<Item_Line_Total>0.0000</Item_Line_Total>
<VAT_PCT>21.00</VAT_PCT>
<analysis_cat_ID>5</analysis_cat_ID>
<Item_Order>2</Item_Order>
<Createby_Rebate_Scheme>False</Createby_Rebate_Scheme>
</Invoice_Details_ID>
- <Invoice_Details_ID Id="19297">
<Invoice_ID>8274</Invoice_ID>
<Item_description>YDFG</Item_description>
<Item_Unit_Price>400.0000</Item_Unit_Price>
<Item_Rebate_Amount>0.00</Item_Rebate_Amount>
<Item_Quantity>0</Item_Quantity>
<Item_Line_Total>0.0000</Item_Line_Total>
<VAT_PCT>21.00</VAT_PCT>
<analysis_cat_ID>5</analysis_cat_ID>
<Item_Order>3</Item_Order>
<Createby_Rebate_Scheme>False</Createby_Rebate_Scheme>
</Invoice_Details_ID>
- <Invoice_Details_ID Id="19298">
<Invoice_ID>8274</Invoice_ID>
<Item_description>PLAATWERK</Item_description>
<Item_Unit_Price>1755.0000</Item_Unit_Price>
<Item_Rebate_Amount>0.00</Item_Rebate_Amount>
<Item_Quantity>1</Item_Quantity>
<Item_Line_Total>1755.0000</Item_Line_Total>
<VAT_PCT>21.00</VAT_PCT>
<analysis_cat_ID>51</analysis_cat_ID>
<Item_Order>0</Item_Order>
<Createby_Rebate_Scheme>False</Createby_Rebate_Scheme>
</Invoice_Details_ID>
- <Customer_ID Id="34718">
<Customer_Name>522 BVBA</Customer_Name>
<Forename />
<Language_ID>NL</Language_ID>
<CompanyYN>True</CompanyYN>
<Contact />
<Dayphone />
<Mobile>0487522522</Mobile>
<Eveningphone />
<Fax />
<Email />
<Street_Nr>Stijfselrui 47</Street_Nr>
<Postcode>2000</Postcode>
<Locality />
<City>Antwerpen</City>
<Cy_Type_ID>1</Cy_Type_ID>
<Cy_VAT>BE . .</Cy_VAT>
<Credit_Limit>0.0000</Credit_Limit>
<Payment_Time_ID>0</Payment_Time_ID>
<Country_ID>B</Country_ID>
<Customer_Type>5</Customer_Type>
<Handicapped>False</Handicapped>
<VAT_Code>3</VAT_Code>
<Nr_of_Copies_Invoice>1</Nr_of_Copies_Invoice>
<Blocked>False</Blocked>
<BLocked_By>170</BLocked_By>
<Customer_Number>2375</Customer_Number>
<Contract_Number />
<Rebate_Scheme_ID>1</Rebate_Scheme_ID>
<Remarks />
<Account_Number />
<Account_Type_Id>0</Account_Type_Id>
<Sex_ID />
<Nat_Nummer />
<Post_address_name />
<Post_address_country_ID>B</Post_address_country_ID>
<Post_address_postcode />
<Post_address_city />
<Post_address_street_Nr />
<Post_address_locality />
<Id_Card_Number />
<Date_of_birth />
<Repair_Task_Type_ID />
</Customer_ID>
</Invoice_Id>
- <Vehicle_id Id="46054">
<Vehicle_Model_year>0</Vehicle_Model_year>
<Vehicle_First_Reg>22/06/2006 12:00:00 AM</Vehicle_First_Reg>
<Vehicle_Numberplate>VLR585</Vehicle_Numberplate>
<Vehicle_VIN>ZFA22300005392621</Vehicle_VIN>
<Vehicle_Reg_Doc_Name />
<Vehicle_Colour>Goud</Vehicle_Colour>
<Vehicle_Trim />
<Vehicle_AlarmsystemYN>False</Vehicle_AlarmsystemYN>
<Vehicle_alarm_key>False</Vehicle_alarm_key>
<Vehicle_alarm_code />
<Vehicle_wheellock_keyYN>False</Vehicle_wheellock_keyYN>
<Vehicle_wheellock_code />
<Locality />
<Customer_ID>34718</Customer_ID>
<Engine_Number />
<Fuel_Type>2</Fuel_Type>
<CC>1910</CC>
<KW>77</KW>
<second_registration_date>22/06/2006 12:00:00 AM</second_registration_date>
<colour_code />
<paint_type>3</paint_type>
<number_doors />
<colour_code_paint />
<Vehicle_Radio_Code />
<Date_First_Permission>30/12/1899 12:00:00 AM</Date_First_Permission>
<Mileage_Type>K</Mileage_Type>
<Registration_Country>B</Registration_Country>
<Vehicle_Tec_Ctrl_date>30/12/1899 12:00:00 AM</Vehicle_Tec_Ctrl_date>
</Vehicle_id>
- <Make_ID Id="142">
<Make_name>FIAT</Make_name>
- <Vehicle_Model_ID Id="4280">
<Model_name>BARCHETTA</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="3967">
<Model_name>PUNTO</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="3953">
<Model_name>BRAVO</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="3791">
<Model_name>DUCATO</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4309">
<Model_name>Multipla</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4233">
<Model_name>doblo</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4245">
<Model_name>panda</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4180">
<Model_name>TEMPRA</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4183">
<Model_name>TEMPRA STATIONWAGEN</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4207">
<Model_name>BRAVA</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4161">
<Model_name>SEICENTO SPORTING</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4169">
<Model_name>SCUDO EL 2.0 JTD</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4040">
<Model_name>BURSTNER MOTORHOME</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4325">
<Model_name>Kamper</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4335">
<Model_name>CROMA</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4344">
<Model_name>Idea</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4009">
<Model_name>STILO</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4037">
<Model_name>RIMOR</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4352">
<Model_name>Uno</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4445">
<Model_name>SEDICI</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4449">
<Model_name>500 Cabrio</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4413">
<Model_name>124 Spider</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4433">
<Model_name>Ulysse</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4439">
<Model_name>600</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4467">
<Model_name>Marea ELX Weekend</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4481">
<Model_name>500</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4497">
<Model_name>Qubo</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4499">
<Model_name>Strada</Model_name>
</Vehicle_Model_ID>
</Make_ID>
</repair_order_Id>
- <repair_order_Id Id="9349">
<Repair_Order_Status_ID>18</Repair_Order_Status_ID>
<Vehicle_ID>46054</Vehicle_ID>
<Order_creation_date>06/10/2010 2:56:03 PM</Order_creation_date>
<Created_by>95</Created_by>
<Definitive_Damage_Report_ID>0</Definitive_Damage_Report_ID>
<Work_Startdate />
<Work_Enddate>30/12/1899 12:00:00 AM</Work_Enddate>
<Modification_Date />
<Repair_Order_Number>7738</Repair_Order_Number>
<Car_pickup_date>30/12/1899 12:00:00 AM</Car_pickup_date>
<owner_id>34718</owner_id>
<holder_id>34999</holder_id>
<Dealer_id>35741</Dealer_id>
<Vehicle_Date_In>30/12/1899 12:00:00 AM</Vehicle_Date_In>
<ExternalRONumber />
<Work_start_time>30/12/1899 12:00:00 AM</Work_start_time>
<vehicle_in_time>30/12/1899 12:00:00 AM</vehicle_in_time>
<Work_finished_date>30/12/1899 12:00:00 AM</Work_finished_date>
<Date_Customer_Informed>30/12/1899 12:00:00 AM</Date_Customer_Informed>
- <Invoice_Id Id="8275">
<Invoice_Date>06/10/2010 12:00:00 AM</Invoice_Date>
<Invoice_Due_Date>06/10/2010 12:00:00 AM</Invoice_Due_Date>
<Invoice_Number>2080937</Invoice_Number>
<Invoice_Ref>0</Invoice_Ref>
<Invoice_Total_Net>200.00</Invoice_Total_Net>
<Invoice_GLobal_Rebate_Amount>0.00</Invoice_GLobal_Rebate_Amount>
<Invoice_VAT_Amount>42.0000</Invoice_VAT_Amount>
<Invoice_Total_To_Pay>242.0000</Invoice_Total_To_Pay>
<Invoice_Status>2</Invoice_Status>
<Repair_Order_ID>9349</Repair_Order_ID>
<Customer_ID>34718</Customer_ID>
<Customer_Number>2375</Customer_Number>
<Vehicle_id>46054</Vehicle_id>
<Direct_InvoiceYN>False</Direct_InvoiceYN>
<damage_report_ID>0</damage_report_ID>
<CancelledYN>False</CancelledYN>
<Cn_id />
- <Invoice_Details_ID Id="19299">
<Invoice_ID>8275</Invoice_ID>
<Item_description>TEST1</Item_description>
<Item_Unit_Price>200.0000</Item_Unit_Price>
<Item_Rebate_Amount>0.00</Item_Rebate_Amount>
<Item_Quantity>1</Item_Quantity>
<Item_Line_Total>200.0000</Item_Line_Total>
<VAT_PCT>21.00</VAT_PCT>
<analysis_cat_ID>5</analysis_cat_ID>
<Item_Order>0</Item_Order>
<Createby_Rebate_Scheme>False</Createby_Rebate_Scheme>
</Invoice_Details_ID>
</Invoice_Id>
- <Repair_Task_ID Id="39800">
<Repair_Task_ID>39800</Repair_Task_ID>
<Repair_Task_Comments>aaaa</Repair_Task_Comments>
<Repair_Task_quantity>100.00</Repair_Task_quantity>
<Repair_Task_unit_price>45.00</Repair_Task_unit_price>
<Task_finished_date />
- <Repair_Part_ID Id="5016">
<Repair_Task_ID>39800</Repair_Task_ID>
<Repair_Part_description>ghghgh</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>72</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>13</Repair_OEM_Brand_ID>
<Repair_Part_Price>23.0000</Repair_Part_Price>
<Repair_Partnumber />
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>100.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
- <Repair_Part_ID Id="5017">
<Repair_Task_ID>39800</Repair_Task_ID>
<Repair_Part_description>jhgjhg</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>6</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>13</Repair_OEM_Brand_ID>
<Repair_Part_Price>66.0000</Repair_Part_Price>
<Repair_Partnumber />
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>100.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
</Repair_Task_ID>
- <Repair_Task_ID Id="39801">
<Repair_Task_ID>39801</Repair_Task_ID>
<Repair_Task_Comments>bbbb</Repair_Task_Comments>
<Repair_Task_quantity>150.00</Repair_Task_quantity>
<Repair_Task_unit_price>45.00</Repair_Task_unit_price>
<Task_finished_date />
- <Repair_Part_ID Id="5014">
<Repair_Task_ID>39801</Repair_Task_ID>
<Repair_Part_description>qwqwqwq</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>20</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>14</Repair_OEM_Brand_ID>
<Repair_Part_Price>10.0000</Repair_Part_Price>
<Repair_Partnumber />
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>150.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
- <Repair_Part_ID Id="5015">
<Repair_Task_ID>39801</Repair_Task_ID>
<Repair_Part_description>fgfgfgf</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>21</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>6</Repair_OEM_Brand_ID>
<Repair_Part_Price>20.0000</Repair_Part_Price>
<Repair_Partnumber />
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>150.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
</Repair_Task_ID>
- <Invoice_Id Id="8276">
<Invoice_Date>06/10/2010 12:00:00 AM</Invoice_Date>
<Invoice_Due_Date>06/10/2010 12:00:00 AM</Invoice_Due_Date>
<Invoice_Number>2080938</Invoice_Number>
<Invoice_Ref>0</Invoice_Ref>
<Invoice_Total_Net>323.00</Invoice_Total_Net>
<Invoice_GLobal_Rebate_Amount>0.00</Invoice_GLobal_Rebate_Amount>
<Invoice_VAT_Amount>67.8300</Invoice_VAT_Amount>
<Invoice_Total_To_Pay>390.8300</Invoice_Total_To_Pay>
<Invoice_Status>2</Invoice_Status>
<Repair_Order_ID>9349</Repair_Order_ID>
<Customer_ID>34999</Customer_ID>
<Customer_Number>2659</Customer_Number>
<Vehicle_id>46054</Vehicle_id>
<Direct_InvoiceYN>False</Direct_InvoiceYN>
<damage_report_ID>0</damage_report_ID>
<CancelledYN>False</CancelledYN>
<Cn_id />
- <Invoice_Details_ID Id="19300">
<Invoice_ID>8276</Invoice_ID>
<Item_description>VOOR HERSTELLING VOLGENS BESTEK.</Item_description>
<Item_Unit_Price>300.0000</Item_Unit_Price>
<Item_Rebate_Amount>0.00</Item_Rebate_Amount>
<Item_Quantity>1</Item_Quantity>
<Item_Line_Total>300.0000</Item_Line_Total>
<VAT_PCT>21.00</VAT_PCT>
<analysis_cat_ID>7</analysis_cat_ID>
<Item_Order>0</Item_Order>
<Createby_Rebate_Scheme>False</Createby_Rebate_Scheme>
</Invoice_Details_ID>
- <Invoice_Details_ID Id="19301">
<Invoice_ID>8276</Invoice_ID>
<Item_description>TOTALE KOSTPRIJS HERSTELLING</Item_description>
<Item_Unit_Price>23.0000</Item_Unit_Price>
<Item_Rebate_Amount>0.00</Item_Rebate_Amount>
<Item_Quantity>1</Item_Quantity>
<Item_Line_Total>23.0000</Item_Line_Total>
<VAT_PCT>21.00</VAT_PCT>
<analysis_cat_ID>7</analysis_cat_ID>
<Item_Order>1</Item_Order>
<Createby_Rebate_Scheme>False</Createby_Rebate_Scheme>
</Invoice_Details_ID>
- <Customer_ID Id="34999">
<Customer_Name>2003 Condor Bunkering&Onyx nv</Customer_Name>
<Forename />
<Language_ID>NL</Language_ID>
<CompanyYN>True</CompanyYN>
<Contact />
<Dayphone />
<Mobile />
<Eveningphone />
<Fax />
<Email />
<Street_Nr>Kruisbessenlaan 14B</Street_Nr>
<Postcode>9120</Postcode>
<Locality />
<City>Melsele</City>
<Cy_Type_ID>2</Cy_Type_ID>
<Cy_VAT>BE . .</Cy_VAT>
<Credit_Limit>0.0000</Credit_Limit>
<Payment_Time_ID>0</Payment_Time_ID>
<Country_ID>B</Country_ID>
<Customer_Type>5</Customer_Type>
<Handicapped>False</Handicapped>
<VAT_Code>3</VAT_Code>
<Nr_of_Copies_Invoice>3</Nr_of_Copies_Invoice>
<Blocked>False</Blocked>
<BLocked_By>95</BLocked_By>
<Customer_Number>2659</Customer_Number>
<Contract_Number />
<Rebate_Scheme_ID>1</Rebate_Scheme_ID>
<Remarks />
<Account_Number />
<Account_Type_Id>0</Account_Type_Id>
<Sex_ID />
<Nat_Nummer />
<Post_address_name />
<Post_address_country_ID>B</Post_address_country_ID>
<Post_address_postcode />
<Post_address_city />
<Post_address_street_Nr />
<Post_address_locality />
<Id_Card_Number />
<Date_of_birth />
<Repair_Task_Type_ID>68</Repair_Task_Type_ID>
</Customer_ID>
</Invoice_Id>
- <Repair_Task_ID Id="39800">
<Repair_Task_ID>39800</Repair_Task_ID>
<Repair_Task_Comments>aaaa</Repair_Task_Comments>
<Repair_Task_quantity>100.00</Repair_Task_quantity>
<Repair_Task_unit_price>45.00</Repair_Task_unit_price>
<Task_finished_date />
- <Repair_Part_ID Id="5016">
<Repair_Task_ID>39800</Repair_Task_ID>
<Repair_Part_description>ghghgh</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>72</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>13</Repair_OEM_Brand_ID>
<Repair_Part_Price>23.0000</Repair_Part_Price>
<Repair_Partnumber />
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>100.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
- <Repair_Part_ID Id="5017">
<Repair_Task_ID>39800</Repair_Task_ID>
<Repair_Part_description>jhgjhg</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>6</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>13</Repair_OEM_Brand_ID>
<Repair_Part_Price>66.0000</Repair_Part_Price>
<Repair_Partnumber />
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>100.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
</Repair_Task_ID>
- <Repair_Task_ID Id="39801">
<Repair_Task_ID>39801</Repair_Task_ID>
<Repair_Task_Comments>bbbb</Repair_Task_Comments>
<Repair_Task_quantity>150.00</Repair_Task_quantity>
<Repair_Task_unit_price>45.00</Repair_Task_unit_price>
<Task_finished_date />
- <Repair_Part_ID Id="5014">
<Repair_Task_ID>39801</Repair_Task_ID>
<Repair_Part_description>qwqwqwq</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>20</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>14</Repair_OEM_Brand_ID>
<Repair_Part_Price>10.0000</Repair_Part_Price>
<Repair_Partnumber />
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>150.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
- <Repair_Part_ID Id="5015">
<Repair_Task_ID>39801</Repair_Task_ID>
<Repair_Part_description>fgfgfgf</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>21</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>6</Repair_OEM_Brand_ID>
<Repair_Part_Price>20.0000</Repair_Part_Price>
<Repair_Partnumber />
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>150.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
</Repair_Task_ID>
</repair_order_Id>
- <repair_order_Id Id="9357">
<Repair_Order_Status_ID>18</Repair_Order_Status_ID>
<Vehicle_ID>46054</Vehicle_ID>
<Order_creation_date>07/10/2010 2:23:09 PM</Order_creation_date>
<Created_by>95</Created_by>
<Definitive_Damage_Report_ID>0</Definitive_Damage_Report_ID>
<Work_Startdate />
<Work_Enddate>30/12/1899 12:00:00 AM</Work_Enddate>
<Modification_Date />
<Repair_Order_Number>7747</Repair_Order_Number>
<Car_pickup_date>30/12/1899 12:00:00 AM</Car_pickup_date>
<owner_id>34718</owner_id>
<holder_id>34999</holder_id>
<Dealer_id>35741</Dealer_id>
<Vehicle_Date_In>30/12/1899 12:00:00 AM</Vehicle_Date_In>
<ExternalRONumber />
<Work_start_time>30/12/1899 12:00:00 AM</Work_start_time>
<vehicle_in_time>30/12/1899 12:00:00 AM</vehicle_in_time>
<Work_finished_date>30/12/1899 12:00:00 AM</Work_finished_date>
<Date_Customer_Informed>30/12/1899 12:00:00 AM</Date_Customer_Informed>
- <Invoice_Id Id="8277">
<Invoice_Date>07/10/2010 12:00:00 AM</Invoice_Date>
<Invoice_Due_Date>07/10/2010 12:00:00 AM</Invoice_Due_Date>
<Invoice_Number>2080939</Invoice_Number>
<Invoice_Ref>0</Invoice_Ref>
<Invoice_Total_Net>1300.00</Invoice_Total_Net>
<Invoice_GLobal_Rebate_Amount>0.00</Invoice_GLobal_Rebate_Amount>
<Invoice_VAT_Amount>273.0000</Invoice_VAT_Amount>
<Invoice_Total_To_Pay>1573.0000</Invoice_Total_To_Pay>
<Invoice_Status>2</Invoice_Status>
<Repair_Order_ID>9357</Repair_Order_ID>
<Customer_ID>34718</Customer_ID>
<Customer_Number>2375</Customer_Number>
<Vehicle_id>46054</Vehicle_id>
<Direct_InvoiceYN>False</Direct_InvoiceYN>
<damage_report_ID>0</damage_report_ID>
<CancelledYN>False</CancelledYN>
<Cn_id />
- <Invoice_Details_ID Id="19302">
<Invoice_ID>8277</Invoice_ID>
<Item_description>INVOICE 1</Item_description>
<Item_Unit_Price>500.0000</Item_Unit_Price>
<Item_Rebate_Amount>0.00</Item_Rebate_Amount>
<Item_Quantity>1</Item_Quantity>
<Item_Line_Total>500.0000</Item_Line_Total>
<VAT_PCT>21.00</VAT_PCT>
<analysis_cat_ID>5</analysis_cat_ID>
<Item_Order>0</Item_Order>
<Createby_Rebate_Scheme>False</Createby_Rebate_Scheme>
</Invoice_Details_ID>
- <Invoice_Details_ID Id="19303">
<Invoice_ID>8277</Invoice_ID>
<Item_description>INVOICE2</Item_description>
<Item_Unit_Price>800.0000</Item_Unit_Price>
<Item_Rebate_Amount>0.00</Item_Rebate_Amount>
<Item_Quantity>1</Item_Quantity>
<Item_Line_Total>800.0000</Item_Line_Total>
<VAT_PCT>21.00</VAT_PCT>
<analysis_cat_ID>5</analysis_cat_ID>
<Item_Order>1</Item_Order>
<Createby_Rebate_Scheme>False</Createby_Rebate_Scheme>
</Invoice_Details_ID>
- <Customer_ID Id="34718">
<Customer_Name>522 BVBA</Customer_Name>
<Forename />
<Language_ID>NL</Language_ID>
<CompanyYN>True</CompanyYN>
<Contact />
<Dayphone />
<Mobile>0487522522</Mobile>
<Eveningphone />
<Fax />
<Email />
<Street_Nr>Stijfselrui 47</Street_Nr>
<Postcode>2000</Postcode>
<Locality />
<City>Antwerpen</City>
<Cy_Type_ID>1</Cy_Type_ID>
<Cy_VAT>BE . .</Cy_VAT>
<Credit_Limit>0.0000</Credit_Limit>
<Payment_Time_ID>0</Payment_Time_ID>
<Country_ID>B</Country_ID>
<Customer_Type>5</Customer_Type>
<Handicapped>False</Handicapped>
<VAT_Code>3</VAT_Code>
<Nr_of_Copies_Invoice>1</Nr_of_Copies_Invoice>
<Blocked>False</Blocked>
<BLocked_By>170</BLocked_By>
<Customer_Number>2375</Customer_Number>
<Contract_Number />
<Rebate_Scheme_ID>1</Rebate_Scheme_ID>
<Remarks />
<Account_Number />
<Account_Type_Id>0</Account_Type_Id>
<Sex_ID />
<Nat_Nummer />
<Post_address_name />
<Post_address_country_ID>B</Post_address_country_ID>
<Post_address_postcode />
<Post_address_city />
<Post_address_street_Nr />
<Post_address_locality />
<Id_Card_Number />
<Date_of_birth />
<Repair_Task_Type_ID>68</Repair_Task_Type_ID>
</Customer_ID>
</Invoice_Id>
- <Repair_Task_ID Id="39802">
<Repair_Task_ID>39802</Repair_Task_ID>
<Repair_Task_Comments>repair1</Repair_Task_Comments>
<Repair_Task_quantity>60.00</Repair_Task_quantity>
<Repair_Task_unit_price>45.00</Repair_Task_unit_price>
<Task_finished_date />
- <Repair_Part_ID Id="5018">
<Repair_Task_ID>39802</Repair_Task_ID>
<Repair_Part_description>dfdfdf</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>14</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>6</Repair_OEM_Brand_ID>
<Repair_Part_Price>300.0000</Repair_Part_Price>
<Repair_Partnumber>dfdf</Repair_Partnumber>
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>60.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>True</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
- <Repair_Part_ID Id="5019">
<Repair_Task_ID>39802</Repair_Task_ID>
<Repair_Part_description>dfdfdfdf</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>21</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>12</Repair_OEM_Brand_ID>
<Repair_Part_Price>500.0000</Repair_Part_Price>
<Repair_Partnumber>dfdf</Repair_Partnumber>
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>60.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
</Repair_Task_ID>
- <Repair_Task_ID Id="39803">
<Repair_Task_ID>39803</Repair_Task_ID>
<Repair_Task_Comments>repair2</Repair_Task_Comments>
<Repair_Task_quantity>80.00</Repair_Task_quantity>
<Repair_Task_unit_price>45.00</Repair_Task_unit_price>
<Task_finished_date />
- <Repair_Part_ID Id="5020">
<Repair_Task_ID>39803</Repair_Task_ID>
<Repair_Part_description>dfdfdf</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>97</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>12</Repair_OEM_Brand_ID>
<Repair_Part_Price>102.0000</Repair_Part_Price>
<Repair_Partnumber>dfdf</Repair_Partnumber>
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>80.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
</Repair_Task_ID>
- <Invoice_Id Id="8278">
<Invoice_Date>07/10/2010 12:00:00 AM</Invoice_Date>
<Invoice_Due_Date>07/10/2010 12:00:00 AM</Invoice_Due_Date>
<Invoice_Number>2080940</Invoice_Number>
<Invoice_Ref>0</Invoice_Ref>
<Invoice_Total_Net>314.00</Invoice_Total_Net>
<Invoice_GLobal_Rebate_Amount>0.00</Invoice_GLobal_Rebate_Amount>
<Invoice_VAT_Amount>65.9400</Invoice_VAT_Amount>
<Invoice_Total_To_Pay>379.9400</Invoice_Total_To_Pay>
<Invoice_Status>2</Invoice_Status>
<Repair_Order_ID>9357</Repair_Order_ID>
<Customer_ID>1460</Customer_ID>
<Customer_Number />
<Vehicle_id>46054</Vehicle_id>
<Direct_InvoiceYN>False</Direct_InvoiceYN>
<damage_report_ID>0</damage_report_ID>
<CancelledYN>False</CancelledYN>
<Cn_id />
- <Invoice_Details_ID Id="19304">
<Invoice_ID>8278</Invoice_ID>
<Item_description>VOOR HERSTELLING VOLGENS BESTEK.</Item_description>
<Item_Unit_Price>230.0000</Item_Unit_Price>
<Item_Rebate_Amount>0.00</Item_Rebate_Amount>
<Item_Quantity>1</Item_Quantity>
<Item_Line_Total>230.0000</Item_Line_Total>
<VAT_PCT>21.00</VAT_PCT>
<analysis_cat_ID>7</analysis_cat_ID>
<Item_Order>0</Item_Order>
<Createby_Rebate_Scheme>False</Createby_Rebate_Scheme>
</Invoice_Details_ID>
- <Invoice_Details_ID Id="19305">
<Invoice_ID>8278</Invoice_ID>
<Item_description>TOTALE KOSTPRIJS HERSTELLING</Item_description>
<Item_Unit_Price>84.0000</Item_Unit_Price>
<Item_Rebate_Amount>0.00</Item_Rebate_Amount>
<Item_Quantity>1</Item_Quantity>
<Item_Line_Total>84.0000</Item_Line_Total>
<VAT_PCT>21.00</VAT_PCT>
<analysis_cat_ID>7</analysis_cat_ID>
<Item_Order>1</Item_Order>
<Createby_Rebate_Scheme>False</Createby_Rebate_Scheme>
</Invoice_Details_ID>
- <Customer_ID Id="1460">
<Customer_Name />
<Forename />
<Language_ID />
<CompanyYN />
<Contact />
<Dayphone />
<Mobile />
<Eveningphone />
<Fax />
<Email />
<Street_Nr />
<Postcode />
<Locality />
<City />
<Cy_Type_ID />
<Cy_VAT />
<Credit_Limit />
<Payment_Time_ID />
<Country_ID />
<Customer_Type />
<Handicapped />
<VAT_Code />
<Nr_of_Copies_Invoice />
<Blocked />
<BLocked_By />
<Customer_Number />
<Contract_Number />
<Rebate_Scheme_ID />
<Remarks />
<Account_Number />
<Account_Type_Id />
<Sex_ID />
<Nat_Nummer />
<Post_address_name />
<Post_address_country_ID />
<Post_address_postcode />
<Post_address_city />
<Post_address_street_Nr />
<Post_address_locality />
<Id_Card_Number />
<Date_of_birth />
<Repair_Task_Type_ID>68</Repair_Task_Type_ID>
</Customer_ID>
</Invoice_Id>
- <Repair_Task_ID Id="39802">
<Repair_Task_ID>39802</Repair_Task_ID>
<Repair_Task_Comments>repair1</Repair_Task_Comments>
<Repair_Task_quantity>60.00</Repair_Task_quantity>
<Repair_Task_unit_price>45.00</Repair_Task_unit_price>
<Task_finished_date />
- <Repair_Part_ID Id="5018">
<Repair_Task_ID>39802</Repair_Task_ID>
<Repair_Part_description>dfdfdf</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>14</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>6</Repair_OEM_Brand_ID>
<Repair_Part_Price>300.0000</Repair_Part_Price>
<Repair_Partnumber>dfdf</Repair_Partnumber>
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>60.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>True</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
- <Repair_Part_ID Id="5019">
<Repair_Task_ID>39802</Repair_Task_ID>
<Repair_Part_description>dfdfdfdf</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>21</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>12</Repair_OEM_Brand_ID>
<Repair_Part_Price>500.0000</Repair_Part_Price>
<Repair_Partnumber>dfdf</Repair_Partnumber>
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>60.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
</Repair_Task_ID>
- <Repair_Task_ID Id="39803">
<Repair_Task_ID>39803</Repair_Task_ID>
<Repair_Task_Comments>repair2</Repair_Task_Comments>
<Repair_Task_quantity>80.00</Repair_Task_quantity>
<Repair_Task_unit_price>45.00</Repair_Task_unit_price>
<Task_finished_date />
- <Repair_Part_ID Id="5020">
<Repair_Task_ID>39803</Repair_Task_ID>
<Repair_Part_description>dfdfdf</Repair_Part_description>
<Repair_Part_Quantity>0.00</Repair_Part_Quantity>
<Repair_Part_Amount>0.0000</Repair_Part_Amount>
<Repair_Part_Comment />
<Repair_Part_Type_ID>97</Repair_Part_Type_ID>
<Repair_OEM_Brand_ID>12</Repair_OEM_Brand_ID>
<Repair_Part_Price>102.0000</Repair_Part_Price>
<Repair_Partnumber>dfdf</Repair_Partnumber>
<ReplaceYN>False</ReplaceYN>
<CountYN>True</CountYN>
<Repair_Part_Time>80.00</Repair_Part_Time>
<CreatebyGridYN>False</CreatebyGridYN>
<Material_Type />
<Damage_Location />
<OrderedYN>False</OrderedYN>
<old_part_id />
<part_finished>False</part_finished>
<Date_finished>30/12/1899 12:00:00 AM</Date_finished>
<ActivityYN>False</ActivityYN>
</Repair_Part_ID>
</Repair_Task_ID>
</repair_order_Id>
- <repair_order_Id Id="9222">
<Repair_Order_Status_ID>10</Repair_Order_Status_ID>
<Vehicle_ID>47471</Vehicle_ID>
<Order_creation_date>18/05/2010 4:08:00 PM</Order_creation_date>
<Created_by>95</Created_by>
<Definitive_Damage_Report_ID>0</Definitive_Damage_Report_ID>
<Work_Startdate>30/12/1899 12:00:00 AM</Work_Startdate>
<Work_Enddate>30/12/1899 12:00:00 AM</Work_Enddate>
<Modification_Date />
<Repair_Order_Number>7505</Repair_Order_Number>
<Car_pickup_date />
<owner_id>0</owner_id>
<holder_id>0</holder_id>
<Dealer_id>0</Dealer_id>
<Vehicle_Date_In />
<ExternalRONumber />
<Work_start_time>30/12/1899 12:00:00 AM</Work_start_time>
<vehicle_in_time>30/12/1899 12:00:00 AM</vehicle_in_time>
<Work_finished_date>30/12/1899 12:00:00 AM</Work_finished_date>
<Date_Customer_Informed>30/12/1899 12:00:00 AM</Date_Customer_Informed>
- <Invoice_Id Id="8259">
<Invoice_Date>30/12/1899 12:00:00 AM</Invoice_Date>
<Invoice_Due_Date>30/12/1899 12:00:00 AM</Invoice_Due_Date>
<Invoice_Number>0</Invoice_Number>
<Invoice_Ref />
<Invoice_Total_Net>0.00</Invoice_Total_Net>
<Invoice_GLobal_Rebate_Amount>0.00</Invoice_GLobal_Rebate_Amount>
<Invoice_VAT_Amount>0.0000</Invoice_VAT_Amount>
<Invoice_Total_To_Pay>0.0000</Invoice_Total_To_Pay>
<Invoice_Status>1</Invoice_Status>
<Repair_Order_ID>9222</Repair_Order_ID>
<Customer_ID>0</Customer_ID>
<Customer_Number />
<Vehicle_id>47471</Vehicle_id>
<Direct_InvoiceYN>False</Direct_InvoiceYN>
<damage_report_ID>0</damage_report_ID>
<CancelledYN>False</CancelledYN>
<Cn_id />
- <Customer_ID Id="0">
<Customer_Name />
<Forename />
<Language_ID />
<CompanyYN />
<Contact />
<Dayphone />
<Mobile />
<Eveningphone />
<Fax />
<Email />
<Street_Nr />
<Postcode />
<Locality />
<City />
<Cy_Type_ID />
<Cy_VAT />
<Credit_Limit />
<Payment_Time_ID />
<Country_ID />
<Customer_Type />
<Handicapped />
<VAT_Code />
<Nr_of_Copies_Invoice />
<Blocked />
<BLocked_By />
<Customer_Number />
<Contract_Number />
<Rebate_Scheme_ID />
<Remarks />
<Account_Number />
<Account_Type_Id />
<Sex_ID />
<Nat_Nummer />
<Post_address_name />
<Post_address_country_ID />
<Post_address_postcode />
<Post_address_city />
<Post_address_street_Nr />
<Post_address_locality />
<Id_Card_Number />
<Date_of_birth />
<Repair_Task_Type_ID />
</Customer_ID>
</Invoice_Id>
- <Repair_Task_ID Id="">
<Repair_Task_ID />
<Repair_Task_Comments />
<Repair_Task_quantity />
<Repair_Task_unit_price />
<Task_finished_date />
</Repair_Task_ID>
- <Vehicle_id Id="47471">
<Vehicle_Model_year>0</Vehicle_Model_year>
<Vehicle_First_Reg>21/03/2007 12:00:00 AM</Vehicle_First_Reg>
<Vehicle_Numberplate />
<Vehicle_VIN>VF1JLCMA67V296763</Vehicle_VIN>
<Vehicle_Reg_Doc_Name />
<Vehicle_Colour />
<Vehicle_Trim />
<Vehicle_AlarmsystemYN>False</Vehicle_AlarmsystemYN>
<Vehicle_alarm_key>False</Vehicle_alarm_key>
<Vehicle_alarm_code />
<Vehicle_wheellock_keyYN>False</Vehicle_wheellock_keyYN>
<Vehicle_wheellock_code />
<Locality />
<Customer_ID>0</Customer_ID>
<Engine_Number />
<Fuel_Type>2</Fuel_Type>
<CC>1995</CC>
<KW>66</KW>
<second_registration_date>01/08/2008 12:00:00 AM</second_registration_date>
<colour_code />
<paint_type>4</paint_type>
<number_doors>4</number_doors>
<colour_code_paint />
<Vehicle_Radio_Code />
<Date_First_Permission>21/03/2007 12:00:00 AM</Date_First_Permission>
<Mileage_Type>K</Mileage_Type>
<Registration_Country>B</Registration_Country>
<Vehicle_Tec_Ctrl_date>30/12/1899 12:00:00 AM</Vehicle_Tec_Ctrl_date>
</Vehicle_id>
- <Make_ID Id="310">
<Make_name>RENAULT</Make_name>
- <Vehicle_Model_ID Id="3957">
<Model_name>Espace</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="3973">
<Model_name>SCENIC DCI EXPRESSION</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="3980">
<Model_name>MASTER</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="3988">
<Model_name>Twingo</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="3989">
<Model_name>Clio RT</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="3849">
<Model_name>MEGANE SCENIC</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="3899">
<Model_name>ESPACE PRIVILEGE</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="3924">
<Model_name>MEGANE 1.9D</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="3797">
<Model_name>CLIO BASE 1.2</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4294">
<Model_name>R19</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4224">
<Model_name>TRAFIC DCI 100</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4297">
<Model_name>GRAND ESPACE</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4298">
<Model_name>GRAND SCENIC</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4607">
<Model_name>TRAFIC II</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4617">
<Model_name>MEGANE II</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4239">
<Model_name>MODUS</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4195">
<Model_name>TRAFIC</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4218">
<Model_name>onbekend</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4135">
<Model_name>KANGOO</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4171">
<Model_name>SCENIC</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4095">
<Model_name>CLIO</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4109">
<Model_name>MEGANE</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4056">
<Model_name>MEGANE break</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4062">
<Model_name>CLIO DCI 3 DEURS</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4079">
<Model_name>LAGUNA</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4033">
<Model_name>laguna grandtour</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4436">
<Model_name>21</Model_name>
</Vehicle_Model_ID>
- <Vehicle_Model_ID Id="4400">
<Model_name>R5</Model_name>
</Vehicle_Model_ID>
</Make_ID>
- <Invoice_Id Id="8260">
<Invoice_Date>30/12/1899 12:00:00 AM</Invoice_Date>
<Invoice_Due_Date>30/12/1899 12:00:00 AM</Invoice_Due_Date>
<Invoice_Number>0</Invoice_Number>
<Invoice_Ref />
<Invoice_Total_Net>0.00</Invoice_Total_Net>
<Invoice_GLobal_Rebate_Amount>0.00</Invoice_GLobal_Rebate_Amount>
<Invoice_VAT_Amount>0.0000</Invoice_VAT_Amount>
<Invoice_Total_To_Pay>0.0000</Invoice_Total_To_Pay>
<Invoice_Status>1</Invoice_Status>
<Repair_Order_ID>9222</Repair_Order_ID>
<Customer_ID>0</Customer_ID>
<Customer_Number />
<Vehicle_id>47471</Vehicle_id>
<Direct_InvoiceYN>False</Direct_InvoiceYN>
<damage_report_ID>0</damage_report_ID>
<CancelledYN>False</CancelledYN>
<Cn_id />
</Invoice_Id>
</repair_order_Id>
</carmamData>
ไม่มีความคิดเห็น:
แสดงความคิดเห็น