|
|
v7: Номенклатура без RLP 1C 7.7 |
☑ |
|
0
nvhost
29.05.14
✎
22:05
|
1C 7.7 комплексная в некоторой номеклатуре присутсвтует слово "RLP"
Например так "Зажигалка 0.25 мл синия RLP" есть код который выбирает все Реализации, как его отредоктирвоать чтоб выбирал только те реализации где нет номенклатуры с RLP??ПОмиогите!!
Док = Создатьобъект("Документ.Реализация");
Док.ВыбратьДокументы(Дата1, Дата2);
Пока Док.ПолучитьДокумент() = 1 Цикл
Если Док.Фирма = Фирма Тогда Иначе Продолжить; КонецЕсли;
Если Откл=1 тогда
Если (Лев(""+Док.НомерДок,1)="У") тогда
ПРОДОЛЖИТЬ;
конецесли;
конецесли;
СФ = глНайтиСчетФактуру(Док.ТекущийДокумент(),"СчетФактураВыданный");
Если СФ = "" Тогда
Сообщить(глПредставлениеДокумента(Док.ТекущийДокумент()) + " нет счета-фактуры");
КонецЕсли;
КонецЦикла;
|
|
|
1
KUBIK
29.05.14
✎
22:26
|
(0) Тут запрос треба
|
|
|
2
Мигало
29.05.14
✎
22:26
|
Функция НетРЛП(ТекДок)
Результат = 0;
ТекДок.ВыбратьСтроки();
Пока ТекДок.ПолучитьСТроку() = 1 Цикл
Если Найти(НРЕг(ТекДок.Номенулатура.Наименование), "RLP) > 0 Тогда
Результат = 1;
Прервать;
КонецЕсли;
КонецЦИкла;
Возврат Результат;
КОнецФункции
---- || ----
Док = Создатьобъект("Документ.Реализация");
Док.ВыбратьДокументы(Дата1, Дата2);
Пока Док.ПолучитьДокумент() = 1 Цикл
Если Док.Фирма = Фирма Тогда Иначе Продолжить; КонецЕсли;
Если Откл=1 тогда
Если (Лев(""+Док.НомерДок,1)="У") тогда
ПРОДОЛЖИТЬ;
конецесли;
конецесли;
Если НетРЛП(ТекДок) <> 1 Тогда
СФ = глНайтиСчетФактуру(Док.ТекущийДокумент(),"СчетФактураВыданный");
Если СФ = "" Тогда
Сообщить(глПредставлениеДокумента(Док.ТекущийДокумент()) + " нет счета-фактуры");
КонецЕсли;
КонецЕсли;
КонецЦикла;
|
|
|
3
Мигало
29.05.14
✎
22:27
|
Если НетРЛП(ТекДок) <> 1 Тогда
Заменить на
Если НетРЛП(Док.ТекущийДокумент()) <> 1 Тогда
|
|
|
4
KUBIK
29.05.14
✎
22:30
|
(0) + пол смени в учетке и фотку выложи
|
|
|
5
Мигало
29.05.14
✎
22:30
|
(4) Она страшная
|
|
|
6
KUBIK
29.05.14
✎
22:32
|
(5) типа: с бородой? :)))
|
|
|
7
Мигало
29.05.14
✎
22:37
|
(6) Понятия не имею, я ее никогда не видел
|
|
|
8
nvhost
29.05.14
✎
23:01
|
Ребят чего то не работает есть строка
ТекДок.Номенклатура.Наименование = "Донской табак светлый (500*1) МРЦ 44,00 RLP"
а он не дает результат = 1
|
|
|
9
Мигало
29.05.14
✎
23:02
|
P - аглицкая или русская ?
|
|
|
10
Шурик71
29.05.14
✎
23:03
|
нрег на врег в функции поменяй :)
|
|
|
11
Мигало
29.05.14
✎
23:04
|
Йоптоваюмать )))) Ошибся
|
|
|
12
nvhost
29.05.14
✎
23:21
|
ага посмотрел я справочник по синтаксису уже, поменял на "rlp"
пасибо вам огромное ребят все работает!
|
|
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший