Имя: Пароль:
1C
1C 7.7
v7: Не записывается субконто операций
0 Godofsin
 
17.10.11
19:27
Процедура СоздатьОперацию(СчДТ,СчКТ,Вид,Таб)    
Опер = Создатьобъект("Операция");
Опер.Новая();
Опер.ДатаОперации = ТекущаяДата();
Если Вид = "PEREM" Тогда
   Опер.Содержание = "Перенос из С-маркета. Перемещение";
КонецЕсли;
ВсяСумма = 0;
Таб.ВыбратьСтроки();
Пока таб.ПолучитьСтроку() =1 Цикл
    Если МХДТ.НайтиПоНаименованию(Таб.склад,0) = 0 Тогда
        Сообщить("Не нашелся склад-получатель: "+Таб.склад);
        Возврат;
    КонецЕсли;
     Если МХКТ.НайтиПоНаименованию(Таб.Контра,0) = 0 Тогда
        Сообщить("Не нашелся склад-отправитель: "+Таб.Контра);
        Возврат;
    КонецЕсли;
    Опер.новаяПроводка();
   
    Опер.Дебет.Счет = СчДТ;
    Опер.Дебет.Субконто(1,Тов);
    Опер.Дебет.Субконто(2,МХДТ);
   
    Опер.Кредит.Счет = СчКТ;
    Опер.Кредит.Субконто(1,Тов);
    Опер.Кредит.Субконто(2,МХКТ);
   
    Опер.СОдержаниеПроводки = Таб.Ном;
    Опер.Сумма = Число(Таб.Сум);
    ВсяСумма = ВсяСумма + Число(Таб.Сум);
КонецЦикла;
   
Опер.СуммаОперации = ВсяСумма;
Опер.Записать();



   
КонецПРОцедуры


МХДТ,МХКТ и товар передаются через переменные модуля. По МХ позиционтрование в этой процедуре, товар позиционируется в другой. Переменные не пустые. Вобщем, субконто в проводке пустые, все остальное заполняется. ЧЯДНТ??
1 Godofsin
 
17.10.11
19:43
Мда... Надо бы обольше спать, чтоб не забывать про .ТекущийЭлемент()
2 Темный Эльф
 
17.10.11
19:43
Пиши МХДТ.ТекущийЭлемент() и так далее
3 Godofsin
 
17.10.11
19:44
(2) спс =)