NetUse("u_rbook",B6_DBF_PATH+"real\rbook.dbf") //открыли реестр заголовков заказов
   ordsetfocus("rbook0")// ставим индекс по коду
   NetUse("u_rbookm",B6_DBF_PATH+"real\rbookm.dbf") //открыли реестр содержимого заказов
   ordsetfocus("tag_oper_")// ставим индекс по коду
   NetUse("u_mgrup",B6_DBF_PATH+"sclad\mgrup.dbf") //открыли справочник групп
   ordsetfocus("mgrup")// ставим индекс
   NetUse("u_mlabel",B6_DBF_PATH+"sclad\mlabel.dbf") //открыли справочник ТМЦ
   ordsetfocus("mlabel")// ставим индекс
   NetUse("u_partner",B6_DBF_PATH+"partner.dbf") //открыли справочник партнеров
   ordsetfocus("code")// ставим индекс
   NetUse("u_type_a",B6_DBF_PATH+"type_a.dbf") // открыли справочник типов партнеров
   ordsetfocus("tag_oper")// ставим индекс
   /// Блок запроса дат
   dDateOt:=BoM(Date())// Ставим начальную дату периода
   dDateDo:=EoM(Date())// Ставим конечную дату периода
   //Делаем запрос периода для формирования реестра
   aDates:=dialog({'Введите дату начала периода..','Введите дату завершения......'},{,},{dDateOt,dDateDo})
   dDateOt:=aDates[ 1 ]
   dDateDo:=aDates[ 2 ]
   Select u_rbook // ставим активной область заголовков заказов
   // Ставим фильтр на активные заказы и даты отгрузки по запросу
   Set Filter To u_rbook->status="1" .And.( u_rbook->date1>=dDateOt .And. u_rbook->date1<=dDateDo)
   Count To uncount //считаем записи для индикатора
   Go top
   Set Relation To nnoper into u_rbookm //связываем заголовки с содержимым по ИД
   Set Relation To part_code into u_partner Additive // свзываем реестр заказов со справочником партнеров
   Select u_partner
   Set Relation To type_a into u_type_a Additive // связываем
   Select u_rbookm //делаем активной область перечня заказа
   //связываем строки со справочниками для детализации
   Set Relation To Upper(grup) into u_mgrup Additive  // справочник групп
   Set Relation To Upper(grup)+Upper(nnum) into u_mlabel Additive//справочник товаров
// получили набор связанных таблиц, где перемещение по родительской таблице дает актуальные записи в других таблицах
// теперь делаем перебор
   Do While (u_rbook->(!EoF())) // Цикл  1 
     uncurent:=uncurent+ 1      // счетчик + 1 
     PROGRESSUPDATE(uncurent) // обновляем картинку в строке статуса
     Select u_rbookm          //переходим в содержимое текущего заказа
     // Начинаем перебор позиций по заказу
     Do While u_rbookm->nnoper_=u_rbook->nnoper   // ставим условие для связанных таблиц Цикл  2 
     Do While u_rbookm->nnoper_=u_rbook->nnoper   // ставим условие для связанных таблиц Цикл  2 
       If FILE_TAB->(AddRec())                    // добавляем в приемную таблицу новую запись
//... здесь идет заполнение полей данными
       EndIf   // FILE_TAB->(AddRec())
       u_rbookm->(DbSkip()) // переходим к следующей строке заказа
     EndDo   // Конец  2  цикла
     // Переходим к следующему заказу
     Select u_rbook
     u_rbook->(DbSkip())
   EndDo   // конец  1  цикла
   PROGRESSHIDE() // убираем индикатор
   Select file_tab // ставим активной области полученной таблицы
// даем юзеру выбор, куда сформировать итоговую таблицу, dbf будет доступна в user папке через DidView
   nRetFormat:=NOORYES("Сформировать таблицу в формате", 1 ,{"OpenOffice.org Calc ","MS Excel "})
   If nRetFormat ==  1 
     exporttocalc() // экспорт в CALC
   ElseIf nRetFormat ==  2 
     exporttoexcel() // экспорт в Excel
   EndIf
    u_partner->(DbCloseArea())
   u_type_a->(DbCloseArea())
   u_mlabel->(DbCloseArea())
   u_mgrup->(DbCloseArea())
// ....