программерам новый тег в форуме сделали!

Нифигасебе

ПРОБЕЛЫ не складываются*  *   *    *     *      *
*  *   *    *     *      *
*  *   *    *     *      *
*  *   *    *     *      *
*  *   *    *     *      *
*  *   *    *     *      *
*  *   *    *     *      *
*  *   *    *     *      *
*  *   *    *     *      *
*  *   *    *     *      *
*  *   *    *     *      *

 
         (__)
 /-------(oo)
I       I  V
 II----II 

      object.WorkBooks.Open(path_rep+"unirepall"+USERNUMBER+".dbf");
    end;
    object.visible = true;    
  end;
elif (m_choice == 3)
  run(path_arh+"unpack.bat",path_arhiv);
  open(rep,path_arh+"unirepld.dbf");
	iii=0;
	initprogress(nrecords(rep),"","первый проход ");
  while (next(rep))
	iii=iii+1;
	useprogress(iii);
    codes.vendware = trim(rep.vendware);
    codes.name_ware = trim(rep.name_ware);
    codes.std = trim(rep.std);
    codes.type = rep.type;
    if (GetEQ(codes))
      update(codes);
    else
      codes.vendware = trim(rep.vendware);
      codes.name_ware = trim(rep.name_ware);
      codes.std = trim(rep.std);
      codes.type = rep.type;

 iii=iii+1;
 useprogress(iii);

 useprogress(++iii);

 вот работает ведь!!!! круто !!!! а когда сервис пьянок будет ? а ? или поговорили и забыли ? дальше следует тест

bumper    front     
 
F 1L-TR000 001>>         
 
 
(1)      1L0807217J   cover for bumper      1      
 
      1L0807217J GRU   primed            
 
1A      1L0807225   trim for bumper      2      
 
2      1L0807113   bumper bracket   left   1      
 
(2)      1L0807114   bumper bracket   right   1      
 
3      N 01024022   bolt, hexagon head self-locking   M8X20MK   X      
 
4      N 90033301   washer   B8,4X20X2,5   1      
 
5      1L0807191B   caged nut      4      
 
6      N 0438851   hexagon head panel screw   B4,8X19   X      
 
7      N 0116644   washer   B4,3X12X1   1      
 
8      811807577C   insert nut      2      
 
9      N 0154222   snap nut   ST4,2X17X11,3   X      
 
10      1L0807183   holder for covering   left   1      
 
(10)      1L0807184   holder for covering   right   1      
 
11      N 90437401   pop-rivet   A4,8X10   X      
 
12      1L0853668   air intake grille      1      
       for models with fog lamps            
 
      1L0853668 GRU   primed            
 
(12)      1L0853668A   air intake grille      1      
 
      1L0853668A GRU   primed            
 
13      N 0139649   oval head panel screw   ST4,2X16-C   X      
 
14      N 0154431   snap nut   4,2X15,4X11,25   2      
 
15      1L0807441E   cover cap      1      
       towing eye            
 
      1L0807441E GRU   primed            
 
16      1L0805903E   spoiler   left   1      
 
17      1L0805904E   spoiler   right   1      
 
18      1L0805825C   dirt deflector   left   1      
 
19      1L0805826C   dirt deflector   right   1      
 
20      1L0805639B   air vent      1   diesel eng.:   
       charge air cooler         1Z   
 
21      N 01396626   oval head panel screw   4,2X13STC   X      
 
22      N 0115227   washer   A4,3X9X0,8   2      
 
23      N 90305901   hexagonal head bolt   M10X73   4