Public Action                  As Boolean   ' Flag
    Public Itemrow                 As Integer
    Public SequenceNumber          As Integer
    Public Itemcode                As String
    Public Quantity                As Integer
    Public materialDescription     As String
    Public ArtValue                As String
   


Sub Generate_Inwentaryzacja()

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("C:\xml\Inwentaryzacja.xml", True)
    
    Action = True
   
            
    Itemrow = 2
    SequenceNumber = 1
    Call WriteBOMHeader(a)
    
    While (Cells(Itemrow, 1) <> Empty Or Cells(Itemrow, 2) <> Empty Or Cells(Itemrow, 3) <> Empty Or Cells(Itemrow, 4) <> Empty Or Cells(Itemrow, 5) <> Empty) And Action
               
        
        '-------------------
        SequenceNumber = Cells(Itemrow, 1)
        Itemcode = Cells(Itemrow, 4)
        Quantity = Cells(Itemrow, 3)
        materialDescription = Cells(Itemrow, 2)
        ArtValue = Cells(Itemrow, 5)
        ArtValue = Round(ArtValue, 2)
        ArtValue = Replace(ArtValue, ",", ".")
        '--------------------
        
        Call WriteBomData(a) ' CT
        SequenceNumber = SequenceNumber + 1
      
        Itemrow = Itemrow + 1
    Wend
    Call WriteBomEnd(a)
    
    a.Close
    
   
    
        
End Sub


Private Sub WriteBOMHeader(ByVal a As Object)

    a.writeline ("<?xml version=""1.0""?>")
    a.writeline ("<eExact xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" noNamespaceSchemaLocation=""eExact-Schema.xsd"">")
    a.writeline (" <Orders>")
    a.writeline ("   <Order type=""B"">")
    a.writeline ("    <Description>Inwentaryzcacja</Description>")
    a.writeline ("    <Currency code=""PLN"" />")
    a.writeline ("    <OrderedAt>")
    a.writeline ("      <Creditor code=""888""></Creditor>")
    a.writeline ("    </OrderedAt>")
    'a.writeline ("    <Date>2012-10-24</Date>")
    a.writeline ("    <DeliverTo>")
    a.writeline ("    <Warehouse code=""WG""></Warehouse>")
    'a.writeline ("  <Date>2012-10-26</Date>")
    a.writeline ("    </DeliverTo>")
    a.writeline ("    <InvoiceTo>")
    a.writeline ("    <Warehouse code=""WG""></Warehouse>")
    a.writeline ("    </InvoiceTo>")


End Sub


Private Sub WriteBomData(ByVal a As Object)
    
    a.writeline ("         <OrderLine lineNo=""") & SequenceNumber & (""">")
    a.writeline ("            <Item code=""") & Itemcode & (""">")
    a.writeline ("            </Item>")
    a.writeline ("            <Description>") & materialDescription & ("</Description>")
    a.writeline ("            <Quantity>") & Quantity & ("</Quantity>")
    a.writeline ("            <Price type=""S"">") '<Currency code=""EUR""/>")
    a.writeline ("              <Currency code=""PLN"" />")
    a.writeline ("              <Value>") & ArtValue & ("</Value>")
    a.writeline ("            </Price>")
    a.writeline ("            <Delivery>")
    a.writeline ("            <Date> ")
    a.writeline ("            </Date>")
    a.writeline ("            </Delivery>")
    a.writeline ("         </OrderLine>")
          
End Sub

Private Sub WriteBomEnd(ByVal a As Object)
    
 
    a.writeline ("            </Order>")
    a.writeline ("            </Orders>")
    a.writeline ("         </eExact>")
          
End Sub