Цитата:
Сообщение от ctpz
начинать лучше с асемблера, потому что другие языки будут быстрее усваиваться
|
Хорошая шутка, посмеялся. А по теме - VisualBasic, ибо язык 1С очень похож на на него, только на русском
Код:
Пока док.ПолучитьДокумент()=1 Цикл
Если (док.Магазин=Магазин) и (док.ТекущийДокумент()<>ТекДок) Тогда
док.ВыбратьСтроки();
Пока док.ПолучитьСтроку()=1 Цикл
Если СокрЛП(док.БарКод)=СокрЛП(Товар.Код) Тогда
Расход = Расход + док.Кол;
КонецЕсли;