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