DO WHILE !EOF() AND  new_prihod.idr=rdoc_str_cs.id_rdoc
    SELECT rdoc_str_cs
...
   SELECT  lvPrice  
   SET ORDER TO id_k
*  Найдем запись с ИД карточки
   SEEK  rdoc_str_cs.id_kart 
    plOk=.F.
    DO WHILE !EOF() AND lvPrice.id_kart =rdoc_str_cs.id_kart 
*  найдем запись с нужной ценой
		IF lvPrice.price=rdoc_str_cs.price
			plOk=.T.
			EXIT 
		ENDIF 
		SKIP 
    ENDDO 
    SELECT LVprice
    IF !plOk 
        SELECT LVprice
    	m.id_price=pub_proc('newidCalculator','Tabl_id','Price')
	    INSERT INTO price (id_kart, idr,ns) ;
   	        values (rdoc_str_cs.id_kart,m.id_price, nastr.ns)
			REPLACE code_ei with rdoc_str_cs.code_ei, ;
		 	  price WITH rdoc_str_cs.price
    ENDIF 
    REPLACE qmp WITH qmp+rdoc_str_cs.q, sum_mpr WITH  sum_mpr+rdoc_str_cs.sumr
.... 
   SELECT rdoc_str_cs
  skip 
enddo 

SET MULTILOCKS ON
CursorSetProp('Buffering',  5 , 'lvprice')

...
SELECT qprixod1
GO TOP  
DO WHILE !EOF()
*    SCATTER memvar
    m.id_price=id_price
    SELECT lvPrice
    IF !SEEK(m.id_price)
       APPEND BLANK
       REPLACE id_kart WITH qprixod1.id_kart, id_price  WITH m.id_price,;
       price  WITH qprixod1.price, code_ei WITH qprixod1.code_ei,;
       data_sozd WITH qprixod1.data,data_last WITH qprixod1.data ,;
       qmp WITH qmp +qprixod1.q
      SELECT qprixod1
      SKIP
      LOOP
    ENDIF   
    REPLACE qmp WITH qmp +qprixod1.q, sum_mpr WITH sum_mpr+qprixod1.sump
    SELECT qprixod1
    SKIP
ENDDO 

    SELECT LVprice
    IF !plOk 
        SELECT Lvprice
    	m.id_price=pub_proc('newidCalculator','Tabl_id','Price')
    	APPEND BLANK
	REPLACE id_kart WITH rdoc_str_cs.id_kart, idr WITH m.id_price, ns WITH nastr.ns,;
		code_ei with rdoc_str_cs.code_ei, ;
 	    price WITH rdoc_str_cs.price
           REPLACE qmp WITH qmp+rdoc_str_cs.q, sum_mpr WITH  sum_mpr+rdoc_str_cs.sumr

	ELSE 
    REPLACE qmp WITH qmp+rdoc_str_cs.q, sum_mpr WITH  sum_mpr+rdoc_str_cs.sumr
ENDIF