Имя: Пароль:
1C
1C 7.7
v7: найти последний Больничный
0 work92
 
23.05.14
10:45
Всем прив!! Может кто подскажет как найти последний  Больничный документ в котором ТИП=Первичный.



          ДокументБЛ=СоздатьОбъект("Документ.БольничныйЛист");
            ДокументБЛ.Выбратьдокументы();
Пока ДокументБЛ.ПолучитьДокумент()=1 Цикл
        Если ДокументБЛ.Проведен()=1 Тогда
           Если ДокументБЛ.Сотрудник=Сотрудник Тогда
          /Если (Тип = Перечисление.ТипБЛ.Первичный)  Тогда
        
              Сообщить("док № "+ДокументБЛ.номерДок ) ;
              
          Иначе
              Сообщить("Док нету");
          КонецЕсли;
          КонецЕсли;
      КонецЕсли;
КонецЦикла;
1 ДенисЧ
 
23.05.14
10:46
ОБратныйПорядок(1)
вроде так было?
2 work92
 
23.05.14
10:47
Что значит обратный порядок
3 work92
 
23.05.14
10:52
ДенисЧ если можно примером
4 Ёпрст
 
23.05.14
10:55
(3)
ДокументБЛ=СоздатьОбъект("Документ.БольничныйЛист");
ДокументБЛ.ОБратныйПорядок(1);
ДокументБЛ.УстановитьФильтр(1,0);
ДокументБЛ.Выбратьдокументы();
Пока ДокументБЛ.ПолучитьДокумент()=1 Цикл
   Если (ДокументБЛ.Сотрудник=Сотрудник )
          И(ДокументБЛ.Тип = Перечисление.ТипБЛ.Первичный)  Тогда
      Сообщить("Ура бл...я, ннашли!");
      Прервать;
   КонецЕсли;
КонецЦикла;
5 work92
 
23.05.14
10:59
СП
6 Mikeware
 
23.05.14
11:01
"Последний больничный" - это  тот, в котором стоит не "выписан", а "умер"
7 Масянька
 
23.05.14
11:11
(6) :)
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший