Имя: Пароль:
1C
1C 7.7
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"
пасибо вам огромное ребят все работает!