Имя: Пароль:
1C
1C 7.7
v7: Помогите с отчетом.
,
0 dll
 
26.06.12
09:02
Полученный транспорт выводит через запятую,
нужно что бы выводила по отдельности,
прошу строго не судить, не программист...

СпТр = "";
Пока Запрос2.Группировка(1) = 1 Цикл
Если СокрЛП(Строка(Запрос2.Транспорт.Родитель.Код))="12" Тогда
СпТр = СпТр " " + Строка(Запрос2.Транспорт);
КонецЕсли;
КонецЦикла;


ФИО = СпТр;
Таб.ВывестиСекцию("Строка3");
1 Rie
 
26.06.12
09:03
(0) Непонятно, что тебе надо. Но попробую протелепатировать:
заведи вертикальную секцию "Транспорт".
И выводи в цикле
Таб.ВывестиСекцию("Строка3|Транспорт");
2 Морозов Александр
 
26.06.12
09:04
(1)или присоеденить секцию?
3 ДенисЧ
 
26.06.12
09:05
(2) А может, не через , а через РазделительСтрок()? :-)
4 dll
 
26.06.12
09:06
все по циклу взятые транспорты берутся и выводятся вместе на ФИО = СпТр;
СпТр = СпТр " " + Строка(Запрос2.Транспорт);
5 Rie
 
26.06.12
09:06
(2) Конечно же, ПрисоединитьСекцию. Виноват, невнимателен был :-(
6 Эмбеддер
 
26.06.12
09:07
а где запятая?
7 andrewks
 
26.06.12
09:08
(6) чуть ниже точки
8 dll
 
26.06.12
09:09
Простите, запятого я это добавил, строго " "
9 Ёпрст
 
26.06.12
09:10
замени в (0) " " на "" "" и наслаждайся...
10 Pro-tone
 
модератор
26.06.12
09:14
(0) честно,вообще ничего не понял что требуется. Напиши хоть что в итоге должно получится. Результирующую строку.
11 dll
 
26.06.12
09:16
в отчете выглядит так....
ФИО сотрдуника
Автобус ТАРЗ 18-51 SК Трактор ДТ-75  ИНВ № 237 - вот тут два транспорта, нужно по отдельности что бы выводила
потом уже услуги по этому авто
   Автоуслуги
   Боронование
   Погрузка селитры - поле
12 1dvd
 
26.06.12
09:18
Пока Запрос2.Группировка(1) = 1 Цикл
Если СокрЛП(Строка(Запрос2.Транспорт.Родитель.Код))="12" Тогда
ФИО = Строка(Запрос2.Транспорт);
Таб.ВывестиСекцию("Строка3");
КонецЕсли;
КонецЦикла;
13 Pro-tone
 
модератор
26.06.12
09:19
+1 (12) уже писал вывод секции в цикле, ты мя опредил =)
14 dll
 
26.06.12
09:21
Большое спасибо, только вот как теперь услуги по авто распределить о_О
(((((
15 Pro-tone
 
модератор
26.06.12
09:24
(14) в запросе должна быть группировка "Услуга",  поэтому делай второй (вложенный) цикл по ней
16 Pro-tone
 
модератор
26.06.12
09:27
Примерно так:


Пока Запрос2.Группировка(1) = 1 Цикл
  Если СокрЛП(Строка(Запрос2.Транспорт.Родитель.Код))="12" Тогда
       ТекУслуга="";
       Пока Запрос2.Группировка(2) = 1 Цикл //предположим что это группировка по услугам
          ТекУслуга = ТекУслуга + ?(ТекУслуга="",""," ") + Запрос2.Услуга;
       КонецЦикла
     ФИО = Строка(Запрос2.Транспорт)+ТекУслуга;
     Таб.ВывестиСекцию("Строка3");
  КонецЕсли;
КонецЦикла;
17 dll
 
26.06.12
09:29
вот такой код на услуги(ВидРаботы)

Пока Запрос.Группировка(2) = 1 Цикл
           //Пока Запрос.Группировка(3) = 1 Цикл
           Если СокрЛП(Строка(Запрос.ВидРаботы.Родитель.Код)) = "20" Тогда
               //ВидРаботы = Строка(Запрос.ВидРаботы) + " " + Строка(Запрос.Транспорт);
               ВидРаботы = Строка(Запрос.ВидРаботы);
               
               Культура = Запрос.Культура;
               Дни = Запрос.КолвоДней;
               Час = Запрос.КолвоЧасы;
               ВидГСМ2 = Запрос.Транспорт.ВидГСМ;
               Ед = Запрос.ВидРаботы.ЕдиницаИзмерения;
               Если СокрЛП(Строка(Ед))="ткм" Тогда
                   Если (Запрос.КолвоПоездок > 0) И (Запрос.КолвоТоннаж > 0) Тогда
                       Выработка = Запрос.КолвоПробег/Запрос.КолвоПоездок*Запрос.КолвоТоннаж;
                   Иначе
                       Выработка = Запрос.КолвоЧасы;
                   КонецЕсли;
               ИначеЕсли СокрЛП(Строка(Ед))="га" Тогда
                   Выработка = Запрос.ВсегоВыработка;
               Иначе
                   Выработка = Запрос.КолвоЧасы;
               КонецЕсли;
               НормаРасхода = Запрос.Транспорт.НормаРасхода;
               НормаГСМ = Окр(Число(Запрос.КолвоНорма),3);
               ФактГСМ =  Окр(Число(Запрос.КолвоФакт),3);
               Отклонение = ФактГСМ - НормаГСМ;
               Зарплата = Запрос.ВсегоНачислено;
               Если Выработка > 0 Тогда
                   Расценка = Окр(Зарплата/Выработка,2);
               Иначе
                   Расценка = 0;
               КонецЕсли;
               Таб.ВывестиСекцию("Строка");
               //Пока Запрос.Группировка(3) = 1 Цикл
               //    Культура = Запрос.Культура;
               //Дни = Запрос.КолвоДней;
               //Час = Запрос.КолвоЧасы;
               //Зарплата = Запрос.ВсегоНачислено;
               //Таб.ВывестиСекцию("Строка");
               //КонецЦикла;
           КонецЕсли;
           //КонецЦикла;
       КонецЦикла;
   КонецЦикла;
18 Ёпрст
 
26.06.12
09:36
(17) старайся избегать таких условий в своём коде:

СокрЛП(Строка(Запрос.ВидРаботы.Родитель.Код)) = "20"

ибо если сменят код у группы - привет котёнку.
19 dll
 
26.06.12
10:08
помогите пожалуйста, не могу разобраться(((
20 Ёпрст
 
26.06.12
10:13
(19) текст запроса то покажи
21 dll
 
26.06.12
10:14
Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   //"//{{ЗАПРОС(Сотрудники)
   //|Период с Дата1 по Дата2;
   //|Сотрудник = Документ.ВнутреннееСписаниеТМЗпоНормам.Сотрудник;
   //|ВидРаботы = Документ.ВнутреннееСписаниеТМЗпоНормам.ВидПродукции;
   //|Культура = Документ.ВнутреннееСписаниеТМЗпоНормам.ВидКультуры;
   //|КолФакт = Документ.ВнутреннееСписаниеТМЗпоНормам.Количество;
   //|КолНорма = Документ.ВнутреннееСписаниеТМЗпоНормам.НормаНаВыпуск;
   //|Часы = Документ.ВнутреннееСписаниеТМЗпоНормам.Прим;
   //|Группировка Сотрудник;
   //|Функция КолвоФакт = Сумма(КолФакт);
   //|Функция КолвоНорма = Сумма(КолНорма);
   "//{{ЗАПРОС(Сотрудники)
   |Период с Дата1 по Дата2;
   |Сотрудник = Документ.ВнутреннееСписаниеТМЗпоНормам.Сотрудник,Документ.НарядЗП.Сотрудник;
   |ВидРаботы = Документ.ВнутреннееСписаниеТМЗпоНормам.ВидПродукции,Документ.НарядЗП.ВидГП;
   |Культура = Документ.ВнутреннееСписаниеТМЗпоНормам.ВидКультуры,Документ.НарядЗП.Культура;
   |КолФакт = Документ.ВнутреннееСписаниеТМЗпоНормам.Количество;
   |КолНорма = Документ.ВнутреннееСписаниеТМЗпоНормам.НормаНаВыпуск;
   |Пробег = Документ.ВнутреннееСписаниеТМЗпоНормам.Пробег;
   |Тоннаж = Документ.ВнутреннееСписаниеТМЗпоНормам.Тоннаж;
   |КоличествоПоездок = Документ.ВнутреннееСписаниеТМЗпоНормам.КоличествоПоездок;
   |Часы = Документ.НарядЗП.Часы;
   |Выработка = Документ.НарядЗП.Выработка;
   |Транспорт = Документ.НарядЗП.МестаХР;
   |Дней = Документ.ВнутреннееСписаниеТМЗпоНормам.КолДней;
   |Начислено = Документ.НарядЗП.Начислено;
   //|ВидГСМ3 = Документ.ВнутреннееСписаниеТМЗпоНормам.ВидГСМ;
   |Группировка Сотрудник упорядочить по Сотрудник.Наименование без групп;
   |Группировка ВидРаботы упорядочить по ВидРаботы.Наименование без групп;
   //|Группировка Культура упорядочить по Культура.Наименование без групп;
   |Функция КолвоФакт = Сумма(КолФакт);
   |Функция ВсегоВыработка = Сумма(Выработка);
   |Функция КолвоЧасы = Сумма(Часы);
   |Функция КолвоДней = Сумма(Дней);
   |Функция КолвоНорма = Сумма(КолНорма);
   |Функция ВсегоНачислено = Сумма(Начислено);
   |Функция КолвоПробег = Сумма(Пробег);
   |Функция КолвоТоннаж = Сумма(Тоннаж);
   |Функция КолвоПоездок = Сумма(КоличествоПоездок);
   |"//}}ЗАПРОС
   ;
22 Ёпрст
 
26.06.12
10:23
(21) дык при группировке сотрудник и видработы.. какой такой транспорт ты хочешь увидеть ?
:)
23 dll
 
26.06.12
10:36
Транспорт это отдельный запрос ))
Запрос2.Группировка(1)
24 dll
 
26.06.12
10:36
Запрос2 = СоздатьОбъект("Запрос");
       ТекстЗапроса =
       "//{{ЗАПРОС(СписокТранспорта)
       |Период с Дата1 по Дата2;
       |Сотрудник = Документ.НарядЗП.Сотрудник;
       |Транспорт = Документ.НарядЗП.МестаХР;
       |Группировка Транспорт упорядочить по Транспорт.Наименование без групп;
       |Условие(Сотрудник=НаимСотр);
       |"//}}ЗАПРОС
       ;
25 Ёпрст
 
26.06.12
10:57
(24) т.е ты хочешь выполнять второй запрос при обходе результатов первого ?
Не комильфо это.
26 dll
 
26.06.12
11:09
нет, вообще можно так? :
вот
ФИО
Транспорт...
Услуги выполненные на этом транспорте.

а у меня показывает все услуги вместе,
Транспорт1
Транспорт2
Услуги, т.е отоброжается все услуги и 1гоТранспорта и 2гоТранспорта
27 Doss
 
26.06.12
12:02
я бы сделал все одним запросом
добавил в запрос группировку по транспорту и цикл по трем группировкам

   |Группировка Сотрудник упорядочить по Сотрудник.Наименование без групп;
   |Группировка Транспорт упорядочить по Транспорт.Наименование без групп; // добавить!
   |Группировка ВидРаботы упорядочить по ВидРаботы.Наименование без групп;
28 Doss
 
26.06.12
12:06
да, ну и транспорт брать через

|Транспорт = Документ.ВнутреннееСписаниеТМЗпоНормам.Сотрудник,Документ.НарядЗП.МестаХР;
29 dll
 
26.06.12
13:21
D0ss что где пр0писать?
извиняюсь за глупый вопрос, но я не догоняю....((
30 Doss
 
26.06.12
16:24
Как я понял
У тебя два документа в запросе, ВнутреннееСписаниеТМЗпоНормам и НарядЗП, Тебе нужен отчет в разрезе Сотрудник,Транспорт, вид работы....
эти реквизиты должны быть в обоих документах (иначе я не чего не понимаю)
запрос примерно так:

  "//{{ЗАПРОС(Сотрудники)

   |Период с Дата1 по Дата2;
   |Сотрудник = Документ.ВнутреннееСписаниеТМЗпоНормам.Сотрудник,Документ.НарядЗП.Сотрудник;
   |Транспорт = Документ.ВнутреннееСписаниеТМЗпоНормам.МастаХР,Документ.НарядЗП.МестаХР; // добавить! в док ВнутреннееСписаниеТМЗпоНормам должен быть реквизит как в НарядеЗП типа МестаХР
   |ВидРаботы = Документ.ВнутреннееСписаниеТМЗпоНормам.ВидПродукции,Документ.НарядЗП.ВидГП;
   |Культура = Документ.ВнутреннееСписаниеТМЗпоНормам.ВидКультуры,Документ.НарядЗП.Культура;
   |КолФакт = Документ.ВнутреннееСписаниеТМЗпоНормам.Количество;
   |КолНорма = Документ.ВнутреннееСписаниеТМЗпоНормам.НормаНаВыпуск;
   |Пробег = Документ.ВнутреннееСписаниеТМЗпоНормам.Пробег;
   |Тоннаж = Документ.ВнутреннееСписаниеТМЗпоНормам.Тоннаж;
   |КоличествоПоездок = Документ.ВнутреннееСписаниеТМЗпоНормам.КоличествоПоездок;
   |Часы = Документ.НарядЗП.Часы;
   |Выработка = Документ.НарядЗП.Выработка;
   |Дней = Документ.ВнутреннееСписаниеТМЗпоНормам.КолДней;
   |Начислено = Документ.НарядЗП.Начислено;

   |Группировка Сотрудник упорядочить по Сотрудник.Наименование без групп; //
   |Группировка Транспорт упорядочить по Транспорт.Наименование без групп; // добавить!  
 |Группировка ВидРаботы упорядочить по ВидРаботы.Наименование без групп;

   |Функция КолвоФакт = Сумма(КолФакт);
   |Функция ВсегоВыработка = Сумма(Выработка);
   |Функция КолвоЧасы = Сумма(Часы);
   |Функция КолвоДней = Сумма(Дней);
   |Функция КолвоНорма = Сумма(КолНорма);
   |Функция ВсегоНачислено = Сумма(Начислено);
   |Функция КолвоПробег = Сумма(Пробег);
   |Функция КолвоТоннаж = Сумма(Тоннаж);
   |Функция КолвоПоездок = Сумма(КоличествоПоездок);
   |"//}}ЗАПРОС

   ;


ну и перебрать

Пока Запрос.Группировка(1) = 1 Цикл // по сотрудникам

    Пока Запрос.Группировка(2) = 1 Цикл // по транспорту

         Пока Запрос.Группировка(3) = 1 Цикл // по услугам

         КонецЦикла;
    КонецЦикла;
КонецЦикла;


кактотак
31 dll
 
27.06.12
13:13
спасибо doss
ща попробую...
32 dll
 
29.06.12
09:48
Ребят что то не получается....
33 DGorgoN
 
29.06.12
09:49
(32) Ничего не получается это что? Блин тут же не телепаты сидят (тебе уже намекали не раз)
34 dll
 
29.06.12
09:53
Выводит все услуги по всем авто...


Пока  Запрос.Группировка(1) = 1 Цикл
       Ном = Ном + 1;
       ФИО = Запрос.Сотрудник;
       Таб.ВывестиСекцию("Строка2");
       
       НаимСотр = Запрос.Сотрудник;
       
       Запрос2 = СоздатьОбъект("Запрос");
       ТекстЗапроса =
       "//{{ЗАПРОС(СписокТранспорта)
       |Период с Дата1 по Дата2;
       |Сотрудник = Документ.НарядЗП.Сотрудник;
       |Транспорт = Документ.НарядЗП.МестаХР;
       |Группировка Транспорт упорядочить по Транспорт.Наименование без групп;
       |Условие(Сотрудник=НаимСотр);
       |"//}}ЗАПРОС
       ;
       
       Если Запрос2.Выполнить(ТекстЗапроса) = 0 Тогда
           Сообщить("В запросе ошибка");
           Возврат;
       КонецЕсли;
       
       СпТр = "";
       Пока Запрос2.Группировка(1) = 1 Цикл
Если СокрЛП(Строка(Запрос2.Транспорт.Родитель.Код))="12" Тогда
ФИО = Строка(Запрос2.Транспорт);
Таб.ВывестиСекцию("Строка3");

Пока Запрос.Группировка(2) = 1 Цикл

   
   ВидРаботы = Строка(Запрос.ВидРаботы);
   
   Культура = Запрос.Культура;
   Дни = Запрос.КолвоДней;
   Час = Запрос.КолвоЧасы;
   ВидГСМ2 = Запрос.Транспорт.ВидГСМ;
   Ед = Запрос.ВидРаботы.ЕдиницаИзмерения;
   Если СокрЛП(Строка(Ед))="ткм" Тогда
       Если (Запрос.КолвоПоездок > 0) И (Запрос.КолвоТоннаж > 0) Тогда
           Выработка = Запрос.КолвоПробег/Запрос.КолвоПоездок*Запрос.КолвоТоннаж;
       Иначе
           Выработка = Запрос.КолвоЧасы;
       КонецЕсли;
   ИначеЕсли СокрЛП(Строка(Ед))="га" Тогда
       Выработка = Запрос.ВсегоВыработка;
   Иначе
       Выработка = Запрос.КолвоЧасы;
   КонецЕсли;
   НормаРасхода = Запрос.Транспорт.НормаРасхода;
   НормаГСМ = Окр(Число(Запрос.КолвоНорма),3);
   ФактГСМ =  Окр(Число(Запрос.КолвоФакт),3);
   Отклонение = ФактГСМ - НормаГСМ;
   Зарплата = Запрос.ВсегоНачислено;
   Если Выработка > 0 Тогда
       Расценка = Окр(Зарплата/Выработка,2);
   Иначе
       Расценка = 0;
   КонецЕсли;


МОЖНО ЛИ ТУТ УСЛОВИЕ СДЕЛАТЬ?
        Таб.ВывестиСекцию("Строка");    

КонецЦикла;

КонецЕсли;
КонецЦикла;
35 DGorgoN
 
29.06.12
10:01
(0) У тебя код жесть, запрос в цикле обработки данных другого запроса это пять. Переделывай 1 запросом, либо 2-мя с занесением промежуточных данных в таблицу значений
36 DGorgoN
 
29.06.12
10:01
+ Ты (30) Игнорируешь?
37 dll
 
29.06.12
10:09
Вот так запрос не делает вообще!


   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сотрудники)


   |Период с Дата1 по Дата2;
   |Сотрудник = Документ.ВнутреннееСписаниеТМЗпоНормам.Сотрудник,Документ.НарядЗП.Сотрудник;
   |Транспорт = Документ.ВнутреннееСписаниеТМЗпоНормам.Отпустил,Документ.НарядЗП.МестаХР; // добавить! в док ВнутреннееСписаниеТМЗпоНормам должен быть реквизит как в НарядеЗП типа МестаХР
   |ВидРаботы = Документ.ВнутреннееСписаниеТМЗпоНормам.ВидПродукции,Документ.НарядЗП.ВидГП;
   |Культура = Документ.ВнутреннееСписаниеТМЗпоНормам.ВидКультуры,Документ.НарядЗП.Культура;
   |КолФакт = Документ.ВнутреннееСписаниеТМЗпоНормам.Количество;
   |КолНорма = Документ.ВнутреннееСписаниеТМЗпоНормам.НормаНаВыпуск;
   |Пробег = Документ.ВнутреннееСписаниеТМЗпоНормам.Пробег;
   |Тоннаж = Документ.ВнутреннееСписаниеТМЗпоНормам.Тоннаж;
   |КоличествоПоездок = Документ.ВнутреннееСписаниеТМЗпоНормам.КоличествоПоездок;
   |Часы = Документ.НарядЗП.Часы;
   |Выработка = Документ.НарядЗП.Выработка;
   |Дней = Документ.ВнутреннееСписаниеТМЗпоНормам.КолДней;
   |Начислено = Документ.НарядЗП.Начислено;
   |Группировка Сотрудник упорядочить по Сотрудник.Наименование без групп; //
   |Группировка Транспорт упорядочить по Транспорт.Наименование без групп; // добавить!  
   |Группировка ВидРаботы упорядочить по ВидРаботы.Наименование без групп;
   |Функция КолвоФакт = Сумма(КолФакт);
   |Функция ВсегоВыработка = Сумма(Выработка);
   |Функция КолвоЧасы = Сумма(Часы);
   |Функция КолвоДней = Сумма(Дней);
   |Функция КолвоНорма = Сумма(КолНорма);
   |Функция ВсегоНачислено = Сумма(Начислено);
   |Функция КолвоПробег = Сумма(Пробег);
   |Функция КолвоТоннаж = Сумма(Тоннаж);
   |Функция КолвоПоездок = Сумма(КоличествоПоездок);
   |"//}}ЗАПРОС


   ;
   
   Если СотрудникОтбор.Выбран() = 1 Тогда
       ТекстЗапроса = ТекстЗапроса + "Условие(Сотрудник=СотрудникОтбор);";
   КонецЕсли;
   Если МестоХрОтбор.Выбран() = 1 Тогда
       ТекстЗапроса = ТекстЗапроса + "Условие(Транспорт=МестоХрОтбор);";
   КонецЕсли;
   Если ВидПродукцииОтбор.Выбран() = 1 Тогда
       ТекстЗапроса = ТекстЗапроса + "Условие(ВидРаботы=ВидПродукцииОтбор);";
   КонецЕсли;
   
   
   
   Таб=СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Мес = "";
   Если ДатаМесяц(Дата2) = 1 Тогда
       Мес = "январь";
   ИначеЕсли ДатаМесяц(Дата2) = 2 Тогда
       Мес = "февраль";
   ИначеЕсли ДатаМесяц(Дата2) = 3 Тогда
       Мес = "март";
   ИначеЕсли ДатаМесяц(Дата2) = 4 Тогда
       Мес = "апрель";
   ИначеЕсли ДатаМесяц(Дата2) = 5 Тогда
       Мес = "май";
   ИначеЕсли ДатаМесяц(Дата2) = 6 Тогда
       Мес = "июнь";
   ИначеЕсли ДатаМесяц(Дата2) = 7 Тогда
       Мес = "июль";
   ИначеЕсли ДатаМесяц(Дата2) = 8 Тогда
       Мес = "август";
   ИначеЕсли ДатаМесяц(Дата2) = 9 Тогда
       Мес = "сентябрь";
   ИначеЕсли ДатаМесяц(Дата2) = 10 Тогда
       Мес = "октябрь";
   ИначеЕсли ДатаМесяц(Дата2) = 11 Тогда
       Мес = "ноябрь";
   ИначеЕсли ДатаМесяц(Дата2) = 12 Тогда
       Мес = "декабрь";
   КонецЕсли;
   ПериодРабот = Мес + " " + Строка(ДатаГод(Дата2)) + " г.";
   Таб.ВывестиСекцию("Шапка");
   Ном = 0;
   
   
   Пока  Запрос.Группировка(1) = 1 Цикл
       Ном = Ном + 1;
       ФИО = Запрос.Сотрудник;
       Таб.ВывестиСекцию("Строка2");
       
       НаимСотр = Запрос.Сотрудник;
       
       
       СпТр = "";
       
       Пока Запрос.Группировка(2) = 1 Цикл // по транспорту    
           Если СокрЛП(Строка(Запрос.Транспорт.Родитель.Код))="12" Тогда
               ФИО = Строка(Запрос.Транспорт);
               Таб.ВывестиСекцию("Строка3");
               
           КонецЕсли;
           
           
           Пока Запрос.Группировка(3) = 1 Цикл  // по услугам
               //Пока Запрос.Группировка(3) = 1 Цикл
               Если СокрЛП(Строка(Запрос.ВидРаботы.Родитель.Код)) = "20" Тогда
                   //ВидРаботы = Строка(Запрос.ВидРаботы) + " " + Строка(Запрос.Транспорт);
                   ВидРаботы = Строка(Запрос.ВидРаботы);
                   
                   Культура = Запрос.Культура;
                   Дни = Запрос.КолвоДней;
                   Час = Запрос.КолвоЧасы;
                   ВидГСМ2 = Запрос.Транспорт.ВидГСМ;
                   Ед = Запрос.ВидРаботы.ЕдиницаИзмерения;
                   Если СокрЛП(Строка(Ед))="ткм" Тогда
                       Если (Запрос.КолвоПоездок > 0) И (Запрос.КолвоТоннаж > 0) Тогда
                           Выработка = Запрос.КолвоПробег/Запрос.КолвоПоездок*Запрос.КолвоТоннаж;
                       Иначе
                           Выработка = Запрос.КолвоЧасы;
                       КонецЕсли;
                   ИначеЕсли СокрЛП(Строка(Ед))="га" Тогда
                       Выработка = Запрос.ВсегоВыработка;
                   Иначе
                       Выработка = Запрос.КолвоЧасы;
                   КонецЕсли;
                   НормаРасхода = Запрос.Транспорт.НормаРасхода;
                   НормаГСМ = Окр(Число(Запрос.КолвоНорма),3);
                   ФактГСМ =  Окр(Число(Запрос.КолвоФакт),3);
                   Отклонение = ФактГСМ - НормаГСМ;
                   Зарплата = Запрос.ВсегоНачислено;
                   Если Выработка > 0 Тогда
                       Расценка = Окр(Зарплата/Выработка,2);
                   Иначе
                       Расценка = 0;
                   КонецЕсли;
                   Таб.ВывестиСекцию("Строка");
               
               КонецЕсли;
               //КонецЦикла;
           КонецЦикла;
       КонецЦикла;

   КонецЦикла;
38 dll
 
29.06.12
10:11
...ВсегоНачислено;
   Если Выработка > 0 Тогда
       Расценка = Окр(Зарплата/Выработка,2);
   Иначе
       Расценка = 0;
   КонецЕсли;


МОЖНО ЛИ ТУТ УСЛОВИЕ СДЕЛАТЬ? Проверку по документам?
        Таб.ВывестиСекцию("Строка");    

КонецЦикла; ....
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.