egerLESHIK
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте, уважаемые.
Пишу тут обработку для "Торговля и склад" 7.7. Суть в следующем: в таблице значений есть данные по: наименованию ТМЦ и артикулу и эти данные проверяются по Справочнику используемых артикулов. В тот момент, когда есть совпадение по наименованию в справочнике, но и одновременно несовпадение по артикулу, нужно вывести сообщение, что артикул отличающийся. Но видать я что-то никак не могу понять где косяк, отладдчик по всем правильным и неправильным позициям показывает, что Наименование и Артикул совпадают.
Собственно часть кода ниже:
Код: Процедура Проверка()
СпрИА = СоздатьОбъект ("Справочник.ИспользуемыеАртикулы");
Артикул = СокрЛП(тзТМЦ.Артикул);
Наименование = СокрП(тзТМЦ.ТМЦ);
тзТМЦ.ВыбратьСтроки();
Пока тзТМЦ.ПолучитьСтроку()=1 Цикл
Если (СпрИА.НайтиПоРеквизиту("Артикул",Артикул,1) = 0) и (СпрИА.НайтиПоНаименованию(Наименование,0,1)=1) Тогда
Сообщить ("Артикулы по ТМЦ "+Наименование+" отличаются.");
КонецЕсли;
КонецЦикла;
КонецПроцедуры |
Спасибо.
Добавлено:
Разобрался. Немного не туда влепил несколько строк кода:
Код: СпрИА = СоздатьОбъект ("Справочник.ИспользуемыеАртикулы");
тзТМЦ.ВыбратьСтроки();
Пока тзТМЦ.ПолучитьСтроку()>0 Цикл
Артикул = СокрЛП(тзТМЦ.Артикул);
Наименование = СокрП(тзТМЦ.ТМЦ);
Если (СпрИА.НайтиПоРеквизиту("Артикул",Артикул,1) = 0) и (СпрИА.НайтиПоНаименованию(Наименование,0,1)=1) Тогда
Сообщить ("Артикулы по ТМЦ "+Наименование+" отличаются.");
ИначеЕсли (СпрИА.НайтиПоРеквизиту("Артикул",Артикул,1) = 1) и (СпрИА.НайтиПоНаименованию(Наименование,0,1)=1) Тогда
КонецЕсли;
КонецЦикла; |
|
Программы » 
Варезник » 
