Имя: Пароль:
1C
1C 7.7
v7: Пиктограммы в журнале документов
0 Масянька
 
17.01.14
11:52
Доброе утро!

Подскажите, пожалуйста, каким образом выводится пиктограмма документа в журнале? Я имею ввиду ту, которая "листочек с галочкой".

Спасибо.
1 DJ Anthon
 
17.01.14
11:53
она встроенная в программу. но можно создать свою точно такую же, в типовых есть такая картинка и выводить по порядковому номеру пиктограммы
2 ДенисЧ
 
17.01.14
11:56
"не образом, а чем-то типа подсвечника" (с)
Это платформенная приблуда.
3 Масянька
 
17.01.14
11:56
(1) Открываю журнал (любой) - не вижу обработки.
Меня интересует сам процесс: док-т не проведен - просто листочек, док-т проведн - листочек уже с галочкой. Где посмотреть?
4 Масянька
 
17.01.14
11:56
(2) Не найти?
5 1dvd
 
17.01.14
11:58
(4) зашито в платформу. нельзя посмотреть. невозможно. совсем никак. не получится. можешь даже и не пробовать. всё тщетно. всё тлен
6 ДенисЧ
 
17.01.14
12:00
(4) Что ты хочешь найти? Иконку или процесс вывода?
Иконку можно, процесс - если только Нуралиеву нож к горлу и потребовать исходники платформы
7 Масянька
 
17.01.14
12:02
(6) Нож хочу :(

Хочу - для определенных док-ов в журнале увидеть не "листочек с галочкой", а (например) "листочек с крестиком".
8 1dvd
 
17.01.14
12:03
(7) пометить на удаление не предлагать?
9 Масянька
 
17.01.14
12:04
(8) Нет.
10 1dvd
 
17.01.14
12:05
(9) хорошо. Тогда рисуй свой журнал с шашками и трактористами
11 aka AMIGO
 
17.01.14
12:05
берешь "Текст", тащишь в табличную часть
в свойствах текстовой колонки именуешь и указываешь функцию
http://gyazo.com/1b2d2e281612b1950c07edf7a947cb6b

В свойствах табличной части указываешь картинку:
http://gyazo.com/acb2a1ce1ab7d2ba4a1a9bb26c663fa1

создаешь функцию
Функция Картина()
    Если ТекущийЭлемент().ЭтоГруппа()=1 Тогда
        Возврат "";
    КонецЕсли;
    //СПЗ = СоздатьОбъект("Справочник.ЗаменаАртикула");
    СПЗ.ИспользоватьВладельца(ТекущийЭлемент());
    Если СПЗ.ВыбратьЭлементы()=1 Тогда
        Возврат 1;
    КонецЕсли;
    Возврат "";
КонецФункции

радуешься:
http://gyazo.com/aa8eb654f6a1215980ee864369aefde3
12 ДенисЧ
 
17.01.14
12:06
(7) слишком много хочешь.
13 Mikeware
 
17.01.14
12:08
(7) Тогда бери ПоставщикДанных, и (10)
14 aka AMIGO
 
17.01.14
12:10
(7) ммм.. тогда немного посложнее.. если потерпишь опять - сча выложу прием для вывода пиктограмм
15 Масянька
 
17.01.14
12:11
(11) Мне хочется именно стандартную изменить :)
(14) "Люблю. Жду. Лена" (С)
16 aka AMIGO
 
17.01.14
12:11
(15) :-))
вот такое нравится? http://gyazo.com/c3f61abfb86ba4fe632b0a2e9608a107
17 aka AMIGO
 
17.01.14
12:20
+16 это Журнал доков "Счета", точно так-же тянешь Текст в колонку, помещаешь её второй слева, указываешь Функцию
http://gyazo.com/d38e5ec41555ffb3c7664bdd9b862166

Собственно функция
Функция Картина()
    Перем Док, пДок;
    Если ТекущийДокумент.Вид()= "ЗаявкаПокупателя" Тогда
        Если ТекущийДокумент.Проведен()=0 Тогда
            Возврат 0;
        КонецЕсли;
        СЗп = СоздатьОбъект("СписокЗначений");
        пДок = СоздатьОбъект("Документ");
        Док = СоздатьОбъект("Документ");
        СуммаОплаты = 0;
        ЕстьРеализация=0;
        
        Док.ВыбратьПодчиненныеДокументы(,,ТекущийДокумент);
        Пока Док.ПолучитьДокумент()=1 Цикл
            Если Док.Проведен()=0 Тогда
                Продолжить;
            КонецЕсли;
            
            Если Док.Вид() = "ОтменаСчетов" Тогда
                Возврат 5; //Серый Отмена
            КонецЕсли;
            
            Если Док.Вид() = "СтрокаВыпискиПриход" Тогда
                СуммаОплаты = СуммаОплаты + Док.Сумма;
            КонецЕсли;
            Если Док.Вид() = "ПКО" Тогда
                СуммаОплаты = СуммаОплаты + Док.Сумма;
            КонецЕсли;
                        
            Если Найти(Док.Вид(), "Реализация")>0 Тогда
                ЕстьРеализация= ЕстьРеализация + Док.Итог("Количество");
            КонецЕсли;
            
        КонецЦикла;
        ПН = ПолучитьПустоеЗначение("Справочник.Номенклатура");
        ОстЗаявки = РегЗаявки.СводныйОстаток(,,,ТекущийДокумент,"КоличествоРасход");
        ОстРезервы = РегРезервы.СводныйОстаток(,,,,ТекущийДокумент,"Количество");
        ОстПустые = РегРезервы.СводныйОстаток(,ПН,,,ТекущийДокумент,"Количество");
        ОстРезервы = ОстРезервы - ОстПустые;
        
        Если ЕстьРеализация = ТекущийДокумент.Итог("Количество") Тогда
            Возврат 3; //зеленый реализовано
        КонецЕсли;
        
        Если СуммаОплаты <>0 Тогда
            Если ОстЗаявки = ОстРезервы Тогда //укомплектован
                Возврат 2; //желтый
            ИначеЕсли ОстРезервы>0 Тогда //частичный некомплект
                Возврат 7;
            Иначе
                Возврат 6; //фиолетовый
            КонецЕсли;
        КонецЕсли;
        
        //не оплачен
        Если СуммаОплаты=0 Тогда

                Возврат 1; //красный

        КонецЕсли;
        

            Возврат 4; //Синий ошибка
        
    КонецЕсли;

    Возврат 0;    
КонецФункции

и специально созданная  картинка:
http://gyazo.com/dd91b6c20bf1ed42ee860f7f3de52739

Примерно такая, искать в компе не стал
http://gyazo.com/db76fea8e6518e65c1f76f92c4e28fc5
18 Масянька
 
17.01.14
12:21
(16) Прости, но это легко (я умею :) ). Но все равно - спасибо :))))
19 aka AMIGO
 
17.01.14
12:22
ну, пожалуйста! :)
20 Масянька
 
17.01.14
12:22
А если отредактировать эту стандартную иконку (не знаю, как она правильно называется) и потом подсунуть - сработает?
21 aka AMIGO
 
17.01.14
12:23
(20) конечно-ж :)
22 Ёпрст
 
гуру
17.01.14
12:26
совет:

никогда не пиши как в (11)...
23 aka AMIGO
 
17.01.14
12:27
(22) совет: я сам разберусь в своих прожках
24 Масянька
 
17.01.14
12:27
А-а-а-а-а!
Получилось!!!!!

СПАСИБО!!!!!
25 Масянька
 
17.01.14
12:28
(22) (23) Парни - не ругайтесь!
30 oslokot
 
17.01.14
12:45
(24) а че получилось то? теперь во всех журналах вместо птицы - крестик?
31 Масянька
 
17.01.14
12:48
А я правильно понимаю, что 6 по порядку листочек это проведение без движений?
32 aka AMIGO
 
17.01.14
13:03
(31) нет, проведения без движений у меня в конфе нет.
Можно считать, что это - "прочее состояние", не удовлетворяющее выборке по запланированным условиям.

Это долго описывать.. у меня в этой конфе создать и провести счет, у которого в строках может отсутствовать номенклатура в справочнике номенклатуры.
Пример такого счета:
http://gyazo.com/44292e488abd5c799770a6c246f42d95
здесь колонка номенклатуры пуста, но счет проведен и оплачен
вот его проводка:
http://gyazo.com/d740ff36a4c77008951045223203f18d

такой уж был заказ от шефа
33 aka AMIGO
 
17.01.14
13:09
+32 а пиктограмма "пожелтеет", когда номенклатура будет получена и занесена в справочник "Номенклатура".
"Желтый" счет - готовность к созданию документа реализации
34 Масянька
 
17.01.14
13:12
(32) (33) Здорово! У тебя (по сути) реализация бизнес-процесса :)))
35 aka AMIGO
 
17.01.14
13:13
(34) ну, не знаю.. я это называю "реализация головной боли" :)