Dim datenow As String
 Dim dateformat As String
 Dim book As String
 Dim sheet As String
 Dim s As String
 Dim s1 As String
 Dim s22 As String
 Dim s3 As String
 Dim s2 As Currency
 Dim k As Integer
 Dim P As Integer
 Dim pp As Integer
 Dim flag As Boolean  
 Dim flag_price As Boolean
 Dim flag_ As Boolean
 Dim Price As Integer
 Dim poziciy As Integer
 Dim P_G As Integer
 Dim Begin_CPG As Integer
 
 datenow = CDate(Date)
 dateformat = Left(datenow,  5 )

 P =  1 
 k =  1 
 flag_price = False
 flag_ = True
 book = Application.ActiveWorkbook.Name
 sheet = Application.ActiveSheet.Name


 Workbooks(book).Activate
 Worksheets(sheet).Activate
 Range( "Z8:AK278" ).Select
 Selection.ClearContents
 
    Set fs = CreateObject( "Scripting.FileSystemObject" )
    Set a = fs.CreateTextFile( "c:\"  + dateformat +  ".xml" , True) 
       
      For j =  1  To Price
        For i =  1  To poziciy 
          If k = P_G +  1  Then
             k = Begin_CPG  
             flag = False
                 For P = P_G +  1  To Begin_CPG -  1  
                   
                 Next P
          End If
        If Worksheets(sheet).Cells(i,  2 ).Value = Then
           flag = True
        End If
        If Worksheets(sheet).Cells(i,  2 ).Value = Then
           flag = False
        End If
               If Worksheets(sheet).Cells(i,  2 ).Value = k Then
                    Selection.NumberFormat =  "#####" 
                    s1 = RusUnixWin$(Worksheets(sheet).Cells(i,  1 ).Value,  1 ) 
                    s2 = Application.WorksheetFunction.RoundUp(Worksheets(sheet).Cells(i,  5  + j).Value,  2 ) *  100 
                    s3 = RusUnixWin$(Worksheets(sheet).Cells(i,  2 ).Value,  1 ) 
                    a.write ( "<Row Code=" )
                    a.write (Chr( 34 ) + s3 + Chr( 34 ))
                   
                    a.write ( " Name=" )
                    a.write (Chr( 34 ) + s1 + Chr( 34 ))
                    a.write ( " Cen=" )
                    s22 = CStr(s2)
                    
                    a.write (Chr( 34 ) + s22 + Chr( 34 ))
                    a.write ( " Dep=" )
                    a.write ( """  1  """ )
                    a.write ( " Grp=" )
                    a.write ( """  8  """ )
                    a.write ( " Tax=" )
                    a.write ( """  1  """ )
                    a.write ( " Kol=" )
                    a.write ( """  0  """ )
                    a.write ( " Flg=" )
                    a.write ( """  1  """ )
                    a.write ( "/>" )