Имя: Пароль:
1C
1С v8
Что нужно делать для организации раздельного проведения в самописке?
0 temsa
 
25.07.14
16:32
У меня один док при проведении делает записи по 12 регистрам.
Часто мы перепроводим доки по двум регистрам.
Хочу организовать раздельное проведение чтоб было быстрее проведение.
1 jsmith82
 
25.07.14
16:33
Кнопку повесь на форму списка, вызов обработки, флажки с регистрами...
2 jsmith82
 
25.07.14
16:34
Казалось бы, что проще...
3 temsa
 
25.07.14
16:39
(1) Я имел ввиду групповое проведение.
И про модуль проведение дока.
4 Timon1405
 
25.07.14
16:45
см. документ РасчетСебестоимостиТоваров (модуль менеджера!) в  УТ 11.1 +регламентное задание "РасчетСебестоимости"
5 ptiz
 
25.07.14
16:49
Включить упр.блокировки, разделение итогов в регистрах и обпроводись.
6 temsa
 
25.07.14
16:59
(4) УТ 11.1 не имею  - мы на галерке сюда к нам не доходит УТ 11. 1))
7 temsa
 
25.07.14
17:01
Я вот так примерно вижу.
1. Удаление движений  ставлю "Не удалять автоматически"
2. Завожу константу типа раздельно проведение дока
3. В модудуле проведение прописываю по условию занчения констаныт что провдить а что не проводить
4. объязательно при записи сначало програмно очищаю чтоб на задвиить записи.
8 SUA
 
25.07.14
17:08
1. Экспортная функция модуля которая по данным документа рисует его движения (по нужному списку регистров)
2. Обработка которая для всех проведенных доков за период ее дергает
9 SUA
 
25.07.14
17:09
набор записей вполне себе записывается независимо от документа если нужно
10 temsa
 
25.07.14
17:21
Мне не нужно выводит код проведение из документа пускай будет в документе. Да и с наборами записей не хочу возится. Просто проведение по условию.
11 temsa
 
25.07.14
17:38
Короче проверил на тесте.
Мне всего лишь бвло это:


Процедура ОбработкаПроведения(Отказ, Режим)
    
    
    Если Не Проведен или Не Константы.ПроводимТолькоЗП.Получить() тогда
        
        Движения.Всячина.Записывать = Истина;
        Движение = Движения.Всячина.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
        Движение.Период = Дата;
        Движение.Измерение1 = Реквизит1;
        Движение.Ресурс1 = Реквизит3;

    КонецЕсли;    
    
    Движения.ЗП.Записывать = Истина;
    Движение = Движения.ЗП.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
    Движение.Период = Дата;
    Движение.Измерение1 = Реквизит2;
    Движение.Ресурс1 = Реквизит3;
    
КонецПроцедуры
12 temsa
 
25.07.14
17:39
Под "всячиной" имею виду что таких регистров у меня будет 10 ...
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.